Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

038013,000002:                                                                                                  ## Copyright:   Public domain.
038014,000003:                                                                                                  ## Filename:    SERVICER.agc
038015,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
038016,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
038017,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
038018,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
038019,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
038020,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
038021,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
038022,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
038023,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
038024,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
038025,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
038026,000015:                                                                                                  ## Reference:   pp. 850-889
038027,000016:                                                                                                  ## Assembler:   yaYUL
038028,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
038029,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
038030,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
038031,000020:                                                                                                  ##              2017-08-17 MAS  Began updates for Zerlina 56.
038032,000021:                                                                                                  ##              2017-08-19 MAS  Completed updating for Zerlina 56.
038033,000022:                                                                                                  ##              2017-08-24 MAS  Replaced an incorrect VXM with VXV.
038034,000023: 

Page 850

038036,000025:                                                                                                  #  ****************************************************************************************************************
038037,000026:                                                                                                  #  VARIABLE GUIDANCE PERIOD SERVICER                                                               WRITTEN BY EYLES
038038,000027:                                                                                                  #  ****************************************************************************************************************
038039,000028: 
038040,000029: 34,2000                                           SETLOC   SERV1                                 
038041,000030: 34,2000                                           BANK                                           
038042,000031: 34,3661  E7,1513                                  EBANK=   DVCNTR                                
038043,000032: 34,3661                                           COUNT*   $$/SERV                               
038044,000033: 
038045,000034:                                                                                                  #  ****************************************************************************************************************
038046,000035:                                                                                                  #  PREREAD
038047,000036:                                                                                                  #  ****************************************************************************************************************
038048,000037: 
038049,000038:                                                                                                  #            THIS ROUTINE IS CALLED BY A TASK (TO WHICH IT DOES NOT RETURN) TO START SERVICER.   PREREAD ZEROES
038050,000039:                                                                                                  #  THE PIPAS AND PIPASOLD (PIPTIME1 IS ALREADY SET), SETS V37FLAG AND AVEGFLAG SO SHOW THAT SERVICER IS ON, CLEARS
038051,000040:                                                                                                  #  DRIFTFLAG TO SHOW THAT THOSE PASSIVE GUYS ARE NO LONGER IN CONTROL, INITIALIZES THE INFAMOUS DV MONITOR,
038052,000041:                                                                                                  #  INITIATES QUARTASK WHICH COMPRISES R10 AND R11, AND SETS UP NORMLIZE, THE JOB LEAD-IN TO THE SERVICER CYCLE.
038053,000042: 
038054,000043: 
038055,000044: 34,3661           05364        PREREAD            TC       PHASCHNG                              #  SKIP LASTBIAS IF THERE IS A RESTART
038056,000045: 34,3662           47015                           OCT      47015                                 
038057,000046: 34,3663           77777                           OCT      77777                                 
038058,000047: 34,3664  E7,1513                                  EBANK=   DVCNTR                                
038059,000048: 34,3664           03672 70067                     2CADR    BIBIBIAS                              
038060,000049: 
038061,000050: 
038062,000051: 34,3666           35031                           CAF      PRIO21                                
038063,000052: 34,3667           05072                           TC       NOVAC                                 
038064,000053: 34,3670  E3,1460                                  EBANK=   NBDX                                  
038065,000054: 34,3670           03671 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
038066,000055: 
038067,000056: 
038068,000057: 34,3672           44755        BIBIBIAS           CS       ZERO                                  #  ZERO PIPAS AND PIPASOLD
038069,000058: 34,3673           54037                           TS       PIPAX                                 
038070,000059: 34,3674           54040                           TS       PIPAY                                 
038071,000060: 34,3675           54041                           TS       PIPAZ                                 
038072,000061: 34,3676           55254                           TS       PIPAXOLD                              
038073,000062: 34,3677           55255                           TS       PIPAYOLD                              
038074,000063: 34,3700           55256                           TS       PIPAZOLD                              
038075,000064: 
038076,000065: 34,3701           34743                           CAF      BIT9                                  #  SET TEST CONNECTOR OUTBIT TO TELL THE
038077,000066: 34,3702           00006                           EXTEND                                         #    HYBRID THAT AVERAGE-G IS STARTING
038078,000067: 34,3703           05011                           WOR      DSALMOUT                              
038079,000068: 
038080,000069: 34,3704           40103                           CS       FLAGWRD7                              
038081,000070: 34,3705           74773                           MASK     SUPER011                              #  SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
038082,000071: 34,3706           26103                           ADS      FLAGWRD7                              #    OF FLAGWRD7)
038083,000072: 
038084,000073: 34,3707           05527                           TC       DOWNFLAG                              #  CLEAR DRIFTFLG TO STOP COASTING FLIGHT
038085,000074: 34,3710           00036                           ADRES    DRIFTFLG                              #    TYPE GYRO COMPENSATION  ????
038086,000075: 

Page 851

038088,000077: 34,3711           30102                           CA       FLAGWRD6                              #  IS MUNFLAG SET?
038089,000078: 34,3712           74744                           MASK     MUNFLBIT                              
038090,000079: 34,3713           00006                           EXTEND                                         
038091,000080: 34,3714           13731                           BZF      NORMSET                               #  NO:   DO NOT INITIATE QUARTASK
038092,000081: 
038093,000082: 34,3715           10754                           CCS      PHASE2                                #  AVOID MULTIPLE QUARTASK CALL
038094,000083: 34,3716           13731                           TCF      NORMSET                               
038095,000084: 
038096,000085: 34,3717           40025                           CS       TIME1                                 
038097,000086: 34,3720           55054                           TS       TBASE2                                
038098,000087: 34,3721           34361                           CAF      DEC17                                 #  2.21SPOT FOR QUARTASK
038099,000088: 34,3722           54001                           TS       L                                     
038100,000089: 34,3723           40000                           COM                                            
038101,000090: 34,3724           52754                           DXCH     -PHASE2                               
038102,000091: 
038103,000092: 34,3725           36010                           CAF      OCT31                                 
038104,000093: 34,3726           05214                           TC       WAITLIST                              
038105,000094: 34,3727  E7,1777                                  EBANK=   END-E7                                
038106,000095: 34,3727           02055 42067                     2CADR    QUARTASK                              
038107,000096: 
038108,000097: 
038109,000098: 34,3731           34736        NORMSET            CAF      PRIO20                                #  SET UP SERVICER LEAD-IN AT PRIORITY 20
038110,000099: 34,3732           05105                           TC       FINDVAC                               
038111,000100: 34,3733  E7,1513                                  EBANK=   DVCNTR                                
038112,000101: 34,3733           02037 66067                     2CADR    NORMLIZE                              
038113,000102: 
038114,000103: 
038115,000104: 34,3735           05364                           TC       PHASCHNG                              #  PROTECT NORMLIZE IN GROUP 5 AT PRIO 20
038116,000105: 34,3736           07025                           OCT      07025                                 
038117,000106: 34,3737           20000                           OCT      20000                                 #  PRIORITY 20
038118,000107: 34,3740  E7,1513                                  EBANK=   DVCNTR                                
038119,000108: 34,3740           02037 66067                     2CADR    NORMLIZE                              
038120,000109: 
038121,000110: 
038122,000111: 34,3742           15272                           TCF      TASKOVER                              
038123,000112: 
038124,000113:                                                                                                  #  ****************************************************************************************************************
038125,000114:                                                                                                  #  NORMLIZE - SERVICER JOB LEAD-IN
038126,000115:                                                                                                  #  ****************************************************************************************************************
038127,000116: 
038128,000117: 33,2000                                           SETLOC   SERVICES                              
038129,000118: 33,2000                                           BANK                                           
038130,000119: 33,2037  E7,1513                                  EBANK=   DVCNTR                                
038131,000120: 33,2037                                           COUNT*   $$/SERV                               
038132,000121: 
038133,000122: 33,2037           06051        NORMLIZE           TC       INTPRET                               
038134,000123: 33,2040           43175                           VLOAD    BOFF                                  
038135,000124: 33,2041           03543                                    RN1                                   
038136,000125: 33,2042           03347                                    MUNFLAG                               
038137,000126: 33,2043           66074                                    NORMLIZ1                              

Page 852

038139,000128: 33,2044           64252                           VSL6     MXV                                   
038140,000129: 33,2045           01732                                    REFSMMAT                              
038141,000130: 33,2046           37517                           STCALL   R                                     
038142,000131: 33,2047           71743                                    MUNGRAV                               
038143,000132: 33,2050           76575                           VLOAD    VSL1                                  
038144,000133: 33,2051           03551                                    VN1                                   
038145,000134: 33,2052           77721                           MXV                                            
038146,000135: 33,2053           01732                                    REFSMMAT                              
038147,000136: 33,2054           03525                           STORE    V                                     
038148,000137: 33,2055           41535                           SLOAD    PUSH                                  #  COMPUTE PIPA BIAS VECTOR FOR USE BY
038149,000138: 33,2056           01457                                    PBIASZ                                #    P66ROD AND LANDING ANALOG DISPLAYS
038150,000139: 33,2057           41535                           SLOAD    PUSH                                  
038151,000140: 33,2060           01455                                    PBIASY                                
038152,000141: 33,2061           55535                           SLOAD    VDEF                                  
038153,000142: 33,2062           01453                                    PBIASX                                
038154,000143: 33,2063           77561                           VXSC     EXIT                                  #  RESCALE TO UNITS OF 2(-9) M/CS/CS
038155,000144: 33,2064           27757                                    BIASFACT                              
038156,000145: 
038157,000146: 33,2065           30154                           CA       MPAC                                  
038158,000147: 33,2066           55704                           TS       BIASACCX                              
038159,000148: 33,2067           30157                           CA       MPAC       +3                         
038160,000149: 33,2070           55705                           TS       BIASACCY                              
038161,000150: 33,2071           30161                           CA       MPAC       +5                         
038162,000151: 33,2072           55706                           TS       BIASACCZ                              
038163,000152: 
038164,000153: 33,2073           12077                           TCF      NORMLIZ2                              
038165,000154: 
038166,000155: 33,2074           77624        NORMLIZ1           CALL                                           
038167,000156: 33,2075           77606                                    CALCGRAV                              
038168,000157: 33,2076           77776                           EXIT                                           
038169,000158: 
038170,000159: 33,2077           36007        NORMLIZ2           CAF      OCT24                                 #  TWENTY TO YOU
038171,000160: 33,2100           03674                           TC       COPYCYC    +1                         #  DO NOT COPY MASS IN NORMLIZE
038172,000161: 
038173,000162: 33,2101           00003                           RELINT                                         
038174,000163: 
038175,000164:                                                                                                  #                                             (FALL THROUGH TO PIPCYCLE)
038176,000165: 
038177,000166:                                                                                                  #  ****************************************************************************************************************
038178,000167:                                                                                                  #  START OF SERVICER CYCLE
038179,000168:                                                                                                  #  ****************************************************************************************************************
038180,000169: 
038181,000170: 33,2102  33,2102               SERVEXIT           =        PIPCYCLE                              
038182,000171: 
038183,000172: 33,2102           06042        PIPCYCLE           TC       SERVCHNG                              
038184,000173: 
038185,000174: 33,2103           05527                           TC       DOWNFLAG                              #  CLEAR SERVOVER FLAG TO INDICATE THAT
038186,000175: 33,2104           00043                           ADRES    SERVOVER                              #    SERVICER IS STARTING A NEW PASS
038187,000176: 
038188,000177: 33,2105           35016                           CAF      EBANK7                                #  INSURE PROPER EBANK

Page 853

038190,000179: 33,2106           54003                           TS       EBANK                                 
038191,000180: 33,2107  E7,1777                                  EBANK=   END-E7                                
038192,000181: 
038193,000182: 33,2107           40025                           CS       TIME1                                 #  WAS LAST READACCS LONG ENOUGH AGO?
038194,000183: 33,2110           61234                           AD       PIPTIME    +1                         
038195,000184: 33,2111           64734                           AD       NEG1/2                                
038196,000185: 33,2112           64734                           AD       NEG1/2                                
038197,000186: 33,2113           56001                           XCH      L                                     #  CLEAR PROBABLE OVERFLOW
038198,000187: 33,2114           56001                           XCH      L                                     
038199,000188: 33,2115           65000                           AD       PGMIN                                 
038200,000189: 33,2116           00006                           EXTEND                                         
038201,000190: 33,2117           62122                           BZMF     READACCS                              #  YES:  GO STRAIGHT TO READACCS
038202,000191: 
038203,000192: 33,2120           04616                           TC       BANKCALL                              #  NO:   DELAY IT ACCORDINGLY
038204,000193: 33,2121           01736                           CADR     DELAYJOB                              
038205,000194: 
038206,000195: 33,2122           00004        READACCS           INHINT                                         #  INHINT SO DELVS, CDUTEMPS, PIPTIME1 AND
038207,000196: 33,2123           00006                           EXTEND                                         #    PGUIDE1 WILL BE A CONSISTENT SET
038208,000197: 33,2124           30025                           DCA      TIME2                                 
038209,000198: 33,2125           53557                           DXCH     PIPTIME1                              
038210,000199: 
038211,000200: 33,2126           30037                           CA       PIPAX                                 
038212,000201: 33,2127           55157                           TS       PIPATMPX                              
038213,000202: 33,2130           30040                           CA       PIPAY                                 
038214,000203: 33,2131           55160                           TS       PIPATMPY                              
038215,000204: 33,2132           30041                           CA       PIPAZ                                 
038216,000205: 33,2133           55161                           TS       PIPATMPZ                              
038217,000206: 33,2134           30032                           CA       CDUX                                  
038218,000207: 33,2135           55154                           TS       CDUTEMPX                              
038219,000208: 33,2136           30033                           CA       CDUY                                  
038220,000209: 33,2137           55155                           TS       CDUTEMPY                              
038221,000210: 33,2140           30034                           CA       CDUZ                                  
038222,000211: 33,2141           55156                           TS       CDUTEMPZ                              
038223,000212: 
038224,000213: 33,2142           41254                           CS       PIPAXOLD                              
038225,000214: 33,2143           61157                           AD       PIPATMPX                              
038226,000215: 33,2144           03716                           TC       PIPNORM                               
038227,000216: 33,2145           52325                           DXCH     DELVX                                 
038228,000217: 
038229,000218: 33,2146           41255                           CS       PIPAYOLD                              
038230,000219: 33,2147           61160                           AD       PIPATMPY                              
038231,000220: 33,2150           03716                           TC       PIPNORM                               
038232,000221: 33,2151           52327                           DXCH     DELVY                                 
038233,000222: 
038234,000223: 33,2152           41256                           CS       PIPAZOLD                              
038235,000224: 33,2153           61161                           AD       PIPATMPZ                              
038236,000225: 33,2154           03716                           TC       PIPNORM                               
038237,000226: 33,2155           52331                           DXCH     DELVZ                                 
038238,000227: 
038239,000228: 33,2156           41234                           CS       PIPTIME    +1                         #  COMPUTE GUIDANCE PERIOD PGUIDE1

Page 854

038241,000230: 33,2157           61557                           AD       PIPTIME1   +1                         
038242,000231: 33,2160           64736                           AD       HALF                                  
038243,000232: 33,2161           64736                           AD       HALF                                  
038244,000233: 33,2162           22007                           ZL                                             
038245,000234: 33,2163           53567                           DXCH     PGUIDE1                               
038246,000235: 
038247,000236: 33,2164           00003                           RELINT                                         
038248,000237: 33,2165           06042                           TC       SERVCHNG                              #  PIPATMPS GO TO PIPASOLD AT COPYCYCL
038249,000238: 
038250,000239:                                                                                                  #           THE PHILOSOPHY OF THE HANDLING OF PIPAS AND PIPASOLD IS THIS:   THAT AT ANY TIME THE QUANTITY
038251,000240:                                                                                                  #  PIPAS-PIPASOLD BE THE THRUST DELTA-V NEEDED TO EXTRAPOLATE LM POSITION AND VELOCITY FROM R AND V (VALID AT
038252,000241:                                                                                                  #  PIPTIME) TO THE PRESENT TIME.   THE COMPUTATIONS THIS PARTICULARLY ASSISTS ARE IN THE LANDING ANALOG
038253,000242:                                                                                                  #  DISPLAYS, LANDING RADAR DATA INCORPORATION (PART OF SERVICER), AND P66 R.O.D.
038254,000243: 
038255,000244: 33,2166           43745        PIPSDONE           CS       PGMAX                                 #  WAS LAST READACCS TOO LONG AGO?
038256,000245: 33,2167           61566                           AD       PGUIDE1                               
038257,000246: 33,2170           00006                           EXTEND                                         
038258,000247: 33,2171           62174                           BZMF     +3                                    #  NO
038259,000248: 
038260,000249: 33,2172           05600                           TC       ALARM                                 #  YES:  LIGHT ALARM LIGHT
038261,000250: 33,2173           00555                           OCT      00555                                 
038262,000251: 
038263,000252: 33,2174           40103                           CS       FLAGWRD7                              #  HAS AVEGFLAG FALLEN?
038264,000253: 33,2175           74747                           MASK     AVEGFBIT                              
038265,000254: 33,2176           00006                           EXTEND                                         
038266,000255: 33,2177           12203                           BZF      SERVICER                              #  NO:   CONTINUE AVERAGE-G
038267,000256: 
038268,000257: 33,2200           00006        AVEGOUT            EXTEND                                         #  YES:  THEN THIS IS THE LAST SERVICER
038269,000258: 33,2201           33741                           DCA      AVOUTCAD                              
038270,000259: 33,2202           53253                           DXCH     AVGEXIT                               
038271,000260: 
038272,000261: 33,2203           35007        SERVICER           CAF      EBANK3                                
038273,000262: 33,2204           54003                           TS       EBANK                                 
038274,000263: 33,2205  E3,1446                                  EBANK=   PHSNAME5                              
038275,000264: 33,2205           33742                           CAF      GETABADR                              #  SKIP 1/PIPA AFTER RESTART
038276,000265: 33,2206           55446                           TS       PHSNAME5                              
038277,000266: 33,2207           35016                           CAF      EBANK7                                
038278,000267: 33,2210           54003                           TS       EBANK                                 
038279,000268: 33,2211  E7,1513                                  EBANK=   DVCNTR                                
038280,000269: 
038281,000270: 33,2211           31566                           CA       PGUIDE1                               #  SET 1/PIPADT TO PGUIDE1 JUST COMPUTED
038282,000271: 33,2212           00006                           EXTEND                                         
038283,000272: 33,2213           74747                           MP       BIT5                                  #  RESCALE PGUIDE TO UNITS OF 2(10) CS
038284,000273: 33,2214           23074                           LXCH     1/PIPADT                              
038285,000274: 
038286,000275: 33,2215           04616                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
038287,000276: 33,2216           15271                           CADR     1/PIPA                                
038288,000277: 
038289,000278: 33,2217           30120        GETABVAL           CA       FIXLOC                                #  ZERO PUSHDOWN POINTER
038290,000279: 33,2220           54166                           TS       PUSHLOC                               
038291,000280: 

