Source Code

These source-code files are part of a reconstructed copy of Luminary 173, the second (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with reconstructed source code for Luminary 178. Changes between revision 173 and 178 were backed out, as described by Luminary memo 167 (revision 1). The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 173 listing would be different.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

037184,000002:                                                                                                  ## Copyright:   Public domain.
037185,000003:                                                                                                  ## Filename:    SERVICER.agc
037186,000004:                                                                                                  ## Purpose:     A section of Luminary revision 173.
037187,000005:                                                                                                  ##              It is part of the reconstructed source code for the second
037188,000006:                                                                                                  ##              (unflown) release of the flight software for the Lunar
037189,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
037190,000008:                                                                                                  ##              The code has been recreated from a reconstructed copy of
037191,000009:                                                                                                  ##              Luminary 178, as well as Luminary memo 167 (revision 1).
037192,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
037193,000011:                                                                                                  ##              exactly match those specified for Luminary 173 in NASA
037194,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
037195,000013:                                                                                                  ##              that the reconstruction is correct.
037196,000014:                                                                                                  ## Reference:   pp. 850-889
037197,000015:                                                                                                  ## Assembler:   yaYUL
037198,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
037199,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
037200,000018:                                                                                                  ## Mod history: 2019-09-18 MAS  Created from Luminary 178.
037201,000019:                                                                                                  ##              2019-09-21 MAS  Replaced calculation of VBIAS in NORMLIZE
037202,000020:                                                                                                  ##                              with calculation of UHYP, and moved NORMLIZE
037203,000021:                                                                                                  ##                              back to bank 23. Replaced implementation of
037204,000022:                                                                                                  ##                              COPYCYC1 with that from Luminary 131. Removed
037205,000023:                                                                                                  ##                              definitions of GSCALE1 and BIASFACT. Changed
037206,000024:                                                                                                  ##                              MUNRVG to match 131, except with the addition
037207,000025:                                                                                                  ##                              of a call to SGNAGREE. Changed VELUPDAT to
037208,000026:                                                                                                  ##                              add DELVS instead of subtract VSURFACE.
037209,000027: 

Page 860

037211,000029: 37,3401                                           BANK     37                                    
037212,000030: 37,2000                                           SETLOC   SERV1                                 
037213,000031: 37,2000                                           BANK                                           
037214,000032: 
037215,000033: 37,3401  E7,1515                                  EBANK=   DVCNTR                                
037216,000034:                                                                                                  #  *************************************   PREREAD   **************************************************************
037217,000035: 
037218,000036: 
037219,000037: 37,3401                                           COUNT*   $$/SERV                               
037220,000038: 
037221,000039: 37,3401           34757        PREREAD            CAF      SEVEN                                 #  5.7 SPOT TO SKIP LASTBIAS AFTER
037222,000040: 37,3402           03530                           TC       GNUFAZE5                              #  RESTART.
037223,000041: 37,3403           35031                           CAF      PRIO21                                
037224,000042: 37,3404           05072                           TC       NOVAC                                 
037225,000043: 37,3405  E3,1460                                  EBANK=   NBDX                                  
037226,000044: 37,3405           03671 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
037227,000045: 
037228,000046: 37,3407           03543        BIBIBIAS           TC       PIPASR     +3                         #  CLEAR + READ PIPS LAST TIME IN FREE FALL
037229,000047:                                                                                                  #  DO NOT DESTROY VALUE OF PIPTIME1
037230,000048: 
037231,000049: 37,3410           40103                           CS       FLAGWRD7                              
037232,000050: 37,3411           74773                           MASK     SUPER011                              #  SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
037233,000051: 37,3412           26103                           ADS      FLAGWRD7                              #     OF FLAGWRD7)
037234,000052: 
037235,000053: 37,3413           44735                           CS       DRFTBIT                               
037236,000054: 37,3414           70076                           MASK     FLAGWRD2                              #  START POWERED FLITE GYRO COMPENSATION
037237,000055: 37,3415           54076                           TS       FLAGWRD2                              #  BY T3RUPT
037238,000056: 
037239,000057: 37,3416           34751                           CAF      FOUR                                  #  NO LONGER NEEDED
037240,000058: 37,3417           55256                           TS       PIPAGE                                
037241,000059: 
037242,000060: 37,3420           37713                           CAF      PRIO22                                #  INITIALIZE NAVIGATED STATE VECTOR(SM COO
037243,000061: 37,3421           05105                           TC       FINDVAC                               #  RD) FROM MIDTOAVE OUTPUTS PRIOR TO FIRST
037244,000062: 37,3422  E7,1515                                  EBANK=   DVCNTR                                #  AVERAGE G.
037245,000063: 37,3422           02457 46067                     2CADR    NORMLIZE                              
037246,000064: 
037247,000065: 
037248,000066: 37,3424           34752                           CA       TWO                                   #  5.2SPOT FOR REREADAC AND NORMLIZE
037249,000067: 37,3425           03524        GOREADAX           TC       GNUTFAZ5                              
037250,000068: 37,3426           35000                           CA       2SECS                                 #  WAIT TWO SECONDS FOR READACCS
037251,000069: 37,3427           05235                           TC       VARDELAY                              
037252,000070: 

Page 861

037254,000072:                                                                                                  #  *************************************   READACCS   *************************************************************
037255,000073: 37,3430           43537        READACCS           CS       OCT37771                              #  THIS PIECE OF CODING ATTEMPTS TO
037256,000074: 37,3431           60030                           AD       TIME5                                 #  SYNCHRONIZE READACCS WITH THE DIGITAL
037257,000075: 37,3432           10000                           CCS      A                                     #  AUTOPILOT SO THAT A PAXIS RUPT WILL
037258,000076: 37,3433           44753                           CS       ONE                                   #  OCCUR APPROXIMATELY 70 MILLISECONDS
037259,000077: 37,3434           13436                           TCF      +2                                    #  FOLLOWING THE READACCS RUPT.  THE 70 MS
037260,000078: 37,3435           34753                           CA       ONE                                   #  OFFSET WAS CHOSEN SO THAT THE PAXIS
037261,000079: 37,3436           26030                 +2        ADS      TIME5                                 #  RUPT WOULD NOT OCCUR SIMULTANEOUSLY
037262,000080:                                                                                                  #  WITH ANY OF THE 8 SUBSEQUENT R10,R11
037263,000081:                                                                                                  #  INTERRUPTS -- THUS MINIMIZING THE POSS-
037264,000082:                                                                                                  #  IBILITY OF LOSING DOWNRUPTS.
037265,000083: 
037266,000084: 37,3437           03540                           TC       PIPASR                                #  READ THE PIPAS AND THEN ZERO THEM.
037267,000085: 
037268,000086: 37,3440           34756        PIPSDONE           CA       FIVE                                  
037269,000087: 37,3441           03530                           TC       GNUFAZE5                              
037270,000088: 37,3442           34753        REDO5.5            CAF      ONE                                   #  SHOWS THAT PIPAREAD HAD NOT STARTED
037271,000089: 37,3443           55256                           TS       PIPAGE                                #  SO THAT RESTART BEGINS AT READACCS.
037272,000090: 
037273,000091: 37,3444           34736                           CA       PRIO20                                
037274,000092: 37,3445           05105                           TC       FINDVAC                               
037275,000093: 37,3446  E7,1515                                  EBANK=   DVCNTR                                
037276,000094: 37,3446           02125 66067                     2CADR    SERVICER                              #  SET UP SERVICER JOB
037277,000095: 
037278,000096: 37,3450           34743                           CA       BIT9                                  
037279,000097: 37,3451           00006                           EXTEND                                         
037280,000098: 37,3452           05011                           WOR      DSALMOUT                              #  TURN ON TEST CONNECTOR OUTBIT,AVE G ON.
037281,000099: 
037282,000100: 37,3453           30103                           CA       FLAGWRD7                              #  WAS AVERAGE G ASKED TO BE TERMINATED?
037283,000101: 37,3454           74747                           MASK     AVEGFBIT                              
037284,000102: 37,3455           00006                           EXTEND                                         
037285,000103: 37,3456           13516                           BZF      AVEGOUT                               #  YES: SET UP FINAL EXIT.
037286,000104: 
037287,000105: 37,3457           30102                           CA       FLAGWRD6                              #  NO: IS THIS P6X OR P12?
037288,000106: 37,3460           74744                           MASK     MUNFLBIT                              
037289,000107: 37,3461           00006                           EXTEND                                         
037290,000108: 37,3462           13514                           BZF      MAKEACCS                              #  NO: BYPASS LR READ AND DISPLAYS
037291,000109: 
037292,000110: 37,3463           40107                           CS       FLGWRD11                              #  YES: DOES SOMEONE WANT TO BYPASS LR UPDT
037293,000111: 37,3464           74735                           MASK     LRBYBIT                               
037294,000112: 37,3465           00006                           EXTEND                                         
037295,000113: 37,3466           13473                           BZF      R10CALL                               #  YES: BYPASS LR READINGS
037296,000114: 
037297,000115: 37,3467           33536                           CA       1.75SEC                               #  CALL R12 0.25 SEC PRIOR TO NEXT READACCS
037298,000116: 37,3470           05214                           TC       WAITLIST                              #  VELOCITY LANDING RADAR READINGS ARE CENT
037299,000117: 37,3471  E7,1462                                  EBANK=   VSELECT                               #  ERED AROUND PIPTIME. 2 VELOCITY AND 1 AL
037300,000118: 37,3471           03142 52067                     2CADR    R12READ                               #  TITUDE READINGS BEFORE PIPTIME,3 V AFTER
037301,000119: 

Page 862

037303,000121: 37,3473           10754        R10CALL            CCS      PHASE2                                
037304,000122: 37,3474           13514                           TCF      MAKEACCS                              #  PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
037305,000123: 
037306,000124: 37,3475           34757                           CAF      SEVEN                                 #  SET PIPCTR FOR 4X/SEC RATE.
037307,000125: 37,3476           55055                           TS       PIPCTR                                
037308,000126: 
037309,000127: 37,3477           40025                           CS       TIME1                                 #  SET TBASE2 .05 SECONDS IN THE PAST.
037310,000128: 37,3500           64756                           AD       FIVE                                  
037311,000129: 37,3501           64734                           AD       NEG1/2                                
037312,000130: 37,3502           64734                           AD       NEG1/2                                
037313,000131: 37,3503           57054                           XCH      TBASE2                                
037314,000132: 
037315,000133: 37,3504           34361                           CAF      DEC17                                 #  2.21SPOT FOR R10,R11
037316,000134: 37,3505           54001                           TS       L                                     
037317,000135: 37,3506           40000                           COM                                            
037318,000136: 37,3507           52754                           DXCH     -PHASE2                               
037319,000137: 
037320,000138: 37,3510           36007                           CAF      OCT24                                 #  FIRST R10,R11 IN .200 SECONDS.
037321,000139: 37,3511           05214                           TC       WAITLIST                              
037322,000140: 37,3512  E7,1536                                  EBANK=   UNIT/R/                               
037323,000141: 37,3512           02006 42067                     2CADR    R10,R11                               
037324,000142: 
037325,000143: 
037326,000144: 37,3514           34751        MAKEACCS           CA       FOUR                                  
037327,000145: 37,3515           13425                           TCF      GOREADAX                              #  DO PHASE CHANGE AND RECALL READACCS
037328,000146: 
037329,000147: 
037330,000148: 37,3516           00006        AVEGOUT            EXTEND                                         
037331,000149: 37,3517           33535                           DCA      AVOUTCAD                              #  SET UP FINAL SERVICER EXIT
037332,000150: 37,3520           53252                           DXCH     AVGEXIT                               
037333,000151: 
037334,000152: 37,3521           34751                           CA       FOUR                                  #  SET 5.4 SPOT FOR REREADAC AND SERVICER
037335,000153: 37,3522           03524                           TC       GNUTFAZ5                              #  IF REREADAC IS CALLED, IT WILL EXIT
037336,000154: 37,3523           05272                           TC       TASKOVER                              #  END TASK WITHOUT CALLING READACCS
037337,000155: 
037338,000156: 
037339,000157: 37,3524           54001        GNUTFAZ5           TS       L                                     #  SAVE INPUT IN L
037340,000158: 37,3525           40025                           CS       TIME1                                 
037341,000159: 37,3526           55062                           TS       TBASE5                                #  SET TBASE5
037342,000160: 37,3527           13531                           TCF      +2                                    
037343,000161: 
037344,000162: 37,3530           54001        GNUFAZE5           TS       L                                     #  SAVE INPUT IN L
037345,000163: 37,3531           40001                           CS       L                                     #  -PHASE IN A, PHASE IN L
037346,000164: 37,3532           52762                           DXCH     -PHASE5                               #  SET -PHASE5,PHASE5
037347,000165: 37,3533           00002                           TC       Q                                     
037348,000166: 
037349,000167: 
037350,000168: 37,3534  E7,1515                                  EBANK=   DVCNTR                                
037351,000169: 37,3534           03661 44067  AVOUTCAD           2CADR    AVGEND                                
037352,000170: 

Page 863

037354,000172: 37,3536           00257        1.75SEC            DEC      175        B-14                       
037355,000173: 37,3537           37771        OCT37771           OCT      37771                                 
037356,000174: 
037357,000175: 33,2125                                           BANK     33                                    
037358,000176: 33,2000                                           SETLOC   SERVICES                              
037359,000177: 33,2000                                           BANK                                           
037360,000178: 
037361,000179: 33,2125                                           COUNT*   $$/SERV                               
037362,000180: 

Page 864

037364,000182:                                                                                                  #  *************************************   SERVICER   *************************************************************
037365,000183: 
037366,000184: 
037367,000185: 33,2125           05364        SERVICER           TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
037368,000186: 33,2126           16035                           OCT      16035                                 
037369,000187: 33,2127           20000                           OCT      20000                                 
037370,000188: 33,2130  E7,1515                                  EBANK=   DVCNTR                                
037371,000189: 33,2130           02136 66067                     2CADR    GETABVAL                              
037372,000190: 
037373,000191: 33,2132           37721                           CAF      PRIO31                                #  INITIALIZE 1/PIPADT IN CASE RESTART HAS
037374,000192: 33,2133           55074                           TS       1/PIPADT                              #  CAUSED LASTBIAS TO BE SKIPPED.
037375,000193: 
037376,000194: 
037377,000195: 33,2134           04616                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
037378,000196: 33,2135           15271                           CADR     1/PIPA                                
037379,000197: 
037380,000198: 33,2136           06042        GETABVAL           TC       INTPRET                               
037381,000199: 33,2137           51575                           VLOAD    ABVAL                                 
037382,000200: 33,2140           00325                                    DELV                                  
037383,000201: 33,2141           77776                           EXIT                                           
037384,000202: 33,2142           30154                           CA       MPAC                                  
037385,000203: 33,2143           55245                           TS       ABDELV                                #  ABDELV = CM/SEC*2(-14).
037386,000204: 33,2144           00006                           EXTEND                                         
037387,000205: 33,2145           72072                           MP       KPIP                                  
037388,000206: 33,2146           53514                           DXCH     ABDVCONV                              #  ABDVCONV = M/CS *2(-5).
037389,000207: 33,2147           00006                           EXTEND                                         
037390,000208: 33,2150           31244                           DCA      MASS                                  
037391,000209: 33,2151           53571                           DXCH     MASS1                                 #  NO MASS MONITOR ON SURFACE.
037392,000210: 
037393,000211: 33,2152           40104        MASSMON            CS       FLAGWRD8                              #  ARE WE ON THE SURFACE?
037394,000212: 33,2153           74744                           MASK     SURFFBIT                              
037395,000213: 33,2154           00006                           EXTEND                                         
037396,000214: 33,2155           12173                           BZF      MOONSPOT                              #  YES:  BYPASS MASS MESS
037397,000215: 
037398,000216: 33,2156           30106                           CA       FLGWRD10                              #  NO:   WHICH VEX SHOULD BE USED?
037399,000217: 33,2157           74737                           MASK     APSFLBIT                              
037400,000218: 33,2160           10000                           CCS      A                                     
037401,000219: 33,2161           00006                           EXTEND                                         #  IF EXTEND IS EXECUTED, APSVEX --> A,
037402,000220: 33,2162           32001                           DCA      APSVEX                                #    OTHERWISE DPSVEX --> A
037403,000221: 33,2163           54002                           TS       Q                                     
037404,000222: 
037405,000223: 33,2164           00006                           EXTEND                                         
037406,000224: 33,2165           31514                           DCA      ABDVCONV                              
037407,000225: 33,2166           00006                           EXTEND                                         
037408,000226: 33,2167           10002                           DV       Q                                     #  WHERE APPROPRIATE VEX RESIDES
037409,000227: 33,2170           00006                           EXTEND                                         
037410,000228: 33,2171           71243                           MP       MASS                                  
037411,000229: 33,2172           21571                           DAS      MASS1                                 
037412,000230: 
037413,000231: 33,2173           32073        MOONSPOT           CA       KPIP1                                 #  TP MPAC = ABDELV AT 2(14) CM/SEC

Page 865

037415,000233: 33,2174           07312                           TC       SHORTMP                               #  MULTIPLY BY KPIP1 TO GET
037416,000234: 
037417,000235: 33,2175           52155                           DXCH     MPAC                                  #  ABDELV AT 2(7) M/CS
037418,000236: 33,2176           21510                           DAS      DVTOTAL                               #  UPDATE DVTOTAL FOR DISPLAY
037419,000237: 
037420,000238: 33,2177           02364                           TC       TMPTOSPT                              #  CDUS AT PIPTIME LOADED INTO CDUSPOT CELL
037421,000239: 33,2200           04616                           TC       BANKCALL                              #  SINES AND COSINES OF CDUSPOT.
037422,000240: 33,2201           47622                           CADR     QUICTRIG                              
037423,000241: 
037424,000242: 33,2202           32340                           CAF      XNBPIPAD                              
037425,000243: 33,2203           04616                           TC       BANKCALL                              #  COMPUTE BOD-TO-SM MATRIX (XNB),AND
037426,000244: 33,2204           20037                           CADR     FLESHPOT                              #  STORE INTO XNBPIPAD.
037427,000245: 
037428,000246: 33,2205           06042                           TC       INTPRET                               
037429,000247: 33,2206           45014        AVERAGEG           BON      CALL                                  
037430,000248: 33,2207           03307                                    MUNFLAG                               #  COMPUTE LM & CM STATE VECTORS IN LUNAR G
037431,000249: 33,2210           66701                                    RVBOTH                                #  ,DO R12 , DO COPYCYCL1, RETURN AT COPYCL
037432,000250: 33,2211           66645                                    CALCRVG                               #  UPDATE LM STATE VECTOR.
037433,000251: 33,2212           77776                           EXIT                                           
037434,000252: 33,2213           03426        GOSERV             TC       QUIKFAZ5                              
037435,000253: 
037436,000254: 33,2214           02347        COPYCYCL           TC       COPYCYC                               #  RN1,VN1,MASS1 => RN,VN,MASS.
037437,000255: 
037438,000256:                                                                                                  #                CA      ZERO            A IS ZERO ON RETURN FROM COPYCYC
037439,000257: 33,2215           55157                           TS       PIPATMPX                              #  STILL UNDER INHINT
037440,000258: 33,2216           55160                           TS       PIPATMPY                              
037441,000259: 33,2217           55161                           TS       PIPATMPZ                              
037442,000260: 
037443,000261: 33,2220           44741                           CS       STEERBIT                              #  CLEAR STEERSW PRIOR TO DVMON.
037444,000262: 33,2221           70076                           MASK     FLAGWRD2                              
037445,000263: 33,2222           54076                           TS       FLAGWRD2                              
037446,000264: 
037447,000265: 33,2223           34745                           CAF      IDLEFBIT                              #  IS DV MONITOR TO BE TURNED ON?
037448,000266: 33,2224           70103                           MASK     FLAGWRD7                              
037449,000267: 33,2225           10000                           CCS      A                                     
037450,000268: 33,2226           12261                           TCF      NODVMON1                              #  NO: SET AUXFLAG TO 0
037451,000269: 
037452,000270: 33,2227           40102                           CS       FLAGWRD6                              #  ALLOW ANOTHER PASS WITHOUT DVMON?
037453,000271: 33,2230           74752                           MASK     AUXFLBIT                              
037454,000272: 33,2231           10000                           CCS      A                                     
037455,000273: 33,2232           12265                           TCF      NODVMON2                              #  YES: SET AUXFLAG TO 0
037456,000274: 

Page 866

037458,000276: 33,2233           41250        DVMON              CS       DVTHRUSH                              #  SUFFICIENT THRUST TO STEER WITH?
037459,000277: 33,2234           61245                           AD       ABDELV                                
037460,000278: 33,2235           00006                           EXTEND                                         
037461,000279: 33,2236           62271                           BZMF     LOTHRUST                              #  NO: THRUST TOO LO, DECREMENT DVCNTR
037462,000280: 
037463,000281: 33,2237           40076                           CS       FLAGWRD2                              #  YES: SET STEERSW TO ALLOW GUIDANCE.
037464,000282: 33,2240           74741                           MASK     STEERBIT                              
037465,000283: 33,2241           26076                           ADS      FLAGWRD2                              
037466,000284: 
037467,000285: 33,2242           34753        DVCNTSET           CAF      ONE                                   #  ALLOW TWO PASSES MAXIMUM NOW THAT
037468,000286: 33,2243           55515                           TS       DVCNTR                                #  THRUST HAS BEEN DETECTED.
037469,000287: 
037470,000288: 33,2244           30106                           CA       FLGWRD10                              #  IS APSFLAG SET?
037471,000289: 33,2245           74737                           MASK     APSFLBIT                              
037472,000290: 33,2246           10000                           CCS      A                                     
037473,000291: 33,2247           12314                           TCF      USEJETS                               #  YES: USE RCS TO STEER ASCENT STAGE.
037474,000292: 
037475,000293: 33,2250           34743                           CA       BIT9                                  #  NO: PITCH GIMBAL FAILURE?
037476,000294: 33,2251           00006                           EXTEND                                         
037477,000295: 33,2252           02032                           RAND     CHAN32                                
037478,000296: 33,2253           00006                           EXTEND                                         
037479,000297: 33,2254           12314                           BZF      USEJETS                               #  YES: USE RCS TO STEER DESCENT STAGE.
037480,000298: 
037481,000299: 33,2255           44736        USEGTS             CS       USEQRJTS                              #  NO: USE GTS TO STEER DESCENT STAGE.
037482,000300: 33,2256           70111                           MASK     DAPBOOLS                              
037483,000301: 33,2257           54111                           TS       DAPBOOLS                              
037484,000302: 33,2260           12317                           TCF      SERVOUT                               
037485,000303: 
037486,000304: 33,2261           44752        NODVMON1           CS       AUXFLBIT                              #  SET AUXFLAG TO 0.
037487,000305: 33,2262           70102                           MASK     FLAGWRD6                              
037488,000306: 33,2263           54102                           TS       FLAGWRD6                              
037489,000307: 33,2264           12314                           TCF      USEJETS                               
037490,000308: 33,2265           40102        NODVMON2           CS       FLAGWRD6                              #  SET AUXFLAG TO 1.
037491,000309: 33,2266           74752                           MASK     AUXFLBIT                              
037492,000310: 33,2267           26102                           ADS      FLAGWRD6                              
037493,000311: 33,2270           12314                           TCF      USEJETS                               
037494,000312: 
037495,000313: 33,2271           03426        LOTHRUST           TC       QUIKFAZ5                              
037496,000314: 33,2272           11515                           CCS      DVCNTR                                #  TWO PASSES OF LO THRUST?
037497,000315: 33,2273           12305                           TCF      DECCNTR                               #  NO: DECREMENT DVCNTR.
037498,000316: 
037499,000317: 33,2274           10760                           CCS      PHASE4                                #  COMFAIL JOB ACTIVE?
037500,000318: 33,2275           12317                           TCF      SERVOUT                               #  YES   WON'T NEED ANOTHER.
037501,000319: 
037502,000320: 33,2276           05364                           TC       PHASCHNG                              #  4.37SPOT FOR COMFAIL.
037503,000321: 33,2277           00374                           OCT      00374                                 
037504,000322: 
037505,000323: 33,2300           37716                           CAF      PRIO25                                
037506,000324: 33,2301           05072                           TC       NOVAC                                 
037507,000325: 33,2302  E7,1455                                  EBANK=   WHICH                                 

Page 867

037509,000327: 33,2302           02576 74067                     2CADR    COMFAIL                               #  ESTABLISH JOB COMFAIL FOR
037510,000328: 
037511,000329: 33,2304           12317                           TCF      SERVOUT                               #  THRUST FAIL LOGIC.
037512,000330: 
037513,000331: 33,2305           55570        DECCNTR            TS       DVCNTR1                               
037514,000332: 33,2306           03426                           TC       QUIKFAZ5                              
037515,000333: 33,2307           31570                           CA       DVCNTR1                               
037516,000334: 33,2310           55515                           TS       DVCNTR                                
037517,000335: 33,2311           00004                           INHINT                                         
037518,000336: 33,2312           04674                           TC       IBNKCALL                              #  IF THRUST IS LOW, NO STEERING IS DONE
037519,000337: 33,2313           40166                           CADR     STOPRATE                              #  AND THE DESIRED RATES ARE SET TO ZERO.
037520,000338: 33,2314           40111        USEJETS            CS       DAPBOOLS                              
037521,000339: 33,2315           74736                           MASK     USEQRJTS                              
037522,000340: 33,2316           26111                           ADS      DAPBOOLS                              #  TELL DAP TO USE RCS TO STEER.
037523,000341: 
037524,000342: 33,2317           00003        SERVOUT            RELINT                                         
037525,000343: 33,2320           04616                           TC       BANKCALL                              #  COMPUTE VEHICLE MOMENTS OF INERTIA.
037526,000344: 33,2321           40463                           CADR     1/ACCS                                
037527,000345: 
037528,000346: 33,2322           30167                           CA       PRIORITY                              
037529,000347: 33,2323           75004                           MASK     LOW9                                  
037530,000348: 33,2324           54166                           TS       PUSHLOC                               
037531,000349: 33,2325           22007                           ZL                                             
037532,000350: 33,2326           52121                           DXCH     FIXLOC                                #  FIXLOC AND OVFIND
037533,000351: 
037534,000352: 33,2327           03426                           TC       QUIKFAZ5                              
037535,000353: 33,2330           41234                           CS       PIPTIME    +1                         
037536,000354: 33,2331           60025                           AD       TIME1                                 
037537,000355: 33,2332           64736                           AD       HALF                                  
037538,000356: 33,2333           64736                           AD       HALF                                  
037539,000357: 33,2334           57355                           XCH      SERVDURN                              #  SERVICER DURATION FOR DOWNLINK
037540,000358: 33,2335           00006                           EXTEND                                         #  EXIT TO SELECTED ROUTINE WHETHER THERE
037541,000359: 33,2336           31252                           DCA      AVGEXIT                               #  IS THRUST OR NOT.  THE STATE OF STEERSW
037542,000360: 33,2337           52006                           DXCH     Z                                     #  WILL CONVEY THIS INFORMATION.
037543,000361: 
037544,000362: 33,2340           02145        XNBPIPAD           ECADR    XNBPIP                                
037545,000363: 
037546,000364: 32,3647                                           BANK     32                                    
037547,000365: 22,2000                                           SETLOC   SERV2                                 
037548,000366: 22,2000                                           BANK                                           
037549,000367: 22,3661                                           COUNT*   $$/SERV                               
037550,000368: 
037551,000369: 22,3661           31234        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT,AVEGFLAG SET.
037552,000370: 22,3662           55074                           TS       1/PIPADT                              #  SET UP COASTING FLIGHT GYRO COMPENSATION
037553,000371: 
037554,000372: 22,3663           05515                           TC       UPFLAG                                #  SET DRIFT FLAG, TERMINATE POWERED FLITE
037555,000373: 22,3664           00036                           ADRES    DRIFTFLG                              #  GYRO COMPENSATION.

The above two instructions are circled.

037557,000375: 
037558,000376: 22,3665           04616                           TC       BANKCALL                              
037559,000377: 22,3666           17274                           CADR     PIPFREE                               
037560,000378: 

Page 868

037562,000380: 22,3667           44743                           CS       BIT9                                  
037563,000381: 22,3670           00006                           EXTEND                                         
037564,000382: 22,3671           03011                           WAND     DSALMOUT                              #  TELL WORLD THAT AVERAGEG IS NOW OFF.
037565,000383: 
037566,000384: 22,3672           05340                           TC       2PHSCHNG                              
037567,000385: 22,3673           00005                           OCT      5                                     #  GROUP 5 OFF
037568,000386: 22,3674           05022                           OCT      05022                                 #  GROUP 2 ON
037569,000387: 22,3675           20000                           OCT      20000                                 
037570,000388: 
037571,000389: 22,3676           06042                           TC       INTPRET                               
037572,000390: 22,3677           77614                           CLEAR                                          
037573,000391: 22,3700           03664                                    SWANDISP                              #  SHUT OFF R10 WHEN SERVICER ENDS.
037574,000392: 22,3701           45014                           CLEAR    CALL                                  #  RESET MUNFLAG.
037575,000393: 22,3702           03267                                    MUNFLAG                               
037576,000394: 22,3703           27463                                    AVETOMID                              #  BRING CM STATE VECTOR UP TO PIPTIME.
037577,000395: 22,3704           77414                           CLEAR    EXIT                                  
037578,000396: 22,3705           03671                                    V37FLAG                               
037579,000397: 
037580,000398: 22,3706           04635        AVERTRN            TC       POSTJUMP                              
037581,000399: 22,3707           10122                           CADR     V37RET                                #  GO TO V37 LOGIC.
037582,000400: 
037583,000401: 22,3710  22,3706               OUTGOAVE           =        AVERTRN                               
037584,000402: 22,3710  E7,1570               DVCNTR1            =        MASS1                                 
037585,000403: 

Page 869

037587,000405:                                                                                                  #  SERVIDLE IS ENTERED AFTER A POODOO SOFTWARE RESTART. SERVICER CONTINUES,BUT GUIDANCE AND R12 ( IF RUNNING) ARE
037588,000406:                                                                                                  #  TERMINATED. ABORTS MONITOR CONTINUES TO RUN.
037589,000407: 
037590,000408: 27,2000                                           SETLOC   SERV3                                 
037591,000409: 27,2000                                           BANK                                           
037592,000410: 27,3320                                           COUNT*   $$/SERV                               
037593,000411: 
037594,000412: 27,3320           00006        SERVIDLE           EXTEND                                         #  DISCONNECT SERVICER FROM ALL GUIDANCE
037595,000413: 27,3321           33356                           DCA      SVEXTADR                              
037596,000414: 27,3322           53252                           DXCH     AVGEXIT                               
037597,000415: 
037598,000416: 27,3323           40103                           CS       FLAGWRD7                              #  DISCONNECT THE DELTA-V MONITOR
037599,000417: 27,3324           74745                           MASK     IDLEFBIT                              
037600,000418: 27,3325           26103                           ADS      FLAGWRD7                              
037601,000419: 
037602,000420: 27,3326           34735                           CAF      LRBYBIT                               #  TERMINATE R12 IF RUNNING.
037603,000421: 27,3327           54107                           TS       FLGWRD11                              
037604,000422: 
037605,000423: 27,3330           00006                           EXTEND                                         
037606,000424: 27,3331           34755                           DCA      NEG0                                  
037607,000425: 27,3332           52752                           DXCH     -PHASE1                               
037608,000426: 
037609,000427: 27,3333           30102                           CA       FLAGWRD6                              #  DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
037610,000428: 27,3334           74744                           MASK     MUNFLBIT                              
037611,000429: 27,3335           10000                           CCS      A                                     
037612,000430: 27,3336           13342                           TCF      +4                                    
037613,000431: 
037614,000432: 27,3337           00006                           EXTEND                                         
037615,000433: 27,3340           34755                           DCA      NEG0                                  
037616,000434: 27,3341           52754                           DXCH     -PHASE2                               
037617,000435: 
037618,000436: 27,3342           00006                 +4        EXTEND                                         
037619,000437: 27,3343           34755                           DCA      NEG0                                  
037620,000438: 27,3344           52756                           DXCH     -PHASE3                               
037621,000439: 
037622,000440: 27,3345           00006                           EXTEND                                         
037623,000441: 27,3346           34755                           DCA      NEG0                                  
037624,000442: 27,3347           52764                           DXCH     -PHASE6                               
037625,000443: 
037626,000444: 27,3350           34764                           CAF      OCT33                                 #  4.33SPOT FOR GOPOOFIX
037627,000445: 27,3351           54001                           TS       L                                     
037628,000446: 27,3352           40000                           COM                                            
037629,000447: 27,3353           52760                           DXCH     -PHASE4                               
037630,000448: 
037631,000449: 27,3354           15645                           TCF      WHIMPER                               #  PERFORM A SOFTWARE RESTART AND PROCEED
037632,000450:                                                                                                  #  TO GOTOPOOH WHILE SERVICER CONTINUES TO
037633,000451:                                                                                                  #  RUN, ALBEIT IN A GROUND STATE WHERE
037634,000452:                                                                                                  #  ONLY STATE-VECTOR DEPENDENT FUNCTIONS
037635,000453:                                                                                                  #  ARE MAINTAINED.
037636,000454: 

Page 870

037638,000456: 27,3355  E7,1515                                  EBANK=   DVCNTR                                
037639,000457: 27,3355           03647 64067  SVEXTADR           2CADR    SERVEXIT                              
037640,000458: 
037641,000459: 
037642,000460: 
037643,000461: 32,3647                                           BANK     32                                    
037644,000462: 32,2000                                           SETLOC   SERV                                  
037645,000463: 32,2000                                           BANK                                           
037646,000464: 32,3647                                           COUNT*   $$/SERV                               
037647,000465: 
037648,000466: 32,3647           05364        SERVEXIT           TC       PHASCHNG                              
037649,000467: 32,3650           00035                           OCT      00035                                 
037650,000468: 
037651,000469: 32,3651           15155                           TCF      ENDOFJOB                              
037652,000470: 
037653,000471: 23,2457                                           BANK     23                                    
037654,000472: 23,2000                                           SETLOC   NORMLIZ                               
037655,000473: 23,2000                                           BANK                                           
037656,000474: 
037657,000475: 23,2457                                           COUNT*   $$/SERV                               
037658,000476: 

Page 871

037660,000478:                                                                                                  #  NORMLIZE AND COPYCYCL
037661,000479: 
037662,000480: 23,2457           06042        NORMLIZE           TC       INTPRET                               
037663,000481: 23,2460           43175                           VLOAD    BOFF                                  
037664,000482: 23,2461           03545                                    RN1                                   
037665,000483: 23,2462           03347                                    MUNFLAG                               
037666,000484: 23,2463           66341                                    NORMLIZ1                              #  DO NOT USE LUNAR LANDING AVERAGE G
037667,000485: 23,2464           64252                           VSL6     MXV                                   
037668,000486: 23,2465           01732                                    REFSMMAT                              
037669,000487: 23,2466           37521                           STCALL   R                                     #  LM POS VECTOR IN SM COORD AT 2(+24)M.
037670,000488: 23,2467           67000                                    MUNGRAV                               #  USE LUNAR LANDING AVERAGE G ROUTINE.
037671,000489: 23,2470           76575                           VLOAD    VSL1                                  
037672,000490: 23,2471           03553                                    VN1                                   
037673,000491: 23,2472           77721                           MXV                                            
037674,000492: 23,2473           01732                                    REFSMMAT                              
037675,000493: 23,2474           27527                           STOVL    V                                     
037676,000494: 23,2475           01724                                    V(CSM)                                
037677,000495: 23,2476           53435                           VXV      UNIT                                  
037678,000496: 23,2477           01716                                    R(CSM)                                
037679,000497: 23,2500           03720                           STORE    UHYP                                  
037680,000498: 23,2501           77776        ASCSPOT            EXIT                                           
037681,000499: 23,2502           00006                           EXTEND                                         #  MAKE SURE GOUP 2 IS OFF.
037682,000500: 23,2503           34755                           DCA      NEG0                                  
037683,000501: 23,2504           52754                           DXCH     -PHASE2                               
037684,000502: 
037685,000503: 23,2505           04635                           TC       POSTJUMP                              
037686,000504: 23,2506           66344                           CADR     NORMLIZ2                              
037687,000505: 
037688,000506: 33,2341                                           BANK     33                                    
037689,000507: 33,2000                                           SETLOC   SERVICES                              
037690,000508: 33,2000                                           BANK                                           
037691,000509: 33,2341                                           COUNT*   $$/SERV                               
037692,000510: 
037693,000511: 33,2341           77624        NORMLIZ1           CALL                                           
037694,000512: 33,2342           66577                                    CALCGRAV                              
037695,000513: 33,2343           77776                           EXIT                                           
037696,000514: 
037697,000515: 33,2344           32363        NORMLIZ2           CA       EIGHTEEN                              
037698,000516: 33,2345           02350                           TC       COPYCYC    +1                         #  DO NOT COPY MASS IN NORMLIZE
037699,000517: 33,2346           05155                           TC       ENDOFJOB                              
037700,000518: 
037701,000519:                                                                                                  #  COPYCYC PLACES NEWLY NAVIGATED STATE VECTORS AND MASS INTO DOWNLIST REG
037702,000520: 
037703,000521: 33,2347           36007        COPYCYC            CA       OCT24                                 #  DEC 20

Page 872

037705,000523: 33,2350           00004                 +1        INHINT                                         
037706,000524: 33,2351           77752                 +2        MASK     NEG1                                  #  REDUCE BY 1 IF ODD
037707,000525: 33,2352           54061                           TS       ITEMP1                                
037708,000526: 33,2353           00006                           EXTEND                                         
037709,000527: 33,2354           50061                           INDEX    ITEMP1                                
037710,000528: 33,2355           31545                           DCA      RN1                                   
037711,000529: 33,2356           50061                           INDEX    ITEMP1                                
037712,000530: 33,2357           53220                           DXCH     RN                                    
037713,000531: 33,2360           10061                           CCS      ITEMP1                                
037714,000532: 33,2361           12351                           TCF      COPYCYC    +2                         
037715,000533: 33,2362           00002                           TC       Q                                     #  RETURN UNDER INHINT
037716,000534: 
037717,000535: 
037718,000536: 33,2363           00022        EIGHTEEN           DEC      18         B-14                       
037719,000537: 

Page 873

037721,000539:                                                                                                  #  ******************* PIPA READER ********************
037722,000540: 
037723,000541:                                                                                                  #                  MOD NO. 00  BY D. LICKLY  DEC.9 1966
037724,000542: 
037725,000543: 
037726,000544:                                                                                                  #  FUNCTIONAL DESCRIPTION
037727,000545:                                                                                                  #     SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
037728,000546:                                                                                                  #     PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
037729,000547:                                                                                                  #     RESTARTS BEGIN AT REREADAC.
037730,000548: 
037731,000549: 
037732,000550:                                                                                                  #     AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
037733,000551:                                                                                                  #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
037734,000552:                                                                                                  #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
037735,000553:                                                                                                  #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
037736,000554: 
037737,000555:                                                                                                  #  CALLING SEQUENCE AND EXIT
037738,000556: 
037739,000557:                                                                                                  #     CALL VIA TC, ISWCALL, ETC.
037740,000558: 
037741,000559:                                                                                                  #     EXIT IS VIA Q.
037742,000560: 
037743,000561: 
037744,000562: 
037745,000563: 
037746,000564:                                                                                                  #  INPUT
037747,000565: 
037748,000566:                                                                                                  #     INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
037749,000567: 
037750,000568: 
037751,000569:                                                                                                  #  OUTPUT
037752,000570: 
037753,000571:                                                                                                  #     HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
037754,000572:                                                                                                  #     PIPTIME CONTAINS TIME OF PIPA READING.
037755,000573: 
037756,000574: 
037757,000575:                                                                                                  #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
037758,000576: 
037759,000577:                                                                                                  #           TEMX   TEMY   TEMZ   PIPAGE
037760,000578: 
037761,000579: 
037762,000580: 37,3540                                           BANK     37                                    
037763,000581: 37,2000                                           SETLOC   SERV1                                 
037764,000582: 37,2000                                           BANK                                           
037765,000583: 
037766,000584: 37,3540                                           COUNT*   $$/SERV                               
037767,000585: 
037768,000586: 37,3540           00006        PIPASR             EXTEND                                         

Page 874

037770,000588: 37,3541           30025                           DCA      TIME2                                 
037771,000589: 37,3542           53561                           DXCH     PIPTIME1                              #  CURRENT TIME  POSITIVE VALUE
037772,000590: 37,3543           44755                 +3        CS       ZERO                                  #  INITIALIZE THESE AT NEG. ZERO.
037773,000591: 37,3544           55253                           TS       TEMX                                  
037774,000592: 37,3545           55254                           TS       TEMY                                  
037775,000593: 37,3546           55255                           TS       TEMZ                                  
037776,000594: 
037777,000595: 37,3547           34755                           CA       ZERO                                  
037778,000596: 37,3550           54330                           TS       DELVZ                                 
037779,000597: 37,3551           54331                           TS       DELVZ      +1                         
037780,000598: 37,3552           54326                           TS       DELVY                                 
037781,000599: 37,3553           54327                           TS       DELVY      +1                         
037782,000600: 37,3554           54325                           TS       DELVX      +1                         
037783,000601: 37,3555           55256                           TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
037784,000602: 
037785,000603: 37,3556           00006        REPIP1             EXTEND                                         
037786,000604: 37,3557           40040                           DCS      PIPAX                                 #  X AND Y PIPS READ
037787,000605: 37,3560           53254                           DXCH     TEMX                                  
037788,000606: 37,3561           52040                           DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
037789,000607: 37,3562           54324                           TS       DELVX                                 
037790,000608: 37,3563           22326                           LXCH     DELVY                                 
037791,000609: 
037792,000610: 37,3564           40041        REPIP3             CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
037793,000611: 37,3565           57255                           XCH      TEMZ                                  
037794,000612: 37,3566           56041                           XCH      PIPAZ                                 
037795,000613: 37,3567           54330        DODELVZ            TS       DELVZ                                 
037796,000614: 
037797,000615: 37,3570           00006        REPIP4             EXTEND                                         #  COMPUTE GUIDANCE PERIOD
037798,000616: 37,3571           31561                           DCA      PIPTIME1                              
037799,000617: 37,3572           53247                           DXCH     PGUIDE                                
037800,000618: 37,3573           00006                           EXTEND                                         
037801,000619: 37,3574           41234                           DCS      PIPTIME                               
037802,000620: 37,3575           21247                           DAS      PGUIDE                                
037803,000621: 
037804,000622: 37,3576           30032                           CA       CDUX                                  #  READ CDUS INTO HIGH ORDER CDUTEMPS
037805,000623: 37,3577           55154                           TS       CDUTEMPX                              
037806,000624: 37,3600           30033                           CA       CDUY                                  
037807,000625: 37,3601           55155                           TS       CDUTEMPY                              
037808,000626: 37,3602           30034                           CA       CDUZ                                  
037809,000627: 37,3603           55156                           TS       CDUTEMPZ                              
037810,000628: 37,3604           30324                           CA       DELVX                                 
037811,000629: 37,3605           55157                           TS       PIPATMPX                              
037812,000630: 37,3606           30326                           CA       DELVY                                 
037813,000631: 37,3607           55160                           TS       PIPATMPY                              
037814,000632: 37,3610           30330                           CA       DELVZ                                 
037815,000633: 37,3611           55161                           TS       PIPATMPZ                              
037816,000634: 
037817,000635: 37,3612           00002                           TC       Q                                     

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

037819,000637: 

Page 875

037821,000639: 37,3613           11256        REREADAC           CCS      PIPAGE                                
037822,000640: 37,3614           13430                           TCF      READACCS                              #  PIP READING NOT STARTED. GO TO BEGINNING
037823,000641: 
037824,000642: 37,3615           33653                           CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
037825,000643: 37,3616           54002                           TS       Q                                     
037826,000644: 
037827,000645: 37,3617           10330                           CCS      DELVZ                                 
037828,000646: 37,3620           13570                           TCF      REPIP4                                #  Z DONE, GO DO CDUS
037829,000647: 37,3621           13624                           TCF      +3                                    #  Z NOT DONE, CHECK Y.
037830,000648: 37,3622           13570                           TCF      REPIP4                                
037831,000649: 37,3623           13570                           TCF      REPIP4                                
037832,000650: 
037833,000651: 37,3624           22007                           ZL                                             
037834,000652: 37,3625           10326                           CCS      DELVY                                 
037835,000653: 37,3626           13631                           TCF      +3                                    
037836,000654: 37,3627           13640                           TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
037837,000655: 37,3630           13631                           TCF      +1                                    
037838,000656: 37,3631           22041                           LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
037839,000657: 
037840,000658: 37,3632           11255                           CCS      TEMZ                                  
037841,000659: 37,3633           41255                           CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
037842,000660: 37,3634           13567                           TCF      DODELVZ                               
037843,000661: 37,3635           13633                           TCF      -2                                    
037844,000662: 37,3636           22330                           LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
037845,000663: 37,3637           13570                           TCF      REPIP4                                
037846,000664: 
037847,000665: 37,3640           11253        CHKTEMX            CCS      TEMX                                  #  HAS THIS CHANGED
037848,000666: 37,3641           41253                           CS       TEMX                                  #  YES
037849,000667: 37,3642           13645                           TCF      +3                                    #  YES
037850,000668: 37,3643           13641                           TCF      -2                                    #  YES
037851,000669: 37,3644           13556                           TCF      REPIP1                                #  NO
037852,000670: 37,3645           54324                           TS       DELVX                                 
037853,000671: 
037854,000672: 37,3646           41254                           CS       TEMY                                  
037855,000673: 37,3647           54326                           TS       DELVY                                 
037856,000674: 
037857,000675: 37,3650           44755                           CS       ZERO                                  #  ZERO X AND Y PIPS
037858,000676: 37,3651           52040                           DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
037859,000677: 
037860,000678: 37,3652           13564                           TCF      REPIP3                                
037861,000679: 
037862,000680: 37,3653           03440        DONEADR            GENADR   PIPSDONE                              
037863,000681: 

Page 876

037865,000683: 33,2364                                           BANK     33                                    
037866,000684: 33,2000                                           SETLOC   SERVICES                              
037867,000685: 33,2000                                           BANK                                           
037868,000686: 
037869,000687: 33,2364                                           COUNT*   $$/SERV                               
037870,000688: 
037871,000689: 33,2364           31155        TMPTOSPT           CA       CDUTEMPY                              #  THIS SUBROUTINE, CALLED BY AN RTB FROM
037872,000690: 33,2365           54765                           TS       CDUSPOTY                              #  INTERPRETIVE, LOADS THE CDUS CORRESPON-
037873,000691: 33,2366           31156                           CA       CDUTEMPZ                              #  DING TO PIPTIME INTO THE CDUSPOT VECTOR.
037874,000692: 33,2367           54767                           TS       CDUSPOTZ                              
037875,000693: 33,2370           31154                           CA       CDUTEMPX                              
037876,000694: 33,2371           54771                           TS       CDUSPOTX                              
037877,000695: 33,2372           00002                           TC       Q                                     
037878,000696: 
037879,000697: 33,2373                                           BANK     33                                    
037880,000698: 33,2000                                           SETLOC   SERVICES                              
037881,000699: 33,2000                                           BANK                                           
037882,000700: 
037883,000701: 33,2373                                           COUNT*   $$/SERV                               
037884,000702: 
037885,000703:                                                                                                  #  HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
037886,000704:                                                                                                  #  DESCENT PHASE.  HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
037887,000705:                                                                                                  #  FLAG (BIT10) IN LRSTAT.  THE HIGATJOB IS SET UP TO REPOSITION THE LR
037888,000706:                                                                                                  #  ANTENNA FROM POSITION 1 TO POSITION 2.  IF THE REPOSITIONING IS
037889,000707:                                                                                                  #  SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
037890,000708:                                                                                                  #  ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
037891,000709: 
037892,000710: 33,2373           05364        HIGATASK           TC       PHASCHNG                              
037893,000711: 33,2374           00051                           OCT      51                                    
037894,000712: 
037895,000713: 33,2375           37723                           CA       PRIO32                                
037896,000714: 33,2376           05105                           TC       FINDVAC                               
037897,000715: 33,2377  E7,1654                                  EBANK=   HMEAS                                 
037898,000716: 33,2377           03514 66067                     2CADR    HIGATJOB                              
037899,000717: 
037900,000718: 33,2401           40107                           CS       FLGWRD11                              
037901,000719: 33,2402           75015                           MASK     PRIO3                                 
037902,000720: 33,2403           26107                           ADS      FLGWRD11                              
037903,000721: 33,2404           12477                           TCF      CONTSERV   +1                         
037904,000722: 

Page 877

037906,000724:                                                                                                  #     MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
037907,000725: 
037908,000726: 33,2405           77776        MUNRETRN           EXIT                                           
037909,000727: 
037910,000728: 33,2406           40107                           CS       FLGWRD11                              
037911,000729: 33,2407           74735                           MASK     LRBYBIT                               
037912,000730: 33,2410           00006                           EXTEND                                         
037913,000731: 33,2411           12502                           BZF      COPYCYC1                              #  BYPASS LR LOGIC IF BIT15 IS SET.
037914,000732: 
037915,000733: 33,2412           40107                           CS       FLGWRD11                              #  CHECK IF AT 30000 FT
037916,000734: 33,2413           74743                           MASK     XORFLBIT                              
037917,000735: 33,2414           00006                           EXTEND                                         
037918,000736: 33,2415           12427                           BZF      LROFF?                                
037919,000737: 
037920,000738: 33,2416           00006        30KCHK             EXTEND                                         
037921,000739: 33,2417           33023                           DCA      1-30KFT                               
037922,000740: 33,2420           20155                           DAS      MPAC                                  #  HCALC IS STILL IN MPAC FROM RVBOTH
037923,000741: 
037924,000742: 33,2421           10000                           CCS      A                                     
037925,000743: 33,2422           12441                           TCF      R12                                   #  ALTITUDE > 30KFT
037926,000744: 33,2423           05515                           TC       UPFLAG                                #  ALTITUDE < 30KFT SET X-AXIS OVERRIDE
037927,000745: 33,2424           00311                           ADRES    XOVINFLG                              
037928,000746: 33,2425           05515                           TC       UPFLAG                                
037929,000747: 33,2426           00253                           ADRES    XORFLG                                
037930,000748: 
037931,000749: 33,2427           31534        LROFF?             CA       HCALC                                 
037932,000750: 33,2430           00006                           EXTEND                                         #  IF HIGH ORDER PART ZERO, H < 3000 FT,
037933,000751: 33,2431           12433                           BZF      +2                                    #    SO MAKE CUTOFF TEST
037934,000752: 33,2432           12441                           TCF      R12                                   
037935,000753: 33,2433           41535                           CS       HCALC      +1                         
037936,000754: 33,2434           61451                           AD       HLROFF                                
037937,000755: 33,2435           00006                           EXTEND                                         
037938,000756: 33,2436           62441                           BZMF     R12                                   #  IF H < HLROFF, RESET LR PERMIT FLAG
037939,000757: 33,2437           05527                           TC       DOWNFLAG                              
037940,000758: 33,2440           00254                           ADRES    LRINH                                 
037941,000759: 
037942,000760: 33,2441           40107        R12                CS       FLGWRD11                              
037943,000761: 33,2442           74742                           MASK     NOLRRBIT                              
037944,000762: 33,2443           00006                           EXTEND                                         
037945,000763: 33,2444           12476                           BZF      CONTSERV                              
037946,000764: 
037947,000765: 33,2445           34776        POSTST             CA       BITS6+7                               #  TEST LANDING RADAR POSITION DISCRETES
037948,000766: 33,2446           00006                           EXTEND                                         
037949,000767: 33,2447           02033                           RAND     CHAN33                                
037950,000768: 33,2450           00006                           EXTEND                                         
037951,000769: 33,2451           74742                           MP       BIT10                                 #  SHIFT BITS 6+7 TO BITS 1+2
037952,000770: 
037953,000771: 33,2452           50000                           INDEX    A                                     
037954,000772: 33,2453           12454                           TCF      +1                                    
037955,000773: 33,2454           12457                           TCF      511?                                  #  A = 0 - BOTH DISCRETES PRESENT

Page 878

037957,000775: 33,2455           12466                           TCF      POSCHNG?                              #  A = 1 - POSITION 2
037958,000776: 33,2456           12466                           TCF      POSCHNG?                              #  A = 2 - POSITION 1
037959,000777: 33,2457           11622        511?               CCS      511CTR                                #  IF CONDITION PERSISTS FOR FIVE
037960,000778: 33,2460           12464                           TCF      ST511CTR                              #  CONSECUTIVE PASSES,ISSUE 511 ALARM
037961,000779: 33,2461           05600                           TC       ALARM                                 
037962,000780: 33,2462           00511                           OCT      511                                   
037963,000781: 33,2463           44755                           CS       ZERO                                  #  SET CTR TO -0 TO BYPASS ALARM
037964,000782: 33,2464           55622        ST511CTR           TS       511CTR                                
037965,000783: 33,2465           12476                           TCF      CONTSERV                              
037966,000784: 33,2466           54001        POSCHNG?           TS       L                                     
037967,000785: 33,2467           34751                           CA       FOUR                                  #  SET 511CTR TO RE-ENABLE 511 ALARM
037968,000786: 33,2470           55622                           TS       511CTR                                
037969,000787: 33,2471           23650                           LXCH     LRPOS                                 #  UPDATE LRPOS
037970,000788: 33,2472           41650                           CS       LRPOS                                 #  COMPARE OLD AND NEW POSITIONS
037971,000789: 33,2473           60001                           AD       L                                     
037972,000790: 33,2474           00006                           EXTEND                                         #  IF OLDPOS = NEWPOS,
037973,000791: 33,2475           13025                           BZF      UPDATCHK                              #  TRY TO UPDATE WITH LR DATA
037974,000792: 
037975,000793: 33,2476           00004        CONTSERV           INHINT                                         
037976,000794: 33,2477           43021                           CS       BITS4-7                               
037977,000795: 33,2500           70107                           MASK     FLGWRD11                              #  CLEAR LR MEASUREMENT MADE DISCRETES.
037978,000796: 33,2501           54107                           TS       FLGWRD11                              
037979,000797: 

Page 879

037981,000799: 33,2502           03426        COPYCYC1           TC       QUIKFAZ5                              
037982,000800: 
037983,000801: 33,2503           06042                           TC       INTPRET                               #  INTPRET DOES A RELINT.
037984,000802: 33,2504           51575                           VLOAD    ABVAL                                 #  MPAC = ABVAL( NEW SM. POSITION VECTOR )
037985,000803: 33,2505           03573                                    R1S                                   
037986,000804: 33,2506           45206                           PUSH     DSU                                   #                                (2)
037987,000805: 33,2507           02333                                    /LAND/                                
037988,000806: 33,2510           03535                           STORE    HCALC                                 #  NEW HCALC*2(24)M.
037989,000807: 33,2511           03775                           STORE    HCALC1                                
037990,000808: 33,2512           47075                           DMPR     RTB                                   
037991,000809: 33,2513           26100                                    ALTCONV                               
037992,000810: 33,2514           21613                                    SGNAGREE                              
037993,000811: 33,2515           27742                           STOVL    ALTBITS                               #  ALTITUDE FOR R10 IN BIT UNITS.
037994,000812: 33,2516           03537                                    UNIT/R/                               
037995,000813: 33,2517           53435                           VXV      UNIT                                  
037996,000814: 33,2520           03720                                    UHYP                                  
037997,000815: 33,2521           27726                           STOVL    UHZP                                  #  DOWNRANGE HALF-UNIT VECTOR FOR R10.
037998,000816: 33,2522           03573                                    R1S                                   
037999,000817: 33,2523           60505                           VXM      VSR4                                  
038000,000818: 33,2524           01732                                    REFSMMAT                              
038001,000819: 33,2525           27545                           STOVL    RN1                                   #  TEMP. REF. POSITION VECTOR*2(29)M.
038002,000820: 33,2526           03601                                    V1S                                   
038003,000821: 33,2527           76505                           VXM      VSL1                                  
038004,000822: 33,2530           01732                                    REFSMMAT                              
038005,000823: 33,2531           27553                           STOVL    VN1                                   #  TEMP. REF. VELOCITY VECTOR*2(7)M/CS.
038006,000824: 33,2532           03537                                    UNIT/R/                               
038007,000825: 33,2533           51435                           VXV      ABVAL                                 

Page 872

038009,000827: 33,2534           03601                                    V1S                                   
038010,000828: 33,2535           63552                           SL1      DSQ                                   
038011,000829: 33,2536           77671                           DDV                                            
038012,000830: 33,2537           47075                           DMPR     RTB                                   
038013,000831: 33,2540           26102                                    ARCONV1                               
038014,000832: 33,2541           21613                                    SGNAGREE                              
038015,000833: 33,2542           77776        COPYCYC2           EXIT                                           #  LEAVE ALTITUDE RATE COMPENSATION IN MPAC
038016,000834: 33,2543           00004                           INHINT                                         
038017,000835: 33,2544           31536                           CA       UNIT/R/                               #  UPDATE RUNIT FOR R10.
038018,000836: 33,2545           55743                           TS       RUNIT                                 
038019,000837: 33,2546           31540                           CA       UNIT/R/    +2                         
038020,000838: 33,2547           55744                           TS       RUNIT      +1                         
038021,000839: 33,2550           31542                           CA       UNIT/R/    +4                         
038022,000840: 33,2551           55745                           TS       RUNIT      +2                         
038023,000841: 33,2552           30154                           CA       MPAC                                  #  LOAD NEW DALTRATE FOR R10.
038024,000842: 33,2553           55716                           TS       DALTRATE                              
038025,000843: 
038026,000844: 33,2554           00006                           EXTEND                                         
038027,000845: 33,2555           31573                           DCA      R1S                                   
038028,000846: 33,2556           53521                           DXCH     R                                     
038029,000847: 33,2557           00006                           EXTEND                                         
038030,000848: 33,2560           31575                           DCA      R1S        +2                         
038031,000849: 33,2561           53523                           DXCH     R          +2                         
038032,000850: 33,2562           00006                           EXTEND                                         
038033,000851: 33,2563           31577                           DCA      R1S        +4                         
038034,000852: 33,2564           53525                           DXCH     R          +4                         
038035,000853: 33,2565           00006                           EXTEND                                         
038036,000854: 33,2566           31601                           DCA      V1S                                   
038037,000855: 33,2567           53527                           DXCH     V                                     
038038,000856: 33,2570           00006                           EXTEND                                         
038039,000857: 33,2571           31603                           DCA      V1S        +2                         
038040,000858: 33,2572           53531                           DXCH     V          +2                         
038041,000859: 33,2573           00006                           EXTEND                                         
038042,000860: 33,2574           31605                           DCA      V1S        +4                         
038043,000861: 33,2575           53533                           DXCH     V          +4                         
038044,000862: 
038045,000863: 33,2576           12214                           TCF      COPYCYCL                              #  COMPLETE THE COYPCYCL.
038046,000864: 

Page 882

038048,000866:                                                                                                  #  *********************************************************************************************************
038049,000867: 
038050,000868: 33,2577           41456        CALCGRAV           UNIT     PUSH                                  #  SAVE UNIT/R/ IN PUSHLIST            (18)
038051,000869: 33,2600           03537                           STORE    UNIT/R/                               
038052,000870: 33,2601           67340                           LXC,1    SLOAD                                 #  RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
038053,000871: 33,2602           02777                                    RTX2                                  
038054,000872: 33,2603           03000                                    RTX2                                  
038055,000873: 33,2604           50076                           DCOMP    BMN                                   
038056,000874: 33,2605           66634                                    CALCGRV1                              
038057,000875: 33,2606           50375                           VLOAD    DOT                                   #                                      (12)
038058,000876: 33,2607           06512                                    UNITZ                                 
038059,000877: 33,2610           03537                                    UNIT/R/                               
038060,000878: 33,2611           41552                           SL1      PUSH                                  #                                      (14)
038061,000879: 33,2612           44316                           DSQ      BDSU                                  
038062,000880: 33,2613           26676                                    DP1/20                                
038063,000881: 33,2614           56325                           PDDL     DDV                                   
038064,000882: 33,2615           26112                                    RESQ                                  
038065,000883: 33,2616           00043                                    34D                                   #  (RN)SQ
038066,000884: 33,2617           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
038067,000885: 33,2620           41205                           DMP      DMP                                   
038068,000886: 33,2621           26114                                    20J                                   
038069,000887: 33,2622           65361                           VXSC     PDDL                                  
038070,000888: 33,2623           03537                                    UNIT/R/                               
038071,000889: 33,2624           41205                           DMP      DMP                                   
038072,000890: 33,2625           26116                                    2J                                    
038073,000891: 33,2626           00041                                    32D                                   
038074,000892: 33,2627           76561                           VXSC     VSL1                                  
038075,000893: 33,2630           06512                                    UNITZ                                 
038076,000894: 33,2631           45455                           VAD      STADR                                 
038077,000895: 33,2632           74256                           STORE    UNITGOBL                              
038078,000896: 33,2633           41455                           VAD      PUSH                                  #  MPAC = UNIT GRAVITY VECTOR.         (18)
038079,000897: 33,2634           60345        CALCGRV1           DLOAD    NORM                                  #  PERFORM A NORMALIZATION ON RMAGSQ IN
038080,000898: 33,2635           00043                                    34D                                   #  ORDER TO BE ABLE TO SCALE THE MU FOR
038081,000899: 33,2636           00050                                    X2                                    #  MAXIMUM PRECISION.
038082,000900: 33,2637           53663                           BDDV*    SLR*                                  
038083,000901: 33,2640           26104                                    -MUDT,1                               
038084,000902: 33,2641           56623                                    0          -21D,2                     
038085,000903: 33,2642           45561                           VXSC     STADR                                 
038086,000904: 33,2643           74214                           STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
038087,000905: 33,2644           77616                           RVQ                                            
038088,000906: 
038089,000907: 33,2645           61375        CALCRVG            VLOAD    VXM                                   
038090,000908: 33,2646           00325                                    DELV                                  
038091,000909: 33,2647           01732                                    REFSMMAT                              
038092,000910: 33,2650           76561                           VXSC     VSL1                                  
038093,000911: 33,2651           26074                                    KPIP1                                 
038094,000912: 33,2652           03527                           STORE    DELVREF                               
038095,000913: 33,2653           41562                           VSR1     PUSH                                  
038096,000914: 33,2654           41455                           VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS

Page 883

038098,000916: 33,2655           01236                                    GDT/2                                 
038099,000917: 33,2656           65255                           VAD      PDDL                                  #                                        (18)
038100,000918: 33,2657           01226                                    VN                                    
038101,000919: 33,2660           01247                                    PGUIDE                                
038102,000920: 33,2661           74261                           SL       VXSC                                  
038103,000921: 33,2662           20207                                    6D                                    
038104,000922: 33,2663           44055                           VAD      STQ                                   
038105,000923: 33,2664           01220                                    RN                                    
038106,000924: 33,2665           00037                                    31D                                   
038107,000925: 33,2666           37545                           STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
038108,000926: 33,2667           66577                                    CALCGRAV                              
038109,000927: 
038110,000928: 33,2670           53255                           VAD      VAD                                   
038111,000929: 33,2671           77655                           VAD                                            
038112,000930: 33,2672           01226                                    VN                                    
038113,000931: 33,2673           37553                           STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7)M/CS
038114,000932: 33,2674           00037                                    31D                                   
038115,000933: 
038116,000934: 33,2675           01463 06315  DP1/20             2DEC     0.05                                  
038117,000935: 
038118,000936: 33,2677           00010 00000  SHIFT11            2DEC     1          B-11                       
038119,000937: 

