Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

038051,000002:                                                                                                  ## Copyright:   Public domain.
038052,000003:                                                                                                  ## Filename:    SERVICER.agc
038053,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
038054,000005:                                                                                                  ##              It is part of the source code for the original release
038055,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
038056,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
038057,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
038058,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
038059,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
038060,000011:                                                                                                  ##              that the code format has been changed to conform to the
038061,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
038062,000013:                                                                                                  ##              original YUL assembler.
038063,000014:                                                                                                  ## Reference:   pp. 858-896
038064,000015:                                                                                                  ## Assembler:   yaYUL
038065,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
038066,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
038067,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
038068,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
038069,000020:                                                                                                  ##              2017-01-21 HG   Transcribed
038070,000021:                                                                                                  ##              2017-01-23 HG   Fix operation DAS -> DXCH
038071,000022:                                                                                                  ##                                            CS  -> CA
038072,000023:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
038073,000024:                                                                                                  ##                              and fixed errors found.
038074,000025:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
038075,000026:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
038076,000027:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
038077,000028: 

Page 858

038079,000030: 37,3374                                           BANK     37                                    
038080,000031: 37,2000                                           SETLOC   SERV1                                 
038081,000032: 37,2000                                           BANK                                           
038082,000033: 
038083,000034: 37,3374  E7,1513                                  EBANK=   DVCNTR                                
038084,000035:                                                                                                  #  *************************************   PREREAD   **************************************************************
038085,000036: 
038086,000037: 
038087,000038: 37,3374                                           COUNT*   $$/SERV                               
038088,000039: 
038089,000040: 37,3374           34757        PREREAD            CAF      SEVEN                                 #  5.7 SPOT TO SKIP LASTBIAS AFTER
038090,000041: 37,3375           03515                           TC       GNUFAZE5                              #  RESTART.
038091,000042: 37,3376           35031                           CAF      PRIO21                                
038092,000043: 37,3377           05072                           TC       NOVAC                                 
038093,000044: 37,3400  E3,1460                                  EBANK=   NBDX                                  
038094,000045: 37,3400           03663 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
038095,000046: 
038096,000047: 37,3402           03533        BIBIBIAS           TC       PIPASR     +3                         #  CLEAR + READ PIPS LAST TIME IN FRE5+F133
038097,000048:                                                                                                  #  DO NOT DESTROY VALUE OF PIPTIME1
038098,000049: 
038099,000050: 37,3403           40103                           CS       FLAGWRD7                              
038100,000051: 37,3404           74773                           MASK     SUPER011                              #  SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
038101,000052: 37,3405           26103                           ADS      FLAGWRD7                              #     OF FLAGWRD7)
038102,000053: 
038103,000054: 37,3406           44735                           CS       DRFTBIT                               
038104,000055: 37,3407           70076                           MASK     FLAGWRD2                              #  RESET DRIFTFLAG
038105,000056: 37,3410           54076                           TS       FLAGWRD2                              
038106,000057: 
038107,000058: 37,3411           34751                           CAF      FOUR                                  #  INITIALIZE DV MONITOR
038108,000059: 37,3412           55257                           TS       PIPAGE                                
038109,000060: 
038110,000061: 37,3413           33523                           CAF      ENDJBCAD                              #  POINT OUTROUTE TO END-OF-JOB.
038111,000062: 37,3414           55260                           TS       OUTROUTE                              
038112,000063: 
038113,000064: 37,3415           37707                           CAF      PRIO22                                
038114,000065: 37,3416           05105                           TC       FINDVAC                               #  TO FIRST ENTRY TO AVERAGE G.
038115,000066: 37,3417  E7,1513                                  EBANK=   DVCNTR                                
038116,000067: 37,3417           02421 66067                     2CADR    NORMLIZE                              
038117,000068: 
038118,000069: 37,3421           34752                           CA       TWO                                   #  5.2SPOT FOR REREADAC AND NORMLIZE
038119,000070: 37,3422           03511        GOREADAX           TC       GNUTFAZ5                              
038120,000071: 37,3423           35000                           CA       2SECS                                 #  WAIT TWO SECONDS FOR READACCS
038121,000072: 37,3424           05224                           TC       VARDELAY                              
038122,000073: 

Page 859

038124,000075:                                                                                                  #  *************************************   READACCS   *************************************************************
038125,000076: 37,3425           43524        READACCS           CS       OCT37771                              #  THIS PIECE OF CODING ATTEMPTS TO
038126,000077: 37,3426           60030                           AD       TIME5                                 #  SYNCHRONIZE READACCS WITH THE DIGITAL
038127,000078: 37,3427           10000                           CCS      A                                     #  AUTOPILOT SO THAT A PAXIS RUPT WILL
038128,000079: 37,3430           44753                           CS       ONE                                   #  OCCUR APPROXIMATELY 70 MILLISECONDS
038129,000080: 37,3431           13433                           TCF      +2                                    #  FOLLOWING THE READACCS RUPT.  THE 70 MS
038130,000081: 37,3432           34753                           CA       ONE                                   #  OFFSET WAS CHOSEN SO THAT THE PAXIS
038131,000082: 37,3433           26030                 +2        ADS      TIME5                                 #  RUPT WOULD NOT OCCUR SIMULTANEOUSLY
038132,000083:                                                                                                  #  WITH ANY OF THE 8 SUBSEQUENT R10,R11
038133,000084:                                                                                                  #  INTERRUPTS -- THUS MINIMIZING THE POSS-
038134,000085:                                                                                                  #  IBILITY OF LOSING DOWNRUPTS.
038135,000086: 
038136,000087: 37,3434           03530                           TC       PIPASR                                #  READ THE PIPAS.
038137,000088: 
038138,000089: 37,3435           34756        PIPSDONE           CA       FIVE                                  
038139,000090: 37,3436           03515                           TC       GNUFAZE5                              
038140,000091: 37,3437           34753        REDO5.5            CAF      ONE                                   
038141,000092: 37,3440           55257                           TS       PIPAGE                                
038142,000093: 
038143,000094: 37,3441           34736                           CA       PRIO20                                
038144,000095: 37,3442           05105                           TC       FINDVAC                               
038145,000096: 37,3443  E7,1513                                  EBANK=   DVCNTR                                
038146,000097: 37,3443           02200 66067                     2CADR    SERVICER                              #  SET UP SERVICER JOB
038147,000098: 
038148,000099: 37,3445           34743                           CA       BIT9                                  
038149,000100: 37,3446           00006                           EXTEND                                         
038150,000101: 37,3447           05011                           WOR      DSALMOUT                              #  TURN ON TEST CONNECTOR OUTBIT
038151,000102: 
038152,000103: 37,3450           30103                           CA       FLAGWRD7                              
038153,000104: 37,3451           74747                           MASK     AVEGFBIT                              
038154,000105: 37,3452           00006                           EXTEND                                         
038155,000106: 37,3453           13503                           BZF      AVEGOUT                               #  AVEGFLAG DOWN - SET UP FINAL EXIT
038156,000107: 
038157,000108: 37,3454           30102                           CA       FLAGWRD6                              
038158,000109: 37,3455           74744                           MASK     MUNFLBIT                              
038159,000110: 37,3456           00006                           EXTEND                                         
038160,000111: 37,3457           13501                           BZF      MAKEACCS                              #  MUNFLAG CLEAR - BYPASS LR AND DISP.
038161,000112: 
038162,000113: 37,3460           10755                           CCS      PHASE2                                
038163,000114: 37,3461           13501                           TCF      MAKEACCS                              #  PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
038164,000115: 
038165,000116: 37,3462           34757                           CAF      SEVEN                                 #  SET PIPCTR FOR 4X/SEC RATE.
038166,000117: 37,3463           55056                           TS       PIPCTR                                
038167,000118: 
038168,000119: 37,3464           40025                           CS       TIME1                                 #  SET TBASE2 .05 SECONDS IN THE PAST.
038169,000120: 37,3465           64756                           AD       FIVE                                  
038170,000121: 37,3466           64734                           AD       NEG1/2                                
038171,000122: 37,3467           64734                           AD       NEG1/2                                
038172,000123: 37,3470           57055                           XCH      TBASE2                                
038173,000124: 

Page 860

038175,000126: 37,3471           34361                           CAF      DEC17                                 #  2.21SPOT FOR R10,R11
038176,000127: 37,3472           54001                           TS       L                                     
038177,000128: 37,3473           40000                           COM                                            
038178,000129: 37,3474           52755                           DXCH     -PHASE2                               
038179,000130: 
038180,000131: 37,3475           36007                           CAF      OCT24                                 #  FIRST R10,R11 IN .200 SECONDS.
038181,000132: 37,3476           05203                           TC       WAITLIST                              
038182,000133: 37,3477  E7,1534                                  EBANK=   UNIT/R/                               
038183,000134: 37,3477           02102 42067                     2CADR    R10,R11                               
038184,000135: 
038185,000136: 37,3501           34751        MAKEACCS           CA       FOUR                                  
038186,000137: 37,3502           13422                           TCF      GOREADAX                              #  DO PHASE CHANGE AND RECALL READACCS
038187,000138: 
038188,000139: 
038189,000140: 37,3503           00006        AVEGOUT            EXTEND                                         
038190,000141: 37,3504           33522                           DCA      AVOUTCAD                              #  SET UP FINAL SERVICER EXIT
038191,000142: 37,3505           53253                           DXCH     AVGEXIT                               
038192,000143: 
038193,000144: 37,3506           34751                           CA       FOUR                                  #  SET 5.4 SPOT FOR REREADAC AND SERVICER
038194,000145: 37,3507           03511                           TC       GNUTFAZ5                              #  IF REREADAC IS CALLED, IT WILL EXIT
038195,000146: 37,3510           05261                           TC       TASKOVER                              #  END TASK WITHOUT CALLING READACCS
038196,000147: 
038197,000148: 
038198,000149: 37,3511           54001        GNUTFAZ5           TS       L                                     #  SAVE INPUT IN L
038199,000150: 37,3512           40025                           CS       TIME1                                 
038200,000151: 37,3513           55063                           TS       TBASE5                                #  SET TBASE5
038201,000152: 37,3514           13516                           TCF      +2                                    
038202,000153: 
038203,000154: 
038204,000155: 37,3515           54001        GNUFAZE5           TS       L                                     #  SAVE INPUT IN L
038205,000156: 37,3516           40001                           CS       L                                     #  -PHASE IN A, PHASE IN L
038206,000157: 37,3517           52763                           DXCH     -PHASE5                               #  SET -PHASE5,PHASE5
038207,000158: 37,3520           00002                           TC       Q                                     
038208,000159: 
038209,000160: 
038210,000161: 37,3521  E7,1513                                  EBANK=   DVCNTR                                
038211,000162: 37,3521           03661 64067  AVOUTCAD           2CADR    AVGEND                                
038212,000163: 
038213,000164: 37,3523           77527        ENDJBCAD           CADR     SERVEXIT   +2                         
038214,000165: 
038215,000166: 37,3524           37771        OCT37771           OCT      37771                                 
038216,000167: 
038217,000168: 33,2200                                           BANK     33                                    
038218,000169: 33,2000                                           SETLOC   SERVICES                              
038219,000170: 33,2000                                           BANK                                           
038220,000171: 
038221,000172: 33,2200                                           COUNT*   $$/SERV                               
038222,000173: 

Page 861

038224,000175:                                                                                                  #  *************************************   SERVICER   *************************************************************
038225,000176: 
038226,000177: 33,2200           05353        SERVICER           TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
038227,000178: 33,2201           16035                           OCT      16035                                 
038228,000179: 33,2202           20000                           OCT      20000                                 
038229,000180: 33,2203  E7,1513                                  EBANK=   DVCNTR                                
038230,000181: 33,2203           02211 66067                     2CADR    GETABVAL                              
038231,000182: 
038232,000183: 33,2205           37715                           CAF      PRIO31                                #  INITIALIZE 1/PIPADT IN CASE RESTART HAS
038233,000184: 33,2206           55075                           TS       1/PIPADT                              #  CAUSED LASTBIAS TO BE SKIPPED.
038234,000185: 
038235,000186: 
038236,000187: 33,2207           04616                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
038237,000188: 33,2210           15263                           CADR     1/PIPA                                
038238,000189: 
038239,000190: 33,2211           06036        GETABVAL           TC       INTPRET                               
038240,000191: 33,2212           51575                           VLOAD    ABVAL                                 
038241,000192: 33,2213           00325                                    DELV                                  
038242,000193: 33,2214           77776                           EXIT                                           
038243,000194: 33,2215           30154                           CA       MPAC                                  
038244,000195: 33,2216           55246                           TS       ABDELV                                #  ABDELV = CM/SEC*2(-14).
038245,000196: 33,2217           00006                           EXTEND                                         
038246,000197: 33,2220           72020                           MP       KPIP                                  
038247,000198: 33,2221           53512                           DXCH     ABDVCONV                              #  ABDVCONV = M/CS * 2(-5).
038248,000199: 33,2222           00006                           EXTEND                                         
038249,000200: 33,2223           31245                           DCA      MASS                                  
038250,000201: 33,2224           53567                           DXCH     MASS1                                 #  INITIALIZE MASS1 IN CASE WE SKIP MASSMON
038251,000202: 33,2225           40104        MASSMON            CS       FLAGWRD8                              #  ARE WE ON THE SURFACE?
038252,000203: 33,2226           74744                           MASK     SURFFBIT                              
038253,000204: 33,2227           00006                           EXTEND                                         
038254,000205: 33,2230           12251                           BZF      MOONSPOT                              #  YES:  BYPASS MASS MESS
038255,000206: 
038256,000207: 33,2231           30106                           CA       FLGWRD10                              #  NO:   WHICH VEX SHOULD BE USED?
038257,000208: 33,2232           74737                           MASK     APSFLBIT                              
038258,000209: 33,2233           10000                           CCS      A                                     
038259,000210: 33,2234           00006                           EXTEND                                         #  IF EXTEND IS EXECUTED, APSVEX --> A,
038260,000211: 33,2235           32001                           DCA      APSVEX                                #    OTHERWISE DPSVEX --> A
038261,000212: 33,2236           54002                           TS       Q                                     
038262,000213: 
038263,000214: 33,2237           00006                           EXTEND                                         
038264,000215: 33,2240           31512                           DCA      ABDVCONV                              
038265,000216: 33,2241           00006                           EXTEND                                         
038266,000217: 33,2242           10002        OCT10002           DV       Q                                     #  WHERE APPROPRIATE VEX RESIDES
038267,000218: 33,2243           00006                           EXTEND                                         
038268,000219: 33,2244           71244                           MP       MASS                                  
038269,000220: 33,2245           53567                           DXCH     MASS1                                 
038270,000221: 33,2246           00006                           EXTEND                                         
038271,000222: 33,2247           31245                           DCA      MASS                                  
038272,000223: 33,2250           21567                           DAS      MASS1                                 
038273,000224: 