Page 855

038293,000282: 33,2221           30324                           CA       DELV                                  
038294,000283: 33,2222           00006                           EXTEND                                         
038295,000284: 33,2223           70000                           MP       A                                     
038296,000285: 33,2224           52155                           DXCH     MPAC                                  
038297,000286: 33,2225           30326                           CA       DELV       +2                         
038298,000287: 33,2226           00006                           EXTEND                                         
038299,000288: 33,2227           70000                           MP       A                                     
038300,000289: 33,2230           20155                           DAS      MPAC                                  
038301,000290: 33,2231           30330                           CA       DELV       +4                         
038302,000291: 33,2232           00006                           EXTEND                                         
038303,000292: 33,2233           70000                           MP       A                                     
038304,000293: 33,2234           20155                           DAS      MPAC                                  
038305,000294: 33,2235           04713                           TC       USPRCADR                              
038306,000295: 33,2236           01207                           CADR     SQRT                                  
038307,000296: 33,2237           30154                           CA       MPAC                                  
038308,000297: 33,2240           55247                           TS       ABDELV                                #  |DELV| IN LM PIPA UNITS OF ONE CM/S/BIT
038309,000298: 
038310,000299: 33,2241           00006                           EXTEND                                         #  MAKE A NUMBER FOR THOSE WHO ARE USED
038311,000300: 33,2242           75000                           MP       2SECS                                 #    TO USING ABDELV AS AN ACCELERATION,
038312,000301: 33,2243           00006                           EXTEND                                         #    LIKE 1/ACCS AND THE DELTA-V MONITOR
038313,000302: 33,2244           11566                           DV       PGUIDE1                               
038314,000303: 33,2245           55250                           TS       ABDVACC                               #  SAME UNITS AS ABDELV BUT AN ACCELERATION
038315,000304: 
038316,000305: 33,2246           00006                           EXTEND                                         
038317,000306: 33,2247           31246                           DCA      MASS                                  
038318,000307: 33,2250           53571                           DXCH     MASS1                                 #  INITIALIZE MASS1 IN CASE WE SKIP MASSMON
038319,000308: 
038320,000309: 33,2251           40104        MASSMON            CS       FLAGWRD8                              #  ARE WE ON THE SURFACE?
038321,000310: 33,2252           74744                           MASK     SURFFBIT                              
038322,000311: 33,2253           00006                           EXTEND                                         
038323,000312: 33,2254           12273                           BZF      MOONSPOT                              #  YES:  BYPASS MASS MESS
038324,000313: 
038325,000314: 33,2255           30106                           CA       FLGWRD10                              #  NO:   WHICH VEX SHOULD BE USED?
038326,000315: 33,2256           74737                           MASK     APSFLBIT                              
038327,000316: 33,2257           10000                           CCS      A                                     
038328,000317: 33,2260           00006                           EXTEND                                         #  IF EXTEND IS EXECUTED, APSVEX --> A,
038329,000318: 33,2261           32001                           DCA      APSVEX                                #    OTHERWISE DPSVEX --> A
038330,000319: 33,2262           54002                           TS       Q                                     
038331,000320: 
038332,000321: 33,2263           31247                           CA       ABDELV                                
038333,000322: 33,2264           00006                           EXTEND                                         
038334,000323: 33,2265           72012                           MP       KPIP                                  
038335,000324: 33,2266           00006                           EXTEND                                         
038336,000325: 33,2267           10002                           DV       Q                                     #  WHERE APPROPRIATE VEX RESIDES
038337,000326: 33,2270           00006                           EXTEND                                         
038338,000327: 33,2271           71245                           MP       MASS                                  
038339,000328: 33,2272           21571                           DAS      MASS1                                 
038340,000329: 
038341,000330: 33,2273           32013        MOONSPOT           CA       KPIP1                                 #  TP MPAC = ABDELV AT 2(14) CM/SEC
038342,000331: 33,2274           07321                           TC       SHORTMP                               #  MULTIPLY BY KPIP1 TO GET
038343,000332: 

Page 856 The following 5 lines are marked as having changed between ZFLY.048 and ZFLY.049

038346,000335: 33,2275           00006                           EXTEND                                         
038347,000336: 33,2276           31510                           DCA      DVTOTAL                               
038348,000337: 33,2277           20155                           DAS      MPAC                                  
038349,000338: 33,2300           52155                           DXCH     MPAC                                  
038350,000339: 33,2301           53174                           DXCH     DVTEMP                                #  PRELIMINARY DVTOTAL, UNITS OF 2(7) M/CS
038351,000340: 
038352,000341: 33,2302           03707                           TC       TMPTOSPT                              
038353,000342: 
038354,000343: 33,2303           04616                           TC       BANKCALL                              #  COMPUTE SINES AND COSINES FOR FLESHPOT
038355,000344: 33,2304           47622                           CADR     QUICTRIG                              
038356,000345: 
038357,000346: 33,2305           33743                           CAF      XNBPIPAD                              #  COMPUTE BODY-PLATFORM MATRIX
038358,000347: 33,2306           04616                           TC       BANKCALL                              
038359,000348: 33,2307           20037                           CADR     FLESHPOT                              
038360,000349: 
038361,000350: 33,2310           40102        AVERAGEG           CS       FLAGWRD6                              #  IS MUNFLAG SET?
038362,000351: 33,2311           74744                           MASK     MUNFLBIT                              
038363,000352: 33,2312           00006                           EXTEND                                         
038364,000353: 33,2313           12347                           BZF      RVBOTH                                #  YES:  DO DESCENT-ASCENT NAVIGATION
038365,000354: 
038366,000355:                                                                                                  #                                             (FALL THROUGH TO CALCRVG)    NO
038367,000356: 
038368,000357:                                                                                                  #  ****************************************************************************************************************
038369,000358:                                                                                                  #  NAVIGATION USED BY THE P40S NEAR EARTH OR MOON
038370,000359:                                                                                                  #  ****************************************************************************************************************
038371,000360: 
038372,000361: 
038373,000362: 33,2314           06051        CALCRVG            TC       INTPRET                               
038374,000363: 33,2315           61375                           VLOAD    VXM                                   
038375,000364: 33,2316           00325                                    DELV                                  
038376,000365: 33,2317           01732                                    REFSMMAT                              
038377,000366: 33,2320           76561                           VXSC     VSL1                                  
038378,000367: 33,2321           26014                                    KPIP1                                 
038379,000368: 33,2322           03525                           STORE    DELVREF                               
038380,000369: 33,2323           41562                           VSR1     PUSH                                  
038381,000370: 33,2324           74325                           PDDL     VXSC                                  
038382,000371: 33,2325           03567                                    PGUIDE1                               
038383,000372: 33,2326           01236                                    G                                     
038384,000373: 33,2327           53255                           VAD      VAD                                   
038385,000374: 33,2330           01226                                    VN                                    
038386,000375: 33,2331           54206                           PUSH     VSR                                   
038387,000376: 33,2332           20611                                    8D                                    
038388,000377: 33,2333           53361                           VXSC     VAD                                   
038389,000378: 33,2334           03567                                    PGUIDE1                               
038390,000379: 33,2335           01220                                    RN                                    
038391,000380: 33,2336           37543                           STCALL   RN1                                   #  VECTOR RN1 IN UNITS OF 2(29) METERS
038392,000381: 33,2337           77606                                    CALCGRAV                              
038393,000382: 
038394,000383: 33,2340           53361                           VXSC     VAD                                   
038395,000384: 33,2341           03567                                    PGUIDE1                               
038396,000385: 33,2342           45455                           VAD      STADR                                 
038397,000386: 

Page 857

038399,000388: 33,2343           74226                           STORE    VN1                                   #  VECTOR VN1 IN UNITS OF 2(7) M/CS
038400,000389: 33,2344           77776                           EXIT                                           
038401,000390: 
038402,000391: 33,2345           06042                           TC       SERVCHNG                              
038403,000392: 33,2346           13365                           TCF      COPYCYCL                              
038404,000393: 
038405,000394:                                                                                                  #  ****************************************************************************************************************
038406,000395:                                                                                                  #  NAVIGATION USED BY DESCENT AND ASCENT ONLY
038407,000396:                                                                                                  #  ****************************************************************************************************************
038408,000397: 
038409,000398: 33,2347           06051        RVBOTH             TC       INTPRET                               
038410,000399: 33,2350           74375                           VLOAD    VXSC                                  
038411,000400: 33,2351           02310                                    G(CSM)                                
038412,000401: 33,2352           03567                                    PGUIDE1                               
038413,000402: 33,2353           41455                           VAD      PUSH                                  
038414,000403: 33,2354           01724                                    V(CSM)                                
038415,000404: 33,2355           74322                           VSR3     VXSC                                  
038416,000405: 33,2356           03567                                    PGUIDE1                               
038417,000406: 33,2357           77655                           VAD                                            
038418,000407: 33,2360           01716                                    R(CSM)                                
038419,000408: 33,2361           37573                           STCALL   R1S                                   #  CSM POSITION IN UNITS OF 2(24) METERS
038420,000409: 33,2362           71743                                    MUNGRAV                               
038421,000410: 33,2363           77761                           VXSC                                           
038422,000411: 33,2364           03567                                    PGUIDE1                               
038423,000412: 33,2365           45455                           VAD      STADR                                 
038424,000413: 33,2366           74176                           STORE    V1S                                   #  CSM VELOCITY IN UNITS OF 2(7) M/CS
038425,000414: 33,2367           77776                           EXIT                                           
038426,000415: 
038427,000416: 33,2370           06042                           TC       SERVCHNG                              
038428,000417: 
038429,000418: 33,2371           06051                           TC       INTPRET                               
038430,000419: 33,2372           77775                           VLOAD                                          
038431,000420: 33,2373           03561                                    G1                                    
038432,000421: 33,2374           26310                           STOVL    G(CSM)                                
038433,000422: 33,2375           03573                                    R1S                                   
038434,000423: 33,2376           25716                           STOVL    R(CSM)                                
038435,000424: 33,2377           03601                                    V1S                                   
038436,000425: 33,2400           01724                           STORE    V(CSM)                                
038437,000426: 33,2401           77776                           EXIT                                           
038438,000427: 
038439,000428: 33,2402           06042                           TC       SERVCHNG                              
038440,000429: 
038441,000430: 33,2403           06051        MUNRVG             TC       INTPRET                               
038442,000431: 33,2404           74375                           VLOAD    VXSC                                  
038443,000432: 33,2405           00325                                    DELV                                  
038444,000433: 33,2406           26016                                    KPIP2                                 
038445,000434: 33,2407           65206                           PUSH     PDDL                                  #  PUSH DOWN SCALED DELV TWICE
038446,000435: 33,2410           03567                                    PGUIDE1                               
038447,000436: 33,2411           53361                           VXSC     VAD                                   
038448,000437: 33,2412           01236                                    G                                     

Page 858

038450,000439: 33,2413           41455                           VAD      PUSH                                  
038451,000440: 33,2414           03525                                    V                                     
038452,000441: 33,2415           74322                           VSR3     VXSC                                  
038453,000442: 33,2416           03567                                    PGUIDE1                               
038454,000443: 33,2417           77655                           VAD                                            
038455,000444: 33,2420           03517                                    R                                     
038456,000445: 33,2421           37573                           STCALL   R1S                                   #  VECTOR R1S IN UNITS OF 2(24) METERS
038457,000446: 33,2422           71743                                    MUNGRAV                               
038458,000447: 33,2423           53361                           VXSC     VAD                                   
038459,000448: 33,2424           03567                                    PGUIDE1                               
038460,000449: 33,2425           45455                           VAD      STADR                                 
038461,000450: 33,2426           74176                           STORE    V1S                                   #  VECTOR V1S IN UNITS OF 2(7) M/CS
038462,000451: 33,2427           77646                           ABVAL                                          
038463,000452: 33,2430           27472                           STOVL    ABVEL                                 #  ABVEL IN UNITS OF 2(7) M/CS
038464,000453: 33,2431           00035                                    28D                                   
038465,000454: 33,2432           17535                           STODL    UNIT/R/                               #  ONLY UNIT/R/ COMPUTATION IN MUNGRAV CASE
038466,000455: 33,2433           00045                                    36D                                   
038467,000456: 33,2434           47025                           DSU      RTB                                   #  MPAC MUST BE SIGNAGREED FOR MUNRETRN
038468,000457: 33,2435           02324                                    /LAND/                                
038469,000458: 33,2436           21574                                    SGNAGREE                              
038470,000459: 33,2437           03533                           STORE    HCALC                                 #  COPYCYC1 MAY CHANGE THIS HCALC
038471,000460: 33,2440           77776                           EXIT                                           
038472,000461: 
038473,000462: 33,2441           40107                           CS       FLGWRD11                              #  IS LRBYPASS SET?
038474,000463: 33,2442           74735                           MASK     LRBYBIT                               
038475,000464: 33,2443           00006                           EXTEND                                         
038476,000465: 33,2444           13233                           BZF      COPYCYC1                              #  YES:  BYPASS ALL LANDING RADAR LOGIC
038477,000466: 
038478,000467:                                                                                                  #                                             (FALL THROUGH TO LR LOGIC)
038479,000468: 
038480,000469:                                                                                                  #  ****************************************************************************************************************
038481,000470:                                                                                                  #  LANDING RADAR DATA INCORPORATION
038482,000471:                                                                                                  #  ****************************************************************************************************************
038483,000472: 
038484,000473: 
038485,000474:                                                                                                  #  ********************************
038486,000475:                                                                                                  #  LR PRELIMINARIES
038487,000476:                                                                                                  #  ********************************
038488,000477: 
038489,000478:                                                                                                  #      MUNRETRN DEPENDS ON SEEING HCALC IN MPAC WITH SIGNS AGREED.
038490,000479: 
038491,000480: 33,2445           30154        MUNRETRN           CA       MPAC                                  #  IS ALT < 1024 METERS?
038492,000481: 33,2446           00006                           EXTEND                                         
038493,000482: 33,2447           12465                           BZF      LROFF?                                #  YES:  GO CHECK ALTITUDE AGAINST HLROFF
038494,000483: 
038495,000484: 33,2450           40107                           CS       FLGWRD11                              #  NO:   IS ALTITUDE ALREADY < 30000 FEET?
038496,000485: 33,2451           74743                           MASK     XORFLBIT                              
038497,000486: 33,2452           00006                           EXTEND                                         
038498,000487: 33,2453           12473                           BZF      R12                                   #  YES
038499,000488: 
038500,000489: 33,2454           00006        30KCHK             EXTEND                                         #  NO:   IS ALT < 30000 FEET NOW?

Page 859

038502,000491: 33,2455           33755                           DCA      1-30KFT                               
038503,000492: 33,2456           20155                           DAS      MPAC                                  
038504,000493: 
038505,000494: 33,2457           10000                           CCS      A                                     
038506,000495: 33,2460           12473                           TCF      R12                                   #  NO:   ALTITUDE STILL > 30000 FEET
038507,000496: 33,2461           05515                           TC       UPFLAG                                #  YES:   SET X-AXIS OVERRIDE INHIBIT FLAG
038508,000497: 33,2462           00311                           ADRES    XOVINFLG                              
038509,000498: 33,2463           05515                           TC       UPFLAG                                
038510,000499: 33,2464           00253                           ADRES    XORFLG                                
038511,000500: 
038512,000501: 33,2465           40155        LROFF?             CS       MPAC       +1                         #  IS ALTITUDE < HLROFF?
038513,000502: 33,2466           61451                           AD       HLROFF                                
038514,000503: 33,2467           00006                           EXTEND                                         
038515,000504: 33,2470           62473                           BZMF     R12                                   #  NO:   GO TRY UPDATE
038516,000505: 
038517,000506: 33,2471           05527                           TC       DOWNFLAG                              #  YES:  RESET LR PERMIT FLAG
038518,000507: 33,2472           00254                           ADRES    LRINH                                 
038519,000508: 
038520,000509: 33,2473           40107        R12                CS       FLGWRD11                              #  IS NOLRREAD SET (BY HIGATASK)?
038521,000510: 33,2474           74742                           MASK     NOLRRBIT                              
038522,000511: 33,2475           00006                           EXTEND                                         
038523,000512: 33,2476           13222                           BZF      CONTSERV                              #  YES:  BYPASS POSITION CHECK AND UPDATE
038524,000513: 
038525,000514: 33,2477           34776        POSTST             CA       BITS6+7                               #  NO:   TEST LR ANTENNA POSITION DISCRETES
038526,000515: 33,2500           00006                           EXTEND                                         
038527,000516: 33,2501           02033                           RAND     CHAN33                                
038528,000517: 33,2502           00006                           EXTEND                                         
038529,000518: 33,2503           74742                           MP       BIT10                                 #  SHIFT BITS 6 AND 7 TO BITS 1 AND 2
038530,000519: 
038531,000520: 33,2504           50000                           INDEX    A                                     
038532,000521: 33,2505           12506                           TCF      +1                                    
038533,000522: 33,2506           12511                           TCF      511?                                  #  A = 0 --> BOTH DISCRETES PRESENT
038534,000523: 33,2507           12520                           TCF      POSCHNG?                              #  A = 1 --> POSITION 2
038535,000524: 33,2510           12520                           TCF      POSCHNG?                              #  A = 2 --> POSITION 1
038536,000525: 33,2511           11622        511?               CCS      511CTR                                #  IF CONDITION PERSISTS FOR FIVE
038537,000526: 33,2512           12516                           TCF      ST511CTR                              #  CONSECUTIVE PASSES,ISSUE 511 ALARM
038538,000527: 33,2513           05600                           TC       ALARM                                 
038539,000528: 33,2514           00511                           OCT      511                                   
038540,000529: 33,2515           44755                           CS       ZERO                                  #  SET CTR TO -0 TO BYPASS ALARM
038541,000530: 33,2516           55622        ST511CTR           TS       511CTR                                
038542,000531: 33,2517           13222                           TCF      CONTSERV                              
038543,000532: 33,2520           54001        POSCHNG?           TS       L                                     
038544,000533: 
038545,000534: 33,2521           34751                           CA       FOUR                                  #  SET 511CTR TO RE-ENABLE 511 ALARM
038546,000535: 33,2522           55622                           TS       511CTR                                
038547,000536: 
038548,000537: 33,2523           23650                           LXCH     LRPOS                                 #  UPDATE LRPOS WITH NEW POSITION
038549,000538: 33,2524           41650                           CS       LRPOS                                 
038550,000539: 33,2525           60001                           AD       L                                     #  IS NEWPOS = OLDPOS?
038551,000540: 33,2526           00006                           EXTEND                                         

