Source Code

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

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

036770,000002:                                                                                                  ## Copyright:   Public domain.
036771,000003:                                                                                                  ## Filename:    SERVICER.agc
036772,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
036773,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
036774,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
036775,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
036776,000008:                                                                                                  ##              that the code format has been changed to conform to the
036777,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
036778,000010:                                                                                                  ##              original YUL assembler.
036779,000011:                                                                                                  ## Reference:   pp. 852-890
036780,000012:                                                                                                  ## Assembler:   yaYUL
036781,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
036782,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
036783,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
036784,000016:                                                                                                  ##              2017-03-11 HG   Transcribed
036785,000017:                                                                                                  ##              2017-03-14 RSB  Proofed comment text via 3-way diff vs
036786,000018:                                                                                                  ##                              Luminary 99 and 131.
036787,000019:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
036788,000020:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
036789,000021:                                                                                                  ##              2017-03-19 HG   Fix label REREPCS -> REREPOS
036790,000022:                                                                                                  ##                              Fix operand XCVINFLG --> XOVINFLG
036791,000023: 

Page 852

036793,000025: 37,3410                                           BANK     37                                    
036794,000026: 37,2000                                           SETLOC   SERV1                                 
036795,000027: 37,2000                                           BANK                                           
036796,000028: 
036797,000029: 37,3410  E7,1515                                  EBANK=   DVCNTR                                
036798,000030:                                                                                                  #  *************************************   PREREAD   **************************************************************
036799,000031: 
036800,000032: 
036801,000033: 37,3410                                           COUNT*   $$/SERV                               
036802,000034: 
036803,000035: 37,3410           34757        PREREAD            CAF      SEVEN                                 #  5.7 SPOT TO SKIP LASTBIAS AFTER
036804,000036: 37,3411           03527                           TC       GNUFAZE5                              #  RESTART.
036805,000037: 37,3412           35031                           CAF      PRIO21                                
036806,000038: 37,3413           05072                           TC       NOVAC                                 
036807,000039: 37,3414  E3,1460                                  EBANK=   NBDX                                  
036808,000040: 37,3414           03671 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
036809,000041: 
036810,000042: 37,3416           03541        BIBIBIAS           TC       PIPASR     +3                         #  CLEAR + READ PIPS LAST TIME IN FRE5+F133
036811,000043:                                                                                                  #  DO NOT DESTROY VALUE OF PIPTIME1
036812,000044: 
036813,000045: 37,3417           40103                           CS       FLAGWRD7                              
036814,000046: 37,3420           74773                           MASK     SUPER011                              #  SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
036815,000047: 37,3421           26103                           ADS      FLAGWRD7                              #     OF FLAGWRD7)
036816,000048: 
036817,000049: 37,3422           44735                           CS       DRFTBIT                               
036818,000050: 37,3423           70076                           MASK     FLAGWRD2                              #  RESET DRIFTFLAG
036819,000051: 37,3424           54076                           TS       FLAGWRD2                              
036820,000052: 
036821,000053: 37,3425           34751                           CAF      FOUR                                  #  INITIALIZE DV MONITOR
036822,000054: 37,3426           55256                           TS       PIPAGE                                
036823,000055: 
036824,000056: 37,3427           37713                           CAF      PRIO22                                
036825,000057: 37,3430           05105                           TC       FINDVAC                               #  TO FIRST ENTRY TO AVERAGE G.
036826,000058: 37,3431  E7,1515                                  EBANK=   DVCNTR                                
036827,000059: 37,3431           02463 46067                     2CADR    NORMLIZE                              
036828,000060: 
036829,000061: 37,3433           34752                           CA       TWO                                   #  5.2SPOT FOR REREADAC AND NORMLIZE
036830,000062: 37,3434           03523        GOREADAX           TC       GNUTFAZ5                              
036831,000063: 37,3435           35000                           CA       2SECS                                 #  WAIT TWO SECONDS FOR READACCS
036832,000064: 37,3436           05224                           TC       VARDELAY                              
036833,000065: 

Page 853

036835,000067:                                                                                                  #  *************************************   READACCS   *************************************************************
036836,000068: 37,3437           43535        READACCS           CS       OCT37771                              #  THIS PIECE OF CODING ATTEMPTS TO
036837,000069: 37,3440           60030                           AD       TIME5                                 #  SYNCHRONIZE READACCS WITH THE DIGITAL
036838,000070: 37,3441           10000                           CCS      A                                     #  AUTOPILOT SO THAT A PAXIS RUPT WILL
036839,000071: 37,3442           44753                           CS       ONE                                   #  OCCUR APPROXIMATELY 70 MILLISECONDS
036840,000072: 37,3443           13445                           TCF      +2                                    #  FOLLOWING THE READACCS RUPT.  THE 70 MS
036841,000073: 37,3444           34753                           CA       ONE                                   #  OFFSET WAS CHOSEN SO THAT THE PAXIS
036842,000074: 37,3445           26030                 +2        ADS      TIME5                                 #  RUPT WOULD NOT OCCUR SIMULTANEOUSLY
036843,000075:                                                                                                  #  WITH ANY OF THE 8 SUBSEQUENT R10,R11
036844,000076:                                                                                                  #  INTERRUPTS -- THUS MINIMIZING THE POSS-
036845,000077:                                                                                                  #  IBILITY OF LOSING DOWNRUPTS.
036846,000078: 
036847,000079: 37,3446           03536                           TC       PIPASR                                #  READ THE PIPAS.
036848,000080: 
036849,000081: 37,3447           34756        PIPSDONE           CA       FIVE                                  
036850,000082: 37,3450           03527                           TC       GNUFAZE5                              
036851,000083: 37,3451           34753        REDO5.5            CAF      ONE                                   
036852,000084: 37,3452           55256                           TS       PIPAGE                                
036853,000085: 
036854,000086: 37,3453           34736                           CA       PRIO20                                
036855,000087: 37,3454           05105                           TC       FINDVAC                               
036856,000088: 37,3455  E7,1515                                  EBANK=   DVCNTR                                
036857,000089: 37,3455           02206 66067                     2CADR    SERVICER                              #  SET UP SERVICER JOB
036858,000090: 
036859,000091: 37,3457           34743                           CA       BIT9                                  
036860,000092: 37,3460           00006                           EXTEND                                         
036861,000093: 37,3461           05011                           WOR      DSALMOUT                              #  TURN ON TEST CONNECTOR OUTBIT
036862,000094: 
036863,000095: 37,3462           30103                           CA       FLAGWRD7                              
036864,000096: 37,3463           74747                           MASK     AVEGFBIT                              
036865,000097: 37,3464           00006                           EXTEND                                         
036866,000098: 37,3465           13515                           BZF      AVEGOUT                               #  AVEGFLAG DOWN - SET UP FINAL EXIT
036867,000099: 
036868,000100: 37,3466           30102                           CA       FLAGWRD6                              
036869,000101: 37,3467           74744                           MASK     MUNFLBIT                              
036870,000102: 37,3470           00006                           EXTEND                                         
036871,000103: 37,3471           13513                           BZF      MAKEACCS                              #  MUNFLAG CLEAR - BYPASS LR AND DISP.
036872,000104: 
036873,000105: 37,3472           10754                           CCS      PHASE2                                
036874,000106: 37,3473           13513                           TCF      MAKEACCS                              #  PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
036875,000107: 
036876,000108: 37,3474           34757                           CAF      SEVEN                                 #  SET PIPCTR FOR 4X/SEC RATE.
036877,000109: 37,3475           55055                           TS       PIPCTR                                
036878,000110: 
036879,000111: 37,3476           40025                           CS       TIME1                                 #  SET TBASE2 .05 SECONDS IN THE PAST.
036880,000112: 37,3477           64756                           AD       FIVE                                  
036881,000113: 37,3500           64734                           AD       NEG1/2                                
036882,000114: 37,3501           64734                           AD       NEG1/2                                
036883,000115: 37,3502           57054                           XCH      TBASE2                                
036884,000116: 

Page 854

036886,000118: 37,3503           34361                           CAF      DEC17                                 #  2.21SPOT FOR R10,R11
036887,000119: 37,3504           54001                           TS       L                                     
036888,000120: 37,3505           40000                           COM                                            
036889,000121: 37,3506           52754                           DXCH     -PHASE2                               
036890,000122: 
036891,000123: 37,3507           36007                           CAF      OCT24                                 #  FIRST R10,R11 IN .200 SECONDS.
036892,000124: 37,3510           05203                           TC       WAITLIST                              
036893,000125: 37,3511  E7,1536                                  EBANK=   UNIT/R/                               
036894,000126: 37,3511           02006 42067                     2CADR    R10,R11                               
036895,000127: 
036896,000128: 37,3513           34751        MAKEACCS           CA       FOUR                                  
036897,000129: 37,3514           13434                           TCF      GOREADAX                              #  DO PHASE CHANGE AND RECALL READACCS
036898,000130: 
036899,000131: 
036900,000132: 37,3515           00006        AVEGOUT            EXTEND                                         
036901,000133: 37,3516           33534                           DCA      AVOUTCAD                              #  SET UP FINAL SERVICER EXIT
036902,000134: 37,3517           53252                           DXCH     AVGEXIT                               
036903,000135: 
036904,000136: 37,3520           34751                           CA       FOUR                                  #  SET 5.4 SPOT FOR REREADAC AND SERVICER
036905,000137: 37,3521           03523                           TC       GNUTFAZ5                              #  IF REREADAC IS CALLED, IT WILL EXIT
036906,000138: 37,3522           05261                           TC       TASKOVER                              #  END TASK WITHOUT CALLING READACCS
036907,000139: 
036908,000140: 
036909,000141: 37,3523           54001        GNUTFAZ5           TS       L                                     #  SAVE INPUT IN L
036910,000142: 37,3524           40025                           CS       TIME1                                 
036911,000143: 37,3525           55062                           TS       TBASE5                                #  SET TBASE5
036912,000144: 37,3526           13530                           TCF      +2                                    
036913,000145: 
036914,000146: 37,3527           54001        GNUFAZE5           TS       L                                     #  SAVE INPUT IN L
036915,000147: 37,3530           40001                           CS       L                                     #  -PHASE IN A, PHASE IN L
036916,000148: 37,3531           52762                           DXCH     -PHASE5                               #  SET -PHASE5,PHASE5
036917,000149: 37,3532           00002                           TC       Q                                     
036918,000150: 
036919,000151: 
036920,000152: 37,3533  E7,1515                                  EBANK=   DVCNTR                                
036921,000153: 37,3533           03661 44067  AVOUTCAD           2CADR    AVGEND                                
036922,000154: 
036923,000155: 37,3535           37771        OCT37771           OCT      37771                                 
036924,000156: 
036925,000157: 33,2206                                           BANK     33                                    
036926,000158: 33,2000                                           SETLOC   SERVICES                              
036927,000159: 33,2000                                           BANK                                           
036928,000160: 
036929,000161: 33,2206                                           COUNT*   $$/SERV                               
036930,000162: 

Page 855

036932,000164:                                                                                                  #  *************************************   SERVICER   *************************************************************
036933,000165: 
036934,000166: 
036935,000167: 33,2206           05353        SERVICER           TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
036936,000168: 33,2207           16035                           OCT      16035                                 
036937,000169: 33,2210           20000                           OCT      20000                                 
036938,000170: 33,2211  E7,1515                                  EBANK=   DVCNTR                                
036939,000171: 33,2211           02217 66067                     2CADR    GETABVAL                              
036940,000172: 33,2213           37721                           CAF      PRIO31                                #  INITIALIZE 1/PIPADT IN CASE RESTART HAS
036941,000173: 33,2214           55074                           TS       1/PIPADT                              #  CAUSED LASTBIAS TO BE SKIPPED.
036942,000174: 
036943,000175: 
036944,000176: 33,2215           04616                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
036945,000177: 33,2216           15271                           CADR     1/PIPA                                
036946,000178: 
036947,000179: 33,2217           06042        GETABVAL           TC       INTPRET                               
036948,000180: 33,2220           51575                           VLOAD    ABVAL                                 
036949,000181: 33,2221           00325                                    DELV                                  
036950,000182: 33,2222           77776                           EXIT                                           
036951,000183: 33,2223           30154                           CA       MPAC                                  
036952,000184: 33,2224           55245                           TS       ABDELV                                #  ABDELV = CM/SEC*2(-14).
036953,000185: 33,2225           00006                           EXTEND                                         
036954,000186: 33,2226           72020                           MP       KPIP                                  
036955,000187: 33,2227           53514                           DXCH     ABDVCONV                              #  ABDVCONV = M/CS * 2(-5).
036956,000188: 33,2230           00006                           EXTEND                                         
036957,000189: 33,2231           31244                           DCA      MASS                                  
036958,000190: 33,2232           53571                           DXCH     MASS1                                 #  INITIALIZE MASS1 IN CASE WE SKIP MASSMON
036959,000191: 33,2233           40104        MASSMON            CS       FLAGWRD8                              #  ARE WE ON THE SURFACE?
036960,000192: 33,2234           74744                           MASK     SURFFBIT                              
036961,000193: 33,2235           00006                           EXTEND                                         
036962,000194: 33,2236           12254                           BZF      MOONSPOT                              #  YES:  BYPASS MASS MESS
036963,000195: 
036964,000196: 33,2237           30106                           CA       FLGWRD10                              #  NO:   WHICH VEX SHOULD BE USED?
036965,000197: 33,2240           74737                           MASK     APSFLBIT                              
036966,000198: 33,2241           10000                           CCS      A                                     
036967,000199: 33,2242           00006                           EXTEND                                         #  IF EXTEND IS EXECUTED, APSVEX --> A,
036968,000200: 33,2243           32001                           DCA      APSVEX                                #    OTHERWISE DPSVEX --> A
036969,000201: 33,2244           54002                           TS       Q                                     
036970,000202: 
036971,000203: 33,2245           00006                           EXTEND                                         
036972,000204: 33,2246           31514                           DCA      ABDVCONV                              
036973,000205: 33,2247           00006                           EXTEND                                         
036974,000206: 33,2250           10002        OCT10002           DV       Q                                     #  WHERE APPROPRIATE VEX RESIDES
036975,000207: 33,2251           00006                           EXTEND                                         
036976,000208: 33,2252           71243                           MP       MASS                                  
036977,000209: 33,2253           21571                           DAS      MASS1                                 
036978,000210: 
036979,000211: 33,2254           32021        MOONSPOT           CA       KPIP1                                 #  TP MPAC = ABDELV AT 2(14) CM/SEC
036980,000212: 33,2255           07312                           TC       SHORTMP                               #  MULTIPLY BY KPIP1 TO GET
036981,000213: 

Page 856