Page 862

038275,000226: 33,2251           32021        MOONSPOT           CA       KPIP1                                 #  TP MPAC = ABDELV AT 2(14) CM/SEC
038276,000227: 33,2252           07306                           TC       SHORTMP                               #  MULTIPLY BY KPIP1 TO GET
038277,000228: 33,2253           52155                           DXCH     MPAC                                  #  ABDELV AT 2(7) M/CS
038278,000229: 33,2254           21506                           DAS      DVTOTAL                               #  UPDATE DVTOTAL FOR DISPLAY
038279,000230: 
038280,000231: 33,2255           37711                           CA       PRIO24                                #  PROTECT NBSM IN XNBNDX
038281,000232: 33,2256           05146                           TC       PRIOCHNG                              
038282,000233: 
038283,000234: 33,2257           02473                           TC       TMPTOSPT                              
038284,000235: 
038285,000236: 33,2260           04616                           TC       BANKCALL                              
038286,000237: 33,2261           47521                           CADR     QUICTRIG                              
038287,000238: 
038288,000239: 33,2262           06036                           TC       INTPRET                               
038289,000240: 33,2263           45160                           AXC,1    CALL                                  
038290,000241: 33,2264           02145                                    XNBPIP                                
038291,000242: 33,2265           31271                                    XNBNDX                                
038292,000243: 33,2266           77776                           EXIT                                           
038293,000244: 
038294,000245: 33,2267           34736                           CA       PRIO20                                #  RESTORE PRIO 20
038295,000246: 33,2270           05146                           TC       PRIOCHNG                              
038296,000247: 
038297,000248: 33,2271           06036                           TC       INTPRET                               
038298,000249: 33,2272           45014        AVERAGEG           BON      CALL                                  
038299,000250: 33,2273           03307                                    MUNFLAG                               
038300,000251: 33,2274           67064                                    RVBOTH                                
038301,000252: 33,2275           67030                                    CALCRVG                               
038302,000253: 33,2276           77776                           EXIT                                           
038303,000254: 33,2277           03535        GOSERV             TC       QUIKFAZ5                              
038304,000255: 
038305,000256: 33,2300           02456        COPYCYCL           TC       COPYCYC                               
038306,000257: 
038307,000258:                                                                                                  #                CA              ZERO                     A IS ZERO ON RETURN FROM COPYCYC
038308,000259: 33,2301           55160                           TS       PIPATMPX                              #  STILL UNDER INHINT
038309,000260: 33,2302           55161                           TS       PIPATMPY                              
038310,000261: 33,2303           55162                           TS       PIPATMPZ                              
038311,000262: 
038312,000263: 33,2304           44741                           CS       STEERBIT                              #  CLEAR STEERSW PRIOR TO DVMON.
038313,000264: 33,2305           70076                           MASK     FLAGWRD2                              
038314,000265: 33,2306           54076                           TS       FLAGWRD2                              
038315,000266: 
038316,000267: 33,2307           34745                           CAF      IDLEFBIT                              #  IS THE IDLE FLAG SET?
038317,000268: 33,2310           70103                           MASK     FLAGWRD7                              
038318,000269: 33,2311           10000                           CCS      A                                     
038319,000270: 33,2312           12345                           TCF      NODVMON1                              #  IDLEFLAG = 1, HENCE SET AUXFLAG TO 0.
038320,000271: 
038321,000272: 33,2313           40102                           CS       FLAGWRD6                              
038322,000273: 33,2314           74752                           MASK     AUXFLBIT                              
038323,000274: 33,2315           10000                           CCS      A                                     
038324,000275: 33,2316           12351                           TCF      NODVMON2                              #  AUXFLAG = 0, HENCE SET AUXFLAG TO 1.
038325,000276: 

Page 863

038327,000278: 
038328,000279: 33,2317           41251        DVMON              CS       DVTHRUSH                              
038329,000280: 33,2320           61246                           AD       ABDELV                                
038330,000281: 33,2321           00006                           EXTEND                                         
038331,000282: 33,2322           62355                           BZMF     LOTHRUST                              
038332,000283: 
038333,000284: 33,2323           40076                           CS       FLAGWRD2                              #  SET STEERSW.
038334,000285: 33,2324           74741                           MASK     STEERBIT                              
038335,000286: 33,2325           26076                           ADS      FLAGWRD2                              
038336,000287: 
038337,000288: 33,2326           34753        DVCNTSET           CAF      ONE                                   #  ALLOW TWO PASSES MAXIMUM NOW THAT
038338,000289: 33,2327           55513                           TS       DVCNTR                                #  THRUXT HAS BEEN DETECTED.
038339,000290: 
038340,000291: 33,2330           30106                           CA       FLGWRD10                              #  BRANCH IF APSFLAG IS SET.
038341,000292: 33,2331           74737                           MASK     APSFLBIT                              
038342,000293: 33,2332           10000                           CCS      A                                     
038343,000294: 33,2333           12400                           TCF      USEJETS                               
038344,000295: 
038345,000296: 33,2334           34743                           CA       BIT9                                  #  CHECK GIMBAL FAIL BIT
038346,000297: 33,2335           00006                           EXTEND                                         
038347,000298: 33,2336           02032                           RAND     CHAN32                                
038348,000299: 33,2337           00006                           EXTEND                                         
038349,000300: 33,2340           12400                           BZF      USEJETS                               
038350,000301: 
038351,000302: 33,2341           44736        USEGTS             CS       USEQRJTS                              
038352,000303: 33,2342           70111                           MASK     DAPBOOLS                              
038353,000304: 33,2343           54111                           TS       DAPBOOLS                              
038354,000305: 33,2344           12403                           TCF      SERVOUT                               
038355,000306: 
038356,000307: 33,2345           44752        NODVMON1           CS       AUXFLBIT                              #  SET AUXFLAG TO 0.
038357,000308: 33,2346           70102                           MASK     FLAGWRD6                              
038358,000309: 33,2347           54102                           TS       FLAGWRD6                              
038359,000310: 33,2350           12400                           TCF      USEJETS                               
038360,000311: 33,2351           40102        NODVMON2           CS       FLAGWRD6                              #  SET AUXFLAG TO 1.
038361,000312: 33,2352           74752                           MASK     AUXFLBIT                              
038362,000313: 33,2353           26102                           ADS      FLAGWRD6                              
038363,000314: 33,2354           12400                           TCF      USEJETS                               
038364,000315: 
038365,000316: 33,2355           03535        LOTHRUST           TC       QUIKFAZ5                              
038366,000317: 33,2356           11513                           CCS      DVCNTR                                
038367,000318: 33,2357           12371                           TCF      DECCNTR                               
038368,000319: 
038369,000320: 33,2360           10761                           CCS      PHASE4                                #  COMFAIL JOB ACTIVE?
038370,000321: 33,2361           12403                           TCF      SERVOUT                               #  YES   WON'T NEED ANOTHER.
038371,000322: 
038372,000323: 33,2362           05353                           TC       PHASCHNG                              #  4.37SPOT FOR COMFAIL.
038373,000324: 33,2363           00374                           OCT      00374                                 
038374,000325: 
038375,000326: 33,2364           37712                           CAF      PRIO25                                
038376,000327: 33,2365           05072                           TC       NOVAC                                 
038377,000328: 33,2366  E7,1453                                  EBANK=   WHICH                                 
038378,000329: 

Page 864

038380,000331: 33,2366           02574 74067                     2CADR    COMFAIL                               
038381,000332: 33,2370           12403                           TCF      SERVOUT                               
038382,000333: 
038383,000334: 33,2371           55566        DECCNTR            TS       DVCNTR1                               
038384,000335: 33,2372           03535                           TC       QUIKFAZ5                              
038385,000336: 33,2373           31566                           CA       DVCNTR1                               
038386,000337: 33,2374           55513                           TS       DVCNTR                                
038387,000338: 33,2375           00004                           INHINT                                         
038388,000339: 33,2376           04674                           TC       IBNKCALL                              #  IF THRUST IS LOW, NO STEERING IS DONE
038389,000340: 33,2377           40165                           CADR     STOPRATE                              #  AND THE DESIRED RATES ARE SET TO ZERO.
038390,000341: 33,2400           40111        USEJETS            CS       DAPBOOLS                              
038391,000342: 33,2401           74736                           MASK     USEQRJTS                              
038392,000343: 33,2402           26111                           ADS      DAPBOOLS                              
038393,000344: 33,2403           00003        SERVOUT            RELINT                                         
038394,000345: 33,2404           04616                           TC       BANKCALL                              
038395,000346: 33,2405           40457                           CADR     1/ACCS                                
038396,000347: 
038397,000348: 33,2406           35016                           CAF      EBANK7                                #  RESTORE EBANK AFTER 1/ACCS.
038398,000349: 33,2407           54003                           TS       EBANK                                 
038399,000350: 33,2410           30167                           CA       PRIORITY                              
038400,000351: 33,2411           75004                           MASK     LOW9                                  
038401,000352: 33,2412           54166                           TS       PUSHLOC                               
038402,000353: 33,2413           22007                           ZL                                             
038403,000354: 33,2414           52121                           DXCH     FIXLOC                                #  FIXLOC AND OVFIND
038404,000355: 
038405,000356: 33,2415           03535                           TC       QUIKFAZ5                              
038406,000357: 33,2416           00006                           EXTEND                                         #  EXIT TO SELECTED ROUTINE WHETHER THERE
038407,000358: 33,2417           31253                           DCA      AVGEXIT                               #  IS THRUST OR NOT.  THE STATE OF STEERSW
038408,000359: 33,2420           52006                           DXCH     Z                                     #  WILL CONVEY THIS INFORMATION.
038409,000360: 
038410,000361: 32,3661                                           BANK     32                                    
038411,000362: 32,2000                                           SETLOC   SERV2                                 
038412,000363: 32,2000                                           BANK                                           
038413,000364: 32,3661                                           COUNT*   $$/SERV                               
038414,000365: 
038415,000366: 32,3661           31235        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
038416,000367: 32,3662           55075                           TS       1/PIPADT                              #  SET UP FREE FALL GYRO COMPENSATION.
038417,000368: 
038418,000369: 32,3663           05504                           TC       UPFLAG                                #  SET DRIFT FLAG.
038419,000370: 32,3664           00036                           ADRES    DRIFTFLG                              
038420,000371: 
038421,000372: 32,3665           04616                           TC       BANKCALL                              
038422,000373: 32,3666           17263                           CADR     PIPFREE                               
038423,000374: 
038424,000375: 32,3667           44743                           CS       BIT9                                  
038425,000376: 32,3670           00006                           EXTEND                                         
038426,000377: 32,3671           03011                           WAND     DSALMOUT                              
038427,000378: 
038428,000379: 32,3672           05327                           TC       2PHSCHNG                              
038429,000380: 

Page 865

038431,000382: 32,3673           00005                           OCT      5                                     #  GROUP 5 OFF
038432,000383: 32,3674           05022                           OCT      05022                                 #  GROUP 2 ON
038433,000384: 32,3675           20000                           OCT      20000                                 
038434,000385: 
038435,000386: 32,3676           06036                           TC       INTPRET                               
038436,000387: 32,3677           43014                           SET      CLEAR                                 
038437,000388: 32,3700           01464                                    NOR29FLG                              #  SHUT OFF R29 WHEN SERVICER ENDS.
038438,000389: 32,3701           03664                                    SWANDISP                              #  SHUT OFF R10 WHEN SERVICER ENDS.
038439,000390: 32,3702           45014                           CLEAR    CALL                                  #  RESET MUNFLAG.
038440,000391: 32,3703           03267                                    MUNFLAG                               
038441,000392: 32,3704           27513                                    AVETOMID                              
038442,000393: 32,3705           77414                           CLEAR    EXIT                                  
038443,000394: 32,3706           03671                                    V37FLAG                               
038444,000395: 32,3707           31260        AVERTRN            CA       OUTROUTE                              #  RETURN TO DESIRED POINT.
038445,000396: 32,3710           04640                           TC       BANKJUMP                              
038446,000397: 
038447,000398: 32,3711  32,3707               OUTGOAVE           =        AVERTRN                               
038448,000399: 
038449,000400: 32,3711  E7,1566               DVCNTR1            =        MASS1                                 
038450,000401: 

Page 866

038452,000403: 32,3711           00006        SERVIDLE           EXTEND                                         #  DISCONNECT SERVICER FROM ALL GUIDANCE
038453,000404: 32,3712           33747                           DCA      SVEXTADR                              
038454,000405: 32,3713           53253                           DXCH     AVGEXIT                               
038455,000406: 
038456,000407: 32,3714           40103                           CS       FLAGWRD7                              #  DISCONNECT THE DELTA-V MONITOR
038457,000408: 32,3715           74745                           MASK     IDLEFBIT                              
038458,000409: 32,3716           26103                           ADS      FLAGWRD7                              
038459,000410: 
038460,000411: 32,3717           34735                           CAF      LRBYBIT                               #  TERMINATE R12 IF RUNNING.
038461,000412: 32,3720           54107                           TS       FLGWRD11                              
038462,000413: 
038463,000414: 32,3721           00006                           EXTEND                                         
038464,000415: 32,3722           34755                           DCA      NEG0                                  
038465,000416: 32,3723           52753                           DXCH     -PHASE1                               
038466,000417: 
038467,000418: 32,3724           30102                           CA       FLAGWRD6                              #  DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
038468,000419: 32,3725           74744                           MASK     MUNFLBIT                              
038469,000420: 32,3726           10000                           CCS      A                                     
038470,000421: 32,3727           13733                           TCF      +4                                    
038471,000422: 
038472,000423: 32,3730           00006                           EXTEND                                         
038473,000424: 32,3731           34755                           DCA      NEG0                                  
038474,000425: 32,3732           52755                           DXCH     -PHASE2                               
038475,000426: 
038476,000427: 32,3733           00006                 +4        EXTEND                                         
038477,000428: 32,3734           34755                           DCA      NEG0                                  
038478,000429: 32,3735           52757                           DXCH     -PHASE3                               
038479,000430: 
038480,000431: 32,3736           00006                           EXTEND                                         
038481,000432: 32,3737           34755                           DCA      NEG0                                  
038482,000433: 32,3740           52765                           DXCH     -PHASE6                               
038483,000434: 
038484,000435: 32,3741           34764                           CAF      OCT33                                 #  4.33SPOT FOR GOPOOFIX
038485,000436: 32,3742           54001                           TS       L                                     
038486,000437: 32,3743           40000                           COM                                            
038487,000438: 32,3744           52761                           DXCH     -PHASE4                               
038488,000439: 
038489,000440: 32,3745           15644                           TCF      WHIMPER                               #  PERFORM A SOFTWARE RESTART AND PROCEED
038490,000441:                                                                                                  #  TO GOTOPOOH WHILE SERVICER CONTINUES TO
038491,000442:                                                                                                  #  RUN, ALBEIT IN A GROUND STATE WHERE
038492,000443:                                                                                                  #  ONLY STATE-VECTOR DEPENDENT FUNCTIONS
038493,000444:                                                                                                  #  ARE MAINTAINED.
038494,000445: 
038495,000446: 32,3746  E7,1513                                  EBANK=   DVCNTR                                
038496,000447: 32,3746           03525 76067  SVEXTADR           2CADR    SERVEXIT                              
038497,000448: 32,3750                                           BANK     32                                    
038498,000449: 37,2000                                           SETLOC   SERV1                                 
038499,000450: 