Page 860

038553,000542: 33,2527           12531                           BZF      EXTRAPRV                              #  YES
038554,000543: 33,2530           13222                           TCF      CONTSERV                              #  NO
038555,000544: 
038556,000545:                                                                                                  #           NOW MUST BE COMPUTED THE ALTITUDE AND VELOCITY VECTORS AT THE TIME OF THE RADAR READING.   THE
038557,000546:                                                                                                  #  FINAL VALUES OF R AND V FROM THE LAST SERVICER ARE EXTRAPOLATED FORWARD TO LRTIME.   THE CONTENTS OF THE PIPAS
038558,000547:                                                                                                  #  AT LRTIME WERE STORED IN PIPTEM.   THE RESULTS ARE STORED IN RN1, VN1 AND HLRTIME FOR POSUPDAT AND VELUPDAT.
038559,000548: 
038560,000549:                                                                                                  #      ALSO EXTRAPRV COMPUTES A BODY-PLATFORM MATRIX VALID AT LRTIME AND STORES IT AT XNBRAD.   THIS IS USED BY
038561,000550:                                                                                                  #  POSUPDAT AND VELUPDAT TO CONVERT BEAM VECTORS TO PLATFORM COORDINATES.
038562,000551: 
038563,000552: 33,2531           34741        EXTRAPRV           CAF      EBANK4                                
038564,000553: 33,2532  E4,1650                                  EBANK=   PIPTEM                                
038565,000554: 33,2532           54003                           TS       EBANK                                 
038566,000555: 
038567,000556: 33,2533           31646                           CA       LRYCDU                                
038568,000557: 33,2534           54765                           TS       CDUSPOTY                              
038569,000558: 33,2535           31647                           CA       LRZCDU                                
038570,000559: 33,2536           54767                           TS       CDUSPOTZ                              
038571,000560: 33,2537           31645                           CA       LRXCDU                                
038572,000561: 33,2540           54771                           TS       CDUSPOTX                              
038573,000562: 
038574,000563: 33,2541           04616                           TC       BANKCALL                              #  PREPARE SINES AND COSINES FOR FLESHPOT
038575,000564: 33,2542           47622                           CADR     QUICTRIG                              
038576,000565: 
038577,000566: 33,2543           33744                           CAF      XNBRADAD                              #  COMPUTE MATRIX XNBRAD VALIB AT LRTIME
038578,000567: 33,2544           04616                           TC       BANKCALL                              #    (CAN'T USE *NBSM* LATER BECAUSE P66ROD
038579,000568: 33,2545           20037                           CADR     FLESHPOT                              #    COULD CLOBBER SINES AND COSINES)
038580,000569: 
038581,000570: 33,2546           00004                           INHINT                                         #  INHINT FOR PIPNORM, INTPRET WILL RELINT
038582,000571: 33,2547           41254                           CS       PIPAXOLD                              
038583,000572: 33,2550           61650                           AD       PIPTEM                                
038584,000573: 33,2551           03716                           TC       PIPNORM                               
038585,000574: 33,2552           52155                           DXCH     MPAC                                  
038586,000575: 33,2553           41255                           CS       PIPAYOLD                              
038587,000576: 33,2554           61651                           AD       PIPTEM     +1                         
038588,000577: 33,2555           03716                           TC       PIPNORM                               
038589,000578: 33,2556           52160                           DXCH     MPAC       +3                         
038590,000579: 33,2557           41256                           CS       PIPAZOLD                              
038591,000580: 33,2560           61652                           AD       PIPTEM     +2                         
038592,000581: 33,2561           03716                           TC       PIPNORM                               
038593,000582: 33,2562           52162                           DXCH     MPAC       +5                         
038594,000583: 
038595,000584: 33,2563           41234                           CS       PIPTIME    +1                         
038596,000585: 33,2564           61644                           AD       LRTIME     +1                         
038597,000586: 33,2565           64736                           AD       HALF                                  
038598,000587: 33,2566           64736                           AD       HALF                                  
038599,000588: 33,2567           22007                           ZL                                             
038600,000589: 33,2570           50120                           INDEX    FIXLOC                                
038601,000590: 33,2571           52015                           DXCH     12D                                   
038602,000591: 

Page 861

038604,000593: 33,2572           35016                           CA       EBANK7                                
038605,000594: 33,2573  E7,1513                                  EBANK=   DVCNTR                                
038606,000595: 33,2573           54003                           TS       EBANK                                 
038607,000596: 
038608,000597: 33,2574           44753                           CS       ONE                                   #  SET MODE TO VECTOR
038609,000598: 33,2575           54163                           TS       MODE                                  
038610,000599: 
038611,000600: 33,2576           06051                           TC       INTPRET                               
038612,000601: 33,2577           41561                           VXSC     PUSH                                  
038613,000602: 33,2600           26016                                    KPIP2                                 
038614,000603: 33,2601           74325                           PDDL     VXSC                                  
038615,000604: 33,2602           00015                                    12D                                   
038616,000605: 33,2603           01236                                    G                                     
038617,000606: 33,2604           53255                           VAD      VAD                                   
038618,000607: 33,2605           03525                                    V                                     
038619,000608: 33,2606           64406                           PUSH     VSR3                                  
038620,000609: 33,2607           53361                           VXSC     VAD                                   
038621,000610: 33,2610           00015                                    12D                                   
038622,000611: 33,2611           03517                                    R                                     
038623,000612: 33,2612           37543                           STCALL   RN1                                   #  IN RN1 POSITION AT TIME OF READING
038624,000613: 33,2613           71743                                    MUNGRAV                               
038625,000614: 33,2614           53361                           VXSC     VAD                                   
038626,000615: 33,2615           00015                                    12D                                   
038627,000616: 33,2616           45455                           VAD      STADR                                 
038628,000617: 33,2617           60226                           STODL    VN1                                   #  IN VN1 VELOCITY AT TIME OF READING
038629,000618: 33,2620           00045                                    36D                                   
038630,000619: 33,2621           77625                           DSU                                            
038631,000620: 33,2622           02324                                    /LAND/                                
038632,000621: 33,2623           03763                           STORE    HLRTIME                               #  ALTITUDE AT TIME OF RADAR READ
038633,000622: 33,2624           77776                           EXIT                                           
038634,000623: 
038635,000624:                                                                                                  #  ***********************************
038636,000625:                                                                                                  #  ALTITUDE UPDATE (CUM TERRAIN MODEL)
038637,000626:                                                                                                  #  ***********************************
038638,000627: 
038639,000628: 33,2625           30107        HMEASCHK           CA       FLGWRD11                              #  WAS ALT READING MADE THIS PASS?
038640,000629: 33,2626           74750                           MASK     RNGEDBIT                              
038641,000630: 33,2627           00006                           EXTEND                                         
038642,000631: 33,2630           13024                           BZF      VMEASCHK                              #  NO:   CHECK FOR VELOCITY MEASUREMENT
038643,000632: 
038644,000633: 33,2631           06042        POSUPDAT           TC       SERVCHNG                              #  YES
038645,000634: 33,2632           03661                           TC       POSINDEX                              #  SET X1 ACCORDING TO ANTENNA POSITION
038646,000635: 
038647,000636: 33,2633           06051                           TC       INTPRET                               
038648,000637: 33,2634           61373                           VLOAD*   VXM                                   #  CONVERT PROPER HBEAM FROM NB TO SM
038649,000638: 33,2635           30001                                    HBEAMNB,1                             
038650,000639: 33,2636           02222                                    XNBRAD                                
038651,000640: 33,2637           54325                           PDDL     SL                                    #  STORE IN PL AND SCALE HMEAS
038652,000641: 33,2640           03655                                    HMEAS                                 
038653,000642: 33,2641           20207                                    6D                                    

Page 862

038655,000644: 33,2642           74205                           DMP      VXSC                                  #  SLANT RANGE AT 2(22), PUSH UP FOR HBEAM
038656,000645: 33,2643           26003                                    HSCAL                                 #  SLANT RANGE VECTOR AT 2(23) M
038657,000646: 33,2644           50206                           PUSH     DOT                                   #  PUSH NEG OF RADAR ALTITUDE BEAM VECTOR
038658,000647: 33,2645           03535                                    UNIT/R/                               #  ALTITUDE AT 2(24) METERS
038659,000648: 33,2646           65225                           DSU      PDDL                                  #  PUSH PARTIAL DELTA H, LOAD NEG OF BEAM Z
038660,000649: 33,2647           03763                                    HLRTIME                               
038661,000650: 33,2650           43342                           SR1      DAD                                   
038662,000651: 33,2651           03641                                    LAND       +4                         
038663,000652: 33,2652           54221                           BDSU     SL                                    #  SCALE RANGE TO UNITS OF 2(18) METERS
038664,000653: 33,2653           03547                                    RN1        +4                         #  WHERE EXTRAPRV LEFT POSITION AT LRTIME
038665,000654: 33,2654           20207                                    6D                                    
038666,000655: 33,2655           77404                           BOVB     EXIT                                  
038667,000656: 33,2656           21674                                    SIGNMPAC                              #  PICK UP NEGMAX UPON OVERFLOW
038668,000657: 
038669,000658: 33,2657           40075                           CS       FLAGWRD1                              #  IS NOTERFLG SET (BY P66 OR V68)?
038670,000659: 33,2660           74741                           MASK     NOTERBIT                              
038671,000660: 33,2661           00006                           EXTEND                                         
038672,000661: 33,2662           12720                           BZF      TERSKIP                               #  Y: SKIP TERRAIN BUT TRANSFER DELTA H
038673,000662: 
038674,000663: 33,2663           35014                           CA       EBANK5                                #  N: PREPARE TO ACCESS TERRAIN TABLE
038675,000664: 33,2664           54003                           TS       EBANK                                 
038676,000665: 33,2665  E5,1777                                  EBANK=   END-E5                                
038677,000666: 
038678,000667: 33,2665           34755                           CA       ZERO                                  #  INITIALIZE MINUS LAST ABSCISSA FOR
038679,000668: 33,2666           54142                           TS       TEM2                                  #    TERLOOP WHICH ADDS THE CONTRIBUTIONS
038680,000669: 33,2667           34751                           CA       FOUR                                  #    OF FIVE TERRAIN SEGMENTS TO DELTA H
038681,000670: 33,2670           54145        TERLOOP            TS       TEM5                                  
038682,000671: 
038683,000672: 33,2671           30154                           CA       MPAC                                  #  PICK UP CURRENT RANGE (NEG BEFORE SITE)
038684,000673: 33,2672           54001                           TS       L                                     
038685,000674: 33,2673           50145                           INDEX    TEM5                                  
038686,000675: 33,2674           41513                           CS       ABSC0                                 #  TERRAIN ABSCISSAE UNITS: 2(18) METERS
038687,000676: 33,2675           04616                           TC       BANKCALL                              #  LIMIT GIVEN LIMITSUB MUST BE POSITIVE
038688,000677: 33,2676           61713                           FCADR    LIMITSUB                              #  LIMIT |RANGE| <= |CURRENT ABSCISSA|
038689,000678: 33,2677           54144                           TS       TEM4                                  #  SAVE TO COMPARE WITH CURRENT ABSCISSA
038690,000679: 
038691,000680: 33,2700           60142                           AD       TEM2                                  #  SUBTRACT LAST ABSCISSA
038692,000681: 33,2701           00006                           EXTEND                                         
038693,000682: 33,2702           50145                           INDEX    TEM5                                  
038694,000683: 33,2703           71520                           MP       SLOPE0                                #  SLOPE UNITS: 2(6) RADIANS. RESOL: 3.9 MR
038695,000684: 
038696,000685: 33,2704           50120                           INDEX    FIXLOC                                #  ADD CONTRIBUTION OF SEGMENT TO YIELD
038697,000686: 33,2705           20005                           DAS      4                                     #    CORRECTED DELTAH IN UNITS 2(24) METERS
038698,000687: 
038699,000688: 33,2706           30141                           CA       TEM1                                  #  RETRIEVE MINUS CURR ABSC FROM LIMITSUB*
038700,000689: 33,2707           54142                           TS       TEM2                                  #  STORE AS MINUS LAST ABSC FOR NEXT SEG
038701,000690: 
038702,000691:                                                                                                  #  * NOTE:  IF WE HAVE FLOWN BEYOND THE LANDING SITE BY MORE THAN THE
038703,000692:                                                                                                  #           LENGTH OF THE SEGMENT ADJACENT TO THE LANDING SITE, CA TEM1
038704,000693:                                                                                                  #           WILL RETRIEVE - INSTEAD OF MINUS THE CURRENT ABSCISSA -

Page 863

038706,000695:                                                                                                  #           A ZERO OR POSITIVE REMAINDER OF THE DIVISION DONE BY LIMITSUB.
038707,000696:                                                                                                  #           THIS RETRIEVAL WILL CAUSE AN IMMEDIATE BRANCH TO TEREND,
038708,000697:                                                                                                  #           WHICH IS THE DESIRED RESULT.  HOWEVER, FLYING PAST THE LANDING
038709,000698:                                                                                                  #           SITE IS IMPOSSIBLE EXCEPT IN P66 WHEN THE TERRAIN MODEL IS OFF.
038710,000699: 
038711,000700: 33,2710           60144                           AD       TEM4                                  #  HAS LM FLOWN PAST CURRENT ABSCISSA?
038712,000701: 33,2711           00006                           EXTEND                                         
038713,000702: 33,2712           12714                           BZF      +2                                    
038714,000703: 33,2713           12716                           TCF      TEREND                                #  Y: IGNORE FURTHER ABSCISSAE
038715,000704: 33,2714           10145                           CCS      TEM5                                  #  N: IS CURRENT ABSCISSA THE LAST?
038716,000705: 33,2715           12670                           TCF      TERLOOP                               #  N: REPEAT TERRAIN LOOP
038717,000706: 
038718,000707: 33,2716           35016        TEREND             CA       EBANK7                                #  Y: RESTORE EBANK AND DEPART
038719,000708: 33,2717           54003                           TS       EBANK                                 
038720,000709: 33,2720  E7,1777                                  EBANK=   END-E7                                
038721,000710: 
038722,000711: 33,2720           50120        TERSKIP            INDEX    FIXLOC                                #  TRANSFER COMPLETED DELTA H HOME
038723,000712: 33,2721           52005                           DXCH     4                                     #    TO BE ACCESSED BY DISPLAYS, TELEMETRY,
038724,000713: 33,2722           53665                           DXCH     DELTAH                                #    AND POSITION UPDATE WHICH FOLLOWS
038725,000714: 
038726,000715: 33,2723           30120                           CA       FIXLOC                                #  RESTORE PUSHDOWN POINTER TO ZERO
038727,000716: 33,2724           54166                           TS       PUSHLOC                               
038728,000717: 
038729,000718: 33,2725           30107                           CA       FLGWRD11                              #  IS PSTHIBIT SET (BY HIGATASK)?
038730,000719: 33,2726           74741                           MASK     PSTHIBIT                              
038731,000720: 33,2727           00006                           EXTEND                                         
038732,000721: 33,2730           12750                           BZF      NOREASON                              #  NO:   DON'T DO REASONABILITY TEST YET
038733,000722: 
038734,000723: 33,2731           06051                           TC       INTPRET                               #  YES:  DO REASONABILITY TEST
038735,000724: 33,2732           51545                           DLOAD    ABS                                   
038736,000725: 33,2733           03665                                    DELTAH                                
038737,000726: 33,2734           52425                           DSU      SL3                                   #  ABS(DELTAH) - DQFIX
038738,000727: 33,2735           02501                                    DELQFIX                               
038739,000728: 33,2736           77425                           DSU      EXIT                                  #  ABS(DELTAH) - (DQFIX + HLRT/8) AT 2(21)
038740,000729: 33,2737           03763                                    HLRTIME                               
038741,000730: 33,2740           25673                           INCR     LRLCTR                                
038742,000731: 33,2741           06735                           TC       BRANCH                                
038743,000732: 33,2742           13603                           TCF      HFAIL                                 #  DELTA H TOO LARGE
038744,000733: 33,2743           13603                           TCF      HFAIL                                 #  DELTA H TOO LARGE
038745,000734: 33,2744           05527                           TC       DOWNFLAG                              #  RESET HFAIL FLAG
038746,000735: 33,2745           00247                           ADRES    HFAILFLG                              
038747,000736: 33,2746           05527                           TC       DOWNFLAG                              #  TURN OFF ALT FAIL LAMP
038748,000737: 33,2747           00263                           ADRES    HFLSHFLG                              
038749,000738: 
038750,000739: 33,2750           40107        NOREASON           CS       FLGWRD11                              #  IS UPDATE INHIBITED?
038751,000740: 33,2751           74744                           MASK     LRINHBIT                              
038752,000741: 33,2752           10000                           CCS      A                                     
038753,000742: 33,2753           13024                           TCF      VMEASCHK                              #  YES:  TEST VELOCITY ANYWAY
038754,000743: 
038755,000744: 33,2754           00006                           EXTEND                                         #  RESCALE HLRTIME TO UNITS OF 2(28) METERS

