Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

038003,000002:                                                                                                  ## Copyright:   Public domain.
038004,000003:                                                                                                  ## Filename:    SERVICER.agc
038005,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
038006,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
038007,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
038008,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
038009,000008:                                                                                                  ##              that the code format has been changed to conform to the
038010,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
038011,000010:                                                                                                  ##              original YUL assembler.
038012,000011:                                                                                                  ## Reference:   pp. 860-894
038013,000012:                                                                                                  ## Assembler:   yaYUL
038014,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
038015,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
038016,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
038017,000016:                                                                                                  ##              2016-11-27 MAS  Began transcription.
038018,000017:                                                                                                  ##              2016-11-28 MAS  Completed transcription. Lots of changes (including
038019,000018:                                                                                                  ##                              the new terrain model) and lots and lots of updated
038020,000019:                                                                                                  ##                              comments.
038021,000020:                                                                                                  ##              2016-11-29 HG   fix opcode  BDSL  -> BDSU
038022,000021:                                                                                                  ##              2016-12-07 HG   fix P00 -> POO (appears only in comments)
038023,000022:                                                                                                  ##              2016-12-12 hg   Fix operator BZMF -> BZF
038024,000023:                                                                                                  ##              2016-12-25 RSB  Comment-text proofed using ProoferComments
038025,000024:                                                                                                  ##                              and corrected errors found.
038026,000025:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
038027,000026:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
038028,000027: 

Page 860

038030,000029: 37,3401                                           BANK     37                                    
038031,000030: 37,2000                                           SETLOC   SERV1                                 
038032,000031: 37,2000                                           BANK                                           
038033,000032: 
038034,000033: 37,3401  E7,1515                                  EBANK=   DVCNTR                                
038035,000034:                                                                                                  #  *************************************   PREREAD   **************************************************************
038036,000035: 
038037,000036: 
038038,000037: 37,3401                                           COUNT*   $$/SERV                               
038039,000038: 
038040,000039: 37,3401           34750        PREREAD            CAF      SEVEN                                 #  5.7 SPOT TO SKIP LASTBIAS AFTER
038041,000040: 37,3402           03530                           TC       GNUFAZE5                              #  RESTART.
038042,000041: 37,3403           35022                           CAF      PRIO21                                
038043,000042: 37,3404           05063                           TC       NOVAC                                 
038044,000043: 37,3405  E3,1460                                  EBANK=   NBDX                                  
038045,000044: 37,3405           03733 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
038046,000045: 
038047,000046: 37,3407           03543        BIBIBIAS           TC       PIPASR     +3                         #  CLEAR + READ PIPS LAST TIME IN FREE FALL
038048,000047:                                                                                                  #  DO NOT DESTROY VALUE OF PIPTIME1
038049,000048: 
038050,000049: 37,3410           40103                           CS       FLAGWRD7                              
038051,000050: 37,3411           74764                           MASK     SUPER011                              #  SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
038052,000051: 37,3412           26103                           ADS      FLAGWRD7                              #     OF FLAGWRD7)
038053,000052: 
038054,000053: 37,3413           44726                           CS       DRFTBIT                               
038055,000054: 37,3414           70076                           MASK     FLAGWRD2                              #  START POWERED FLITE GYRO COMPENSATION
038056,000055: 37,3415           54076                           TS       FLAGWRD2                              #  BY T3RUPT
038057,000056: 
038058,000057: 37,3416           34742                           CAF      FOUR                                  #  NO LONGER NEEDED
038059,000058: 37,3417           55256                           TS       PIPAGE                                
038060,000059: 
038061,000060: 37,3420           37731                           CAF      PRIO22                                #  INITIALIZE NAVIGATED STATE VECTOR(SM COO
038062,000061: 37,3421           05076                           TC       FINDVAC                               #  RD) FROM MIDTOAVE OUTPUTS PRIOR TO FIRST
038063,000062: 37,3422  E7,1515                                  EBANK=   DVCNTR                                #  AVERAGE G.
038064,000063: 37,3422           03661 64067                     2CADR    NORMLIZE                              
038065,000064: 
038066,000065: 
038067,000066: 37,3424           34743                           CA       TWO                                   #  5.2SPOT FOR REREADAC AND NORMLIZE
038068,000067: 37,3425           03524        GOREADAX           TC       GNUTFAZ5                              
038069,000068: 37,3426           34771                           CA       2SECS                                 #  WAIT TWO SECONDS FOR READACCS
038070,000069: 37,3427           05226                           TC       VARDELAY                              
038071,000070: 

Page 861

038073,000072:                                                                                                  #  *************************************   READACCS   *************************************************************
038074,000073: 37,3430           43537        READACCS           CS       OCT37771                              #  THIS PIECE OF CODING ATTEMPTS TO
038075,000074: 37,3431           60030                           AD       TIME5                                 #  SYNCHRONIZE READACCS WITH THE DIGITAL
038076,000075: 37,3432           10000                           CCS      A                                     #  AUTOPILOT SO THAT A PAXIS RUPT WILL
038077,000076: 37,3433           44744                           CS       ONE                                   #  OCCUR APPROXIMATELY 70 MILLISECONDS
038078,000077: 37,3434           13436                           TCF      +2                                    #  FOLLOWING THE READACCS RUPT.  THE 70 MS
038079,000078: 37,3435           34744                           CA       ONE                                   #  OFFSET WAS CHOSEN SO THAT THE PAXIS
038080,000079: 37,3436           26030                 +2        ADS      TIME5                                 #  RUPT WOULD NOT OCCUR SIMULTANEOUSLY
038081,000080:                                                                                                  #  WITH ANY OF THE 8 SUBSEQUENT R10,R11
038082,000081:                                                                                                  #  INTERRUPTS -- THUS MINIMIZING THE POSS-
038083,000082:                                                                                                  #  IBILITY OF LOSING DOWNRUPTS.
038084,000083: 
038085,000084: 37,3437           03540                           TC       PIPASR                                #  READ THE PIPAS AND THEN ZERO THEM.
038086,000085: 
038087,000086: 37,3440           34747        PIPSDONE           CA       FIVE                                  
038088,000087: 37,3441           03530                           TC       GNUFAZE5                              
038089,000088: 37,3442           34744        REDO5.5            CAF      ONE                                   #  SHOWS THAT PIPAREAD HAD NOT STARTED
038090,000089: 37,3443           55256                           TS       PIPAGE                                #  SO THAT RESTART BEGINS AT READACCS.
038091,000090: 
038092,000091: 37,3444           34727                           CA       PRIO20                                
038093,000092: 37,3445           05076                           TC       FINDVAC                               
038094,000093: 37,3446  E7,1515                                  EBANK=   DVCNTR                                
038095,000094: 37,3446           02121 66067                     2CADR    SERVICER                              #  SET UP SERVICER JOB
038096,000095: 
038097,000096: 37,3450           34734                           CA       BIT9                                  
038098,000097: 37,3451           00006                           EXTEND                                         
038099,000098: 37,3452           05011                           WOR      DSALMOUT                              #  TURN ON TEST CONNECTOR OUTBIT,AVE G ON.
038100,000099: 
038101,000100: 37,3453           30103                           CA       FLAGWRD7                              #  WAS AVERAGE G ASKED TO BE TERMINATED?
038102,000101: 37,3454           74740                           MASK     AVEGFBIT                              
038103,000102: 37,3455           00006                           EXTEND                                         
038104,000103: 37,3456           13516                           BZF      AVEGOUT                               #  YES: SET UP FINAL EXIT.
038105,000104: 
038106,000105: 37,3457           30102                           CA       FLAGWRD6                              #  NO: IS THIS P6X OR P12?
038107,000106: 37,3460           74735                           MASK     MUNFLBIT                              
038108,000107: 37,3461           00006                           EXTEND                                         
038109,000108: 37,3462           13514                           BZF      MAKEACCS                              #  NO: BYPASS LR READ AND DISPLAYS
038110,000109: 
038111,000110: 37,3463           40107                           CS       FLGWRD11                              #  YES: DOES SOMEONE WANT TO BYPASS LR UPDT
038112,000111: 37,3464           74726                           MASK     LRBYBIT                               
038113,000112: 37,3465           00006                           EXTEND                                         
038114,000113: 37,3466           13473                           BZF      R10CALL                               #  YES: BYPASS LR READINGS
038115,000114: 
038116,000115: 37,3467           33536                           CA       1.75SEC                               #  CALL R12 0.25 SEC PRIOR TO NEXT READACCS
038117,000116: 37,3470           05205                           TC       WAITLIST                              #  VELOCITY LANDING RADAR READINGS ARE CENT
038118,000117: 37,3471  E7,1462                                  EBANK=   VSELECT                               #  ERED AROUND PIPTIME. 2 VELOCITY AND 1 AL
038119,000118: 37,3471           03142 52067                     2CADR    R12READ                               #  TITUDE READINGS BEFORE PIPTIME,3 V AFTER
038120,000119: 

Page 862

038122,000121: 37,3473           10754        R10CALL            CCS      PHASE2                                
038123,000122: 37,3474           13514                           TCF      MAKEACCS                              #  PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
038124,000123: 
038125,000124: 37,3475           34750                           CAF      SEVEN                                 #  SET PIPCTR FOR 4X/SEC RATE.
038126,000125: 37,3476           55055                           TS       PIPCTR                                
038127,000126: 
038128,000127: 37,3477           40025                           CS       TIME1                                 #  SET TBASE2 .05 SECONDS IN THE PAST.
038129,000128: 37,3500           64747                           AD       FIVE                                  
038130,000129: 37,3501           64725                           AD       NEG1/2                                
038131,000130: 37,3502           64725                           AD       NEG1/2                                
038132,000131: 37,3503           57054                           XCH      TBASE2                                
038133,000132: 
038134,000133: 37,3504           34352                           CAF      DEC17                                 #  2.21SPOT FOR R10,R11
038135,000134: 37,3505           54001                           TS       L                                     
038136,000135: 37,3506           40000                           COM                                            
038137,000136: 37,3507           52754                           DXCH     -PHASE2                               
038138,000137: 
038139,000138: 37,3510           36007                           CAF      OCT24                                 #  FIRST R10,R11 IN .200 SECONDS.
038140,000139: 37,3511           05205                           TC       WAITLIST                              
038141,000140: 37,3512  E7,1536                                  EBANK=   UNIT/R/                               
038142,000141: 37,3512           02042 42067                     2CADR    R10,R11                               
038143,000142: 
038144,000143: 
038145,000144: 37,3514           34742        MAKEACCS           CA       FOUR                                  
038146,000145: 37,3515           13425                           TCF      GOREADAX                              #  DO PHASE CHANGE AND RECALL READACCS
038147,000146: 
038148,000147: 
038149,000148: 37,3516           00006        AVEGOUT            EXTEND                                         
038150,000149: 37,3517           33535                           DCA      AVOUTCAD                              #  SET UP FINAL SERVICER EXIT
038151,000150: 37,3520           53252                           DXCH     AVGEXIT                               
038152,000151: 
038153,000152: 37,3521           34742                           CA       FOUR                                  #  SET 5.4 SPOT FOR REREADAC AND SERVICER
038154,000153: 37,3522           03524                           TC       GNUTFAZ5                              #  IF REREADAC IS CALLED, IT WILL EXIT
038155,000154: 37,3523           05263                           TC       TASKOVER                              #  END TASK WITHOUT CALLING READACCS
038156,000155: 
038157,000156: 
038158,000157: 37,3524           54001        GNUTFAZ5           TS       L                                     #  SAVE INPUT IN L
038159,000158: 37,3525           40025                           CS       TIME1                                 
038160,000159: 37,3526           55062                           TS       TBASE5                                #  SET TBASE5
038161,000160: 37,3527           13531                           TCF      +2                                    
038162,000161: 
038163,000162: 37,3530           54001        GNUFAZE5           TS       L                                     #  SAVE INPUT IN L
038164,000163: 37,3531           40001                           CS       L                                     #  -PHASE IN A, PHASE IN L
038165,000164: 37,3532           52762                           DXCH     -PHASE5                               #  SET -PHASE5,PHASE5
038166,000165: 37,3533           00002                           TC       Q                                     
038167,000166: 
038168,000167: 
038169,000168: 37,3534  E7,1515                                  EBANK=   DVCNTR                                
038170,000169: 37,3534           03663 44067  AVOUTCAD           2CADR    AVGEND                                
038171,000170: 

Page 863

038173,000172: 37,3536           00257        1.75SEC            DEC      175        B-14                       
038174,000173: 37,3537           37771        OCT37771           OCT      37771                                 
038175,000174: 
038176,000175: 33,2121                                           BANK     33                                    
038177,000176: 33,2000                                           SETLOC   SERVICES                              
038178,000177: 33,2000                                           BANK                                           
038179,000178: 
038180,000179: 33,2121                                           COUNT*   $$/SERV                               
038181,000180: 

Page 864