036983,000215: 33,2256           52155                           DXCH     MPAC                                  #  ABDELV AT 2(7) M/CS
036984,000216: 33,2257           21510                           DAS      DVTOTAL                               #  UPDATE DVTOTAL FOR DISPLAY
036985,000217: 
036986,000218: 33,2260           02440                           TC       TMPTOSPT                              
036987,000219: 
036988,000220: 33,2261           04616                           TC       BANKCALL                              
036989,000221: 33,2262           47617                           CADR     QUICTRIG                              
036990,000222: 
036991,000223: 33,2263           32414                           CAF      XNBPIPAD                              
036992,000224: 33,2264           04616                           TC       BANKCALL                              
036993,000225: 33,2265           20037                           CADR     FLESHPOT                              
036994,000226: 33,2266           06042                           TC       INTPRET                               
036995,000227: 33,2267           45014        AVERAGEG           BON      CALL                                  
036996,000228: 33,2270           03307                                    MUNFLAG                               
036997,000229: 33,2271           66771                                    RVBOTH                                
036998,000230: 33,2272           66735                                    CALCRVG                               
036999,000231: 33,2273           77776                           EXIT                                           
037000,000232: 33,2274           03514        GOSERV             TC       QUIKFAZ5                              
037001,000233: 
037002,000234: 33,2275           02423        COPYCYCL           TC       COPYCYC                               
037003,000235: 
037004,000236:                                                                                                  #                CA      ZERO             A IS ZERO ON RETURN FROM COPYCYC
037005,000237: 33,2276           55157                           TS       PIPATMPX                              #  STILL UNDER INHINT
037006,000238: 33,2277           55160                           TS       PIPATMPY                              
037007,000239: 33,2300           55161                           TS       PIPATMPZ                              
037008,000240: 
037009,000241: 33,2301           44741                           CS       STEERBIT                              #  CLEAR STEERSW PRIOR TO DVMON.
037010,000242: 33,2302           70076                           MASK     FLAGWRD2                              
037011,000243: 33,2303           54076                           TS       FLAGWRD2                              
037012,000244: 
037013,000245: 33,2304           34745                           CAF      IDLEFBIT                              #  IS THE IDLE FLAG SET?
037014,000246: 33,2305           70103                           MASK     FLAGWRD7                              
037015,000247: 33,2306           10000                           CCS      A                                     
037016,000248: 33,2307           12342                           TCF      NODVMON1                              #  IDLEFLAG = 1, HENCE SET AUXFLAG TO 0.
037017,000249: 
037018,000250: 33,2310           40102                           CS       FLAGWRD6                              
037019,000251: 33,2311           74752                           MASK     AUXFLBIT                              
037020,000252: 33,2312           10000                           CCS      A                                     
037021,000253: 33,2313           12346                           TCF      NODVMON2                              #  AUXFLAG = 0, HENCE SET AUXFLAG TO 1.
037022,000254: 
037023,000255: 33,2314           41250        DVMON              CS       DVTHRUSH                              
037024,000256: 33,2315           61245                           AD       ABDELV                                
037025,000257: 33,2316           00006                           EXTEND                                         
037026,000258: 33,2317           62352                           BZMF     LOTHRUST                              
037027,000259: 
037028,000260: 33,2320           40076                           CS       FLAGWRD2                              #  SET STEERSW.
037029,000261: 33,2321           74741                           MASK     STEERBIT                              
037030,000262: 33,2322           26076                           ADS      FLAGWRD2                              
037031,000263: 
037032,000264: 33,2323           34753        DVCNTSET           CAF      ONE                                   #  ALLOW TWO PASSES MAXIMUM NOW THAT
037033,000265: 

Page 857

037035,000267: 33,2324           55515                           TS       DVCNTR                                #  THRUST HAS BEEN DETECTED.
037036,000268: 
037037,000269: 33,2325           30106                           CA       FLGWRD10                              #  BRANCH IF APSFLAG IS SET.
037038,000270: 33,2326           74737                           MASK     APSFLBIT                              
037039,000271: 33,2327           10000                           CCS      A                                     
037040,000272: 33,2330           12375                           TCF      USEJETS                               
037041,000273: 
037042,000274: 33,2331           34743                           CA       BIT9                                  #  CHECK GIMBAL FAIL BIT
037043,000275: 33,2332           00006                           EXTEND                                         
037044,000276: 33,2333           02032                           RAND     CHAN32                                
037045,000277: 33,2334           00006                           EXTEND                                         
037046,000278: 33,2335           12375                           BZF      USEJETS                               
037047,000279: 
037048,000280: 33,2336           44736        USEGTS             CS       USEQRJTS                              
037049,000281: 33,2337           70111                           MASK     DAPBOOLS                              
037050,000282: 33,2340           54111                           TS       DAPBOOLS                              
037051,000283: 33,2341           12400                           TCF      SERVOUT                               
037052,000284: 
037053,000285: 33,2342           44752        NODVMON1           CS       AUXFLBIT                              #  SET AUXFLAG TO 0.
037054,000286: 33,2343           70102                           MASK     FLAGWRD6                              
037055,000287: 33,2344           54102                           TS       FLAGWRD6                              
037056,000288: 33,2345           12375                           TCF      USEJETS                               
037057,000289: 33,2346           40102        NODVMON2           CS       FLAGWRD6                              #  SET AUXFLAG TO 1.
037058,000290: 33,2347           74752                           MASK     AUXFLBIT                              
037059,000291: 33,2350           26102                           ADS      FLAGWRD6                              
037060,000292: 33,2351           12375                           TCF      USEJETS                               
037061,000293: 
037062,000294: 33,2352           03514        LOTHRUST           TC       QUIKFAZ5                              
037063,000295: 33,2353           11515                           CCS      DVCNTR                                
037064,000296: 33,2354           12366                           TCF      DECCNTR                               
037065,000297: 
037066,000298: 33,2355           10760                           CCS      PHASE4                                #  COMFAIL JOB ACTIVE?
037067,000299: 33,2356           12400                           TCF      SERVOUT                               #  YES   WON'T NEED ANOTHER.
037068,000300: 
037069,000301: 33,2357           05353                           TC       PHASCHNG                              #  4.37SPOT FOR COMFAIL.
037070,000302: 33,2360           00374                           OCT      00374                                 
037071,000303: 
037072,000304: 33,2361           37716                           CAF      PRIO25                                
037073,000305: 33,2362           05072                           TC       NOVAC                                 
037074,000306: 33,2363  E7,1455                                  EBANK=   WHICH                                 
037075,000307: 33,2363           02575 74067                     2CADR    COMFAIL                               
037076,000308: 33,2365           12400                           TCF      SERVOUT                               
037077,000309: 
037078,000310: 33,2366           55570        DECCNTR            TS       DVCNTR1                               
037079,000311: 33,2367           03514                           TC       QUIKFAZ5                              
037080,000312: 33,2370           31570                           CA       DVCNTR1                               
037081,000313: 33,2371           55515                           TS       DVCNTR                                
037082,000314: 33,2372           00004                           INHINT                                         
037083,000315: 33,2373           04674                           TC       IBNKCALL                              #  IF THRUST IS LOW, NO STEERING IS DONE
037084,000316: 

Page 858

037086,000318: 33,2374           40166                           CADR     STOPRATE                              #  AND THE DESIRED RATES ARE SET TO ZERO.
037087,000319: 33,2375           40111        USEJETS            CS       DAPBOOLS                              
037088,000320: 33,2376           74736                           MASK     USEQRJTS                              
037089,000321: 33,2377           26111                           ADS      DAPBOOLS                              
037090,000322: 33,2400           00003        SERVOUT            RELINT                                         
037091,000323: 33,2401           04616                           TC       BANKCALL                              
037092,000324: 33,2402           40463                           CADR     1/ACCS                                
037093,000325: 
037094,000326: 33,2403           30167                           CA       PRIORITY                              
037095,000327: 33,2404           75004                           MASK     LOW9                                  
037096,000328: 33,2405           54166                           TS       PUSHLOC                               
037097,000329: 33,2406           22007                           ZL                                             
037098,000330: 33,2407           52121                           DXCH     FIXLOC                                #  FIXLOC AND OVFIND
037099,000331: 
037100,000332: 33,2410           03514                           TC       QUIKFAZ5                              
037101,000333: 33,2411           00006                           EXTEND                                         #  EXIT TO SELECTED ROUTINE WHETHER THERE
037102,000334: 33,2412           31252                           DCA      AVGEXIT                               #  IS THRUST OR NOT.  THE STATE OF STEERSW
037103,000335: 33,2413           52006                           DXCH     Z                                     #  WILL CONVEY THIS INFORMATION.
037104,000336: 
037105,000337: 33,2414           02145        XNBPIPAD           ECADR    XNBPIP                                
037106,000338: 
037107,000339: 32,3761                                           BANK     32                                    
037108,000340: 22,2000                                           SETLOC   SERV2                                 
037109,000341: 22,2000                                           BANK                                           
037110,000342: 22,3661                                           COUNT*   $$/SERV                               
037111,000343: 
037112,000344: 22,3661           31234        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
037113,000345: 22,3662           55074                           TS       1/PIPADT                              #  SET UP FREE FALL GYRO COMPENSATION.
037114,000346: 
037115,000347: 22,3663           05504                           TC       UPFLAG                                #  SET DRIFT FLAG.
037116,000348: 22,3664           00036                           ADRES    DRIFTFLG                              
037117,000349: 
037118,000350: 22,3665           04616                           TC       BANKCALL                              
037119,000351: 22,3666           17302                           CADR     PIPFREE                               
037120,000352: 
037121,000353: 22,3667           44743                           CS       BIT9                                  
037122,000354: 22,3670           00006                           EXTEND                                         
037123,000355: 22,3671           03011                           WAND     DSALMOUT                              
037124,000356: 
037125,000357: 22,3672           05327                           TC       2PHSCHNG                              
037126,000358: 22,3673           00005                           OCT      5                                     #  GROUP 5 OFF
037127,000359: 22,3674           05022                           OCT      05022                                 #  GROUP 2 ON
037128,000360: 22,3675           20000                           OCT      20000                                 
037129,000361: 
037130,000362: 22,3676           06042                           TC       INTPRET                               
037131,000363: 22,3677           43014                           SET      CLEAR                                 
037132,000364: 22,3700           01464                                    NOR29FLG                              #  SHUT OFF R29 WHEN SERVICER ENDS.
037133,000365: 22,3701           03664                                    SWANDISP                              #  SHUT OFF R10 WHEN SERVICER ENDS.
037134,000366: 22,3702           45014                           CLEAR    CALL                                  #  RESET MUNFLAG.
037135,000367: 22,3703           03267                                    MUNFLAG                               
037136,000368: 

Page 859

037138,000370: 22,3704           27465                                    AVETOMID                              
037139,000371: 22,3705           77414                           CLEAR    EXIT                                  
037140,000372: 22,3706           03671                                    V37FLAG                               
037141,000373: 22,3707           04635        AVERTRN            TC       POSTJUMP                              
037142,000374: 22,3710           10116                           CADR     V37RET                                
037143,000375: 
037144,000376: 22,3711  22,3707               OUTGOAVE           =        AVERTRN                               
037145,000377: 
037146,000378: 22,3711  E7,1570               DVCNTR1            =        MASS1                                 
037147,000379: 

Page 860

037149,000381: 27,2000                                           SETLOC   SERV3                                 
037150,000382: 27,2000                                           BANK                                           
037151,000383: 27,3321                                           COUNT*   $$/SERV                               
037152,000384: 
037153,000385: 27,3321           00006        SERVIDLE           EXTEND                                         #  DISCONNECT SERVICER FROM ALL GUIDANCE
037154,000386: 27,3322           33357                           DCA      SVEXTADR                              
037155,000387: 27,3323           53252                           DXCH     AVGEXIT                               
037156,000388: 
037157,000389: 27,3324           40103                           CS       FLAGWRD7                              #  DISCONNECT THE DELTA-V MONITOR
037158,000390: 27,3325           74745                           MASK     IDLEFBIT                              
037159,000391: 27,3326           26103                           ADS      FLAGWRD7                              
037160,000392: 
037161,000393: 27,3327           34735                           CAF      LRBYBIT                               #  TERMINATE R12 IF RUNNING.
037162,000394: 27,3330           54107                           TS       FLGWRD11                              
037163,000395: 
037164,000396: 27,3331           00006                           EXTEND                                         
037165,000397: 27,3332           34755                           DCA      NEG0                                  
037166,000398: 27,3333           52752                           DXCH     -PHASE1                               
037167,000399: 
037168,000400: 27,3334           30102                           CA       FLAGWRD6                              #  DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
037169,000401: 27,3335           74744                           MASK     MUNFLBIT                              
037170,000402: 27,3336           10000                           CCS      A                                     
037171,000403: 27,3337           13343                           TCF      +4                                    
037172,000404: 
037173,000405: 27,3340           00006                           EXTEND                                         
037174,000406: 27,3341           34755                           DCA      NEG0                                  
037175,000407: 27,3342           52754                           DXCH     -PHASE2                               
037176,000408: 
037177,000409: 27,3343           00006                 +4        EXTEND                                         
037178,000410: 27,3344           34755                           DCA      NEG0                                  
037179,000411: 27,3345           52756                           DXCH     -PHASE3                               
037180,000412: 
037181,000413: 27,3346           00006                           EXTEND                                         
037182,000414: 27,3347           34755                           DCA      NEG0                                  
037183,000415: 27,3350           52764                           DXCH     -PHASE6                               
037184,000416: 
037185,000417: 27,3351           34764                           CAF      OCT33                                 #  4.33SPOT FOR GOPOOFIX
037186,000418: 27,3352           54001                           TS       L                                     
037187,000419: 27,3353           40000                           COM                                            
037188,000420: 27,3354           52760                           DXCH     -PHASE4                               
037189,000421: 
037190,000422: 27,3355           15634                           TCF      WHIMPER                               #  PERFORM A SOFTWARE RESTART AND PROCEED
037191,000423:                                                                                                  #  TO GOTOPOOH WHILE SERVICER CONTINUES TO
037192,000424:                                                                                                  #  RUN, ALBEIT IN A GROUND STATE WHERE
037193,000425:                                                                                                  #  ONLY STATE-VECTOR DEPENDENT FUNCTIONS
037194,000426:                                                                                                  #  ARE MAINTAINED.
037195,000427: 
037196,000428: 27,3356  E7,1515                                  EBANK=   DVCNTR                                
037197,000429: 

Page 861