Page 867

038501,000452: 37,2000                                           BANK                                           
038502,000453: 37,3525                                           COUNT*   $$/SERV                               
038503,000454: 
038504,000455: 37,3525           36244        SERVEXIT           CA       THREE                                 
038505,000456: 37,3526           03515                           TC       GNUFAZE5                              
038506,000457: 
038507,000458: 37,3527           15155                 +2        TCF      ENDOFJOB                              
038508,000459: 
038509,000460: 23,2413                                           BANK     23                                    
038510,000461: 33,2000                                           SETLOC   SERVICES                              
038511,000462: 33,2000                                           BANK                                           
038512,000463: 
038513,000464: 33,2421                                           COUNT*   $$/SERV                               
038514,000465: 

Page 868

038516,000467:                                                                                                  #  NORMLIZE AND COPYCYCL
038517,000468: 
038518,000469: 33,2421           06036        NORMLIZE           TC       INTPRET                               
038519,000470: 33,2422           43175                           VLOAD    BOFF                                  
038520,000471: 33,2423           03543                                    RN1                                   
038521,000472: 33,2424           03347                                    MUNFLAG                               
038522,000473: 33,2425           66450                                    NORMLIZ1                              
038523,000474: 33,2426           64252                           VSL6     MXV                                   
038524,000475: 33,2427           01734                                    REFSMMAT                              
038525,000476: 33,2430           37517                           STCALL   R                                     
038526,000477: 33,2431           67162                                    MUNGRAV                               
038527,000478: 33,2432           76575                           VLOAD    VSL1                                  
038528,000479: 33,2433           03551                                    VN1                                   
038529,000480: 33,2434           77721                           MXV                                            
038530,000481: 33,2435           01734                                    REFSMMAT                              
038531,000482: 33,2436           27525                           STOVL    V                                     
038532,000483: 33,2437           01726                                    V(CSM)                                
038533,000484: 33,2440           53435                           VXV      UNIT                                  
038534,000485: 33,2441           01720                                    R(CSM)                                
038535,000486: 33,2442           03716                           STORE    UHYP                                  
038536,000487: 33,2443           77776        ASCSPOT            EXIT                                           
038537,000488: 33,2444           00006                           EXTEND                                         #  MAKE SURE GOUP 2 IS OFF.
038538,000489: 33,2445           34755                           DCA      NEG0                                  
038539,000490: 33,2446           52755                           DXCH     -PHASE2                               
038540,000491: 
038541,000492: 33,2447           12453                           TCF      NORMLIZ2                              
038542,000493: 
038543,000494: 33,2450           77624        NORMLIZ1           CALL                                           
038544,000495: 33,2451           66762                                    CALCGRAV                              
038545,000496: 33,2452           77776                           EXIT                                           
038546,000497: 
038547,000498: 33,2453           32472        NORMLIZ2           CA       EIGHTEEN                              
038548,000499: 33,2454           02457                           TC       COPYCYC    +1                         #  DO NOT COPY MASS IN NORMLIZE
038549,000500: 33,2455           05155                           TC       ENDOFJOB                              
038550,000501: 
038551,000502: 
038552,000503: 33,2456           36007        COPYCYC            CA       OCT24                                 #  DEC 20
038553,000504: 33,2457           00004                 +1        INHINT                                         
038554,000505: 33,2460           77746                 +2        MASK     NEG1                                  #  REDUCE BY 1 IF ODD
038555,000506: 33,2461           54061                           TS       ITEMP1                                
038556,000507: 33,2462           00006                           EXTEND                                         
038557,000508: 33,2463           50061                           INDEX    ITEMP1                                
038558,000509: 33,2464           31543                           DCA      RN1                                   
038559,000510: 33,2465           50061                           INDEX    ITEMP1                                
038560,000511: 33,2466           53221                           DXCH     RN                                    
038561,000512: 33,2467           10061                           CCS      ITEMP1                                
038562,000513: 33,2470           12460                           TCF      COPYCYC    +2                         
038563,000514: 33,2471           00002                           TC       Q                                     #  RETURN UNDER INHINT
038564,000515: 

Page 869

038566,000517: 
038567,000518: 33,2472           00022        EIGHTEEN           DEC      18         B-14                       
038568,000519: 

Page 870

038570,000521:                                                                                                  #  ******************* PIPA READER ********************
038571,000522: 
038572,000523:                                                                                                  #                  MOD NO. 00  BY D. LICKLY  DEC.9 1966
038573,000524: 
038574,000525: 
038575,000526:                                                                                                  #  FUNCTIONAL DESCRIPTION
038576,000527: 
038577,000528:                                                                                                  #     SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
038578,000529:                                                                                                  #     PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
038579,000530:                                                                                                  #     RESTARTS BEGIN AT REREADAC.
038580,000531: 
038581,000532: 
038582,000533:                                                                                                  #     AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
038583,000534:                                                                                                  #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
038584,000535:                                                                                                  #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
038585,000536:                                                                                                  #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
038586,000537: 
038587,000538:                                                                                                  #  CALLING SEQUENCE AND EXIT
038588,000539: 
038589,000540:                                                                                                  #     CALL VIA TC, ISWCALL, ETC.
038590,000541: 
038591,000542:                                                                                                  #     EXIT IS VIA Q.
038592,000543: 
038593,000544: 
038594,000545: 
038595,000546: 
038596,000547:                                                                                                  #  INPUT
038597,000548: 
038598,000549:                                                                                                  #     INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
038599,000550: 
038600,000551: 
038601,000552:                                                                                                  #  OUTPUT
038602,000553: 
038603,000554:                                                                                                  #     HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
038604,000555:                                                                                                  #     PIPTIME CONTAINS TIME OF PIPA READING.
038605,000556: 
038606,000557: 
038607,000558:                                                                                                  #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
038608,000559: 
038609,000560:                                                                                                  #           TEMX   TEMY   TEMZ   PIPAGE
038610,000561: 
038611,000562: 37,3530                                           BANK     37                                    
038612,000563: 37,2000                                           SETLOC   SERV1                                 
038613,000564: 37,2000                                           BANK                                           
038614,000565: 
038615,000566: 37,3530                                           COUNT*   $$/SERV                               
038616,000567: 
038617,000568: 37,3530           00006        PIPASR             EXTEND                                         
038618,000569: 

Page 871

038620,000571: 37,3531           30025                           DCA      TIME2                                 
038621,000572: 37,3532           53557                           DXCH     PIPTIME1                              #  CURRENT TIME POSITIVE VALUE
038622,000573: 37,3533           44755                 +3        CS       ZERO                                  #  INITIALIZE THESE AT NEG. ZERO.
038623,000574: 37,3534           55254                           TS       TEMX                                  
038624,000575: 37,3535           55255                           TS       TEMY                                  
038625,000576: 37,3536           55256                           TS       TEMZ                                  
038626,000577: 
038627,000578: 37,3537           34755                           CA       ZERO                                  
038628,000579: 37,3540           54330                           TS       DELVZ                                 #  OTHER DELVS OK INCLUDING LOW ORDER
038629,000580: 37,3541           54326                           TS       DELVY                                 
038630,000581: 37,3542           55257                           TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
038631,000582: 
038632,000583: 37,3543           00006        REPIP1             EXTEND                                         
038633,000584: 37,3544           40040                           DCS      PIPAX                                 #  X AND Y PIPS READ
038634,000585: 37,3545           53255                           DXCH     TEMX                                  
038635,000586: 37,3546           52040                           DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
038636,000587: 37,3547           54324                           TS       DELVX                                 
038637,000588: 37,3550           22326                           LXCH     DELVY                                 
038638,000589: 
038639,000590: 37,3551           40041        REPIP3             CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
038640,000591: 37,3552           57256                           XCH      TEMZ                                  
038641,000592: 37,3553           56041                           XCH      PIPAZ                                 
038642,000593: 37,3554           54330        DODELVZ            TS       DELVZ                                 
038643,000594: 
038644,000595: 37,3555           00006        REPIP4             EXTEND                                         #  COMPUTE GUIDANCE PERIOD
038645,000596: 37,3556           31557                           DCA      PIPTIME1                              
038646,000597: 37,3557           53250                           DXCH     PGUIDE                                
038647,000598: 37,3560           00006                           EXTEND                                         
038648,000599: 37,3561           41235                           DCS      PIPTIME                               
038649,000600: 37,3562           21250                           DAS      PGUIDE                                
038650,000601: 
038651,000602: 37,3563           30032                           CA       CDUX                                  #  READ CDUS INTO HIGH ORDER CDUTEMPS
038652,000603: 37,3564           55155                           TS       CDUTEMPX                              
038653,000604: 37,3565           30033                           CA       CDUY                                  
038654,000605: 37,3566           55156                           TS       CDUTEMPY                              
038655,000606: 37,3567           30034                           CA       CDUZ                                  
038656,000607: 37,3570           55157                           TS       CDUTEMPZ                              
038657,000608: 37,3571           30324                           CA       DELVX                                 
038658,000609: 37,3572           55160                           TS       PIPATMPX                              
038659,000610: 37,3573           30326                           CA       DELVY                                 
038660,000611: 37,3574           55161                           TS       PIPATMPY                              
038661,000612: 37,3575           30330                           CA       DELVZ                                 
038662,000613: 37,3576           55162                           TS       PIPATMPZ                              
038663,000614: 
038664,000615: 37,3577           00002                           TC       Q                                     
038665,000616: 
038666,000617: 
038667,000618: 37,3600           11257        REREADAC           CCS      PIPAGE                                
038668,000619: 37,3601           13425                           TCF      READACCS                              #  PIP READING NOT STARTED. GO TO BEGINNING
038669,000620: 

Page 872

038671,000622: 
038672,000623: 37,3602           33640                           CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
038673,000624: 37,3603           54002                           TS       Q                                     
038674,000625: 
038675,000626: 37,3604           10330                           CCS      DELVZ                                 
038676,000627: 37,3605           13555                           TCF      REPIP4                                #  Z DONE, GO DO CDUS
038677,000628: 37,3606           13611                           TCF      +3                                    #  Z NOT DONE, CHECK Y.
038678,000629: 37,3607           13555                           TCF      REPIP4                                
038679,000630: 37,3610           13555                           TCF      REPIP4                                
038680,000631: 
038681,000632: 37,3611           22007                           ZL                                             
038682,000633: 37,3612           10326                           CCS      DELVY                                 
038683,000634: 37,3613           13616                           TCF      +3                                    
038684,000635: 37,3614           13625                           TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
038685,000636: 37,3615           13616                           TCF      +1                                    
038686,000637: 37,3616           22041                           LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
038687,000638: 
038688,000639: 37,3617           11256                           CCS      TEMZ                                  
038689,000640: 37,3620           41256                           CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
038690,000641: 37,3621           13554                           TCF      DODELVZ                               
038691,000642: 37,3622           13620                           TCF      -2                                    
038692,000643: 37,3623           22330                           LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
038693,000644: 37,3624           13555                           TCF      REPIP4                                
038694,000645: 
038695,000646: 37,3625           11254        CHKTEMX            CCS      TEMX                                  #  HAS THIS CHANGED
038696,000647: 37,3626           41254                           CS       TEMX                                  #  YES
038697,000648: 37,3627           13632                           TCF      +3                                    #  YES
038698,000649: 37,3630           13626                           TCF      -2                                    #  YES
038699,000650: 37,3631           13543                           TCF      REPIP1                                #  NO
038700,000651: 37,3632           54324                           TS       DELVX                                 
038701,000652: 
038702,000653: 37,3633           41255                           CS       TEMY                                  
038703,000654: 37,3634           54326                           TS       DELVY                                 
038704,000655: 
038705,000656: 37,3635           44755                           CS       ZERO                                  #  ZERO X AND Y PIPS
038706,000657: 37,3636           52040                           DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
038707,000658: 
038708,000659: 37,3637           13551                           TCF      REPIP3                                
038709,000660: 
038710,000661: 37,3640           03435        DONEADR            GENADR   PIPSDONE                              
038711,000662: 

Page 873