038183,000182:                                                                                                  #  *************************************   SERVICER   *************************************************************
038184,000183: 
038185,000184: 
038186,000185: 33,2121           05355        SERVICER           TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
038187,000186: 33,2122           16035                           OCT      16035                                 
038188,000187: 33,2123           20000                           OCT      20000                                 
038189,000188: 33,2124  E7,1515                                  EBANK=   DVCNTR                                
038190,000189: 33,2124           02132 66067                     2CADR    GETABVAL                              
038191,000190: 
038192,000191: 33,2126           37737                           CAF      PRIO31                                #  INITIALIZE 1/PIPADT IN CASE RESTART HAS
038193,000192: 33,2127           55074                           TS       1/PIPADT                              #  CAUSED LASTBIAS TO BE SKIPPED.
038194,000193: 
038195,000194: 
038196,000195: 33,2130           04607                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
038197,000196: 33,2131           15333                           CADR     1/PIPA                                
038198,000197: 
038199,000198: 33,2132           06060        GETABVAL           TC       INTPRET                               
038200,000199: 33,2133           51575                           VLOAD    ABVAL                                 
038201,000200: 33,2134           00325                                    DELV                                  
038202,000201: 33,2135           77776                           EXIT                                           
038203,000202: 33,2136           30154                           CA       MPAC                                  
038204,000203: 33,2137           55245                           TS       ABDELV                                #  ABDELV = CM/SEC*2(-14).
038205,000204: 33,2140           00006                           EXTEND                                         
038206,000205: 33,2141           72072                           MP       KPIP                                  
038207,000206: 33,2142           53514                           DXCH     ABDVCONV                              #  ABDVCONV = M/CS *2(-5).
038208,000207: 33,2143           00006                           EXTEND                                         
038209,000208: 33,2144           31244                           DCA      MASS                                  
038210,000209: 33,2145           53571                           DXCH     MASS1                                 #  NO MASS MONITOR ON SURFACE.
038211,000210: 
038212,000211: 33,2146           40104        MASSMON            CS       FLAGWRD8                              #  ARE WE ON THE SURFACE?
038213,000212: 33,2147           74735                           MASK     SURFFBIT                              
038214,000213: 33,2150           00006                           EXTEND                                         
038215,000214: 33,2151           12202                           BZF      MOONSPOT                              #  YES:  BYPASS MASS MESS
038216,000215: 
038217,000216: 33,2152           30106                           CA       FLGWRD10                              #  NO:   WHICH VEX SHOULD BE USED?
038218,000217: 33,2153           74730                           MASK     APSFLBIT                              
038219,000218: 33,2154           10000                           CCS      A                                     
038220,000219: 33,2155           00006                           EXTEND                                         #  IF EXTEND IS EXECUTED, APSVEX --> A,
038221,000220: 33,2156           32001                           DCA      APSVEX                                #    OTHERWISE DPSVEX --> A
038222,000221: 33,2157           54002                           TS       Q                                     
038223,000222: 
038224,000223: 33,2160           00006                           EXTEND                                         
038225,000224: 33,2161           31514                           DCA      ABDVCONV                              
038226,000225: 33,2162           00006                           EXTEND                                         
038227,000226: 33,2163           10002                           DV       Q                                     #  WHERE APPROPRIATE VEX RESIDES
038228,000227: 33,2164           00006                           EXTEND                                         
038229,000228: 33,2165           71243                           MP       MASS                                  
038230,000229: 33,2166           21571                           DAS      MASS1                                 
038231,000230: 
038232,000231: 33,2167           07124                           TC       DMP                                   #  TP MPAC = ABDELV AT 2(14) CM/SEC

Page 865

038234,000233: 33,2170           02073                           ADRES    KPIP1                                 #  DMP BY  DP KPIP1 TO GET
038235,000234: 33,2171           00006                           EXTEND                                         
038236,000235: 33,2172           31510                           DCA      DVTOTAL                               
038237,000236: 33,2173           20155                           DAS      MPAC                                  #  MPAC = ABDELV AT 2(7) M/CS
038238,000237: 33,2174           52155                           DXCH     MPAC                                  
038239,000238: 33,2175           53174                           DXCH     DVTEMP                                #  SAVE NEW DVTOTAL FOR RESTARTS
038240,000239: 
038241,000240: 33,2176           03473                           TC       QUIKFAZ5                              
038242,000241: 
038243,000242: 33,2177           00006                           EXTEND                                         
038244,000243: 33,2200           31174                           DCA      DVTEMP                                
038245,000244: 33,2201           53510                           DXCH     DVTOTAL                               
038246,000245: 
038247,000246: 33,2202           02367        MOONSPOT           TC       TMPTOSPT                              #  CDUS AT PIPTIME LOADED INTO CDUSPOT CELL
038248,000247: 33,2203           04607                           TC       BANKCALL                              #  SINES AND COSINES OF CDUSPOT.
038249,000248: 33,2204           47607                           CADR     QUICTRIG                              
038250,000249: 
038251,000250: 33,2205           32343                           CAF      XNBPIPAD                              
038252,000251: 33,2206           04607                           TC       BANKCALL                              #  COMPUTE BOD-TO-SM MATRIX (XNB),AND
038253,000252: 33,2207           20037                           CADR     FLESHPOT                              #  STORE INTO XNBPIPAD.
038254,000253: 
038255,000254: 33,2210           06060                           TC       INTPRET                               
038256,000255: 33,2211           45014        AVERAGEG           BON      CALL                                  
038257,000256: 33,2212           03307                                    MUNFLAG                               #  COMPUTE LM & CM STATE VECTORS IN LUNAR G
038258,000257: 33,2213           66744                                    RVBOTH                                #  ,DO R12 , DO COPYCYCL1, RETURN AT COPYCL
038259,000258: 33,2214           66710                                    CALCRVG                               #  UPDATE LM STATE VECTOR.
038260,000259: 33,2215           77776                           EXIT                                           
038261,000260: 33,2216           03473        GOSERV             TC       QUIKFAZ5                              
038262,000261: 
038263,000262: 33,2217           02352        COPYCYCL           TC       COPYCYC                               #  RN1,VN1,MASS1 => RN,VN,MASS.
038264,000263: 
038265,000264:                                                                                                  #                CA      ZERO            A IS ZERO ON RETURN FROM COPYCYC
038266,000265: 33,2220           55157                           TS       PIPATMPX                              #  STILL UNDER INHINT
038267,000266: 33,2221           55160                           TS       PIPATMPY                              
038268,000267: 33,2222           55161                           TS       PIPATMPZ                              
038269,000268: 
038270,000269: 33,2223           44732                           CS       STEERBIT                              #  CLEAR STEERSW PRIOR TO DVMON.
038271,000270: 33,2224           70076                           MASK     FLAGWRD2                              
038272,000271: 33,2225           54076                           TS       FLAGWRD2                              
038273,000272: 
038274,000273: 33,2226           34736                           CAF      IDLEFBIT                              #  IS DV MONITOR TO BE TURNED ON?
038275,000274: 33,2227           70103                           MASK     FLAGWRD7                              
038276,000275: 33,2230           10000                           CCS      A                                     
038277,000276: 33,2231           12264                           TCF      NODVMON1                              #  NO: SET AUXFLAG TO 0
038278,000277: 
038279,000278: 33,2232           40102                           CS       FLAGWRD6                              #  ALLOW ANOTHER PASS WITHOUT DVMON?
038280,000279: 33,2233           74743                           MASK     AUXFLBIT                              
038281,000280: 33,2234           10000                           CCS      A                                     
038282,000281: 33,2235           12270                           TCF      NODVMON2                              #  YES: SET AUXFLAG TO 0
038283,000282: 

Page 866

038285,000284: 33,2236           41250        DVMON              CS       DVTHRUSH                              #  SUFFICIENT THRUST TO STEER WITH?
038286,000285: 33,2237           61245                           AD       ABDELV                                
038287,000286: 33,2240           00006                           EXTEND                                         
038288,000287: 33,2241           62274                           BZMF     LOTHRUST                              #  NO: THRUST TOO LO, DECREMENT DVCNTR
038289,000288: 
038290,000289: 33,2242           40076                           CS       FLAGWRD2                              #  YES: SET STEERSW TO ALLOW GUIDANCE.
038291,000290: 33,2243           74732                           MASK     STEERBIT                              
038292,000291: 33,2244           26076                           ADS      FLAGWRD2                              
038293,000292: 
038294,000293: 33,2245           34744        DVCNTSET           CAF      ONE                                   #  ALLOW TWO PASSES MAXIMUM NOW THAT
038295,000294: 33,2246           55515                           TS       DVCNTR                                #  THRUST HAS BEEN DETECTED.
038296,000295: 
038297,000296: 33,2247           30106                           CA       FLGWRD10                              #  IS APSFLAG SET?
038298,000297: 33,2250           74730                           MASK     APSFLBIT                              
038299,000298: 33,2251           10000                           CCS      A                                     
038300,000299: 33,2252           12317                           TCF      USEJETS                               #  YES: USE RCS TO STEER ASCENT STAGE.
038301,000300: 
038302,000301: 33,2253           34734                           CA       BIT9                                  #  NO: PITCH GIMBAL FAILURE?
038303,000302: 33,2254           00006                           EXTEND                                         
038304,000303: 33,2255           02032                           RAND     CHAN32                                
038305,000304: 33,2256           00006                           EXTEND                                         
038306,000305: 33,2257           12317                           BZF      USEJETS                               #  YES: USE RCS TO STEER DESCENT STAGE.
038307,000306: 
038308,000307: 33,2260           44727        USEGTS             CS       USEQRJTS                              #  NO: USE GTS TO STEER DESCENT STAGE.
038309,000308: 33,2261           70111                           MASK     DAPBOOLS                              
038310,000309: 33,2262           54111                           TS       DAPBOOLS                              
038311,000310: 33,2263           12322                           TCF      SERVOUT                               
038312,000311: 
038313,000312: 33,2264           44743        NODVMON1           CS       AUXFLBIT                              #  SET AUXFLAG TO 0.
038314,000313: 33,2265           70102                           MASK     FLAGWRD6                              
038315,000314: 33,2266           54102                           TS       FLAGWRD6                              
038316,000315: 33,2267           12317                           TCF      USEJETS                               
038317,000316: 33,2270           40102        NODVMON2           CS       FLAGWRD6                              #  SET AUXFLAG TO 1.
038318,000317: 33,2271           74743                           MASK     AUXFLBIT                              
038319,000318: 33,2272           26102                           ADS      FLAGWRD6                              
038320,000319: 33,2273           12317                           TCF      USEJETS                               
038321,000320: 
038322,000321: 33,2274           03473        LOTHRUST           TC       QUIKFAZ5                              
038323,000322: 33,2275           11515                           CCS      DVCNTR                                #  TWO PASSES OF LO THRUST?
038324,000323: 33,2276           12310                           TCF      DECCNTR                               #  NO: DECREMENT DVCNTR.
038325,000324: 
038326,000325: 33,2277           10760                           CCS      PHASE4                                #  COMFAIL JOB ACTIVE?
038327,000326: 33,2300           12322                           TCF      SERVOUT                               #  YES   WON'T NEED ANOTHER.
038328,000327: 
038329,000328: 33,2301           05355                           TC       PHASCHNG                              #  4.37SPOT FOR COMFAIL.
038330,000329: 33,2302           00374                           OCT      00374                                 
038331,000330: 
038332,000331: 33,2303           37734                           CAF      PRIO25                                
038333,000332: 33,2304           05063                           TC       NOVAC                                 
038334,000333: 33,2305  E7,1455                                  EBANK=   WHICH                                 

Page 867

038336,000335: 33,2305           02570 74067                     2CADR    COMFAIL                               #  ESTABLISH JOB COMFAIL FOR
038337,000336: 
038338,000337: 33,2307           12322                           TCF      SERVOUT                               #  THRUST FAIL LOGIC.
038339,000338: 
038340,000339: 33,2310           55570        DECCNTR            TS       DVCNTR1                               
038341,000340: 33,2311           03473                           TC       QUIKFAZ5                              
038342,000341: 33,2312           31570                           CA       DVCNTR1                               
038343,000342: 33,2313           55515                           TS       DVCNTR                                
038344,000343: 33,2314           00004                           INHINT                                         
038345,000344: 33,2315           04665                           TC       IBNKCALL                              #  IF THRUST IS LOW, NO STEERING IS DONE
038346,000345: 33,2316           40166                           CADR     STOPRATE                              #  AND THE DESIRED RATES ARE SET TO ZERO.
038347,000346: 33,2317           40111        USEJETS            CS       DAPBOOLS                              
038348,000347: 33,2320           74727                           MASK     USEQRJTS                              
038349,000348: 33,2321           26111                           ADS      DAPBOOLS                              #  TELL DAP TO USE RCS TO STEER.
038350,000349: 
038351,000350: 33,2322           00003        SERVOUT            RELINT                                         
038352,000351: 33,2323           04607                           TC       BANKCALL                              #  COMPUTE VEHICLE MOMENTS OF INERTIA.
038353,000352: 33,2324           40463                           CADR     1/ACCS                                
038354,000353: 
038355,000354: 33,2325           30167                           CA       PRIORITY                              
038356,000355: 33,2326           74775                           MASK     LOW9                                  
038357,000356: 33,2327           54166                           TS       PUSHLOC                               
038358,000357: 33,2330           22007                           ZL                                             
038359,000358: 33,2331           52121                           DXCH     FIXLOC                                #  FIXLOC AND OVFIND
038360,000359: 
038361,000360: 33,2332           03473                           TC       QUIKFAZ5                              
038362,000361: 33,2333           41234                           CS       PIPTIME    +1                         
038363,000362: 33,2334           60025                           AD       TIME1                                 
038364,000363: 33,2335           64727                           AD       HALF                                  
038365,000364: 33,2336           64727                           AD       HALF                                  
038366,000365: 33,2337           57355                           XCH      SERVDURN                              #  SERVICER DURATION FOR DOWNLINK
038367,000366: 33,2340           00006                           EXTEND                                         #  EXIT TO SELECTED ROUTINE WHETHER THERE
038368,000367: 33,2341           31252                           DCA      AVGEXIT                               #  IS THRUST OR NOT.  THE STATE OF STEERSW
038369,000368: 33,2342           52006                           DXCH     Z                                     #  WILL CONVEY THIS INFORMATION.
038370,000369: 
038371,000370: 33,2343           02136        XNBPIPAD           ECADR    XNBPIP                                
038372,000371: 
038373,000372: 32,3656                                           BANK     32                                    
038374,000373: 22,2000                                           SETLOC   SERV2                                 
038375,000374: 22,2000                                           BANK                                           
038376,000375: 22,3663                                           COUNT*   $$/SERV                               
038377,000376: 
038378,000377: 22,3663           31234        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT,AVEGFLAG SET.
038379,000378: 22,3664           55074                           TS       1/PIPADT                              #  SET UP COASTING FLIGHT GYRO COMPENSATION
038380,000379: 
038381,000380: 22,3665           05506                           TC       UPFLAG                                #  SET DRIFT FLAG, TERMINATE POWERED FLITE
038382,000381: 22,3666           00036                           ADRES    DRIFTFLG                              #  GYRO COMPENSATION.