Page 864

038757,000746: 33,2755           31763                           DCA      HLRTIME                               
038758,000747: 33,2756           52155                           DXCH     MPAC                                  
038759,000748: 33,2757           34741                           CAF      BIT11                                 
038760,000749: 33,2760           07321                           TC       SHORTMP                               
038761,000750: 
038762,000751: 33,2761           00006                           EXTEND                                         
038763,000752: 33,2762           31665                           DCA      DELTAH                                #  STORE DELTAH IN MPAC AND
038764,000753: 33,2763           52155                           DXCH     MPAC                                  #  BRING HCALC INTO A,L
038765,000754: 33,2764           07556                           TC       ALSIGNAG                              
038766,000755: 33,2765           00006                           EXTEND                                         #  IF HIGH PART OF HCALC IS NON ZERO, THEN
038767,000756: 33,2766           12770                           BZF      +2                                    #  HCALC > HMAX,
038768,000757: 33,2767           13024                           TCF      VMEASCHK                              #  SO UPDATE IS BYPASSED
038769,000758: 33,2770           54156                           TS       MPAC       +2                         #    FOR LATER SHORTMP
038770,000759: 
038771,000760: 33,2771           40001                           CS       L                                     #  -H AT 2(14)M
038772,000761: 33,2772           61420                           AD       LRHMAX                                #  HMAX - H
038773,000762: 33,2773           00006                           EXTEND                                         
038774,000763: 33,2774           63024                           BZMF     VMEASCHK                              #  IF H >HMAX, BYPASS UPDATE
038775,000764: 33,2775           00006                           EXTEND                                         
038776,000765: 33,2776           71421                           MP       LRWH                                  #  WH(HMAX - H)
038777,000766: 33,2777           00006                           EXTEND                                         
038778,000767: 33,3000           11420                           DV       LRHMAX                                #  WH(1 - H/HMAX)
038779,000768: 33,3001           54135                           TS       MPTEMP                                
038780,000769: 33,3002           07325                           TC       SHORTMP2                              #  DELTAH (WH)(1 - H/HMAX) IN MPAC
038781,000770: 33,3003           06051                           TC       INTPRET                               #  MODE IS DP FROM ABOVE
038782,000771: 33,3004           77752                           SL1                                            
038783,000772: 33,3005           53361                           VXSC     VAD                                   
038784,000773: 33,3006           03535                                    UNIT/R/                               #  DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
038785,000774: 33,3007           03573                                    R1S                                   
038786,000775: 33,3010           03657                           STORE    GNUR                                  #  CORRECTED R AT PIPTIME1 (NEW G1 WILL
038787,000776: 33,3011           77776                           EXIT                                           #    BE COMPUTED AT COPYCYC1)
038788,000777: 
038789,000778: 33,3012           06042                           TC       SERVCHNG                              
038790,000779: 
038791,000780: 33,3013           00006                           EXTEND                                         
038792,000781: 33,3014           31657                           DCA      GNUR                                  
038793,000782: 33,3015           53573                           DXCH     R1S                                   
038794,000783: 33,3016           00006                           EXTEND                                         
038795,000784: 33,3017           31661                           DCA      GNUR       +2                         
038796,000785: 33,3020           53575                           DXCH     R1S        +2                         
038797,000786: 33,3021           00006                           EXTEND                                         
038798,000787: 33,3022           31663                           DCA      GNUR       +4                         
038799,000788: 33,3023           53577        RUPDATED           DXCH     R1S        +4                         
038800,000789: 
038801,000790:                                                                                                  #  ********************************
038802,000791:                                                                                                  #  VELOCITY UPDATE
038803,000792:                                                                                                  #  ********************************
038804,000793: 
038805,000794: 33,3024           06042        VMEASCHK           TC       SERVCHNG                              
038806,000795: 33,3025           40107                           CS       FLGWRD11                              

Page 865

038808,000797: 33,3026           74745                           MASK     VELDABIT                              #  IS V READING AVAILABLE?
038809,000798: 33,3027           10000                           CCS      A                                     
038810,000799: 33,3030           13201                           TCF      VALTCHK                               #  NO   SEE IF V READING TO BE TAKEN
038811,000800: 
038812,000801: 33,3031           06042        VELUPDAT           TC       SERVCHNG                              #  YES
038813,000802: 33,3032           03661                           TC       POSINDEX                              #  SET X1 ACCORDING TO ANTENNA POSITION
038814,000803: 
038815,000804: 33,3033           41462                           CS       VSELECT                               
038816,000805: 33,3034           54001                           TS       L                                     
038817,000806: 33,3035           26001                           ADS      L                                     #  -2 VSELECT IN L
038818,000807: 33,3036           60001                           AD       L                                     
038819,000808: 33,3037           60001                           AD       L                                     #  -6 VSELECT IN A
038820,000809: 33,3040           50120                           INDEX    FIXLOC                                
038821,000810: 33,3041           20047                           DAS      X1                                    #  X1 = -6 VSELECT + POS, X2 = -2 VSELECT
038822,000811: 
038823,000812: 33,3042           30120                           CA       FIXLOC                                
038824,000813: 33,3043           54166                           TS       PUSHLOC                               #  SET PD TO ZERO
038825,000814: 
038826,000815: 33,3044           06051                           TC       INTPRET                               
038827,000816: 33,3045           61373                           VLOAD*   VXM                                   #  CONVERT PROPER VBEAM FROM NB TO SM
038828,000817: 33,3046           30007                                    VZBEAMNB,1                            
038829,000818: 33,3047           02222                                    XNBRAD                                
038830,000819: 33,3050           54325                           PDDL     SL                                    #  STORE IN PD 0-5
038831,000820: 33,3051           03653                                    VMEAS                                 #  LOAD VELOCITY MEASUREMENT
038832,000821: 33,3052           20215                                    12D                                   
038833,000822: 33,3053           63203                           DMP*     PDVL                                  #  SCALE TO M/CS AT 2(6)
038834,000823: 33,3054           51772                                    VZSCAL,2                              #  AND STORE IN PD 6-7
038835,000824: 33,3055           03551                                    VN1                                   #  VELOCITY AT TIME OF READING
038836,000825: 33,3056           52352                           VSL2     VSU                                   #  SCALE TO UNITS OF 2(5) M/CS AND
038837,000826: 33,3057           03710                                    VSURFACE                              #    SUBTRACT SURFACE VELOCITY
038838,000827: 33,3060           51406                           PUSH     ABVAL                                 #  STORE IN PD
038839,000828: 33,3061           43202                           SR4      DAD                                   #  ABS(VM)/8 + VELBIAS AT 2(6)
038840,000829: 33,3062           02401                                    VELBIAS                               
038841,000830: 33,3063           24025                           STOVL    20D                                   #  STORE IN 20D AND PICK UP VM
038842,000831: 33,3064           44241                           DOT      BDSU                                  #  V(EST) AT 2(6)
038843,000832: 33,3065           00001                                    0                                     #  DELTAV = VMEAS - V(EST)
038844,000833: 33,3066           51406                           PUSH     ABS                                   
038845,000834: 33,3067           77425                           DSU      EXIT                                  #  ABS(DV) - (7.5 + ABS(VM)/8))
038846,000835: 33,3070           00025                                    20D                                   
038847,000836: 
038848,000837: 33,3071           25675                           INCR     LRMCTR                                
038849,000838: 33,3072           06735                           TC       BRANCH                                
038850,000839: 33,3073           13622                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
038851,000840: 33,3074           13622                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
038852,000841: 
038853,000842: 33,3075           05527                           TC       DOWNFLAG                              #  RESET HFAIL FLAG
038854,000843: 33,3076           00246                           ADRES    VFAILFLG                              
038855,000844: 33,3077           05527                           TC       DOWNFLAG                              #  TURN OFF VEL FAIL LAMP
038856,000845: 33,3100           00262                           ADRES    VFLSHFLG                              
038857,000846: 

Page 866

038859,000848: 33,3101           30107                           CA       FLGWRD11                              
038860,000849: 33,3102           74740                           MASK     VXINHBIT                              
038861,000850: 33,3103           00006                           EXTEND                                         
038862,000851: 33,3104           13113                           BZF      VUPDAT                                #  IF VX INHIBIT RESET, INCORPORATE DATA.
038863,000852: 
038864,000853: 33,3105           05527                           TC       DOWNFLAG                              
038865,000854: 33,3106           00250                           ADRES    VXINH                                 #  RESET VX INHIBIT
038866,000855: 
038867,000856: 33,3107           31462                           CA       VSELECT                               
038868,000857: 33,3110           67760                           AD       NEG2                                  #  IF VSELECT = 2 (X AXIS),
038869,000858: 33,3111           00006                           EXTEND                                         #  BYPASS UPDATE
038870,000859: 33,3112           13201                           BZF      ENDVDAT                               
038871,000860: 
038872,000861: 33,3113           40107        VUPDAT             CS       FLGWRD11                              
038873,000862: 33,3114           74744                           MASK     LRINHBIT                              
038874,000863: 33,3115           10000                           CCS      A                                     
038875,000864: 33,3116           13201                           TCF      VALTCHK                               #  UPDATE INHIBITED
038876,000865: 
038877,000866: 33,3117           54155                           TS       MPAC       +1                         
038878,000867: 
038879,000868: 33,3120           31471                           CA       ABVEL                                 #  STORE E7 ERASABLES NEEDED IN TEMPS
038880,000869: 33,3121           54130                           TS       ABVEL*                                
038881,000870: 33,3122           31462                           CA       VSELECT                               
038882,000871: 33,3123           54131                           TS       VSELECT*                              
038883,000872: 33,3124           35014                           CA       EBANK5                                
038884,000873: 33,3125           54003                           TS       EBANK                                 #  CHANGE EBANKS
038885,000874: 
038886,000875: 33,3126  E5,1503                                  EBANK=   LRVF                                  
038887,000876: 33,3126           41503                           CS       LRVF                                  
038888,000877: 33,3127           60130                           AD       ABVEL*                                #  IF V < VF, USE WVF
038889,000878: 33,3130           00006                           EXTEND                                         
038890,000879: 33,3131           63144                           BZMF     USEVF                                 
038891,000880: 
038892,000881: 33,3132           40130                           CS       ABVEL*                                
038893,000882: 33,3133           61502                           AD       LRVMAX                                #  VMAX - V
038894,000883: 33,3134           00006                           EXTEND                                         
038895,000884: 33,3135           63147                           BZMF     WSTOR      -1                         #  IF V > VMAX, W = 0
038896,000885: 
038897,000886: 33,3136           00006                           EXTEND                                         
038898,000887: 33,3137           50131                           INDEX    VSELECT*                              
038899,000888: 33,3140           71504                           MP       LRWVZ                                 #  WV(VMAX - V)
038900,000889: 
038901,000890: 33,3141           00006                           EXTEND                                         
038902,000891: 33,3142           11502                           DV       LRVMAX                                #  WV( 1 - V/VMAX )
038903,000892: 33,3143           13150                           TCF      WSTOR                                 
038904,000893: 
038905,000894: 33,3144           50131        USEVF              INDEX    VSELECT*                              
038906,000895: 33,3145           31507                           CA       LRWVFZ                                #  USE APPROPRIATE CONSTANT WEIGHT
038907,000896: 33,3146           13150                           TCF      WSTOR                                 
038908,000897: 

Page 867

038910,000899: 33,3147           34755                 -1        CA       ZERO                                  
038911,000900: 33,3150           54154        WSTOR              TS       MPAC                                  
038912,000901: 33,3151           44745                           CS       BIT7                                  #  IS CURRENT PROGRAM P66?
038913,000902: 33,3152           61010                           AD       MODREG                                
038914,000903: 33,3153           00006                           EXTEND                                         
038915,000904: 33,3154           63157                           BZMF     +3                                    #  NO
038916,000905: 
038917,000906: 33,3155           31512                           CA       LRWVFF                                #  YES
038918,000907: 33,3156           54154                           TS       MPAC                                  
038919,000908: 
038920,000909: 33,3157           35016                 +3        CA       EBANK7                                
038921,000910: 33,3160           54003                           TS       EBANK                                 #  CHANGE EBANKS
038922,000911: 
038923,000912: 33,3161  E7,1471                                  EBANK=   ABVEL                                 
038924,000913: 33,3161           06051                           TC       INTPRET                               
038925,000914: 33,3162           74205                           DMP      VXSC                                  #  W(DELTA V)(VBEAMSM)  UP 6-7, 0-5
038926,000915: 33,3163           77655                           VAD                                            
038927,000916: 33,3164           03601                                    V1S                                   #  ADD WEIGHTED DELTA V TO VELOCITY
038928,000917: 33,3165           03657                           STORE    GNUV                                  #  CORRECTED V AT PIPTIME1
038929,000918: 33,3166           77776                           EXIT                                           
038930,000919: 
038931,000920: 33,3167           06042                           TC       SERVCHNG                              
038932,000921: 
038933,000922: 33,3170           00006                           EXTEND                                         
038934,000923: 33,3171           31657                           DCA      GNUV                                  
038935,000924: 33,3172           53601                           DXCH     V1S                                   
038936,000925: 33,3173           00006                           EXTEND                                         
038937,000926: 33,3174           31661                           DCA      GNUV       +2                         
038938,000927: 33,3175           53603                           DXCH     V1S        +2                         
038939,000928: 33,3176           00006                           EXTEND                                         
038940,000929: 33,3177           31663                           DCA      GNUV       +4                         
038941,000930: 33,3200           53605        VUPDATED           DXCH     V1S        +4                         
038942,000931: 
038943,000932: 33,3201  33,3201               ENDVDAT            =        VALTCHK                               
038944,000933: 
038945,000934: 33,3201           06042        VALTCHK            TC       SERVCHNG                              #  DO NOT REPEAT ABOVE
038946,000935: 
038947,000936: 33,3202           40107        HIGATCHK           CS       FLGWRD11                              #  IS PSTHIBIT SET?
038948,000937: 33,3203           74741                           MASK     PSTHIBIT                              
038949,000938: 33,3204           00006                           EXTEND                                         
038950,000939: 33,3205           13222                           BZF      CONTSERV                              #  YES
038951,000940: 
038952,000941: 33,3206           31642                           CA       TTF/8                                 #  NO
038953,000942: 33,3207           61427                           AD       RPCRTIME                              
038954,000943: 33,3210           00006                           EXTEND                                         
038955,000944: 33,3211           63222                           BZMF     CONTSERV                              
038956,000945: 
038957,000946: 33,3212           34741                           CA       EBANK4                                
038958,000947: 33,3213           56003                           XCH      EBANK                                 
038959,000948: 33,3214           54001                           TS       L                                     
038960,000949: 

Page 868

038962,000951: 33,3215  E4,1536                                  EBANK=   XNBPIP                                
038963,000952: 33,3215           41536                           CS       XNBPIP                                
038964,000953: 33,3216  E7,1513                                  EBANK=   DVCNTR                                
038965,000954: 33,3216           22003                           LXCH     EBANK                                 
038966,000955: 33,3217           61430                           AD       RPCRTQSW                              
038967,000956: 33,3220           00006                           EXTEND                                         
038968,000957: 33,3221           63645                           BZMF     HIGATASK                              
038969,000958: 
038970,000959: 33,3222           06042        CONTSERV           TC       SERVCHNG                              
038971,000960: 33,3223           00004                           INHINT                                         
038972,000961: 33,3224           43761                           CS       BITS4-7                               
038973,000962: 33,3225           70107                           MASK     FLGWRD11                              #  CLEAR LR MEASUREMENT MADE DISCRETES.
038974,000963: 33,3226           54107                           TS       FLGWRD11                              
038975,000964: 
038976,000965:                                                                                                  #           NOTE THAT R12READ (AND RDGIMS) IS NOT RESTART PROTECTED.   IF THERE SHOULD BE A RESTART, THIS
038977,000966:                                                                                                  #  READING SIMPLY IS NOT MADE.
038978,000967: 
038979,000968: 33,3227           34753                           CAF      BIT1                                  #  NOW SAFE TO MAKE A READING
038980,000969: 33,3230           05214                           TC       WAITLIST                              
038981,000970: 33,3231  E7,1462                                  EBANK=   VSELECT                               
038982,000971: 33,3231           03140 52067                     2CADR    R12READ                               
038983,000972: 
038984,000973: 
038985,000974:                                                                                                  #                                             (FALL THROUGH TO COPYCYC1)
038986,000975: 
038987,000976:                                                                                                  #  ****************************************************************************************************************
038988,000977:                                                                                                  #  COPYCYCLE CODING
038989,000978:                                                                                                  #  ****************************************************************************************************************
038990,000979: 
038991,000980: 33,3233           06042        COPYCYC1           TC       SERVCHNG                              
038992,000981: 
038993,000982: 33,3234           30120                           CA       FIXLOC                                #  BATTEN DOWN THE HATCHES
038994,000983: 33,3235           54166                           TS       PUSHLOC                               
038995,000984: 
038996,000985: 33,3236           06051                           TC       INTPRET                               
038997,000986: 33,3237           45175                           VLOAD    CALL                                  #  RECOMPUTE G1 IN CASE LR UPDATED R1S
038998,000987: 33,3240           03573                                    R1S                                   
038999,000988: 33,3241           71743                                    MUNGRAV                               
039000,000989: 33,3242           45345                           DLOAD    DSU                                   
039001,000990: 33,3243           00045                                    36D                                   
039002,000991: 33,3244           02324                                    /LAND/                                
039003,000992: 33,3245           03533                           STORE    HCALC                                 #  ALTITUDE IN UNITS OF 2(24) METERS
039004,000993: 33,3246           63261                           SL       PDVL                                  #  STORE HCALCLAD AT PD 0
039005,000994: 33,3247           20212                                    9D                                    
039006,000995: 33,3250           03535                                    UNIT/R/                               
039007,000996: 33,3251           51435                           VXV      ABVAL                                 
039008,000997: 33,3252           03601                                    V1S                                   
039009,000998: 33,3253           56316                           DSQ      DDV                                   
039010,000999: 33,3254           00045                                    36D                                   
039011,001000: 33,3255           63352                           SL1      PDVL                                  #  STORE DALTRATE AT PD 2