Page 884

038121,000939:                                                                                                  #  ****************************************************************************************************************
038122,000940: 
038123,000941:                                                                                                  #  MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
038124,000942:                                                                                                  #  PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
038125,000943:                                                                                                  #  THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
038126,000944:                                                                                                  #  COORDINATE SYSTEM.
038127,000945: 
038128,000946: 33,2701           41575        RVBOTH             VLOAD    PUSH                                  
038129,000947: 33,2702           02317                                    G(CSM)                                #  CSM GDT1/2 FOR LAST PASS.
038130,000948: 33,2703           65255                           VAD      PDDL                                  
038131,000949: 33,2704           01724                                    V(CSM)                                
038132,000950: 33,2705           01247                                    PGUIDE                                
038133,000951: 33,2706           74271                           DDV      VXSC                                  
038134,000952: 33,2707           26700                                    SHIFT11                               
038135,000953: 33,2710           77655                           VAD                                            
038136,000954: 33,2711           01716                                    R(CSM)                                
038137,000955: 33,2712           37573                           STCALL   R1S                                   #  = RCSM + PGUIDE(VCSM + GCSM) AT 2(+24)M.
038138,000956: 33,2713           67000                                    MUNGRAV                               #  COMPUTE LUNAR GRAVITY AT CSM ALTITUDE.
038139,000957: 33,2714           53255                           VAD      VAD                                   
038140,000958: 33,2715           01724                                    V(CSM)                                
038141,000959: 33,2716           77626                           STADR                                          
038142,000960: 33,2717           74176                           STORE    V1S                                   #  = VCSM + GCSM + GDT1/2 AT 2(+7)M/CS.
038143,000961: 33,2720           77776                           EXIT                                           
038144,000962: 33,2721           03426                           TC       QUIKFAZ5                              
038145,000963: 33,2722           06042                           TC       INTPRET                               
038146,000964: 33,2723           77775                           VLOAD                                          #  FOR RESTART PURPOSES.
038147,000965: 33,2724           03563                                    GDT1/2                                
038148,000966: 33,2725           26317                           STOVL    G(CSM)                                
038149,000967: 33,2726           03573                                    R1S                                   
038150,000968: 33,2727           25716                           STOVL    R(CSM)                                
038151,000969: 33,2730           03601                                    V1S                                   
038152,000970: 33,2731           01724                           STORE    V(CSM)                                
038153,000971: 33,2732           77776                           EXIT                                           
038154,000972: 33,2733           03426                           TC       QUIKFAZ5                              
038155,000973: 33,2734           06042                           TC       INTPRET                               
038156,000974: 33,2735           74375        MUNRVG             VLOAD    VXSC                                  
038157,000975: 33,2736           00325                                    DELV                                  
038158,000976: 33,2737           26076                                    KPIP2                                 
038159,000977: 33,2740           53206                           PUSH     VAD                                   #  1ST PUSH: DELV IN UNITS OF 2(8) M/CS
038160,000978: 33,2741           01236                                    GDT/2                                 
038161,000979: 33,2742           53206                           PUSH     VAD                                   #  2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
038162,000980: 33,2743           03527                                    V                                     #                                      (12)
038163,000981: 33,2744           56325                           PDDL     DDV                                   
038164,000982: 33,2745           01247                                    PGUIDE                                
038165,000983: 33,2746           26700                                    SHIFT11                               
038166,000984: 33,2747           77761                           VXSC                                           
038167,000985: 33,2750           77655                           VAD                                            
038168,000986: 33,2751           03521                                    R                                     #  LM POSITION VECTOR AT 2(24)M.
038169,000987: 33,2752           37573                           STCALL   R1S                                   #  = R + PGUIDE(V + DELV + GDT1/2).
038170,000988: 33,2753           67000                                    MUNGRAV                               