038713,000664: 33,2473                                           BANK     33                                    
038714,000665: 33,2000                                           SETLOC   SERVICES                              
038715,000666: 33,2000                                           BANK                                           
038716,000667: 
038717,000668: 33,2473                                           COUNT*   $$/SERV                               
038718,000669: 
038719,000670: 33,2473           31156        TMPTOSPT           CA       CDUTEMPY                              #  THIS SUBROUTINE, CALLED BY AN RTB FROM
038720,000671: 33,2474           54766                           TS       CDUSPOTY                              #  INTERPRETIVE, LOADS THE CDUS CORRESPON-
038721,000672: 33,2475           31157                           CA       CDUTEMPZ                              #  DING TO PIPTIME INTO THE CDUSPOT VECTOR.
038722,000673: 33,2476           54770                           TS       CDUSPOTZ                              
038723,000674: 33,2477           31155                           CA       CDUTEMPX                              
038724,000675: 33,2500           54772                           TS       CDUSPOTX                              
038725,000676: 33,2501           00002                           TC       Q                                     
038726,000677: 
038727,000678:                                                                                                  #  LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING
038728,000679:                                                                                                  #  PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT.  THIS
038729,000680:                                                                                                  #  TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE
038730,000681:                                                                                                  #  LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT
038731,000682:                                                                                                  #  50 MS PRIOR TO THE NEXT READACCS TASK.
038732,000683: 
038733,000684: 21,2314                                           BANK     21                                    
038734,000685: 21,2000                                           SETLOC   R10                                   
038735,000686: 21,2000                                           BANK                                           
038736,000687: 
038737,000688: 21,2314                                           COUNT*   $$/SERV                               
038738,000689: 
038739,000690: 21,2314           40107        LRHTASK            CS       FLGWRD11                              
038740,000691: 21,2315           74735                           MASK     LRBYBIT                               
038741,000692: 21,2316           00006                           EXTEND                                         
038742,000693: 21,2317           12334                           BZF      GRP2OFF                               #  LR BYPASS SET - BYPASS ALL LR READING.
038743,000694: 
038744,000695: 21,2320           34746                           CA       READLBIT                              
038745,000696: 21,2321           70107                           MASK     FLGWRD11                              #  IS READLR FLAG SET?
038746,000697: 21,2322           00006                           EXTEND                                         
038747,000698: 21,2323           12334                           BZF      GRP2OFF                               #  NO.  BYPASS LR READ.
038748,000699: 
038749,000700: 21,2324           40107                           CS       FLGWRD11                              
038750,000701: 21,2325           74742                           MASK     NOLRRBIT                              #  IS LR READ INHIBITED?
038751,000702: 21,2326           00006                           EXTEND                                         
038752,000703: 21,2327           12334                           BZF      GRP2OFF                               #  YES.  BYPASS LR READ.
038753,000704: 
038754,000705: 21,2330           37717                           CA       PRIO32                                #  LR READ OK   SET JOB TO DO IT
038755,000706: 21,2331           05072                           TC       NOVAC                                 #  ABOUT 50 MS PRIOR TO PIPA READ
038756,000707: 21,2332  E7,1652                                  EBANK=   HMEAS                                 
038757,000708: 21,2332           03717 70067                     2CADR    LRHJOB                                
038758,000709: 21,2334           00006        GRP2OFF            EXTEND                                         
038759,000710: 21,2335           34755                           DCA      NEG0                                  
038760,000711: 21,2336           52755                           DXCH     -PHASE2                               
038761,000712: 21,2337           12115                           TCF      R10,R11A                              
038762,000713: 

Page 874

038764,000715: 
038765,000716: 33,2502                                           BANK     33                                    
038766,000717: 33,2000                                           SETLOC   SERVICES                              
038767,000718: 33,2000                                           BANK                                           
038768,000719: 
038769,000720: 33,2502                                           COUNT*   $$/SERV                               
038770,000721: 
038771,000722:                                                                                                  #  HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
038772,000723:                                                                                                  #  DESCENT PHASE.  HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
038773,000724:                                                                                                  #  FLAG (BIT10) IN LRSTAT.  THE HIGATJOB IS SET UP TO REPOSITION THE LR
038774,000725:                                                                                                  #  ANTENNA FROM POSITION 1 TO POSITION 2.  IF THE REPOSITIONING IS
038775,000726:                                                                                                  #  SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
038776,000727:                                                                                                  #  ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
038777,000728: 
038778,000729: 33,2502           00004        HIGATASK           INHINT                                         
038779,000730: 33,2503           45015                           CS       PRIO3                                 #  SET HIGATE AND LR INHIBIT FLAGS
038780,000731: 33,2504           70107                           MASK     FLGWRD11                              
038781,000732: 33,2505           65015                           AD       PRIO3                                 
038782,000733: 33,2506           54107                           TS       FLGWRD11                              
038783,000734: 33,2507           37717                           CAF      PRIO32                                
038784,000735: 33,2510           05105                           TC       FINDVAC                               #  SET LR POSITIONING JOB (POS2)
038785,000736: 33,2511  E7,1652                                  EBANK=   HMEAS                                 
038786,000737: 33,2511           03653 66067                     2CADR    HIGATJOB                              
038787,000738: 33,2513           12573                           TCF      CONTSERV                              #  CONTINUE SERVICER
038788,000739: 

Page 875

038790,000741:                                                                                                  #    MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
038791,000742: 
038792,000743: 33,2514           77776        MUNRETRN           EXIT                                           
038793,000744: 
038794,000745: 33,2515           40107                           CS       FLGWRD11                              
038795,000746: 33,2516           74735                           MASK     LRBYBIT                               
038796,000747: 33,2517           00006                           EXTEND                                         
038797,000748: 33,2520           12601                           BZF      COPYCYC1                              #  BYPASS LR LOGIC IF BIT15 IS SET.
038798,000749: 
038799,000750: 33,2521           34746                           CA       READLBIT                              #  SEE IF ALT < 35000 FT LAST CYCLE
038800,000751: 33,2522           70107                           MASK     FLGWRD11                              
038801,000752: 33,2523           00006                           EXTEND                                         
038802,000753: 33,2524           12753                           BZF      35KCHK                                #  ALT WAS > 35000 FT LAST CYCLE   CHK NOW
038803,000754: 
038804,000755: 33,2525           34743                           CAF      XORFLBIT                              #  WERE WE BELOW 30000 FT LAST PASS?
038805,000756: 33,2526           70107                           MASK     FLGWRD11                              
038806,000757: 33,2527           00006                           EXTEND                                         
038807,000758: 33,2530           12742                           BZF      XORCHK                                #  NO - TEST THIS PASS
038808,000759: 
038809,000760: 33,2531           34741        HITEST             CAF      PSTHIBIT                              #  CHECK FOR HIGATE
038810,000761: 33,2532           70107                           MASK     FLGWRD11                              
038811,000762: 33,2533           00006                           EXTEND                                         
038812,000763: 33,2534           12550                           BZF      HIGATCHK                              #  NOT AT HIGATE LAST CYCLE-CHK THIS CYCLE
038813,000764: 
038814,000765: 33,2535           34745        POS2CHK            CAF      BIT7                                  #  VERIFY LR IN POS2
038815,000766: 33,2536           00006                           EXTEND                                         
038816,000767: 33,2537           02033                           RAND     CHAN33                                
038817,000768: 33,2540           00006                           EXTEND                                         
038818,000769: 33,2541           13205                           BZF      UPDATCHK                              #  IT IS-CHECK FOR LR UPDATE
038819,000770: 33,2542           34737                           CAF      BIT13                                 #  NOT IN POS2-MAYBE REPOSITIONING
038820,000771: 33,2543           00006                           EXTEND                                         
038821,000772: 33,2544           02012                           RAND     CHAN12                                
038822,000773: 33,2545           00006                           EXTEND                                         
038823,000774: 33,2546           12571                           BZF      LRPOSALM                              #  LR NOT IN POS2 OR REPOSITIONING-BAD
038824,000775: 33,2547           12573                           TCF      CONTSERV                              #  LR BEING REPOSITIONED-CONTINUE SERV
038825,000776: 
038826,000777: 33,2550           31640        HIGATCHK           CA       TTF/8                                 #  IS TTF > CRITERION?   (TTF IS NEGATIVE)
038827,000778: 33,2551           61427                           AD       RPCRTIME                              
038828,000779: 33,2552           00006                           EXTEND                                         
038829,000780: 33,2553           62564                           BZMF     POS1CHK                               #  NO
038830,000781: 
038831,000782: 33,2554           34741                           CA       EBANK4                                #  MUST SWITCH EBANKS
038832,000783: 33,2555           56003                           XCH      EBANK                                 
038833,000784: 33,2556           54001                           TS       L                                     #  SAVE IN L
038834,000785: 
038835,000786: 33,2557  E4,1545                                  EBANK=   XNBPIP                                
038836,000787: 33,2557           41545                           CS       XNBPIP                                #  UXBXP IN GSOP CH5
038837,000788: 33,2560  E7,1513                                  EBANK=   DVCNTR                                
038838,000789: 33,2560           22003                           LXCH     EBANK                                 #  RESTORE EBANK
038839,000790: 33,2561           61430                           AD       RPCRTQSW                              #  QSW - UXBXP
038840,000791: 

Page 876

038842,000793: 
038843,000794: 33,2562           00006                           EXTEND                                         
038844,000795: 33,2563           62502                           BZMF     HIGATASK                              #  IF UXBXP > QSW, THEN REPOSITION
038845,000796: 
038846,000797: 33,2564           34746        POS1CHK            CAF      BIT6                                  #  HIGATE NOT IN SIGHT-DO POS1 CHK
038847,000798: 33,2565           00006                           EXTEND                                         
038848,000799: 33,2566           02033                           RAND     33                                    
038849,000800: 33,2567           00006                           EXTEND                                         
038850,000801: 33,2570           13205                           BZF      UPDATCHK                              #  LR IN POS1-CHECK FOR LR UPDATE
038851,000802: 
038852,000803: 33,2571           05567        LRPOSALM           TC       ALARM                                 #  LR NOT IN PROPER POS-ALARM-BYPASS UPDATE
038853,000804: 33,2572           00511                           OCT      511                                   #  AND CONTINUE SERVICER
038854,000805: 33,2573           00004        CONTSERV           INHINT                                         
038855,000806: 33,2574           43204                           CS       BITS4-7                               
038856,000807: 33,2575           70107                           MASK     FLGWRD11                              #  CLEAR LR MEASUREMENT MADE DISCRETES.
038857,000808: 33,2576           54107                           TS       FLGWRD11                              
038858,000809: 
038859,000810: 33,2577           04674                           TC       IBNKCALL                              #  SET LR LITES PROPERLY
038860,000811: 33,2600           53607                           CADR     R12LITES                              
038861,000812: 

Page 877

038863,000814: 33,2601           03535        COPYCYC1           TC       QUIKFAZ5                              
038864,000815: 
038865,000816: 33,2602           30077        R29?               CA       FLAGWRD3                              
038866,000817: 33,2603           75014                           MASK     NR29&RDR                              
038867,000818: 33,2604           10000                           CCS      A                                     #  IS NOR29FLG OR READRFLG SET?
038868,000819: 33,2605           12617                           TCF      R29NODES                              #  YES, SO DON'T DESIGNATE.
038869,000820: 
038870,000821: 33,2606           30110                           CA       RADMODES                              #  NO, SO R29 IS CALLED FOR.
038871,000822: 33,2607           72242                           MASK     OCT10002                              #  IS THE RR NOT ZEROING ITS CDUS, AND
038872,000823: 33,2610           10000                           CCS      A                                     #  IS THE RENDEZVOUS RADAR IN AUTO MODE?
038873,000824: 33,2611           12617                           TCF      R29NODES                              #  NO, SO DON'T DESIGNATE.
038874,000825: 
038875,000826: 33,2612           30110                           CA       RADMODES                              
038876,000827: 33,2613           77707                           MASK     PRIO22                                
038877,000828: 33,2614           10000                           CCS      A                                     #  IS RR REPOSITIONING OR REMODING?
038878,000829: 33,2615           12623                           TCF      NOR29NOW                              #  YES; COME BACK IN 2 SECONDS & TRY AGAIN.
038879,000830: 
038880,000831: 33,2616           12045                           TCF      R29                                   
038881,000832: 
038882,000833: 33,2617           00004        R29NODES           INHINT                                         #  R29 NOT ALLOWED THIS CYCLE.
038883,000834: 33,2620           44742                           CS       DESIGBIT                              #  SHOW THAT DESIGNATION IS OFF.
038884,000835: 33,2621           70110                           MASK     RADMODES                              
038885,000836: 33,2622           54110                           TS       RADMODES                              
038886,000837: 
038887,000838: 33,2623           06036        NOR29NOW           TC       INTPRET                               #  INTPRET DOES A RELINT.
038888,000839: 33,2624           51575                           VLOAD    ABVAL                                 #  MPAC = ABVAL( NEW SM. POSITION VECTOR)
038889,000840: 33,2625           03571                                    R1S                                   
038890,000841: 33,2626           45206                           PUSH     DSU                                   #                                      (2)
038891,000842: 33,2627           02337                                    /LAND/                                
038892,000843: 33,2630           03533                           STORE    HCALC                                 #  NEW HCALC*2(24)M.
038893,000844: 33,2631           47075                           DMPR     RTB                                   
038894,000845: 33,2632           26026                                    ALTCONV                               
038895,000846: 33,2633           21516                                    SGNAGREE                              
038896,000847: 33,2634           27740                           STOVL    ALTBITS                               #  ALTITUDE FOR R10 IN BIT UNITS.
038897,000848: 33,2635           03535                                    UNIT/R/                               
038898,000849: 33,2636           76435                           VXV      VSL1                                  
038899,000850: 33,2637           03716                                    UHYP                                  
038900,000851: 33,2640           27724                           STOVL    UHZP                                  #  DOWNRANGE HALF-UNIT VECTOR FOR R10.
038901,000852: 33,2641           03571                                    R1S                                   
038902,000853: 33,2642           60505                           VXM      VSR4                                  
038903,000854: 33,2643           01734                                    REFSMMAT                              
038904,000855: 33,2644           27543                           STOVL    RN1                                   #  TEMP. REF. POSITION VECTOR*2(29)M.
038905,000856: 33,2645           03577                                    V1S                                   
038906,000857: 33,2646           76505                           VXM      VSL1                                  
038907,000858: 33,2647           01734                                    REFSMMAT                              
038908,000859: 33,2650           27551                           STOVL    VN1                                   #  TEMP. REF. VELOCITY VECTOR*2(7)M/CS.
038909,000860: 33,2651           03535                                    UNIT/R/                               
038910,000861: 33,2652           51435                           VXV      ABVAL                                 
038911,000862: 33,2653           03577                                    V1S                                   
038912,000863: 

Page 878