Page 869

039013,001002: 33,3256           03535                                    UNIT/R/                               
039014,001003: 33,3257           72441                           DOT      SL1                                   
039015,001004: 33,3260           03601                                    V1S                                   
039016,001005: 33,3261           03474                           STORE    HDOTDISP                              #  HDOT IN UNITS OF 2(7) M/CS
039017,001006: 33,3262           63312                           SL2      PDVL                                  #  STORE HDOTLAD AT PD 4
039018,001007: 33,3263           02316                                    WM                                    
039019,001008: 33,3264           72435                           VXV      VSL2                                  
039020,001009: 33,3265           03573                                    R1S                                   
039021,001010: 33,3266           27710                           STOVL    VSURFACE                              #  SURFACE VELOCITY IN UNITS OF 2(5) M/CS
039022,001011: 33,3267           03573                                    R1S                                   #    (NO NEED TO LOAD VSURFACE UNDER INHINT
039023,001012: 33,3270           60505                           VXM      VSR4                                  #    BECAUSE IT CHANGES ONLY VERY SLOWLY)
039024,001013: 33,3271           01732                                    REFSMMAT                              
039025,001014: 33,3272           27543                           STOVL    RN1                                   #  POSITION IN REFERENCE COORDINATES
039026,001015: 33,3273           03601                                    V1S                                   
039027,001016: 33,3274           76505                           VXM      VSL1                                  
039028,001017: 33,3275           01732                                    REFSMMAT                              
039029,001018: 33,3276           27551                           STOVL    VN1                                   #  VELOCITY IN REFERENCE COORDINATES
039030,001019: 33,3277           03561                                    G1                                    
039031,001020: 33,3300           77532                           VSL3     EXIT                                  #  GRAVACC IN MPAC UNITS OF 2(-9) M/CS/CS
039032,001021: 
039033,001022: 33,3301           00004                           INHINT                                         #  INHINT TO PREVENT DOWNRUPT OR QUARTASK
039034,001023: 
039035,001024: 33,3302           50120                           INDEX    FIXLOC                                #  FETCH HCALCLAD FROM PD 0
039036,001025: 33,3303           52001                           DXCH     0                                     
039037,001026: 33,3304           53716                           DXCH     HCALCLAD                              #  ALTITUDE IN UNITS OF 2(15) METERS
039038,001027: 
039039,001028: 33,3305           50120                           INDEX    FIXLOC                                #  FETCH DALTRATE FROM PD 2
039040,001029: 33,3306           52003                           DXCH     2                                     
039041,001030: 33,3307           55721                           TS       DALTRATE                              #  DALTRATE IN UNITS OF 2(-9) M/CS/CS
039042,001031: 
039043,001032: 33,3310           50120                           INDEX    FIXLOC                                #  FETCH HDOTLAD FROM PD 4
039044,001033: 33,3311           52005                           DXCH     4                                     
039045,001034: 33,3312           53720                           DXCH     HDOTLAD                               #  HDOTLAD IN UNITS OF 2(5) M/CS
039046,001035: 
039047,001036: 33,3313           30154                           CA       MPAC                                  
039048,001037: 33,3314           55701                           TS       GRAVACCX                              #  GRAVACCX IN UNITS OF 2(-9) M/CS/CS
039049,001038: 33,3315           30157                           CA       MPAC       +3                         
039050,001039: 33,3316           55702                           TS       GRAVACCY                              #  GRAVACCY IN UNITS OF 2(-9) M/CS/CS
039051,001040: 33,3317           30161                           CA       MPAC       +5                         
039052,001041: 33,3320           55703                           TS       GRAVACCZ                              #  GRAVACCZ IN UNITS OF 2(-9) M/CS/CS
039053,001042: 
039054,001043: 33,3321           00006                           EXTEND                                         
039055,001044: 33,3322           31535                           DCA      UNIT/R/                               
039056,001045: 33,3323           20001                           DDOUBL                                         #  SCALE FULL-SIZE BUT WATCH FOR OVERFLOW
039057,001046: 33,3324           54000                           OVSK                                           
039058,001047: 33,3325           13327                           TCF      +2                                    
039059,001048: 33,3326           34733                           CAF      POSMAX                                
039060,001049: 33,3327           57722                 +2        XCH      RUNITX                                
039061,001050: 
039062,001051: 33,3330           00006                           EXTEND                                         

Page 870

039064,001053: 33,3331           31537                           DCA      UNIT/R/    +2                         
039065,001054: 33,3332           20001                           DDOUBL                                         #  SCALE FULL-SIZE, OVERFLOW MOST UNLIKELY
039066,001055: 33,3333           57723                           XCH      RUNITY                                
039067,001056: 
039068,001057: 33,3334           00006                           EXTEND                                         
039069,001058: 33,3335           31541                           DCA      UNIT/R/    +4                         
039070,001059: 33,3336           20001                           DDOUBL                                         #  SCALE FULL-SIZE, OVERFLOW MOST UNLIKELY
039071,001060: 33,3337           57724                           XCH      RUNITZ                                
039072,001061: 
039073,001062: 33,3340           00006                           EXTEND                                         
039074,001063: 33,3341           31573                           DCA      R1S                                   
039075,001064: 33,3342           53517                           DXCH     R                                     
039076,001065: 33,3343           00006                           EXTEND                                         
039077,001066: 33,3344           31575                           DCA      R1S        +2                         
039078,001067: 33,3345           53521                           DXCH     R          +2                         
039079,001068: 33,3346           00006                           EXTEND                                         
039080,001069: 33,3347           31577                           DCA      R1S        +4                         
039081,001070: 33,3350           53523                           DXCH     R          +4                         
039082,001071: 33,3351           00006                           EXTEND                                         
039083,001072: 33,3352           31601                           DCA      V1S                                   
039084,001073: 33,3353           53525                           DXCH     V                                     
039085,001074: 33,3354           00006                           EXTEND                                         
039086,001075: 33,3355           31603                           DCA      V1S        +2                         
039087,001076: 33,3356           53527                           DXCH     V          +2                         
039088,001077: 33,3357           00006                           EXTEND                                         
039089,001078: 33,3360           31605                           DCA      V1S        +4                         
039090,001079: 33,3361           53531                           DXCH     V          +4                         
039091,001080: 
039092,001081: 33,3362           40103                           CS       FLAGWRD7                              #  INDICATE TO LANADISP THAT THE NUMBERS IT
039093,001082: 33,3363           74741                           MASK     SWANDBIT                              #    NEEDS FROM SERVICER HAVE BEEN PROVIDED
039094,001083: 33,3364           26103                           ADS      FLAGWRD7                              
039095,001084: 
039096,001085: 33,3365           00004        COPYCYCL           INHINT                                         #  ENTER HERE FROM CALCRVG
039097,001086: 
039098,001087: 33,3366           31566                           CA       PGUIDE1                               
039099,001088: 33,3367           55355                           TS       SERVDURN                              #  FOR DOWNLINK
039100,001089: 
039101,001090: 33,3370           31157                           CA       PIPATMPX                              
039102,001091: 33,3371           55254                           TS       PIPAXOLD                              
039103,001092: 33,3372           31160                           CA       PIPATMPY                              
039104,001093: 33,3373           55255                           TS       PIPAYOLD                              
039105,001094: 33,3374           31161                           CA       PIPATMPZ                              
039106,001095: 33,3375           55256                           TS       PIPAZOLD                              
039107,001096: 
039108,001097: 33,3376           00006                           EXTEND                                         
039109,001098: 33,3377           31174                           DCA      DVTEMP                                
039110,001099: 33,3400           53510                           DXCH     DVTOTAL                               
039111,001100: 
039112,001101: 33,3401           03673                           TC       COPYCYC                               #  COPY RN1 - MASS1 INTO RN - MASS
039113,001102: 

Page 871

039115,001104: 33,3402           06042                           TC       SERVCHNG                              
039116,001105: 
039117,001106:                                                                                                  #                                          (FALL THROUGH TO DVMON, STILL UNDER INHINT)
039118,001107: 
039119,001108:                                                                                                  #  ****************************************************************************************************************
039120,001109:                                                                                                  #  DVMON
039121,001110:                                                                                                  #  ****************************************************************************************************************
039122,001111: 
039123,001112: 33,3403           44741        DVMON              CS       STEERBIT                              #  STEERSW IS RESET IF THRUST IS ADEQUATE
039124,001113: 33,3404           70076                           MASK     FLAGWRD2                              
039125,001114: 33,3405           54076                           TS       FLAGWRD2                              
039126,001115: 
039127,001116: 33,3406           34745                           CAF      IDLEFBIT                              #  IS THE IDLE FLAG SET?
039128,001117: 33,3407           70103                           MASK     FLAGWRD7                              
039129,001118: 33,3410           10000                           CCS      A                                     
039130,001119: 33,3411           13444                           TCF      NODVMON1                              #  IDLEFLAG = 1, HENCE SET AUXFLAG TO 0.
039131,001120: 
039132,001121: 33,3412           40102                           CS       FLAGWRD6                              
039133,001122: 33,3413           74752                           MASK     AUXFLBIT                              
039134,001123: 33,3414           10000                           CCS      A                                     
039135,001124: 33,3415           13450                           TCF      NODVMON2                              #  AUXFLAG = 0, HENCE SET AUXFLAG TO 1.
039136,001125: 
039137,001126: 33,3416           41251                           CS       DVTHRUSH                              #  DOES THRUST EXCEED CRITERION DVTHRUSH?
039138,001127: 33,3417           61250                           AD       ABDVACC                               
039139,001128: 33,3420           00006                           EXTEND                                         
039140,001129: 33,3421           63454                           BZMF     LOTHRUST                              #  NO
039141,001130: 
039142,001131: 33,3422           40076                           CS       FLAGWRD2                              #  YES: SET STEERSW
039143,001132: 33,3423           74741                           MASK     STEERBIT                              
039144,001133: 33,3424           26076                           ADS      FLAGWRD2                              
039145,001134: 
039146,001135: 33,3425           34753        DVCNTSET           CAF      ONE                                   #  ALLOW TWO PASSES MAXIMUM NOW THAT
039147,001136: 33,3426           55513                           TS       DVCNTR                                #  THRUST HAS BEEN DETECTED.
039148,001137: 
039149,001138: 33,3427           30106                           CA       FLGWRD10                              #  BRANCH IF APSFLAG IS SET.
039150,001139: 33,3430           74737                           MASK     APSFLBIT                              
039151,001140: 33,3431           10000                           CCS      A                                     
039152,001141: 33,3432           13476                           TCF      USEJETS                               
039153,001142: 
039154,001143: 33,3433           34743                           CA       BIT9                                  #  CHECK GIMBAL FAIL BIT
039155,001144: 33,3434           00006                           EXTEND                                         
039156,001145: 33,3435           02032                           RAND     CHAN32                                
039157,001146: 33,3436           00006                           EXTEND                                         
039158,001147: 33,3437           13476                           BZF      USEJETS                               
039159,001148: 
039160,001149: 33,3440           44736        USEGTS             CS       USEQRJTS                              
039161,001150: 33,3441           70111                           MASK     DAPBOOLS                              
039162,001151: 33,3442           54111                           TS       DAPBOOLS                              
039163,001152: 33,3443           13501                           TCF      DVMONEND                              
039164,001153: 

Page 872

039166,001155: 33,3444           44752        NODVMON1           CS       AUXFLBIT                              #  SET AUXFLAG TO 0.
039167,001156: 33,3445           70102                           MASK     FLAGWRD6                              
039168,001157: 33,3446           54102                           TS       FLAGWRD6                              
039169,001158: 33,3447           13476                           TCF      USEJETS                               
039170,001159: 
039171,001160: 33,3450           40102        NODVMON2           CS       FLAGWRD6                              #  SET AUXFLAG TO 1.
039172,001161: 33,3451           74752                           MASK     AUXFLBIT                              
039173,001162: 33,3452           26102                           ADS      FLAGWRD6                              
039174,001163: 33,3453           13476                           TCF      USEJETS                               
039175,001164: 
039176,001165: 33,3454           06042        LOTHRUST           TC       SERVCHNG                              
039177,001166: 33,3455           11513                           CCS      DVCNTR                                
039178,001167: 33,3456           13470                           TCF      DECCNTR                               
039179,001168: 
039180,001169: 33,3457           10760                           CCS      PHASE4                                #  COMFAIL JOB ACTIVE?
039181,001170: 33,3460           13501                           TCF      DVMONEND                              
039182,001171: 
039183,001172: 33,3461           05364                           TC       PHASCHNG                              #  4.37SPOT FOR COMFAIL.
039184,001173: 33,3462           00374                           OCT      00374                                 
039185,001174: 
039186,001175: 33,3463           37725                           CAF      PRIO25                                
039187,001176: 33,3464           05072                           TC       NOVAC                                 
039188,001177: 33,3465  E7,1455                                  EBANK=   WHICH                                 
039189,001178: 33,3465           02570 74067                     2CADR    COMFAIL                               
039190,001179: 
039191,001180: 33,3467           13501                           TCF      DVMONEND                              
039192,001181: 
039193,001182: 33,3470           55570        DECCNTR            TS       DVCNTR1                               
039194,001183: 33,3471           06042                           TC       SERVCHNG                              
039195,001184: 33,3472           31570                           CA       DVCNTR1                               
039196,001185: 33,3473           55513                           TS       DVCNTR                                
039197,001186: 33,3474           04674                           TC       IBNKCALL                              #  IF THRUST IS LOW, NO STEERING IS DONE
039198,001187: 33,3475           40166                           CADR     STOPRATE                              #  AND THE DESIRED RATES ARE SET TO ZERO.
039199,001188: 33,3476           40111        USEJETS            CS       DAPBOOLS                              
039200,001189: 33,3477           74736                           MASK     USEQRJTS                              
039201,001190: 33,3500           26111                           ADS      DAPBOOLS                              
039202,001191: 33,3501           00003        DVMONEND           RELINT                                         
039203,001192: 
039204,001193:                                                                                                  #  ****************************************************************************************************************
039205,001194:                                                                                                  #  EXIT TO GUIDANCE EQUATIONS
039206,001195:                                                                                                  #  ****************************************************************************************************************
039207,001196: 
039208,001197:                                                                                                  #           RULES FOR USERS OF SERVICER:
039209,001198: 
039210,001199:                                                                                                  #           DO NOT GO TO ENDOFJOB.   RETURN TO THE START OF SERVICER AT PIPCYCLE.   INSURE THAT ALL BRANCHES LEAD
039211,001200:                                                                                                  #  EVENTUALLY TO PIPCYCLE.
039212,001201: 
039213,001202:                                                                                                  #           USE GROUP 5 AS RESTART GROUP AND USE A "TC SERVCHNG" (WHICH IS IN FIXED-FIXED) WHENEVER POSSIBLE
039214,001203:                                                                                                  #  FOR RESTART PROTECTION.
039215,001204: 

Page 873

039217,001206:                                                                                                  #           AVOID CHANGING PRIORITY EXCEPT BEFORE CALLING DISPLAY ROUTINES WHICH WILL SET UP OFF-LINE JOBS.
039218,001207:                                                                                                  #  IN THIS CASE RAISE PRIORITY TO 23 AND RESTORE TO 20 AS SOON AS POSSIBLE.
039219,001208: 
039220,001209: 33,3502           04616                           TC       BANKCALL                              
039221,001210: 33,3503           40463                           CADR     1/ACCS                                
039222,001211: 
039223,001212: 33,3504           30167                           CA       PRIORITY                              
039224,001213: 33,3505           75004                           MASK     LOW9                                  
039225,001214: 33,3506           54166                           TS       PUSHLOC                               
039226,001215: 33,3507           22007                           ZL                                             
039227,001216: 33,3510           52121                           DXCH     FIXLOC                                #  FIXLOC AND OVFIND
039228,001217: 
039229,001218: 33,3511           06042                           TC       SERVCHNG                              
039230,001219: 
039231,001220: 33,3512           05515                           TC       UPFLAG                                #  SET SERVOVER FLAG TO INDICATE THAT
039232,001221: 33,3513           00043                           ADRES    SERVOVER                              #    SERVICER IS THROUGH FOR THIS PASS
039233,001222: 
039234,001223: 33,3514           00006        SERVOUT            EXTEND                                         #  EXIT TO SELECTED ROUTINE WHETHER THERE
039235,001224: 33,3515           31253                           DCA      AVGEXIT                               #    IS THRUST OR NOT.   STEERSW WILL
039236,001225: 33,3516           52006                           DXCH     Z                                     #    CONVEY THIS INFORMATION.
039237,001226: 
039238,001227:                                                                                                  #  ****************************************************************************************************************
039239,001228:                                                                                                  #  COME HERE VIA AVGEXIT ON LAST SERVICER PASS
039240,001229:                                                                                                  #  ****************************************************************************************************************
039241,001230: 
039242,001231: 33,3517           31234        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
039243,001232: 33,3520           55074                           TS       1/PIPADT                              #  SET UP FREE FALL GYRO COMPENSATION.
039244,001233: 
039245,001234: 33,3521           05515                           TC       UPFLAG                                #  SET DRIFT FLAG.
039246,001235: 33,3522           00036                           ADRES    DRIFTFLG                              
039247,001236: 
039248,001237: 33,3523           04616                           TC       BANKCALL                              
039249,001238: 33,3524           17255                           CADR     PIPFREE                               
039250,001239: 
039251,001240: 33,3525           44743                           CS       BIT9                                  
039252,001241: 33,3526           00006                           EXTEND                                         
039253,001242: 33,3527           03011                           WAND     DSALMOUT                              
039254,001243: 
039255,001244: 33,3530           05340                           TC       2PHSCHNG                              
039256,001245: 33,3531           00005                           OCT      5                                     #  GROUP 5 OFF
039257,001246: 33,3532           05022                           OCT      05022                                 #  GROUP 2 ON
039258,001247: 33,3533           20000                           OCT      20000                                 
039259,001248: 
039260,001249: 33,3534           06051                           TC       INTPRET                               
039261,001250: 33,3535           77614                           CLEAR                                          
039262,001251: 33,3536           03664                                    SWANDISP                              #  SHUT OFF R10 WHEN SERVICER ENDS.
039263,001252: 33,3537           45014                           CLEAR    CALL                                  #  RESET MUNFLAG.
039264,001253: 33,3540           03267                                    MUNFLAG                               
039265,001254: 33,3541           27463                                    AVETOMID                              
039266,001255: 33,3542           77414                           CLEAR    EXIT                                  