The above two instructions are circled.

038384,000383: 
038385,000384: 22,3667           04607                           TC       BANKCALL                              
038386,000385: 22,3670           17275                           CADR     PIPFREE                               
038387,000386: 

Page 868

038389,000388: 22,3671           44734                           CS       BIT9                                  
038390,000389: 22,3672           00006                           EXTEND                                         
038391,000390: 22,3673           03011                           WAND     DSALMOUT                              #  TELL WORLD THAT AVERAGEG IS NOW OFF.
038392,000391: 
038393,000392: 22,3674           05331                           TC       2PHSCHNG                              
038394,000393: 22,3675           00005                           OCT      5                                     #  GROUP 5 OFF
038395,000394: 22,3676           05022                           OCT      05022                                 #  GROUP 2 ON
038396,000395: 22,3677           20000                           OCT      20000                                 
038397,000396: 
038398,000397: 22,3700           06060                           TC       INTPRET                               
038399,000398: 22,3701           77614                           CLEAR                                          
038400,000399: 22,3702           03664                                    SWANDISP                              #  SHUT OFF R10 WHEN SERVICER ENDS.
038401,000400: 22,3703           45014                           CLEAR    CALL                                  #  RESET MUNFLAG.
038402,000401: 22,3704           03267                                    MUNFLAG                               
038403,000402: 22,3705           27522                                    AVETOMID                              #  BRING CM STATE VECTOR UP TO PIPTIME.
038404,000403: 22,3706           77414                           CLEAR    EXIT                                  
038405,000404: 22,3707           03671                                    V37FLAG                               
038406,000405: 
038407,000406: 22,3710           04626        AVERTRN            TC       POSTJUMP                              
038408,000407: 22,3711           10144                           CADR     V37RET                                #  GO TO V37 LOGIC.
038409,000408: 
038410,000409: 22,3712  22,3710               OUTGOAVE           =        AVERTRN                               
038411,000410: 

Page 869

038413,000412:                                                                                                  #  SERVIDLE IS ENTERED AFTER A POODOO SOFTWARE RESTART. SERVICER CONTINUES,BUT GUIDANCE AND R12 ( IF RUNNING) ARE
038414,000413:                                                                                                  #  TERMINATED. ABORTS MONITOR CONTINUES TO RUN.
038415,000414: 
038416,000415: 27,2000                                           SETLOC   SERV3                                 
038417,000416: 27,2000                                           BANK                                           
038418,000417: 27,3324                                           COUNT*   $$/SERV                               
038419,000418: 
038420,000419: 27,3324           00006        SERVIDLE           EXTEND                                         #  DISCONNECT SERVICER FROM ALL GUIDANCE
038421,000420: 27,3325           33362                           DCA      SVEXTADR                              
038422,000421: 27,3326           53252                           DXCH     AVGEXIT                               
038423,000422: 
038424,000423: 27,3327           40103                           CS       FLAGWRD7                              #  DISCONNECT THE DELTA-V MONITOR
038425,000424: 27,3330           74736                           MASK     IDLEFBIT                              
038426,000425: 27,3331           26103                           ADS      FLAGWRD7                              
038427,000426: 
038428,000427: 27,3332           34726                           CAF      LRBYBIT                               #  TERMINATE R12 IF RUNNING.
038429,000428: 27,3333           54107                           TS       FLGWRD11                              
038430,000429: 
038431,000430: 27,3334           00006                           EXTEND                                         
038432,000431: 27,3335           34746                           DCA      NEG0                                  
038433,000432: 27,3336           52752                           DXCH     -PHASE1                               
038434,000433: 
038435,000434: 27,3337           30102                           CA       FLAGWRD6                              #  DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
038436,000435: 27,3340           74735                           MASK     MUNFLBIT                              
038437,000436: 27,3341           10000                           CCS      A                                     
038438,000437: 27,3342           13346                           TCF      +4                                    
038439,000438: 
038440,000439: 27,3343           00006                           EXTEND                                         
038441,000440: 27,3344           34746                           DCA      NEG0                                  
038442,000441: 27,3345           52754                           DXCH     -PHASE2                               
038443,000442: 
038444,000443: 27,3346           00006                 +4        EXTEND                                         
038445,000444: 27,3347           34746                           DCA      NEG0                                  
038446,000445: 27,3350           52756                           DXCH     -PHASE3                               
038447,000446: 
038448,000447: 27,3351           00006                           EXTEND                                         
038449,000448: 27,3352           34746                           DCA      NEG0                                  
038450,000449: 27,3353           52764                           DXCH     -PHASE6                               
038451,000450: 
038452,000451: 27,3354           34755                           CAF      OCT33                                 #  4.33SPOT FOR GOPOOFIX
038453,000452: 27,3355           54001                           TS       L                                     
038454,000453: 27,3356           40000                           COM                                            
038455,000454: 27,3357           52760                           DXCH     -PHASE4                               
038456,000455: 
038457,000456: 27,3360           15636                           TCF      WHIMPER                               #  PERFORM A SOFTWARE RESTART AND PROCEED
038458,000457:                                                                                                  #  TO GOTOPOOH WHILE SERVICER CONTINUES TO
038459,000458:                                                                                                  #  RUN, ALBEIT IN A GROUND STATE WHERE
038460,000459:                                                                                                  #  ONLY STATE-VECTOR DEPENDENT FUNCTIONS
038461,000460:                                                                                                  #  ARE MAINTAINED.
038462,000461: 

Page 870

038464,000463: 27,3361  E7,1515                                  EBANK=   DVCNTR                                
038465,000464: 27,3361           03656 64067  SVEXTADR           2CADR    SERVEXIT                              
038466,000465: 
038467,000466: 
038468,000467: 
038469,000468: 32,3656                                           BANK     32                                    
038470,000469: 32,2000                                           SETLOC   SERV                                  
038471,000470: 32,2000                                           BANK                                           
038472,000471: 32,3656                                           COUNT*   $$/SERV                               
038473,000472: 
038474,000473: 32,3656           05355        SERVEXIT           TC       PHASCHNG                              
038475,000474: 32,3657           00035                           OCT      00035                                 
038476,000475: 
038477,000476: 32,3660           15146                           TCF      ENDOFJOB                              
038478,000477: 

Page 871

038480,000479:                                                                                                  #  NORMLIZE AND COPYCYCL
038481,000480: 
038482,000481: 32,3661           06060        NORMLIZE           TC       INTPRET                               
038483,000482: 32,3662           43175                           VLOAD    BOFF                                  
038484,000483: 32,3663           03545                                    RN1                                   
038485,000484: 32,3664           03347                                    MUNFLAG                               
038486,000485: 32,3665           66344                                    NORMLIZ1                              #  DO NOT USE LUNAR LANDING AVERAGE G
038487,000486: 32,3666           64252                           VSL6     MXV                                   
038488,000487: 32,3667           01732                                    REFSMMAT                              
038489,000488: 32,3670           37521                           STCALL   R                                     #  LM POS VECTOR IN SM COORD AT 2(+24)M.
038490,000489: 32,3671           67037                                    MUNGRAV                               #  USE LUNAR LANDING AVERAGE G ROUTINE.
038491,000490: 32,3672           76575                           VLOAD    VSL1                                  
038492,000491: 32,3673           03553                                    VN1                                   
038493,000492: 32,3674           77721                           MXV                                            
038494,000493: 32,3675           01732                                    REFSMMAT                              
038495,000494: 32,3676           03527                           STORE    V                                     #  LM VEL VECTOR IN SM COORD AT 2(+7)M/CS.
038496,000495: 32,3677           41535                           SLOAD    PUSH                                  #  COMPUTE PIPA BIAS VECTOR FOR USE BY
038497,000496: 32,3700           01457                                    PBIASZ                                #    P66ROD AND LANDING ANALOG DISPLAYS
038498,000497: 32,3701           41535                           SLOAD    PUSH                                  
038499,000498: 32,3702           01455                                    PBIASY                                
038500,000499: 32,3703           55535                           SLOAD    VDEF                                  
038501,000500: 32,3704           01453                                    PBIASX                                
038502,000501: 32,3705           77761                           VXSC                                           
038503,000502: 32,3706           26641                                    BIASFACT                              
038504,000503: 32,3707           02616                           STORE    VBIAS                                 #  ONE SECOND'S BIAS IN UNITS OF 2(7) M/CS
038505,000504: 32,3710           77776        ASCSPOT            EXIT                                           
038506,000505: 32,3711           00006                           EXTEND                                         #  MAKE SURE GOUP 2 IS OFF.
038507,000506: 32,3712           34746                           DCA      NEG0                                  
038508,000507: 32,3713           52754                           DXCH     -PHASE2                               
038509,000508: 
038510,000509: 32,3714           04626                           TC       POSTJUMP                              
038511,000510: 32,3715           66347                           CADR     NORMLIZ2                              
038512,000511: 
038513,000512: 33,2344                                           BANK     33                                    
038514,000513: 33,2000                                           SETLOC   SERVICES                              
038515,000514: 33,2000                                           BANK                                           
038516,000515: 33,2344                                           COUNT*   $$/SERV                               
038517,000516: 
038518,000517: 33,2344           77624        NORMLIZ1           CALL                                           
038519,000518: 33,2345           66642                                    CALCGRAV                              
038520,000519: 33,2346           77776                           EXIT                                           
038521,000520: 
038522,000521: 33,2347           32366        NORMLIZ2           CA       EIGHTEEN                              
038523,000522: 33,2350           02353                           TC       COPYCYC    +1                         #  DO NOT COPY MASS IN NORMLIZE
038524,000523: 33,2351           05146                           TC       ENDOFJOB                              
038525,000524: 
038526,000525:                                                                                                  #  COPYCYC PLACES NEWLY NAVIGATED STATE VECTORS AND MASS INTO DOWNLIST REG
038527,000526: 
038528,000527: 33,2352           36007        COPYCYC            CA       OCT24                                 #  DEC 20

Page 872

038530,000529: 33,2353           00004                 +1        INHINT                                         
038531,000530: 33,2354           77770                 +2        MASK     NEG1                                  #  REDUCE BY 1 IF ODD
038532,000531: 33,2355           54061                           TS       ITEMP1                                
038533,000532: 33,2356           00006                           EXTEND                                         
038534,000533: 33,2357           50061                           INDEX    ITEMP1                                
038535,000534: 33,2360           31545                           DCA      RN1                                   
038536,000535: 33,2361           50061                           INDEX    ITEMP1                                
038537,000536: 33,2362           53220                           DXCH     RN                                    
038538,000537: 33,2363           10061                           CCS      ITEMP1                                
038539,000538: 33,2364           12354                           TCF      COPYCYC    +2                         
038540,000539: 33,2365           00002                           TC       Q                                     #  RETURN UNDER INHINT
038541,000540: 
038542,000541: 
038543,000542: 33,2366           00022        EIGHTEEN           DEC      18         B-14                       
038544,000543: 

Page 873

038546,000545:                                                                                                  #  ******************* PIPA READER ********************
038547,000546: 
038548,000547:                                                                                                  #                  MOD NO. 00  BY D. LICKLY  DEC.9 1966
038549,000548: 
038550,000549: 
038551,000550:                                                                                                  #  FUNCTIONAL DESCRIPTION
038552,000551:                                                                                                  #     SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
038553,000552:                                                                                                  #     PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
038554,000553:                                                                                                  #     RESTARTS BEGIN AT REREADAC.
038555,000554: 
038556,000555: 
038557,000556:                                                                                                  #     AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
038558,000557:                                                                                                  #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
038559,000558:                                                                                                  #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
038560,000559:                                                                                                  #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
038561,000560: 
038562,000561:                                                                                                  #  CALLING SEQUENCE AND EXIT
038563,000562: 
038564,000563:                                                                                                  #     CALL VIA TC, ISWCALL, ETC.
038565,000564: 
038566,000565:                                                                                                  #     EXIT IS VIA Q.
038567,000566: 
038568,000567: 
038569,000568: 
038570,000569: 
038571,000570:                                                                                                  #  INPUT
038572,000571: 
038573,000572:                                                                                                  #     INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
038574,000573: 
038575,000574: 
038576,000575:                                                                                                  #  OUTPUT
038577,000576: 
038578,000577:                                                                                                  #     HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
038579,000578:                                                                                                  #     PIPTIME CONTAINS TIME OF PIPA READING.
038580,000579: 
038581,000580: 
038582,000581:                                                                                                  #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
038583,000582: 
038584,000583:                                                                                                  #           TEMX   TEMY   TEMZ   PIPAGE
038585,000584: 
038586,000585: 
038587,000586: 37,3540                                           BANK     37                                    
038588,000587: 37,2000                                           SETLOC   SERV1                                 
038589,000588: 37,2000                                           BANK                                           
038590,000589: 
038591,000590: 37,3540                                           COUNT*   $$/SERV                               
038592,000591: 
038593,000592: 37,3540           00006        PIPASR             EXTEND                                         

Page 874