Page 885

038172,000990: 33,2754           53255                           VAD      VAD                                   
038173,000991: 33,2755           77655                           VAD                                            #                                      (0)
038174,000992: 33,2756           03527                                    V                                     #  LM VELOCITY VECTOR AT 2(+7)M/CS.
038175,000993: 33,2757           03601                           STORE    V1S                                   #  = V + GDT1/2 + DELV
038176,000994: 33,2760           77646                           ABVAL                                          
038177,000995: 33,2761           27472                           STOVL    ABVEL                                 #  STORE SPEED FOR LR AND DISPLAYS.
038178,000996: 33,2762           03537                                    UNIT/R/                               
038179,000997: 33,2763           72441                           DOT      SL1                                   
038180,000998: 33,2764           03601                                    V1S                                   
038181,000999: 33,2765           27474                           STOVL    HDOTDISP                              #  HDOT = V. UNIT(R)*2(7) M/CS.
038182,001000: 33,2766           03573                                    R1S                                   
038183,001001: 33,2767           72435                           VXV      VSL2                                  
038184,001002: 33,2770           02325                                    WM                                    
038185,001003: 33,2771           17734                           STODL    DELVS                                 #  LUNAR ROTATION CORRECTION TERM*2(5)M/CS.
038186,001004: 33,2772           00045                                    36D                                   
038187,001005: 33,2773           47025                           DSU      RTB                                   
038188,001006: 33,2774           02333                                    /LAND/                                
038189,001007: 33,2775           21613                                    SGNAGREE                              
038190,001008: 33,2776           37535                           STCALL   HCALC                                 #  FOR NOW, DISPLAY WHETHER POS OR NEG
038191,001009: 33,2777           66405                                    MUNRETRN                              #  GO TO LR UPDATES ROUTINE, R12.
038192,001010: 
038193,001011: 33,3000           77656        MUNGRAV            UNIT                                           #  AT 36D HAVE ABVAL(R), AT 34D R.R
038194,001012: 33,3001           17537                           STODL    UNIT/R/                               
038195,001013: 33,3002           00043                                    34D                                   
038196,001014: 33,3003           55261                           SL       BDDV                                  
038197,001015: 33,3004           20207                                    6D                                    
038198,001016: 33,3005           26110                                    -MUDTMUN                              
038199,001017: 33,3006           74205                           DMP      VXSC                                  
038200,001018: 33,3007           26700                                    SHIFT11                               
038201,001019: 33,3010           03537                                    UNIT/R/                               
038202,001020: 33,3011           03563                           STORE    GDT1/2                                #  1/2GDT SCALED AT 2(7)M/CS.
038203,001021: 33,3012           77616                           RVQ                                            
038204,001022: 
038205,001023: 33,3013     4776               BITS6+7            EQUALS   SUPER110                              #  LR POSITION DISCRETES
038206,001024: 33,3013           00014 20000  2SEC(18)           2DEC     200        B-18                       
038207,001025: 
038208,001026: 33,3015           00000 00310  2SEC(28)           2OCT     0000000310                            #  2SEC AT 2(28)
038209,001027: 
038210,001028: 33,3017           00000 00620  4SEC(28)           2DEC     400        B-28                       
038211,001029: 
038212,001030: 33,3021           00110        BITS4-7            OCT      110                                   
038213,001031: 33,3022           37767 02200  1-30KFT            2DEC     16768072   B-24                       #  DPPOSMAX-30KFT
038214,001032: 
038215,001033: 33,3024           00102        66DEC              DEC      66         B-14                       
038216,001034: 