037199,000431: 27,3356           03761 64067  SVEXTADR           2CADR    SERVEXIT                              
037200,000432: 32,3761                                           BANK     32                                    
037201,000433: 32,2000                                           SETLOC   SERV                                  
037202,000434: 32,2000                                           BANK                                           
037203,000435: 32,3761                                           COUNT*   $$/SERV                               
037204,000436: 
037205,000437: 32,3761           05353        SERVEXIT           TC       PHASCHNG                              
037206,000438: 32,3762           00035                           OCT      00035                                 
037207,000439: 
037208,000440: 32,3763           15155                           TCF      ENDOFJOB                              
037209,000441: 
037210,000442: 23,2463                                           BANK     23                                    
037211,000443: 23,2000                                           SETLOC   NORMLIZ                               
037212,000444: 23,2000                                           BANK                                           
037213,000445: 
037214,000446: 23,2463                                           COUNT*   $$/SERV                               
037215,000447: 

Page 862

037217,000449:                                                                                                  #  NORMLIZE AND COPYCYCL
037218,000450: 
037219,000451: 23,2463           06042        NORMLIZE           TC       INTPRET                               
037220,000452: 23,2464           43175                           VLOAD    BOFF                                  
037221,000453: 23,2465           03545                                    RN1                                   
037222,000454: 23,2466           03347                                    MUNFLAG                               
037223,000455: 23,2467           66415                                    NORMLIZ1                              
037224,000456: 23,2470           64252                           VSL6     MXV                                   
037225,000457: 23,2471           01734                                    REFSMMAT                              
037226,000458: 23,2472           37521                           STCALL   R                                     
037227,000459: 23,2473           67067                                    MUNGRAV                               
037228,000460: 23,2474           76575                           VLOAD    VSL1                                  
037229,000461: 23,2475           03553                                    VN1                                   
037230,000462: 23,2476           77721                           MXV                                            
037231,000463: 23,2477           01734                                    REFSMMAT                              
037232,000464: 23,2500           27527                           STOVL    V                                     
037233,000465: 23,2501           01726                                    V(CSM)                                
037234,000466: 23,2502           53435                           VXV      UNIT                                  
037235,000467: 23,2503           01720                                    R(CSM)                                
037236,000468: 23,2504           03720                           STORE    UHYP                                  
037237,000469: 23,2505           77776        ASCSPOT            EXIT                                           
037238,000470: 23,2506           00006                           EXTEND                                         #  MAKE SURE GOUP 2 IS OFF.
037239,000471: 23,2507           34755                           DCA      NEG0                                  
037240,000472: 23,2510           52754                           DXCH     -PHASE2                               
037241,000473: 
037242,000474: 23,2511           04635                           TC       POSTJUMP                              
037243,000475: 23,2512           66420                           CADR     NORMLIZ2                              
037244,000476: 
037245,000477: 33,2415                                           BANK     33                                    
037246,000478: 33,2000                                           SETLOC   SERVICES                              
037247,000479: 33,2000                                           BANK                                           
037248,000480: 33,2415                                           COUNT*   $$/SERV                               
037249,000481: 
037250,000482: 33,2415           77624        NORMLIZ1           CALL                                           
037251,000483: 33,2416           66667                                    CALCGRAV                              
037252,000484: 33,2417           77776                           EXIT                                           
037253,000485: 
037254,000486: 33,2420           32437        NORMLIZ2           CA       EIGHTEEN                              
037255,000487: 33,2421           02424                           TC       COPYCYC    +1                         #  DO NOT COPY MASS IN NORMLIZE
037256,000488: 33,2422           05155                           TC       ENDOFJOB                              
037257,000489: 
037258,000490: 
037259,000491: 33,2423           36007        COPYCYC            CA       OCT24                                 #  DEC 20
037260,000492: 33,2424           00004                 +1        INHINT                                         
037261,000493: 33,2425           77752                 +2        MASK     NEG1                                  #  REDUCE BY 1 IF ODD
037262,000494: 33,2426           54061                           TS       ITEMP1                                
037263,000495: 33,2427           00006                           EXTEND                                         
037264,000496: 33,2430           50061                           INDEX    ITEMP1                                
037265,000497: 33,2431           31545                           DCA      RN1                                   
037266,000498: 33,2432           50061                           INDEX    ITEMP1                                
037267,000499: 

Page 863

037269,000501: 33,2433           53220                           DXCH     RN                                    
037270,000502: 33,2434           10061                           CCS      ITEMP1                                
037271,000503: 33,2435           12425                           TCF      COPYCYC    +2                         
037272,000504: 33,2436           00002                           TC       Q                                     #  RETURN UNDER INHINT
037273,000505: 
037274,000506: 
037275,000507: 33,2437           00022        EIGHTEEN           DEC      18         B-14                       
037276,000508: 

Page 864

037278,000510:                                                                                                  #  ******************* PIPA READER ********************
037279,000511: 
037280,000512: 
037281,000513:                                                                                                  #                  MOD NO. 00  BY D. LICKLY  DEC.9 1966
037282,000514: 
037283,000515: 
037284,000516:                                                                                                  #  FUNCTIONAL DESCRIPTION
037285,000517: 
037286,000518:                                                                                                  #     SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
037287,000519:                                                                                                  #     PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
037288,000520:                                                                                                  #     RESTARTS BEGIN AT REREADAC.
037289,000521: 
037290,000522: 
037291,000523:                                                                                                  #     AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
037292,000524:                                                                                                  #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
037293,000525:                                                                                                  #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
037294,000526:                                                                                                  #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
037295,000527: 
037296,000528:                                                                                                  #  CALLING SEQUENCE AND EXIT
037297,000529: 
037298,000530:                                                                                                  #     CALL VIA TC, ISWCALL, ETC.
037299,000531: 
037300,000532:                                                                                                  #     EXIT IS VIA Q.
037301,000533: 
037302,000534: 
037303,000535: 
037304,000536: 
037305,000537:                                                                                                  #  INPUT
037306,000538: 
037307,000539:                                                                                                  #     INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
037308,000540: 
037309,000541: 
037310,000542:                                                                                                  #  OUTPUT
037311,000543: 
037312,000544:                                                                                                  #     HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
037313,000545:                                                                                                  #     PIPTIME CONTAINS TIME OF PIPA READING.
037314,000546: 
037315,000547: 
037316,000548:                                                                                                  #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
037317,000549: 
037318,000550:                                                                                                  #           TEMX   TEMY   TEMZ   PIPAGE
037319,000551: 
037320,000552: 
037321,000553: 37,3536                                           BANK     37                                    
037322,000554: 37,2000                                           SETLOC   SERV1                                 
037323,000555: 37,2000                                           BANK                                           
037324,000556: 
037325,000557: 37,3536                                           COUNT*   $$/SERV                               
037326,000558: 
037327,000559: 37,3536           00006        PIPASR             EXTEND                                         

Page 865

037329,000561: 37,3537           30025                           DCA      TIME2                                 
037330,000562: 37,3540           53561                           DXCH     PIPTIME1                              #  CURRENT TIME POSITIVE VALUE
037331,000563: 37,3541           44755                 +3        CS       ZERO                                  #  INITIALIZE THESE AT NEG. ZERO.
037332,000564: 37,3542           55253                           TS       TEMX                                  
037333,000565: 37,3543           55254                           TS       TEMY                                  
037334,000566: 37,3544           55255                           TS       TEMZ                                  
037335,000567: 
037336,000568: 37,3545           34755                           CA       ZERO                                  
037337,000569: 37,3546           54330                           TS       DELVZ                                 
037338,000570: 37,3547           54331                           TS       DELVZ      +1                         
037339,000571: 37,3550           54326                           TS       DELVY                                 
037340,000572: 37,3551           54327                           TS       DELVY      +1                         
037341,000573: 37,3552           54325                           TS       DELVX      +1                         
037342,000574: 37,3553           55256                           TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
037343,000575: 
037344,000576: 37,3554           00006        REPIP1             EXTEND                                         
037345,000577: 37,3555           40040                           DCS      PIPAX                                 #  X AND Y PIPS READ
037346,000578: 37,3556           53254                           DXCH     TEMX                                  
037347,000579: 37,3557           52040                           DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
037348,000580: 37,3560           54324                           TS       DELVX                                 
037349,000581: 37,3561           22326                           LXCH     DELVY                                 
037350,000582: 
037351,000583: 37,3562           40041        REPIP3             CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
037352,000584: 37,3563           57255                           XCH      TEMZ                                  
037353,000585: 37,3564           56041                           XCH      PIPAZ                                 
037354,000586: 37,3565           54330        DODELVZ            TS       DELVZ                                 
037355,000587: 
037356,000588: 37,3566           00006        REPIP4             EXTEND                                         #  COMPUTE GUIDANCE PERIOD
037357,000589: 37,3567           31561                           DCA      PIPTIME1                              
037358,000590: 37,3570           53247                           DXCH     PGUIDE                                
037359,000591: 37,3571           00006                           EXTEND                                         
037360,000592: 37,3572           41234                           DCS      PIPTIME                               
037361,000593: 37,3573           21247                           DAS      PGUIDE                                
037362,000594: 
037363,000595: 37,3574           30032                           CA       CDUX                                  #  READ CDUS INTO HIGH ORDER CDUTEMPS
037364,000596: 37,3575           55154                           TS       CDUTEMPX                              
037365,000597: 37,3576           30033                           CA       CDUY                                  
037366,000598: 37,3577           55155                           TS       CDUTEMPY                              
037367,000599: 37,3600           30034                           CA       CDUZ                                  
037368,000600: 37,3601           55156                           TS       CDUTEMPZ                              
037369,000601: 37,3602           30324                           CA       DELVX                                 
037370,000602: 37,3603           55157                           TS       PIPATMPX                              
037371,000603: 37,3604           30326                           CA       DELVY                                 
037372,000604: 37,3605           55160                           TS       PIPATMPY                              
037373,000605: 37,3606           30330                           CA       DELVZ                                 
037374,000606: 37,3607           55161                           TS       PIPATMPZ                              
037375,000607: 
037376,000608: 37,3610           00002                           TC       Q                                     
037377,000609: 

Page 866

037379,000611: 37,3611           11256        REREADAC           CCS      PIPAGE                                
037380,000612: 37,3612           13437                           TCF      READACCS                              #  PIP READING NOT STARTED. GO TO BEGINNING
037381,000613: 
037382,000614: 37,3613           33651                           CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
037383,000615: 37,3614           54002                           TS       Q                                     
037384,000616: 
037385,000617: 37,3615           10330                           CCS      DELVZ                                 
037386,000618: 37,3616           13566                           TCF      REPIP4                                #  Z DONE, GO DO CDUS
037387,000619: 37,3617           13622                           TCF      +3                                    #  Z NOT DONE, CHECK Y.
037388,000620: 37,3620           13566                           TCF      REPIP4                                
037389,000621: 37,3621           13566                           TCF      REPIP4                                
037390,000622: 
037391,000623: 37,3622           22007                           ZL                                             
037392,000624: 37,3623           10326                           CCS      DELVY                                 
037393,000625: 37,3624           13627                           TCF      +3                                    
037394,000626: 37,3625           13636                           TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
037395,000627: 37,3626           13627                           TCF      +1                                    
037396,000628: 37,3627           22041                           LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
037397,000629: 
037398,000630: 37,3630           11255                           CCS      TEMZ                                  
037399,000631: 37,3631           41255                           CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
037400,000632: 37,3632           13565                           TCF      DODELVZ                               
037401,000633: 37,3633           13631                           TCF      -2                                    
037402,000634: 37,3634           22330                           LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
037403,000635: 37,3635           13566                           TCF      REPIP4                                
037404,000636: 
037405,000637: 37,3636           11253        CHKTEMX            CCS      TEMX                                  #  HAS THIS CHANGED
037406,000638: 37,3637           41253                           CS       TEMX                                  #  YES
037407,000639: 37,3640           13643                           TCF      +3                                    #  YES
037408,000640: 37,3641           13637                           TCF      -2                                    #  YES
037409,000641: 37,3642           13554                           TCF      REPIP1                                #  NO
037410,000642: 37,3643           54324                           TS       DELVX                                 
037411,000643: 
037412,000644: 37,3644           41254                           CS       TEMY                                  
037413,000645: 37,3645           54326                           TS       DELVY                                 
037414,000646: 
037415,000647: 37,3646           44755                           CS       ZERO                                  #  ZERO X AND Y PIPS
037416,000648: 37,3647           52040                           DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
037417,000649: 
037418,000650: 37,3650           13562                           TCF      REPIP3                                
037419,000651: 
037420,000652: 37,3651           03447        DONEADR            GENADR   PIPSDONE                              
037421,000653: 

Page 867

037423,000655: 33,2440                                           BANK     33                                    
037424,000656: 33,2000                                           SETLOC   SERVICES                              
037425,000657: 33,2000                                           BANK                                           
037426,000658: 
037427,000659: 33,2440                                           COUNT*   $$/SERV                               
037428,000660: 
037429,000661: 33,2440           31155        TMPTOSPT           CA       CDUTEMPY                              #  THIS SUBROUTINE, CALLED BY AN RTB FROM
037430,000662: 33,2441           54765                           TS       CDUSPOTY                              #  INTERPRETIVE, LOADS THE CDUS CORRESPON-
037431,000663: 33,2442           31156                           CA       CDUTEMPZ                              #  DING TO PIPTIME INTO THE CDUSPOT VECTOR.
037432,000664: 33,2443           54767                           TS       CDUSPOTZ                              
037433,000665: 33,2444           31154                           CA       CDUTEMPX                              
037434,000666: 33,2445           54771                           TS       CDUSPOTX                              
037435,000667: 33,2446           00002                           TC       Q                                     
037436,000668: 
037437,000669:                                                                                                  #  LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING
037438,000670:                                                                                                  #  PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT.  THIS
037439,000671:                                                                                                  #  TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE
037440,000672:                                                                                                  #  LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT
037441,000673:                                                                                                  #  50 MS PRIOR TO THE NEXT READACCS TASK.
037442,000674: 
037443,000675: 21,2125                                           BANK     21                                    
037444,000676: 21,2000                                           SETLOC   R10                                   
037445,000677: 21,2000                                           BANK                                           
037446,000678: 
037447,000679: 21,2125                                           COUNT*   $$/SERV                               
037448,000680: 
037449,000681: 21,2125           40107        LRHTASK            CS       FLGWRD11                              
037450,000682: 21,2126           74735                           MASK     LRBYBIT                               
037451,000683: 21,2127           00006                           EXTEND                                         
037452,000684: 21,2130           12141                           BZF      GRP2OFF                               #  LR BYPASS SET - BYPASS ALL LR READING.
037453,000685: 
037454,000686: 21,2131           40107                           CS       FLGWRD11                              
037455,000687: 21,2132           74742                           MASK     NOLRRBIT                              #  IS LR READ INHIBITED?
037456,000688: 21,2133           00006                           EXTEND                                         
037457,000689: 21,2134           12141                           BZF      GRP2OFF                               #  YES.  BYPASS LR READ.
037458,000690: 
037459,000691: 21,2135           37723                           CA       PRIO32                                #  LR READ OK   SET JOB TO DO IT
037460,000692: 21,2136           05072                           TC       NOVAC                                 #  ABOUT 50 MS PRIOR TO PIPA READ
037461,000693: 21,2137  E7,1654                                  EBANK=   HMEAS                                 
037462,000694: 21,2137           03571 70067                     2CADR    LRHJOB                                
037463,000695: 21,2141           00006        GRP2OFF            EXTEND                                         
037464,000696: 21,2142           34755                           DCA      NEG0                                  
037465,000697: 21,2143           52754                           DXCH     -PHASE2                               
037466,000698: 21,2144           12021                           TCF      R10,R11A                              
037467,000699: 
037468,000700: 33,2447                                           BANK     33                                    
037469,000701: 33,2000                                           SETLOC   SERVICES                              
037470,000702: 33,2000                                           BANK                                           
037471,000703: 