038595,000594: 37,3541           30025                           DCA      TIME2                                 
038596,000595: 37,3542           53561                           DXCH     PIPTIME1                              #  CURRENT TIME  POSITIVE VALUE
038597,000596: 37,3543           44746                 +3        CS       ZERO                                  #  INITIALIZE THESE AT NEG. ZERO.
038598,000597: 37,3544           55253                           TS       TEMX                                  
038599,000598: 37,3545           55254                           TS       TEMY                                  
038600,000599: 37,3546           55255                           TS       TEMZ                                  
038601,000600: 
038602,000601: 37,3547           34746                           CA       ZERO                                  
038603,000602: 37,3550           54330                           TS       DELVZ                                 
038604,000603: 37,3551           54331                           TS       DELVZ      +1                         
038605,000604: 37,3552           54326                           TS       DELVY                                 
038606,000605: 37,3553           54327                           TS       DELVY      +1                         
038607,000606: 37,3554           54325                           TS       DELVX      +1                         
038608,000607: 37,3555           55256                           TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
038609,000608: 
038610,000609: 37,3556           00006        REPIP1             EXTEND                                         
038611,000610: 37,3557           40040                           DCS      PIPAX                                 #  X AND Y PIPS READ
038612,000611: 37,3560           53254                           DXCH     TEMX                                  
038613,000612: 37,3561           52040                           DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
038614,000613: 37,3562           54324                           TS       DELVX                                 
038615,000614: 37,3563           22326                           LXCH     DELVY                                 
038616,000615: 
038617,000616: 37,3564           40041        REPIP3             CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
038618,000617: 37,3565           57255                           XCH      TEMZ                                  
038619,000618: 37,3566           56041                           XCH      PIPAZ                                 
038620,000619: 37,3567           54330        DODELVZ            TS       DELVZ                                 
038621,000620: 
038622,000621: 37,3570           00006        REPIP4             EXTEND                                         #  COMPUTE GUIDANCE PERIOD
038623,000622: 37,3571           31561                           DCA      PIPTIME1                              
038624,000623: 37,3572           53247                           DXCH     PGUIDE                                
038625,000624: 37,3573           00006                           EXTEND                                         
038626,000625: 37,3574           41234                           DCS      PIPTIME                               
038627,000626: 37,3575           21247                           DAS      PGUIDE                                
038628,000627: 
038629,000628: 37,3576           30032                           CA       CDUX                                  #  READ CDUS INTO HIGH ORDER CDUTEMPS
038630,000629: 37,3577           55154                           TS       CDUTEMPX                              
038631,000630: 37,3600           30033                           CA       CDUY                                  
038632,000631: 37,3601           55155                           TS       CDUTEMPY                              
038633,000632: 37,3602           30034                           CA       CDUZ                                  
038634,000633: 37,3603           55156                           TS       CDUTEMPZ                              
038635,000634: 37,3604           30324                           CA       DELVX                                 
038636,000635: 37,3605           55157                           TS       PIPATMPX                              
038637,000636: 37,3606           30326                           CA       DELVY                                 
038638,000637: 37,3607           55160                           TS       PIPATMPY                              
038639,000638: 37,3610           30330                           CA       DELVZ                                 
038640,000639: 37,3611           55161                           TS       PIPATMPZ                              
038641,000640: 
038642,000641: 37,3612           00002                           TC       Q                                     

In the margins above there are some doodles of something I can't quite make out. Possibly satellites.

038644,000643: 

Page 875

038646,000645: 37,3613           11256        REREADAC           CCS      PIPAGE                                
038647,000646: 37,3614           13430                           TCF      READACCS                              #  PIP READING NOT STARTED. GO TO BEGINNING
038648,000647: 
038649,000648: 37,3615           33653                           CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
038650,000649: 37,3616           54002                           TS       Q                                     
038651,000650: 
038652,000651: 37,3617           10330                           CCS      DELVZ                                 
038653,000652: 37,3620           13570                           TCF      REPIP4                                #  Z DONE, GO DO CDUS
038654,000653: 37,3621           13624                           TCF      +3                                    #  Z NOT DONE, CHECK Y.
038655,000654: 37,3622           13570                           TCF      REPIP4                                
038656,000655: 37,3623           13570                           TCF      REPIP4                                
038657,000656: 
038658,000657: 37,3624           22007                           ZL                                             
038659,000658: 37,3625           10326                           CCS      DELVY                                 
038660,000659: 37,3626           13631                           TCF      +3                                    
038661,000660: 37,3627           13640                           TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
038662,000661: 37,3630           13631                           TCF      +1                                    
038663,000662: 37,3631           22041                           LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
038664,000663: 
038665,000664: 37,3632           11255                           CCS      TEMZ                                  
038666,000665: 37,3633           41255                           CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
038667,000666: 37,3634           13567                           TCF      DODELVZ                               
038668,000667: 37,3635           13633                           TCF      -2                                    
038669,000668: 37,3636           22330                           LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
038670,000669: 37,3637           13570                           TCF      REPIP4                                
038671,000670: 
038672,000671: 37,3640           11253        CHKTEMX            CCS      TEMX                                  #  HAS THIS CHANGED
038673,000672: 37,3641           41253                           CS       TEMX                                  #  YES
038674,000673: 37,3642           13645                           TCF      +3                                    #  YES
038675,000674: 37,3643           13641                           TCF      -2                                    #  YES
038676,000675: 37,3644           13556                           TCF      REPIP1                                #  NO
038677,000676: 37,3645           54324                           TS       DELVX                                 
038678,000677: 
038679,000678: 37,3646           41254                           CS       TEMY                                  
038680,000679: 37,3647           54326                           TS       DELVY                                 
038681,000680: 
038682,000681: 37,3650           44746                           CS       ZERO                                  #  ZERO X AND Y PIPS
038683,000682: 37,3651           52040                           DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
038684,000683: 
038685,000684: 37,3652           13564                           TCF      REPIP3                                
038686,000685: 
038687,000686: 37,3653           03440        DONEADR            GENADR   PIPSDONE                              
038688,000687: 

Page 876

038690,000689: 33,2367                                           BANK     33                                    
038691,000690: 33,2000                                           SETLOC   SERVICES                              
038692,000691: 33,2000                                           BANK                                           
038693,000692: 
038694,000693: 33,2367                                           COUNT*   $$/SERV                               
038695,000694: 
038696,000695: 33,2367           31155        TMPTOSPT           CA       CDUTEMPY                              #  THIS SUBROUTINE, CALLED BY AN RTB FROM
038697,000696: 33,2370           54765                           TS       CDUSPOTY                              #  INTERPRETIVE, LOADS THE CDUS CORRESPON-
038698,000697: 33,2371           31156                           CA       CDUTEMPZ                              #  DING TO PIPTIME INTO THE CDUSPOT VECTOR.
038699,000698: 33,2372           54767                           TS       CDUSPOTZ                              
038700,000699: 33,2373           31154                           CA       CDUTEMPX                              
038701,000700: 33,2374           54771                           TS       CDUSPOTX                              
038702,000701: 33,2375           00002                           TC       Q                                     
038703,000702: 
038704,000703: 33,2376                                           BANK     33                                    
038705,000704: 33,2000                                           SETLOC   SERVICES                              
038706,000705: 33,2000                                           BANK                                           
038707,000706: 
038708,000707: 33,2376                                           COUNT*   $$/SERV                               
038709,000708: 
038710,000709:                                                                                                  #  HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
038711,000710:                                                                                                  #  DESCENT PHASE.  HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
038712,000711:                                                                                                  #  FLAG (BIT10) IN LRSTAT.  THE HIGATJOB IS SET UP TO REPOSITION THE LR
038713,000712:                                                                                                  #  ANTENNA FROM POSITION 1 TO POSITION 2.  IF THE REPOSITIONING IS
038714,000713:                                                                                                  #  SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
038715,000714:                                                                                                  #  ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
038716,000715: 
038717,000716: 33,2376           05355        HIGATASK           TC       PHASCHNG                              
038718,000717: 33,2377           00051                           OCT      51                                    
038719,000718: 
038720,000719: 33,2400           37741                           CA       PRIO32                                
038721,000720: 33,2401           05076                           TC       FINDVAC                               
038722,000721: 33,2402  E7,1654                                  EBANK=   HMEAS                                 
038723,000722: 33,2402           03561 66067                     2CADR    HIGATJOB                              
038724,000723: 
038725,000724: 33,2404           40107                           CS       FLGWRD11                              
038726,000725: 33,2405           75006                           MASK     PRIO3                                 
038727,000726: 33,2406           26107                           ADS      FLGWRD11                              
038728,000727: 33,2407           12502                           TCF      CONTSERV   +1                         
038729,000728: 

Page 877

038731,000730:                                                                                                  #     MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
038732,000731: 
038733,000732: 33,2410           77776        MUNRETRN           EXIT                                           
038734,000733: 
038735,000734: 33,2411           40107                           CS       FLGWRD11                              
038736,000735: 33,2412           74726                           MASK     LRBYBIT                               
038737,000736: 33,2413           00006                           EXTEND                                         
038738,000737: 33,2414           12505                           BZF      COPYCYC1                              #  BYPASS LR LOGIC IF BIT15 IS SET.
038739,000738: 
038740,000739: 33,2415           40107                           CS       FLGWRD11                              #  CHECK IF AT 30000 FT
038741,000740: 33,2416           74734                           MASK     XORFLBIT                              
038742,000741: 33,2417           00006                           EXTEND                                         
038743,000742: 33,2420           12432                           BZF      LROFF?                                
038744,000743: 
038745,000744: 33,2421           00006        30KCHK             EXTEND                                         
038746,000745: 33,2422           33062                           DCA      1-30KFT                               
038747,000746: 33,2423           20155                           DAS      MPAC                                  #  HCALC IS STILL IN MPAC FROM RVBOTH
038748,000747: 
038749,000748: 33,2424           10000                           CCS      A                                     
038750,000749: 33,2425           12444                           TCF      R12                                   #  ALTITUDE > 30KFT
038751,000750: 33,2426           05506                           TC       UPFLAG                                #  ALTITUDE < 30KFT SET X-AXIS OVERRIDE
038752,000751: 33,2427           00311                           ADRES    XOVINFLG                              
038753,000752: 33,2430           05506                           TC       UPFLAG                                
038754,000753: 33,2431           00253                           ADRES    XORFLG                                
038755,000754: 
038756,000755: 33,2432           31534        LROFF?             CA       HCALC                                 
038757,000756: 33,2433           00006                           EXTEND                                         #  IF HIGH ORDER PART ZERO, H < 3000 FT,
038758,000757: 33,2434           12436                           BZF      +2                                    #    SO MAKE CUTOFF TEST
038759,000758: 33,2435           12444                           TCF      R12                                   
038760,000759: 33,2436           41535                           CS       HCALC      +1                         
038761,000760: 33,2437           61451                           AD       HLROFF                                
038762,000761: 33,2440           00006                           EXTEND                                         
038763,000762: 33,2441           62444                           BZMF     R12                                   #  IF H < HLROFF, RESET LR PERMIT FLAG
038764,000763: 33,2442           05520                           TC       DOWNFLAG                              
038765,000764: 33,2443           00254                           ADRES    LRINH                                 
038766,000765: 
038767,000766: 33,2444           40107        R12                CS       FLGWRD11                              
038768,000767: 33,2445           74733                           MASK     NOLRRBIT                              
038769,000768: 33,2446           00006                           EXTEND                                         
038770,000769: 33,2447           12501                           BZF      CONTSERV                              
038771,000770: 
038772,000771: 33,2450           34767        POSTST             CA       BITS6+7                               #  TEST LANDING RADAR POSITION DISCRETES
038773,000772: 33,2451           00006                           EXTEND                                         
038774,000773: 33,2452           02033                           RAND     CHAN33                                
038775,000774: 33,2453           00006                           EXTEND                                         
038776,000775: 33,2454           74733                           MP       BIT10                                 #  SHIFT BITS 6+7 TO BITS 1+2
038777,000776: 
038778,000777: 33,2455           50000                           INDEX    A                                     
038779,000778: 33,2456           12457                           TCF      +1                                    
038780,000779: 33,2457           12462                           TCF      511?                                  #  A = 0 - BOTH DISCRETES PRESENT

Page 878

038782,000781: 33,2460           12471                           TCF      POSCHNG?                              #  A = 1 - POSITION 2
038783,000782: 33,2461           12471                           TCF      POSCHNG?                              #  A = 2 - POSITION 1
038784,000783: 33,2462           11622        511?               CCS      511CTR                                #  IF CONDITION PERSISTS FOR FIVE
038785,000784: 33,2463           12467                           TCF      ST511CTR                              #  CONSECUTIVE PASSES,ISSUE 511 ALARM
038786,000785: 33,2464           05571                           TC       ALARM                                 
038787,000786: 33,2465           00511                           OCT      511                                   
038788,000787: 33,2466           44746                           CS       ZERO                                  #  SET CTR TO -0 TO BYPASS ALARM
038789,000788: 33,2467           55622        ST511CTR           TS       511CTR                                
038790,000789: 33,2470           12501                           TCF      CONTSERV                              
038791,000790: 33,2471           54001        POSCHNG?           TS       L                                     
038792,000791: 33,2472           34742                           CA       FOUR                                  #  SET 511CTR TO RE-ENABLE 511 ALARM
038793,000792: 33,2473           55622                           TS       511CTR                                
038794,000793: 33,2474           23650                           LXCH     LRPOS                                 #  UPDATE LRPOS
038795,000794: 33,2475           41650                           CS       LRPOS                                 #  COMPARE OLD AND NEW POSITIONS
038796,000795: 33,2476           60001                           AD       L                                     
038797,000796: 33,2477           00006                           EXTEND                                         #  IF OLDPOS = NEWPOS,
038798,000797: 33,2500           13064                           BZF      UPDATCHK                              #  TRY TO UPDATE WITH LR DATA
038799,000798: 
038800,000799: 33,2501           00004        CONTSERV           INHINT                                         
038801,000800: 33,2502           43060                           CS       BITS4-7                               
038802,000801: 33,2503           70107                           MASK     FLGWRD11                              #  CLEAR LR MEASUREMENT MADE DISCRETES.
038803,000802: 33,2504           54107                           TS       FLGWRD11                              
038804,000803: 