Page 874

039268,001257: 33,3543           03671                                    V37FLAG                               
039269,001258: 33,3544           04635        AVERTRN            TC       POSTJUMP                              
039270,001259: 33,3545           10122                           CADR     V37RET                                
039271,001260: 
039272,001261: 33,3546  33,3544               OUTGOAVE           =        AVERTRN                               
039273,001262: 
039274,001263:                                                                                                  #  ****************************************************************************************************************
039275,001264:                                                                                                  #  COME HERE FROM POODOO TO CURTAIL BUT NOT HALT SERVICER
039276,001265:                                                                                                  #  ****************************************************************************************************************
039277,001266: 
039278,001267: 33,3546           00006        SERVIDLE           EXTEND                                         #  DISCONNECT SERVICER FROM ALL GUIDANCE
039279,001268: 33,3547           33737                           DCA      CYCLEADR                              
039280,001269: 33,3550           53253                           DXCH     AVGEXIT                               
039281,001270: 
039282,001271: 33,3551           40103                           CS       FLAGWRD7                              #  DISCONNECT THE DELTA-V MONITOR
039283,001272: 33,3552           74745                           MASK     IDLEFBIT                              
039284,001273: 33,3553           26103                           ADS      FLAGWRD7                              
039285,001274: 
039286,001275: 33,3554           34735                           CAF      LRBYBIT                               #  TERMINATE R12 IF RUNNING.
039287,001276: 33,3555           54107                           TS       FLGWRD11                              
039288,001277: 
039289,001278: 33,3556           00006                           EXTEND                                         
039290,001279: 33,3557           34755                           DCA      NEG0                                  
039291,001280: 33,3560           52752                           DXCH     -PHASE1                               
039292,001281: 
039293,001282: 33,3561           30102                           CA       FLAGWRD6                              #  DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
039294,001283: 33,3562           74744                           MASK     MUNFLBIT                              
039295,001284: 33,3563           10000                           CCS      A                                     
039296,001285: 33,3564           13570                           TCF      +4                                    
039297,001286: 
039298,001287: 33,3565           00006                           EXTEND                                         
039299,001288: 33,3566           34755                           DCA      NEG0                                  
039300,001289: 33,3567           52754                           DXCH     -PHASE2                               
039301,001290: 
039302,001291: 33,3570           00006                 +4        EXTEND                                         
039303,001292: 33,3571           34755                           DCA      NEG0                                  
039304,001293: 33,3572           52756                           DXCH     -PHASE3                               
039305,001294: 
039306,001295: 33,3573           00006                           EXTEND                                         
039307,001296: 33,3574           34755                           DCA      NEG0                                  
039308,001297: 33,3575           52764                           DXCH     -PHASE6                               
039309,001298: 
039310,001299: 33,3576           34764                           CAF      OCT33                                 #  4.33SPOT FOR GOPOOFIX
039311,001300: 33,3577           54001                           TS       L                                     
039312,001301: 33,3600           40000                           COM                                            
039313,001302: 33,3601           52760                           DXCH     -PHASE4                               
039314,001303: 
039315,001304: 33,3602           15645                           TCF      WHIMPER                               #  PERFORM A SOFTWARE RESTART AND PROCEED
039316,001305:                                                                                                  #  TO GOTOPOOH WHILE SERVICER CONTINUES TO
039317,001306:                                                                                                  #  RUN, ALBEIT IN A GROUND STATE WHERE

Page 875

039319,001308:                                                                                                  #  ONLY STATE-VECTOR DEPENDENT FUNCTIONS
039320,001309:                                                                                                  #  ARE MAINTAINED.
039321,001310: 
039322,001311:                                                                                                  #  ****************************************************************************************************************
039323,001312:                                                                                                  #  MISCELLANEOUS OFF-LINE LANDING RADAR TASKS AND JOBS
039324,001313:                                                                                                  #  ****************************************************************************************************************
039325,001314: 
039326,001315:                                                                                                  #  ********************************
039327,001316:                                                                                                  #  HFAIL AND VFAIL
039328,001317:                                                                                                  #  ********************************
039329,001318: 
039330,001319:                                                                                                  #           ENTER HFAIL FROM MAIN-LINE SERVICER IF ALTITUDE REASONABLENESS TEST IS FAILED.
039331,001320: 
039332,001321: 33,3603           05515        HFAIL              TC       UPFLAG                                #  SET HFAIL FLAG FOR DOWNLINK
039333,001322: 33,3604           00247                           ADRES    HFAILFLG                              
039334,001323: 33,3605           41674                           CS       LRRCTR                                
039335,001324: 33,3606           00006                           EXTEND                                         
039336,001325: 33,3607           13617                           BZF      NORLITE                               #  IF R = 0, DO NOT TURN ON TRK FAIL
039337,001326: 33,3610           61673                           AD       LRLCTR                                
039338,001327: 33,3611           77757                           MASK     NEG3                                  
039339,001328: 33,3612           00006                           EXTEND                                         #  IF L-R LT 4, DO NOT TURN ON TRK FAIL
039340,001329: 33,3613           13615                           BZF      +2                                    
039341,001330: 33,3614           13617                           TCF      NORLITE                               
039342,001331: 
039343,001332: 33,3615           05515                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
039344,001333: 33,3616           00263                           ADRES    HFLSHFLG                              
039345,001334: 
039346,001335: 33,3617           31673        NORLITE            CA       LRLCTR                                
039347,001336: 33,3620           55674                           TS       LRRCTR                                #  SET R = L
039348,001337: 
039349,001338: 33,3621           13024                           TCF      VMEASCHK                              
039350,001339: 
039351,001340: 
039352,001341:                                                                                                  #           ENTER VFAIL FROM MAIN-LINE SERVICER IF VELOCITY REASONABLENESS TEST IS FAILED.
039353,001342: 
039354,001343: 33,3622           05515        VFAIL              TC       UPFLAG                                #  SET VFAIL FLAG FOR DOWNLINK
039355,001344: 33,3623           00246                           ADRES    VFAILFLG                              
039356,001345: 33,3624           41676                           CS       LRSCTR                                
039357,001346: 33,3625           00006                           EXTEND                                         #  IF S = 0, DO NOT TURN ON TRACKER FAIL
039358,001347: 33,3626           13636                           BZF      NOLITE                                
039359,001348: 33,3627           61675                           AD       LRMCTR                                #  M-S
039360,001349: 33,3630           77757                           MASK     NEG3                                  #  TEST FOR M-S > 3
039361,001350: 33,3631           00006                           EXTEND                                         #  IF M-S > 3, THEN TWO OR MORE OF THE
039362,001351: 33,3632           13634                           BZF      +2                                    #    LAST FOUR V READINGS WERE BAD,
039363,001352: 33,3633           13636                           TCF      NOLITE                                #    SO TURN ON VELOCITY FAIL LIGHT
039364,001353: 

The following two instructions are surrounded by drawn-in parentheses.

039366,001355: 33,3634           05515                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
039367,001356: 33,3635           00262                           ADRES    VFLSHFLG                              
039368,001357: 
039369,001358: 33,3636           31675        NOLITE             CA       LRMCTR                                #  SET S = M

Page 876

039371,001360: 33,3637           55676                           TS       LRSCTR                                
039372,001361: 
039373,001362: 33,3640           11462                           CCS      VSELECT                               #  TEST FOR Z COMPONENT
039374,001363: 33,3641           13201                           TCF      ENDVDAT                               #  NOT Z, DO NOT SET VX INHIBIT
039375,001364: 
039376,001365: 33,3642           05515                           TC       UPFLAG                                #  Z COMPONENT - SET FLAG TO SKIP X
039377,001366: 33,3643           00250                           ADRES    VXINH                                 #  COMPONENT,AS ERROR MAY BE DUE TO CROSS
039378,001367: 33,3644           13201                           TCF      ENDVDAT                               #  LOBE LOCK UP NOT DETECTED ON X AXIS
039379,001368: 
039380,001369:                                                                                                  #  ********************************
039381,001370:                                                                                                  #  HIGATASK
039382,001371:                                                                                                  #  ********************************
039383,001372: 
039384,001373:                                                                                                  #           HIGATASK IS ENTERED APPROXIMATELY 6 SECONDS BEFORE HIGATE IN THE DESCENT PHASE.   HIGATASK SETS THE 
039385,001374:                                                                                                  #  HIGATE FLAG (BIT11) AND THE NO LR READ FLAG (BIT10) OF LRSTAT ALIAS FLAGWORD 11.   THE HIGATJOB IS SET UP TO 
039386,001375:                                                                                                  #  REPOSITION THE LR ANTENNA FROM POSITION 1 TO POSITION 2.   IF THE REPOSITIONING IS SUCESSFUL THE ALT BEAM AND
039387,001376:                                                                                                  #  VELOCITY BEAMS ARE TRANSFORMED TO THE NEW ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.   THIS
039388,001377:                                                                                                  #  TRANSFORMATION IS PERFORMED AT SETPOS2.
039389,001378: 
039390,001379: 33,3645           40107        HIGATASK           CS       FLGWRD11                              #  SET PSTHIGAT AND NOLRREAD FLAGS
039391,001380: 33,3646           75015                           MASK     PRIO3                                 
039392,001381: 33,3647           26107                           ADS      FLGWRD11                              
039393,001382: 
039394,001383: 33,3650           10752                           CCS      PHASE1                                #  AVOID MULTIPLE HIGATJOBS
039395,001384: 33,3651           13222                           TCF      CONTSERV                              
039396,001385: 
039397,001386: 33,3652           05364                           TC       PHASCHNG                              #  1.5SPOT FOR HIGATJOB
039398,001387: 33,3653           00051                           OCT      51                                    
039399,001388: 
039400,001389: 33,3654           37732                           CA       PRIO32                                
039401,001390: 33,3655           05105                           TC       FINDVAC                               #  COULD IT BE NOVAC NOW THAT SETPOS2 OUT
039402,001391: 33,3656  E7,1654                                  EBANK=   HMEAS                                 
039403,001392: 33,3656           03554 76067                     2CADR    HIGATJOB                              
039404,001393: 
039405,001394: 
039406,001395: 33,3660           13222                           TCF      CONTSERV                              
039407,001396: 
039408,001397:                                                                                                  #  ********************************
039409,001398:                                                                                                  #  POSINDEX
039410,001399:                                                                                                  #  ********************************
039411,001400: 
039412,001401:                                                                                                  #      THIS ROUTINE SETS X1 ACCORDING TO CURRENT ANTENNA POSITION AS INDICATED BY LRPOS.   IT ALSO ZEROES X2
039413,001402:                                                                                                  #  AND THE PUSHDOWN POINTER.   IT IS CALLED BY POSUPDAT AND VELUPDAT.
039414,001403: 
039415,001404: 33,3661           30120        POSINDEX           CA       FIXLOC                                #  ZERO PUSHDOWN POINTER
039416,001405: 33,3662           54166                           TS       PUSHLOC                               
039417,001406: 33,3663           34753                           CAF      BIT1                                  
039418,001407: 33,3664           71650                           MASK     LRPOS                                 #  NOTE: LRPOS = 1 FOR POS 2 AND VICE VERSA
039419,001408: 33,3665           10000                           CCS      A                                     
039420,001409: 33,3666           44763                           CS       OCT30                                 #  POS 2: INDEX = -24D

Page 877

039422,001411: 33,3667           22007                           ZL                                             #  POS 1: INDEX = 0; X2 = 0 FOR BOTH
039423,001412: 33,3670           50120                           INDEX    FIXLOC                                
039424,001413: 33,3671           52047                           DXCH     X1                                    #  SET X1 AND X2
039425,001414: 33,3672           00002                           TC       Q                                     
039426,001415: 
039427,001416:                                                                                                  #  ********************************
039428,001417:                                                                                                  #  HIGATJOB
039429,001418:                                                                                                  #  ********************************
039430,001419: 
039431,001420:                                                                                                  #      HIGATJOB IS SET UP WHEN BOTH THE TIME AND ANGLE CRITERIA FOR ANTENNA REPOSITIONING ARE MET.   THIS JOB
039432,001421:                                                                                                  #  INITIATES THE LANDING RADAR ANTENNA REPOSITIONING ROUTINE.   DURING THE REPOSITIONING R12 IS INHIBITED BY THE
039433,001422:                                                                                                  #  NOLRREAD FLAG, WHICH IS SET BY HIGATASK OR IN CASE OF A RESTART POSSIBLY BY REREPOS.   UPON COMPLETION OF
039434,001423:                                                                                                  #  REPOSITIONING, WHETHER SUCESSFUL OR NOT, NOLRREAD FLAG IS CLEARED AND R1
039435,001424: 
039436,001425: 37,2000                                           SETLOC   SERV2                                 
039437,001426: 37,2000                                           BANK                                           
039438,001427: 37,3550  E7,1777                                  EBANK=   END-E7                                
039439,001428: 37,3550                                           COUNT*   $$/SERV                               
039440,001429: 
039441,001430: 37,3550           00004        REREPOS            INHINT                                         #  ON RESTART, SET FLAGS AGAIN
039442,001431: 37,3551           40107                           CS       FLGWRD11                              
039443,001432: 37,3552           75015                           MASK     PRIO3                                 
039444,001433: 37,3553           26107                           ADS      FLGWRD11                              
039445,001434: 
039446,001435: 37,3554           04616        HIGATJOB           TC       BANKCALL                              #  INITIATE REPOSITIONING ROUTINE
039447,001436: 37,3555           53516                           CADR     LRPOS2                                
039448,001437: 37,3556           04616                           TC       BANKCALL                              #  DELAY UNTIL FINISHED
039449,001438: 37,3557           17713                           CADR     RADSTALL                              
039450,001439: 
039451,001440: 37,3560           13561                           TCF      +1                                    #  IF UNSUCCESSFUL, R12 WILL HANDLE THINGS
039452,001441: 37,3561           34753                           CA       ONE                                   #  INDICATE POS 2 IS EXPECTED
039453,001442: 37,3562           55650                           TS       LRPOS                                 
039454,001443: 
039455,001444: 37,3563           05527                           TC       DOWNFLAG                              #  RE-ENABLE R12.
039456,001445: 37,3564           00252                           ADRES    NOLRREAD                              
039457,001446: 
039458,001447: 37,3565           05364                           TC       PHASCHNG                              #  CLEAR RESTART PROTECTION
039459,001448: 37,3566           00001                           OCT      1                                     
039460,001449: 37,3567           05155                           TC       ENDOFJOB                              
039461,001450: 
039462,001451:                                                                                                  #  ********************************
039463,001452:                                                                                                  #  RDGIMS
039464,001453:                                                                                                  #  ********************************
039465,001454: 
039466,001455:                                                                                                  #           RDGIMS IS SET UP TO SNATCH THE PIPAS AND CDUS AT THE MIDPOINT OF THE COMBINED ALTITUDE AND VELOCITY
039467,001456:                                                                                                  #  LANDING RADAR READ.
039468,001457: 
039469,001458: 37,3570  E4,1643                                  EBANK=   LRTIME                                
039470,001459: 
039471,001460: 37,3570           00006        RDGIMS             EXTEND                                         

Page 878

039473,001462: 37,3571           30025                           DCA      TIME2                                 
039474,001463: 37,3572           53644                           DXCH     LRTIME                                
039475,001464: 
039476,001465: 37,3573           00006                           EXTEND                                         
039477,001466: 37,3574           30033                           DCA      CDUX                                  
039478,001467: 37,3575           53646                           DXCH     LRXCDU                                
039479,001468: 
039480,001469: 37,3576           30034                           CA       CDUZ                                  
039481,001470: 37,3577           55647                           TS       LRZCDU                                
039482,001471: 
039483,001472: 37,3600           30037                           CA       PIPAX                                 
039484,001473: 37,3601           55650                           TS       PIPTEM                                
039485,001474: 
039486,001475: 37,3602           00006                           EXTEND                                         
039487,001476: 37,3603           30041                           DCA      PIPAY                                 
039488,001477: 37,3604           53652                           DXCH     PIPTEM     +1                         
039489,001478: 
039490,001479: 37,3605           05272                           TC       TASKOVER                              
039491,001480: 
039492,001481:                                                                                                  #  ****************************************************************************************************************
039493,001482:                                                                                                  #  GRAVITY CALCULATION SUBROUTINES
039494,001483:                                                                                                  #  ****************************************************************************************************************
039495,001484: 
039496,001485: 37,3606  E7,1513                                  EBANK=   DVCNTR                                
039497,001486: 
039498,001487:                                                                                                  #  ********************************
039499,001488:                                                                                                  #  CALCGRAV
039500,001489:                                                                                                  #  ********************************
039501,001490: 
039502,001491: 37,3606           41456        CALCGRAV           UNIT     PUSH                                  #  SAVE UNIT/R/ IN PUSHLIST            (18)
039503,001492: 37,3607           03535                           STORE    UNIT/R/                               
039504,001493: 37,3610           67340                           LXC,1    SLOAD                                 #  RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
039505,001494: 37,3611           02777                                    RTX2                                  
039506,001495: 37,3612           00047                                    X1                                    
039507,001496: 37,3613           77640                           BMN                                            
039508,001497: 37,3614           77643                                    CALCGRV1                              
039509,001498: 37,3615           50375                           VLOAD    DOT                                   #                                      (12)
039510,001499: 37,3616           06512                                    UNITZ                                 
039511,001500: 37,3617           03535                                    UNIT/R/                               
039512,001501: 37,3620           41552                           SL1      PUSH                                  #                                      (14)
039513,001502: 37,3621           44316                           DSQ      BDSU                                  
039514,001503: 37,3622           27753                                    DP1/20                                
039515,001504: 37,3623           56325                           PDDL     DDV                                   
039516,001505: 37,3624           26024                                    RESQ                                  
039517,001506: 37,3625           00043                                    34D                                   #  (RN)SQ
039518,001507: 37,3626           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
039519,001508: 37,3627           41205                           DMP      DMP                                   
039520,001509: 37,3630           26026                                    20J                                   
039521,001510: 37,3631           65361                           VXSC     PDDL                                  
039522,001511: 37,3632           03535                                    UNIT/R/                               