Page 868

037473,000705: 33,2447                                           COUNT*   $$/SERV                               
037474,000706: 
037475,000707:                                                                                                  #  HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
037476,000708:                                                                                                  #  DESCENT PHASE.  HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
037477,000709:                                                                                                  #  FLAG (BIT10) IN LRSTAT.  THE HIGATJOB IS SET UP TO REPOSITION THE LR
037478,000710:                                                                                                  #  ANTENNA FROM POSITION 1 TO POSITION 2.  IF THE REPOSITIONING IS
037479,000711:                                                                                                  #  SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
037480,000712:                                                                                                  #  ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
037481,000713: 
037482,000714: 33,2447           05353        HIGATASK           TC       PHASCHNG                              
037483,000715: 33,2450           00051                           OCT      51                                    
037484,000716: 
037485,000717: 33,2451           37723                           CA       PRIO32                                
037486,000718: 33,2452           05105                           TC       FINDVAC                               
037487,000719: 33,2453  E7,1654                                  EBANK=   HMEAS                                 
037488,000720: 33,2453           03636 66067                     2CADR    HIGATJOB                              
037489,000721: 33,2455           40107                           CS       FLGWRD11                              
037490,000722: 33,2456           75015                           MASK     PRIO3                                 
037491,000723: 33,2457           26107                           ADS      FLGWRD11                              
037492,000724: 33,2460           12546                           TCF      CONTSERV   +1                         
037493,000725: 

Page 869

037495,000727:                                                                                                  #        MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
037496,000728: 
037497,000729: 33,2461           77776        MUNRETRN           EXIT                                           
037498,000730: 
037499,000731: 33,2462           40107                           CS       FLGWRD11                              
037500,000732: 33,2463           74735                           MASK     LRBYBIT                               
037501,000733: 33,2464           00006                           EXTEND                                         
037502,000734: 33,2465           12551                           BZF      COPYCYC1                              #  BYPASS LR LOGIC IF BIT15 IS SET.
037503,000735: 
037504,000736: 33,2466           40107                           CS       FLGWRD11                              #  CHECK IF AT 30000 FT
037505,000737: 33,2467           74743                           MASK     XORFLBIT                              
037506,000738: 33,2470           00006                           EXTEND                                         
037507,000739: 33,2471           12506                           BZF      R12                                   
037508,000740: 
037509,000741: 33,2472           00006        30KCHK             EXTEND                                         
037510,000742: 33,2473           33115                           DCA      1-30KFT                               
037511,000743: 33,2474           52155                           DXCH     MPAC                                  
037512,000744: 33,2475           00006                           EXTEND                                         
037513,000745: 33,2476           31535                           DCA      HCALC                                 
037514,000746: 33,2477           20155                           DAS      MPAC                                  
037515,000747: 
037516,000748: 33,2500           10000                           CCS      A                                     
037517,000749: 33,2501           12506                           TCF      R12                                   #  ALTITUDE > 30KFT
037518,000750: 33,2502           05504                           TC       UPFLAG                                #  ALTITUDE < 30KFT SET X-AXIS OVERRIDE
037519,000751: 33,2503           00311                           ADRES    XOVINFLG                              
037520,000752: 33,2504           05504                           TC       UPFLAG                                
037521,000753: 33,2505           00253                           ADRES    XORFLG                                
037522,000754: 
037523,000755: 33,2506           40107        R12                CS       FLGWRD11                              
037524,000756: 33,2507           74742                           MASK     NOLRRBIT                              
037525,000757: 33,2510           00006                           EXTEND                                         
037526,000758: 33,2511           12545                           BZF      CONTSERV                              
037527,000759: 
037528,000760: 33,2512           40107                           CS       FLGWRD11                              
037529,000761: 33,2513           74751                           MASK     NO511BIT                              
037530,000762: 33,2514           00006                           EXTEND                                         
037531,000763: 33,2515           13117                           BZF      UPDATCHK                              #  IF N0511BIT SET,DO NOT CHECK OR POSITION
037532,000764: 
037533,000765: 33,2516           40107        HITEST             CS       FLGWRD11                              
037534,000766: 33,2517           74741                           MASK     PSTHIBIT                              
037535,000767: 33,2520           00006                           EXTEND                                         
037536,000768: 33,2521           12540                           BZF      POS2CHK                               
037537,000769: 33,2522           31642        HIGATCHK           CA       TTF/8                                 #  IS TTF > CRITERION?   (TTF IS NEGATIVE)
037538,000770: 33,2523           61427                           AD       RPCRTIME                              
037539,000771: 33,2524           00006                           EXTEND                                         
037540,000772: 33,2525           62536                           BZMF     POS1CHK                               #  NO
037541,000773: 
037542,000774: 33,2526           34741                           CA       EBANK4                                #  MUST SWITCH EBANKS
037543,000775: 33,2527           56003                           XCH      EBANK                                 
037544,000776: 33,2530           54001                           TS       L                                     #  SAVE IN L
037545,000777: 

Page 870

037547,000779: 33,2531  E4,1545                                  EBANK=   XNBPIP                                
037548,000780: 33,2531           41545                           CS       XNBPIP                                #  UXBXP IN GSOP CH5
037549,000781: 33,2532  E7,1515                                  EBANK=   DVCNTR                                
037550,000782: 33,2532           22003                           LXCH     EBANK                                 #  RESTORE EBANK
037551,000783: 33,2533           61430                           AD       RPCRTQSW                              #  QSW - UXBXP
037552,000784: 33,2534           00006                           EXTEND                                         
037553,000785: 33,2535           62447                           BZMF     HIGATASK                              #  IF UXBXP > QSW,THEN REPOSITION
037554,000786: 
037555,000787: 33,2536           34746        POS1CHK            CAF      BIT6                                  
037556,000788: 33,2537           12541                           TCF      +2                                    
037557,000789: 
037558,000790: 33,2540           34745        POS2CHK            CAF      BIT7                                  
037559,000791: 33,2541           03676                           TC       POSTST                                
037560,000792: 33,2542           13117                           TCF      UPDATCHK                              #  LR IN RIGHT POSITION - CONTINUE
037561,000793: 
037562,000794: 33,2543           05567        LRPOSALM           TC       ALARM                                 #  LR NOT IN PROPER POS-ALARM-BYPASS UPDATE
037563,000795: 33,2544           00511                           OCT      511                                   #  AND CONTINUE SERVICER
037564,000796: 33,2545           00004        CONTSERV           INHINT                                         
037565,000797: 33,2546           43113                           CS       BITS4-7                               
037566,000798: 33,2547           70107                           MASK     FLGWRD11                              #  CLEAR LR MEASUREMENT MADE DISCRETES.
037567,000799: 33,2550           54107                           TS       FLGWRD11                              
037568,000800: 

Page 871

037570,000802: 33,2551           03514        COPYCYC1           TC       QUIKFAZ5                              
037571,000803: 
037572,000804: 33,2552           30077        R29?               CA       FLAGWRD3                              
037573,000805: 33,2553           75014                           MASK     NR29&RDR                              
037574,000806: 33,2554           10000                           CCS      A                                     #  IS NOR29FLG OR READRFLG SET?
037575,000807: 33,2555           12567                           TCF      R29NODES                              #  YES, SO DON'T DESIGNATE.
037576,000808: 
037577,000809: 33,2556           30110                           CA       RADMODES                              #  NO, SO R29 IS CALLED FOR.
037578,000810: 33,2557           72250                           MASK     OCT10002                              #  IS THE RR NOT ZEROING ITS CDUS, AND
037579,000811: 33,2560           10000                           CCS      A                                     #  IS THE RENDEZVOUS RADAR IN AUTO MODE?
037580,000812: 33,2561           12567                           TCF      R29NODES                              #  NO, SO DON'T DESIGNATE.
037581,000813: 
037582,000814: 33,2562           30110                           CA       RADMODES                              
037583,000815: 33,2563           77713                           MASK     PRIO22                                
037584,000816: 33,2564           10000                           CCS      A                                     #  IS RR REPOSITIONING OR REMODING?
037585,000817: 33,2565           12573                           TCF      NOR29NOW                              #  YES; COME BACK IN 2 SECONDS & TRY AGAIN.
037586,000818: 
037587,000819: 33,2566           12045                           TCF      R29                                   
037588,000820: 
037589,000821: 33,2567           00004        R29NODES           INHINT                                         #  R29 NOT ALLOWED THIS CYCLE.
037590,000822: 33,2570           44742                           CS       DESIGBIT                              #  SHOW THAT DESIGNATION IS OFF.
037591,000823: 33,2571           70110                           MASK     RADMODES                              
037592,000824: 33,2572           54110                           TS       RADMODES                              
037593,000825: 
037594,000826: 33,2573           06042        NOR29NOW           TC       INTPRET                               #  INTPRET DOES A RELINT.
037595,000827: 33,2574           51575                           VLOAD    ABVAL                                 #  MPAC = ABVAL( NEW SM. POSITION VECTOR)
037596,000828: 33,2575           03573                                    R1S                                   
037597,000829: 33,2576           45206                           PUSH     DSU                                   #                                      (2)
037598,000830: 33,2577           02333                                    /LAND/                                
037599,000831: 33,2600           03535                           STORE    HCALC                                 #  NEW HCALC*2(24)M.
037600,000832: 33,2601           03775                           STORE    HCALC1                                
037601,000833: 33,2602           47075                           DMPR     RTB                                   
037602,000834: 33,2603           26026                                    ALTCONV                               
037603,000835: 33,2604           21613                                    SGNAGREE                              
037604,000836: 33,2605           27742                           STOVL    ALTBITS                               #  ALTITUDE FOR R10 IN BIT UNITS.
037605,000837: 33,2606           03537                                    UNIT/R/                               
037606,000838: 33,2607           53435                           VXV      UNIT                                  
037607,000839: 33,2610           03720                                    UHYP                                  
037608,000840: 33,2611           27726                           STOVL    UHZP                                  #  DOWNRANGE HALF-UNIT VECTOR FOR R10.
037609,000841: 33,2612           03573                                    R1S                                   
037610,000842: 33,2613           60505                           VXM      VSR4                                  
037611,000843: 33,2614           01734                                    REFSMMAT                              
037612,000844: 33,2615           27545                           STOVL    RN1                                   #  TEMP. REF. POSITION VECTOR*2(29)M.
037613,000845: 33,2616           03601                                    V1S                                   
037614,000846: 33,2617           76505                           VXM      VSL1                                  
037615,000847: 33,2620           01734                                    REFSMMAT                              
037616,000848: 33,2621           27553                           STOVL    VN1                                   #  TEMP. REF. VELOCITY VECTOR*2(7) M/CS.
037617,000849: 33,2622           03537                                    UNIT/R/                               
037618,000850: 33,2623           51435                           VXV      ABVAL                                 
037619,000851: 

Page 872

037621,000853: 33,2624           03601                                    V1S                                   
037622,000854: 33,2625           63552                           SL1      DSQ                                   
037623,000855: 33,2626           77671                           DDV                                            
037624,000856: 33,2627           47075                           DMPR     RTB                                   
037625,000857: 33,2630           26030                                    ARCONV1                               
037626,000858: 33,2631           21613                                    SGNAGREE                              
037627,000859: 33,2632           77776        COPYCYC2           EXIT                                           #  LEAVE ALTITUDE RATE COMPENSATION IN MPAC
037628,000860: 33,2633           00004                           INHINT                                         
037629,000861: 33,2634           31536                           CA       UNIT/R/                               #  UPDATE RUNIT FOR R10.
037630,000862: 33,2635           55743                           TS       RUNIT                                 
037631,000863: 33,2636           31540                           CA       UNIT/R/    +2                         
037632,000864: 33,2637           55744                           TS       RUNIT      +1                         
037633,000865: 33,2640           31542                           CA       UNIT/R/    +4                         
037634,000866: 33,2641           55745                           TS       RUNIT      +2                         
037635,000867: 33,2642           30154                           CA       MPAC                                  #  LOAD NEW DALTRATE FOR R10.
037636,000868: 33,2643           55716                           TS       DALTRATE                              
037637,000869: 
037638,000870: 33,2644           00006                           EXTEND                                         
037639,000871: 33,2645           31573                           DCA      R1S                                   
037640,000872: 33,2646           53521                           DXCH     R                                     
037641,000873: 33,2647           00006                           EXTEND                                         
037642,000874: 33,2650           31575                           DCA      R1S        +2                         
037643,000875: 33,2651           53523                           DXCH     R          +2                         
037644,000876: 33,2652           00006                           EXTEND                                         
037645,000877: 33,2653           31577                           DCA      R1S        +4                         
037646,000878: 33,2654           53525                           DXCH     R          +4                         
037647,000879: 33,2655           00006                           EXTEND                                         
037648,000880: 33,2656           31601                           DCA      V1S                                   
037649,000881: 33,2657           53527                           DXCH     V                                     
037650,000882: 33,2660           00006                           EXTEND                                         
037651,000883: 33,2661           31603                           DCA      V1S        +2                         
037652,000884: 33,2662           53531                           DXCH     V          +2                         
037653,000885: 33,2663           00006                           EXTEND                                         
037654,000886: 33,2664           31605                           DCA      V1S        +4                         
037655,000887: 33,2665           53533                           DXCH     V          +4                         
037656,000888: 
037657,000889: 33,2666           12275                           TCF      COPYCYCL                              #  COMPLETE THE COYPCYCL.
037658,000890: 

Page 873