Page 879

038806,000805: 33,2505           03473        COPYCYC1           TC       QUIKFAZ5                              
038807,000806: 
038808,000807: 33,2506           30120                           CA       FIXLOC                                #  BATTEN DOWN THE HATCHES
038809,000808: 33,2507           54166                           TS       PUSHLOC                               
038810,000809: 
038811,000810: 33,2510           06060                           TC       INTPRET                               
038812,000811: 33,2511           51575                           VLOAD    ABVAL                                 
038813,000812: 33,2512           03573                                    R1S                                   
038814,000813: 33,2513           45206                           PUSH     DSU                                   
038815,000814: 33,2514           02324                                    /LAND/                                
038816,000815: 33,2515           03535                           STORE    HCALC                                 #  ALTITUDE IN UNITS OF 2(24) METERS
038817,000816: 33,2516           03775                           STORE    HCALC1                                
038818,000817: 33,2517           63261                           SL       PDVL                                  #  STORE HCALCLAD AT PD 2
038819,000818: 33,2520           20212                                    9D                                    
038820,000819: 33,2521           03537                                    UNIT/R/                               
038821,000820: 33,2522           51435                           VXV      ABVAL                                 
038822,000821: 33,2523           03601                                    V1S                                   
038823,000822: 33,2524           56316                           DSQ      DDV                                   
038824,000823: 33,2525           00001                                    0                                     
038825,000824: 33,2526           63352                           SL1      PDVL                                  #  STORE DALTRATE AT PD 4
038826,000825: 33,2527           03537                                    UNIT/R/                               
038827,000826: 33,2530           72441                           DOT      SL1                                   
038828,000827: 33,2531           03601                                    V1S                                   
038829,000828: 33,2532           03474                           STORE    HDOTDISP                              #  HDOT IN UNITS OF 2(7) M/CS
038830,000829: 33,2533           63312                           SL2      PDVL                                  #  STORE HDOTLAD AT PD 6
038831,000830: 33,2534           03573                                    R1S                                   
038832,000831: 33,2535           60505                           VXM      VSR4                                  
038833,000832: 33,2536           01732                                    REFSMMAT                              
038834,000833: 33,2537           27545                           STOVL    RN1                                   #  POSITION IN REFERENCE COORDINATES
038835,000834: 33,2540           03601                                    V1S                                   
038836,000835: 33,2541           76505                           VXM      VSL1                                  
038837,000836: 33,2542           01732                                    REFSMMAT                              
038838,000837: 33,2543           27553                           STOVL    VN1                                   #  VELOCITY IN REFERENCE COORDINATES
038839,000838: 33,2544           03563                                    GDT1/2                                
038840,000839: 33,2545           70251                           VSU      V/SC                                  
038841,000840: 33,2546           02616                                    VBIAS                                 
038842,000841: 33,2547           26637                                    GSCALE1                               
038843,000842: 33,2550           77776                           EXIT                                           #  G-VBIAS IN MPAC UNITS OF 2(-9) M/CS/CS
038844,000843: 
038845,000844: 33,2551           00004                           INHINT                                         
038846,000845: 
038847,000846: 33,2552           50120                           INDEX    FIXLOC                                #  FETCH HCALCLAD FROM PD 2
038848,000847: 33,2553           52003                           DXCH     2                                     
038849,000848: 33,2554           53710                           DXCH     HCALCLAD                              #  ALTITUDE IN UNITS OF 2(15) METERS
038850,000849: 
038851,000850: 33,2555           50120                           INDEX    FIXLOC                                #  FETCH DALTRATE FROM PD 4
038852,000851: 33,2556           30004                           CA       4                                     
038853,000852: 33,2557           55713                           TS       DALTRATE                              #  DALTRATE IN UNITS OF 2(-9) M/CS/CS
038854,000853: 

Page 880

038856,000855: 33,2560           50120                           INDEX    FIXLOC                                #  FETCH HDOTLAD FROM PD 6
038857,000856: 33,2561           52007                           DXCH     6                                     
038858,000857: 33,2562           53712                           DXCH     HDOTLAD                               #  HDOTLAD IN UNITS OF 2(5) M/CS
038859,000858: 
038860,000859: 33,2563           30154                           CA       MPAC                                  #  FETCH G-VBIAS FROM MPAC
038861,000860: 33,2564           55676                           TS       G-VBIASX                              
038862,000861: 33,2565           30157                           CA       MPAC       +3                         
038863,000862: 33,2566           55677                           TS       G-VBIASY                              
038864,000863: 33,2567           30161                           CA       MPAC       +5                         
038865,000864: 33,2570           55700                           TS       G-VBIASZ                              #  G-VBIAS IN UNITS OF 2(-9) M/CS/CS
038866,000865: 
038867,000866: 33,2571           00006                           EXTEND                                         
038868,000867: 33,2572           31537                           DCA      UNIT/R/                               
038869,000868: 33,2573           20001                           DDOUBL                                         #  SCALE FULL-SIZE BUT WATCH FOR OVERFLOW
038870,000869: 33,2574           54000                           OVSK                                           
038871,000870: 33,2575           12577                           TCF      +2                                    
038872,000871: 33,2576           34724                           CAF      POSMAX                                
038873,000872: 33,2577           57714                 +2        XCH      RUNITX                                
038874,000873: 
038875,000874: 33,2600           00006                           EXTEND                                         
038876,000875: 33,2601           31541                           DCA      UNIT/R/    +2                         
038877,000876: 33,2602           20001                           DDOUBL                                         #  SCALE FULL-SIZE, OVERFLOW MOST UNLIKELY
038878,000877: 33,2603           57715                           XCH      RUNITY                                
038879,000878: 
038880,000879: 33,2604           00006                           EXTEND                                         
038881,000880: 33,2605           31543                           DCA      UNIT/R/    +4                         
038882,000881: 33,2606           20001                           DDOUBL                                         #  SCALE FULL-SIZE, OVERFLOW MOST UNLIKELY
038883,000882: 33,2607           57716                           XCH      RUNITZ                                
038884,000883: 
038885,000884: 33,2610           40103                           CS       FLAGWRD7                              #  INDICATE TO LANADISP THAT THE NUMBERS IT
038886,000885: 33,2611           74732                           MASK     SWANDBIT                              #    NEEDS FROM SERVICER HAVE BEEN PROVIDED
038887,000886: 33,2612           26103                           ADS      FLAGWRD7                              
038888,000887: 
038889,000888: 
038890,000889: 33,2613           00006                           EXTEND                                         
038891,000890: 33,2614           31573                           DCA      R1S                                   #  LOAD NEW NAVIGATED STATE VECTOR INTO R,V
038892,000891:                                                                                                  #  VECTORS, FOR GUIDANCE.
038893,000892: 33,2615           53521                           DXCH     R                                     
038894,000893: 33,2616           00006                           EXTEND                                         
038895,000894: 33,2617           31575                           DCA      R1S        +2                         
038896,000895: 33,2620           53523                           DXCH     R          +2                         
038897,000896: 33,2621           00006                           EXTEND                                         
038898,000897: 33,2622           31577                           DCA      R1S        +4                         
038899,000898: 33,2623           53525                           DXCH     R          +4                         
038900,000899: 33,2624           00006                           EXTEND                                         
038901,000900: 33,2625           31601                           DCA      V1S                                   
038902,000901: 33,2626           53527                           DXCH     V                                     
038903,000902: 33,2627           00006                           EXTEND                                         
038904,000903: 33,2630           31603                           DCA      V1S        +2                         
038905,000904: 33,2631           53531                           DXCH     V          +2                         
038906,000905: 33,2632           00006                           EXTEND                                         

Page 881

038908,000907: 33,2633           31605                           DCA      V1S        +4                         
038909,000908: 33,2634           53533                           DXCH     V          +4                         
038910,000909: 
038911,000910: 33,2635           12217                           TCF      COPYCYCL                              #  COMPLETE THE COYPCYCL.
038912,000911: 
038913,000912:                                                                                                  #  COPYCYC1 CONSTANTS:
038914,000913: 
038915,000914: 33,2636           00031 00000  GSCALE1            2DEC     100        B-16                       
038916,000915: 
038917,000916: 
038918,000917: 33,2640           00000 05075  BIASFACT           2DEC     .01        B-10                       
038919,000918: 

Page 882

038921,000920:                                                                                                  #  *********************************************************************************************************
038922,000921: 
038923,000922: 33,2642           41456        CALCGRAV           UNIT     PUSH                                  #  SAVE UNIT/R/ IN PUSHLIST            (18)
038924,000923: 33,2643           03537                           STORE    UNIT/R/                               
038925,000924: 33,2644           67340                           LXC,1    SLOAD                                 #  RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
038926,000925: 33,2645           02777                                    RTX2                                  
038927,000926: 33,2646           03000                                    RTX2                                  
038928,000927: 33,2647           50076                           DCOMP    BMN                                   
038929,000928: 33,2650           66677                                    CALCGRV1                              
038930,000929: 33,2651           50375                           VLOAD    DOT                                   #                                      (12)
038931,000930: 33,2652           06477                                    UNITZ                                 
038932,000931: 33,2653           03537                                    UNIT/R/                               
038933,000932: 33,2654           41552                           SL1      PUSH                                  #                                      (14)
038934,000933: 33,2655           44316                           DSQ      BDSU                                  
038935,000934: 33,2656           26741                                    DP1/20                                
038936,000935: 33,2657           56325                           PDDL     DDV                                   
038937,000936: 33,2660           26106                                    RESQ                                  
038938,000937: 33,2661           00043                                    34D                                   #  (RN)SQ
038939,000938: 33,2662           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
038940,000939: 33,2663           41205                           DMP      DMP                                   
038941,000940: 33,2664           26110                                    20J                                   
038942,000941: 33,2665           65361                           VXSC     PDDL                                  
038943,000942: 33,2666           03537                                    UNIT/R/                               
038944,000943: 33,2667           41205                           DMP      DMP                                   
038945,000944: 33,2670           26112                                    2J                                    
038946,000945: 33,2671           00041                                    32D                                   
038947,000946: 33,2672           76561                           VXSC     VSL1                                  
038948,000947: 33,2673           06477                                    UNITZ                                 
038949,000948: 33,2674           45455                           VAD      STADR                                 
038950,000949: 33,2675           74256                           STORE    UNITGOBL                              
038951,000950: 33,2676           41455                           VAD      PUSH                                  #  MPAC = UNIT GRAVITY VECTOR.         (18)
038952,000951: 33,2677           60345        CALCGRV1           DLOAD    NORM                                  #  PERFORM A NORMALIZATION ON RMAGSQ IN
038953,000952: 33,2700           00043                                    34D                                   #  ORDER TO BE ABLE TO SCALE THE MU FOR
038954,000953: 33,2701           00050                                    X2                                    #  MAXIMUM PRECISION.
038955,000954: 33,2702           53663                           BDDV*    SLR*                                  
038956,000955: 33,2703           26100                                    -MUDT,1                               
038957,000956: 33,2704           56623                                    0          -21D,2                     
038958,000957: 33,2705           45561                           VXSC     STADR                                 
038959,000958: 33,2706           74214                           STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
038960,000959: 33,2707           77616                           RVQ                                            
038961,000960: 
038962,000961: 33,2710           61375        CALCRVG            VLOAD    VXM                                   
038963,000962: 33,2711           00325                                    DELV                                  
038964,000963: 33,2712           01732                                    REFSMMAT                              
038965,000964: 33,2713           76561                           VXSC     VSL1                                  
038966,000965: 33,2714           26074                                    KPIP1                                 
038967,000966: 33,2715           03527                           STORE    DELVREF                               
038968,000967: 33,2716           41562                           VSR1     PUSH                                  
038969,000968: 33,2717           41455                           VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS

Page 883

038971,000970: 33,2720           01236                                    GDT/2                                 
038972,000971: 33,2721           65255                           VAD      PDDL                                  #                                        (18)
038973,000972: 33,2722           01226                                    VN                                    
038974,000973: 33,2723           01247                                    PGUIDE                                
038975,000974: 33,2724           74261                           SL       VXSC                                  
038976,000975: 33,2725           20207                                    6D                                    
038977,000976: 33,2726           44055                           VAD      STQ                                   
038978,000977: 33,2727           01220                                    RN                                    
038979,000978: 33,2730           00037                                    31D                                   
038980,000979: 33,2731           37545                           STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
038981,000980: 33,2732           66642                                    CALCGRAV                              
038982,000981: 
038983,000982: 33,2733           53255                           VAD      VAD                                   
038984,000983: 33,2734           77655                           VAD                                            
038985,000984: 33,2735           01226                                    VN                                    
038986,000985: 33,2736           37553                           STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7)M/CS
038987,000986: 33,2737           00037                                    31D                                   
038988,000987: 
038989,000988: 33,2740           01463 06315  DP1/20             2DEC     0.05                                  
038990,000989: 
038991,000990: 33,2742           00010 00000  SHIFT11            2DEC     1          B-11                       
038992,000991: 

Page 884