Page 886

038218,001036: 33,3025           34750        UPDATCHK           CA       RNGEDBIT                              #  SEE IF ALT READING MADE

RNGEDBIT in the above line is circled

038220,001038: 33,3026           70107                           MASK     FLGWRD11                              
038221,001039: 33,3027           00006                           EXTEND                                         
038222,001040: 33,3030           13214                           BZF      VMEASCHK                              #  NO ALT MEAS THIS CYCLE-CHECK FOR VEL
038223,001041: 
038224,001042: 33,3031           03426        POSUPDAT           TC       QUIKFAZ5                              
038225,001043: 33,3032           03434                           TC       POSINDEX                              #  SET X1 TO PROPER POSITION AND ZERO PLIST
038226,001044: 33,3033           06042                           TC       INTPRET                               
038227,001045: 33,3034           61373                           VLOAD*   VXM                                   
038228,001046: 33,3035           26003                                    HBEAMNB,1                             
038229,001047: 33,3036           02146                                    XNBPIP                                #  HBEAM SM AT 2(1)
038230,001048: 33,3037           54325                           PDDL     SL                                    #  STORE IN PUSHLIST AND SCALE HMEAS
038231,001049: 33,3040           03655                                    HMEAS                                 
038232,001050: 33,3041           20207                                    6D                                    
038233,001051: 33,3042           74205                           DMP      VXSC                                  #  SLANT RANGE AT 2(22),PUSH UP FOR HBEAM
038234,001052: 33,3043           26063                                    HSCAL                                 #  TO GET SLANT RANGE VECTOR AT 2(23) M
038235,001053: 33,3044           50206                           PUSH     DOT                                   #  PUSH NEG OF RADAR ALTITUDE BEAM VECTOR
038236,001054: 33,3045           03537                                    UNIT/R/                               #  ALTITUDE AT 2(24) METERS
038237,001055: 33,3046           65225                           DSU      PDDL                                  #  PUSH PARTIAL DELTA H, LOAD NEG OF BEAM Z
038238,001056: 33,3047           03535                                    HCALC                                 
038239,001057: 

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.