038914,000865: 33,2654           63552                           SL1      DSQ                                   
038915,000866: 33,2655           77671                           DDV                                            
038916,000867: 33,2656           47075                           DMPR     RTB                                   
038917,000868: 33,2657           26030                                    ARCONV1                               
038918,000869: 33,2660           21516                                    SGNAGREE                              
038919,000870: 33,2661           77776        COPYCYC2           EXIT                                           #  LEAVE ALTITUDE RATE COMPENSATION IN MPAC
038920,000871: 33,2662           00004                           INHINT                                         
038921,000872: 33,2663           31534                           CA       UNIT/R/                               #  UPDATE RUNIT FOR R10.
038922,000873: 33,2664           55741                           TS       RUNIT                                 
038923,000874: 33,2665           31536                           CA       UNIT/R/    +2                         
038924,000875: 33,2666           55742                           TS       RUNIT      +1                         
038925,000876: 33,2667           31540                           CA       UNIT/R/    +4                         
038926,000877: 33,2670           55743                           TS       RUNIT      +2                         
038927,000878: 33,2671           30154                           CA       MPAC                                  #  LOAD NEW DALTRATE FOR R10.
038928,000879: 33,2672           55714                           TS       DALTRATE                              
038929,000880: 
038930,000881: 33,2673           00006                           EXTEND                                         
038931,000882: 33,2674           31571                           DCA      R1S                                   
038932,000883: 33,2675           53517                           DXCH     R                                     
038933,000884: 33,2676           00006                           EXTEND                                         
038934,000885: 33,2677           31573                           DCA      R1S        +2                         
038935,000886: 33,2700           53521                           DXCH     R          +2                         
038936,000887: 33,2701           00006                           EXTEND                                         
038937,000888: 33,2702           31575                           DCA      R1S        +4                         
038938,000889: 33,2703           53523                           DXCH     R          +4                         
038939,000890: 33,2704           00006                           EXTEND                                         
038940,000891: 33,2705           31577                           DCA      V1S                                   
038941,000892: 33,2706           53525                           DXCH     V                                     
038942,000893: 33,2707           00006                           EXTEND                                         
038943,000894: 33,2710           31601                           DCA      V1S        +2                         
038944,000895: 33,2711           53527                           DXCH     V          +2                         
038945,000896: 33,2712           00006                           EXTEND                                         
038946,000897: 33,2713           31603                           DCA      V1S        +4                         
038947,000898: 33,2714           53531                           DXCH     V          +4                         
038948,000899: 
038949,000900: 33,2715           12300                           TCF      COPYCYCL                              #  COMPLETE THE COYPCYCL.
038950,000901: 

Page 879

038952,000903:                                                                                                  #      ALTCHK COMPARES CURRENT ALTITUDE (IN HCALC) WITH A SPECIFIED ALTITUDE FROM A TABLE BEGINNING AT ALTCRIT.
038953,000904:                                                                                                  #  ITS CALLING SEQUENCE IS AS FOLLOWS:-
038954,000905: 
038955,000906:                                                                                                  #         L        CAF    N
038956,000907:                                                                                                  #         L+1      TC     BANKCALL
038957,000908:                                                                                                  #         L+2      CADR   ALTCHK
038958,000909:                                                                                                  #         L+3      RETURN HERE IF HCALC STILL > SPECIFIED CRITERION.   C(L) = +0.
038959,000910:                                                                                                  #         L+4      RETURN HERE IF HCALC < OR = SPECIFIED CRITERION.   C(A) = C(L) = +0
038960,000911: 
038961,000912:                                                                                                  #  ALTCHK MUST BE BANKCALLED EVEN FROM ITS OWN BANK.   N IS THE LOCATION, RELATIVE TO THE TAG ALTCRIT,
038962,000913:                                                                                                  #  OF THE BEGINNING OF THE DP CONSTANT TO BE USED AS A CRITERION.
038963,000914: 
038964,000915: 33,2716           00006        ALTCHK             EXTEND                                         
038965,000916: 33,2717           50000                           INDEX    A                                     
038966,000917: 33,2720           32732                           DCA      ALTCRIT                               
038967,000918: 33,2721           52156                           DXCH     MPAC       +1                         
038968,000919: 33,2722           00006                           EXTEND                                         
038969,000920: 33,2723           41533                           DCS      HCALC                                 
038970,000921: 33,2724           20156                           DAS      MPAC       +1                         
038971,000922: 33,2725           06726                           TC       BRANCH     +4                         
038972,000923: 33,2726           34755                           CAF      ZERO                                  #  BETTER THAN A NOOP, PERHAPS
038973,000924: 33,2727           24133                           INCR     BUF2                                  
038974,000925: 33,2730           14631                           TCF      SWRETURN                              
038975,000926: 
038976,000927: 33,2731  33,2731               ALTCRIT            =        25KFT                                 
038977,000928: 
038978,000929: 33,2731           00007 16100  25KFT              2DEC     7620       B-24                       #  (0)
038979,000930: 33,2733           00016 34200  50KFT              2DEC     15240      B-24                       #  (2)
038980,000931: 33,2735           00000 00364  50FT               2DEC     15.24      B-24                       #  (4)
038981,000932: 33,2737           00010 35600  30KFT              2DEC     9144       B-24                       #  (6)
038982,000933: 33,2741           01414        2KFT/SEC           DEC      6.096      B-7                        #  2000 FT/SEC AT 2(7) M/CS
038983,000934: 
038984,000935: 
038985,000936: 33,2742           36241        XORCHK             CAF      SIX                                   #  ARE WE BELOW 30000 FT?
038986,000937: 33,2743           04616                           TC       BANKCALL                              
038987,000938: 33,2744           66716                           CADR     ALTCHK                                
038988,000939: 33,2745           12531                           TCF      HITEST                                #  CONTINUE LR UPDATE
038989,000940: 33,2746           05504                           TC       UPFLAG                                #  YES: INHIBIT X-AXIS OVERRIDE
038990,000941: 33,2747           00311                           ADRES    XOVINFLG                              
038991,000942: 33,2750           05504                           TC       UPFLAG                                
038992,000943: 33,2751           00253                           ADRES    XORFLG                                
038993,000944: 33,2752           12531                           TCF      HITEST                                #  CONTINUE LR UPDATE
038994,000945: 
038995,000946: 
038996,000947: 33,2753           34752        35KCHK             CAF      TWO                                   #  ARE WE BELOW 35000 FT?
038997,000948: 

Page 880

038999,000950: 33,2754           04616                           TC       BANKCALL                              
039000,000951: 33,2755           66716                           CADR     ALTCHK                                
039001,000952: 33,2756           12573                           TCF      CONTSERV                              
039002,000953: 33,2757           05504                           TC       UPFLAG                                
039003,000954: 33,2760           00256                           ADRES    READLR                                #  SET READLR FLAG TO ENABLE LR READING.
039004,000955: 33,2761           12573                           TCF      CONTSERV                              
039005,000956: 

Page 881

039007,000958:                                                                                                  #  *********************************************************************************************************
039008,000959: 
039009,000960: 
039010,000961: 33,2762           41456        CALCGRAV           UNIT     PUSH                                  #  SAVE UNIT/R/ IN PUSHLIST            (18)
039011,000962: 33,2763           03535                           STORE    UNIT/R/                               
039012,000963: 33,2764           67340                           LXC,1    SLOAD                                 #  RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
039013,000964: 33,2765           03376                                    RTX2                                  
039014,000965: 33,2766           03377                                    RTX2                                  
039015,000966: 33,2767           50076                           DCOMP    BMN                                   
039016,000967: 33,2770           67017                                    CALCGRV1                              
039017,000968: 33,2771           50375                           VLOAD    DOT                                   #                                      (12)
039018,000969: 33,2772           06416                                    UNITZ                                 
039019,000970: 33,2773           03535                                    UNIT/R/                               
039020,000971: 33,2774           41552                           SL1      PUSH                                  #                                      (14)
039021,000972: 33,2775           44316                           DSQ      BDSU                                  
039022,000973: 33,2776           27061                                    DP1/20                                
039023,000974: 33,2777           56325                           PDDL     DDV                                   
039024,000975: 33,3000           26040                                    RESQ                                  
039025,000976: 33,3001           00043                                    34D                                   #  (RN)SQ
039026,000977: 33,3002           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
039027,000978: 33,3003           41205                           DMP      DMP                                   
039028,000979: 33,3004           26042                                    20J                                   
039029,000980: 33,3005           65361                           VXSC     PDDL                                  
039030,000981: 33,3006           03535                                    UNIT/R/                               
039031,000982: 33,3007           41205                           DMP      DMP                                   
039032,000983: 33,3010           26044                                    2J                                    
039033,000984: 33,3011           00041                                    32D                                   
039034,000985: 33,3012           76561                           VXSC     VSL1                                  
039035,000986: 33,3013           06416                                    UNITZ                                 
039036,000987: 33,3014           45455                           VAD      STADR                                 
039037,000988: 33,3015           74260                           STORE    UNITGOBL                              
039038,000989: 33,3016           41455                           VAD      PUSH                                  #  MPAC = UNIT GRAVITY VECTOR.         (18)
039039,000990: 33,3017           60345        CALCGRV1           DLOAD    NORM                                  #  PERFORM A NORMALIZATION ON RMAGSQ IN
039040,000991: 33,3020           00043                                    34D                                   #  ORDER TO BE ABLE TO SCALE THE MU FOR
039041,000992: 33,3021           00050                                    X2                                    #  MAXIMUM PRECISION.
039042,000993: 33,3022           53663                           BDDV*    SLR*                                  
039043,000994: 33,3023           26032                                    -MUDT,1                               
039044,000995: 33,3024           56623                                    0          -21D,2                     
039045,000996: 33,3025           45561                           VXSC     STADR                                 
039046,000997: 33,3026           74216                           STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
039047,000998: 33,3027           77616                           RVQ                                            
039048,000999: 
039049,001000: 33,3030           61375        CALCRVG            VLOAD    VXM                                   
039050,001001: 33,3031           00325                                    DELV                                  
039051,001002: 33,3032           01734                                    REFSMMAT                              
039052,001003: 33,3033           76561                           VXSC     VSL1                                  
039053,001004: 33,3034           26022                                    KPIP1                                 
039054,001005: 33,3035           03525                           STORE    DELVREF                               
039055,001006: 33,3036           41562                           VSR1     PUSH                                  
039056,001007: 33,3037           41455                           VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
039057,001008: 

Page 882

039059,001010: 33,3040           01237                                    GDT/2                                 
039060,001011: 33,3041           65255                           VAD      PDDL                                  #                                      (18)
039061,001012: 33,3042           01227                                    VN                                    
039062,001013: 33,3043           01250                                    PGUIDE                                
039063,001014: 33,3044           74261                           SL       VXSC                                  
039064,001015: 33,3045           20207                                    6D                                    
039065,001016: 33,3046           44055                           VAD      STQ                                   
039066,001017: 33,3047           01221                                    RN                                    
039067,001018: 33,3050           00037                                    31D                                   
039068,001019: 33,3051           37543                           STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
039069,001020: 33,3052           66762                                    CALCGRAV                              
039070,001021: 
039071,001022: 33,3053           53255                           VAD      VAD                                   
039072,001023: 33,3054           77655                           VAD                                            
039073,001024: 33,3055           01227                                    VN                                    
039074,001025: 33,3056           37551                           STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7)M/CS
039075,001026: 33,3057           00037                                    31D                                   
039076,001027: 
039077,001028: 33,3060           01463 06315  DP1/20             2DEC     0.05                                  
039078,001029: 33,3062           00010 00000  SHIFT11            2DEC     1          B-11                       
039079,001030: 

Page 883

039081,001032:                                                                                                  # ****************************************************************************************************************
039082,001033: 
039083,001034:                                                                                                  #  MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
039084,001035:                                                                                                  #  PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
039085,001036:                                                                                                  #  THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
039086,001037:                                                                                                  #  COORDINATE SYSTEM.
039087,001038: 
039088,001039: 33,3064           41575        RVBOTH             VLOAD    PUSH                                  
039089,001040: 33,3065           02323                                    G(CSM)                                
039090,001041: 33,3066           65255                           VAD      PDDL                                  
039091,001042: 33,3067           01726                                    V(CSM)                                
039092,001043: 33,3070           01250                                    PGUIDE                                
039093,001044: 33,3071           74271                           DDV      VXSC                                  
039094,001045: 33,3072           27063                                    SHIFT11                               
039095,001046: 33,3073           77655                           VAD                                            
039096,001047: 33,3074           01720                                    R(CSM)                                
039097,001048: 33,3075           37571                           STCALL   R1S                                   
039098,001049: 33,3076           67162                                    MUNGRAV                               
039099,001050: 33,3077           53255                           VAD      VAD                                   
039100,001051: 33,3100           01726                                    V(CSM)                                
039101,001052: 33,3101           77626                           STADR                                          
039102,001053: 33,3102           74200                           STORE    V1S                                   
039103,001054: 33,3103           77776                           EXIT                                           
039104,001055: 33,3104           03535                           TC       QUIKFAZ5                              
039105,001056: 33,3105           06036                           TC       INTPRET                               
039106,001057: 33,3106           77775                           VLOAD                                          
039107,001058: 33,3107           03561                                    GDT1/2                                
039108,001059: 33,3110           26323                           STOVL    G(CSM)                                
039109,001060: 33,3111           03571                                    R1S                                   
039110,001061: 33,3112           25720                           STOVL    R(CSM)                                
039111,001062: 33,3113           03577                                    V1S                                   
039112,001063: 33,3114           01726                           STORE    V(CSM)                                
039113,001064: 33,3115           77776                           EXIT                                           
039114,001065: 33,3116           03535                           TC       QUIKFAZ5                              
039115,001066: 33,3117           06036                           TC       INTPRET                               
039116,001067: 33,3120           74375        MUNRVG             VLOAD    VXSC                                  
039117,001068: 33,3121           00325                                    DELV                                  
039118,001069: 33,3122           26024                                    KPIP2                                 
039119,001070: 33,3123           53206                           PUSH     VAD                                   #  1ST PUSH: DELV IN UNITS OF 2(8) M/CS
039120,001071: 33,3124           01237                                    GDT/2                                 
039121,001072: 33,3125           53206                           PUSH     VAD                                   #  2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
039122,001073: 33,3126           03525                                    V                                     #                                      (12)
039123,001074: 33,3127           56325                           PDDL     DDV                                   
039124,001075: 33,3130           01250                                    PGUIDE                                
039125,001076: 33,3131           27063                                    SHIFT11                               
039126,001077: 33,3132           77761                           VXSC                                           
039127,001078: 33,3133           77655                           VAD                                            
039128,001079: 33,3134           03517                                    R                                     
039129,001080: 33,3135           37571                           STCALL   R1S                                   #  STORE R SCALED AT 2(+24)M.
039130,001081: 33,3136           67162                                    MUNGRAV                               
039131,001082: 

Page 884