Page 879

039524,001513: 37,3633           41205                           DMP      DMP                                   
039525,001514: 37,3634           26030                                    2J                                    
039526,001515: 37,3635           00041                                    32D                                   
039527,001516: 37,3636           76561                           VXSC     VSL1                                  
039528,001517: 37,3637           06512                                    UNITZ                                 
039529,001518: 37,3640           45455                           VAD      STADR                                 
039530,001519: 37,3641           74260                           STORE    UNITGOBL                              
039531,001520: 37,3642           41455                           VAD      PUSH                                  #  MPAC CONTAINS UNIT GRAVITY VECTOR
039532,001521: 37,3643           60345        CALCGRV1           DLOAD    NORM                                  #  PERFORM A NORMALIZATION ON RMAGSQ IN
039533,001522: 37,3644           00043                                    34D                                   #  ORDER TO BE ABLE TO SCALE THE MU FOR
039534,001523: 37,3645           00050                                    X2                                    #  MAXIMUM PRECISION.
039535,001524: 37,3646           53663                           BDDV*    SLR*                                  
039536,001525: 37,3647           26020                                    -MUEARTH,1                            
039537,001526: 37,3650           56615                                    0          -15D,2                     
039538,001527: 37,3651           45561                           VXSC     STADR                                 
039539,001528: 37,3652           74216                           STORE    G1                                    #  ACCELERATION IN UNITS OF 2(-6) M/CS/CS
039540,001529: 37,3653           77616                           RVQ                                            
039541,001530: 
039542,001531:                                                                                                  #  ********************************
039543,001532:                                                                                                  #  MUNGRAV
039544,001533:                                                                                                  #  ********************************
039545,001534: 
039546,001535: 34,2000                                           SETLOC   SERV1                                 
039547,001536: 34,2000                                           BANK                                           
039548,001537: 34,3743     1235                                  EBANK=   G                                     
039549,001538: 34,3743                                           COUNT*   $$/SERV                               
039550,001539: 
039551,001540: 34,3743           77656        MUNGRAV            UNIT                                           
039552,001541: 34,3744           14035                           STODL    28D                                   
039553,001542: 34,3745           00043                                    34D                                   
039554,001543: 34,3746           55261                           SL       BDDV                                  
039555,001544: 34,3747           20206                                    5                                     
039556,001545: 34,3750           26022                                    -MUMOON                               
039557,001546: 34,3751           77761                           VXSC                                           
039558,001547: 34,3752           00035                                    28D                                   
039559,001548: 34,3753           03561                           STORE    G1                                    #  ACCELERATION IN UNITS OF 2(-6) M/CS/CS
039560,001549: 34,3754           77616                           RVQ                                            
039561,001550: 
039562,001551:                                                                                                  #  ****************************************************************************************************************
039563,001552:                                                                                                  #  SERVICER SUBROUTINES (PIPASR APPEARS SEPARATELY)
039564,001553:                                                                                                  #  ****************************************************************************************************************
039565,001554: 
039566,001555:                                                                                                  #  ********************************
039567,001556:                                                                                                  #  PIPSRINE
039568,001557:                                                                                                  #  ********************************
039569,001558: 
039570,001559:                                                                                                  #           SINCE SERVICER'S PIPA READING IS NOW IN-LINE, THIS PIPA READER IS PROVIDED FOR THE USE OF P57.
039571,001560:                                                                                                  #  PIPSRINE IS NOT RESTART PROTECTED BECAUSE P57 ONLY CARES ABOUT DIRECTION, NOT MAGNITUDE, OF DELV.
039572,001561: 
039573,001562: 34,3755           00004        PIPAREAD           INHINT                                         
039574,001563: 

Page 880

039576,001565: 34,3756           44755                           CS       ZERO                                  
039577,001566: 34,3757           56037                           XCH      PIPAX                                 
039578,001567: 34,3760           22007                           ZL                                             
039579,001568: 34,3761           52325                           DXCH     DELVX                                 
039580,001569: 34,3762           44755                           CS       ZERO                                  
039581,001570: 34,3763           56040                           XCH      PIPAY                                 
039582,001571: 34,3764           22007                           ZL                                             
039583,001572: 34,3765           52327                           DXCH     DELVY                                 
039584,001573: 34,3766           44755                           CS       ZERO                                  
039585,001574: 34,3767           56041                           XCH      PIPAZ                                 
039586,001575: 34,3770           22007                           ZL                                             
039587,001576: 34,3771           52331                           DXCH     DELVZ                                 
039588,001577: 34,3772           00003                           RELINT                                         
039589,001578: 34,3773           00002                           TC       Q                                     
039590,001579: 
039591,001580:                                                                                                  #  ********************************
039592,001581:                                                                                                  #  SERVCHNG
039593,001582:                                                                                                  #  ********************************
039594,001583: 
039595,001584:                                                                                                  #           SERVCHNG REPLACES THE 2CADR AT PHSNAME5 WITH THE 2CADR OF THE LOCATION SPECIFIED BY Q AND THE CURRENT
039596,001585:                                                                                                  #  BBANK.   THE OTHER GROUP 5 INFORMATION IS NOT TOUCHED.   SERVCHNG SHOULD BE USED WHEREVER POSSIBLE BY ROUTINES
039597,001586:                                                                                                  #  RUNNING AS PART OF THE SERVICER JOB.
039598,001587: 
039599,001588:    6000                                           SETLOC   FFSERV                                
039600,001589:    6000                                           BANK                                           
039601,001590:    6042  E3,1446                                  EBANK=   PHSNAME5                              
039602,001591:    6042                                           COUNT*   $$/SERV                               
039603,001592: 
039604,001593:    6042           36257        SERVCHNG           CAF      THREE                                 #  FBANK 0, EBANK 3
039605,001594:    6043           56006                           XCH      BBANK                                 
039606,001595:    6044           52002                           DXCH     L                                     #  A --> L,  Q --> A
039607,001596:    6045           53447                           DXCH     PHSNAME5                              
039608,001597:    6046           00006                           EXTEND                                         #  PICK UP RETURN ADDRESS WHERE IT SURVIVES
039609,001598:    6047           31447                           DCA      PHSNAME5                              
039610,001599:    6050           52006                           DXCH     Z                                     #  RETURN
039611,001600: 
039612,001601: 33,2000                                           SETLOC   SERVICES                              
039613,001602: 33,2000                                           BANK                                           
039614,001603: 33,3673  E7,1513                                  EBANK=   DVCNTR                                
039615,001604: 33,3673                                           COUNT*   $$/SERV                               
039616,001605: 
039617,001606:                                                                                                  #  ********************************
039618,001607:                                                                                                  #  COPYCYC
039619,001608:                                                                                                  #  ********************************
039620,001609: 
039621,001610: 33,3673           33763        COPYCYC            CAF      TWNTYTWO                              
039622,001611: 33,3674           00004                 +1        INHINT                                         
039623,001612: 33,3675           77761                 +2        MASK     NEG1                                  #  REDUCE BY 1 IF ODD
039624,001613: 33,3676           54061                           TS       ITEMP1                                
039625,001614: 33,3677           00006                           EXTEND                                         

Page 881

039627,001616: 33,3700           50061                           INDEX    ITEMP1                                
039628,001617: 33,3701           31543                           DCA      RN1                                   
039629,001618: 33,3702           50061                           INDEX    ITEMP1                                
039630,001619: 33,3703           53220                           DXCH     RN                                    
039631,001620: 33,3704           10061                           CCS      ITEMP1                                
039632,001621: 33,3705           13675                           TCF      COPYCYC    +2                         
039633,001622: 33,3706           00002                           TC       Q                                     #  RETURN UNDER INHINT
039634,001623: 
039635,001624: 
039636,001625:                                                                                                  #  ********************************
039637,001626:                                                                                                  #  TMPTOSPT
039638,001627:                                                                                                  #  ********************************
039639,001628: 
039640,001629: 33,3707           31155        TMPTOSPT           CA       CDUTEMPY                              #  THIS SUBROUTINE LOADS THE CDUS
039641,001630: 33,3710           54765                           TS       CDUSPOTY                              #    CORRESPONDING TO PIPTIME1 INTO THE
039642,001631: 33,3711           31156                           CA       CDUTEMPZ                              #    CDUSPOT VECTOR.   TMPTOSPT CAN BE
039643,001632: 33,3712           54767                           TS       CDUSPOTZ                              #    CALLED FROM INTERPRETIVE WITH AN RTB.
039644,001633: 33,3713           31154                           CA       CDUTEMPX                              
039645,001634: 33,3714           54771                           TS       CDUSPOTX                              
039646,001635: 33,3715           00002                           TC       Q                                     
039647,001636: 
039648,001637:                                                                                                  #  ********************************
039649,001638:                                                                                                  #  PIPNORM
039650,001639:                                                                                                  #  ********************************
039651,001640: 
039652,001641:                                                                                                  #           PIPNORM, WHICH CORRECTS THE PIPA DIFFERENCE FOR POSSIBLE PIPA OVERFLOW, IS SEPARATE FROM PIPASR TO
039653,001642:                                                                                                  #  MAKE IT AVAILABLE TO ROUTINES WHICH READ THE PIPAS ASYNCHRONOUSLY, SUCH AS R10 AND THE R.O.D. EQUATION.
039654,001643: 
039655,001644:                                                                                                  #           FUNCTIONAL DESCRIPTION OF PIPNORM:-
039656,001645: 
039657,001646:                                                                                                  #           INPUT:         IN A - DIFFERENCE BETWEEN CURRENT AND PREVIOUS PIPA READING
039658,001647: 
039659,001648:                                                                                                  #           OUTPUTS:       IN A - INPUT CORRECTED FOR POSSIBLE PIPA OVERFLOW BETWEEN READINGS
039660,001649:                                                                                                  #                          IN L - ZERO
039661,001650: 
039662,001651:                                                                                                  #           ASSUMPTIONS:   THAT A DELV OF NO MORE THAN 81.91 M/S WAS ACCUMULATED BETWEEN THE PIPA READINGS
039663,001652:                                                                                                  #                          THAT PIPNORM IS CALLED IN INTERRUPT OR UNDER INHINT
039664,001653: 
039665,001654: 33,3716           56061        PIPNORM            XCH      ITEMP1                                #  TO CLEAR POSSIBLE OVERFLOW
039666,001655: 33,3717           30061                           CA       ITEMP1                                
039667,001656: 33,3720           74736                           MASK     BIT14                                 
039668,001657: 33,3721           00006                           EXTEND                                         
039669,001658: 33,3722           13727                           BZF      +5                                    
039670,001659: 33,3723           30061                           CA       ITEMP1                                #  POS > 8191 OR NEG > -8192
039671,001660: 33,3724           64734                           AD       NEG1/2                                
039672,001661: 33,3725           64734                           AD       NEG1/2                                
039673,001662: 33,3726           13732                           TCF      +4                                    
039674,001663: 33,3727           30061                 +5        CA       ITEMP1                                #  POS < 8192 OR NEG < -8191
039675,001664: 33,3730           64736                           AD       HALF                                  
039676,001665: 33,3731           64736                           AD       HALF                                  

Page 882

039678,001667: 33,3732           22007                 +4        ZL                                             
039679,001668: 33,3733           56001                           XCH      L                                     #  CLEAR PROBABLE OVERFLOW
039680,001669: 33,3734           56001                           XCH      L                                     
039681,001670: 33,3735           00002                           TC       Q                                     
039682,001671: 
039683,001672:                                                                                                  #  ****************************************************************************************************************
039684,001673:                                                                                                  #  SERVICER CONSTANTS (EXCEPT THOSE IN THE CONTROLLED CONSTANTS SECTION)
039685,001674:                                                                                                  #  ****************************************************************************************************************
039686,001675: 33,3736  E7,1513                                  EBANK=   DVCNTR                                
039687,001676: 33,3736           02102 66067  CYCLEADR           2CADR    PIPCYCLE                              
039688,001677: 
039689,001678: 
039690,001679: 
039691,001680: 33,3740  E7,1513                                  EBANK=   DVCNTR                                
039692,001681: 33,3740           03517 66067  AVOUTCAD           2CADR    AVGEND                                
039693,001682: 
039694,001683: 
039695,001684: 
039696,001685: 33,3742           02217        GETABADR           ADRES    GETABVAL                              
039697,001686: 
039698,001687: 
039699,001688: 33,3743           02136        XNBPIPAD           ECADR    XNBPIP                                
039700,001689: 
039701,001690: 
039702,001691: 33,3744           02221        XNBRADAD           ECADR    XNBRAD                                
039703,001692: 
039704,001693: 
039705,001694: 33,3745     5000               PGMIN              =        2SECS                                 
039706,001695: 
039707,001696: 
039708,001697: 33,3745           00764        PGMAX              DEC      500        B-14                       
039709,001698: 
039710,001699: 
039711,001700: 33,3746           00014 20000  2SEC(18)           2DEC     200        B-18                       
039712,001701: 
039713,001702: 
039714,001703: 
039715,001704: 33,3750           00000 00620  4SEC(18)           2DEC     400        B-28                       
039716,001705: 
039717,001706: 
039718,001707: 
039719,001708: 33,3752           01463 06315  DP1/20             2DEC     0.05                                  
039720,001709: 
039721,001710: 
039722,001711: 
039723,001712: 33,3754           37767 02200  1-30KFT            2DEC     16768072   B-24                       #  DPPOSMAX-30KFT
039724,001713: 

Page 883

039726,001715: 33,3756           00150 33343  BIASFACT           2DEC     .0064                                 #  SCALES PBIAS TO UNITS OF 2(-9) M/CS/CS
039727,001716: 
039728,001717: 
039729,001718: 
039730,001719: 33,3760     4361               OCT21              =        ND1                                   
039731,001720: 
039732,001721: 
039733,001722: 33,3760           00523        OCT523             OCT      00523                                 
039734,001723: 
039735,001724: 
039736,001725: 33,3761           00110        BITS4-7            OCT      110                                   
039737,001726: 
039738,001727: 
039739,001728: 33,3762     4776               BITS6+7            =        SUPER110                              
039740,001729: 
039741,001730: 
039742,001731: 33,3762           00102        66DEC              DEC      66         B-14                       
039743,001732: 
039744,001733: 
039745,001734: 33,3763           00026        TWNTYTWO           DEC      22         B-14                       
039746,001735: 
039747,001736: 
039748,001737: 33,3764           00121 35341  1/200DP            2DEC     .005                                  
039749,001738: 
039750,001739: 
039751,001740: 
039752,001741:                                                                                                  #  ****************************************************************************************************************
039753,001742:                                                                                                  #  QUARTASK (ALSO KNOWN AS R10,R11) AN AUXILLIARY OF SERVICER WHICH RUNS EVERY QUARTER OF A SECOND
039754,001743:                                                                                                  #  ****************************************************************************************************************
039755,001744: 
039756,001745: 21,2000                                           SETLOC   R11                                   
039757,001746: 21,2000                                           BANK                                           
039758,001747: 21,2055  E7,1777                                  EBANK=   END-E7                                
039759,001748: 21,2055                                           COUNT*   $$/R11                                
039760,001749: 
039761,001750: 21,2055  21,2055               R10,R11            =        QUARTASK                              
039762,001751: 
039763,001752: 21,2055           30103        QUARTASK           CA       FLAGWRD7                              #  IS SERVICER STILL RUNNING?
039764,001753: 21,2056           74747                           MASK     AVEGFBIT                              
039765,001754: 21,2057           00006                           EXTEND                                         
039766,001755: 21,2060           15272                           BZF      TASKOVER                              #  NO:   BUT LET AVGEND KILL GROUP 2
039767,001756: 
039768,001757: 21,2061           36010                           CA       OCT31                                 #  YES:  SET UP NEXT QUARTASK
039769,001758: 21,2062           05204                           TC       TWIDDLE                               
039770,001759: 21,2063           02055                           ADRES    QUARTASK                              
039771,001760: 
039772,001761:                                                                                                  #  ************************************************************************
039773,001762:                                                                                                  #  FLASH LANDING RADAR LIGHTS
039774,001763:                                                                                                  #  ************************************************************************
039775,001764: 

Page 884