038243,001061:                                                                                                  #  ========================================================================
038244,001062:                                                                                                  #  TERRAIN MODEL
038245,001063:                                                                                                  #  =======================================================================:
038246,001064: 
038247,001065: 33,3050           43342                           SR1      DAD                                   
038248,001066: 33,3051           03641                                    LAND       +4                         
038249,001067: 33,3052           54221                           BDSU     SL                                    #  SCALE RANGE TO UNITS OF 2(18) METERS
038250,001068: 33,3053           03577                                    R1S        +4                         
038251,001069: 33,3054           20207                                    6D                                    
038252,001070: 33,3055           77404                           BOVB     EXIT                                  
038253,001071: 33,3056           21713                                    SIGNMPAC                              #  PICK UP NEGMAX UPON OVERFLOW
038254,001072: 
038255,001073: 33,3057           40075                           CS       FLAGWRD1                              #  IS NOTERFLG SET (BY P66 OR V68)?
038256,001074: 33,3060           74741                           MASK     NOTERBIT                              
038257,001075: 33,3061           00006                           EXTEND                                         
038258,001076: 33,3062           13120                           BZF      TERSKIP                               #  Y: SKIP TERRAIN BUT TRANSFER DELTA H
038259,001077: 
038260,001078: 33,3063           35014                           CA       EBANK5                                #  N: PREPARE TO ACCESS TERRAIN TABLE
038261,001079: 33,3064           54003                           TS       EBANK                                 
038262,001080: 33,3065  E5,1774                                  EBANK=   END-E5                                
038263,001081: 
038264,001082: 33,3065           34755                           CA       ZERO                                  #  INITIALIZE MINUS LAST ABSCISSA FOR
038265,001083: 33,3066           54142                           TS       TEM2                                  #  TERLOOP WHICH ADDS THE CONTRIBUTIONS
038266,001084: 33,3067           34751                           CA       FOUR                                  #  OF FIVE TERRAIN SEGMENTS TO DELTA H
038267,001085: 33,3070           54145        TERLOOP            TS       TEM5                                  