037660,000892:                                                                                                  #  *********************************************************************************************************
037661,000893: 
037662,000894: 
037663,000895: 33,2667           41456        CALCGRAV           UNIT     PUSH                                  #  SAVE UNIT/R/ IN PUSHLIST            (18)
037664,000896: 33,2670           03537                           STORE    UNIT/R/                               
037665,000897: 33,2671           67340                           LXC,1    SLOAD                                 #  RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
037666,000898: 33,2672           02777                                    RTX2                                  
037667,000899: 33,2673           03000                                    RTX2                                  
037668,000900: 33,2674           50076                           DCOMP    BMN                                   
037669,000901: 33,2675           66724                                    CALCGRV1                              
037670,000902: 33,2676           50375                           VLOAD    DOT                                   #                                      (12)
037671,000903: 33,2677           06516                                    UNITZ                                 
037672,000904: 33,2700           03537                                    UNIT/R/                               
037673,000905: 33,2701           41552                           SL1      PUSH                                  #                                      (14)
037674,000906: 33,2702           44316                           DSQ      BDSU                                  
037675,000907: 33,2703           26766                                    DP1/20                                
037676,000908: 33,2704           56325                           PDDL     DDV                                   
037677,000909: 33,2705           26040                                    RESQ                                  
037678,000910: 33,2706           00043                                    34D                                   #  (RN)SQ
037679,000911: 33,2707           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
037680,000912: 33,2710           41205                           DMP      DMP                                   
037681,000913: 33,2711           26042                                    20J                                   
037682,000914: 33,2712           65361                           VXSC     PDDL                                  
037683,000915: 33,2713           03537                                    UNIT/R/                               
037684,000916: 33,2714           41205                           DMP      DMP                                   
037685,000917: 33,2715           26044                                    2J                                    
037686,000918: 33,2716           00041                                    32D                                   
037687,000919: 33,2717           76561                           VXSC     VSL1                                  
037688,000920: 33,2720           06516                                    UNITZ                                 
037689,000921: 33,2721           45455                           VAD      STADR                                 
037690,000922: 33,2722           74256                           STORE    UNITGOBL                              
037691,000923: 33,2723           41455                           VAD      PUSH                                  #  MPAC = UNIT GRAVITY VECTOR.         (18)
037692,000924: 33,2724           60345        CALCGRV1           DLOAD    NORM                                  #  PERFORM A NORMALIZATION ON RMAGSQ IN
037693,000925: 33,2725           00043                                    34D                                   #  ORDER TO BE ABLE TO SCALE THE MU FOR
037694,000926: 33,2726           00050                                    X2                                    #  MAXIMUM PRECISION.
037695,000927: 33,2727           53663                           BDDV*    SLR*                                  
037696,000928: 33,2730           26032                                    -MUDT,1                               
037697,000929: 33,2731           56623                                    0          -21D,2                     
037698,000930: 33,2732           45561                           VXSC     STADR                                 
037699,000931: 33,2733           74214                           STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
037700,000932: 33,2734           77616                           RVQ                                            
037701,000933: 
037702,000934: 33,2735           61375        CALCRVG            VLOAD    VXM                                   
037703,000935: 33,2736           00325                                    DELV                                  
037704,000936: 33,2737           01734                                    REFSMMAT                              
037705,000937: 33,2740           76561                           VXSC     VSL1                                  
037706,000938: 33,2741           26022                                    KPIP1                                 
037707,000939: 33,2742           03527                           STORE    DELVREF                               
037708,000940: 33,2743           41562                           VSR1     PUSH                                  
037709,000941: 33,2744           41455                           VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7) M/CS
037710,000942: 

Page 874

037712,000944: 33,2745           01236                                    GDT/2                                 
037713,000945: 33,2746           65255                           VAD      PDDL                                  #                                      (18)
037714,000946: 33,2747           01226                                    VN                                    
037715,000947: 33,2750           01247                                    PGUIDE                                
037716,000948: 33,2751           74261                           SL       VXSC                                  
037717,000949: 33,2752           20207                                    6D                                    
037718,000950: 33,2753           44055                           VAD      STQ                                   
037719,000951: 33,2754           01220                                    RN                                    
037720,000952: 33,2755           00037                                    31D                                   
037721,000953: 33,2756           37545                           STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
037722,000954: 33,2757           66667                                    CALCGRAV                              
037723,000955: 
037724,000956: 33,2760           53255                           VAD      VAD                                   
037725,000957: 33,2761           77655                           VAD                                            
037726,000958: 33,2762           01226                                    VN                                    
037727,000959: 33,2763           37553                           STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7)M/CS
037728,000960: 33,2764           00037                                    31D                                   
037729,000961: 
037730,000962: 33,2765           01463 06315  DP1/20             2DEC     0.05                                  
037731,000963: 33,2767           00010 00000  SHIFT11            2DEC     1          B-11                       
037732,000964: 

Page 875

037734,000966:                                                                                                  # ****************************************************************************************************************
037735,000967: 
037736,000968:                                                                                                  #  MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
037737,000969:                                                                                                  #  PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
037738,000970:                                                                                                  #  THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
037739,000971:                                                                                                  #  COORDINATE SYSTEM.
037740,000972: 
037741,000973: 33,2771           41575        RVBOTH             VLOAD    PUSH                                  
037742,000974: 33,2772           02317                                    G(CSM)                                
037743,000975: 33,2773           65255                           VAD      PDDL                                  
037744,000976: 33,2774           01726                                    V(CSM)                                
037745,000977: 33,2775           01247                                    PGUIDE                                
037746,000978: 33,2776           74271                           DDV      VXSC                                  
037747,000979: 33,2777           26770                                    SHIFT11                               
037748,000980: 33,3000           77655                           VAD                                            
037749,000981: 33,3001           01720                                    R(CSM)                                
037750,000982: 33,3002           37573                           STCALL   R1S                                   
037751,000983: 33,3003           67067                                    MUNGRAV                               
037752,000984: 33,3004           53255                           VAD      VAD                                   
037753,000985: 33,3005           01726                                    V(CSM)                                
037754,000986: 33,3006           77626                           STADR                                          
037755,000987: 33,3007           74176                           STORE    V1S                                   
037756,000988: 33,3010           77776                           EXIT                                           
037757,000989: 33,3011           03514                           TC       QUIKFAZ5                              
037758,000990: 33,3012           06042                           TC       INTPRET                               
037759,000991: 33,3013           77775                           VLOAD                                          
037760,000992: 33,3014           03563                                    GDT1/2                                
037761,000993: 33,3015           26317                           STOVL    G(CSM)                                
037762,000994: 33,3016           03573                                    R1S                                   
037763,000995: 33,3017           25720                           STOVL    R(CSM)                                
037764,000996: 33,3020           03601                                    V1S                                   
037765,000997: 33,3021           01726                           STORE    V(CSM)                                
037766,000998: 33,3022           77776                           EXIT                                           
037767,000999: 33,3023           03514                           TC       QUIKFAZ5                              
037768,001000: 33,3024           06042                           TC       INTPRET                               
037769,001001: 33,3025           74375        MUNRVG             VLOAD    VXSC                                  
037770,001002: 33,3026           00325                                    DELV                                  
037771,001003: 33,3027           26024                                    KPIP2                                 
037772,001004: 33,3030           53206                           PUSH     VAD                                   #  1ST PUSH: DELV IN UNITS OF 2(8) M/CS
037773,001005: 33,3031           01236                                    GDT/2                                 
037774,001006: 33,3032           53206                           PUSH     VAD                                   #  2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
037775,001007: 33,3033           03527                                    V                                     #                                      (12)
037776,001008: 33,3034           56325                           PDDL     DDV                                   
037777,001009: 33,3035           01247                                    PGUIDE                                
037778,001010: 33,3036           26770                                    SHIFT11                               
037779,001011: 33,3037           77761                           VXSC                                           
037780,001012: 33,3040           77655                           VAD                                            
037781,001013: 33,3041           03521                                    R                                     
037782,001014: 33,3042           37573                           STCALL   R1S                                   #  STORE R SCALED AT 2(+24)M.
037783,001015: 33,3043           67067                                    MUNGRAV                               
037784,001016: 

Page 876

037786,001018: 33,3044           53255                           VAD      VAD                                   
037787,001019: 33,3045           77655                           VAD                                            #                                      (0)
037788,001020: 33,3046           03527                                    V                                     
037789,001021: 33,3047           03601                           STORE    V1S                                   #  STORE V SCALED AT 2(+7) M/CS.
037790,001022: 33,3050           77646                           ABVAL                                          
037791,001023: 33,3051           27472                           STOVL    ABVEL                                 #  STORE SPEED FOR LR AND DISPLAYS.
037792,001024: 33,3052           03537                                    UNIT/R/                               
037793,001025: 33,3053           72441                           DOT      SL1                                   
037794,001026: 33,3054           03601                                    V1S                                   
037795,001027: 33,3055           27474                           STOVL    HDOTDISP                              #  HDOT = V. UNIT(R)*2(7)M/CS.
037796,001028: 33,3056           03573                                    R1S                                   
037797,001029: 33,3057           72435                           VXV      VSL2                                  
037798,001030: 33,3060           02325                                    WM                                    
037799,001031: 33,3061           17734                           STODL    DELVS                                 #  LUNAR ROTATION CORRECTION TERM*2(5)M/CS.
037800,001032: 33,3062           00045                                    36D                                   
037801,001033: 33,3063           77625                           DSU                                            
037802,001034: 33,3064           02333                                    /LAND/                                
037803,001035: 33,3065           37535                           STCALL   HCALC                                 #  FOR NOW, DISPLAY WHETHER POS OR NEG
037804,001036: 33,3066           66461                                    MUNRETRN                              
037805,001037: 33,3067           77656        MUNGRAV            UNIT                                           #  AT 36D HAVE ABVAL(R), AT 34D R.R
037806,001038: 33,3070           17537                           STODL    UNIT/R/                               
037807,001039: 33,3071           00043                                    34D                                   
037808,001040: 33,3072           55261                           SL       BDDV                                  
037809,001041: 33,3073           20207                                    6D                                    
037810,001042: 33,3074           26036                                    -MUDTMUN                              
037811,001043: 33,3075           74205                           DMP      VXSC                                  
037812,001044: 33,3076           26770                                    SHIFT11                               
037813,001045: 33,3077           03537                                    UNIT/R/                               
037814,001046: 33,3100           03563                           STORE    GDT1/2                                #  1/2GDT SCALED AT 2(7)M/CS.
037815,001047: 33,3101           77616                           RVQ                                            
037816,001048: 
037817,001049: 33,3102           00303        1.95SECS           DEC      195        B-14                       
037818,001050: 33,3103           00005 33212  7.5                2DEC     .02286     B-6                        #  7.5 FT/SEC AT 2(6)M/CS
037819,001051: 33,3105           00014 20000  2SEC(18)           2DEC     200        B-18                       
037820,001052: 33,3107           00000 00310  2SEC(28)           2OCT     0000000310                            #  2SEC AT 2(28)
037821,001053: 33,3111           00000 00620  4SEC(28)           2DEC     400        B-28                       
037822,001054: 33,3113           00110        BITS4-7            OCT      110                                   
037823,001055: 33,3114           37767 02200  1-30KFT            2DEC     16768072   B-24                       #  DPPOSMAX-30KFT
037824,001056: 33,3116           04445        6KFT/SEC           DEC      18.288     B-7                        #  6000 FT/SEC AT 2(7)M/CS
037825,001057: 

Page 877

037827,001059: 33,3117           34742        UPDATCHK           CAF      NOLRRBIT                              #  SEE IF LR UPDATE INHIBITED.
037828,001060: 33,3120           70107                           MASK     FLGWRD11                              
037829,001061: 33,3121           10000                           CCS      A                                     
037830,001062: 33,3122           12545                           TCF      CONTSERV                              #  IT IS-NO LR UPDATE
037831,001063: 33,3123           34750                           CAF      RNGEDBIT                              #  NO INHIBIT - SEE ALT MEAS. THIS CYCLE.
037832,001064: 33,3124           70107                           MASK     FLGWRD11                              
037833,001065: 33,3125           00006                           EXTEND                                         
037834,001066: 33,3126           13252                           BZF      VMEASCHK                              #  NO ALT MEAS THIS CYCLE-CHECK FOR VEL
037835,001067: 
037836,001068: 33,3127           30120        POSUPDAT           CA       FIXLOC                                #  SET PUSHLIST TO ZERO
037837,001069: 33,3130           54166                           TS       PUSHLOC                               
037838,001070: 
037839,001071: 33,3131           06042                           TC       INTPRET                               
037840,001072: 33,3132           61375                           VLOAD    VXM                                   
037841,001073: 33,3133           02273                                    HBEAMNB                               
037842,001074: 33,3134           02146                                    XNBPIP                                #  HBEAM SM AT 2(2)
037843,001075: 33,3135           72515                           PDVL     VSL2                                  #  STORE HBEAM IN PD 0-5
037844,001076: 33,3136           03601                                    V1S                                   #  SCALE V AT 2(5) M/CS
037845,001077: 33,3137           50255                           VAD      DOT                                   
037846,001078: 33,3140           03734                                    DELVS                                 #  V RELATIVE TO SURFACE AT 2(5) M/CS

Note: START (see below)

037848,001080: 33,3141           00001                                    0D                                    #  V ALONG HBEAM AT 2(7) M/CS
037849,001081: 33,3142           77405                           DMP      EXIT                                  
037850,001082: 33,3143           01352                                    RADSKAL                               #  SCALE TO RADAR COUNTS X 5
037851,001083: 
037852,001084: 33,3144           40110                           CS       FLGWRD12                              #  TEST LR ALTITUDE SCALE FACTOR
037853,001085: 33,3145           74743                           MASK     ALTSCBIT                              
037854,001086: 33,3146           00006                           EXTEND                                         
037855,001087: 33,3147           13152                           BZF      +3                                    #  BRANCH IF HIGH SCALE
037856,001088: 
037857,001089: 33,3150           31353                           CA       SKALSKAL                              #  RESCALE IF LOW SCALE
037858,001090: 33,3151           07312                           TC       SHORTMP                               
037859,001091: 
037860,001092: 33,3152           06042                 +3        TC       INTPRET                               
037861,001093: 33,3153           54215                           DAD      SL                                    #  CORRECT HMEAS FOR DOPPLER EFFECT
037862,001094: 33,3154           03655                                    HMEAS                                 
037863,001095: 33,3155           20210                                    7D                                    
037864,001096: 33,3156           74205                           DMP      VXSC                                  #  SLANT RANGE AT 2(21),PUSH UP FOR HBEAM
037865,001097: 33,3157           26011                                    HSCAL                                 #  SLANT RANGE VECTOR AT 2(23) M
037866,001098: 33,3160           45241                           DOT      DSU                                   

Note: END (See below)

037868,001100: 33,3161           03537                                    UNIT/R/                               #  ALTITUDE AT 2(24)M
037869,001101: 33,3162           03535                                    HCALC                                 #  DELTA H AT 2(24)M

Note: To the right of the comments section two samll drwaing in black ink can be found between the markers "START" and "END" above. All drwaings are excuted in black ink. The first drawing is a rectangle which is open at the bottom (big staple, upside down U.) At the top, inside of the retangle, is a circle ("face") containing three small circles that are positioned on a horizontal line through the centers off all the circles. The two circles left and right ("eyes") of the center have a radius of about 1/3rd of the large containing circle while the smallest circle in the center ("nose") has again a radius of about 1/3rd of the two other circles. To the right and left of the large containing circle within in the surroundin rectangle are two (one on each side) small rectangles ("ears") of about 3/4 of the diameter of the large circle's length giving in total the appearance of a small "face with ears". At the bottom of the rectangle between the ends of the opening is another small "face" drawing as above withou the "ears".