039777,001766: 21,2064           30107        FLASHH?            CA       FLGWRD11                              
039778,001767: 21,2065           74753                           MASK     HFLSHBIT                              
039779,001768: 21,2066           00006                           EXTEND                                         
039780,001769: 21,2067           12073                           BZF      FLASHV?                               #  H FLASK OFF, SO LEAVE ALONE
039781,001770: 
039782,001771: 21,2070           34747                           CA       HLITE                                 
039783,001772: 21,2071           54001                           TS       L                                     
039784,001773: 21,2072           04606                           TC       FLIP                                  #  FLIP H LITE
039785,001774: 
039786,001775: 21,2073           30107        FLASHV?            CA       FLGWRD11                              #  VFLASHBIT MUST BE BIT 2
039787,001776: 21,2074           74752                           MASK     VFLSHBIT                              
039788,001777: 21,2075           00006                           EXTEND                                         
039789,001778: 21,2076           12102                           BZF      10,11                                 #  V FLASH OFF
039790,001779: 
039791,001780: 21,2077           34751                           CA       VLITE                                 
039792,001781: 21,2100           54001                           TS       L                                     
039793,001782: 21,2101           04606                           TC       FLIP                                  
039794,001783: 
039795,001784:                                                                                                  #  ************************************************************************
039796,001785:                                                                                                  #  CHECK FOR ABORT OR ABORT-STAGE
039797,001786:                                                                                                  #  ************************************************************************
039798,001787: 
039799,001788: 21,2102           30105        10,11              CA       FLAGWRD9                              #  IS THE LETABORT FLAG SET?
039800,001789: 21,2103           74743                           MASK     LETABBIT                              
039801,001790: 21,2104           00006                           EXTEND                                         
039802,001791: 21,2105           12131                           BZF      VVCOMP                                #  NO:   GO ON TO THE VELOCITY COMPUTATION
039803,001792: 
039804,001793: 21,2106           41010        P71NOW?            CS       MODREG                                #  ARE WE IN P71 NOW?
039805,001794: 21,2107           62034                           AD       1DEC71                                
039806,001795: 21,2110           00006                           EXTEND                                         
039807,001796: 21,2111           12131                           BZF      VVCOMP                                #  YES:  PROCEED TO VELOCITY COMPUTATION
039808,001797: 
039809,001798: 21,2112           00006                           EXTEND                                         #  NO:   IS AN ABORT STAGE COMMANDED
039810,001799: 21,2113           00030                           READ     CHAN30                                
039811,001800: 21,2114           40000                           COM                                            
039812,001801: 21,2115           54001                           TS       L                                     
039813,001802: 21,2116           74750                           MASK     BIT4                                  
039814,001803: 21,2117           10000                           CCS      A                                     
039815,001804: 21,2120           12012                           TCF      P71A                                  #  YES
039816,001805: 
039817,001806: 21,2121           41010        P70NOW?            CS       MODREG                                #  NO:   ARE WE IN P70 NOW?
039818,001807: 21,2122           62033                           AD       1DEC70                                
039819,001808: 21,2123           00006                           EXTEND                                         
039820,001809: 21,2124           12131                           BZF      VVCOMP                                #  YES:  PROCEED TO VELOCITY COMPUTATION
039821,001810: 
039822,001811: 21,2125           30001                           CA       L                                     #  NO:   IS AN ABORT COMMANDED?
039823,001812: 21,2126           74753                           MASK     BIT1                                  
039824,001813: 21,2127           10000                           CCS      A                                     
039825,001814: 21,2130           12007                           TCF      P70A                                  #  YES
039826,001815: 

Page 885

039828,001817:                                                                                                  #  ************************************************************************
039829,001818:                                                                                                  #  COMPUTE VELOCITY VECTOR
039830,001819:                                                                                                  #  ************************************************************************
039831,001820: 
039832,001821:                                                                                                  #  ONLY IF SWANDISP IS SET ARE ALL THE NUMBERS AVAILABLE NEEDED IN VVCOMP.
039833,001822: 
039834,001823: 21,2131           40103        VVCOMP             CS       FLAGWRD7                              #  IS LANDING ANALOG DISPLAYS FLAG SET?
039835,001824: 21,2132           74741                           MASK     SWANDBIT                              
039836,001825: 21,2133           10000                           CCS      A                                     
039837,001826: 21,2134           12726                           TCF      DISPRSET   +1                         #  NO:   GO RESET
039838,001827: 
039839,001828:                                                                                                  #  DO EVERYTHING POSSIBLE BEFORE READING PIPAS.
039840,001829: 
039841,001830: 21,2135           00006                           EXTEND                                         #  YES:  COMPUTE VELOCITY VECTOR
039842,001831: 21,2136           41710                           DCS      VSURFACE                              
039843,001832: 21,2137           53727                           DXCH     VVECTX                                
039844,001833: 21,2140           00006                           EXTEND                                         
039845,001834: 21,2141           31525                           DCA      V                                     
039846,001835: 21,2142           20001                           DDOUBL                                         
039847,001836: 21,2143           20001                           DDOUBL                                         
039848,001837: 21,2144           21727                           DAS      VVECTX                                
039849,001838: 
039850,001839: 21,2145           00006                           EXTEND                                         
039851,001840: 21,2146           41712                           DCS      VSURFACE   +2                         
039852,001841: 21,2147           53731                           DXCH     VVECTY                                
039853,001842: 21,2150           00006                           EXTEND                                         
039854,001843: 21,2151           31527                           DCA      V          +2                         
039855,001844: 21,2152           20001                           DDOUBL                                         
039856,001845: 21,2153           20001                           DDOUBL                                         
039857,001846: 21,2154           21731                           DAS      VVECTY                                
039858,001847: 
039859,001848: 21,2155           00006                           EXTEND                                         
039860,001849: 21,2156           41714                           DCS      VSURFACE   +4                         
039861,001850: 21,2157           53733                           DXCH     VVECTZ                                
039862,001851: 21,2160           00006                           EXTEND                                         
039863,001852: 21,2161           31531                           DCA      V          +4                         
039864,001853: 21,2162           20001                           DDOUBL                                         
039865,001854: 21,2163           20001                           DDOUBL                                         
039866,001855: 21,2164           21733                           DAS      VVECTZ                                
039867,001856: 
039868,001857:                                                                                                  #  PICK UP TIME.
039869,001858: 
039870,001859:                                                                                                  #  COMPUTE TIME SINCE PIPTIME.
039871,001860: 
039872,001861: 21,2165           41234                           CS       PIPTIME    +1                         
039873,001862: 21,2166           60025                           AD       TIME1                                 
039874,001863: 21,2167           64736                           AD       HALF                                  
039875,001864: 21,2170           64736                           AD       HALF                                  
039876,001865: 21,2171           57725                           XCH      DT                                    #  DT IN UNITS OF 2(14) CS
039877,001866: 

Page 886

039879,001868:                                                                                                  #  ADD IN PIPA PULSES.
039880,001869: 
039881,001870: 21,2172           41254                           CS       PIPAXOLD                              
039882,001871: 21,2173           60037                           AD       PIPAX                                 
039883,001872: 21,2174           02761                           TC       NORMPIP                               
039884,001873: 21,2175           00006                           EXTEND                                         
039885,001874: 21,2176           72000                           MP       LANAKPIP                              
039886,001875: 21,2177           21727                           DAS      VVECTX                                
039887,001876: 
039888,001877: 21,2200           41255                           CS       PIPAYOLD                              
039889,001878: 21,2201           60040                           AD       PIPAY                                 
039890,001879: 21,2202           02761                           TC       NORMPIP                               
039891,001880: 21,2203           00006                           EXTEND                                         
039892,001881: 21,2204           72000                           MP       LANAKPIP                              
039893,001882: 21,2205           21731                           DAS      VVECTY                                
039894,001883: 
039895,001884: 21,2206           41256                           CS       PIPAZOLD                              
039896,001885: 21,2207           60041                           AD       PIPAZ                                 
039897,001886: 21,2210           02761                           TC       NORMPIP                               
039898,001887: 21,2211           00006                           EXTEND                                         
039899,001888: 21,2212           72000                           MP       LANAKPIP                              
039900,001889: 21,2213           21733        QUARDUMP           DAS      VVECTZ                                
039901,001890: 
039902,001891:                                                                                                  #      THE FOLLOWING CODING REFERS THE X-PIPA READING TO THE CENTER-OF-MASS OF THE SPACECRAFT BY SUBTRACTING
039903,001892:                                                                                                  #  THOSE PIPA COUNTS PRODUCED BY VERTICAL IMU MOTION RELATIVE TO THE CENTER-OF-MASS.  THE SPACECRAFT X-AXIS IS
039904,001893:                                                                                                  #  ASSUMED TO BE APPROXIMATELY VERTICAL (PARALLEL TO THE SM X-AXIS).  THE EQUATION IS:
039905,001894: 
039906,001895:                                                                                                  #                                  P66PIPX = P66PIPX - OMEGAQ RIMUZ
039907,001896: 
039908,001897:                                                                                                  #  WHERE P66PIPX IS THE X-PIPA READING, OMEGAQ IS THE ATTITUDE-RATE ABOUT THE Q (Y) AXIS, AND RIMUZ IS THE
039909,001898:                                                                                                  #  Z-COORDINATE OF THE IMU.
039910,001899: 
039911,001900:                                                                                                  #  FINALLY, ADD IN CONTRIBUTIONS OF GRAVITY AND PIPA BIAS.
039912,001901: 
039913,001902: 21,2214           41704                           CS       BIASACCX                              #  BIASACCX IS IN UNITS OF 2(-9) M/CS/CS
039914,001903: 21,2215           61701                           AD       GRAVACCX                              #  GRAVACCX IS IN UNITS OF 2(-9) M/CS/CS
039915,001904: 21,2216           00006                           EXTEND                                         
039916,001905: 21,2217           71725                           MP       DT                                    
039917,001906: 21,2220           21727                           DAS      VVECTX                                #  VVECTX IN UNITS OF 2(5) M/CS
039918,001907: 
039919,001908: 21,2221           41705                           CS       BIASACCY                              #  BIASACCY IS IN UNITS OF 2(-9) M/CS/CS
039920,001909: 21,2222           61702                           AD       GRAVACCY                              #  GRAVACCY IS IN UNITS OF 2(-9) M/CS/CS
039921,001910: 21,2223           00006                           EXTEND                                         
039922,001911: 21,2224           71725                           MP       DT                                    
039923,001912: 21,2225           21731                           DAS      VVECTY                                #  VVECTY IN UNITS OF 2(5) M/CS
039924,001913: 
039925,001914: 21,2226           41706                           CS       BIASACCZ                              #  BIASACCZ IS IN UNITS OF 2(-9) M/CS/CS
039926,001915: 21,2227           61703                           AD       GRAVACCZ                              #  GRAVACCZ IS IN UNITS OF 2(-9) M/CS/CS
039927,001916: 21,2230           00006                           EXTEND                                         
039928,001917: 21,2231           71725                           MP       DT                                    

Page 887

039930,001919: 21,2232           21733                           DAS      VVECTZ                                #  VVECTZ IN UNITS OF 2(5) M/CS
039931,001920: 
039932,001921:                                                                                                  #  ************************************************************************
039933,001922:                                                                                                  #  SHOULD P66JOB BE SET UP?
039934,001923:                                                                                                  #  ************************************************************************
039935,001924: 
039936,001925: 21,2233           41010        GUILDEN            CS       MODREG                                #  ARE WE IN P66?
039937,001926: 21,2234           62331        STERN              AD       DEC66                                 
039938,001927: 21,2235           00006                           EXTEND                                         
039939,001928: 21,2236           12300                           BZF      P66SETUP                              #  YES:  OFF TO IT THEN
039940,001929: 
039941,001930: 21,2237           30075                           CA       FLAGWRD1                              #  NO:   IS P66 SELECTION LOCKED OUT
039942,001931: 21,2240           74743                           MASK     ALW66BIT                              
039943,001932: 21,2241           00006                           EXTEND                                         
039944,001933: 21,2242           12324                           BZF      GUILDRET                              #  YES
039945,001934: 
039946,001935: 21,2243           11623                           CCS      FLPASS0                               #  NO:   IS FLPASS0 = 0?
039947,001936: 21,2244           12251                           TCF      ATTHOLD?                              #  NO:   GO CHECK UN-ATTITUDE-HOLD DISCRETE
039948,001937: 
039949,001938: 21,2245           41346                           CS       WCHPHASE                              #  YES:  IS WCHPHASE = 2?
039950,001939: 21,2246           64752                           AD       TWO                                   
039951,001940: 21,2247           00006                           EXTEND                                         
039952,001941: 21,2250           12261                           BZF      STARTP66                              #  YES:  GO START P66
039953,001942: 
039954,001943: 21,2251           34737        ATTHOLD?           CAF      BIT13                                 #  NO: IS UN-ATTITUDE-HOLD DISCRETE HERE?
039955,001944: 21,2252           00006                           EXTEND                                         
039956,001945: 21,2253           02031                           RAND     CHAN31                                
039957,001946: 21,2254           10000                           CCS      A                                     
039958,001947: 21,2255           12324                           TCF      GUILDRET                              #  YES: ALL'S WELL, OR AT LEAST AUTOMATIC
039959,001948: 
039960,001949: 21,2256           31744                           CA       RODCOUNT                              #  NO:   HAS ROD SWITCH BEEN CLICKED?
039961,001950: 21,2257           00006                           EXTEND                                         
039962,001951: 21,2260           12324                           BZF      GUILDRET                              #  NO:   STICK IN THERE, LANDING
039963,001952: 
039964,001953: 21,2261           00006        STARTP66           EXTEND                                         #  YES:  INITIALIZE DESIRED ALTITUDE-RATE
039965,001954: 21,2262           31727                           DCA      VVECTX                                #    (FURTHER INITIALIZATION IS IN P66JOB)
039966,001955: 21,2263           53746                           DXCH     VDGVERT                               
039967,001956: 
039968,001957: 21,2264           44755                           CS       ZERO                                  #  CANCEL LEFT-OVER P64 THROTTLE COMMAND
039969,001958: 21,2265           54055                           TS       THRUST                                #    (NEVER, NEVER LOAD THRUST WITH +0)
039970,001959: 
039971,001960: 21,2266           25623                           INCR     FLPASS0                               
039972,001961: 
039973,001962: 21,2267           00006                           EXTEND                                         #  DISCONNECT ALL GUIDANCE FROM SERVICER
039974,001963: 21,2270           32333                           DCA      ADRPIPCY                              
039975,001964: 21,2271           53253                           DXCH     AVGEXIT                               
039976,001965: 
039977,001966: 21,2272           05515                           TC       UPFLAG                                #  SET FLAG TO CONTINUE P66 HORIZONTAL
039978,001967: 21,2273           00016                           ADRES    P66PROFL                              #    UNTIL "PROCEED" AFTER TOUCHDOWN
039979,001968: 

Page 888

039981,001970: 21,2274           05527                           TC       DOWNFLAG                              #  PERMIT X-AXIS OVERRIDE DESPITE THE
039982,001971: 21,2275           00311                           ADRES    XOVINFLG                              #    POSSIBILITY OF PITCH-ROLL CROSS-FEED
039983,001972: 
039984,001973: 21,2276           05515                           TC       UPFLAG                                #  TERMINATE TERRAIN MODEL
039985,001974: 21,2277           00023                           ADRES    NOTERFLG                              
039986,001975: 
039987,001976: 21,2300           10756        P66SETUP           CCS      PHASE3                                #  AVOID MULTIPLE P66JOBS AFTER RESTART
039988,001977: 21,2301           12326                           TCF      PRELAD                                
039989,001978: 
039990,001979: 21,2302           37724                           CAF      PRIO24                                
039991,001980: 21,2303           05105                           TC       FINDVAC                               
039992,001981: 21,2304  E5,1527                                  EBANK=   TAURODL                               
039993,001982: 21,2304           02714 64065  P662CADR           2CADR    P66JOB                                
039994,001983: 
039995,001984: 
039996,001985: 21,2306           35007                           CAF      EBANK3                                #  RESTART PROTECT BY HAND TO SAVE TIME
039997,001986: 21,2307           54003                           TS       EBANK                                 
039998,001987: 21,2310  E3,1442                                  EBANK=   PHSNAME3                              
039999,001988: 21,2310           37724                           CAF      PRIO24                                
040000,001989: 21,2311           55057                           TS       PHSPRDT3                              
040001,001990: 21,2312           00006                           EXTEND                                         
040002,001991: 21,2313           32305                           DCA      P662CADR                              
040003,001992: 21,2314           53443                           DXCH     PHSNAME3                              
040004,001993: 21,2315           34752                           CAF      TWO                                   
040005,001994: 21,2316           54001                           TS       L                                     
040006,001995: 21,2317           40000                           COM                                            
040007,001996: 21,2320           52756                           DXCH     -PHASE3                               
040008,001997: 21,2321           35016                           CAF      EBANK7                                
040009,001998: 21,2322           54003                           TS       EBANK                                 
040010,001999: 21,2323  E7,1777                                  EBANK=   END-E7                                
040011,002000: 
040012,002001: 21,2323           12326                           TCF      PRELAD                                
040013,002002: 
040014,002003: 21,2324           34755        GUILDRET           CAF      ZERO                                  
040015,002004: 21,2325           55744                           TS       RODCOUNT                              
040016,002005: 
040017,002006: 21,2326           40025        PRELAD             CS       TIME1                                 #  UPDATE TBASE2 AND PROCEED TO LANADISP
040018,002007: 21,2327           55054                           TS       TBASE2                                
040019,002008: 21,2330           12334                           TCF      LANADISP                              
040020,002009: 
040021,002010:                                                                                                  #  ************************************************************************
040022,002011:                                                                                                  #  QUARTASK CONSTANTS
040023,002012:                                                                                                  #  ************************************************************************
040024,002013: 
040025,002014: 21,2331           00102        DEC66              DEC      66         B-14                       
040026,002015: 
040027,002016: 
040028,002017: 21,2332  E7,1513                                  EBANK=   DVCNTR                                
040029,002018: 21,2332           02102 66067  ADRPIPCY           2CADR    PIPCYCLE                              
040030,002019: 

Page 889

040032,002021:                                                                                                  #  ****************************************************************************************************************
040033,002022:                                                                                                  #  ****************************************************************************************************************
040034,002023: 
040035,002024:                                                                                                  #      TEMPORARY DEFINITIONS TO AVOID CUSSES UNTIL CHANGES OUTSIDE OF ZFLY AND ZERASE CAN BE MADE.
040036,002025: 
040037,002026: 21,2334     5272               REREADAC           =        TASKOVER                              
040038,002027: 
040039,002028: 
040040,002029: 21,2334     5272               REDO5.5            =        TASKOVER                              
040041,002030: 
040042,002031: 
040043,002032: 21,2334     1235               GDT/2              =        G                                     
040044,002033: 
040045,002034: 
040046,002035: 21,2334  34,3752               PIPASR             =        PIPAREAD   -3                         #  SO PIPSRINE WILL EQUAL PIPAREAD

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