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.

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

Page 860

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

Page 861

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

Page 862

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

Page 863

038186,000172: 37,3536           00257        1.75SEC            DEC      175        B-14                       
038187,000173: 37,3537           37771        OCT37771           OCT      37771                                 
038188,000174: 
038189,000175: 33,2121                                           BANK     33                                    
038190,000176: 33,2000                                           SETLOC   SERVICES                              
038191,000177: 33,2000                                           BANK                                           
038192,000178: 
038193,000179: 33,2121                                           COUNT*   $$/SERV                               
038194,000180: 

Page 864

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

Page 865

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

Page 866

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

Page 867

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

The above two instructions are circled.

038397,000383: 
038398,000384: 22,3667           04607                           TC       BANKCALL                              
038399,000385: 22,3670           17275                           CADR     PIPFREE                               
038400,000386: 

Page 868

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

Page 869

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

Page 870

038477,000463: 27,3361  E7,1515                                  EBANK=   DVCNTR                                
038478,000464: 27,3361           03656 64067  SVEXTADR           2CADR    SERVEXIT                              
038479,000465: 
038480,000466: 
038481,000467: 
038482,000468: 32,3656                                           BANK     32                                    
038483,000469: 32,2000                                           SETLOC   SERV                                  
038484,000470: 32,2000                                           BANK                                           
038485,000471: 32,3656                                           COUNT*   $$/SERV                               
038486,000472: 
038487,000473: 32,3656           05355        SERVEXIT           TC       PHASCHNG                              
038488,000474: 32,3657           00035                           OCT      00035                                 
038489,000475: 
038490,000476: 32,3660           15146                           TCF      ENDOFJOB                              
038491,000477: 

Page 871

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

Page 872

038543,000529: 33,2353           00004                 +1        INHINT                                         
038544,000530: 33,2354           77770                 +2        MASK     NEG1                                  #  REDUCE BY 1 IF ODD
038545,000531: 33,2355           54061                           TS       ITEMP1                                
038546,000532: 33,2356           00006                           EXTEND                                         
038547,000533: 33,2357           50061                           INDEX    ITEMP1                                
038548,000534: 33,2360           31545                           DCA      RN1                                   
038549,000535: 33,2361           50061                           INDEX    ITEMP1                                
038550,000536: 33,2362           53220                           DXCH     RN                                    
038551,000537: 33,2363           10061                           CCS      ITEMP1                                
038552,000538: 33,2364           12354                           TCF      COPYCYC    +2                         
038553,000539: 33,2365           00002                           TC       Q                                     #  RETURN UNDER INHINT
038554,000540: 
038555,000541: 
038556,000542: 33,2366           00022        EIGHTEEN           DEC      18         B-14                       
038557,000543: 

Page 873

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

Page 874

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

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

038657,000643: 

Page 875

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

Page 876

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

Page 877

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

Page 878

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

Page 879

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

Page 880

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

Page 881

038921,000907: 33,2633           31605                           DCA      V1S        +4                         
038922,000908: 33,2634           53533                           DXCH     V          +4                         
038923,000909: 
038924,000910: 33,2635           12217                           TCF      COPYCYCL                              #  COMPLETE THE COYPCYCL.
038925,000911: 
038926,000912:                                                                                                  #  COPYCYC1 CONSTANTS:
038927,000913: 
038928,000914: 33,2636           00031 00000  GSCALE1            2DEC     100        B-16                       
038929,000915: 
038930,000916: 
038931,000917: 33,2640           00000 05075  BIASFACT           2DEC     .01        B-10                       
038932,000918: 

Page 882

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

Page 883

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

Page 884

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

Page 885

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

Page 886

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

RNGEDBIT in the above line is circled

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

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

Page 887

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

Page 888

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

Page 889

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

Page 890

039306,001292: 33,3324           24025                           STOVL    20D                                   #  STORE IN 20D AND PICK UP VM
039307,001293: 33,3325           44241                           DOT      BDSU                                  
039308,001294: 33,3326           00001                                    0                                     #  DELTAV = VMEAS - V(EST)
039309,001295: 33,3327           51406                           PUSH     ABS                                   
039310,001296: 33,3330           77425                           DSU      EXIT                                  #  ABS(DV) - (7.5 + ABS(VM)/8))
039311,001297: 33,3331           00025                                    20D                                   
039312,001298: 
039313,001299: 33,3332           25672                           INCR     LRMCTR                                
039314,001300: 33,3333           06744                           TC       BRANCH                                
039315,001301: 33,3334           13532                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
039316,001302: 33,3335           13532                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
039317,001303: 
039318,001304: 33,3336           05520                           TC       DOWNFLAG                              #  RESET HFAIL FLAG
039319,001305: 33,3337           00246                           ADRES    VFAILFLG                              
039320,001306: 33,3340           05520                           TC       DOWNFLAG                              #  TURN OFF VEL FAIL LAMP
039321,001307: 33,3341           00262                           ADRES    VFLSHFLG                              

The above line is circled.

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

Page 891

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

Page 892

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

Page 893

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

The above instruction and address are circled in red.

039488,001474: 33,3534           41673                           CS       LRSCTR                                
039489,001475: 33,3535           00006                           EXTEND                                         #  IF S = 0, DO NOT TURN ON TRACKER FAIL
039490,001476: 33,3536           13546                           BZF      NOLITE                                
039491,001477: 33,3537           61672                           AD       LRMCTR                                #  M-S
039492,001478: 33,3540           77766                           MASK     NEG3                                  #  TEST FOR M-S > 3
039493,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.

039495,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.

039498,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..."

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

The above instruction and address are circled.

039504,001490: 
039505,001491: 33,3546           31672        NOLITE             CA       LRMCTR                                #  SET S = M
039506,001492: 33,3547           55673                           TS       LRSCTR                                
039507,001493: 
039508,001494: 33,3550           11462                           CCS      VSELECT                               #  TEST FOR Z COMPONENT
039509,001495: 33,3551           13433                           TCF      ENDVDAT                               #  NOT Z, DO NOT SET VX INHIBIT
039510,001496: 
039511,001497: 33,3552           05506                           TC       UPFLAG                                #  Z COMPONENT - SET FLAG TO SKIP X
039512,001498: 33,3553           00250                           ADRES    VXINH                                 #  COMPONENT,AS ERROR MAY BE DUE TO CROSS
039513,001499: 33,3554           13433                           TCF      ENDVDAT                               #  LOBE LOCK UP NOT DETECTED ON X AXIS.
039514,001500: 

Page 894

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