038994,000993:                                                                                                  #  ****************************************************************************************************************
038995,000994: 
038996,000995:                                                                                                  #  MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
038997,000996:                                                                                                  #  PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
038998,000997:                                                                                                  #  THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
038999,000998:                                                                                                  #  COORDINATE SYSTEM.
039000,000999: 
039001,001000: 33,2744           41575        RVBOTH             VLOAD    PUSH                                  
039002,001001: 33,2745           02310                                    G(CSM)                                #  CSM GDT1/2 FOR LAST PASS.
039003,001002: 33,2746           65255                           VAD      PDDL                                  
039004,001003: 33,2747           01724                                    V(CSM)                                
039005,001004: 33,2750           01247                                    PGUIDE                                
039006,001005: 33,2751           74271                           DDV      VXSC                                  
039007,001006: 33,2752           26743                                    SHIFT11                               
039008,001007: 33,2753           77655                           VAD                                            
039009,001008: 33,2754           01716                                    R(CSM)                                
039010,001009: 33,2755           37573                           STCALL   R1S                                   #  = RCSM + PGUIDE(VCSM + GCSM) AT 2(+24)M.
039011,001010: 33,2756           67037                                    MUNGRAV                               #  COMPUTE LUNAR GRAVITY AT CSM ALTITUDE.
039012,001011: 33,2757           53255                           VAD      VAD                                   
039013,001012: 33,2760           01724                                    V(CSM)                                
039014,001013: 33,2761           77626                           STADR                                          
039015,001014: 33,2762           74176                           STORE    V1S                                   #  = VCSM + GCSM + GDT1/2 AT 2(+7)M/CS.
039016,001015: 33,2763           77776                           EXIT                                           
039017,001016: 33,2764           03473                           TC       QUIKFAZ5                              
039018,001017: 33,2765           06060                           TC       INTPRET                               
039019,001018: 33,2766           77775                           VLOAD                                          #  FOR RESTART PURPOSES.
039020,001019: 33,2767           03563                                    GDT1/2                                
039021,001020: 33,2770           26310                           STOVL    G(CSM)                                
039022,001021: 33,2771           03573                                    R1S                                   
039023,001022: 33,2772           25716                           STOVL    R(CSM)                                
039024,001023: 33,2773           03601                                    V1S                                   
039025,001024: 33,2774           01724                           STORE    V(CSM)                                
039026,001025: 33,2775           77776                           EXIT                                           
039027,001026: 33,2776           03473                           TC       QUIKFAZ5                              
039028,001027: 33,2777           06060                           TC       INTPRET                               
039029,001028: 33,3000           74375        MUNRVG             VLOAD    VXSC                                  
039030,001029: 33,3001           00325                                    DELV                                  
039031,001030: 33,3002           26076                                    KPIP2                                 
039032,001031: 33,3003           53206                           PUSH     VAD                                   #  1ST PUSH: DELV IN UNITS OF 2(8) M/CS
039033,001032: 33,3004           01236                                    GDT/2                                 
039034,001033: 33,3005           53206                           PUSH     VAD                                   #  2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
039035,001034: 33,3006           03527                                    V                                     #                                      (12)
039036,001035: 33,3007           56325                           PDDL     DDV                                   
039037,001036: 33,3010           01247                                    PGUIDE                                
039038,001037: 33,3011           26743                                    SHIFT11                               
039039,001038: 33,3012           77761                           VXSC                                           
039040,001039: 33,3013           77655                           VAD                                            
039041,001040: 33,3014           03521                                    R                                     #  LM POSITION VECTOR AT 2(24)M.
039042,001041: 33,3015           37573                           STCALL   R1S                                   #  = R + PGUIDE(V + DELV + GDT1/2).
039043,001042: 33,3016           67037                                    MUNGRAV                               

Page 885

039045,001044: 33,3017           53255                           VAD      VAD                                   
039046,001045: 33,3020           77655                           VAD                                            #                                      (0)
039047,001046: 33,3021           03527                                    V                                     #  LM VELOCITY VECTOR AT 2(+7)M/CS.
039048,001047: 33,3022           03601                           STORE    V1S                                   #  = V + GDT1/2 + DELV
039049,001048: 33,3023           77646                           ABVAL                                          
039050,001049: 33,3024           27472                           STOVL    ABVEL                                 #  STORE SPEED FOR LR AND DISPLAYS.
039051,001050: 33,3025           02316                                    WM                                    
039052,001051: 33,3026           72435                           VXV      VSL2                                  
039053,001052: 33,3027           03573                                    R1S                                   
039054,001053: 33,3030           17702                           STODL    VSURFACE                              #  SURFACE VELOCITY IN UNITS OF 2(5) M/CS
039055,001054: 33,3031           00045                                    36D                                   
039056,001055: 33,3032           47025                           DSU      RTB                                   
039057,001056: 33,3033           02324                                    /LAND/                                
039058,001057: 33,3034           21622                                    SGNAGREE                              
039059,001058: 33,3035           37535                           STCALL   HCALC                                 #  FOR NOW, DISPLAY WHETHER POS OR NEG
039060,001059: 33,3036           66410                                    MUNRETRN                              #  GO TO LR UPDATES ROUTINE, R12.
039061,001060: 
039062,001061: 33,3037           77656        MUNGRAV            UNIT                                           #  AT 36D HAVE ABVAL(R), AT 34D R.R
039063,001062: 33,3040           17537                           STODL    UNIT/R/                               
039064,001063: 33,3041           00043                                    34D                                   
039065,001064: 33,3042           55261                           SL       BDDV                                  
039066,001065: 33,3043           20207                                    6D                                    
039067,001066: 33,3044           26104                                    -MUDTMUN                              
039068,001067: 33,3045           74205                           DMP      VXSC                                  
039069,001068: 33,3046           26743                                    SHIFT11                               
039070,001069: 33,3047           03537                                    UNIT/R/                               
039071,001070: 33,3050           03563                           STORE    GDT1/2                                #  1/2GDT SCALED AT 2(7)M/CS.
039072,001071: 33,3051           77616                           RVQ                                            
039073,001072: 
039074,001073: 33,3052     4767               BITS6+7            EQUALS   SUPER110                              #  LR POSITION DISCRETES
039075,001074: 33,3052           00014 20000  2SEC(18)           2DEC     200        B-18                       
039076,001075: 
039077,001076: 33,3054           00000 00310  2SEC(28)           2OCT     0000000310                            #  2SEC AT 2(28)
039078,001077: 
039079,001078: 33,3056           00000 00620  4SEC(28)           2DEC     400        B-28                       
039080,001079: 
039081,001080: 33,3060           00110        BITS4-7            OCT      110                                   
039082,001081: 33,3061           37767 02200  1-30KFT            2DEC     16768072   B-24                       #  DPPOSMAX-30KFT
039083,001082: 
039084,001083: 33,3063           00102        66DEC              DEC      66         B-14                       
039085,001084: 

Page 886

039087,001086: 33,3064           34741        UPDATCHK           CA       RNGEDBIT                              #  SEE IF ALT READING MADE

RNGEDBIT in the above line is circled

039089,001088: 33,3065           70107                           MASK     FLGWRD11                              
039090,001089: 33,3066           00006                           EXTEND                                         
039091,001090: 33,3067           13261                           BZF      VMEASCHK                              #  NO ALT MEAS THIS CYCLE-CHECK FOR VEL
039092,001091: 
039093,001092: 33,3070           03473        POSUPDAT           TC       QUIKFAZ5                              
039094,001093: 33,3071           03501                           TC       POSINDEX                              #  SET X1 TO PROPER POSITION AND ZERO PLIST
039095,001094: 33,3072           06060                           TC       INTPRET                               
039096,001095: 33,3073           61373                           VLOAD*   VXM                                   
039097,001096: 33,3074           26003                                    HBEAMNB,1                             
039098,001097: 33,3075           02137                                    XNBPIP                                #  HBEAM SM AT 2(1)
039099,001098: 33,3076           54325                           PDDL     SL                                    #  STORE IN PUSHLIST AND SCALE HMEAS
039100,001099: 33,3077           03655                                    HMEAS                                 
039101,001100: 33,3100           20207                                    6D                                    
039102,001101: 33,3101           74205                           DMP      VXSC                                  #  SLANT RANGE AT 2(22),PUSH UP FOR HBEAM
039103,001102: 33,3102           26063                                    HSCAL                                 #  TO GET SLANT RANGE VECTOR AT 2(23) M
039104,001103: 33,3103           50206                           PUSH     DOT                                   #  PUSH NEG OF RADAR ALTITUDE BEAM VECTOR
039105,001104: 33,3104           03537                                    UNIT/R/                               #  ALTITUDE AT 2(24) METERS
039106,001105: 33,3105           77625                           DSU                                            
039107,001106: 33,3106           03535                                    HCALC                                 
039108,001107: 33,3107           03767                           STORE    TEMDELH                               #  STORE PARTIAL(TRUE) DELTA H, AND
039109,001108: 33,3110           77725                           PDDL                                           #  LOAD NEG OF BEAM Z
039110,001109: 

At the end of the 2nd divider below, the suffixed ':' was an '=' in the original printout. The replacement is a workaround for our proof-reading system.

039114,001113:                                                                                                  #  ========================================================================
039115,001114:                                                                                                  #  TERRAIN MODEL
039116,001115:                                                                                                  #  =======================================================================:
039117,001116: 
039118,001117: 33,3111           43342                           SR1      DAD                                   
039119,001118: 33,3112           03641                                    LAND       +4                         
039120,001119: 33,3113           54221                           BDSU     SL                                    #  SCALE RANGE TO UNITS OF 2(18) METERS
039121,001120: 33,3114           03577                                    R1S        +4                         
039122,001121: 33,3115           20207                                    6D                                    
039123,001122: 33,3116           77404                           BOVB     EXIT                                  
039124,001123: 33,3117           31765                                    SIGNMPAC                              #  PICK UP NEGMAX UPON OVERFLOW
039125,001124: 
039126,001125: 33,3120           40075                           CS       FLAGWRD1                              #  IS NOTERFLG SET (BY P66 OR V68)?
039127,001126: 33,3121           74732                           MASK     NOTERBIT                              
039128,001127: 33,3122           00006                           EXTEND                                         
039129,001128: 33,3123           13161                           BZF      TERSKIP                               #  Y: SKIP TERRAIN BUT TRANSFER DELTA H
039130,001129: 
039131,001130: 33,3124           35005                           CA       EBANK5                                #  N: PREPARE TO ACCESS TERRAIN TABLE
039132,001131: 33,3125           54003                           TS       EBANK                                 
039133,001132: 33,3126  E5,1777                                  EBANK=   END-E5                                
039134,001133: 
039135,001134: 33,3126           34746                           CA       ZERO                                  #  INITIALIZE MINUS LAST ABSCISSA FOR
039136,001135: 33,3127           54142                           TS       TEM2                                  #  TERLOOP WHICH ADDS THE CONTRIBUTIONS
039137,001136: 33,3130           34742                           CA       FOUR                                  #  OF FIVE TERRAIN SEGMENTS TO DELTA H
039138,001137: 33,3131           54145        TERLOOP            TS       TEM5                                  

Page 887

039140,001139: 33,3132           30154                           CA       MPAC                                  #  PICK UP CURRENT RANGE (NEG BEFORE SITE)
039141,001140: 33,3133           54001                           TS       L                                     
039142,001141: 33,3134           50145                           INDEX    TEM5                                  
039143,001142: 33,3135           41522                           CS       ABSC0                                 #  TERRAIN ABSCISSAE UNITS: 2(18) METERS
039144,001143: 33,3136           04607                           TC       BANKCALL                              #  LIMIT GIVEN LIMITSUB MUST BE POSITIVE
039145,001144: 33,3137           61713                           FCADR    LIMITSUB                              #  LIMIT |RANGE| <= |CURRENT ABSCISSA|
039146,001145: 33,3140           54144                           TS       TEM4                                  #  SAVE TO COMPARE WITH CURRENT ABSCISSA
039147,001146: 
039148,001147: 33,3141           60142                           AD       TEM2                                  #  SUBTRACT LAST ABSCISSA
039149,001148: 33,3142           00006                           EXTEND                                         
039150,001149: 33,3143           50145                           INDEX    TEM5                                  
039151,001150: 33,3144           71527                           MP       SLOPE0                                #  SLOPE UNITS: 2(6) RADIANS. RESOL: 3.9 MR
039152,001151: 
039153,001152: 33,3145           50120                           INDEX    FIXLOC                                #  ADD CONTRIBUTION OF SEGMENT TO YIELD
039154,001153: 33,3146           20005                           DAS      4                                     #  CORRECTED DELTA H IN UNITS 2(24) METERS
039155,001154: 
039156,001155: 33,3147           30141                           CA       TEM1                                  #  RETRIEVE MINUS CURR ABSC FROM LIMITSUB*
039157,001156: 33,3150           54142                           TS       TEM2                                  #  STORE AS MINUS LAST ABSC FOR NEXT SEG
039158,001157: 
039159,001158:                                                                                                  #  * NOTE:  IF WE HAVE FLOWN BEYOND THE LANDING SITE BY MORE THAN THE
039160,001159:                                                                                                  #           LENGTH OF THE SEGMENT ADJACENT TO THE LANDING SITE, CA TEM1
039161,001160:                                                                                                  #           WILL RETRIEVE - INSTEAD OF MINUS THE CURRENT ABSCISSA -
039162,001161:                                                                                                  #           A ZERO OR POSITIVE REMAINDER OF THE DIVISION DONE BY LIMITSUB.
039163,001162:                                                                                                  #           THIS RETRIEVAL WILL CAUSE AN IMMEDIATE BRANCH TO TEREND,
039164,001163:                                                                                                  #           WHICH IS THE DESIRED RESULT.  HOWEVER, FLYING PAST THE LANDING
039165,001164:                                                                                                  #           SITE IS IMPOSSIBLE EXCEPT IN P66 WHEN THE TERRAIN MODEL IS OFF.
039166,001165: 
039167,001166: 33,3151           60144                           AD       TEM4                                  #  HAS LM FLOWN PAST CURRENT ABSCISSA?
039168,001167: 33,3152           00006                           EXTEND                                         
039169,001168: 33,3153           13155                           BZF      +2                                    
039170,001169: 33,3154           13157                           TCF      TEREND                                #  Y: IGNORE FURTHER ABSCISSAE
039171,001170: 33,3155           10145                           CCS      TEM5                                  #  N: IS CURRENT ABSCISSA THE LAST?
039172,001171: 33,3156           13131                           TCF      TERLOOP                               #  N: REPEAT TERRAIN LOOP
039173,001172: 
039174,001173: 33,3157           35007        TEREND             CA       EBANK7                                #  Y: RESTORE EBANK AND DEPART
039175,001174: 33,3160           54003                           TS       EBANK                                 
039176,001175: 33,3161  E7,1777                                  EBANK=   END-E7                                
039177,001176: 
039178,001177: 33,3161           00004        TERSKIP            INHINT                                         #  SO DOWNLINK DATA WILL BE TIME HOMOGENEOU
039179,001178: 33,3162           50120                           INDEX    FIXLOC                                #  TRANSFER COMPLETED DELTA H HOME
039180,001179: 33,3163           52005                           DXCH     4                                     #  TO BE ACCESSED BY DISPLAYS, TELEMETRY,
039181,001180: 33,3164           53665                           DXCH     DELTAH                                #  AND POSITION UPDATE.
039182,001181: 
039183,001182: 33,3165           53767                           DXCH     TEMDELH                               #  TRANSFER TRUE DELTA H TO TRUDELH
039184,001183: 33,3166           53737                           DXCH     TRUDELH                               #   FOR DOWNLINK
039185,001184: 33,3167           00003                           RELINT                                         
039186,001185: 
039187,001186: 33,3170           30120                           CA       FIXLOC                                #  RESTORE PUSHDOWN POINTER TO ZERO
039188,001187: 33,3171           54166                           TS       PUSHLOC                               
039189,001188: 