039133,001084: 33,3137           53255                           VAD      VAD                                   
039134,001085: 33,3140           77655                           VAD                                            #                                      (0)
039135,001086: 33,3141           03525                                    V                                     
039136,001087: 33,3142           03577                           STORE    V1S                                   #  STORE V SCALED AT 2(+7)M/CS.
039137,001088: 33,3143           77646                           ABVAL                                          
039138,001089: 33,3144           27470                           STOVL    ABVEL                                 #  STORE SPEED FOR LR AND DISPLAYS.
039139,001090: 33,3145           03535                                    UNIT/R/                               
039140,001091: 33,3146           72441                           DOT      SL1                                   
039141,001092: 33,3147           03577                                    V1S                                   
039142,001093: 33,3150           27472                           STOVL    HDOTDISP                              #  HDOT = V. UNIT(R)*2(7)M/CS.
039143,001094: 33,3151           03571                                    R1S                                   
039144,001095: 33,3152           72435                           VXV      VSL2                                  
039145,001096: 33,3153           02331                                    WM                                    
039146,001097: 33,3154           17732                           STODL    DELVS                                 #  LUNAR ROTATION CORRECTION TERM*2(5)M/CS.
039147,001098: 33,3155           00045                                    36D                                   
039148,001099: 33,3156           77625                           DSU                                            
039149,001100: 33,3157           02337                                    /LAND/                                
039150,001101: 33,3160           37533                           STCALL   HCALC                                 #  FOR NOW, DISPLAY WHETHER POS OR NEG
039151,001102: 33,3161           66514                                    MUNRETRN                              
039152,001103: 33,3162           77656        MUNGRAV            UNIT                                           #  AT 36D HAVE ABVAL(R), AT 34D R.R
039153,001104: 33,3163           17535                           STODL    UNIT/R/                               
039154,001105: 33,3164           00043                                    34D                                   
039155,001106: 33,3165           55261                           SL       BDDV                                  
039156,001107: 33,3166           20207                                    6D                                    
039157,001108: 33,3167           26036                                    -MUDTMUN                              
039158,001109: 33,3170           74205                           DMP      VXSC                                  
039159,001110: 33,3171           27063                                    SHIFT11                               
039160,001111: 33,3172           03535                                    UNIT/R/                               
039161,001112: 33,3173           03561                           STORE    GDT1/2                                #  1/2GDT SCALED AT 2(7) M/CS.
039162,001113: 33,3174           77616                           RVQ                                            
039163,001114: 
039164,001115: 33,3175           00303        1.95SECS           DEC      195        B-14                       
039165,001116: 33,3176           00005 33212  7.5                2DEC     .02286     B-6                        #  7.5 FT/SEC AT 2(6) M/CS
039166,001117: 33,3200           00014 20000  2SEC(18)           2DEC     200        B-18                       
039167,001118: 33,3202           00000 00310  2SEC(28)           2OCT     00000      00310                      #  2SEC AT 2(28)
039168,001119: 33,3204           00110        BITS4-7            OCT      110                                   
039169,001120: 

Page 885

039171,001122: 33,3205           34742        UPDATCHK           CAF      NOLRRBIT                              #  SEE IF LR UPDATE INHIBITED.
039172,001123: 33,3206           70107                           MASK     FLGWRD11                              
039173,001124: 33,3207           10000                           CCS      A                                     
039174,001125: 33,3210           12573                           TCF      CONTSERV                              #  IT IS-NO LR UPDATE
039175,001126: 33,3211           34750                           CAF      RNGEDBIT                              #  NO INHIBIT - SEE ALT MEAS. THIS CYCLE.
039176,001127: 33,3212           70107                           MASK     FLGWRD11                              
039177,001128: 33,3213           00006                           EXTEND                                         
039178,001129: 33,3214           13320                           BZF      VMEASCHK                              #  NO ALT MEAS THIS CYCLE-CHECK FOR VEL
039179,001130: 
039180,001131: 33,3215           06036        POSUPDAT           TC       INTPRET                               
039181,001132: 33,3216           54345                           DLOAD    SL                                    
039182,001133: 33,3217           03653                                    HMEAS                                 #  COMPUTE SLANT RANGE
039183,001134: 33,3220           20210                                    7                                     
039184,001135: 33,3221           74205                           DMP      VXSC                                  
039185,001136: 33,3222           26011                                    HSCAL                                 #  SLANT RANGE AT 2(21) M
039186,001137: 33,3223           02313                                    HBEAMNB                               #  RANGE VECTOR IN NB COORDINATES AT 2(22)M
039187,001138: 33,3224           77705                           VXM                                            
039188,001139: 33,3225           02146                                    XNBPIP                                #  CONVERT TO SM COORDINATES AT 2(23)M
039189,001140: 33,3226           45241                           DOT      DSU                                   
039190,001141: 33,3227           03535                                    UNIT/R/                               #  ALTITUDE AT 2(24)M
039191,001142: 33,3230           03533                                    HCALC                                 #  DELTA H AT 2(24) M
039192,001143: 33,3231           03663                           STORE    DELTAH                                
039193,001144: 33,3232           77776                           EXIT                                           
039194,001145: 
039195,001146: 33,3233           30107                           CA       FLGWRD11                              
039196,001147: 33,3234           74741                           MASK     PSTHIBIT                              
039197,001148: 33,3235           00006                           EXTEND                                         #  DO NOT PERFORM DATA REASONABLENESS TEST
039198,001149: 33,3236           13253                           BZF      NOREASON                              #  UNTIL AFTER HIGATE
039199,001150: 
039200,001151: 33,3237           06036                           TC       INTPRET                               
039201,001152: 33,3240           45246                           ABS      DSU                                   
039202,001153: 33,3241           02501                                    DELQFIX                               #  ABS(DELTAH) - DQFIX   50 FT NOM
039203,001154: 33,3242           45252                           SL3      DSU                                   #  SCALE TO 2(21)
039204,001155: 33,3243           03533                                    HCALC                                 #  ABS(DELTAH) - (50 + HCALC/8) AT 2(21)
039205,001156: 33,3244           77776                           EXIT                                           
039206,001157: 
039207,001158: 33,3245           25666                           INCR     LRLCTR                                
039208,001159: 33,3246           06722                           TC       BRANCH                                
039209,001160: 33,3247           13543                           TCF      HFAIL                                 #  DELTA H TOO LARGE
039210,001161: 33,3250           13543                           TCF      HFAIL                                 #  DELTA H TOO LARGE
039211,001162: 33,3251           05516                           TC       DOWNFLAG                              #  TURN OFF ALT FAIL LAMP
039212,001163: 33,3252           00263                           ADRES    HFLSHFLG                              
039213,001164: 
039214,001165: 33,3253           40107        NOREASON           CS       FLGWRD11                              
039215,001166: 33,3254           74744                           MASK     LRINHBIT                              
039216,001167: 33,3255           10000                           CCS      A                                     
039217,001168: 33,3256           13320                           TCF      VMEASCHK                              #  UPDATE INHIBITED - TEST VELOCITY ANYWAY
039218,001169: 
039219,001170: 33,3257           06036                           TC       INTPRET                               #  DO POSITION UPDATE
039220,001171: 

Page 886

039222,001173: 33,3260           40545                           DLOAD    SR4                                   
039223,001174: 33,3261           03533                                    HCALC                                 #  RESCALE H TO 2(28)M
039224,001175: 33,3262           77776                           EXIT                                           
039225,001176: 33,3263           00006                           EXTEND                                         
039226,001177: 33,3264           31663                           DCA      DELTAH                                #  STORE DELTAH IN MPAC AND
039227,001178: 33,3265           52155                           DXCH     MPAC                                  #  BRING HCALC INTO A,L
039228,001179: 33,3266           07543                           TC       ALSIGNAG                              
039229,001180: 33,3267           00006                           EXTEND                                         #  IF HIGH PART OF HCALC IS NON ZERO, THEN
039230,001181: 33,3270           13272                           BZF      +2                                    #  HCALC > HMAX,
039231,001182: 33,3271           13320                           TCF      VMEASCHK                              #  SO UPDATE IS BYPASSED
039232,001183: 33,3272           54156                           TS       MPAC       +2                         #    FOR LATER SHORTMP
039233,001184: 
039234,001185: 33,3273           40001                           CS       L                                     #  -H AT 2(14) M
039235,001186: 33,3274           61416                           AD       LRHMAX                                #  HMAX - H
039236,001187: 33,3275           00006                           EXTEND                                         
039237,001188: 33,3276           63320                           BZMF     VMEASCHK                              #  IF H >HMAX, BYPASS UPDATE
039238,001189: 33,3277           00006                           EXTEND                                         
039239,001190: 33,3300           71420                           MP       LRWH                                  #  WH(HMAX - H)
039240,001191: 33,3301           00006                           EXTEND                                         
039241,001192: 33,3302           11416                           DV       LRHMAX                                #  WH(1 - H/HMAX)
039242,001193: 33,3303           54135                           TS       MPTEMP                                
039243,001194: 33,3304           07312                           TC       SHORTMP2                              #  DELTAH (WH)(1 - H/HMAX) IN MPAC
039244,001195: 33,3305           06036                           TC       INTPRET                               #  MODE IS DP FROM ABOVE
039245,001196: 33,3306           77752                           SL1                                            
039246,001197: 33,3307           53361                           VXSC     VAD                                   
039247,001198: 33,3310           03535                                    UNIT/R/                               #  DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
039248,001199: 33,3311           03571                                    R1S                                   
039249,001200: 33,3312           37655                           STCALL   GNUR                                  
039250,001201: 33,3313           67162                                    MUNGRAV                               
039251,001202: 33,3314           77776                           EXIT                                           
039252,001203: 
039253,001204: 33,3315           03535                           TC       QUIKFAZ5                              
039254,001205: 
039255,001206: 33,3316           34755                           CA       ZERO                                  
039256,001207: 33,3317           03517                           TC       GNURVST                               
039257,001208: 
039258,001209: 33,3320           03535        VMEASCHK           TC       QUIKFAZ5                              #  RESTART AT NEXT LOCATION
039259,001210: 33,3321           40107                           CS       FLGWRD11                              
039260,001211: 33,3322           74745                           MASK     VELDABIT                              #  IS V READING AVAILABLE?
039261,001212: 33,3323           10000                           CCS      A                                     
039262,001213: 33,3324           13475                           TCF      VALTCHK                               #  NO   SEE IF V READING TO BE TAKEN
039263,001214: 
039264,001215: 33,3325           41647        VELUPDAT           CS       VSELECT                               #  PROCESS VELOCITY DATA
039265,001216: 33,3326           54001                           TS       L                                     
039266,001217: 33,3327           26001                           ADS      L                                     #  -2 VSELECT IN L
039267,001218: 33,3330           60001                           AD       L                                     
039268,001219: 33,3331           60001                           AD       L                                     #  -6 VSELECT IN A
039269,001220: 33,3332           50120                           INDEX    FIXLOC                                
039270,001221: 33,3333           52047                           DXCH     X1                                    #  X1 = -6 VSELECT, X2 = -2 VSELECT
039271,001222: 

Page 887

039273,001224: 
039274,001225: 33,3334           34741                           CA       EBANK4                                
039275,001226: 33,3335           54003                           TS       EBANK                                 
039276,001227: 33,3336  E4,1660                                  EBANK=   LRXCDU                                
039277,001228: 
039278,001229: 33,3336           31661                           CA       LRYCDU                                #  STORE LRCDUS IN CDUSPOTS
039279,001230: 33,3337           54766                           TS       CDUSPOT                               
039280,001231: 33,3340           31662                           CA       LRZCDU                                
039281,001232: 33,3341           54770                           TS       CDUSPOT    +2                         
039282,001233: 33,3342           31660                           CA       LRXCDU                                
039283,001234: 33,3343           54772                           TS       CDUSPOT    +4                         
039284,001235: 
039285,001236: 33,3344           04616                           TC       BANKCALL                              
039286,001237: 33,3345           47521                           CADR     QUICTRIG                              #  GET SINES AND COSINES FOR NBSM
039287,001238: 
039288,001239: 33,3346           30120                           CA       FIXLOC                                
039289,001240: 33,3347           54166                           TS       PUSHLOC                               #  SET PD TO ZERO
039290,001241: 
039291,001242: 33,3350           06036                           TC       INTPRET                               
039292,001243: 33,3351           45173                           VLOAD*   CALL                                  
039293,001244: 33,3352           02235                                    VZBEAMNB,1                            #  CONVERT VBEAM FROM NB TO SM
039294,001245: 33,3353           47577                                    *NBSM*                                
039295,001246: 33,3354           54325                           PDDL     SL                                    #  STORE IN PD 0-5
039296,001247: 33,3355           03651                                    VMEAS                                 #  LOAD VELOCITY MEASUREMENT
039297,001248: 33,3356           20215                                    12D                                   
039298,001249: 33,3357           41403                           DMP*     PUSH                                  #  SCALE TO M/CS AT 2(6)
039299,001250: 33,3360           51764                                    VZSCAL,2                              #  AND STORE IN PD 6-7
039300,001251: 33,3361           77776                           EXIT                                           
039301,001252: 33,3362           44753                           CS       ONE                                   
039302,001253: 33,3363           54163                           TS       MODE                                  #  CHANGE STORE MODE TO VECTOR
039303,001254: 
039304,001255: 33,3364           31663                           CA       PIPTEM                                #  STORE DELV IN MPAC
039305,001256: 33,3365           22007                           ZL                                             
039306,001257: 33,3366           52155                           DXCH     MPAC                                  
039307,001258: 
039308,001259: 33,3367           31664                           CA       PIPTEM     +1                         
039309,001260: 33,3370           22007                           ZL                                             
039310,001261: 33,3371           52160                           DXCH     MPAC       +3                         
039311,001262: 
039312,001263: 33,3372           31665                           CA       PIPTEM     +2                         
039313,001264: 33,3373           22007                           ZL                                             
039314,001265: 33,3374           52162                           DXCH     MPAC       +5                         
039315,001266: 
039316,001267: 33,3375           35016                           CA       EBANK7                                
039317,001268: 33,3376           54003                           TS       EBANK                                 #  RESTORE EBANK 7
039318,001269: 33,3377  E7,1513                                  EBANK=   DVCNTR                                
039319,001270: 33,3377           06036                           TC       INTPRET                               
039320,001271: 33,3400           65361                           VXSC     PDDL                                  
039321,001272: 33,3401           26022                                    KPIP1                                 #  SCALE DELV TO 2(7) M/CS AND PUSH
039322,001273: 33,3402           02257                                    LRVTIME                               #  TIME OF DELV AT 2(28)CS
039323,001274: 33,3403           56225                           DSU      DDV                                   
039324,001275: 

Page 888