Page 887

038269,001087: 33,3071           30154                           CA       MPAC                                  #  PICK UP CURRENT RANGE (NEG BEFORE SITE)
038270,001088: 33,3072           54001                           TS       L                                     
038271,001089: 33,3073           50145                           INDEX    TEM5                                  
038272,001090: 33,3074           41522                           CS       ABSC0                                 #  TERRAIN ABSCISSAE UNITS: 2(18) METERS
038273,001091: 33,3075           04616                           TC       BANKCALL                              #  LIMIT GIVEN LIMITSUB MUST BE POSITIVE
038274,001092: 33,3076           61712                           FCADR    LIMITSUB                              #  LIMIT |RANGE| <= |CURRENT ABSCISSA|
038275,001093: 33,3077           54144                           TS       TEM4                                  #  SAVE TO COMPARE WITH CURRENT ABSCISSA
038276,001094: 
038277,001095: 33,3100           60142                           AD       TEM2                                  #  SUBTRACT LAST ABSCISSA
038278,001096: 33,3101           00006                           EXTEND                                         
038279,001097: 33,3102           50145                           INDEX    TEM5                                  
038280,001098: 33,3103           71527                           MP       SLOPE0                                #  SLOPE UNITS: 2(6) RADIANS. RESOL: 3.9 MR
038281,001099: 
038282,001100: 33,3104           50120                           INDEX    FIXLOC                                #  ADD CONTRIBUTION OF SEGMENT TO YIELD
038283,001101: 33,3105           20005                           DAS      4                                     #  CORRECTED DELTA H IN UNITS 2(24) METERS
038284,001102: 
038285,001103: 33,3106           30141                           CA       TEM1                                  #  RETRIEVE MINUS CURR ABSC FROM LIMITSUB*
038286,001104: 33,3107           54142                           TS       TEM2                                  #  STORE AS MINUS LAST ABSC FOR NEXT SEG
038287,001105: 
038288,001106:                                                                                                  #  * NOTE:  IF WE HAVE FLOWN BEYOND THE LANDING SITE BY MORE THAN THE
038289,001107:                                                                                                  #           LENGTH OF THE SEGMENT ADJACENT TO THE LANDING SITE, CA TEM1
038290,001108:                                                                                                  #           WILL RETRIEVE - INSTEAD OF MINUS THE CURRENT ABSCISSA -
038291,001109:                                                                                                  #           A ZERO OR POSITIVE REMAINDER OF THE DIVISION DONE BY LIMITSUB.
038292,001110:                                                                                                  #           THIS RETRIEVAL WILL CAUSE AN IMMEDIATE BRANCH TO TEREND,
038293,001111:                                                                                                  #           WHICH IS THE DESIRED RESULT.  HOWEVER, FLYING PAST THE LANDING
038294,001112:                                                                                                  #           SITE IS IMPOSSIBLE EXCEPT IN P66 WHEN THE TERRAIN MODEL IS OFF.
038295,001113: 
038296,001114: 33,3110           60144                           AD       TEM4                                  #  HAS LM FLOWN PAST CURRENT ABSCISSA?
038297,001115: 33,3111           00006                           EXTEND                                         
038298,001116: 33,3112           13114                           BZF      +2                                    
038299,001117: 33,3113           13116                           TCF      TEREND                                #  Y: IGNORE FURTHER ABSCISSAE
038300,001118: 33,3114           10145                           CCS      TEM5                                  #  N: IS CURRENT ABSCISSA THE LAST?
038301,001119: 33,3115           13070                           TCF      TERLOOP                               #  N: REPEAT TERRAIN LOOP
038302,001120: 
038303,001121: 33,3116           35016        TEREND             CA       EBANK7                                #  Y: RESTORE EBANK AND DEPART
038304,001122: 33,3117           54003                           TS       EBANK                                 
038305,001123: 33,3120  E7,1777                                  EBANK=   END-E7                                
038306,001124: 
038307,001125: 33,3120           50120        TERSKIP            INDEX    FIXLOC                                #  TRANSFER COMPLETED DELTA H HOME
038308,001126: 33,3121           52005                           DXCH     4                                     #  TO BE ACCESSED BY DISPLAYS, TELEMETRY,
038309,001127: 33,3122           53665                           DXCH     DELTAH                                #  AND POSITION UPDATE.
038310,001128: 
038311,001129: 33,3123           30120                           CA       FIXLOC                                #  RESTORE PUSHDOWN POINTER TO ZERO
038312,001130: 33,3124           54166                           TS       PUSHLOC                               
038313,001131: 