Page 888

039191,001190: 33,3172           30107                           CA       FLGWRD11                              #  IS PSTHIBIT SET (BY HIGATASK)?
039192,001191: 33,3173           74732                           MASK     PSTHIBIT                              
039193,001192: 33,3174           00006                           EXTEND                                         #  DO NOT PERFORM DATA REASONABLENESS TEST
039194,001193: 33,3175           13215                           BZF      NOREASON                              #  UNTIL AFTER HIGATE
039195,001194: 
039196,001195: 33,3176           06060                           TC       INTPRET                               
039197,001196: 33,3177           51545                           DLOAD    ABS                                   
039198,001197: 33,3200           03665                                    DELTAH                                
039199,001198: 33,3201           62425                           DSU      SL2                                   #  (ABS(DELTAH) - DQFIX) 2(24)
039200,001199: 33,3202           02504                                    DELQFIX                               #  SCALE TO 2(22)
039201,001200: 33,3203           77425                           DSU      EXIT                                  #  (ABS(DELTAH) -(DQFIX + HCALC/4)) 2(22)
039202,001201: 33,3204           03535                                    HCALC                                 
039203,001202: 
039204,001203: 33,3205           25670                           INCR     LRLCTR                                
039205,001204: 33,3206           06744                           TC       BRANCH                                
039206,001205: 33,3207           13513                           TCF      HFAIL                                 #  DELTA H TOO LARGE
039207,001206: 33,3210           13513                           TCF      HFAIL                                 #  DELTA H TOO LARGE
039208,001207: 33,3211           05520                           TC       DOWNFLAG                              #  RESET HFAIL FLAG
039209,001208: 33,3212           00247                           ADRES    HFAILFLG                              
039210,001209: 33,3213           05520                           TC       DOWNFLAG                              #  TURN OFF ALT FAIL LAMP
039211,001210: 33,3214           00263                           ADRES    HFLSHFLG                              
039212,001211: 
039213,001212: 33,3215           40107        NOREASON           CS       FLGWRD11                              
039214,001213: 33,3216           74735                           MASK     LRINHBIT                              
039215,001214: 33,3217           10000                           CCS      A                                     
039216,001215: 33,3220           13261                           TCF      VMEASCHK                              #  UPDATE INHIBITED - TEST VELOCITY ANYWAY
039217,001216: 
039218,001217: 33,3221           06060                           TC       INTPRET                               
039219,001218: 33,3222           40545        POSUP              DLOAD    SR4                                   
039220,001219: 33,3223           03535                                    HCALC                                 #  RESCALE H TO 2(28)M
039221,001220: 33,3224           77776                           EXIT                                           
039222,001221: 33,3225           00006                           EXTEND                                         
039223,001222: 33,3226           31665                           DCA      DELTAH                                #  STORE DELTAH IN MPAC AND
039224,001223: 33,3227           52155                           DXCH     MPAC                                  #  BRING HCALC INTO A,L
039225,001224: 33,3230           07565                           TC       ALSIGNAG                              
039226,001225: 33,3231           00006                           EXTEND                                         #  IF HIGH PART OF HCALC IS NON ZERO, THEN
039227,001226: 33,3232           13234                           BZF      +2                                    #  HCALC > HMAX,
039228,001227: 33,3233           13261                           TCF      VMEASCHK                              #  SO UPDATE IS BYPASSED
039229,001228: 33,3234           54156                           TS       MPAC       +2                         #    FOR LATER SHORTMP
039230,001229: 
039231,001230: 33,3235           40001                           CS       L                                     #  -H AT 2(14)M
039232,001231: 33,3236           61420                           AD       LRHMAX                                #  HMAX - H
039233,001232: 33,3237           00006                           EXTEND                                         
039234,001233: 33,3240           63261                           BZMF     VMEASCHK                              #  IF H >HMAX, BYPASS UPDATE
039235,001234: 33,3241           00006                           EXTEND                                         
039236,001235: 33,3242           71421                           MP       LRWH                                  #  WH(HMAX - H)
039237,001236: 33,3243           00006                           EXTEND                                         
039238,001237: 33,3244           11420                           DV       LRHMAX                                #  WH(1 - H/HMAX)
039239,001238: 33,3245           54135                           TS       MPTEMP                                
039240,001239: 33,3246           07334                           TC       SHORTMP2                              #  DELTAH (WH)(1 - H/HMAX) IN MPAC

Page 889

039242,001241: 33,3247           06060                           TC       INTPRET                               #  MODE IS DP FROM ABOVE
039243,001242: 33,3250           77752                           SL1                                            
039244,001243: 33,3251           53361                           VXSC     VAD                                   
039245,001244: 33,3252           03537                                    UNIT/R/                               #  DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
039246,001245: 33,3253           03573                                    R1S                                   
039247,001246: 33,3254           03657                           STORE    GNUR                                  
039248,001247: 33,3255           77776                           EXIT                                           
039249,001248: 
039250,001249: 33,3256           03473                           TC       QUIKFAZ5                              
039251,001250: 
039252,001251: 33,3257           34746                           CA       ZERO                                  
039253,001252: 33,3260           03455        RUPDATED           TC       GNURVST                               
039254,001253: 
039255,001254: 33,3261           03473        VMEASCHK           TC       QUIKFAZ5                              #  RESTART AT NEXT LOCATION
039256,001255: 33,3262           40107        R12THRU?           CS       FLGWRD11                              #  IS RADAREAD THROUGH ?
039257,001256: 33,3263           74742                           MASK     R12RDBIT                              
039258,001257: 33,3264           10000                           CCS      A                                     
039259,001258: 33,3265           13271                           TCF      VELDATA?                              #  YES:GO ON WITH UPDATE
039260,001259: 33,3266           10067                           CCS      NEWJOB                                #  NO-WAIT
039261,001260: 33,3267           05113                           TC       CHANG1                                
039262,001261: 33,3270           13262                           TCF      R12THRU?                              
039263,001262: 33,3271           40107        VELDATA?           CS       FLGWRD11                              
039264,001263: 33,3272           74736                           MASK     VELDABIT                              #  IS V READING AVAILABLE?
039265,001264: 33,3273           10000                           CCS      A                                     
039266,001265: 33,3274           13433                           TCF      VALTCHK                               #  NO   SEE IF V READING TO BE TAKEN
039267,001266: 
039268,001267: 33,3275           03501        VELUPDAT           TC       POSINDEX                              #  SET X1 AND X2 AND ZERO PUSHLIST
039269,001268: 33,3276           41462                           CS       VSELECT                               
039270,001269: 33,3277           54001                           TS       L                                     
039271,001270: 33,3300           26001                           ADS      L                                     #  -2 VSELECT IN L
039272,001271: 33,3301           60001                           AD       L                                     
039273,001272: 33,3302           60001                           AD       L                                     #  -6 VSELECT IN A
039274,001273: 33,3303           50120                           INDEX    FIXLOC                                
039275,001274: 33,3304           20047                           DAS      X1                                    #  X1 = -6 VSELECT(POS), X2 = -2 VSELECT
039276,001275: 
039277,001276: 33,3305           06060                           TC       INTPRET                               
039278,001277: 33,3306           61373                           VLOAD*   VXM                                   
039279,001278: 33,3307           26011                                    VZBEAMNB,1                            #  CONVERT PROPER VBEAM FROM NB TO SM
039280,001279: 33,3310           02137                                    XNBPIP                                #  SCALED AT 2(1)
039281,001280: 33,3311           54325                           PDDL     SL                                    #  STORE IN PD 0-5
039282,001281: 33,3312           03653                                    VMEAS                                 #  LOAD VELOCITY MEASUREMENT
039283,001282: 33,3313           20215                                    12D                                   
039284,001283: 33,3314           63203                           DMP*     PDVL                                  #  SCALE TO M/CS AT 2(6)
039285,001284: 33,3315           51712                                    VZSCAL,2                              #  AND STORE IN PD 6-7
039286,001285: 33,3316           03601                                    V1S                                   #  VELOCITY AT TIME OF READING
039287,001286: 33,3317           52352                           VSL2     VSU                                   #  SCALE TO 2(5) M/CS AND SUBTRACT
039288,001287: 33,3320           03702                                    VSURFACE                              #                MOON ROTATION.
039289,001288: 33,3321           51406                           PUSH     ABVAL                                 #  STORE IN PD
039290,001289: 33,3322           43202                           SR4      DAD                                   #  ABS(VM)/8 + VELBIAS AT 2(6)
039291,001290: 33,3323           02401                                    VELBIAS                               

Page 890

039293,001292: 33,3324           24025                           STOVL    20D                                   #  STORE IN 20D AND PICK UP VM
039294,001293: 33,3325           44241                           DOT      BDSU                                  
039295,001294: 33,3326           00001                                    0                                     #  DELTAV = VMEAS - V(EST)
039296,001295: 33,3327           51406                           PUSH     ABS                                   
039297,001296: 33,3330           77425                           DSU      EXIT                                  #  ABS(DV) - (7.5 + ABS(VM)/8))
039298,001297: 33,3331           00025                                    20D                                   
039299,001298: 
039300,001299: 33,3332           25672                           INCR     LRMCTR                                
039301,001300: 33,3333           06744                           TC       BRANCH                                
039302,001301: 33,3334           13532                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
039303,001302: 33,3335           13532                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
039304,001303: 
039305,001304: 33,3336           05520                           TC       DOWNFLAG                              #  RESET HFAIL FLAG
039306,001305: 33,3337           00246                           ADRES    VFAILFLG                              
039307,001306: 33,3340           05520                           TC       DOWNFLAG                              #  TURN OFF VEL FAIL LAMP
039308,001307: 33,3341           00262                           ADRES    VFLSHFLG                              

The above line is circled.

039310,001309: 
039311,001310: 33,3342           30107                           CA       FLGWRD11                              
039312,001311: 33,3343           74731                           MASK     VXINHBIT                              
039313,001312: 33,3344           00006                           EXTEND                                         
039314,001313: 33,3345           13354                           BZF      VUPDAT                                #  IF VX INHIBIT RESET, INCORPORATE DATA.
039315,001314: 
039316,001315: 33,3346           05520                           TC       DOWNFLAG                              
039317,001316: 33,3347           00250                           ADRES    VXINH                                 #  RESET VX INHIBIT
039318,001317: 
039319,001318: 33,3350           31462                           CA       VSELECT                               
039320,001319: 33,3351           67767                           AD       NEG2                                  #  IF VSELECT = 2 (X AXIS),
039321,001320: 33,3352           00006                           EXTEND                                         #  BYPASS UPDATE
039322,001321: 33,3353           13433                           BZF      ENDVDAT                               
039323,001322: 
039324,001323: 33,3354           40107        VUPDAT             CS       FLGWRD11                              
039325,001324: 33,3355           74735                           MASK     LRINHBIT                              
039326,001325: 33,3356           10000                           CCS      A                                     
039327,001326: 33,3357           13433                           TCF      VALTCHK                               #  UPDATE INHIBITED
039328,001327: 
039329,001328: 33,3360           54155                           TS       MPAC       +1                         
039330,001329: 
039331,001330: 33,3361           31471                           CA       ABVEL                                 #  STORE E7 ERASABLES NEEDED IN TEMPS
039332,001331: 33,3362           54130                           TS       ABVEL*                                
039333,001332: 33,3363           31462                           CA       VSELECT                               
039334,001333: 33,3364           54131                           TS       VSELECT*                              
039335,001334: 33,3365           35005                           CA       EBANK5                                
039336,001335: 33,3366           54003                           TS       EBANK                                 #  CHANGE EBANKS
039337,001336: 
039338,001337: 33,3367  E5,1512                                  EBANK=   LRVF                                  
039339,001338: 33,3367           41512                           CS       LRVF                                  
039340,001339: 33,3370           60130                           AD       ABVEL*                                #  IF V < VF, USE WVF
039341,001340: 33,3371           00006                           EXTEND                                         
039342,001341: 33,3372           63405                           BZMF     USEVF                                 
039343,001342: 

Page 891