039326,001277: 33,3404           01235                                    PIPTIME                               #  TU - T(N-1)
039327,001278: 33,3405           27203                                    2SEC(28)                              
039328,001279: 33,3406           76561                           VXSC     VSL1                                  #  G(N-1)(TU - T(N-1))
039329,001280: 33,3407           01237                                    GDT/2                                 #  SCALED AT 2(7) M/CS
039330,001281: 33,3410           53255                           VAD      VAD                                   #  PUSH UP FOR DELV
039331,001282: 33,3411           03525                                    V                                     #  VU = V(N-1) + DELVU + G(N-1) DTU
039332,001283: 33,3412           53352                           VSL2     VAD                                   #  SCALE TO 2(5) M/CS AND SUBTRACT
039333,001284: 33,3413           03732                                    DELVS                                 #                MOON ROTATION.
039334,001285: 33,3414           51406                           PUSH     ABVAL                                 #  STORE IN PD
039335,001286: 33,3415           43202                           SR4      DAD                                   #  ABS(VM)/8 + 7.5 AT 2(6)
039336,001287: 33,3416           27177                                    7.5                                   
039337,001288: 33,3417           24025                           STOVL    20D                                   #  STORE IN 20D AND PICK UP VM
039338,001289: 33,3420           44241                           DOT      BDSU                                  #  V(EST) AT 2(6)
039339,001290: 33,3421           00001                                    0                                     #  DELTAV = VMEAS - V(EST)
039340,001291: 33,3422           51406                           PUSH     ABS                                   
039341,001292: 33,3423           77425                           DSU      EXIT                                  #  ABS(DV) - (7.5 + ABS(VM)/8))
039342,001293: 33,3424           00025                                    20D                                   
039343,001294: 
039344,001295: 33,3425           25670                           INCR     LRMCTR                                
039345,001296: 33,3426           06722                           TC       BRANCH                                
039346,001297: 33,3427           13560                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
039347,001298: 33,3430           13560                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
039348,001299: 
039349,001300: 33,3431           05516                           TC       DOWNFLAG                              #  TURN OFF VEL FAIL LAMP
039350,001301: 33,3432           00262                           ADRES    VFLSHFLG                              
039351,001302: 
039352,001303: 33,3433           30107                           CA       FLGWRD11                              
039353,001304: 33,3434           74740                           MASK     VXINHBIT                              
039354,001305: 33,3435           00006                           EXTEND                                         
039355,001306: 33,3436           13445                           BZF      VUPDAT                                #  IF VX INHIBIT RESET, INCORPORATE DATA.
039356,001307: 
039357,001308: 33,3437           05516                           TC       DOWNFLAG                              
039358,001309: 33,3440           00250                           ADRES    VXINH                                 #  RESET VX INHIBIT
039359,001310: 
039360,001311: 33,3441           31647                           CA       VSELECT                               
039361,001312: 33,3442           67745                           AD       NEG2                                  #  IF VSELECT = 2 (X AXIS),
039362,001313: 33,3443           00006                           EXTEND                                         #  BYPASS UPDATE
039363,001314: 33,3444           13475                           BZF      ENDVDAT                               
039364,001315: 
039365,001316: 33,3445           40107        VUPDAT             CS       FLGWRD11                              
039366,001317: 33,3446           74744                           MASK     LRINHBIT                              
039367,001318: 33,3447           10000                           CCS      A                                     
039368,001319: 33,3450           13475                           TCF      VALTCHK                               #  UPDATE INHIBITED
039369,001320: 
039370,001321: 33,3451           54155                           TS       MPAC       +1                         #  ZERO MPAC +1 FOR MULTIPLY LATER
039371,001322: 33,3452           41467                           CS       ABVEL                                 
039372,001323: 33,3453           61417                           AD       LRVMAX                                #  VMAX - V
039373,001324: 33,3454           00006                           EXTEND                                         
039374,001325: 33,3455           63475                           BZMF     VALTCHK                               #  IF V > VMAX BYPASS UPDATE
039375,001326: 33,3456           00006                           EXTEND                                         
039376,001327: 

Page 889

039378,001329: 33,3457           51647                           INDEX    VSELECT                               #  WV(VMAX - V)
039379,001330: 33,3460           71421                           MP       LRWVZ                                 
039380,001331: 33,3461           00006                           EXTEND                                         
039381,001332: 33,3462           11417                           DV       LRVMAX                                #  WV(1 - V/VMAX)
039382,001333: 33,3463           54154                           TS       MPAC                                  #  STORE IN MPAC, MODE IS DP FROM ABOVE
039383,001334: 
039384,001335: 33,3464           06036                           TC       INTPRET                               
039385,001336: 33,3465           74205                           DMP      VXSC                                  #  W(DELTA V)(VBEAMSM) UP 6-7, 0-5
039386,001337: 33,3466           53372                           VSL1     VAD                                   
039387,001338: 33,3467           03577                                    V1S                                   #  ADD WEIGHTED DELTA V TO VELOCITY
039388,001339: 33,3470           03655                           STORE    GNUV                                  
039389,001340: 33,3471           77776                           EXIT                                           
039390,001341: 
039391,001342: 33,3472           03535                           TC       QUIKFAZ5                              #  DO NOT RE-UPDATE
039392,001343: 
039393,001344: 33,3473           36241                           CA       SIX                                   
039394,001345: 33,3474           03517                           TC       GNURVST                               #  STORE NEW VELOCITY VECTOR
039395,001346: 
039396,001347: 33,3475  33,3475               ENDVDAT            =        VALTCHK                               
039397,001348: 
039398,001349: 33,3475           03535        VALTCHK            TC       QUIKFAZ5                              #  DO NOT REPEAT ABOVE
039399,001350: 
039400,001351: 33,3476           34747                           CAF      READVBIT                              #  TEST READVEL TO SEE IF VELOCITY READING
039401,001352: 33,3477           70107                           MASK     FLGWRD11                              #  IS DESIRED.
039402,001353: 33,3500           10000                           CCS      A                                     
039403,001354: 33,3501           13512                           TCF      READV                                 #  TES - READ VELOCITY
039404,001355: 33,3502           41467                           CS       ABVEL                                 #  NO - SEE IF VELOCITY < 2000 FT/SEC
039405,001356: 33,3503           62741                           AD       2KFT/SEC                              
039406,001357: 33,3504           00006                           EXTEND                                         
039407,001358: 33,3505           62573                           BZMF     CONTSERV                              #  V > 2000 FT/SEC   DO NOT READ VEL
039408,001359: 
039409,001360: 33,3506           05504                           TC       UPFLAG                                #  V < 2000 FT/SEC   SET READVEL AND READ
039410,001361: 33,3507           00257                           ADRES    READVEL                               
039411,001362: 
039412,001363: 33,3510           34755                           CAF      ZERO                                  #  INITIALIZE VSELECT
039413,001364: 33,3511           55647                           TS       VSELECT                               
039414,001365: 
039415,001366: 33,3512           37717        READV              CAF      PRIO32                                #  SET UP JOB TO READ VELOCITY BEAMS.
039416,001367: 33,3513           05072                           TC       NOVAC                                 
039417,001368: 33,3514  E7,1652                                  EBANK=   HMEAS                                 
039418,001369: 33,3514           03601 66067                     2CADR    LRVJOB                                
039419,001370: 
039420,001371: 33,3516           12573                           TCF      CONTSERV                              #  CONTINUE WITH SERVICER
039421,001372: 
039422,001373: 
039423,001374: 33,3517           54130        GNURVST            TS       BUF                                   #  STORE GNUR (=GNUV) IN R1S OR V1S
039424,001375: 33,3520           00006                           EXTEND                                         #  A = 0 FOR R, A = 6 FOR V
039425,001376: 33,3521           31655                           DCA      GNUR                                  
039426,001377: 33,3522           50130                           INDEX    BUF                                   
039427,001378: 33,3523           53571                           DXCH     R1S                                   
039428,001379: 

Page 890

039430,001381: 33,3524           00006                           EXTEND                                         
039431,001382: 33,3525           31657                           DCA      GNUR       +2                         
039432,001383: 33,3526           50130                           INDEX    BUF                                   
039433,001384: 33,3527           53573                           DXCH     R1S        +2                         
039434,001385: 33,3530           00006                           EXTEND                                         
039435,001386: 33,3531           31661                           DCA      GNUR       +4                         
039436,001387: 33,3532           50130                           INDEX    BUF                                   
039437,001388: 33,3533           53575                           DXCH     R1S        +4                         
039438,001389: 33,3534           00002                           TC       Q                                     
039439,001390: 
039440,001391: 
039441,001392: 33,3535           35007        QUIKFAZ5           CA       EBANK3                                
039442,001393: 33,3536           56003                           XCH      EBANK                                 #  SET EBANK 3
039443,001394: 33,3537           52002                           DXCH     L                                     #  Q TO A, A TO L
039444,001395: 33,3540  E3,1446                                  EBANK=   PHSNAME5                              
039445,001396: 33,3540           55446                           TS       PHSNAME5                              
039446,001397: 33,3541           22003                           LXCH     EBANK                                 
039447,001398: 33,3542  E7,1513                                  EBANK=   DVCNTR                                
039448,001399: 33,3542           00000                           TC       A                                     
039449,001400: 
039450,001401: 
039451,001402: 33,3543           41667        HFAIL              CS       LRRCTR                                
039452,001403: 33,3544           00006                           EXTEND                                         
039453,001404: 33,3545           13555                           BZF      NORLITE                               #  IF R = 0, DO NOT TURN ON TRK FAIL
039454,001405: 33,3546           61666                           AD       LRLCTR                                
039455,001406: 33,3547           77744                           MASK     NEG3                                  
039456,001407: 33,3550           00006                           EXTEND                                         #  IF L-R LT 4, DO NOT TURN ON TRK FAIL
039457,001408: 33,3551           13553                           BZF      +2                                    
039458,001409: 33,3552           13555                           TCF      NORLITE                               
039459,001410: 
039460,001411: 33,3553           05504                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
039461,001412: 33,3554           00263                           ADRES    HFLSHFLG                              
039462,001413: 
039463,001414: 33,3555           31666        NORLITE            CA       LRLCTR                                
039464,001415: 33,3556           55667                           TS       LRRCTR                                #  SET R = L
039465,001416: 
039466,001417: 33,3557           13320                           TCF      VMEASCHK                              
039467,001418: 
039468,001419: 
039469,001420: 33,3560           41671        VFAIL              CS       LRSCTR                                #    DELTA Q LARGE
039470,001421: 33,3561           00006                           EXTEND                                         #  IF S = 0, DO NOT TURN ON TRACKER FAIL
039471,001422: 33,3562           13572                           BZF      NOLITE                                
039472,001423: 33,3563           61670                           AD       LRMCTR                                #  M-S
039473,001424: 33,3564           77744                           MASK     NEG3                                  #  TEST FOR M-S > 3
039474,001425: 33,3565           00006                           EXTEND                                         #  IF M-S > 3, THEN TWO OR MORE OF THE
039475,001426: 33,3566           13570                           BZF      +2                                    #    LAST FOUR V READINGS WERE BAD,
039476,001427: 33,3567           13572                           TCF      NOLITE                                #    SO TURN ON VELOCITY FAIL LIGHT
039477,001428: 
039478,001429: 33,3570           05504                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
039479,001430: 33,3571           00262                           ADRES    VFLSHFLG                              
039480,001431: 

Page 891

039482,001433: 33,3572           31670        NOLITE             CA       LRMCTR                                #  SET S = M
039483,001434: 33,3573           55671                           TS       LRSCTR                                
039484,001435: 
039485,001436: 33,3574           11647                           CCS      VSELECT                               #  TEST FOR Z COMPONENT
039486,001437: 33,3575           13475                           TCF      ENDVDAT                               #  NOT Z, DO NOT SET VX INHIBIT
039487,001438: 
039488,001439: 33,3576           05504                           TC       UPFLAG                                #  Z COMPONENT - SET FLAG TO SKIP X
039489,001440: 33,3577           00250                           ADRES    VXINH                                 #  COMPONENT,AS ERROR MAY BE DUE TO CROSS
039490,001441: 33,3600           13475                           TCF      ENDVDAT                               #  LOBE LOCK UP NOT DETECTED ON X AXIS.
039491,001442: 

Page 892

039493,001444:                                                                                                  #  ********************************************************************************************************
039494,001445:                                                                                                  #     LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE
039495,001446:                                                                                                  #     THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY
039496,001447:                                                                                                  #     SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE-ABOUT 500 MS.
039497,001448:                                                                                                  #     WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT
039498,001449:                                                                                                  #     IS SET.  THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLING .
039499,001450: 
039500,001451: 33,3601     4361               170MS              EQUALS   ND1                                   
039501,001452: 
039502,001453: 
039503,001454: 33,3601           34361        LRVJOB             CA       170MS                                 #  SET TASK TO READ CDUS + PIPAS
039504,001455: 33,3602           05203                           TC       WAITLIST                              
039505,001456: 33,3603  E4,1656                                  EBANK=   LRVTIME                               
039506,001457: 33,3603           03750 64064                     2CADR    RDGIMS                                
039507,001458: 
039508,001459: 33,3605           11647                           CCS      VSELECT                               #  SEQUENCE LR VEL BEAM SELECTOR
039509,001460: 33,3606           13610                           TCF      +2                                    
039510,001461: 33,3607           34752                           CAF      TWO                                   #  IF ZERO-RESET TO TWO
039511,001462: 33,3610           60000                           DOUBLE                                         #  2XVSELECT USED FOR VBEAM INDEX IN LRVEL
039512,001463: 33,3611           04616                           TC       BANKCALL                              #  GO INITIALIZE LR VEL READ ROUTINE
039513,001464: 33,3612           53107                           CADR     LRVEL                                 
039514,001465: 33,3613           04616                           TC       BANKCALL                              #  PUT LRVJOB TO SLEEP ABOUT 500 MS
039515,001466: 33,3614           17667                           CADR     RADSTALL                              
039516,001467: 33,3615           13650                           TCF      VBAD                                  
039517,001468: 33,3616           11673                           CCS      STILBADV                              #  IS DATA GOOD JUST PRESENT?
039518,001469: 33,3617           13651                           TCF      VSTILBAD                              #  JUST GOOD - MUST WAIT 4 SECONDS.
039519,001470: 
039520,001471: 33,3620           00004                           INHINT                                         
039521,001472: 33,3621           00006                           EXTEND                                         #  GOOD RETURN-STOW AWAY VMEAS
039522,001473: 33,3622           31102                           DCA      SAMPLSUM                              
039523,001474: 33,3623           53651                           DXCH     VMEAS                                 
039524,001475: 33,3624           34741                           CA       EBANK4                                #  FOR DOWNLINK
039525,001476: 33,3625           54003                           TS       EBANK                                 
039526,001477: 33,3626  E4,1656                                  EBANK=   LRVTIME                               
039527,001478: 
039528,001479: 33,3626           00006                           EXTEND                                         
039529,001480: 33,3627           31657                           DCA      LRVTIME                               
039530,001481: 33,3630           53744                           DXCH     LRVTIMDL                              
039531,001482: 33,3631           00006                           EXTEND                                         
039532,001483: 33,3632           31661                           DCA      LRXCDU                                
039533,001484: 33,3633           53741                           DXCH     LRXCDUDL                              
039534,001485: 33,3634           31662                           CA       LRZCDU                                
039535,001486: 33,3635           55742                           TS       LRZCDUDL                              
039536,001487: 33,3636           35016                           CA       EBANK7                                
039537,001488: 33,3637           54003                           TS       EBANK                                 
039538,001489: 33,3640  E7,1647                                  EBANK=   VSELECT                               
039539,001490: 
039540,001491: 33,3640           40107                           CS       FLGWRD11                              #  SET BIT TO INDICATE VELOCITY
039541,001492: 33,3641           74745                           MASK     VELDABIT                              #  MEASUREMENT MADE.
039542,001493: 