037881,001113:                                                                                                  ##

Below this rectangle with circles described above is another small drawing is made up of a short rectangle with an open bottom and and the upper side curved up giving it the appearance of a short "tombstone".

037884,001116:                                                                                                  ##
037885,001117: 33,3163           03665                           STORE    DELTAH                                
037886,001118: 33,3164           77776                           EXIT                                           
037887,001119: 
037888,001120: 33,3165           30107                           CA       FLGWRD11                              
037889,001121: 33,3166           74741                           MASK     PSTHIBIT                              
037890,001122: 33,3167           00006                           EXTEND                                         #  DO NOT PERFORM DATA REASONABLENESS TEST
037891,001123: 33,3170           13205                           BZF      NOREASON                              #  UNTIL AFTER HIGATE

Note: Under the last statement of this page in the generated address column the name "Frank Krall" is written diagonally (from bottom left to top right) in black ink. Page 878

037895,001127: 33,3171           06042                           TC       INTPRET                               
037896,001128: 33,3172           45246                           ABS      DSU                                   
037897,001129: 33,3173           02521                                    DELQFIX                               #  ABS(DELTAH) - DQFIX   50 FT NOM
037898,001130: 33,3174           45252                           SL3      DSU                                   #  SCALE TO 2(21)
037899,001131: 33,3175           03535                                    HCALC                                 #  ABS(DELTAH) - (50 + HCALC/8) AT 2(21)
037900,001132: 33,3176           77776                           EXIT                                           
037901,001133: 
037902,001134: 33,3177           25670                           INCR     LRLCTR                                
037903,001135: 33,3200           06726                           TC       BRANCH                                
037904,001136: 33,3201           13522                           TCF      HFAIL                                 #  DELTA H TOO LARGE
037905,001137: 33,3202           13522                           TCF      HFAIL                                 #  DELTA H TOO LARGE
037906,001138: 33,3203           05516                           TC       DOWNFLAG                              #  TURN OFF ALT FAIL LAMP
037907,001139: 33,3204           00263                           ADRES    HFLSHFLG                              
037908,001140: 
037909,001141: 33,3205           40107        NOREASON           CS       FLGWRD11                              
037910,001142: 33,3206           74744                           MASK     LRINHBIT                              
037911,001143: 33,3207           10000                           CCS      A                                     
037912,001144: 33,3210           13252                           TCF      VMEASCHK                              #  UPDATE INHIBITED - TEST VELOCITY ANYWAY
037913,001145: 
037914,001146: 33,3211           06042                           TC       INTPRET                               #  DO POSITION UPDATE
037915,001147: 33,3212           40545                           DLOAD    SR4                                   
037916,001148: 33,3213           03535                                    HCALC                                 #  RESCALE H TO 2(28)M
037917,001149: 33,3214           77776                           EXIT                                           
037918,001150: 33,3215           00006                           EXTEND                                         
037919,001151: 33,3216           31665                           DCA      DELTAH                                #  STORE DELTAH IN MPAC AND
037920,001152: 33,3217           52155                           DXCH     MPAC                                  #  BRING HCALC INTO A,L
037921,001153: 33,3220           07547                           TC       ALSIGNAG                              
037922,001154: 33,3221           00006                           EXTEND                                         #  IF HIGH PART OF HCALC IS NON ZERO, THEN
037923,001155: 33,3222           13224                           BZF      +2                                    #  HCALC > HMAX,
037924,001156: 33,3223           13252                           TCF      VMEASCHK                              #  SO UPDATE IS BYPASSED
037925,001157: 33,3224           54156                           TS       MPAC       +2                         #    FOR LATER SHORTMP
037926,001158: 
037927,001159: 33,3225           40001                           CS       L                                     #  -H AT 2(14)M
037928,001160: 33,3226           61420                           AD       LRHMAX                                #  HMAX - H
037929,001161: 33,3227           00006                           EXTEND                                         
037930,001162: 33,3230           63252                           BZMF     VMEASCHK                              #  IF H >HMAX, BYPASS UPDATE
037931,001163: 33,3231           00006                           EXTEND                                         
037932,001164: 33,3232           71421                           MP       LRWH                                  #  WH(HMAX - H)
037933,001165: 33,3233           00006                           EXTEND                                         
037934,001166: 33,3234           11420                           DV       LRHMAX                                #  WH(1 - H/HMAX)
037935,001167: 33,3235           54135                           TS       MPTEMP                                
037936,001168: 33,3236           07316                           TC       SHORTMP2                              #  DELTAH (WH)(1 - H/HMAX) IN MPAC
037937,001169: 33,3237           06042                           TC       INTPRET                               #  MODE IS DP FROM ABOVE
037938,001170: 33,3240           77752                           SL1                                            
037939,001171: 33,3241           53361                           VXSC     VAD                                   
037940,001172: 33,3242           03537                                    UNIT/R/                               #  DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
037941,001173: 33,3243           03573                                    R1S                                   
037942,001174: 33,3244           37657                           STCALL   GNUR                                  
037943,001175: 33,3245           67067                                    MUNGRAV                               
037944,001176: 33,3246           77776                           EXIT                                           
037945,001177: 

Page 879

037947,001179: 33,3247           03514                           TC       QUIKFAZ5                              
037948,001180: 
037949,001181: 33,3250           34755                           CA       ZERO                                  
037950,001182: 33,3251           03476        RUPDATED           TC       GNURVST                               
037951,001183: 
037952,001184: 33,3252           03514        VMEASCHK           TC       QUIKFAZ5                              #  RESTART AT NEXT LOCATION
037953,001185: 33,3253           40107                           CS       FLGWRD11                              
037954,001186: 33,3254           74745                           MASK     VELDABIT                              #  IS V READING AVAILABLE?
037955,001187: 33,3255           10000                           CCS      A                                     
037956,001188: 33,3256           13456                           TCF      VALTCHK                               #  NO   SEE IF V READING TO BE TAKEN
037957,001189: 
037958,001190: 33,3257           41651        VELUPDAT           CS       VSELECT                               #  PROCESS VELOCITY DATA
037959,001191: 33,3260           54001                           TS       L                                     
037960,001192: 33,3261           26001                           ADS      L                                     #  -2 VSELECT IN L
037961,001193: 33,3262           60001                           AD       L                                     
037962,001194: 33,3263           60001                           AD       L                                     #  -6 VSELECT IN A
037963,001195: 33,3264           50120                           INDEX    FIXLOC                                
037964,001196: 33,3265           52047                           DXCH     X1                                    #  X1 = -6 VSELECT, X2 = -2 VSELECT
037965,001197: 
037966,001198: 33,3266           34741                           CA       EBANK4                                
037967,001199: 33,3267           54003                           TS       EBANK                                 
037968,001200: 33,3270  E4,1654                                  EBANK=   LRXCDU                                
037969,001201: 
037970,001202: 33,3270           31655                           CA       LRYCDU                                #  STORE LRCDUS IN CDUSPOTS
037971,001203: 33,3271           54765                           TS       CDUSPOT                               
037972,001204: 33,3272           31656                           CA       LRZCDU                                
037973,001205: 33,3273           54767                           TS       CDUSPOT    +2                         
037974,001206: 33,3274           31654                           CA       LRXCDU                                
037975,001207: 33,3275           54771                           TS       CDUSPOT    +4                         
037976,001208: 
037977,001209: 33,3276           04616                           TC       BANKCALL                              
037978,001210: 33,3277           47617                           CADR     QUICTRIG                              #  GET SINES AND COSINES FOR NBSM
037979,001211: 
037980,001212: 33,3300           30120                           CA       FIXLOC                                
037981,001213: 33,3301           54166                           TS       PUSHLOC                               #  SET PD TO ZERO
037982,001214: 
037983,001215: 33,3302           06042                           TC       INTPRET                               
037984,001216: 33,3303           45173                           VLOAD*   CALL                                  
037985,001217: 33,3304           02231                                    VZBEAMNB,1                            #  CONVERT VBEAM FROM NB TO SM
037986,001218: 33,3305           47675                                    *NBSM*                                
037987,001219: 33,3306           54325                           PDDL     SL                                    #  STORE IN PD 0-5
037988,001220: 33,3307           03653                                    VMEAS                                 #  LOAD VELOCITY MEASUREMENT
037989,001221: 33,3310           20215                                    12D                                   
037990,001222: 33,3311           41403                           DMP*     PUSH                                  #  SCALE TO M/CS AT 2(6)
037991,001223: 33,3312           51764                                    VZSCAL,2                              #  AND STORE IN PD 6-7
037992,001224: 33,3313           77776                           EXIT                                           
037993,001225: 33,3314           44753                           CS       ONE                                   
037994,001226: 33,3315           54163                           TS       MODE                                  #  CHANGE STORE MODE TO VECTOR
037995,001227: 
037996,001228: 33,3316           31657                           CA       PIPTEM                                #  STORE DELV IN MPAC
037997,001229: 

Page 880

037999,001231: 33,3317           22007                           ZL                                             
038000,001232: 33,3320           52155                           DXCH     MPAC                                  
038001,001233: 
038002,001234: 33,3321           31660                           CA       PIPTEM     +1                         
038003,001235: 33,3322           22007                           ZL                                             
038004,001236: 33,3323           52160                           DXCH     MPAC       +3                         
038005,001237: 
038006,001238: 33,3324           31661                           CA       PIPTEM     +2                         
038007,001239: 33,3325           22007                           ZL                                             
038008,001240: 33,3326           52162                           DXCH     MPAC       +5                         
038009,001241: 
038010,001242: 33,3327           35016                           CA       EBANK7                                
038011,001243: 33,3330           54003                           TS       EBANK                                 #  RESTORE EBANK 7
038012,001244: 33,3331  E7,1515                                  EBANK=   DVCNTR                                
038013,001245: 33,3331           06042                           TC       INTPRET                               
038014,001246: 33,3332           65361                           VXSC     PDDL                                  
038015,001247: 33,3333           26022                                    KPIP1                                 #  SCALE DELV TO 2(7) M/CS AND PUSH
038016,001248: 33,3334           02253                                    LRVTIME                               #  TIME OF DELV AT 2(28)CS
038017,001249: 33,3335           56225                           DSU      DDV                                   
038018,001250: 33,3336           01234                                    PIPTIME                               #  TU - T(N-1)
038019,001251: 33,3337           27110                                    2SEC(28)                              
038020,001252: 33,3340           76561                           VXSC     VSL1                                  #  G(N-1)(TU - T(N-1))
038021,001253: 33,3341           01236                                    GDT/2                                 #  SCALED AT 2(7) M/CS
038022,001254: 33,3342           53255                           VAD      VAD                                   #  PUSH UP FOR DELV
038023,001255: 33,3343           03527                                    V                                     #  VU = V(N-1) + DELVU + G(N-1) DTU
038024,001256: 33,3344           53352                           VSL2     VAD                                   #  SCALE TO 2(5) M/CS AND SUBTRACT
038025,001257: 33,3345           03734                                    DELVS                                 #                MOON ROTATION.
038026,001258: 33,3346           51406                           PUSH     ABVAL                                 #  STORE IN PD
038027,001259: 33,3347           43202                           SR4      DAD                                   #  ABS(VM)/8 + 7.5 AT 2(6)
038028,001260: 33,3350           27104                                    7.5                                   
038029,001261: 33,3351           24025                           STOVL    20D                                   #  STORE IN 20D AND PICK UP VM
038030,001262: 33,3352           44241                           DOT      BDSU                                  #  V(EST) AT 2(6)
038031,001263: 33,3353           00001                                    0                                     #  DELTAV = VMEAS - V(EST)
038032,001264: 33,3354           51406                           PUSH     ABS                                   
038033,001265: 33,3355           77425                           DSU      EXIT                                  #  ABS(DV) - (7.5 + ABS(VM)/8))
038034,001266: 33,3356           00025                                    20D                                   
038035,001267: 
038036,001268: 33,3357           25672                           INCR     LRMCTR                                
038037,001269: 33,3360           06726                           TC       BRANCH                                
038038,001270: 33,3361           13537                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
038039,001271: 33,3362           13537                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
038040,001272: 
038041,001273: 33,3363           05516                           TC       DOWNFLAG                              #  TURN OFF VEL FAIL LAMP
038042,001274: 33,3364           00262                           ADRES    VFLSHFLG                              
038043,001275: 
038044,001276: 33,3365           30107                           CA       FLGWRD11                              
038045,001277: 33,3366           74740                           MASK     VXINHBIT                              
038046,001278: 33,3367           00006                           EXTEND                                         
038047,001279: 33,3370           13377                           BZF      VUPDAT                                #  IF VX INHIBIT RESET, INCORPORATE DATA.
038048,001280: 

Page 881

038050,001282: 33,3371           05516                           TC       DOWNFLAG                              
038051,001283: 33,3372           00250                           ADRES    VXINH                                 #  RESET VX INHIBIT
038052,001284: 
038053,001285: 33,3373           31651                           CA       VSELECT                               
038054,001286: 33,3374           67751                           AD       NEG2                                  #  IF VSELECT = 2 (X AXIS),
038055,001287: 33,3375           00006                           EXTEND                                         #  BYPASS UPDATE
038056,001288: 33,3376           13456                           BZF      ENDVDAT                               
038057,001289: 
038058,001290: 33,3377           40107        VUPDAT             CS       FLGWRD11                              
038059,001291: 33,3400           74744                           MASK     LRINHBIT                              
038060,001292: 33,3401           10000                           CCS      A                                     
038061,001293: 33,3402           13456                           TCF      VALTCHK                               #  UPDATE INHIBITED
038062,001294: 
038063,001295: 33,3403           54155                           TS       MPAC       +1                         
038064,001296: 
038065,001297: 33,3404           31471                           CA       ABVEL                                 #  STORE E7 ERASABLES NEEDED IN TEMPS
038066,001298: 33,3405           54130                           TS       ABVEL*                                
038067,001299: 33,3406           31651                           CA       VSELECT                               
038068,001300: 33,3407           54131                           TS       VSELECT*                              
038069,001301: 33,3410           35014                           CA       EBANK5                                
038070,001302: 33,3411           54003                           TS       EBANK                                 #  CHANGE EBANKS
038071,001303: 
038072,001304: 33,3412  E5,1527                                  EBANK=   LRVF                                  
038073,001305: 33,3412           41527                           CS       LRVF                                  
038074,001306: 33,3413           60130                           AD       ABVEL*                                #  IF V < VF, USE WVF
038075,001307: 33,3414           00006                           EXTEND                                         
038076,001308: 33,3415           63430                           BZMF     USEVF                                 
038077,001309: 
038078,001310: 33,3416           40130                           CS       ABVEL*                                
038079,001311: 33,3417           61526                           AD       LRVMAX                                #  VMAX - V
038080,001312: 33,3420           00006                           EXTEND                                         
038081,001313: 33,3421           63433                           BZMF     WSTOR      -1                         #  IF V > VMAX, W = 0
038082,001314: 
038083,001315: 33,3422           00006                           EXTEND                                         
038084,001316: 33,3423           50131                           INDEX    VSELECT*                              
038085,001317: 33,3424           71530                           MP       LRWVZ                                 #  WV(VMAX - V)
038086,001318: 
038087,001319: 33,3425           00006                           EXTEND                                         
038088,001320: 33,3426           11526                           DV       LRVMAX                                #  WV( 1 - V/VMAX )
038089,001321: 33,3427           13434                           TCF      WSTOR                                 
038090,001322: 
038091,001323: 33,3430           50131        USEVF              INDEX    VSELECT*                              
038092,001324: 33,3431           31533                           CA       LRWVFZ                                #  USE APPROPRIATE CONSTANT WEIGHT
038093,001325: 33,3432           13434                           TCF      WSTOR                                 
038094,001326: 
038095,001327: 33,3433           34755                 -1        CA       ZERO                                  
038096,001328: 33,3434           54154        WSTOR              TS       MPAC                                  
038097,001329: 33,3435           44745                           CS       BIT7                                  #  (=64D)
038098,001330: 33,3436           61010                           AD       MODREG                                
038099,001331: 33,3437           00006                           EXTEND                                         
038100,001332: 