Page 888

038315,001133: 33,3125           30107                           CA       FLGWRD11                              #  IS PSTHIBIT SET (BY HIGATASK)?
038316,001134: 33,3126           74741                           MASK     PSTHIBIT                              
038317,001135: 33,3127           00006                           EXTEND                                         #  DO NOT PERFORM DATA REASONABLENESS TEST
038318,001136: 33,3130           13150                           BZF      NOREASON                              #  UNTIL AFTER HIGATE
038319,001137: 
038320,001138: 33,3131           06042                           TC       INTPRET                               
038321,001139: 33,3132           51545                           DLOAD    ABS                                   
038322,001140: 33,3133           03665                                    DELTAH                                
038323,001141: 33,3134           52425                           DSU      SL3                                   #  ABS(DELTAH) - DQFIX
038324,001142: 33,3135           02504                                    DELQFIX                               
038325,001143: 33,3136           77425                           DSU      EXIT                                  #  ABS(DELTAH) - (DQFIX + HCALC/8) AT 2(21)
038326,001144: 33,3137           03535                                    HCALC                                 
038327,001145: 
038328,001146: 33,3140           25670                           INCR     LRLCTR                                
038329,001147: 33,3141           06726                           TC       BRANCH                                
038330,001148: 33,3142           13446                           TCF      HFAIL                                 #  DELTA H TOO LARGE
038331,001149: 33,3143           13446                           TCF      HFAIL                                 #  DELTA H TOO LARGE
038332,001150: 33,3144           05527                           TC       DOWNFLAG                              #  RESET HFAIL FLAG
038333,001151: 33,3145           00247                           ADRES    HFAILFLG                              
038334,001152: 33,3146           05527                           TC       DOWNFLAG                              #  TURN OFF ALT FAIL LAMP
038335,001153: 33,3147           00263                           ADRES    HFLSHFLG                              
038336,001154: 
038337,001155: 33,3150           40107        NOREASON           CS       FLGWRD11                              
038338,001156: 33,3151           74744                           MASK     LRINHBIT                              
038339,001157: 33,3152           10000                           CCS      A                                     
038340,001158: 33,3153           13214                           TCF      VMEASCHK                              #  UPDATE INHIBITED - TEST VELOCITY ANYWAY
038341,001159: 
038342,001160: 33,3154           06042                           TC       INTPRET                               
038343,001161: 33,3155           40545        POSUP              DLOAD    SR4                                   
038344,001162: 33,3156           03535                                    HCALC                                 #  RESCALE H TO 2(28)M
038345,001163: 33,3157           77776                           EXIT                                           
038346,001164: 33,3160           00006                           EXTEND                                         
038347,001165: 33,3161           31665                           DCA      DELTAH                                #  STORE DELTAH IN MPAC AND
038348,001166: 33,3162           52155                           DXCH     MPAC                                  #  BRING HCALC INTO A,L
038349,001167: 33,3163           07547                           TC       ALSIGNAG                              
038350,001168: 33,3164           00006                           EXTEND                                         #  IF HIGH PART OF HCALC IS NON ZERO, THEN
038351,001169: 33,3165           13167                           BZF      +2                                    #  HCALC > HMAX,
038352,001170: 33,3166           13214                           TCF      VMEASCHK                              #  SO UPDATE IS BYPASSED
038353,001171: 33,3167           54156                           TS       MPAC       +2                         #    FOR LATER SHORTMP
038354,001172: 
038355,001173: 33,3170           40001                           CS       L                                     #  -H AT 2(14)M
038356,001174: 33,3171           61420                           AD       LRHMAX                                #  HMAX - H
038357,001175: 33,3172           00006                           EXTEND                                         
038358,001176: 33,3173           63214                           BZMF     VMEASCHK                              #  IF H >HMAX, BYPASS UPDATE
038359,001177: 33,3174           00006                           EXTEND                                         
038360,001178: 33,3175           71421                           MP       LRWH                                  #  WH(HMAX - H)
038361,001179: 33,3176           00006                           EXTEND                                         
038362,001180: 33,3177           11420                           DV       LRHMAX                                #  WH(1 - H/HMAX)
038363,001181: 33,3200           54135                           TS       MPTEMP                                
038364,001182: 33,3201           07316                           TC       SHORTMP2                              #  DELTAH (WH)(1 - H/HMAX) IN MPAC

Page 889

038366,001184: 33,3202           06042                           TC       INTPRET                               #  MODE IS DP FROM ABOVE
038367,001185: 33,3203           77752                           SL1                                            
038368,001186: 33,3204           53361                           VXSC     VAD                                   
038369,001187: 33,3205           03537                                    UNIT/R/                               #  DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
038370,001188: 33,3206           03573                                    R1S                                   
038371,001189: 33,3207           03657                           STORE    GNUR                                  
038372,001190: 33,3210           77776                           EXIT                                           
038373,001191: 
038374,001192: 33,3211           03426                           TC       QUIKFAZ5                              
038375,001193: 
038376,001194: 33,3212           34755                           CA       ZERO                                  
038377,001195: 33,3213           03410        RUPDATED           TC       GNURVST                               
038378,001196: 
038379,001197: 33,3214           03426        VMEASCHK           TC       QUIKFAZ5                              #  RESTART AT NEXT LOCATION
038380,001198: 33,3215           40107        R12THRU?           CS       FLGWRD11                              #  IS RADAREAD THROUGH ?
038381,001199: 33,3216           74751                           MASK     R12RDBIT                              
038382,001200: 33,3217           10000                           CCS      A                                     
038383,001201: 33,3220           13224                           TCF      VELDATA?                              #  YES:GO ON WITH UPDATE
038384,001202: 33,3221           10067                           CCS      NEWJOB                                #  NO-WAIT
038385,001203: 33,3222           05122                           TC       CHANG1                                
038386,001204: 33,3223           13215                           TCF      R12THRU?                              
038387,001205: 33,3224           40107        VELDATA?           CS       FLGWRD11                              
038388,001206: 33,3225           74745                           MASK     VELDABIT                              #  IS V READING AVAILABLE?
038389,001207: 33,3226           10000                           CCS      A                                     
038390,001208: 33,3227           13366                           TCF      VALTCHK                               #  NO   SEE IF V READING TO BE TAKEN
038391,001209: 
038392,001210: 33,3230           03434        VELUPDAT           TC       POSINDEX                              #  SET X1 AND X2 AND ZERO PUSHLIST
038393,001211: 33,3231           41462                           CS       VSELECT                               
038394,001212: 33,3232           54001                           TS       L                                     
038395,001213: 33,3233           26001                           ADS      L                                     #  -2 VSELECT IN L
038396,001214: 33,3234           60001                           AD       L                                     
038397,001215: 33,3235           60001                           AD       L                                     #  -6 VSELECT IN A
038398,001216: 33,3236           50120                           INDEX    FIXLOC                                
038399,001217: 33,3237           20047                           DAS      X1                                    #  X1 = -6 VSELECT(POS), X2 = -2 VSELECT
038400,001218: 
038401,001219: 33,3240           06042                           TC       INTPRET                               
038402,001220: 33,3241           61373                           VLOAD*   VXM                                   
038403,001221: 33,3242           26011                                    VZBEAMNB,1                            #  CONVERT PROPER VBEAM FROM NB TO SM
038404,001222: 33,3243           02146                                    XNBPIP                                #  SCALED AT 2(1)
038405,001223: 33,3244           54325                           PDDL     SL                                    #  STORE IN PD 0-5
038406,001224: 33,3245           03653                                    VMEAS                                 #  LOAD VELOCITY MEASUREMENT
038407,001225: 33,3246           20215                                    12D                                   
038408,001226: 33,3247           63203                           DMP*     PDVL                                  #  SCALE TO M/CS AT 2(6)
038409,001227: 33,3250           51712                                    VZSCAL,2                              #  AND STORE IN PD 6-7
038410,001228: 33,3251           03601                                    V1S                                   #  VELOCITY AT TIME OF READING
038411,001229: 33,3252           53352                           VSL2     VAD                                   #  SCALE TO 2(5) M/CS AND SUBTRACT
038412,001230: 33,3253           03734                                    DELVS                                 #                MOON ROTATION.
038413,001231: 33,3254           51406                           PUSH     ABVAL                                 #  STORE IN PD
038414,001232: 33,3255           43202                           SR4      DAD                                   #  ABS(VM)/8 + VELBIAS AT 2(6)
038415,001233: 33,3256           02401                                    VELBIAS                               

Page 890

038417,001235: 33,3257           24025                           STOVL    20D                                   #  STORE IN 20D AND PICK UP VM
038418,001236: 33,3260           44241                           DOT      BDSU                                  
038419,001237: 33,3261           00001                                    0                                     #  DELTAV = VMEAS - V(EST)
038420,001238: 33,3262           51406                           PUSH     ABS                                   
038421,001239: 33,3263           77425                           DSU      EXIT                                  #  ABS(DV) - (7.5 + ABS(VM)/8))
038422,001240: 33,3264           00025                                    20D                                   
038423,001241: 
038424,001242: 33,3265           25672                           INCR     LRMCTR                                
038425,001243: 33,3266           06726                           TC       BRANCH                                
038426,001244: 33,3267           13465                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
038427,001245: 33,3270           13465                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
038428,001246: 
038429,001247: 33,3271           05527                           TC       DOWNFLAG                              #  RESET HFAIL FLAG
038430,001248: 33,3272           00246                           ADRES    VFAILFLG                              
038431,001249: 33,3273           05527                           TC       DOWNFLAG                              #  TURN OFF VEL FAIL LAMP
038432,001250: 33,3274           00262                           ADRES    VFLSHFLG                              

The above line is circled.

038434,001252: 
038435,001253: 33,3275           30107                           CA       FLGWRD11                              
038436,001254: 33,3276           74740                           MASK     VXINHBIT                              
038437,001255: 33,3277           00006                           EXTEND                                         
038438,001256: 33,3300           13307                           BZF      VUPDAT                                #  IF VX INHIBIT RESET, INCORPORATE DATA.
038439,001257: 
038440,001258: 33,3301           05527                           TC       DOWNFLAG                              
038441,001259: 33,3302           00250                           ADRES    VXINH                                 #  RESET VX INHIBIT
038442,001260: 
038443,001261: 33,3303           31462                           CA       VSELECT                               
038444,001262: 33,3304           67751                           AD       NEG2                                  #  IF VSELECT = 2 (X AXIS),
038445,001263: 33,3305           00006                           EXTEND                                         #  BYPASS UPDATE
038446,001264: 33,3306           13366                           BZF      ENDVDAT                               
038447,001265: 
038448,001266: 33,3307           40107        VUPDAT             CS       FLGWRD11                              
038449,001267: 33,3310           74744                           MASK     LRINHBIT                              
038450,001268: 33,3311           10000                           CCS      A                                     
038451,001269: 33,3312           13366                           TCF      VALTCHK                               #  UPDATE INHIBITED
038452,001270: 
038453,001271: 33,3313           54155                           TS       MPAC       +1                         
038454,001272: 
038455,001273: 33,3314           31471                           CA       ABVEL                                 #  STORE E7 ERASABLES NEEDED IN TEMPS
038456,001274: 33,3315           54130                           TS       ABVEL*                                
038457,001275: 33,3316           31462                           CA       VSELECT                               
038458,001276: 33,3317           54131                           TS       VSELECT*                              
038459,001277: 33,3320           35014                           CA       EBANK5                                
038460,001278: 33,3321           54003                           TS       EBANK                                 #  CHANGE EBANKS
038461,001279: 
038462,001280: 33,3322  E5,1512                                  EBANK=   LRVF                                  
038463,001281: 33,3322           41512                           CS       LRVF                                  
038464,001282: 33,3323           60130                           AD       ABVEL*                                #  IF V < VF, USE WVF
038465,001283: 33,3324           00006                           EXTEND                                         
038466,001284: 33,3325           63340                           BZMF     USEVF                                 
038467,001285: 

Page 891