Page 893

039544,001495: 33,3642           26107                           ADS      FLGWRD11                              
039545,001496: 33,3643           11647        ENDLRV             CCS      VSELECT                               #  UPDATE VSELECT
039546,001497: 33,3644           13646                           TCF      +2                                    
039547,001498: 33,3645           34752                           CA       TWO                                   
039548,001499: 33,3646           55647                           TS       VSELECT                               
039549,001500: 33,3647           15155                           TCF      ENDOFJOB                              
039550,001501: 
039551,001502: 33,3650           34752        VBAD               CAF      TWO                                   #  SET STILBAD TO WAIT 4 SECONDS
039552,001503: 33,3651           55673        VSTILBAD           TS       STILBADV                              
039553,001504: 33,3652           13643                           TCF      ENDLRV                                
039554,001505: 
039555,001506:                                                                                                  #  LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT.  THIS JOB
039556,001507:                                                                                                  #  INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO
039557,001508:                                                                                                  #  SLEEP WHILE THE SAMPLING IS DONE-ABOUT 95 MS.  WITH A GOODEND RETURN
039558,001509:                                                                                                  #  THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET.
039559,001510: 
039560,001511: 34,3717                                           BANK     34                                    
039561,001512: 34,2000                                           SETLOC   R12STUFF                              
039562,001513: 34,2000                                           BANK                                           
039563,001514: 
039564,001515: 34,3717                                           COUNT*   $$/SERV                               
039565,001516: 
039566,001517: 34,3717           04616        LRHJOB             TC       BANKCALL                              #  INITIATE LR ALT MEASUREMENT
039567,001518: 34,3720           53073                           CADR     LRALT                                 
039568,001519: 34,3721           04616                           TC       BANKCALL                              #  LRHJOB TO SLEEP ABOUT 95MS
039569,001520: 34,3722           17667                           CADR     RADSTALL                              
039570,001521: 34,3723           13746                           TCF      HBAD                                  
039571,001522: 34,3724           11672                           CCS      STILBADH                              #  IS DATA GOOD JUST PRESENT?
039572,001523: 34,3725           13756                           TCF      HSTILBAD                              #  JUST GOOD - MUST WAIT 4 SECONDS.
039573,001524: 
039574,001525: 34,3726           00004                           INHINT                                         
039575,001526: 34,3727           00006                           EXTEND                                         
039576,001527: 34,3730           31102                           DCA      SAMPLSUM                              #  GOOD RETURN-STORE AWAY LRH DATA
039577,001528: 34,3731           53653                           DXCH     HMEAS                                 #  LRH DATA 1.079 FT/BIT
039578,001529: 34,3732           00006                           EXTEND                                         #  FOR DOWNLINK
039579,001530: 34,3733           31557                           DCA      PIPTIME1                              
039580,001531: 34,3734           53753                           DXCH     MKTIME                                
039581,001532: 
039582,001533: 34,3735           00006                           EXTEND                                         
039583,001534: 34,3736           31157                           DCA      CDUTEMPY                              #  CDUY,Z = AIG,AMG
039584,001535: 34,3737           53456                           DXCH     AIG                                   
039585,001536: 
039586,001537: 34,3740           31155                           CA       CDUTEMPX                              #  CDUX = AOG
039587,001538: 34,3741           55457                           TS       AOG                                   
039588,001539: 
039589,001540: 34,3742           40107                           CS       FLGWRD11                              #  SET BIT TO INDICATE RANGE
039590,001541: 34,3743           74750                           MASK     RNGEDBIT                              #  MEASUREMENT MADE.
039591,001542: 34,3744           26107                           ADS      FLGWRD11                              
039592,001543: 34,3745           05155        ENDLRH             TC       ENDOFJOB                              #  TERMINATE LRHJOB
039593,001544: 

Page 894

039595,001546: 34,3746           30101        HBAD               CA       FLAGWRD5                              
039596,001547: 34,3747           74742                           MASK     RNGSCBIT                              #  IS BAD RETURN DUE TO SCALE CHANGE?
039597,001548: 34,3750           00006                           EXTEND                                         
039598,001549: 34,3751           13755                           BZF      HSTILBAD   -1                         #  NO    RESET HSTILBAD
039599,001550: 34,3752           05516                           TC       DOWNFLAG                              #  YES   RESET SCALE CHANGE BIT AND IGNORE
039600,001551: 34,3753           00120                           ADRES    RNGSCFLG                              
039601,001552: 34,3754           05155                           TC       ENDOFJOB                              
039602,001553: 
039603,001554: 
039604,001555: 34,3755           34752                           CAF      TWO                                   #  SET STILBAD TO WAIT 4 SECONDS
039605,001556: 34,3756           55672        HSTILBAD           TS       STILBADH                              
039606,001557: 34,3757           05155                           TC       ENDOFJOB                              
039607,001558: 
039608,001559: 32,3750                                           BANK     32                                    
039609,001560: 32,2000                                           SETLOC   SERV2                                 
039610,001561: 32,2000                                           BANK                                           
039611,001562: 
039612,001563: 32,3750                                           COUNT*   $$/SERV                               
039613,001564: 
039614,001565:                                                                                                  #      RDGIMS  IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME
039615,001566:                                                                                                  #      AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES
039616,001567:                                                                                                  #      ARE SPECIFIED.
039617,001568: 
039618,001569: 32,3750  E4,1656                                  EBANK=   LRVTIME                               
039619,001570: 32,3750           00006        RDGIMS             EXTEND                                         
039620,001571: 32,3751           30025                           DCA      TIME2                                 #  PICK UP TIME2,TIME1
039621,001572: 32,3752           53657                           DXCH     LRVTIME                               #     AND SAVE IN LRVTIME
039622,001573: 
039623,001574: 32,3753           00006                           EXTEND                                         
039624,001575: 32,3754           30033                           DCA      CDUX                                  #  PICK UP CDUX AND CDUY
039625,001576: 32,3755           53661                           DXCH     LRXCDU                                #     AND SAVE IN LRXCDU AND LRYCDU
039626,001577: 
039627,001578: 32,3756           30034                           CA       CDUZ                                  
039628,001579: 32,3757           55662                           TS       LRZCDU                                #  SAVE CDUZ IN LRZCDU
039629,001580: 
039630,001581: 32,3760           30037                           CA       PIPAX                                 
039631,001582: 32,3761           55663                           TS       PIPTEM                                #  SAVE PIPAX IN PIPTEM
039632,001583: 
039633,001584: 32,3762           00006                           EXTEND                                         
039634,001585: 32,3763           30041                           DCA      PIPAY                                 #  PICK UP PIPAY AND PIPAZ
039635,001586: 32,3764           53665                           DXCH     PIPTEM     +1                         #     AND SAVE IN PIPTEM +1 AND PIPTEM +2
039636,001587: 32,3765           05261                           TC       TASKOVER                              
039637,001588: 
039638,001589: 33,3653                                           BANK     33                                    
039639,001590: 33,2000                                           SETLOC   SERVICES                              
039640,001591: 33,2000                                           BANK                                           
039641,001592: 
039642,001593: 33,3653                                           COUNT*   $$/SERV                               
039643,001594: 
039644,001595: 33,3653  E7,1513                                  EBANK=   DVCNTR                                
039645,001596: 

Page 895

039647,001598:                                                                                                  #     HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
039648,001599:                                                                                                  #     THE DESCENT BURN PHASE OF LUNAR LANDING.  THIS JOB INITIATES THE
039649,001600:                                                                                                  #     LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
039650,001601:                                                                                                  #     LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2.  IF THE LR ANTENNA
039651,001602:                                                                                                  #     ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
039652,001603:                                                                                                  #     BEAM VECTORS  ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
039653,001604:                                                                                                  #     RESPECT TO THE NB.  BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
039654,001605:                                                                                                  #     MEASUREMENTS AND THE JOB TERMINATES.
039655,001606: 
039656,001607: 33,3653           04616        HIGATJOB           TC       BANKCALL                              #  START LRPOS2 JOB
039657,001608: 33,3654           53471                           CADR     LRPOS2                                
039658,001609: 33,3655           04616                           TC       BANKCALL                              #  PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE
039659,001610: 33,3656           17667                           CADR     RADSTALL                              
039660,001611: 33,3657           13666                           TCF      POSALARM                              #  BAD END   ALARM
039661,001612: 
039662,001613: 33,3660           37711        POSGOOD            CA       PRIO24                                #  REDUCE PRIORITY FOR INTERPRETIVE STUFF
039663,001614: 33,3661           05146                           TC       PRIOCHNG                              
039664,001615: 
039665,001616: 33,3662           03721                           TC       SETPOS2                               #  LR IN POS2 - SET UP TRANSFORMATIONS
039666,001617: 
039667,001618: 33,3663           05516                           TC       DOWNFLAG                              
039668,001619: 33,3664           00252                           ADRES    NOLRREAD                              #  RESET NOLRREAD FLAG TO ENABLE LR READING
039669,001620: 33,3665           05155                           TC       ENDOFJOB                              
039670,001621: 
039671,001622: 33,3666           33703        POSALARM           CA       OCT523                                
039672,001623: 33,3667           04616                           TC       BANKCALL                              
039673,001624: 33,3670           21451                           CADR     PRIOLARM                              #  FLASH ALARM CODE
039674,001625: 33,3671           16001                           TCF      GOTOPOOH                              #  TERMINATE
039675,001626: 33,3672           13675                           TCF      +3                                    #  PROCEED - TRY AGAIN
039676,001627: 33,3673           15155                           TCF      ENDOFJOB                              #  V 32 E    TERMINATE R12
039677,001628: 33,3674           05155                           TC       ENDOFJOB                              
039678,001629: 
039679,001630: 33,3675           34745                 +3        CA       BIT7                                  #  SEE IF IN POS2 YET
039680,001631: 33,3676           00006                           EXTEND                                         
039681,001632: 33,3677           02033                           RAND     CHAN33                                
039682,001633: 33,3700           00006                           EXTEND                                         
039683,001634: 33,3701           13660                           BZF      POSGOOD                               #  POS2 ACHIEVED   SET UP ANTENNA BEAMS
039684,001635: 33,3702           13666                           TCF      POSALARM                              #  STILL DIDN'T MAKE IT   REALARM
039685,001636: 
039686,001637: 33,3703           00523        OCT523             OCT      00523                                 
039687,001638: 
039688,001639: 
039689,001640: 33,3704           04645        SETPOS1            TC       MAKECADR                              #  MUST BE CALLED BY BANKCALL
039690,001641: 33,3705           55654                           TS       LRADRET1                              #  SAVE RETURN CADR, SINCE BUF2 CLOBBERED
039691,001642: 
039692,001643: 33,3706           34752                           CAF      TWO                                   
039693,001644: 33,3707           55672                           TS       STILBADH                              #  INITIALIZE STILBAD
039694,001645: 33,3710           55673                           TS       STILBADV                              #  INITIALIZE STILBAD
039695,001646: 
039696,001647: 33,3711           34755                           CA       ZERO                                  #  INDEX FOR LRALPHA,LRBETA IN POS 1.
039697,001648: 

Page 896

039699,001650: 33,3712           55666                           TS       LRLCTR                                #  SET L,M,R, ANS S TO ZERO
039700,001651: 33,3713           55670                           TS       LRMCTR                                
039701,001652: 33,3714           55667                           TS       LRRCTR                                
039702,001653: 33,3715           55671                           TS       LRSCTR                                
039703,001654: 33,3716           03722                           TC       SETPOS                                #  CONTINUE WITH COMPUTATIONS
039704,001655: 
039705,001656: 33,3717           31654                           CA       LRADRET1                              
039706,001657: 33,3720           04640                           TC       BANKJUMP                              #  RETURN TO CALLER
039707,001658: 
039708,001659: 
039709,001660: 33,3721           34752        SETPOS2            CA       TWO                                   #  INDEX FOR POS2
039710,001661: 33,3722           00006        SETPOS             EXTEND                                         
039711,001662: 33,3723           50000                           INDEX    A                                     
039712,001663: 33,3724           31413                           DCA      LRALPHA                               #  LRALPHA IN A, LRBETA IN L
039713,001664: 33,3725           54772                           TS       CDUSPOT    +4                         #  ROTATION ABOUT X
039714,001665: 33,3726           22766                           LXCH     CDUSPOT                               #  ROTATION ABOUT Y
039715,001666: 33,3727           34755                           CA       ZERO                                  
039716,001667: 33,3730           54770                           TS       CDUSPOT    +2                         #  ZERO ROTATION ABOUT Z.
039717,001668: 
039718,001669: 33,3731           00006                           EXTEND                                         
039719,001670: 33,3732           23646                           QXCH     LRADRET                               #  SAVE RETURN
039720,001671: 
039721,001672: 33,3733           06036                           TC       INTPRET                               
039722,001673: 33,3734           45175                           VLOAD    CALL                                  
039723,001674: 33,3735           06420                                    UNITY                                 #  CONVERT UNITY(ANTENNA) TO NB
039724,001675: 33,3736           47555                                    TRG*SMNB                              
039725,001676: 33,3737           26243                           STOVL    VYBEAMNB                              
039726,001677: 33,3740           06422                                    UNITX                                 #  CONVERT UNITX(ANTENNA) TO NB
039727,001678: 33,3741           77624                           CALL                                           
039728,001679: 33,3742           47575                                    *SMNB*                                
039729,001680: 33,3743           02251                           STORE    VXBEAMNB                              
039730,001681: 33,3744           76435                           VXV      VSL1                                  
039731,001682: 33,3745           02243                                    VYBEAMNB                              
039732,001683: 33,3746           26235                           STOVL    VZBEAMNB                              #  Z = X * Y
039733,001684: 33,3747           26003                                    HBEAMANT                              
039734,001685: 33,3750           77624                           CALL                                           
039735,001686: 33,3751           47575                                    *SMNB*                                #  CONVERT TO NB
039736,001687: 33,3752           02313                           STORE    HBEAMNB                               
039737,001688: 33,3753           77776                           EXIT                                           
039738,001689: 33,3754           01646                           TC       LRADRET                               

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