Page 882

038102,001334: 33,3440           63443                           BZMF     +3                                    #  IF IN P65,P66,P67, USE ANOTHER CONSTANT
038103,001335: 
038104,001336: 33,3441           31536                           CA       LRWVFF                                
038105,001337: 33,3442           54154                           TS       MPAC                                  
038106,001338: 
038107,001339: 33,3443           35016                 +3        CA       EBANK7                                
038108,001340: 33,3444           54003                           TS       EBANK                                 #  CHANGE EBANKS
038109,001341: 
038110,001342: 33,3445  E7,1471                                  EBANK=   ABVEL                                 
038111,001343: 33,3445           06042                           TC       INTPRET                               
038112,001344: 33,3446           74205                           DMP      VXSC                                  #  W(DELTA V)(VBEAMSM)  UP 6-7, 0-5
038113,001345: 33,3447           77655                           VAD                                            
038114,001346: 33,3450           03601                                    V1S                                   #  ADD WEIGHTED DELTA V TO VELOCITY
038115,001347: 33,3451           03657                           STORE    GNUV                                  
038116,001348: 33,3452           77776                           EXIT                                           
038117,001349: 
038118,001350: 33,3453           03514                           TC       QUIKFAZ5                              #  DO NOT RE-UPDATE
038119,001351: 
038120,001352: 33,3454           36245                           CA       SIX                                   
038121,001353: 33,3455           03476        VUPDATED           TC       GNURVST                               #  STORE NEW VELOCITY VECTOR
038122,001354: 33,3456  33,3456               ENDVDAT            =        VALTCHK                               
038123,001355: 
038124,001356: 33,3456           03514        VALTCHK            TC       QUIKFAZ5                              #  DO NOT REPEAT ABOVE
038125,001357: 
038126,001358: 33,3457           34747                           CAF      READVBIT                              #  TEST READVEL TO SEE IF VELOCITY READING
038127,001359: 33,3460           70107                           MASK     FLGWRD11                              #  IS DESIRED.
038128,001360: 33,3461           10000                           CCS      A                                     
038129,001361: 33,3462           13471                           TCF      READV                                 #  TES - READ VELOCITY
038130,001362: 33,3463           41471                           CS       ABVEL                                 #  NO - SEE IF VELOCITY < 6000 FT/SEC
038131,001363: 33,3464           63116                           AD       6KFT/SEC                              
038132,001364: 33,3465           00006                           EXTEND                                         
038133,001365: 33,3466           62545                           BZMF     CONTSERV                              #  V > 6000 FT/SEC.  DO NOT READ VELOCITY.
038134,001366: 
038135,001367: 33,3467           05504                           TC       UPFLAG                                #  V < 6000 FT/SEC.  SET READVEL AND READ.
038136,001368: 33,3470           00257                           ADRES    READVEL                               
038137,001369: 
038138,001370: 33,3471           37723        READV              CAF      PRIO32                                #  SET UP JOB TO READ VELOCITY BEAMS.
038139,001371: 33,3472           05072                           TC       NOVAC                                 
038140,001372: 33,3473  E7,1654                                  EBANK=   HMEAS                                 
038141,001373: 33,3473           03560 66067                     2CADR    LRVJOB                                
038142,001374: 33,3475           12545                           TCF      CONTSERV                              #  CONTINUE WITH SERVICER
038143,001375: 
038144,001376: 
038145,001377: 33,3476           54130        GNURVST            TS       BUF                                   #  STORE GNUR (=GNUV) IN R1S OR V1S
038146,001378: 33,3477           00006                           EXTEND                                         #  A = 0 FOR R, A = 6 FOR V
038147,001379: 33,3500           31657                           DCA      GNUR                                  
038148,001380: 33,3501           50130                           INDEX    BUF                                   
038149,001381: 33,3502           53573                           DXCH     R1S                                   
038150,001382: 33,3503           00006                           EXTEND                                         
038151,001383: 

Page 883

038153,001385: 33,3504           31661                           DCA      GNUR       +2                         
038154,001386: 33,3505           50130                           INDEX    BUF                                   
038155,001387: 33,3506           53575                           DXCH     R1S        +2                         
038156,001388: 33,3507           00006                           EXTEND                                         
038157,001389: 33,3510           31663                           DCA      GNUR       +4                         
038158,001390: 33,3511           50130                           INDEX    BUF                                   
038159,001391: 33,3512           53577                           DXCH     R1S        +4                         
038160,001392: 33,3513           00002                           TC       Q                                     
038161,001393: 
038162,001394: 
038163,001395: 33,3514           35007        QUIKFAZ5           CA       EBANK3                                
038164,001396: 33,3515           56003                           XCH      EBANK                                 #  SET EBANK 3
038165,001397: 33,3516           52002                           DXCH     L                                     #  Q TO A, A TO L
038166,001398: 33,3517  E3,1446                                  EBANK=   PHSNAME5                              
038167,001399: 33,3517           55446                           TS       PHSNAME5                              
038168,001400: 33,3520           22003                           LXCH     EBANK                                 
038169,001401: 33,3521  E7,1515                                  EBANK=   DVCNTR                                
038170,001402: 33,3521           00000                           TC       A                                     
038171,001403: 
038172,001404: 
038173,001405: 33,3522           41671        HFAIL              CS       LRRCTR                                
038174,001406: 33,3523           00006                           EXTEND                                         
038175,001407: 33,3524           13534                           BZF      NORLITE                               #  IF R = 0, DO NOT TURN ON TRK FAIL
038176,001408: 33,3525           61670                           AD       LRLCTR                                
038177,001409: 33,3526           77750                           MASK     NEG3                                  
038178,001410: 33,3527           00006                           EXTEND                                         #  IF L-R LT 4, DO NOT TURN ON TRK FAIL
038179,001411: 33,3530           13532                           BZF      +2                                    
038180,001412: 33,3531           13534                           TCF      NORLITE                               
038181,001413: 
038182,001414: 33,3532           05504                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
038183,001415: 33,3533           00263                           ADRES    HFLSHFLG                              
038184,001416: 
038185,001417: 33,3534           31670        NORLITE            CA       LRLCTR                                
038186,001418: 33,3535           55671                           TS       LRRCTR                                #  SET R = L
038187,001419: 
038188,001420: 33,3536           13252                           TCF      VMEASCHK                              
038189,001421: 
038190,001422: 
038191,001423: 33,3537           41673        VFAIL              CS       LRSCTR                                #    DELTA Q LARGE
038192,001424: 33,3540           00006                           EXTEND                                         #  IF S = 0, DO NOT TURN ON TRACKER FAIL
038193,001425: 33,3541           13551                           BZF      NOLITE                                
038194,001426: 33,3542           61672                           AD       LRMCTR                                #  M-S
038195,001427: 33,3543           77750                           MASK     NEG3                                  #  TEST FOR M-S > 3
038196,001428: 33,3544           00006                           EXTEND                                         #  IF M-S > 3, THEN TWO OR MORE OF THE
038197,001429: 33,3545           13547                           BZF      +2                                    #    LAST FOUR V READINGS WERE BAD,
038198,001430: 33,3546           13551                           TCF      NOLITE                                #    SO TURN ON VELOCITY FAIL LIGHT
038199,001431: 
038200,001432: 33,3547           05504                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
038201,001433: 33,3550           00262                           ADRES    VFLSHFLG                              
038202,001434: 

Page 884

038204,001436: 33,3551           31672        NOLITE             CA       LRMCTR                                #  SET S = M
038205,001437: 33,3552           55673                           TS       LRSCTR                                
038206,001438: 
038207,001439: 33,3553           11651                           CCS      VSELECT                               #  TEST FOR Z COMPONENT
038208,001440: 33,3554           13456                           TCF      ENDVDAT                               #  NOT Z, DO NOT SET VX INHIBIT
038209,001441: 
038210,001442: 33,3555           05504                           TC       UPFLAG                                #  Z COMPONENT - SET FLAG TO SKIP X
038211,001443: 33,3556           00250                           ADRES    VXINH                                 #  COMPONENT,AS ERROR MAY BE DUE TO CROSS
038212,001444: 33,3557           13456                           TCF      ENDVDAT                               #  LOBE LOCK UP NOT DETECTED ON X AXIS.
038213,001445: 

Page 885

038215,001447:                                                                                                  #  ********************************************************************************************************
038216,001448:                                                                                                  #     LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE
038217,001449:                                                                                                  #     THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY
038218,001450:                                                                                                  #     SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE-ABOUT 500 MS.
038219,001451:                                                                                                  #     WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT
038220,001452:                                                                                                  #     IS SET.  THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLING .
038221,001453: 
038222,001454: 33,3560     4361               170MS              EQUALS   ND1                                   
038223,001455: 
038224,001456: 33,3560           34361        LRVJOB             CA       170MS                                 #  SET TASK TO READ CDUS + PIPAS

Note: The above label "LRVJOB" has a red pen "circle" arround it

038226,001458: 33,3561           05203                           TC       WAITLIST                              
038227,001459: 33,3562  E4,1652                                  EBANK=   LRVTIME                               
038228,001460: 33,3562           03632 70064                     2CADR    RDGIMS                                
038229,001461: 33,3564           11651                           CCS      VSELECT                               #  SEQUENCE LR VEL BEAM SELECTOR
038230,001462: 33,3565           13567                           TCF      +2                                    
038231,001463: 33,3566           34752                           CAF      TWO                                   #  IF ZERO-RESET TO TWO
038232,001464: 33,3567           60000                           DOUBLE                                         #  2XVSELECT USED FOR VBEAM INDEX IN LRVEL
038233,001465: 33,3570           04616                           TC       BANKCALL                              #  GO INITIALIZE LR VEL READ ROUTINE
038234,001466: 33,3571           53116                           CADR     LRVEL                                 
038235,001467: 33,3572           04616                           TC       BANKCALL                              #  PUT LRVJOB TO SLEEP ABOUT 500 MS
038236,001468: 33,3573           17706                           CADR     RADSTALL                              
038237,001469: 33,3574           13627                           TCF      VBAD                                  
038238,001470: 33,3575           11675                           CCS      STILBADV                              #  IS DATA GOOD JUST PRESENT?
038239,001471: 33,3576           13630                           TCF      VSTILBAD                              #  JUST GOOD - MUST WAIT 4 SECONDS.
038240,001472: 
038241,001473: 33,3577           00004                           INHINT                                         
038242,001474: 33,3600           00006                           EXTEND                                         #  GOOD RETURN-STOW AWAY VMEAS
038243,001475: 33,3601           31101                           DCA      SAMPLSUM                              
038244,001476: 33,3602           53653                           DXCH     VMEAS                                 
038245,001477: 33,3603           34741                           CA       EBANK4                                #  FOR DOWNLINK
038246,001478: 33,3604           54003                           TS       EBANK                                 
038247,001479: 33,3605  E4,1652                                  EBANK=   LRVTIME                               
038248,001480: 
038249,001481: 33,3605           00006                           EXTEND                                         
038250,001482: 33,3606           31653                           DCA      LRVTIME                               
038251,001483: 33,3607           53740                           DXCH     LRVTIMDL                              
038252,001484: 33,3610           00006                           EXTEND                                         
038253,001485: 33,3611           31655                           DCA      LRXCDU                                
038254,001486: 33,3612           53735                           DXCH     LRXCDUDL                              
038255,001487: 33,3613           31656                           CA       LRZCDU                                
038256,001488: 33,3614           55736                           TS       LRZCDUDL                              
038257,001489: 33,3615           35016                           CA       EBANK7                                
038258,001490: 33,3616           54003                           TS       EBANK                                 
038259,001491: 33,3617  E7,1651                                  EBANK=   VSELECT                               
038260,001492: 
038261,001493: 
038262,001494: 33,3617           40107                           CS       FLGWRD11                              #  SET BIT TO INDICATE VELOCITY
038263,001495: 33,3620           74745                           MASK     VELDABIT                              #  MEASUREMENT MADE.
038264,001496: 

Page 886

038266,001498: 33,3621           26107                           ADS      FLGWRD11                              
038267,001499: 33,3622           11651        ENDLRV             CCS      VSELECT                               #  UPDATE VSELECT
038268,001500: 33,3623           13625                           TCF      +2                                    
038269,001501: 33,3624           34752                           CA       TWO                                   
038270,001502: 33,3625           55651                           TS       VSELECT                               
038271,001503: 33,3626           15155                           TCF      ENDOFJOB                              
038272,001504: 
038273,001505: 33,3627           34752        VBAD               CAF      TWO                                   #  SET STILBAD TO WAIT 4 SECONDS
038274,001506: 33,3630           55675        VSTILBAD           TS       STILBADV                              
038275,001507: 33,3631           13622                           TCF      ENDLRV                                
038276,001508: 
038277,001509:                                                                                                  #  LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT.  THIS JOB
038278,001510:                                                                                                  #  INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO
038279,001511:                                                                                                  #  SLEEP WHILE THE SAMPLING IS DONE-ABOUT 95 MS.  WITH A GOODEND RETURN
038280,001512:                                                                                                  #  THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET.
038281,001513: 
038282,001514: 34,3571                                           BANK     34                                    
038283,001515: 34,2000                                           SETLOC   R12STUFF                              
038284,001516: 34,2000                                           BANK                                           
038285,001517: 
038286,001518: 34,3571                                           COUNT*   $$/SERV                               
038287,001519: 
038288,001520: 34,3571           04616        LRHJOB             TC       BANKCALL                              #  INITIATE LR ALT MEASUREMENT