038469,001287: 33,3326           40130                           CS       ABVEL*                                
038470,001288: 33,3327           61511                           AD       LRVMAX                                #  VMAX - V
038471,001289: 33,3330           00006                           EXTEND                                         
038472,001290: 33,3331           63343                           BZMF     WSTOR      -1                         #  IF V > VMAX, W = 0
038473,001291: 
038474,001292: 33,3332           00006                           EXTEND                                         
038475,001293: 33,3333           50131                           INDEX    VSELECT*                              
038476,001294: 33,3334           71513                           MP       LRWVZ                                 #  WV(VMAX - V)
038477,001295: 
038478,001296: 33,3335           00006                           EXTEND                                         
038479,001297: 33,3336           11511                           DV       LRVMAX                                #  WV( 1 - V/VMAX )
038480,001298: 33,3337           13344                           TCF      WSTOR                                 
038481,001299: 
038482,001300: 33,3340           50131        USEVF              INDEX    VSELECT*                              
038483,001301: 33,3341           31516                           CA       LRWVFZ                                #  USE APPROPRIATE CONSTANT WEIGHT
038484,001302: 33,3342           13344                           TCF      WSTOR                                 
038485,001303: 
038486,001304: 33,3343           34755                 -1        CA       ZERO                                  
038487,001305: 33,3344           54154        WSTOR              TS       MPAC                                  
038488,001306: 33,3345           44745                           CS       BIT7                                  #  (=64D)
038489,001307: 33,3346           61010                           AD       MODREG                                
038490,001308: 33,3347           00006                           EXTEND                                         
038491,001309: 33,3350           63353                           BZMF     GETGNUV                               #  IF IN P66 USE ANOTHER CONSTANT
038492,001310: 33,3351           31521                           CA       LRWVFF                                
038493,001311: 33,3352           54154                           TS       MPAC                                  
038494,001312: 
038495,001313: 33,3353           35016        GETGNUV            CA       EBANK7                                
038496,001314: 33,3354           54003                           TS       EBANK                                 #  CHANGE EBANKS
038497,001315: 
038498,001316: 33,3355  E7,1471                                  EBANK=   ABVEL                                 
038499,001317: 33,3355           06042                           TC       INTPRET                               
038500,001318: 33,3356           74205                           DMP      VXSC                                  #  W(DELTA V)(VBEAMSM)  UP 6-7, 0-5
038501,001319: 33,3357           77655                           VAD                                            
038502,001320: 33,3360           03601                                    V1S                                   #  ADD WEIGHTED DELTA V TO VELOCITY
038503,001321: 33,3361           03657                           STORE    GNUV                                  
038504,001322: 33,3362           77776                           EXIT                                           
038505,001323: 
038506,001324: 33,3363           03426                           TC       QUIKFAZ5                              #  DO NOT RE-UPDATE
038507,001325: 
038508,001326: 33,3364           36245                           CA       SIX                                   
038509,001327: 33,3365           03410        VUPDATED           TC       GNURVST                               #  STORE NEW VELOCITY VECTOR
038510,001328: 33,3366  33,3366               ENDVDAT            =        VALTCHK                               
038511,001329: 
038512,001330: 33,3366           03426        VALTCHK            TC       QUIKFAZ5                              #  DO NOT REPEAT ABOVE
038513,001331: 
038514,001332: 33,3367           40107        HIGATCHK           CS       FLGWRD11                              #  IS PSTHIBIT SET (BY HIGATASK)?
038515,001333: 33,3370           74741                           MASK     PSTHIBIT                              
038516,001334: 33,3371           00006                           EXTEND                                         
038517,001335: 33,3372           12476                           BZF      CONTSERV                              #  YES:  BYPASS HIGATE CHECK
038518,001336: 

Page 892

038520,001338: 33,3373           31642                           CA       TTF/8                                 
038521,001339: 33,3374           61427                           AD       RPCRTIME                              
038522,001340: 33,3375           00006                           EXTEND                                         
038523,001341: 33,3376           62476                           BZMF     CONTSERV                              
038524,001342: 
038525,001343: 33,3377           34741                           CA       EBANK4                                
038526,001344: 33,3400           56003                           XCH      EBANK                                 
038527,001345: 33,3401           54001                           TS       L                                     
038528,001346: 
038529,001347: 33,3402  E4,1545                                  EBANK=   XNBPIP                                
038530,001348: 33,3402           41545                           CS       XNBPIP                                
038531,001349: 33,3403  E7,1515                                  EBANK=   DVCNTR                                
038532,001350: 33,3403           22003                           LXCH     EBANK                                 
038533,001351: 33,3404           61430                           AD       RPCRTQSW                              
038534,001352: 33,3405           00006                           EXTEND                                         
038535,001353: 33,3406           62373                           BZMF     HIGATASK                              
038536,001354: 33,3407           12476                           TCF      CONTSERV                              
038537,001355: 
038538,001356: 
038539,001357: 33,3410           54130        GNURVST            TS       BUF                                   #  STORE GNUR (=GNUV) IN R1S OR V1S
038540,001358: 33,3411           00006                           EXTEND                                         #  A = 0 FOR R, A = 6 FOR V
038541,001359: 33,3412           31657                           DCA      GNUR                                  
038542,001360: 33,3413           50130                           INDEX    BUF                                   
038543,001361: 33,3414           53573                           DXCH     R1S                                   
038544,001362: 33,3415           00006                           EXTEND                                         
038545,001363: 33,3416           31661                           DCA      GNUR       +2                         
038546,001364: 33,3417           50130                           INDEX    BUF                                   
038547,001365: 33,3420           53575                           DXCH     R1S        +2                         
038548,001366: 33,3421           00006                           EXTEND                                         
038549,001367: 33,3422           31663                           DCA      GNUR       +4                         
038550,001368: 33,3423           50130                           INDEX    BUF                                   
038551,001369: 33,3424           53577                           DXCH     R1S        +4                         
038552,001370: 33,3425           00002                           TC       Q                                     
038553,001371: 
038554,001372: 
038555,001373: 33,3426           35007        QUIKFAZ5           CA       EBANK3                                
038556,001374: 33,3427           56003                           XCH      EBANK                                 #  SET EBANK 3
038557,001375: 33,3430           52002                           DXCH     L                                     #  Q TO A, A TO L
038558,001376: 33,3431  E3,1446                                  EBANK=   PHSNAME5                              
038559,001377: 33,3431           55446                           TS       PHSNAME5                              
038560,001378: 33,3432           22003                           LXCH     EBANK                                 
038561,001379: 33,3433  E7,1515                                  EBANK=   DVCNTR                                
038562,001380: 33,3433           00000                           TC       A                                     
038563,001381: 
038564,001382: 
038565,001383: 33,3434           30120        POSINDEX           CA       FIXLOC                                #  SET PUSHLIST TO ZERO
038566,001384: 33,3435           54166                           TS       PUSHLOC                               
038567,001385: 
038568,001386: 33,3436           34753                           CA       BIT1                                  
038569,001387: 33,3437           71650                           MASK     LRPOS                                 #  *NOTE - LRPOS = 1 FOR POS 2 & VICE VERSA

Page 893

038571,001389: 33,3440           10000                           CCS      A                                     
038572,001390: 33,3441           44763                           CS       OCT30                                 #  POS 2 , INDEX = -24D
038573,001391: 33,3442           22007                           ZL                                             #  POS 1 , INDEX = 0 , X2 = 0 FOR BOTH
038574,001392: 33,3443           50120                           INDEX    FIXLOC                                
038575,001393: 33,3444           52047                           DXCH     X1                                    #  SET X1,X2
038576,001394: 33,3445           00002                           TC       Q                                     
038577,001395: 33,3446           05515        HFAIL              TC       UPFLAG                                #  SET HFAIL FLAG FOR DOWNLINK
038578,001396: 33,3447           00247                           ADRES    HFAILFLG                              
038579,001397: 33,3450           41671                           CS       LRRCTR                                
038580,001398: 33,3451           00006                           EXTEND                                         
038581,001399: 33,3452           13462                           BZF      NORLITE                               #  IF R = 0, DO NOT TURN ON TRK FAIL
038582,001400: 33,3453           61670                           AD       LRLCTR                                
038583,001401: 33,3454           77750                           MASK     NEG3                                  
038584,001402: 33,3455           00006                           EXTEND                                         #  IF L-R LT 4, DO NOT TURN ON TRK FAIL
038585,001403: 33,3456           13460                           BZF      +2                                    
038586,001404: 33,3457           13462                           TCF      NORLITE                               
038587,001405: 
038588,001406: 33,3460           05515                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
038589,001407: 33,3461           00263                           ADRES    HFLSHFLG                              
038590,001408: 
038591,001409: 33,3462           31670        NORLITE            CA       LRLCTR                                
038592,001410: 33,3463           55671                           TS       LRRCTR                                #  SET R = L
038593,001411: 
038594,001412: 33,3464           13214                           TCF      VMEASCHK                              
038595,001413: 
038596,001414: 33,3465           05515        VFAIL              TC       UPFLAG                                
038597,001415: 33,3466           00246                           ADRES    VFAILFLG                              #  SET VFAIL FLAG FOR DOWNLINK

The above instruction and address are circled in red.

038599,001417: 33,3467           41673                           CS       LRSCTR                                
038600,001418: 33,3470           00006                           EXTEND                                         #  IF S = 0, DO NOT TURN ON TRACKER FAIL
038601,001419: 33,3471           13501                           BZF      NOLITE                                
038602,001420: 33,3472           61672                           AD       LRMCTR                                #  M-S
038603,001421: 33,3473           77750                           MASK     NEG3                                  #  TEST FOR M-S > 3
038604,001422: 33,3474           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.

038606,001424: 33,3475           13477                           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.

038609,001427: 33,3476           13501                           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..."

038611,001429: 
038612,001430: 33,3477           05515                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
038613,001431: 33,3500           00262                           ADRES    VFLSHFLG                              

The above instruction and address are circled.

038615,001433: 
038616,001434: 33,3501           31672        NOLITE             CA       LRMCTR                                #  SET S = M
038617,001435: 33,3502           55673                           TS       LRSCTR                                
038618,001436: 
038619,001437: 33,3503           11462                           CCS      VSELECT                               #  TEST FOR Z COMPONENT
038620,001438: 33,3504           13366                           TCF      ENDVDAT                               #  NOT Z, DO NOT SET VX INHIBIT
038621,001439: 
038622,001440: 33,3505           05515                           TC       UPFLAG                                #  Z COMPONENT - SET FLAG TO SKIP X
038623,001441: 33,3506           00250                           ADRES    VXINH                                 #  COMPONENT,AS ERROR MAY BE DUE TO CROSS
038624,001442: 33,3507           13366                           TCF      ENDVDAT                               #  LOBE LOCK UP NOT DETECTED ON X AXIS.
038625,001443: 

Page 894

038627,001445:                                                                                                  #  ********************************************************************************************************
038628,001446: 33,3510                                           BANK     33                                    
038629,001447: 33,2000                                           SETLOC   SERVICES                              
038630,001448: 33,2000                                           BANK                                           
038631,001449: 
038632,001450: 33,3510                                           COUNT*   $$/SERV                               
038633,001451: 
038634,001452: 33,3510  E7,1515                                  EBANK=   DVCNTR                                
038635,001453: 
038636,001454: 
038637,001455:                                                                                                  #  HIGATJOB IS BEGUN WHEN BOTH THE TIME AND ANGLE CRITERIA FOR ANTENNA REPOSITIONING ARE MET. THE JOB INITIATES THE
038638,001456:                                                                                                  #  LANDING RADAR ANTENNA REPOSITIONING ROUTINE. DURING THE REPOSITIONING, R12 IS INHIBITTED BY THE NOLRREAD FLAG.
038639,001457:                                                                                                  #  UPON COMPLETION OF THE REPOSITIONING,(SUCCESSFUL OR NOT),THE NOLRREAD   FLAG IS CLEARED AND R12 CONTINUES.
038640,001458: 
038641,001459: 
038642,001460: 33,3510           00004        REREPOS            INHINT                                         #  ON RESTART, SET FLAGS AGAIN
038643,001461: 33,3511           40107                           CS       FLGWRD11                              
038644,001462: 33,3512           75015                           MASK     PRIO3                                 
038645,001463: 33,3513           26107                           ADS      FLGWRD11                              
038646,001464: 
038647,001465: 33,3514           04616        HIGATJOB           TC       BANKCALL                              #  INITIATE REPOSITIONING ROUTINE
038648,001466: 33,3515           53511                           CADR     LRPOS2                                
038649,001467: 33,3516           04616                           TC       BANKCALL                              #  DELAY UNTIL FINISHED
038650,001468: 33,3517           17720                           CADR     RADSTALL                              
038651,001469: 
038652,001470: 33,3520           13521                           TCF      +1                                    #  IF UNSUCCESSFUL, R12 WILL HANDLE THINGS
038653,001471: 33,3521           34753                           CA       ONE                                   #  INDICATE POS 2 IS EXPECTED
038654,001472: 33,3522           55650                           TS       LRPOS                                 
038655,001473: 
038656,001474: 33,3523           05527                           TC       DOWNFLAG                              #  RE-ENABLE R12.
038657,001475: 33,3524           00252                           ADRES    NOLRREAD                              
038658,001476: 
038659,001477: 33,3525           05364                           TC       PHASCHNG                              #  CLEAR RESTART PROTECTION
038660,001478: 33,3526           00001                           OCT      1                                     
038661,001479: 33,3527           05155                           TC       ENDOFJOB                              

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


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