039345,001344: 33,3373           40130                           CS       ABVEL*                                
039346,001345: 33,3374           61511                           AD       LRVMAX                                #  VMAX - V
039347,001346: 33,3375           00006                           EXTEND                                         
039348,001347: 33,3376           63410                           BZMF     WSTOR      -1                         #  IF V > VMAX, W = 0
039349,001348: 
039350,001349: 33,3377           00006                           EXTEND                                         
039351,001350: 33,3400           50131                           INDEX    VSELECT*                              
039352,001351: 33,3401           71513                           MP       LRWVZ                                 #  WV(VMAX - V)
039353,001352: 
039354,001353: 33,3402           00006                           EXTEND                                         
039355,001354: 33,3403           11511                           DV       LRVMAX                                #  WV( 1 - V/VMAX )
039356,001355: 33,3404           13411                           TCF      WSTOR                                 
039357,001356: 
039358,001357: 33,3405           50131        USEVF              INDEX    VSELECT*                              
039359,001358: 33,3406           31516                           CA       LRWVFZ                                #  USE APPROPRIATE CONSTANT WEIGHT
039360,001359: 33,3407           13411                           TCF      WSTOR                                 
039361,001360: 
039362,001361: 33,3410           34746                 -1        CA       ZERO                                  
039363,001362: 33,3411           54154        WSTOR              TS       MPAC                                  
039364,001363: 33,3412           44736                           CS       BIT7                                  #  (=64D)
039365,001364: 33,3413           61010                           AD       MODREG                                
039366,001365: 33,3414           00006                           EXTEND                                         
039367,001366: 33,3415           63420                           BZMF     GETGNUV                               #  IF IN P66 USE ANOTHER CONSTANT
039368,001367: 33,3416           31521                           CA       LRWVFF                                
039369,001368: 33,3417           54154                           TS       MPAC                                  
039370,001369: 
039371,001370: 33,3420           35007        GETGNUV            CA       EBANK7                                
039372,001371: 33,3421           54003                           TS       EBANK                                 #  CHANGE EBANKS
039373,001372: 
039374,001373: 33,3422  E7,1471                                  EBANK=   ABVEL                                 
039375,001374: 33,3422           06060                           TC       INTPRET                               
039376,001375: 33,3423           74205                           DMP      VXSC                                  #  W(DELTA V)(VBEAMSM)  UP 6-7, 0-5
039377,001376: 33,3424           77655                           VAD                                            
039378,001377: 33,3425           03601                                    V1S                                   #  ADD WEIGHTED DELTA V TO VELOCITY
039379,001378: 33,3426           03657                           STORE    GNUV                                  
039380,001379: 33,3427           77776                           EXIT                                           
039381,001380: 
039382,001381: 33,3430           03473                           TC       QUIKFAZ5                              #  DO NOT RE-UPDATE
039383,001382: 
039384,001383: 33,3431           36263                           CA       SIX                                   
039385,001384: 33,3432           03455        VUPDATED           TC       GNURVST                               #  STORE NEW VELOCITY VECTOR
039386,001385: 33,3433  33,3433               ENDVDAT            =        VALTCHK                               
039387,001386: 
039388,001387: 33,3433           03473        VALTCHK            TC       QUIKFAZ5                              #  DO NOT REPEAT ABOVE
039389,001388: 
039390,001389: 33,3434           40107        HIGATCHK           CS       FLGWRD11                              #  IS PSTHIBIT SET (BY HIGATASK)?
039391,001390: 33,3435           74732                           MASK     PSTHIBIT                              
039392,001391: 33,3436           00006                           EXTEND                                         
039393,001392: 33,3437           12501                           BZF      CONTSERV                              #  YES:  BYPASS HIGATE CHECK
039394,001393: 

Page 892

039396,001395: 33,3440           31642                           CA       TTF/8                                 
039397,001396: 33,3441           61427                           AD       RPCRTIME                              
039398,001397: 33,3442           00006                           EXTEND                                         
039399,001398: 33,3443           62501                           BZMF     CONTSERV                              
039400,001399: 
039401,001400: 33,3444           34732                           CA       EBANK4                                
039402,001401: 33,3445           56003                           XCH      EBANK                                 
039403,001402: 33,3446           54001                           TS       L                                     
039404,001403: 
039405,001404: 33,3447  E4,1536                                  EBANK=   XNBPIP                                
039406,001405: 33,3447           41536                           CS       XNBPIP                                
039407,001406: 33,3450  E7,1515                                  EBANK=   DVCNTR                                
039408,001407: 33,3450           22003                           LXCH     EBANK                                 
039409,001408: 33,3451           61430                           AD       RPCRTQSW                              
039410,001409: 33,3452           00006                           EXTEND                                         
039411,001410: 33,3453           62376                           BZMF     HIGATASK                              
039412,001411: 33,3454           12501                           TCF      CONTSERV                              
039413,001412: 
039414,001413: 
039415,001414: 33,3455           54130        GNURVST            TS       BUF                                   #  STORE GNUR (=GNUV) IN R1S OR V1S
039416,001415: 33,3456           00006                           EXTEND                                         #  A = 0 FOR R, A = 6 FOR V
039417,001416: 33,3457           31657                           DCA      GNUR                                  
039418,001417: 33,3460           50130                           INDEX    BUF                                   
039419,001418: 33,3461           53573                           DXCH     R1S                                   
039420,001419: 33,3462           00006                           EXTEND                                         
039421,001420: 33,3463           31661                           DCA      GNUR       +2                         
039422,001421: 33,3464           50130                           INDEX    BUF                                   
039423,001422: 33,3465           53575                           DXCH     R1S        +2                         
039424,001423: 33,3466           00006                           EXTEND                                         
039425,001424: 33,3467           31663                           DCA      GNUR       +4                         
039426,001425: 33,3470           50130                           INDEX    BUF                                   
039427,001426: 33,3471           53577                           DXCH     R1S        +4                         
039428,001427: 33,3472           00002                           TC       Q                                     
039429,001428: 
039430,001429: 
039431,001430: 33,3473           35000        QUIKFAZ5           CA       EBANK3                                
039432,001431: 33,3474           56003                           XCH      EBANK                                 #  SET EBANK 3
039433,001432: 33,3475           52002                           DXCH     L                                     #  Q TO A, A TO L
039434,001433: 33,3476  E3,1446                                  EBANK=   PHSNAME5                              
039435,001434: 33,3476           55446                           TS       PHSNAME5                              
039436,001435: 33,3477           22003                           LXCH     EBANK                                 
039437,001436: 33,3500  E7,1515                                  EBANK=   DVCNTR                                
039438,001437: 33,3500           00000                           TC       A                                     
039439,001438: 
039440,001439: 
039441,001440: 33,3501           30120        POSINDEX           CA       FIXLOC                                #  SET PUSHLIST TO ZERO
039442,001441: 33,3502           54166                           TS       PUSHLOC                               
039443,001442: 
039444,001443: 33,3503           34744                           CA       BIT1                                  
039445,001444: 33,3504           71650                           MASK     LRPOS                                 #  *NOTE - LRPOS = 1 FOR POS 2 & VICE VERSA

Page 893

039447,001446: 33,3505           10000                           CCS      A                                     
039448,001447: 33,3506           44754                           CS       OCT30                                 #  POS 2 , INDEX = -24D
039449,001448: 33,3507           22007                           ZL                                             #  POS 1 , INDEX = 0 , X2 = 0 FOR BOTH
039450,001449: 33,3510           50120                           INDEX    FIXLOC                                
039451,001450: 33,3511           52047                           DXCH     X1                                    #  SET X1,X2
039452,001451: 33,3512           00002                           TC       Q                                     
039453,001452: 33,3513           05506        HFAIL              TC       UPFLAG                                #  SET HFAIL FLAG FOR DOWNLINK
039454,001453: 33,3514           00247                           ADRES    HFAILFLG                              
039455,001454: 33,3515           41671                           CS       LRRCTR                                
039456,001455: 33,3516           00006                           EXTEND                                         
039457,001456: 33,3517           13527                           BZF      NORLITE                               #  IF R = 0, DO NOT TURN ON TRK FAIL
039458,001457: 33,3520           61670                           AD       LRLCTR                                
039459,001458: 33,3521           77766                           MASK     NEG3                                  
039460,001459: 33,3522           00006                           EXTEND                                         #  IF L-R LT 4, DO NOT TURN ON TRK FAIL
039461,001460: 33,3523           13525                           BZF      +2                                    
039462,001461: 33,3524           13527                           TCF      NORLITE                               
039463,001462: 
039464,001463: 33,3525           05506                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
039465,001464: 33,3526           00263                           ADRES    HFLSHFLG                              
039466,001465: 
039467,001466: 33,3527           31670        NORLITE            CA       LRLCTR                                
039468,001467: 33,3530           55671                           TS       LRRCTR                                #  SET R = L
039469,001468: 
039470,001469: 33,3531           13261                           TCF      VMEASCHK                              
039471,001470: 
039472,001471: 33,3532           05506        VFAIL              TC       UPFLAG                                
039473,001472: 33,3533           00246                           ADRES    VFAILFLG                              #  SET VFAIL FLAG FOR DOWNLINK

The above instruction and address are circled in red.

039475,001474: 33,3534           41673                           CS       LRSCTR                                
039476,001475: 33,3535           00006                           EXTEND                                         #  IF S = 0, DO NOT TURN ON TRACKER FAIL
039477,001476: 33,3536           13546                           BZF      NOLITE                                
039478,001477: 33,3537           61672                           AD       LRMCTR                                #  M-S
039479,001478: 33,3540           77766                           MASK     NEG3                                  #  TEST FOR M-S > 3
039480,001479: 33,3541           00006                           EXTEND                                         #  IF M-S > 3, THEN TWO OR MORE OF THE

In the above comment, "THEN TWO ORE MORE OF THE" is crossed out in green.

039482,001481: 33,3542           13544                           BZF      +2                                    #    LAST FOUR V READINGS WERE BAD,

In the above comment, a 3 has been written over FOUR, and "BAD," has been crossed out with "GOOD," written next to it.

039485,001484: 33,3543           13546                           TCF      NOLITE                                #    SO TURN ON VELOCITY FAIL LIGHT

"DON'T" is written under "SO TURN", indicating the line should read "SO DON'T TURN ON..."

039487,001486: 
039488,001487: 33,3544           05506                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
039489,001488: 33,3545           00262                           ADRES    VFLSHFLG                              

The above instruction and address are circled.

039491,001490: 
039492,001491: 33,3546           31672        NOLITE             CA       LRMCTR                                #  SET S = M
039493,001492: 33,3547           55673                           TS       LRSCTR                                
039494,001493: 
039495,001494: 33,3550           11462                           CCS      VSELECT                               #  TEST FOR Z COMPONENT
039496,001495: 33,3551           13433                           TCF      ENDVDAT                               #  NOT Z, DO NOT SET VX INHIBIT
039497,001496: 
039498,001497: 33,3552           05506                           TC       UPFLAG                                #  Z COMPONENT - SET FLAG TO SKIP X
039499,001498: 33,3553           00250                           ADRES    VXINH                                 #  COMPONENT,AS ERROR MAY BE DUE TO CROSS
039500,001499: 33,3554           13433                           TCF      ENDVDAT                               #  LOBE LOCK UP NOT DETECTED ON X AXIS.
039501,001500: 

Page 894

039503,001502:                                                                                                  #  ********************************************************************************************************
039504,001503: 33,3555                                           BANK     33                                    
039505,001504: 33,2000                                           SETLOC   SERVICES                              
039506,001505: 33,2000                                           BANK                                           
039507,001506: 
039508,001507: 33,3555                                           COUNT*   $$/SERV                               
039509,001508: 
039510,001509: 33,3555  E7,1515                                  EBANK=   DVCNTR                                
039511,001510: 
039512,001511: 
039513,001512:                                                                                                  #  HIGATJOB IS BEGUN WHEN BOTH THE TIME AND ANGLE CRITERIA FOR ANTENNA REPOSITIONING ARE MET. THE JOB INITIATES THE
039514,001513:                                                                                                  #  LANDING RADAR ANTENNA REPOSITIONING ROUTINE. DURING THE REPOSITIONING, R12 IS INHIBITTED BY THE NOLRREAD FLAG.
039515,001514:                                                                                                  #  UPON COMPLETION OF THE REPOSITIONING,(SUCCESSFUL OR NOT),THE NOLRREAD   FLAG IS CLEARED AND R12 CONTINUES.
039516,001515: 
039517,001516: 
039518,001517: 33,3555           00004        REREPOS            INHINT                                         #  ON RESTART, SET FLAGS AGAIN
039519,001518: 33,3556           40107                           CS       FLGWRD11                              
039520,001519: 33,3557           75006                           MASK     PRIO3                                 
039521,001520: 33,3560           26107                           ADS      FLGWRD11                              
039522,001521: 
039523,001522: 33,3561           04607        HIGATJOB           TC       BANKCALL                              #  INITIATE REPOSITIONING ROUTINE
039524,001523: 33,3562           53511                           CADR     LRPOS2                                
039525,001524: 33,3563           04607                           TC       BANKCALL                              #  DELAY UNTIL FINISHED
039526,001525: 33,3564           17733                           CADR     RADSTALL                              
039527,001526: 
039528,001527: 33,3565           13566                           TCF      +1                                    #  IF UNSUCCESSFUL, R12 WILL HANDLE THINGS
039529,001528: 33,3566           34744                           CA       ONE                                   #  INDICATE POS 2 IS EXPECTED
039530,001529: 33,3567           55650                           TS       LRPOS                                 
039531,001530: 
039532,001531: 33,3570           05520                           TC       DOWNFLAG                              #  RE-ENABLE R12.
039533,001532: 33,3571           00252                           ADRES    NOLRREAD                              
039534,001533: 
039535,001534: 33,3572           05355                           TC       PHASCHNG                              #  CLEAR RESTART PROTECTION
039536,001535: 33,3573           00001                           OCT      1                                     
039537,001536: 33,3574           05146                           TC       ENDOFJOB                              

Below, in the comment column, is written "NEG3 = 77774"


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