Note: In the generated listing the assigned bank relative address (3571) of the above statement is circled in red

038291,001523: 34,3572           53102                           CADR     LRALT                                 
038292,001524: 34,3573           04616                           TC       BANKCALL                              #  LRHJOB TO SLEEP ABOUT 95MS
038293,001525: 34,3574           17706                           CADR     RADSTALL                              
038294,001526: 34,3575           13620                           TCF      HBAD                                  
038295,001527: 34,3576           11674                           CCS      STILBADH                              #  IS DATA GOOD JUST PRESENT?
038296,001528: 34,3577           13630                           TCF      HSTILBAD                              #  JUST GOOD - MUST WAIT 4 SECONDS.

Note: In the generated listing the assigned bank relative address (3577) of the above statement is circled in red

038299,001531: 
038300,001532: 34,3600           00004                           INHINT                                         
038301,001533: 34,3601           00006                           EXTEND                                         
038302,001534: 34,3602           31101                           DCA      SAMPLSUM                              #  GOOD RETURN-STORE AWAY LRH DATA
038303,001535: 34,3603           53655                           DXCH     HMEAS                                 #  LRH DATA 1.079 FT/BIT
038304,001536: 34,3604           00006                           EXTEND                                         #  FOR DOWNLINK
038305,001537: 34,3605           31561                           DCA      PIPTIME1                              
038306,001538: 34,3606           53755                           DXCH     MKTIME                                
038307,001539: 
038308,001540: 34,3607           00006                           EXTEND                                         
038309,001541: 34,3610           31156                           DCA      CDUTEMPY                              #  CDUY,Z = AIG,AMG
038310,001542: 34,3611           53460                           DXCH     AIG                                   
038311,001543: 
038312,001544: 34,3612           31154                           CA       CDUTEMPX                              #  CDUX = AOG
038313,001545: 34,3613           55461                           TS       AOG                                   
038314,001546: 
038315,001547: 34,3614           40107                           CS       FLGWRD11                              #  SET BIT TO INDICATE RANGE
038316,001548: 34,3615           74750                           MASK     RNGEDBIT                              #  MEASUREMENT MADE.
038317,001549: 34,3616           26107                           ADS      FLGWRD11                              
038318,001550: 34,3617           05155        ENDLRH             TC       ENDOFJOB                              #  TERMINATE LRHJOB
038319,001551: 

Page 887

038321,001553: 34,3620           30101        HBAD               CA       FLAGWRD5                              
038322,001554: 34,3621           74742                           MASK     RNGSCBIT                              #  IS BAD RETURN DUE TO SCALE CHANGE?
038323,001555: 34,3622           00006                           EXTEND                                         
038324,001556: 34,3623           13627                           BZF      HSTILBAD   -1                         #  NO    RESET HSTILBAD
038325,001557: 34,3624           05516                           TC       DOWNFLAG                              #  YES   RESET SCALE CHANGE BIT AND IGNORE
038326,001558: 34,3625           00120                           ADRES    RNGSCFLG                              
038327,001559: 34,3626           05155                           TC       ENDOFJOB                              
038328,001560: 
038329,001561: 
038330,001562: 34,3627           34752                           CAF      TWO                                   #  SET STILBAD TO WAIT 4 SECONDS
038331,001563: 34,3630           55674        HSTILBAD           TS       STILBADH                              
038332,001564: 34,3631           05155                           TC       ENDOFJOB                              
038333,001565: 
038334,001566: 34,3632                                           BANK     34                                    
038335,001567: 34,2000                                           SETLOC   SERV4                                 
038336,001568: 34,2000                                           BANK                                           
038337,001569: 
038338,001570: 34,3632                                           COUNT*   $$/SERV                               
038339,001571: 
038340,001572:                                                                                                  #  RDGIMS  IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME
038341,001573:                                                                                                  #  AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES
038342,001574:                                                                                                  #  ARE SPECIFIED.
038343,001575: 
038344,001576: 34,3632  E4,1652                                  EBANK=   LRVTIME                               
038345,001577: 34,3632           00006        RDGIMS             EXTEND                                         
038346,001578: 34,3633           30025                           DCA      TIME2                                 #  PICK UP TIME2,TIME1
038347,001579: 34,3634           53653                           DXCH     LRVTIME                               #     AND SAVE IN LRVTIME
038348,001580: 
038349,001581: 34,3635           00006                           EXTEND                                         
038350,001582: 34,3636           30033                           DCA      CDUX                                  #  PICK UP CDUX AND CDUY
038351,001583: 34,3637           53655                           DXCH     LRXCDU                                #     AND SAVE IN LRXCDU AND LRYCDU
038352,001584: 
038353,001585: 34,3640           30034                           CA       CDUZ                                  
038354,001586: 34,3641           55656                           TS       LRZCDU                                #  SAVE CDUZ IN LRZCDU
038355,001587: 
038356,001588: 34,3642           30037                           CA       PIPAX                                 
038357,001589: 34,3643           55657                           TS       PIPTEM                                #  SAVE PIPAX IN PIPTEM
038358,001590: 
038359,001591: 34,3644           00006                           EXTEND                                         
038360,001592: 34,3645           30041                           DCA      PIPAY                                 #  PICK UP PIPAY AND PIPAZ
038361,001593: 34,3646           53661                           DXCH     PIPTEM     +1                         #     AND SAVE IN PIPTEM +1 AND PIPTEM +2
038362,001594: 34,3647           05261                           TC       TASKOVER                              
038363,001595: 
038364,001596: 33,3632                                           BANK     33                                    
038365,001597: 33,2000                                           SETLOC   SERVICES                              
038366,001598: 33,2000                                           BANK                                           
038367,001599: 
038368,001600: 33,3632                                           COUNT*   $$/SERV                               
038369,001601: 
038370,001602: 33,3632  E7,1515                                  EBANK=   DVCNTR                                
038371,001603: 

Page 888

038373,001605:                                                                                                  #     HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
038374,001606:                                                                                                  #     THE DESCENT BURN PHASE OF LUNAR LANDING.  THIS JOB INITIATES THE
038375,001607:                                                                                                  #     LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
038376,001608:                                                                                                  #     LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2.  IF THE LR ANTENNA
038377,001609:                                                                                                  #     ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
038378,001610:                                                                                                  #     BEAM VECTORS  ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
038379,001611:                                                                                                  #     RESPECT TO THE NB.  BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
038380,001612:                                                                                                  #     MEASUREMENTS AND THE JOB TERMINATES.
038381,001613: 
038382,001614: 33,3632           00004        REREPOS            INHINT                                         
038383,001615: 33,3633           40107                           CS       FLGWRD11                              
038384,001616: 33,3634           75015                           MASK     PRIO3                                 
038385,001617: 33,3635           26107                           ADS      FLGWRD11                              
038386,001618: 
038387,001619: 33,3636           04616        HIGATJOB           TC       BANKCALL                              #  START LRPOS2 JOB
038388,001620: 33,3637           53454                           CADR     LRPOS2                                
038389,001621: 33,3640           04616                           TC       BANKCALL                              #  PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE
038390,001622: 33,3641           17706                           CADR     RADSTALL                              
038391,001623: 33,3642           13655                           TCF      POSALARM                              #  BAD END   ALARM
038392,001624: 
038393,001625: 33,3643           37714        POSGOOD            CA       PRIO23                                #  REDUCE PRIORITY FOR INTERPRETIVE COMPS.
038394,001626: 33,3644           05146                           TC       PRIOCHNG                              
038395,001627: 
038396,001628: 33,3645           03721                           TC       SETPOS2                               #  LR IN POS2 - SET UP TRANSFORMATIONS
038397,001629: 
038398,001630: 33,3646           05504                           TC       UPFLAG                                
038399,001631: 33,3647           00256                           ADRES    LPOS2FLG                              
038400,001632: 33,3650           05516        ENDPOS             TC       DOWNFLAG                              
038401,001633: 33,3651           00252                           ADRES    NOLRREAD                              #  RESET NOLRREAD FLAG TO ENABLE LR READING
038402,001634: 33,3652           05353        LRRESTRT           TC       PHASCHNG                              
038403,001635: 
038404,001636: 33,3653           00001                           OCT      1                                     
038405,001637: 33,3654           05155                           TC       ENDOFJOB                              
038406,001638: 
038407,001639: 33,3655           33761        POSALARM           CA       OCT523                                
038408,001640: 33,3656           04616                           TC       BANKCALL                              
038409,001641: 33,3657           21563                           CADR     PRIOLARM                              #  FLASH ALARM CODE
038410,001642: 33,3660           13652                           TCF      LRRESTRT                              #  V34-TERMINATE R12 (NOLRRBIT SET)
038411,001643: 33,3661           13664                           TCF      P1CHK                                 #  PROCEED
038412,001644: 33,3662           13672                           TCF      P2CHK                                 #  V32E
038413,001645: 33,3663           05155                           TC       ENDOFJOB                              
038414,001646: 
038415,001647: 33,3664           05504        P1CHK              TC       UPFLAG                                
038416,001648: 33,3665           00261                           ADRES    NO511FLG                              
038417,001649: 33,3666           34746                           CA       BIT6                                  
038418,001650: 33,3667           03676                           TC       POSTST                                
038419,001651: 33,3670           03650                           TC       ENDPOS                                
038420,001652: 33,3671           13643                           TCF      POSGOOD                               #  NOT POS1 - CHANGE TO POS2
038421,001653: 
038422,001654: 33,3672           34745        P2CHK              CA       BIT7                                  
038423,001655: 

Page 889

038425,001657: 33,3673           03676                           TC       POSTST                                
038426,001658: 33,3674           13643                           TCF      POSGOOD                               
038427,001659: 33,3675           13655                           TCF      POSALARM                              
038428,001660: 33,3676           00006        POSTST             EXTEND                                         
038429,001661: 33,3677           02033                           RAND     CHAN33                                
038430,001662: 33,3700           00006                           EXTEND                                         
038431,001663: 33,3701           16745                           BZF      TCQ                                   
038432,001664: 33,3702           16742                           TCF      Q+1                                   
038433,001665: 33,3703           04645        SETPOS1            TC       MAKECADR                              #  MUST BE CALLED BY BANKCALL
038434,001666: 33,3704           55656                           TS       LRADRET1                              #  SAVE RETURN CADR, SINCE BUF2 CLOBBERED
038435,001667: 
038436,001668: 33,3705           34752                           CAF      TWO                                   
038437,001669: 33,3706           55674                           TS       STILBADH                              #  INITIALIZE STILBAD
038438,001670: 33,3707           55675                           TS       STILBADV                              #  INITIALIZE STILBAD
038439,001671: 
038440,001672: 33,3710           34755                           CA       ZERO                                  #  INDEX FOR LRALPHA,LRBETA IN POS 1.
038441,001673: 33,3711           55670                           TS       LRLCTR                                #  SET L,M,R, ANS S TO ZERO
038442,001674: 33,3712           55672                           TS       LRMCTR                                
038443,001675: 33,3713           55671                           TS       LRRCTR                                
038444,001676: 33,3714           55673                           TS       LRSCTR                                
038445,001677: 33,3715           55651                           TS       VSELECT                               #  INITIALIZE VSELECT
038446,001678: 
038447,001679: 33,3716           03722                           TC       SETPOS                                #  CONTINUE WITH COMPUTATIONS
038448,001680: 
038449,001681: 33,3717           31656                           CA       LRADRET1                              
038450,001682: 33,3720           04640                           TC       BANKJUMP                              #  RETURN TO CALLER
038451,001683: 
038452,001684: 
038453,001685: 33,3721           34752        SETPOS2            CA       TWO                                   #  INDEX FOR POS2
038454,001686: 33,3722           56002        SETPOS             XCH      Q                                     #  SAVE INDEX IN Q
038455,001687: 33,3723           55650                           TS       LRADRET                               #  SAVE RETURN
038456,001688: 
038457,001689: 33,3724           35014                           CA       EBANK5                                
038458,001690: 33,3725           54003                           TS       EBANK                                 
038459,001691: 33,3726  E5,1522                                  EBANK=   LRALPHA                               
038460,001692: 
038461,001693: 33,3726           00006                           EXTEND                                         
038462,001694: 33,3727           50002                           INDEX    Q                                     
038463,001695: 33,3730           31523                           DCA      LRALPHA                               #  LRALPHA IN A, LRBETA IN L
038464,001696: 33,3731           54771                           TS       CDUSPOT    +4                         #  ROTATION ABOUT X
038465,001697: 33,3732           22765                           LXCH     CDUSPOT                               #  ROTATION ABOUT Y
038466,001698: 33,3733           34755                           CA       ZERO                                  
038467,001699: 33,3734           54767                           TS       CDUSPOT    +2                         #  ZERO ROTATION ABOUT Z.
038468,001700: 
038469,001701: 33,3735           35016                           CA       EBANK7                                
038470,001702: 33,3736           54003                           TS       EBANK                                 
038471,001703: 33,3737  E7,1650                                  EBANK=   LRADRET                               
038472,001704: 
038473,001705: 33,3737           06042                           TC       INTPRET                               
038474,001706: 33,3740           45175                           VLOAD    CALL                                  
038475,001707: 

Page 890

038477,001709: 33,3741           06520                                    UNITY                                 #  CONVERT UNITY(ANTENNA) TO NB
038478,001710: 33,3742           47653                                    TRG*SMNB                              
038479,001711: 33,3743           26237                           STOVL    VYBEAMNB                              
038480,001712: 33,3744           06522                                    UNITX                                 #  CONVERT UNITX(ANTENNA) TO NB
038481,001713: 33,3745           77624                           CALL                                           
038482,001714: 33,3746           47673                                    *SMNB*                                
038483,001715: 33,3747           02245                           STORE    VXBEAMNB                              
038484,001716: 33,3750           76435                           VXV      VSL1                                  
038485,001717: 33,3751           02237                                    VYBEAMNB                              
038486,001718: 33,3752           26231                           STOVL    VZBEAMNB                              #  Z = X * Y
038487,001719: 33,3753           26003                                    HBEAMANT                              
038488,001720: 33,3754           77624                           CALL                                           
038489,001721: 33,3755           47673                                    *SMNB*                                #  CONVERT TO NB
038490,001722: 33,3756           02273                           STORE    HBEAMNB                               
038491,001723: 33,3757           77776                           EXIT                                           
038492,001724: 
038493,001725: 33,3760           01650                           TC       LRADRET                               
038494,001726: 
038495,001727: 33,3761           00523        OCT523             OCT      00523                                 

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