Source Code

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

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

022418,000002:                                                                                                  ## Copyright:   Public domain.
022419,000003:                                                                                                  ## Filename:    P20-P25.agc
022420,000004:                                                                                                  ## Filename:    P20-P25.agc
022421,000005:                                                                                                  ## Purpose:     A section of Luminary revision 210.
022422,000006:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
022423,000007:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
022424,000008:                                                                                                  ##              This file is intended to be a faithful transcription, except
022425,000009:                                                                                                  ##              that the code format has been changed to conform to the
022426,000010:                                                                                                  ##              requirements of the yaYUL assembler rather than the
022427,000011:                                                                                                  ##              original YUL assembler.
022428,000012:                                                                                                  ## Reference:   pp. 507-619
022429,000013:                                                                                                  ## Assembler:   yaYUL
022430,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
022431,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
022432,000016:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
022433,000017:                                                                                                  ##              2016-11-23 MAS  Began transcription.
022434,000018:                                                                                                  ##              2016-11-27 MAS  Completed transcription. Largely the same, but RR handling was
022435,000019:                                                                                                  ##                              rewritten, and there are other small changes here and there.
022436,000020:                                                                                                  ##              2016-11-28 HG   Fix  operand P20S23  --> P20S3
022437,000021:                                                                                                  ##                                           RENRAD  --> RENDRAD   
022438,000022:                                                                                                  ##              2016-12-07 HG   Fix P00 -> POO
022439,000023:                                                                                                  ##                              Change POO -> P00 in some comments
022440,000024:                                                                                                  ##              2016-12-11 HG   fix operator BZF -> BZMF
022441,000025:                                                                                                  ##              2016-12-12 MAS  Corrected a TCF that should have been a BZF.
022442,000026:                                                                                                  ##              2016-12-25 RSB  Comment-text proofed using ProoferComments
022443,000027:                                                                                                  ##                              and corrected errors found.
022444,000028:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
022445,000029:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
022446,000030: 

Page 507

022448,000032:                                                                                                  #  RENDEZVOUS NAVIGATION PROGRAM 20
022449,000033:                                                                                                  #  PROGRAM DESCRIPTION
022450,000034:                                                                                                  #  MOD NO - 2
022451,000035:                                                                                                  #  BY  P. VOLANTE
022452,000036:                                                                                                  #  FUNCTIONAL DESCRIPTION
022453,000037: 
022454,000038:                                                                                                  #    THE PURPOSE OF THIS PROGRAM IS TO CONTROL THE RENDEZVOUS RADAR FROM
022455,000039:                                                                                                  #  STARTUP THROUGH ACQUISITION AND LOCKON TO THE CSM AND TO UPDATE EITHER 
022456,000040:                                                                                                  #  THE LM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY DSKY ENTRY)
022457,000041:                                                                                                  #  ON THE BASIS OF THE RR TRACKING DATA.
022458,000042:                                                                                                  #  CALLING SEQUENCE -
022459,000043: 
022460,000044:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY V37E20E
022461,000045:                                                                                                  #  SUBROUTINES CALLED
022462,000046:                                                                                                  #    R02BOTH (IMU STATUS CHECK)               FLAGUP
022463,000047:                                                                                                  #    GOFLASH (PINBALL-DISPLAY)                FLAGDOWN
022464,000048:                                                                                                  #    R23LEM  (MANUAL ACQUISITION)             BANKCALL
022465,000049:                                                                                                  #    LS201   (LOS DETERMINATION)              TASKOVER
022466,000050:                                                                                                  #    LS202   (RANGE LIMIT TEST)
022467,000051:                                                                                                  #    R61LEM  (PREFERRED TRACKING ATTITUDE)
022468,000052:                                                                                                  #    R21LEM  (RR DESIGNATE)                   ENDOFJOB
022469,000053:                                                                                                  #    R22LEM  (DATA READ)                      GOPERF1
022470,000054:                                                                                                  #    R31LEM  (RENDEZVOUS PARAMETER DISPLAY)    
022471,000055:                                                                                                  #    PRIOLARM (PRIORITY DISPLAY)
022472,000056:                                                                                                  #  NORMAL EXIT MODES-
022473,000057:                                                                                                  #    P20 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
022474,000058:                                                                                                  #  PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
022475,000059:                                                                                                  #  ALARM OR ABORT EXIT MODES-
022476,000060:                                                                                                  #    RANGE GREATER THAN 400 NM DISPLAY
022477,000061:                                                                                                  #  OUTPUT
022478,000062:                                                                                                  #    TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
022479,000063:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
022480,000064:                                                                                                  #  FLAGS SET + RESET
022481,000065:                                                                                                  #    SRCHOPT,RNDVZFLG,ACMODFLG,VEHUPFLG,UPDATFLG,TRACKFLG,
022482,000066:                                                                                                  #  DEBRIS
022483,000067:                                                                                                  #    CENTRALS-A,Q,L
022484,000068: 25,2053  30,2000                                  SBANK=   LOWSUPER                              #  FOR LOW 2CADR'S.
022485,000069: 
022486,000070: 33,2113                                           BANK     33                                    
022487,000071: 24,2000                                           SETLOC   P20S                                  
022488,000072: 24,2000                                           BANK                                           
022489,000073: 
022490,000074: 24,2000  E7,1456                                  EBANK=   LOSCOUNT                              
022491,000075: 24,2000                                           COUNT*   $$/P20                                
022492,000076: 24,2000  24,2000               PROG22             =        PROG20                                
022493,000077: 24,2000           05331        PROG20             TC       2PHSCHNG                              
022494,000078: 24,2001           00004                           OCT      4                                     
022495,000079: 24,2002           05022                           OCT      05022                                 
022496,000080: 24,2003           26000                           OCT      26000                                 #  PRIORITY 26
022497,000081: 24,2004           02751                           TC       LUNSFCHK                              #  CHECK IF ON LUNAR SURFACE

Page 508

022499,000083: 24,2005           02007                           TC       ORBCHGO                               #  YES
022500,000084: 24,2006           02036                           TC       PROG20A    -2                         #  NO - CONTINUE WITH P20
022501,000085: 24,2007           05506        ORBCHGO            TC       UPFLAG                                #  SET VEHUPFLG - CSM STATE
022502,000086: 24,2010           00026                           ADRES    VEHUPFLG                              #  VECTOR TO BE UPDATED
022503,000087: 24,2011           34744                           CAF      ONE                                   #  SET R2 FOR OPTION CSM WILL NOT
022504,000088: 24,2012           55144                           TS       OPTION2                               #  CHANGE PRESENT ORBIT
022505,000089: 24,2013           34354                           CAF      OCT00012                              
022506,000090: 24,2014           04607                           TC       BANKCALL                              #  DISPLAY ASSUMED CSM ORBIT OPTION
022507,000091: 24,2015           20645                           CADR     GOPERF4                               
022508,000092: 24,2016           06001                           TC       GOTOPOOH                              #  TERMINATE
022509,000093: 24,2017           02021                           TC       ORBCHG1                               #  PROCEED VALUE OF ASSUMED OPTION OK
022510,000094: 24,2020           02013                           TC       -5                                    #  R2 LOADED THRU DSKY
022511,000095: 24,2021           44744        ORBCHG1            CS       ONE                                   
022512,000096: 24,2022           61144                           AD       OPTION2                               
022513,000097: 24,2023           00006                           EXTEND                                         
022514,000098: 24,2024           12040                           BZF      PROG20A                               
022515,000099: 24,2025           32367                           CAF      V06N33*                               
022516,000100: 24,2026           04607                           TC       BANKCALL                              #  FLASH VERB-NOUN TO REQUEST ESTIMATED
022517,000101: 24,2027           20471                           CADR     GOFLASH                               #  TIME OF LAUNCH
022518,000102: 24,2030           06001                           TC       GOTOPOOH                              #  TERMINATE
022519,000103: 24,2031           02033                           TC       ORBCHG2                               #  PROCEED VALUES OK
022520,000104: 24,2032           02025                           TC       -5                                    #  TIME LOADED THRU DSKY
022521,000105: 24,2033           06060        ORBCHG2            TC       INTPRET                               
022522,000106: 24,2034           77650                           GOTO                                           
022523,000107: 24,2035           64213                                    ORBCHG3                               
022524,000108: 32,2213                                           BANK     32                                    
022525,000109: 32,2000                                           SETLOC   P20S4                                 
022526,000110: 32,2000                                           BANK                                           
022527,000111: 32,2213                                           COUNT*   $$/P20                                
022528,000112: 
022529,000113: 32,2213           77624        ORBCHG3            CALL                                           
022530,000114: 32,2214           27447                                    INTSTALL                              
022531,000115: 32,2215           77745                           DLOAD                                          
022532,000116: 32,2216           03442                                    TIG                                   
022533,000117: 32,2217           03661                           STORE    LNCHTM                                
022534,000118: 32,2220           00041                           STORE    TDEC1                                 #  ESTIMATED LAUNCH TIME
022535,000119: 32,2221           43014                           CLEAR    CLEAR                                 
022536,000120: 32,2222           01674                                    VINTFLAG                              #  LM INTEGRATION
022537,000121: 32,2223           01673                                    INTYPFLG                              #  PRECISION - ENCKE
022538,000122: 32,2224           43014                           CLEAR    CLEAR                                 
022539,000123: 32,2225           01676                                    DIM0FLAG                              #  NO W-MATRIX
022540,000124: 32,2226           01675                                    D6OR9FLG                              
022541,000125: 32,2227           77624                           CALL                                           
022542,000126: 32,2230           27172                                    INTEGRV                               #  PLANETARY INERTIAL ORIENTATION
022543,000127: 32,2231           77624                           CALL                                           
022544,000128: 32,2232           51770                                    GRP2PC                                
022545,000129: 32,2233           77775                           VLOAD                                          
022546,000130: 32,2234           00017                                    RATT1                                 
022547,000131: 32,2235           17631                           STODL    RSUBL                                 #  SAVE LM POSITION
022548,000132: 32,2236           00015                                    TAT                                   

Page 509

022550,000134: 32,2237           34041                           STCALL   TDEC1                                 
022551,000135: 32,2240           27447                                    INTSTALL                              
022552,000136: 32,2241           43014                           SET      CLEAR                                 
022553,000137: 32,2242           01474                                    VINTFLAG                              #  CSM INTEGRATION
022554,000138: 32,2243           01673                                    INTYPFLG                              
022555,000139: 32,2244           43014                           CLEAR    BOFF                                  
022556,000140: 32,2245           01676                                    DIM0FLAG                              
022557,000141: 32,2246           02756                                    RENDWFLG                              #  W MATRIX VALID
022558,000142: 32,2247           64253                                    NOWMATX                               #  NO
022559,000143: 32,2250           43014                           SET      SET                                   #  YES - SET FOR W MATRIX
022560,000144: 32,2251           01476                                    DIM0FLAG                              
022561,000145: 32,2252           01475                                    D6OR9FLG                              
022562,000146: 32,2253           77624        NOWMATX            CALL                                           
022563,000147: 32,2254           27172                                    INTEGRV                               #  CSM INTEGRATION
022564,000148: 32,2255           77624                           CALL                                           
022565,000149: 32,2256           51770                                    GRP2PC                                
022566,000150: 32,2257           77775                           VLOAD                                          
022567,000151: 32,2260           00025                                    VATT1                                 
022568,000152: 32,2261           25757                           STOVL    VSUBC                                 #  SAVE CSM VELOCITY
022569,000153: 32,2262           00017                                    RATT1                                 
022570,000154: 32,2263           01101                           STORE    RSUBC                                 #  SAVE CSM POSITION
022571,000155: 32,2264           53435                           VXV      UNIT                                  #  COMPUTE NORMAL TO CSM ORBITAL PLANE
022572,000156: 32,2265           01757                                    VSUBC                                 #  NSUB1=UNIT(R(CM) CROSS V(CM)
022573,000157: 32,2266           24025                           STOVL    20D                                   #  SAVE NSUB1
022574,000158: 32,2267           03631                                    RSUBL                                 #  COMPUTE ESTIMATED ORBITAL
022575,000159: 32,2270           53435                           VXV      UNIT                                  #  PLANE CHANGE
022576,000160: 32,2271           00025                                    20D                                   #  UCSM = UNIT(R(LM) CROSS NSUB1)
022577,000161: 32,2272           27637                           STOVL    UCSM                                  
022578,000162: 32,2273           01101                                    RSUBC                                 #  COMPUTE ANGLE BETWEEN UCSM
022579,000163: 32,2274           50256                           UNIT     DOT                                   #  AND RSUBC
022580,000164: 32,2275           03637                                    UCSM                                  #  COS A = UCSM DOT UNIT (R(CM))
022581,000165: 32,2276           77752                           SL1                                            
022582,000166: 32,2277           02732                           STORE    CSTH                                  #  SAVE DOE TIME-THETA SUBROUTINE
022583,000167: 32,2300           44316                           DSQ      BDSU                                  #  COMPUTE SINE A
022584,000168: 32,2301           06475                                    ONEB-2                                
022585,000169: 32,2302           77766                           SQRT                                           
022586,000170: 32,2303           26730                           STOVL    SNTH                                  #  SAVE FOR TIME-THETA SUBROUTINE
022587,000171: 32,2304           01101                                    RSUBC                                 #  POSITION OF CSM AT EST. LAUNCH
022588,000172: 32,2305           26655                           STOVL    RVEC                                  #  TIME FOR TIME-THETA   B-27
022589,000173: 32,2306           01757                                    VSUBC                                 #  VELOCITY OF CSM AT EST. LAUNCH
022590,000174: 32,2307           77676                           VCOMP                                          
022591,000175: 32,2310           02744                           STORE    VVEC                                  #  TIME FOR TIME THETA   B-5
022592,000176: 32,2311           45014                           CLEAR    CALL                                  
022593,000177: 32,2312           03666                                    RVSW                                  
022594,000178: 32,2313           24732                                    TIMETHET                              
022595,000179: 32,2314           77676                           VCOMP                                          
022596,000180: 32,2315           03645                           STORE    NEWVEL                                #  TERMINAL VELOCITY OF CSM
022597,000181: 32,2316           77745                           DLOAD                                          
022598,000182: 32,2317           00037                                    T                                     
022599,000183: 32,2320           27663                           STOVL    TRANSTM                               #  TRANSFER TIME

Page 510

022601,000185: 32,2321           03645                                    NEWVEL                                
022602,000186: 32,2322           77646                           ABVAL                                          
022603,000187: 32,2323           24025                           STOVL    20D                                   
022604,000188: 32,2324           00001                                    0D                                    
022605,000189: 32,2325           03653                           STORE    NEWPOS                                #  TERMINAL POSITION OF CSM
022606,000190: 32,2326           53435                           VXV      UNIT                                  #  COMPUTE NORMAL TO CSM ORBITAL PLANE
022607,000191: 32,2327           03631                                    RSUBL                                 #  NSUB2 = UNIT(NEWPOS CROSS R(LM))
022608,000192: 32,2330           53435                           VXV      UNIT                                  #  ROTATE TERMINAL VEL INTO DESIRED
022609,000193: 32,2331           03653                                    NEWPOS                                #  ORBITAL PLANE
022610,000194: 32,2332           76561                           VXSC     VSL1                                  #  VSUBC = ABVAL(NEWVEL) $ UNIT( NSUB2
022611,000195: 32,2333           00025                                    20D                                   
022612,000196: 32,2334           37665                           STCALL   NCSMVEL                               #  NEW CSM VELOCITY
022613,000197: 32,2335           51770                                    GRP2PC                                
022614,000198: 32,2336           77624                           CALL                                           
022615,000199: 32,2337           27447                                    INTSTALL                              
022616,000200: 32,2340           44345                           DLOAD    BDSU                                  
022617,000201: 32,2341           03663                                    TRANSTM                               #  LAUNCH TIME - TRANSFER TIME
022618,000202: 32,2342           03661                                    LNCHTM                                
022619,000203: 32,2343           25517                           STOVL    TET                                   
022620,000204: 32,2344           03653                                    NEWPOS                                
022621,000205: 32,2345           01535                           STORE    RCV                                   
022622,000206: 32,2346           25503                           STOVL    RRECT                                 
022623,000207: 32,2347           03665                                    NCSMVEL                               
022624,000208: 32,2350           35511                           STCALL   VRECT                                 
022625,000209: 32,2351           27734                                    MINIRECT                              
022626,000210: 32,2352           45174                           AXT,2    CALL                                  
022627,000211: 32,2353           00002                                    2                                     
022628,000212: 32,2354           26717                                    ATOPCSM                               
022629,000213: 32,2355           77624                           CALL                                           
022630,000214: 32,2356           27456                                    INTWAKE0                              
022631,000215: 32,2357           77776                           EXIT                                           
022632,000216: 32,2360           04607                           TC       BANKCALL                              
022633,000217: 32,2361           50040                           CADR     PROG20A                               
022634,000218: 24,2036                                           BANK     24                                    
022635,000219: 24,2000                                           SETLOC   P20S                                  
022636,000220: 24,2000                                           BANK                                           
022637,000221: 24,2036                                           COUNT*   $$/P20                                
022638,000222: 
022639,000223: 24,2036           05520                           TC       DOWNFLAG                              #  RESET VEHUPFLG- LM STATE VECTOR
022640,000224: 24,2037           00026                           ADRES    VEHUPFLG                              #  TO BE UPDATED
022641,000225: 24,2040           04607        PROG20A            TC       BANKCALL                              
022642,000226: 24,2041           33757                           CADR     R02BOTH                               
022643,000227: 24,2042           05506                           TC       UPFLAG                                
022644,000228: 24,2043           00027                           ADRES    UPDATFLG                              #  SET UPDATE FLAG
022645,000229: 24,2044           05506                           TC       UPFLAG                                
022646,000230: 24,2045           00031                           ADRES    TRACKFLG                              #  SET TRACK FLAG
022647,000231: 24,2046           05506                           TC       UPFLAG                                
022648,000232: 24,2047           00010                           ADRES    RNDVZFLG                              #  SET RENDEZVOUS FLAG
022649,000233: 24,2050           05520                           TC       DOWNFLAG                              
022650,000234: 24,2051           00037                           ADRES    SRCHOPTN                              #  INSURE SEARCH OPTION OFF

Page 511

022652,000236: 24,2052           05520                           TC       DOWNFLAG                              #  ALSO MANUAL ACQUISITION FLAG RESET
022653,000237: 24,2053           00040                           ADRES    ACMODFLG                              
022654,000238: 24,2054           05520                           TC       DOWNFLAG                              #  TURN OFF R04FLAG TO ENSURE GETTING
022655,000239: 24,2055           00063                           ADRES    R04FLAG                               #  ALARM 521 IF CANT READ RADAR
022656,000240: 24,2056           05520                           TC       DOWNFLAG                              #  ENSURE R25 GIMBAL MONITOR IS ENABLED
022657,000241: 24,2057           00126                           ADRES    NORRMON                               #  (RESET NORRMON FLAG)
022658,000242: 24,2060           05520                           TC       DOWNFLAG                              #  RESET LOS BEING COMPUTED FLAG
022659,000243: 24,2061           00041                           ADRES    LOSCMFLG                              
022660,000244: 24,2062           06032                           TC       CLRADMD1                              
022661,000245: 24,2063           05506                           TC       UPFLAG                                
022662,000246: 24,2064           00005                           ADRES    FSPASFLG                              #  SET FIRST PASS FLAG FOR ALARM
022663,000247: 24,2065           05355        P20LEM1            TC       PHASCHNG                              
022664,000248: 24,2066           04022                           OCT      04022                                 
022665,000249: 24,2067           34746                           CAF      ZERO                                  #  ZERO MARK COUNTER
022666,000250: 24,2070           55462                           TS       MARKCTR                               
022667,000251: 24,2071           06060        P20LEM2            TC       INTPRET                               #  LOS DETERMINATION ROUTINE
022668,000252: 24,2072           77634                           RTB                                            
022669,000253: 24,2073           21603                                    LOADTIME                              
022670,000254: 24,2074           34041                           STCALL   TDEC1                                 
022671,000255: 24,2075           51337                                    LPS20.1                               
022672,000256: 24,2076           77624                           CALL                                           
022673,000257: 24,2077           53626                                    LPS20.2                               #  TEST RANGE R/UTINE
022674,000258: 24,2100           77776                           EXIT                                           
022675,000259: 24,2101           50154                           INDEX    MPAC                                  
022676,000260: 24,2102           02103                           TC       +1                                    
022677,000261: 24,2103           02167                           TC       P20LEMA                               #  NORMAL RETURN WITHIN 400 N M
022678,000262: 24,2104           06060        526ALARM           TC       INTPRET                               
022679,000263: 24,2105           53575                           VLOAD    UNIT                                  
022680,000264: 24,2106           00025                                    RRANGE                                
022681,000265: 24,2107           72441                           DOT      SL1                                   
022682,000266: 24,2110           00017                                    VELLOS                                
022683,000267: 24,2111           16216                           STODL    RRATE                                 #  RANGE RATE FOR NOUN 54 B-7
022684,000268: 24,2112           00045                                    36D                                   
022685,000269: 24,2113           51025                           DSU      BPL                                   #  IF RANGE>999.99,DISPLAY 999.99
022686,000270: 24,2114           10372                                    999.99NM                              
022687,000271: 24,2115           50142                                    TOOBIG                                
022688,000272: 24,2116           77745                           DLOAD                                          
022689,000273: 24,2117           00045                                    36D                                   
022690,000274: 24,2120           16214        526ALRM1           STODL    RANGE                                 #   RANGE FOR NOUN 54 B-29
022691,000275: 24,2121           06505                                    ZEROVECS                              
022692,000276: 24,2122           02220                           STORE    RTHETA                                #  ZERO THETA FOR NOUN 54
022693,000277: 24,2123           43014                           BOFF     BOFF                                  
022694,000278: 24,2124           00345                                    FSPASFLG                              #  FIRST PASS
022695,000279: 24,2125           50155                                    P20LEMC5                              #  NO
022696,000280: 24,2126           04347                                    SURFFLAG                              #  ON LUNAR SURFACE
022697,000281: 24,2127           50147                                    ALRMLT                                #  NO
022698,000282: 24,2130           51145                           DLOAD    BPL                                   
022699,000283: 24,2131           02216                                    RRATE                                 
022700,000284: 24,2132           50145                                    ENDRN                                 
022701,000285: 24,2133           77776                           EXIT                                           #  YES
022702,000286: 

Page 512

022704,000288: 24,2134           05355                           TC       PHASCHNG                              #  IN CASE OF RESTART
022705,000289: 24,2135           04022                           OCT      04022                                 #  REACTIVATE DISPLAY
022706,000290: 24,2136           32373                           CAF      V16N5420                              
022707,000291: 24,2137           04607                           TC       BANKCALL                              #  TURN ON V16N54 - DISPLAY
022708,000292: 24,2140           20444                           CADR     GODSPR                                #  RANGE AND RANGE RATE
022709,000293: 24,2141           02156                           TC       P20LEM5                               
022710,000294: 
022711,000295: 
022712,000296: 24,2142           52145        TOOBIG             DLOAD    GOTO                                  
022713,000297: 24,2143           10372                                    999.99NM                              
022714,000298: 24,2144           50120                                    526ALRM1                              
022715,000299: 
022716,000300: 24,2145           77776        ENDRN              EXIT                                           
022717,000301: 24,2146           06043                           TC       GOTOV56                               
022718,000302: 
022719,000303: 24,2147           77776        ALRMLT             EXIT                                           
022720,000304: 24,2150           05355                           TC       PHASCHNG                              
022721,000305: 24,2151           04022                           OCT      04022                                 
022722,000306: 24,2152           05571                           TC       ALARM                                 #  TURN ON ALARM LIGHT P20
022723,000307: 24,2153           00526                           OCT      526                                   
022724,000308: 24,2154           02156                           TC       P20LEM5                               
022725,000309: 24,2155           77776        P20LEMC5           EXIT                                           
022726,000310: 24,2156           05520        P20LEM5            TC       DOWNFLAG                              
022727,000311: 24,2157           00005                           ADRES    FSPASFLG                              
022728,000312: 24,2160           32370                           CAF      500DEC                                #  WAIT 5SECS
022729,000313: 24,2161           04607                           TC       BANKCALL                              
022730,000314: 24,2162           01736                           CADR     DELAYJOB                              
022731,000315: 24,2163           02071                           TC       P20LEM2                               
022732,000316: 
022733,000317: 
022734,000318: 24,2164           04607        P20LEM3            TC       BANKCALL                              
022735,000319: 24,2165           20451                           CADR     CLEANDSP                              
022736,000320: 
022737,000321: 
022738,000322: 24,2166           02175                           TC       P20LEMB                               
022739,000323: 24,2167           05355        P20LEMA            TC       PHASCHNG                              
022740,000324: 24,2170           04022                           OCT      04022                                 
022741,000325: 24,2171           02751                           TC       LUNSFCHK                              #  CHECK LUNAR SURFACE FLAG (P22 FLAG)
022742,000326: 24,2172           02164                           TC       P20LEM3                               
022743,000327: 24,2173           04607                           TC       BANKCALL                              
022744,000328: 24,2174           46116                           CADR     R61LEM                                #  PREFERRED TRACKING ATTITUDE ROUTINE
022745,000329: 24,2175           05355        P20LEMB            TC       PHASCHNG                              
022746,000330: 24,2176           05022                           OCT      05022                                 #  RESTART AT PRIORITY 10 TO ALLOW V37
022747,000331: 24,2177           10000                           OCT      10000                                 #  REQUESTED PROGRAM TO RUN FIRST
022748,000332: 24,2200           37735                           CAF      PRIO26                                #  RESTORE PRIORITY 26
022749,000333: 24,2201           05137                           TC       PRIOCHNG                              
022750,000334: 24,2202           30075                           CA       FLAGWRD1                              #  IS THE TRACK FLAG SET
022751,000335: 24,2203           74740                           MASK     TRACKBIT                              
022752,000336: 24,2204           00006                           EXTEND                                         
022753,000337: 24,2205           12310                           BZF      P20LEMWT                              #   BRANCH - NO - WAIT FOR IT TO BE SET
022754,000338: 

Page 513

022756,000340: 24,2206           34743        P20LEMB7           CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
022757,000341: 24,2207           00006                           EXTEND                                         
022758,000342: 24,2210           02033                           RAND     CHAN33                                
022759,000343: 24,2211           00006                           EXTEND                                         
022760,000344: 24,2212           12246                           BZF      P20LEMB3                              #  YES - DO AUTOMATIC ACQUISITION (R21)
022761,000345: 
022762,000346: 24,2213           46007        P20LEMB5           CS       OCT24                                 #  RADAR NOT IN AUTO CHECK IF
022763,000347: 24,2214           61010                           AD       MODREG                                #  MAJOR MODE IS 20
022764,000348: 24,2215           00006                           EXTEND                                         
022765,000349: 24,2216           12231                           BZF      P20LEMB6                              #  BRANCH - YES-OK TO DO PLEASE PERFORM
022766,000350: 
022767,000351: 
022768,000352: 24,2217           67767                           AD       NEG2                                  #  ALSO CHECK FOR P22
022769,000353: 24,2220           00006                           EXTEND                                         
022770,000354: 24,2221           12231                           BZF      P20LEMB6                              #  BRANCH - YES OK TO DO PLEASE PERFORM
022771,000355: 24,2222           32365                           CAF      ALRM514                               #  TRACK FLAG SET-FLASH PRIORITY ALARM 514-
022772,000356: 24,2223           04607                           TC       BANKCALL                              #  RADAR GOES OUT OF AUTO MODE WHILE IN USE
022773,000357: 24,2224           21572                           CADR     PRIOLARM                              
022774,000358: 24,2225           06043                           TC       GOTOV56                               #  TERMINATE EXITS VIA V56
022775,000359: 24,2226           02175                           TC       P20LEMB                               #  PROCEED AND ENTER BOTH GO BACK
022776,000360: 24,2227           02175                           TC       P20LEMB                               #  TO CHECK AUTO MODE AGAIN
022777,000361: 24,2230           05146                           TC       ENDOFJOB                              
022778,000362: 24,2231           32364        P20LEMB6           CAF      OCT201                                #  REQUEST RR AUTO MODE SELECTION
022779,000363: 24,2232           04607                           TC       BANKCALL                              
022780,000364: 24,2233           20635                           CADR     GOPERF1                               
022781,000365: 24,2234           06043                           TC       GOTOV56                               #  TERMINATE EXITS P20 VIA V56 CODING
022782,000366: 24,2235           02175                           TC       P20LEMB                               #  PROCEED CHECKS AUTO MODE DISCRETE AGAIN
022783,000367: 24,2236           02751                           TC       LUNSFCHK                              #  ENTER INDICATES MANUAL ACQUISITION (R23)
022784,000368: 24,2237           02244                           TC       P20LEMB2                              #  YES - R23 NOT ALLOWED-TURN ON OPR ERROR
022785,000369: 24,2240           03220                           TC       R23LEM                                #  NO - DO MANUAL ACQUISITION
022786,000370: 
022787,000371: 
022788,000372: 24,2241           05506        P20LEMB1           TC       UPFLAG                                #  RETURN FROM R23 - LOCKON ACHIEVED
022789,000373: 24,2242           00040                           ADRES    ACMODFLG                              #  SET MANUAL FLAG AND GO BACK TO CHECK
022790,000374: 24,2243           02175                           TC       P20LEMB                               #  RR AUTO MODE
022791,000375: 
022792,000376: 
022793,000377: 24,2244           04355        P20LEMB2           TC       FALTON                                #  TURNS ON OPERATOR ERROR LIGHT ON DSKY
022794,000378: 24,2245           02175                           TC       P20LEMB                               #  AND GOES BACK TO CHECK AUTO MODE
022795,000379: 
022796,000380: 
022797,000381: 24,2246           40110        P20LEMB3           CS       RADMODES                              #  ARE RR CDUS BEING ZEROED
022798,000382: 24,2247           74730                           MASK     RCDU0BIT                              
022799,000383: 24,2250           00006                           EXTEND                                         
022800,000384: 24,2251           12263                           BZF      P20LEMB4                              #  BRANCH - YES - WAIT
022801,000385: 24,2252           34346                           CAF      BIT13-14                              #  IS SEARCH OR MANUAL ACQUISITION FLAG SET
022802,000386: 24,2253           70076                           MASK     FLAGWRD2                              
022803,000387: 24,2254           00006                           EXTEND                                         
022804,000388: 24,2255           12267                           BZF      P20LEMC3                              #  ZERO MEANS AUTOMATIC RR ACQUISTION

Page 514

022806,000390: 24,2256           05520                           TC       DOWNFLAG                              #  RESET TO AUTO MODE
022807,000391: 24,2257           00037                           ADRES    SRCHOPTN                              
022808,000392: 24,2260           05520                           TC       DOWNFLAG                              
022809,000393: 24,2261           00040                           ADRES    ACMODFLG                              
022810,000394: 24,2262           02310                           TC       P20LEMWT                              #  WAIT 2.5 SECONDS THEN GO TO RR DATA READ
022811,000395: 
022812,000396: 
022813,000397: 24,2263           32362        P20LEMB4           CAF      250DEC                                
022814,000398: 24,2264           04607                           TC       BANKCALL                              #  WAIT 2.5 SECONDS WHILE RR CDUS ARE BEING
022815,000399: 24,2265           01736                           CADR     DELAYJOB                              #  ZEROED-THEN GO BACK AND CHECK AGAIN
022816,000400: 24,2266           02246                           TC       P20LEMB3                              
022817,000401: 
022818,000402: 
022819,000403: 24,2267           06060        P20LEMC3           TC       INTPRET                               
022820,000404: 24,2270           77634                           RTB                                            
022821,000405: 24,2271           21603                                    LOADTIME                              
022822,000406: 24,2272           34041                           STCALL   TDEC1                                 
022823,000407: 24,2273           50374                                    UPPSV                                 
022824,000408: 24,2274           77776        P20LEMC4           EXIT                                           
022825,000409: 24,2275           05355        P20LEMC            TC       PHASCHNG                              
022826,000410: 24,2276           04022                           OCT      04022                                 
022827,000411: 24,2277           30074                           CAE      FLAGWRD0                              #  IS THE RENDEZVOUS FLAG SET
022828,000412: 24,2300           74736                           MASK     RNDVZBIT                              
022829,000413: 24,2301           00006                           EXTEND                                         
022830,000414: 24,2302           15146                           BZF      ENDOFJOB                              #  NO - EXIT P20
022831,000415: 24,2303           30075                           CAE      FLAGWRD1                              #  IS TRACK FLAG SET  (BIT 5 FLAGWORD 1)
022832,000416: 24,2304           74740                           MASK     TRACKBIT                              
022833,000417: 24,2305           00006                           EXTEND                                         
022834,000418: 24,2306           12342                           BZF      P20LEMD                               #  BRANCH-TRACK FLAG NOT ON-WAIT 15 SECONDS
022835,000419: 24,2307           02756        P20LEMF            TC       R21LEM                                
022836,000420: 
022837,000421: 
022838,000422: 24,2310           32362        P20LEMWT           CAF      250DEC                                
022839,000423: 24,2311           05175                           TC       TWIDDLE                               #  USE INSTEAD OF WAITLIST SINCE SAME BANK
022840,000424: 24,2312           02322                           ADRES    P20LEMC1                              #  WAIT 2.5 SECONDS
022841,000425: 24,2313           30075                           CAE      FLAGWRD1                              #  IS TRACK FLAG SET
022842,000426: 24,2314           74740                           MASK     TRACKBIT                              
022843,000427: 24,2315           00006                           EXTEND                                         
022844,000428: 24,2316           15146                           BZF      ENDOFJOB                              #  NO-EXIT WITHOUT DOING 2.7 PHASE CHANGE
022845,000429: 24,2317           05355        P20LMWT1           TC       PHASCHNG                              
022846,000430: 24,2320           40072                           OCT      40072                                 
022847,000431: 24,2321           05146                           TC       ENDOFJOB                              
022848,000432: 
022849,000433: 
022850,000434: 24,2322           30074        P20LEMC1           CAE      FLAGWRD0                              #  IS RENDEZVOUS FLAG SET
022851,000435: 24,2323           74736                           MASK     RNDVZBIT                              
022852,000436: 24,2324           00006                           EXTEND                                         
022853,000437: 24,2325           15263                           BZF      TASKOVER                              #  NO - EXIT P20/R22
022854,000438: 24,2326           30075                           CAE      FLAGWRD1                              #  IS TRACK FLAG SET
022855,000439: 24,2327           74740                           MASK     TRACKBIT                              

Page 515

022857,000441: 24,2330           00006                           EXTEND                                         
022858,000442: 24,2331           12337                           BZF      P20LEMC2                              #  NO-DONT SCHEDULE R22 JOB
022859,000443: 24,2332           37735                           CAF      PRIO26                                #  YES-SCHEDULE R22 JOB (RR DATA READ)
022860,000444: 24,2333           05076                           TC       FINDVAC                               
022861,000445: 24,2334  E7,1456                                  EBANK=   LOSCOUNT                              
022862,000446: 24,2334           02713 50067                     2CADR    R22LEM42                              
022863,000447: 
022864,000448: 24,2336           05263                           TC       TASKOVER                              
022865,000449: 
022866,000450: 
022867,000451: 24,2337           05223        P20LEMC2           TC       FIXDELAY                              #  TRACK FLAG NOT SET ,WAIT 15 SECONDS
022868,000452: 24,2340           02734                           DEC      1500       B-14                       #  AND CHECK AGAIN
022869,000453: 
022870,000454: 24,2341           02322                           TC       P20LEMC1                              
022871,000455: 
022872,000456: 24,2342           32750        P20LEMD            CAF      1500DEC                               
022873,000457: 24,2343           05175                           TC       TWIDDLE                               #  WAITLIST FOR 15 SECONDS
022874,000458: 24,2344           02346                           ADRES    P20LEMD1                              
022875,000459: 24,2345           05146                           TC       ENDOFJOB                              
022876,000460: 
022877,000461: 
022878,000462: 24,2346           30075        P20LEMD1           CAE      FLAGWRD1                              #  IS TRACK FLAG SET
022879,000463: 24,2347           74740                           MASK     TRACKBIT                              
022880,000464: 24,2350           10000                           CCS      A                                     
022881,000465: 24,2351           12355                           TCF      P20LEMD2                              #  YES-SCHEDULE DESIGNATE JOB
022882,000466: 24,2352           05223                           TC       FIXDELAY                              #  NO-WAIT 15 SECONDS
022883,000467: 24,2353           02734                           DEC      1500       B-14                       
022884,000468: 24,2354           02346                           TC       P20LEMD1                              
022885,000469: 
022886,000470: 
022887,000471: 24,2355           37735        P20LEMD2           CAF      PRIO26                                #  SCHEDULE JOB TO DO R21
022888,000472: 24,2356           05076                           TC       FINDVAC                               
022889,000473: 24,2357  E7,1456                                  EBANK=   LOSCOUNT                              
022890,000474: 24,2357           02267 50067                     2CADR    P20LEMC3                              #  START AT PERM. MEMORY INTEGRATION
022891,000475: 
022892,000476: 24,2361           05263                           TC       TASKOVER                              
022893,000477: 
022894,000478: 
022895,000479: 24,2362           00372        250DEC             DEC      250        B-14                       
022896,000480: 24,2363           00526        ALRM526            OCT      00526                                 
022897,000481: 24,2364           00201        OCT201             OCT      00201                                 
022898,000482: 24,2365           00514        ALRM514            OCT      514                                   
022899,000483: 24,2366           00074        MAXTRIES           DEC      60         B-14                       
022900,000484: 24,2367     4354               OCT00012           EQUALS   BINCON                                
022901,000485: 24,2367  23,2474               ONEB-2             EQUALS   DP1/4TH                               
022902,000486: 24,2367           01441        V06N33*            VN       0633                                  
022903,000487: 24,2370           00764        500DEC             DEC      500        B-14                       
022904,000488: 24,2371           00070 20447  999.99NM           2DEC     1851982    B-29                       
022905,000489: 
022906,000490: 24,2373           04066        V16N5420           VN       1654                                  
022907,000491: 

Page 516

022909,000493: 24,2374           45020        UPPSV              STQ      CALL                                  #  UPDATES PERMANENT STATE VECTORS
022910,000494: 24,2375           01755                                    LS21X                                 #   TO PRESENT TIME
022911,000495: 24,2376           27447                                    INTSTALL                              
022912,000496: 24,2377           77624                           CALL                                           
022913,000497: 24,2400           26702                                    SETIFLGS                              
022914,000498: 24,2401           43014                           BOF      SET                                   #  IF W-MATRIX INVALID,DONT INTEGRATE IT
022915,000499: 24,2402           02756                                    RENDWFLG                              
022916,000500: 24,2403           50414                                    UPPSV1                                
022917,000501: 24,2404           01476                                    DIM0FLAG                              #  SET DIMOFLAG TO INTEGRATE W-MATRIX
022918,000502: 24,2405           43014                           BON      SET                                   
022919,000503: 24,2406           04307                                    SURFFLAG                              #  IF ON LUNAR SURFACE W IS 6X6
022920,000504: 24,2407           50411                                    UPPSV5                                
022921,000505: 24,2410           01475                                    D6OR9FLG                              #  OTHERWISE 9X9
022922,000506: 24,2411           77614        UPPSV5             BOF                                            
022923,000507: 24,2412           00747                                    VEHUPFLG                              
022924,000508: 24,2413           50446                                    UPPSV3                                
022925,000509: 24,2414           77614        UPPSV1             SET                                            
022926,000510: 24,2415           01474                                    VINTFLAG                              
022927,000511: 24,2416           77624                           CALL                                           
022928,000512: 24,2417           27172                                    INTEGRV                               
022929,000513: 24,2420           77624                           CALL                                           #  GROUP 2 PHASE CHANGE
022930,000514: 24,2421           51770                                    GRP2PC                                #  TO PROTECT INTEGRATION
022931,000515: 24,2422           77624                           CALL                                           
022932,000516: 24,2423           27447                                    INTSTALL                              
022933,000517: 24,2424           43145                           DLOAD    CLEAR                                 #  GET TETCSM TO STORE IN TDEC FOR LM INT.
022934,000518: 24,2425           01571                                    TETCSM                                
022935,000519: 24,2426           01674                                    VINTFLAG                              
022936,000520: 24,2427           77624        UPPSV4             CALL                                           #  INTEGRATE OTHER VEHICLE
022937,000521: 24,2430           26702                                    SETIFLGS                              #   WITHOUT W-MATRIX
022938,000522: 24,2431           34041                           STCALL   TDEC1                                 
022939,000523: 24,2432           27172                                    INTEGRV                               
022940,000524: 24,2433           77214                           BOFF     VLOAD                                 
022941,000525: 24,2434           04347                                    SURFFLAG                              
022942,000526: 24,2435           50274                                    P20LEMC4                              
022943,000527: 24,2436           01661                                    RCVLEM                                
022944,000528: 24,2437           77742                           VSR2                                           
022945,000529: 24,2440           26343                           STOVL    LMPOS                                 
022946,000530: 24,2441           01667                                    VCVLEM                                
022947,000531: 24,2442           77742                           VSR2                                           
022948,000532: 24,2443           02351                           STORE    LMVEL                                 
022949,000533: 24,2444           77650                           GOTO                                           
022950,000534: 24,2445           01755                                    LS21X                                 
022951,000535: 
022952,000536: 
022953,000537: 24,2446           45014        UPPSV3             CLEAR    CALL                                  
022954,000538: 24,2447           01674                                    VINTFLAG                              
022955,000539: 24,2450           27172                                    INTEGRV                               
022956,000540: 24,2451           77624                           CALL                                           
022957,000541: 24,2452           51770                                    GRP2PC                                
022958,000542: 24,2453           77624                           CALL                                           

Page 517

022960,000544: 24,2454           27447                                    INTSTALL                              
022961,000545: 24,2455           71214                           SET      DLOAD                                 
022962,000546: 24,2456           01474                                    VINTFLAG                              
022963,000547: 24,2457           01643                                    TETLEM                                #  GET TETLEM TO STORE IN TDEC FOR CSM INT.
022964,000548: 24,2460           77650                           GOTO                                           
022965,000549: 24,2461           50427                                    UPPSV4                                
022966,000550: 
022967,000551: 
022968,000552: 24,2462  E7,1456                                  EBANK=   LOSCOUNT                              
022969,000553: 24,2462                                           COUNT*   $$/P22                                
022970,000554: 

Page 518

022972,000556:                                                                                                  #  PROGRAM DESCRIPTION
022973,000557:                                                                                                  #  PREFERRED TRACKING ATTITUDE PROGRAM P25
022974,000558:                                                                                                  #  MOD NO - 3
022975,000559:                                                                                                  #  BY  P. VOLANTE
022976,000560:                                                                                                  #  FUNCTIONAL DESCRIPTION
022977,000561: 
022978,000562:                                                                                                  #    THE PURPOSE OF THIS PROGRAM IS TO COMPUTE THE PREFERRED TRACKING
022979,000563:                                                                                                  #  ATTITUDE OF THE LM TO CONTINUOUSLY POINT THE LM TRACKING BEACON AT THE
022980,000564:                                                                                                  #  CSM AND TO PERFORM THE MANEUVER TO THE PREFERRED TRACKING ATTITUDE AND
022981,000565:                                                                                                  #  CONTINUOUSLY MAINTAIN THIS ATTITUDE WITHIN PRESCRIBED LIMITS
022982,000566:                                                                                                  #  CALLING SEQUENCE -
022983,000567:                                                                                                  #    ASTRONAUT REQUEST THROUGH DSKY V37E25E
022984,000568:                                                                                                  #  SUBROUTINES CALLED -
022985,000569:                                                                                                  #    BANKCALL                      FLAGUP
022986,000570:                                                                                                  #    R02BOTH  (IMU STATUS CHECK)   ENDOFJOB
022987,000571:                                                                                                  #    R61LEM   (PREF TRK ATT ROUT)  WAITLIST
022988,000572:                                                                                                  #    TASKOVER                      FINDVAC
022989,000573:                                                                                                  #  NORMAL EXIT MODES  -
022990,000574:                                                                                                  #    P25 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
022991,000575:                                                                                                  #  PROGRAM(P00) BY KEYING V37E00E OR BY KEYING IN V56E
022992,000576:                                                                                                  #  ALARM OR ABORT EXIT MODES -
022993,000577:                                                                                                  #    NONE
022994,000578:                                                                                                  #  OUTPUT
022995,000579:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
022996,000580:                                                                                                  #  FLAGS SET + RESET
022997,000581:                                                                                                  #    TRACKFLG,P25FLAG
022998,000582:                                                                                                  #  DEBRIS
022999,000583:                                                                                                  #    NONE
023000,000584: 24,2462  E7,1456                                  EBANK=   LOSCOUNT                              
023001,000585: 24,2462                                           COUNT*   $$/P25                                
023002,000586: 24,2462           05331        PROG25             TC       2PHSCHNG                              
023003,000587: 24,2463           00004                           OCT      4                                     #  MAKE GROUP 4 INACTIVE (VERB 37)
023004,000588: 24,2464           05022                           OCT      05022                                 
023005,000589: 24,2465           26000                           OCT      26000                                 #  PRIORITY 26
023006,000590: 
023007,000591: 24,2466           04607                           TC       BANKCALL                              
023008,000592: 24,2467           33757                           CADR     R02BOTH                               #  IMU STATUS CHECK
023009,000593: 24,2470           05506                           TC       UPFLAG                                
023010,000594: 24,2471           00031                           ADRES    TRACKFLG                              #  SET TRACK FLAG
023011,000595: 24,2472           05506                           TC       UPFLAG                                
023012,000596: 24,2473           00006                           ADRES    P25FLAG                               #  SET P25FLAG
023013,000597: 24,2474           05520                           TC       DOWNFLAG                              
023014,000598: 24,2475           00010                           ADRES    RNDVZFLG                              
023015,000599: 24,2476           05355        P25LEM1            TC       PHASCHNG                              
023016,000600: 24,2477           04022                           OCT      04022                                 
023017,000601: 24,2500           34734                           CAF      P25FLBIT                              
023018,000602: 24,2501           70074                           MASK     STATE                                 #  IS P25FLAG SET
023019,000603: 24,2502           00006                           EXTEND                                         
023020,000604: 24,2503           15146                           BZF      ENDOFJOB                              
023021,000605: 24,2504           34740                           CAF      TRACKBIT                              #  IS TRACKFLAG SET?

Page 519

023023,000607: 24,2505           70075                           MASK     STATE      +1                         
023024,000608: 24,2506           00006                           EXTEND                                         
023025,000609: 24,2507           12515                           BZF      P25LMWT1                              #  NO-SKIP PHASE CHANGE AND WAIT 1 MINUTE
023026,000610: 24,2510           34750                           CAF      SEVEN                                 #  CALL R65 - FINE PREFERRED
023027,000611: 24,2511           55745                           TS       R65CNTR                               
023028,000612: 24,2512           04607                           TC       BANKCALL                              #  TRACKING ATTITUDE ROUTINE
023029,000613: 24,2513           46123                           CADR     R65LEM                                
023030,000614: 24,2514           02476                           TC       P25LEM1                               #  THEN GO CHECK FLAGS
023031,000615: 24,2515           32526        P25LMWT1           CAF      60SCNDS                               
023032,000616: 24,2516           05175                           TC       TWIDDLE                               #  WAIT ONE MINUTE THEN CHECK AGAIN
023033,000617: 24,2517           02521                           ADRES    P25LEM2                               
023034,000618: 24,2520           05146                           TC       ENDOFJOB                              
023035,000619: 24,2521           35015        P25LEM2            CAF      PRIO14                                
023036,000620: 24,2522           05076                           TC       FINDVAC                               
023037,000621: 24,2523  E7,1456                                  EBANK=   LOSCOUNT                              
023038,000622: 24,2523           02476 50067                     2CADR    P25LEM1                               
023039,000623: 
023040,000624: 24,2525           05263                           TC       TASKOVER                              
023041,000625: 24,2526           13560        60SCNDS            DEC      6000       B-14                       
023042,000626: 

Page 520

023044,000628:                                                                                                  #  DATA READ ROUTINE 22 (LEM)
023045,000629:                                                                                                  #  PROGRAM DESCRIPTION
023046,000630:                                                                                                  #  MOD NO - 2
023047,000631:                                                                                                  #  BY P VOLANTE
023048,000632:                                                                                                  #  FUNCTIONAL DESCRIPTION
023049,000633: 
023050,000634:                                                                                                  #    TO PROCESS AUTOMATIC RR MARK DATA TO UPDATE THE STATE VECTOR OF EITHER
023051,000635:                                                                                                  #  LM OR CSM AS DEFINED IN THE RENDEZVOUS NAVIGATION PROGRAM (P20)
023052,000636:                                                                                                  #  CALLING SEQUENCE -
023053,000637:                                                                                                  #           TC     BANKCALL
023054,000638:                                                                                                  #           CADR   R22LEM
023055,000639:                                                                                                  #  SUBROUTINES CALLED -
023056,000640:                                                                                                  #    LSR22.1           GOFLASH        WAITLIST
023057,000641:                                                                                                  #    LSR22.2           PRIOLARM       BANKCALL
023058,000642:                                                                                                  #    LSR22.3           R61LEM
023059,000643:                                                                                                  #  NORMAL EXIT MODES-
023060,000644:                                                                                                  #    R22 WILL CONTINUE TO RECYCLE,UPDATING STATE VECTORS WITH RADAR DATA
023061,000645:                                                                                                  #  UNTIL P20 CEASES TO OPERATE (RENDEZVOUS FLAG SET TO ZERO) AT WHICH TIME
023062,000646:                                                                                                  #  R22 WILL TERMINATE SELF.
023063,000647:                                                                                                  #  ALARM OR ABORT EXIT MODES-
023064,000648:                                                                                                  #    PRIORITY ALARM
023065,000649:                                                                                                  #  PRIORITY ALARM 525 LOS NOT WITHIN 3 DEGREE LIMIT
023066,000650:                                                                                                  #  OUTPUT
023067,000651:                                                                                                  #    SEE OUTPUT FROM LSR22.3
023068,000652:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
023069,000653:                                                                                                  #    SEE LSR22.1,LSR22.2,LSR22.3
023070,000654:                                                                                                  #  FLAGS SET + RESET
023071,000655:                                                                                                  #    NOANGFLG
023072,000656:                                                                                                  #  DEBRIS
023073,000657:                                                                                                  #    SEE LSR22.1,LSR22.2,LSR22.3
023074,000658: 24,2527  E7,1737                                  EBANK=   LRS22.1X                              
023075,000659: 24,2527                                           COUNT*   $$/R22                                
023076,000660: 24,2527           05355        R22LEM             TC       PHASCHNG                              
023077,000661: 24,2530           04022                           OCT      04022                                 
023078,000662: 24,2531           34736                           CAF      RNDVZBIT                              #  IS RENDESVOUS FLAG SET?
023079,000663: 24,2532           70074                           MASK     STATE                                 
023080,000664: 24,2533           00006                           EXTEND                                         
023081,000665: 24,2534           15146                           BZF      ENDOFJOB                              #  NO-EXIT R22 AND P20
023082,000666: 24,2535           34740                           CAF      TRACKBIT                              #  IS TRACKFLAG SET?
023083,000667: 24,2536           70075                           MASK     STATE      +1                         
023084,000668: 24,2537           00006                           EXTEND                                         
023085,000669: 24,2540           12724                           BZF      R22WAIT                               #  NO WAIT
023086,000670: 24,2541           34727        R22LEM12           CAF      BIT14                                 #  IS RR AUTO TRACK ENABLE DISCRETE STILL
023087,000671: 24,2542           00006                           EXTEND                                         #  ON (A MONITOR REPOSITION BY R25 CLEARSIT
023088,000672: 24,2543           02012                           RAND     CHAN12                                
023089,000673: 24,2544           00006                           EXTEND                                         
023090,000674: 24,2545           12167                           BZF      P20LEMA                               #  NO - RETURN TO P20
023091,000675: 24,2546           34743                           CAF      BIT2                                  #  YES
023092,000676: 24,2547           00006                           EXTEND                                         #  IS RR AUTO MODE DISCRETE PRESENT
023093,000677: 24,2550           02033                           RAND     CHAN33                                

Page 521

023095,000679: 24,2551           00006                           EXTEND                                         
023096,000680: 24,2552           12554                           BZF      +2                                    #  YES CONTINUE
023097,000681: 24,2553           02213                           TC       P20LEMB5                              #  NO - SET IT
023098,000682: 24,2554           40110                           CS       RADMODES                              #  ARE RR CDUS BEING ZEROED
023099,000683: 24,2555           74730                           MASK     RCDU0BIT                              
023100,000684: 24,2556           00006                           EXTEND                                         
023101,000685: 24,2557           12713                           BZF      R22LEM42                              #  CDUS BEING ZEROED
023102,000686: 24,2560           05355                           TC       PHASCHNG                              #  IF A RESTART OCCURS,AN EXTRA RADAR
023103,000687: 24,2561           00152                           OCT      00152                                 #  READING IS TAKEN,SO BAD DATA ISN'T USED
023104,000688: 24,2562           04607                           TC       BANKCALL                              #  YES READ DATA + CALCULATE LOS
023105,000689: 24,2563           64362                           CADR     LRS22.1                               #  DATA READ SUBROUTINE
023106,000690: 24,2564           50154                           INDEX    MPAC                                  
023107,000691: 24,2565           02566                           TC       +1                                    
023108,000692: 24,2566           02607                           TC       R22LEM2                               #  NORMAL RETURN (GOOD DATA)
023109,000693: 24,2567           02275                           TC       P20LEMC                               #  COULD NOT READ RADAR-TRY TO REDESIGNATE
023110,000694: 24,2570           32745                           CAF      ALRM525                               #  RR LOS NOT WITHIN 3 DEGREES (ALARM)
023111,000695: 24,2571           04607                           TC       BANKCALL                              
023112,000696: 24,2572           21572                           CADR     PRIOLARM                              
023113,000697: 24,2573           06043                           TC       GOTOV56                               #  TERMINATE EXITS P20 VIA V56 CODING
023114,000698: 24,2574           02577                           TC       R22LEM1                               #  PROC (DISPLAY DELTA THETA)
023115,000699: 24,2575           02570                           TC       -5                                    #  ENTER(ILLEGAL OPTION)
023116,000700: 24,2576           05146                           TC       ENDOFJOB                              
023117,000701: 
023118,000702: 
023119,000703: 24,2577           05355        R22LEM1            TC       PHASCHNG                              
023120,000704: 24,2600           04022                           OCT      04022                                 
023121,000705: 24,2601           32746                           CAF      V06N05                                #  DISPLAY DELTA THETA
023122,000706: 24,2602           04607                           TC       BANKCALL                              
023123,000707: 24,2603           20502                           CADR     PRIODSP                               
023124,000708: 24,2604           06043                           TC       GOTOV56                               #  TERMINATE EXITS P20 VIA V56 CODING
023125,000709: 24,2605           02607                           TC       R22LEM2                               #  PROC (OK CONTINUE)
023126,000710: 24,2606           02275                           TC       P20LEMC                               #  ENTER(RECYCLE)
023127,000711: 24,2607           05355        R22LEM2            TC       PHASCHNG                              
023128,000712: 24,2610           04022                           OCT      04022                                 
023129,000713: 24,2611           02751                           TC       LUNSFCHK                              #  CHECK IF ON LUNAR SURFACE (P22FLAG SET)
023130,000714: 24,2612           02627                           TC       R22LEM3                               #  YES-BYPASS FLAG CHECKS AND LRS22.2
023131,000715: 24,2613           30075                           CA       FLAGWRD1                              #  IS TRACK FLAG SET
023132,000716: 24,2614           74740                           MASK     TRACKBIT                              
023133,000717: 24,2615           00006                           EXTEND                                         
023134,000718: 24,2616           12724                           BZF      R22WAIT                               #  NO - WAIT
023135,000719: 24,2617           04607                           TC       BANKCALL                              #  YES
023136,000720: 24,2620           51416                           CADR     LRS22.2                               #  CHECKS RR BORESIGHT WITHIN 30 DEG OF +Z
023137,000721: 24,2621           50154                           INDEX    MPAC                                  
023138,000722: 24,2622           02623                           TC       +1                                    
023139,000723: 24,2623           02627                           TC       R22LEM3                               #  NORMAL RETURN(LOS WITHIN 30  OF Z-AXIS)
023140,000724: 24,2624           04607                           TC       BANKCALL                              
023141,000725: 24,2625           46116                           CADR     R61LEM                                
023142,000726: 24,2626           02724                           TC       R22WAIT                               #  NOT WITHIN 30 DEG OF Z-AXIS
023143,000727: 24,2627           40075        R22LEM3            CS       FLAGWRD1                              #  SHOULD WE BYPASS STATE VECTOR UPDATE
023144,000728: 24,2630           74737                           MASK     NOUPFBIT                              #  (IS NOUPDATE FLAG SET?)

Page 522

023146,000730: 24,2631           00006                           EXTEND                                         
023147,000731: 24,2632           12713                           BZF      R22LEM42                              #  BRANCH-YES
023148,000732: 24,2633           30075                           CA       FLAGWRD1                              #  IS UPDATE FLAG SET
023149,000733: 24,2634           74736                           MASK     UPDATBIT                              
023150,000734: 24,2635           00006                           EXTEND                                         
023151,000735: 24,2636           12713                           BZF      R22LEM42                              #  UPDATE FLAG NOT SET
023152,000736: 24,2637           37735                           CAF      PRIO26                                #  INSURE HIGH PRIO IN RESTART
023153,000737: 24,2640           55055                           TS       PHSPRDT2                              
023154,000738: 
023155,000739: 24,2641           06060                           TC       INTPRET                               
023156,000740: 24,2642           77650                           GOTO                                           
023157,000741: 24,2643           54424                                    LSR22.3                               
023158,000742: 24,2644           77776        R22LEM93           EXIT                                           #  NORMAL EXIT FROM LSR22.3
023159,000743: 24,2645           05355                           TC       PHASCHNG                              #  PHASE CHANGE TO PROTECT AGAINST
023160,000744: 24,2646           04022                           OCT      04022                                 #  CONFLICT WITH GRP2PC ERASEABLE
023161,000745: 24,2647           12706                           TCF      R22LEM44                              
023162,000746: 24,2650           77776        R22LEM96           EXIT                                           
023163,000747: 24,2651           34746                           CAF      ZERO                                  #  SET N49FLAG = ZERO TO INDICATE
023164,000748: 24,2652           55746                           TS       N49FLAG                               #  V06 N49 DISPLAY HASNT BEEN ANSWERED
023165,000749: 24,2653           05355                           TC       PHASCHNG                              
023166,000750: 24,2654           04022                           OCT      04022                                 #  TO PROTECT DISPLAY
023167,000751: 24,2655           37736                           CAF      PRIO27                                #  PROTECT DISPLAY
023168,000752: 24,2656           05063                           TC       NOVAC                                 
023169,000753: 24,2657  E7,1746                                  EBANK=   N49FLAG                               
023170,000754: 24,2657           02726 50067                     2CADR    N49DSP                                
023171,000755: 
023172,000756: 24,2661           06060                           TC       INTPRET                               
023173,000757: 24,2662           77735                           SLOAD                                          
023174,000758: 24,2663           03747                                    N49FLAG                               
023175,000759: 24,2664           50054                           BZE      BMN                                   #  LOOP TO CHECK IF FLAG
023176,000760: 24,2665           50662                                    -3                                    #  SETTING CHANGED-BRANCH - NO
023177,000761: 24,2666           50674                                    R22LEM7                               #  PROCEED
023178,000762: 24,2667           77650                           GOTO                                           #  DISPLAY ANSWERED BY RECYCLE-INCORPORATE
023179,000763: 24,2670           03675                                    LGRET                                 #        NEXT MEASUREMENT
023180,000764: 24,2671           44743        V34TON49           CS       TWO                                   
023181,000765: 24,2672           55746                           TS       N49FLAG                               
023182,000766: 24,2673           05146                           TC       ENDOFJOB                              
023183,000767: 24,2674           77776        R22LEM7            EXIT                                           
023184,000768: 24,2675           31746                           CA       N49FLAG                               #  WAS ANSWER TO DISPLAY PRO OR TERM
023185,000769: 24,2676           64743                           AD       TWO                                   
023186,000770: 24,2677           00006                           EXTEND                                         
023187,000771: 24,2700           12527                           BZF      R22LEM                                #  BRANCH - TERM - TAKE ANOTHER RR READING
023188,000772: 24,2701           06060                           TC       INTPRET                               
023189,000773: 24,2702           77624                           CALL                                           
023190,000774: 24,2703           51770                                    GRP2PC                                #  PHASE CHANGE AND
023191,000775: 24,2704           77650                           GOTO                                           #  GO TO INCORPORATE DATA.
023192,000776: 24,2705           55430                                    ASTOK                                 
023193,000777: 24,2706           25462        R22LEM44           INCR     MARKCTR                               #  INCREMENT COUNT OF MARKS INCORPORATED.
023194,000778: 24,2707           02751                           TC       LUNSFCHK                              #  ARE WE ON LUNAR SURFACE
023195,000779: 24,2710           02713                           TC       R22LEM42                              

Page 523

023197,000781: 24,2711           34747                           CA       FIVE                                  #  NOT ON LUNAR SURFACE
023198,000782: 24,2712           02720                           TC       R22LEM45                              #  R65COUNTER = 5
023199,000783: 24,2713           04607        R22LEM42           TC       BANKCALL                              
023200,000784: 24,2714           01735                           CADR     2SECDELY                              
023201,000785: 24,2715           02751                           TC       LUNSFCHK                              
023202,000786: 24,2716           02527                           TC       R22LEM                                
023203,000787: 
023204,000788: 24,2717           34743                           CA       TWO                                   #  NO-SET R65COUNTER = 2
023205,000789: 24,2720           55745        R22LEM45           TS       R65CNTR                               
023206,000790: 24,2721           04607                           TC       BANKCALL                              
023207,000791: 24,2722           46123                           CADR     R65LEM                                #  FINE PREFERRED TRACKING ATTITUDE
023208,000792: 24,2723           02527                           TC       R22LEM                                
023209,000793: 24,2724           32750        R22WAIT            CAF      1500DEC                               
023210,000794: 24,2725           02311                           TC       P20LEMWT   +1                         
023211,000795: 
023212,000796: 
023213,000797: 24,2726           32747        N49DSP             CAF      V06N49NB                              
023214,000798: 24,2727           04607                           TC       BANKCALL                              #  EXCESSIVE STATE VECTOR UPDATE - FLASH
023215,000799: 24,2730           20502                           CADR     PRIODSP                               #  VERB 06 NOUN 49 R1=DELTA R, R2=DELTA V
023216,000800: 24,2731           02671                           TC       V34TON49                              #  TERMINATE - SET N49FLAG = -2
023217,000801: 24,2732           44744                           CS       ONE                                   #  PROCEED - N49FLAG = -1
023218,000802: 24,2733           55746                           TS       N49FLAG                               #  RECYCLE - N49FLAG = + VALUE
023219,000803: 24,2734           05146                           TC       ENDOFJOB                              
023220,000804: 24,2735           05355        R22RSTRT           TC       PHASCHNG                              #  IF A RESTART OCCURS WHILE READING RADAR
023221,000805: 24,2736           00152                           OCT      00152                                 #  COME HERE TO TAKE A RANGE-RATE READING
023222,000806: 24,2737           04607                           TC       BANKCALL                              #  WHICH ISNT USED TO PREVENT TAKING A BAD
023223,000807: 24,2740           53072                           CADR     RRRDOT                                #  READING AND TRYING TO INCORPORATE THE
023224,000808: 24,2741           04607                           TC       BANKCALL                              #  BAD DATA
023225,000809: 24,2742           17733                           CADR     RADSTALL                              #  WAIT FOR READ COMPLETE
023226,000810: 24,2743           02275                           TC       P20LEMC                               #  COULD NOT READ RADAR-TRY TO REDESIGNATE
023227,000811: 24,2744           02527                           TC       R22LEM                                #  READ SUCCESSFUL-CONTINUE AT R22
023228,000812: 
023229,000813: 
023230,000814: 24,2745           00525        ALRM525            OCT      00525                                 
023231,000815: 24,2746           01405        V06N05             VN       00605                                 
023232,000816: 24,2747           01461        V06N49NB           VN       00649                                 
023233,000817: 24,2750           02734        1500DEC            DEC      1500       B-14                       
023234,000818:                                                                                                  #  LUNSFCHK-CLOSED SUBROUTINE TO CHECK IF ON LUNAR SURFACE (P22FLAG)
023235,000819:                                                                                                  #             RETURNS TO CALLER +1 IF P22FLAG SET
023236,000820:                                                                                                  #                     TO CALLER +2 IF P22FLAG NOT SET
023237,000821: 
023238,000822: 
023239,000823: 24,2751                                           COUNT*   $$/P22                                
023240,000824: 24,2751           40104        LUNSFCHK           CS       FLAGWRD8                              #  CHECK IF ON LUNAR SURFACE
023241,000825: 24,2752           74735                           MASK     SURFFBIT                              #  IS SURFFLAG SET?
023242,000826: 24,2753           10000                           CCS      A                                     #  BRANCH - P22FLAG SET
023243,000827: 24,2754           24002                           INCR     Q                                     #  NOT SET
023244,000828: 24,2755           00002                           TC       Q                                     #  RETURN
023245,000829: 

Page 524

023247,000831:                                                                                                  #  RR DESIGNATE ROUTINE (R21LEM)
023248,000832:                                                                                                  #  PROGRAM DESCRIPTION
023249,000833:                                                                                                  #  MOD NO - 2
023250,000834:                                                                                                  #  BY P VOLANTE
023251,000835:                                                                                                  #  FUNCTIONAL DESCRIPTION
023252,000836: 
023253,000837:                                                                                                  #    TO POINT THE RENDEZVOUS RADAR AT THE CSM UNTIL AUTOMATIC ACQUISITION
023254,000838:                                                                                                  #  OF THE CSM IS ACCOMPLISHED BY THE RADAR. ROUTINE IS CALLED BY P20.
023255,000839:                                                                                                  #  CALLING SEQUENCE -
023256,000840:                                                                                                  #           TC     BANKCALL
023257,000841:                                                                                                  #           CADR   R21LEM
023258,000842:                                                                                                  #  SUBROUTINES CALLED -
023259,000843:                                                                                                  #    FINDVAC        FLAGUP           ENDOFJOB        PRIOLARM
023260,000844:                                                                                                  #    NOVAC          INTPRET          LPS20.1         PHASCHNG
023261,000845:                                                                                                  #    WAITLIST       JOBSLEEP         JOBWAKE         FLAGDOWN
023262,000846:                                                                                                  #    TASKOVER       BANKCALL         RADSTALL        RRDESSM
023263,000847:                                                                                                  #  NORMAL EXIT MODES
023264,000848:                                                                                                  #    WHEN LOCK-ON IS ACHIEVED,BRANCH WILL BE TO P20 WHERE R22 (DATA READ
023265,000849:                                                                                                  #  WILL BE SELECTED OR A NEED FOR A MANEUVER(BRANCH TO P20LEMA)
023266,000850:                                                                                                  #  ALARM OR ABORT EXIT MODES-
023267,000851:                                                                                                  #    PRIORITY ALARM 503 WHEN LOCK-ON HASN:T BEEN ACHIEVED AFTER 30SECS -
023268,000852:                                                                                                  #  THIS REQUIRES ASTRONAUT INTERFACE- SELECTION OF SEARCH OPTION OF
023269,000853:                                                                                                  #  ACQUISITION
023270,000854:                                                                                                  #  OUTPUT
023271,000855:                                                                                                  #    SEE LPS20.1,RRDESSM
023272,000856:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
023273,000857:                                                                                                  #    RRTARGET,RADMODES ARE USED BY LPS20.1 AND RRDESSM
023274,000858:                                                                                                  #  FLAGS SET + RESET
023275,000859:                                                                                                  #    LOSCMFLG      LOKONSW
023276,000860:                                                                                                  #  DEBRIS
023277,000861:                                                                                                  #    SEE LPS20.1,RRDESSM
023278,000862: 24,2756  E7,1456                                  EBANK=   LOSCOUNT                              
023279,000863: 24,2756                                           COUNT*   $$/R21                                
023280,000864: 24,2756           44727        R21LEM             CS       BIT14                                 #  REMOVE RR SELF TRACK ENABLE
023281,000865: 24,2757           00006                           EXTEND                                         
023282,000866: 24,2760           03012                           WAND     CHAN12                                
023283,000867: 24,2761           34727                           CAF      BIT14                                 #  RESET AGSCODE SINCE R21
023284,000868: 24,2762           55073                           TS       AGSCODE                               #  CLOBBERS DOWNLINK MARK DATA
023285,000869: 24,2763           02751                           TC       LUNSFCHK                              
023286,000870: 24,2764           02771                           TC       R21LEM5                               
023287,000871: 24,2765           34746                           CAF      ZERO                                  #       COMMAND ANTENNA TO MODE CENTER
023288,000872: 24,2766           55106                           TS       TANG                                  #  IF NOT ON SURFACE-MODE 1-(T=0,S=0)
023289,000873: 24,2767           55107                           TS       TANG       +1                         
023290,000874: 24,2770           03001                           TC       R21LEM6                               
023291,000875: 24,2771           34731        R21LEM5            CAF      BIT12                                 
023292,000876: 24,2772           70110                           MASK     RADMODES                              
023293,000877: 24,2773           10000                           CCS      A                                     
023294,000878: 24,2774           03011                           TC       R21LEM10                              
023295,000879: 24,2775           34726                           CAF      BIT15                                 
023296,000880: 24,2776           55106                           TS       TANG                                  

Page 525

023298,000882: 24,2777           44727                           CS       HALF                                  
023299,000883: 24,3000           55107                           TS       TANG       +1                         
023300,000884: 24,3001           05520        R21LEM6            TC       DOWNFLAG                              
023301,000885: 24,3002           00012                           ADRES    LOKONSW                               
023302,000886: 24,3003           04607                           TC       BANKCALL                              
023303,000887: 24,3004           52466                           CADR     RRDESNB                               
023304,000888: 24,3005           03006                           TC       +1                                    
023305,000889: 24,3006           04607                           TC       BANKCALL                              
023306,000890: 24,3007           17733                           CADR     RADSTALL                              
023307,000891: 24,3010           03044                           TC       R21-503                               #  BAD RETURN FROM DESIGNATE -ISSUE ALARM
023308,000892: 24,3011           05506        R21LEM10           TC       UPFLAG                                
023309,000893: 24,3012           00041                           ADRES    LOSCMFLG                              #  EVERY FOURTH PASS THRU DODES
023310,000894: 24,3013           32366                           CAF      MAXTRIES                              #  ALLOW 60 PASSES (APPROX 45 SECONDS)
023311,000895: 24,3014           55113                           TS       DESCOUNT                              #  TO DESIGNATE AND LOCK ON
023312,000896: 24,3015           36266        R21LEM2            CAF      THREE                                 
023313,000897: 24,3016           55456                           TS       LOSCOUNT                              
023314,000898: 24,3017           06060        R21LEM1            TC       INTPRET                               
023315,000899: 24,3020           43234                           RTB      DAD                                   
023316,000900: 24,3021           21603                                    LOADTIME                              
023317,000901: 24,3022           11206                                    HALFSEC                               #  EXTRAPOLATE TO PRESENT TIME + .5 SEC.
023318,000902: 24,3023           34041                           STCALL   TDEC1                                 #  LOS DETERMINATION ROUTINE
023319,000903: 24,3024           51337                                    LPS20.1                               
023320,000904: 24,3025           77776                           EXIT                                           
023321,000905: 24,3026           05506        R21LEM3            TC       UPFLAG                                #  SET LOKONSW TO RADAR-ON DESIRED
023322,000906: 24,3027           00012                           ADRES    LOKONSW                               
023323,000907: 24,3030           05520                           TC       DOWNFLAG                              
023324,000908: 24,3031           00126                           ADRES    NORRMON                               
023325,000909: 24,3032           06060                           TC       INTPRET                               
023326,000910: 24,3033           77624                           CALL                                           #  INPUT (RRTARGET UPDATED BY LPS20.1)
023327,000911: 24,3034           52364                                    RRDESSM                               #  DESIGNATE ROUTINE
023328,000912: 24,3035           77776                           EXIT                                           
023329,000913: 24,3036           03065                           TC       R21LEM4                               #  LOS NOT IN MODE 2 COVERAGE
023330,000914:                                                                                                  #  ON LUNAR SURFACE
023331,000915: 24,3037           02167                           TC       P20LEMA                               #  VEHICLE MANEUVER REQUIRED.
023332,000916: 24,3040           04607                           TC       BANKCALL                              #  NO VEHICLE MANEUVER REQUIRED
023333,000917: 24,3041           17733                           CADR     RADSTALL                              #  WAIT FOR DESIGNATE COMPLETE - LOCKON OR
023334,000918: 24,3042           03044                           TC       +2                                    #  BADEND-LOCKON NOT ACHIEVED IN 60 TRIES
023335,000919: 24,3043           03053                           TC       R21END                                #  EXIT ROUTINE RETURN TO P20 (LOCK-ON)
023336,000920: 24,3044           33063        R21-503            CAF      ALRM503                               #  ISSUE ALARM 503
023337,000921: 24,3045           04607                           TC       BANKCALL                              
023338,000922: 24,3046           21572                           CADR     PRIOLARM                              
023339,000923: 24,3047           06043                           TC       GOTOV56                               #  TERMINATE EXITS P20 VIA V56 CODING
023340,000924: 24,3050           03060                           TC       R21SRCH                               #  PROC
023341,000925: 24,3051           02267                           TC       P20LEMC3                              
023342,000926: 24,3052           05146                           TC       ENDOFJOB                              
023343,000927: 24,3053           05520        R21END             TC       DOWNFLAG                              
023344,000928: 24,3054           00041                           ADRES    LOSCMFLG                              #  RESET LOSCMFLG
023345,000929: 24,3055           02751                           TC       LUNSFCHK                              #  ARE WE ON LUNAR SURFACE
023346,000930: 24,3056           02310                           TC       P20LEMWT                              #  YES - BYPASS V 50 N 72 DISPLAY
023347,000931: 24,3057           03207                           TC       R21DISP                               #  PUT UP VERIFY MAIN LOBE LOCKON DISPLAY

Page 526

023349,000933: 24,3060           05355        R21SRCH            TC       PHASCHNG                              
023350,000934: 24,3061           04022                           OCT      04022                                 
023351,000935: 24,3062           03271                           TC       R24LEM                                #  SEARCH ROUTINE
023352,000936: 24,3063           00503        ALRM503            OCT      00503                                 
023353,000937: 24,3064           00527        ALRM527            OCT      527                                   
023354,000938: 
023355,000939: 
023356,000940: 24,3065           06032        R21LEM4            TC       CLRADMD1                              #  CLEAR BITS 10 & 15 IN RADMODES
023357,000941: 24,3066           32366                           CAF      MAXTRIES                              #  SET UP COUNTER FOR
023358,000942: 24,3067           55423                           TS       REPOSCNT                              #  60 PASSES (APPROX 600 SECS.)
023359,000943: 24,3070           05506                           TC       UPFLAG                                
023360,000944: 24,3071           00032                           ADRES    FRSTIME                               #  SET FIRST TIME FLAG
023361,000945: 24,3072           05520                           TC       DOWNFLAG                              #  RESET LOS BEING
023362,000946: 24,3073           00041                           ADRES    LOSCMFLG                              #  COMPUTED FLAG
023363,000947: 24,3074           06060                           TC       INTPRET                               
023364,000948: 24,3075           77634        R21LEM12           RTB                                            
023365,000949: 24,3076           21603                                    LOADTIME                              
023366,000950: 24,3077           77615        R21LEM00           DAD                                            
023367,000951: 24,3100           11204                                    TENSEC                                #  TIME T = T + 10 SECS.
023368,000952: 24,3101           03425                           STORE    REPOSTM                               #  SAVE FOR LONGCALL AND UPPSV
023369,000953: 24,3102           34041                           STCALL   TDEC1                                 
023370,000954: 24,3103           51337                                    LPS20.1                               #  COMPUTE LOS AT TIME T
023371,000955: 24,3104           77624                           CALL                                           
023372,000956: 24,3105           52364                                    RRDESSM                               
023373,000957: 24,3106           77776                           EXIT                                           
023374,000958: 24,3107           03121                           TC       R21LEM13                              #  LOS NOT IN MODE 2 COVERAGE
023375,000959: 24,3110           05146                           TC       ENDOFJOB                              #  VEHICLE MANEUVER REQUIRED
023376,000960: 24,3111           06050                           TC       KILLTASK                              
023377,000961: 24,3112           52564                           CADR     BEGDES                                
023378,000962: 24,3113           06060                           TC       INTPRET                               
023379,000963: 24,3114           43014                           BOF      CLRGO                                 
023380,000964: 24,3115           00753                                    FRSTIME                               #  FIRST TIME THRU PREPOSITION
023381,000965: 24,3116           51131                                    R21LEM8                               #  NO-GO TO CONTINUOUS DESIGNATE
023382,000966: 24,3117           00633                                    FRSTIME                               #  YES - RESET FIRST TIME FLAG
023383,000967: 24,3120           51126                                    R21LEM50                              
023384,000968: 24,3121           11423        R21LEM13           CCS      REPOSCNT                              #  HAVE WE TRIED 60 TIMES?
023385,000969: 24,3122           03124                           TC       R21LEM7                               #  NO-ADD 10 SECS. RECOMPUTE LOS
023386,000970: 24,3123           03173                           TC       R21LEM11                              #  YES-PUT OUT ALARM 530
023387,000971: 24,3124           55423        R21LEM7            TS       REPOSCNT                              
023388,000972: 24,3125           06060                           TC       INTPRET                               
023389,000973: 24,3126           52145        R21LEM50           DLOAD    GOTO                                  
023390,000974: 24,3127           03425                                    REPOSTM                               
023391,000975: 24,3130           51077                                    R21LEM00                              
023392,000976: 24,3131           77745        R21LEM8            DLOAD                                          
023393,000977: 24,3132           03425                                    REPOSTM                               
023394,000978: 24,3133           34041                           STCALL   TDEC1                                 
023395,000979: 24,3134           50374                                    UPPSV                                 
023396,000980: 24,3135           77776                           EXIT                                           
023397,000981: 24,3136           05506                           TC       UPFLAG                                #  SET RADMODES BIT 15 FOR
023398,000982: 24,3137           00264                           ADRES    CDESFLAG                              #  CONTINUOUS DESIGNATION

Page 527

023400,000984: 24,3140           05520                           TC       DOWNFLAG                              
023401,000985: 24,3141           00012                           ADRES    LOKONSW                               
023402,000986: 24,3142           05506                           TC       UPFLAG                                
023403,000987: 24,3143           00126                           ADRES    NORRMON                               
023404,000988: 24,3144           04607                           TC       BANKCALL                              
023405,000989: 24,3145           52466                           CADR     RRDESNB                               
023406,000990: 24,3146           03147                           TC       +1                                    
023407,000991: 24,3147           06060                           TC       INTPRET                               
023408,000992: 24,3150           44234                           RTB      BDSU                                  
023409,000993: 24,3151           21603                                    LOADTIME                              #  COMPUTE DELTA TIME
023410,000994: 24,3152           03425                                    REPOSTM                               #  FOR LONGCALL
023411,000995: 24,3153           03427                           STORE    DELTATM                               
023412,000996: 24,3154           77776                           EXIT                                           
023413,000997: 24,3155           00006                           EXTEND                                         
023414,000998: 24,3156           31427                           DCA      DELTATM                               
023415,000999: 24,3157           05301                           TC       LONGCALL                              
023416,001000: 24,3160  E7,1456                                  EBANK=   LOSCOUNT                              
023417,001001: 24,3160           03163 50067                     2CADR    R21LEM9                               
023418,001002: 
023419,001003: 24,3162           05146                           TC       ENDOFJOB                              
023420,001004: 24,3163           06050        R21LEM9            TC       KILLTASK                              
023421,001005: 24,3164           52573                           CADR     STDESIG                               
023422,001006: 24,3165           06027                           TC       CLRADMOD                              
023423,001007: 24,3166           37735                           CAF      PRIO26                                
023424,001008: 24,3167           05076                           TC       FINDVAC                               
023425,001009: 24,3170  E7,1456                                  EBANK=   LOSCOUNT                              
023426,001010: 24,3170           03011 50067                     2CADR    R21LEM10                              
023427,001011: 
023428,001012: 24,3172           05263                           TC       TASKOVER                              
023429,001013: 24,3173           33202        R21LEM11           CAF      ALRM530                               #  ALARM 530-LOS NOT IN COVERAGE
023430,001014: 24,3174           04607                           TC       BANKCALL                              #  AFTER TRYING TO DESIGNATE FOR
023431,001015: 24,3175           21572                           CADR     PRIOLARM                              #  600 SECS.
023432,001016: 24,3176           06043                           TC       GOTOV56                               
023433,001017: 24,3177           06043                           TC       GOTOV56                               
023434,001018: 24,3200           06043                           TC       GOTOV56                               
023435,001019: 24,3201           05146                           TC       ENDOFJOB                              
023436,001020: 24,3202           00530        ALRM530            OCT      00530                                 
023437,001021: 24,3203           00000 01750  TENSEC             2DEC     1000       B-28                       
023438,001022: 
023439,001023: 24,3205           00000 00062  HALFSEC            2DEC     50         B-28                       
023440,001024: 
023441,001025: 24,3207           05355        R21DISP            TC       PHASCHNG                              
023442,001026: 24,3210           04022                           OCT      04022                                 
023443,001027: 24,3211           33217                           CAF      V50N72                                #  FLASH V50N72 MONITOR -PLEASE PERFORM RR
023444,001028: 24,3212           04607                           TC       BANKCALL                              #  MAIN LOBE LOCKON VERIFICATION
023445,001029: 24,3213           20326                           CADR     PRIOMONR                              #  THIS IS A PRIORITY DISPLAY
023446,001030: 24,3214           06043                           TC       GOTOV56                               #  TERMINATE EXITS VIA V 56
023447,001031: 24,3215           02310                           TC       P20LEMWT                              #  PROCEED CONTINUES TO R22
023448,001032: 24,3216           03211                           TC       -5                                    #  ENTER ILLEGAL
023449,001033: 24,3217           14510        V50N72             VN       05072                                 
023450,001034: 

Page 528

023452,001036:                                                                                                  #  MANUAL ACQUISITION ROUTINE R23LEM
023453,001037:                                                                                                  #  PROGRAM DESCRIPTION
023454,001038:                                                                                                  #  MOD NO - 2
023455,001039:                                                                                                  #  BY P VOLANTE
023456,001040:                                                                                                  #  FUNCTIONAL DESCRIPTION
023457,001041: 
023458,001042:                                                                                                  #    TO ACQUIRE THE CSM BY MANUAL OPERATION OF THE RENDEZVOUS RADAR
023459,001043:                                                                                                  #  CALLING SEQUENCE -
023460,001044:                                                                                                  #           TC     R23LEM
023461,001045:                                                                                                  #  SUBROUTINES CALLED
023462,001046:                                                                                                  #    BANKCALL        R61LEM
023463,001047:                                                                                                  #    SETMINDB        GOPERF1
023464,001048:                                                                                                  #  NORMAL EXIT MODES -
023465,001049:                                                                                                  #    IN RESPONSE TO THE GOPERF1 ,SELECTION OF ENTER WILL RECYCLE R23
023466,001050:                                                                                                  #                               ,SELECTION OF PROC  WILL CONTINUE R23
023467,001051:                                                                                                  #                               ,SELECTION OF TERM  WILL TERMINATE R23 +P20
023468,001052:                                                                                                  #  ALARM OR ABORT EXIT MODES -
023469,001053:                                                                                                  #    SEE NORMAL EXIT MODES ABOVE
023470,001054:                                                                                                  #  OUTPUT
023471,001055:                                                                                                  #    N.A.
023472,001056:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-
023473,001057:                                                                                                  #    ACMODFLG MUST BE SET TO 1 (MANUAL MODE)
023474,001058: 24,3220     1142                                  EBANK=   GENRET                                
023475,001059: 24,3220                                           COUNT*   $$/R23                                
023476,001060: 24,3220           05506        R23LEM             TC       UPFLAG                                #  SET NO ANGLE MONITOR FLAG
023477,001061: 24,3221           00126                           ADRES    NORRMON                               
023478,001062: 24,3222           00004                           INHINT                                         
023479,001063: 24,3223           04665                           TC       IBNKCALL                              #  SELECT MINIMUM DEADBAND
023480,001064: 24,3224           40141                           CADR     SETMINDB                              
023481,001065: 24,3225           00003                           RELINT                                         
023482,001066: 24,3226           34727        R23LEM1            CAF      BIT14                                 #  ENABLE TRACKER
023483,001067: 24,3227           00006                           EXTEND                                         
023484,001068: 24,3230           05012                           WOR      CHAN12                                
023485,001069: 24,3231           33270                           CAF      OCT205                                
023486,001070: 24,3232           04607                           TC       BANKCALL                              
023487,001071: 24,3233           20635                           CADR     GOPERF1                               
023488,001072: 24,3234           03261                           TC       R23LEM2                               #  TERMINATE
023489,001073: 24,3235           03237                           TC       R23LEM11                              #  PROCEDE
023490,001074: 24,3236           03264                           TC       R23LEM3                               #  ENTER- DO ANOTHER MANUVER
023491,001075: 24,3237           00004        R23LEM11           INHINT                                         
023492,001076: 24,3240           04514                           TC       RRLIMCHK                              #  YES - CHECK IF ANTENNA IS WITHIN LIMITS
023493,001077: 24,3241           00035                           ADRES    CDUT                                  
023494,001078: 24,3242           03251                           TC       OUTOFLIM                              #  NOT WITHIN LIMITS
023495,001079: 24,3243           04665                           TC       IBNKCALL                              #  RESTORE DEADBAND TO
023496,001080: 24,3244           40115                           CADR     RESTORDB                              #  ASTRONAUT SELECTED VALUE
023497,001081: 24,3245           00003                           RELINT                                         
023498,001082: 24,3246           05520                           TC       DOWNFLAG                              #  CLEAR NO ANGLE MONITOR FLAG
023499,001083: 24,3247           00126                           ADRES    NORRMON                               
023500,001084: 24,3250           02241                           TC       P20LEMB1                              #  RADAR IS LOCKED ON CONTINUE IN P20
023501,001085: 24,3251           00003        OUTOFLIM           RELINT                                         

Page 529

023503,001087: 24,3252           33267                           CAF      OCT501PV                              
023504,001088: 24,3253           04607                           TC       BANKCALL                              #  ISSUE ALARM - RR ANTENNA NOT WITHIN
023505,001089: 24,3254           21572                           CADR     PRIOLARM                              #  LIMITS
023506,001090: 24,3255           03261                           TC       R23LEM2                               #  TERMINATE - EXIT R23 TO R00 (GO TO POOH)
023507,001091: 24,3256           03252                           TC       OUTOFLIM   +1                         #  PROCEED ILLEGAL
023508,001092: 24,3257           03264                           TC       R23LEM3                               #  RECYCLE- DO ANOTHER MANUVER
023509,001093: 24,3260           05146                           TC       ENDOFJOB                              
023510,001094: 24,3261           05520        R23LEM2            TC       DOWNFLAG                              #  CLEAR NO ANGLE MONITOR FLAG
023511,001095: 24,3262           00126                           ADRES    NORRMON                               
023512,001096: 24,3263           06043                           TC       GOTOV56                               #  AND EXIT VIA V56
023513,001097: 24,3264           04607        R23LEM3            TC       BANKCALL                              
023514,001098: 24,3265           46116                           CADR     R61LEM                                
023515,001099: 24,3266           03226                           TC       R23LEM1                               
023516,001100: 
023517,001101: 
023518,001102: 24,3267           00501        OCT501PV           OCT      501                                   
023519,001103: 24,3270           00205        OCT205             OCT      205                                   
023520,001104: 

Page 530

023522,001106:                                                                                                  #  SEARCH ROUTINE R24LEM
023523,001107:                                                                                                  #  PROGRAM DESCRIPTION
023524,001108:                                                                                                  #  MOD NO - 2
023525,001109:                                                                                                  #  BY  P. VOLANTE
023526,001110:                                                                                                  #  FUNCTIONAL DESCRIPTION
023527,001111: 
023528,001112:                                                                                                  #    TO ACQUIRE THE CSM BY A SEARCH PATTERN WHEN THE RENDEZVOUS RADAR HAS
023529,001113:                                                                                                  #  FAILED TO ACQUIRE THE CSM IN THE AUTOMATIC TRACKING MODE AND TO ALLOW
023530,001114:                                                                                                  #  THE ASTRONAUT TO CONFIRM THAT REACQUISITION HAS NOT BEEN BY SIDELOBE.
023531,001115:                                                                                                  #  CALLING SEQUENCE
023532,001116:                                                                                                  #           CAF    PRIONN
023533,001117:                                                                                                  #           TC     FINDVAC
023534,001118:                                                                                                  #           EBANK= DATAGOOD
023535,001119:                                                                                                  #           2CADR  R24LEM
023536,001120:                                                                                                  #  SUBROUTINES CALLED
023537,001121:                                                                                                  #    FLAGUP        FLAGDOWN      BANKCALL
023538,001122:                                                                                                  #    R61LEM        GOFLASHR      FINDVAC
023539,001123:                                                                                                  #    ENDOFJOB      NOVAC         LSR24.1
023540,001124:                                                                                                  #  NORMAL EXIT MODES-
023541,001125:                                                                                                  #    ASTRONAUT RESPONSE TO DISPLAY OF OMEGA AND DATAGOOD.HE CAN EITHER
023542,001126:                                                                                                  #  REJECT BY TERMINATING (SEARCH OPTION AND RESELECTING P20) OR ACCEPT BY
023543,001127:                                                                                                  #  PROCEEDING (EXIT ROUTINE AND RETURN TO AUTO MODE IN P20)
023544,001128:                                                                                                  #  ALARM OR ABORT EXIT MODES-
023545,001129:                                                                                                  #    SEE NORMAL EXIT MODES ABOVE
023546,001130:                                                                                                  #  OUTPUT -
023547,001131:                                                                                                  #    SEE OUTPUT FROM LSR24.1 + R61LEM
023548,001132:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
023549,001133:                                                                                                  #    SEE INPUT FOR LSR24.1
023550,001134:                                                                                                  #  FLAGS SET + RESET
023551,001135:                                                                                                  #    SRCHOPT,ACMODFLG
023552,001136: 24,3271  E7,1733                                  EBANK=   DATAGOOD                              
023553,001137: 24,3271                                           COUNT*   $$/R24                                
023554,001138: 24,3271           05506        R24LEM             TC       UPFLAG                                
023555,001139: 24,3272           00037                           ADRES    SRCHOPTN                              #  SET SRCHOPT FLAG
023556,001140: 24,3273           05520                           TC       DOWNFLAG                              #  RESET LOS BEING COMPUTED FLAG TO MAKE
023557,001141: 24,3274           00041                           ADRES    LOSCMFLG                              #  SURE DODES DOESN'T GO TO R21
023558,001142: 24,3275           34746        R24LEM1            CAF      ZERO                                  
023559,001143: 24,3276           55733                           TS       DATAGOOD                              #  ZERO OUT DATA INDICATOR
023560,001144: 24,3277           55734                           TS       OMEGAD                                #  ZERO OMEGA DISPLAY REGS
023561,001145: 24,3300           55735                           TS       OMEGAD     +1                         #  ZERO OMEGA DISPLAY REGS
023562,001146: 24,3301           05355        R24LEM2            TC       PHASCHNG                              
023563,001147: 24,3302           04022                           OCT      04022                                 
023564,001148: 24,3303           33336                           CAF      V16N80                                
023565,001149: 24,3304           04607                           TC       BANKCALL                              
023566,001150: 24,3305           20477                           CADR     PRIODSPR                              
023567,001151: 24,3306           06043                           TC       GOTOV56                               
023568,001152: 24,3307           03313                           TC       R24END                                #  PROCEED EXIT R24 TO P20LEM1
023569,001153: 
023570,001154: 24,3310           03317                           TC       R24LEM3                               #  RECYCLE - CALL R61 TO MANEUVER S/C

Page 531

023572,001156: 24,3311           04607                           TC       BANKCALL                              
023573,001157: 24,3312           55441                           CADR     LRS24.1                               
023574,001158: 24,3313           06050        R24END             TC       KILLTASK                              
023575,001159: 24,3314           55642                           CADR     CALLDGCH                              
023576,001160: 24,3315           06027                           TC       CLRADMOD                              #  CLEAR BITS 10 & 15 OF RADMODES.
023577,001161: 24,3316           12065                           TCF      P20LEM1                               #  AND GO TO 400 MI. RANGE CHECK IN P20.
023578,001162: 
023579,001163:    6027                                           BLOCK    3                                     
023580,001164:    6000                                           SETLOC   FFTAG6                                
023581,001165:    6000                                           BANK                                           
023582,001166:    6027                                           COUNT*   $$/R24                                
023583,001167: 
023584,001168:    6027           44743        CLRADMOD           CS       BIT2                                  #  DISABLE RR ERROR CNTRS
023585,001169:    6030           00006                           EXTEND                                         
023586,001170:    6031           03012                           WAND     CHAN12                                
023587,001171:    6032           46037        CLRADMD1           CS       BIT10+15                              #  KNOCK DOWN DESIGNATE AND
023588,001172: 
023589,001173:    6033     4733               REFTAG3            =        DESIGBIT                              
023590,001174:    6033     4726               REFTAG4            =        CDESBIT                               
023591,001175:    6033           00004                           INHINT                                         #     CONTINUOUS DESIGNATE FLAGS
023592,001176:    6034           70110                           MASK     RADMODES                              
023593,001177:    6035           54110                           TS       RADMODES                              
023594,001178:    6036           00002                           TC       Q                                     
023595,001179: 
023596,001180: 
023597,001181:    6037           41000        BIT10+15           OCT      41000                                 
023598,001182: 
023599,001183: 
023600,001184: 24,3317                                           BANK     24                                    
023601,001185: 24,2000                                           SETLOC   P20S                                  
023602,001186: 24,2000                                           BANK                                           
023603,001187: 24,3317                                           COUNT*   $$/R24                                
023604,001188: 
023605,001189: 24,3317           05355        R24LEM3            TC       PHASCHNG                              
023606,001190: 24,3320           04022                           OCT      04022                                 
023607,001191: 24,3321           06050                           TC       KILLTASK                              
023608,001192: 24,3322           55642                           CADR     CALLDGCH                              #  KILL WAITLIST FOR NEXT POINT IN PATTERN
023609,001193: 24,3323           06027                           TC       CLRADMOD                              #  CLEAR BITS 10 + 15 OF RADMODES
023610,001194: 24,3324           34765                           CAF      .5SEC                                 
023611,001195: 24,3325           04607                           TC       BANKCALL                              #  WAIT FOR DESIGNATE LOOP TO DIE
023612,001196: 24,3326           01736                           CADR     DELAYJOB                              
023613,001197: 24,3327           02751                           TC       LUNSFCHK                              #  CHECK IF ON LUNAR SURFACE
023614,001198: 24,3330           03333                           TC       R24LEM4                               #  YES-DONT DO ATTITUDE MANEUVER
023615,001199: 24,3331           04607                           TC       BANKCALL                              #  CALL R61 TO DO PREFERRED TRACKING
023616,001200: 24,3332           46116                           CADR     R61LEM                                #  ATTITUDE MANEUVER
023617,001201: 24,3333           34746        R24LEM4            CAF      ZERO                                  #  ZERO OUT RADCADR (WHICH WAS SET BY
023618,001202: 24,3334           55303                           TS       RADCADR                               #  ENDRADAR WHEN DESIGNATE STOPPED) SO THAT
023619,001203:                                                                                                  #  RRDESSM  WILL RETURN TO CALLER
023620,001204: 24,3335           03301                           TC       R24LEM2                               #  AND GO BACK TO PUT UP V16 N80 DISPLAY
023621,001205: 

Page 532

023623,001207: 24,3336           04120        V16N80             VN       01680                                 
023624,001208: 

Page 533

023626,001210:                                                                                                  #  PREFERRED TRACKING ATTITUDE ROUTINE R61LEM
023627,001211:                                                                                                  #  PROGRAM DESCRIPTION
023628,001212:                                                                                                  #  MOD NO : 3                      DATE : 4-11-67
023629,001213:                                                                                                  #  MOD BY : P VOLANTE  SDC
023630,001214: 
023631,001215: 
023632,001216:                                                                                                  #  FUNCTIONAL DESCRIPTION-
023633,001217:                                                                                                  #    TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE LM TO ENABLE RR
023634,001218:                                                                                                  #  TRACKING OF THE CSM AND TO PERFORM THE MANEUVER TO THE PREFERRED
023635,001219:                                                                                                  #  ATTITUDE.
023636,001220:                                                                                                  #  CALLING SEQUENCE-
023637,001221:                                                                                                  #           TC     BANKCALL
023638,001222:                                                                                                  #           CADR   R61LEM
023639,001223:                                                                                                  #  SUBROUTINES CALLED
023640,001224:                                                                                                  #      LPS20.1       VECPOINT
023641,001225:                                                                                                  #      KALCMAN3
023642,001226: 
023643,001227: 
023644,001228:                                                                                                  #  NORMAL EXIT MODES-
023645,001229:                                                                                                  #    NORMAL RETURN IS TO CALLER + 1
023646,001230:                                                                                                  #  ALARM OR ABORT EXIT MODES-
023647,001231:                                                                                                  #    TERMINATE P20 + R61 BY BRANCHING TO P20END IF BOTH TRACKFLAG +
023648,001232:                                                                                                  #  RENDEZVOUS FLAG ARE NOT SET.
023649,001233:                                                                                                  #  OUTPUT -
023650,001234:                                                                                                  #    SEE OUTPUT FOR LPS20.1 + ATTITUDE MANEUVER ROUTINE (R60)
023651,001235:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
023652,001236:                                                                                                  #    GENRET USED TO SAVE Q FOR RETURN
023653,001237:                                                                                                  #  FLAGS SET + RESET
023654,001238:                                                                                                  #    3AXISFLG
023655,001239:                                                                                                  #  DEBRIS
023656,001240:                                                                                                  #    SEE SUBROUTINES
023657,001241: 23,2000                                           SETLOC   R61                                   
023658,001242: 23,2000                                           BANK                                           
023659,001243: 23,2116  E7,1456                                  EBANK=   LOSCOUNT                              
023660,001244: 23,2116                                           COUNT*   $$/R61                                
023661,001245: 23,2116           04636        R61LEM             TC       MAKECADR                              
023662,001246: 23,2117           55142                           TS       GENRET                                
023663,001247: 23,2120           05506                           TC       UPFLAG                                #  SET R61 FLAG
023664,001248: 23,2121           00024                           ADRES    R61FLAG                               
023665,001249: 23,2122           02152                           TC       R61C+L02                              
023666,001250: 23,2123           04636        R65LEM             TC       MAKECADR                              
023667,001251: 23,2124           55142                           TS       GENRET                                
023668,001252: 23,2125           05520                           TC       DOWNFLAG                              #  RESET R61 FLAG
023669,001253: 23,2126           00024                           ADRES    R61FLAG                               
023670,001254: 23,2127           34727                           CA       BIT14                                 #  RESET AGS CODE WORD (=20000).  DON'T USE
023671,001255: 23,2130           55073                           TS       AGSCODE                               #    PGNCS DOWNLINKED RADAR DATA.
023672,001256: 23,2131           05355        R61C+L01           TC       PHASCHNG                              #  RESTARTS DURING OR AFTER R65 WILL
023673,001257: 23,2132           04022                           OCT      04022                                 #     RETURN HERE.
023674,001258: 23,2133           34741                           CAF      BIT4                                  #  BYPASS RADAR READING IF DATA
023675,001259: 23,2134           00006                           EXTEND                                         #  GOOD NOT PRESENT

Page 534

023677,001261: 23,2135           02033                           RAND     CHAN33                                
023678,001262: 23,2136           10000                           CCS      A                                     
023679,001263: 23,2137           12152                           TCF      R61C+L02                              #  NO DATA GOOD
023680,001264: 23,2140           04607                           TC       BANKCALL                              #  READ RR RANGE AND RDOT
023681,001265: 23,2141           53072                           CADR     RRRDOT                                #   EVERY R65 PASS (3 TIMES
023682,001266: 23,2142           04607                           TC       BANKCALL                              #   BEFORE FIRST MARK, ONCE
023683,001267: 23,2143           17733                           CADR     RADSTALL                              #   DURING ANY MARK PROCESSING,
023684,001268: 23,2144           12145                           NOOP                                           
023685,001269: 23,2145           04607                           TC       BANKCALL                              
023686,001270: 23,2146           53074                           CADR     RRRANGE                               
023687,001271: 23,2147           04607                           TC       BANKCALL                              
023688,001272: 23,2150           17733                           CADR     RADSTALL                              
023689,001273: 23,2151           12152                           NOOP                                           
023690,001274: 23,2152           34740        R61C+L02           CAF      TRACKBIT                              #  TRACKFLAG
023691,001275: 23,2153           70075                           MASK     STATE      +1                         
023692,001276: 23,2154           00006                           EXTEND                                         
023693,001277: 23,2155           12312                           BZF      R65WAIT                               #  NOT SET
023694,001278: 23,2156           06060        R61C+L03           TC       INTPRET                               
023695,001279: 23,2157           77775                           VLOAD                                          
023696,001280: 23,2160           06477                                    HIUNITZ                               
023697,001281: 23,2161           03765                           STORE    SCAXIS                                #  TRACK AXIS UNIT VECTOR
023698,001282: 23,2162           43234        R61LEM1            RTB      DAD                                   
023699,001283: 23,2163           21603                                    LOADTIME                              #  EXTRAPOLATE FORWARD TO CENTER
023700,001284: 23,2164           15712                                    3SECONDS                              #  SIX SECOND PERIOD.
023701,001285: 23,2165           34041                           STCALL   TDEC1                                 
023702,001286: 23,2166           51337                                    LPS20.1                               #  LOS DETERMINATION + VEH ATTITUDE
023703,001287: 23,2167           77775                           VLOAD                                          
023704,001288: 23,2170           01101                                    RRTARGET                              
023705,001289: 23,2171           03773                           STORE    POINTVSM                              
023706,001290: 23,2172           45034                           RTB      CALL                                  #     GET DESIRED CDU'S FOR VECPNT1
023707,001291: 23,2173           46320                                    READCDUD                              
023708,001292: 23,2174           56032                                    VECPNT1                               #  COMPUTES FINAL ANGLES FROM PRESENT CDUDS
023709,001293: 23,2175           00322                           STORE    CPHI                                  #  STORE FINAL ANGLES - CPHI,CTHETA,CPSI
023710,001294: 23,2176           77776                           EXIT                                           
023711,001295: 23,2177           34740                           CAF      TRACKBIT                              #   IS TRACK FLAG SET
023712,001296: 23,2200           70075                           MASK     FLAGWRD1                              
023713,001297: 23,2201           00006                           EXTEND                                         
023714,001298: 23,2202           12312                           BZF      R65WAIT                               
023715,001299: 23,2203           04607                           TC       BANKCALL                              
023716,001300: 23,2204           54267                           CADR     G+N,AUTO                              #  CHECK FOR AUTO MODE
023717,001301: 23,2205           10000                           CCS      A                                     
023718,001302: 23,2206           02300                           TC       R61C+L04                              #  NOT IN AUTO
023719,001303: 23,2207           06060                           TC       INTPRET                               
023720,001304: 23,2210           45175                           VLOAD    CALL                                  
023721,001305: 23,2211           01101                                    RRTARGET                              
023722,001306: 23,2212           47640                                    CDU*SMNB                              
023723,001307: 23,2213           45345                           DLOAD    DSU                                   #  GET PHI - ARCCOS OF Z-COMPONENT OF LOS
023724,001308: 23,2214           00162                                    MPAC       +5                         
023725,001309: 23,2215           06316                                    COS15DEG                              
023726,001310: 23,2216           77440        R61LEM2            BMN      EXIT                                  #  BRANCH - PHI > 15 DEGREES

Page 535

023728,001312: 23,2217           46234                                    R61C+L05                              #  PHI GRE 10DEG
023729,001313: 23,2220  E6,1634                                  EBANK=   CDUXD                                 
023730,001314: 23,2220           35006                           CAF      EBANK6                                
023731,001315: 23,2221           54003                           TS       EBANK                                 
023732,001316: 23,2222           00004                           INHINT                                         
023733,001317: 23,2223           00006                           EXTEND                                         
023734,001318: 23,2224           30322                           DCA      CPHI                                  
023735,001319: 23,2225           53635                           DXCH     CDUXD                                 
023736,001320: 23,2226           30323                           CA       CPSI                                  
023737,001321: 23,2227           55636                           TS       CDUZD                                 
023738,001322: 23,2230           00003                           RELINT                                         
023739,001323: 23,2231  E7,1456                                  EBANK=   LOSCOUNT                              
023740,001324: 23,2231           35007                           CAF      EBANK7                                
023741,001325: 23,2232           54003                           TS       EBANK                                 
023742,001326: 23,2233           02257                           TC       R61C+L06                              
023743,001327: 23,2234           77776        R61C+L05           EXIT                                           
023744,001328: 23,2235           00004                           INHINT                                         
023745,001329: 23,2236           04665                           TC       IBNKCALL                              
023746,001330: 23,2237           40154                           FCADR    ZATTEROR                              
023747,001331: 23,2240           04665                           TC       IBNKCALL                              
023748,001332: 23,2241           40141                           FCADR    SETMINDB                              #  REDUCE ATTITUDE ERROR
023749,001333: 23,2242           05520                           TC       DOWNFLAG                              
023750,001334: 23,2243           00124                           ADRES    3AXISFLG                              
023751,001335: 23,2244           05506                           TC       UPFLAG                                
023752,001336: 23,2245           00114                           ADRES    PDSPFLAG                              #  SET PRIORITY DISPLAY FLAG
023753,001337: 23,2246           04607                           TC       BANKCALL                              
023754,001338: 23,2247           54125                           CADR     R60LEM                                
023755,001339: 23,2250           00004                           INHINT                                         
023756,001340: 23,2251           04665                           TC       IBNKCALL                              
023757,001341: 23,2252           40115                           FCADR    RESTORDB                              
023758,001342: 23,2253           05355                           TC       PHASCHNG                              
023759,001343: 23,2254           04022                           OCT      04022                                 
023760,001344: 23,2255           05520                           TC       DOWNFLAG                              
023761,001345: 23,2256           00114                           ADRES    PDSPFLAG                              #  RESET PRIORITY DISPLAY FLAG
023762,001346: 23,2257           30075        R61C+L06           CA       FLAGWRD1                              
023763,001347: 23,2260           74733                           MASK     R61FLBIT                              
023764,001348: 23,2261           10000                           CCS      A                                     
023765,001349: 23,2262           02303                           TC       R61C+L4                               
023766,001350: 23,2263           11745                           CCS      R65CNTR                               
023767,001351: 23,2264           02266                           TC       +2                                    
023768,001352: 23,2265           02303                           TC       R61C+L4                               #  R65CNTR = 0 - EXIT ROUTINE
023769,001353: 23,2266           55745                           TS       R65CNTR                               
023770,001354: 23,2267           32317                           CAF      06SEC                                 
023771,001355: 23,2270           05175                           TC       TWIDDLE                               
023772,001356: 23,2271           02273                           ADRES    R61C+L2                               
023773,001357: 23,2272           05146                           TC       ENDOFJOB                              
023774,001358: 23,2273           37735        R61C+L2            CAF      PRIO26                                
023775,001359: 23,2274           05076                           TC       FINDVAC                               
023776,001360: 23,2275  E7,1456                                  EBANK=   LOSCOUNT                              
023777,001361: 23,2275           02131 46067                     2CADR    R61C+L01                              
023778,001362: 

Page 536

023780,001364: 23,2277           05263                           TC       TASKOVER                              
023781,001365: 23,2300           04607        R61C+L04           TC       BANKCALL                              #  TO CONVERT ANGLES TO FDAI
023782,001366: 23,2301           54300                           CADR     BALLANGS                              
023783,001367: 23,2302           02257                           TC       R61C+L06                              
023784,001368: 23,2303           31142        R61C+L4            CAE      GENRET                                
023785,001369: 23,2304           14631                           TCF      BANKJUMP                              #  EXIT R61
023786,001370: 23,2305           32314        R61C+L1            CAF      BIT7+9PV                              #  IS RENDEZVOUS OR P25FLAG SET
023787,001371: 23,2306           70074                           MASK     STATE                                 
023788,001372: 23,2307           00006                           EXTEND                                         
023789,001373: 23,2310           15146                           BZF      ENDOFJOB                              #  NO-EXIT ROUTINE AND PROGRAM.
023790,001374: 23,2311           02257                           TC       R61C+L06                              #  YES EXIT ROUTINE
023791,001375: 23,2312           04626        R65WAIT            TC       POSTJUMP                              
023792,001376: 23,2313           50310                           CADR     P20LEMWT                              
023793,001377: 
023794,001378: 
023795,001379: 23,2314           00500        BIT7+9PV           OCT      00500                                 
023796,001380: 23,2315           17350 34602  COS15DEG           2DEC     0.96593    B-1                        
023797,001381: 
023798,001382: 23,2317           01130        06SEC              DEC      600        B-14                       
023799,001383: 23,2320                        PHI                EQUALS   20D                                   
023800,001384: 23,2320           00004        READCDUD           INHINT                                         #  READS DESIRED CDU'S AND STORES IN
023801,001385: 23,2321           35006                           CAF      EBANK6                                #  MPAC TP EXITS WITH MODE SET TO TP
023802,001386: 23,2322           56003                           XCH      EBANK                                 
023803,001387: 23,2323           54070                           TS       RUPTREG1                              
023804,001388: 23,2324  E6,1634                                  EBANK=   CDUXD                                 
023805,001389: 23,2324           31634                           CA       CDUXD                                 
023806,001390: 23,2325           54154                           TS       MPAC                                  
023807,001391: 23,2326           00006                           EXTEND                                         
023808,001392: 23,2327           31636                           DCA      CDUYD                                 
023809,001393: 23,2330           52156                           DXCH     MPAC       +1                         
023810,001394: 23,2331           30070                           CA       RUPTREG1                              
023811,001395: 23,2332           54003                           TS       EBANK                                 
023812,001396: 23,2333           00003                           RELINT                                         
023813,001397: 23,2334           16520                           TCF      TMODE                                 
023814,001398:    4503                                           BLOCK    02                                    
023815,001399:    4000                                           SETLOC   RADARFF                               
023816,001400:    4000                                           BANK                                           
023817,001401: 
023818,001402:    4503  E7,1456                                  EBANK=   LOSCOUNT                              
023819,001403:    4503                                           COUNT*   $$/RRSUB                              
023820,001404: 

Page 537

023822,001406:                                                                                                  #  THE FOLLOWING SUBROUTINE RETURNS TO CALLER + 2 IF THE ABSOLUTE VALUE OF VALUE OF C(A) IS GREATER THAN THE
023823,001407:                                                                                                  #  NEGATIVE OF THE NUMBER AT CALLER +1. OTHERWISE IT RETURNS TO CALLER +3. MAY BE CALLED IN RUPT OR UNDER EXEC.
023824,001408: 
023825,001409:    4503           00006        MAGSUB             EXTEND                                         
023826,001410:    4504           64506                           BZMF     +2                                    
023827,001411:    4505           14507                           TCF      +2                                    
023828,001412:    4506           40000                           COM                                            
023829,001413: 
023830,001414:    4507           50002                           INDEX    Q                                     
023831,001415:    4510           60000                           AD       0                                     
023832,001416:    4511           00006                           EXTEND                                         
023833,001417:    4512           66762                           BZMF     Q+2                                   #  ABS(A) <= CONST GO TO L+3
023834,001418:    4513           16760                           TCF      Q+1                                   #  ABS(A) >  CONST GO TO L+2
023835,001419: 

Page 538

023837,001421:                                                                                                  #  PROGRAM NAME_  RRLIMCHK                                                  ARE IN THE LIMITS OF THE CURRENT MODE.
023838,001422: 
023839,001423:                                                                                                  #  FUNCTIONAL DESCRIPTION_
023840,001424:                                                                                                  #  RRLIMCHK CHECKS RR DESIRED GIMBAL ANGLES TO SEE IF THEY ARE WITHIN
023841,001425:                                                                                                  #  THE LIMITS OF THE CURRENT MODE. INITIALLY THE DESIRED TRUNNION AND
023842,001426:                                                                                                  #  SHAFT ANGLES ARE STORED IN ITEMP1 AND ITEMP2. THE CURRENT RR
023843,001427:                                                                                                  #  ANTENNAE MODE (RADMODES BIT 12) IS CHECKED WHICH IS = 0 FOR
023844,001428:                                                                                                  #  MODE 1 AND =1 FOR MODE 2.
023845,001429:                                                                                                  #  MODE 1 - THE TRUNNION ANGLE IS CHECKED AT MAGSUB TO SEE IF IT IS
023846,001430:                                                                                                  #  BETWEEN -55 AND +55 DEGREES. IF NOT, RETURN TO L +2. IF WITHIN LIMITS,
023847,001431:                                                                                                  #  THE SHAFT ANGLE IS CHECKED TO SEE IF IT IS BETWEEN -70 AND +59 DEGREES.
023848,001432:                                                                                                  #  IF NOT, RETURN TO L +2. IF IN LIMITS, RETURN TO L +3.
023849,001433:                                                                                                  #  MODE 2 - THE SHAFT ANGLE IS CHECKED AT MAGSUB TO SEE IF IT IS
023850,001434:                                                                                                  #  BETWEEN -139 AND -25 DEGREES. IF NOT, RETURN TO L +2. IF WITHIN
023851,001435:                                                                                                  #  LIMITS, THE TRUNNION ANGLE IS CHECKED TO SEE IF IT IS BETWEEN +125
023852,001436:                                                                                                  #  AND -125 (+235) DEGREES. IF NOT, RETURN TO L +2. IF IN LIMITS, RETURN
023853,001437:                                                                                                  #  TO L +3.
023854,001438: 
023855,001439:                                                                                                  #  CALLING SEQUENCE:
023856,001440:                                                                                                  #  L  TC  RRLIMCHK (WITH INTERRUPT INHIBITED)
023857,001441:                                                                                                  #  L +1  ADRES T,S  (DESIRED TRUNNION ANGLE ADDRESS)
023858,001442: 
023859,001443:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
023860,001444:                                                                                                  #  RADMODES, MODEA, MODEB (OR DESIRED TRUNNION AND SHAFT
023861,001445:                                                                                                  #  ANGLES ELSEWHERE IN CONSECUTIVE LOCATIONS - UNSWITCHED ERASABLE OR
023862,001446:                                                                                                  #  CURRENT EBANK).
023863,001447: 
023864,001448:                                                                                                  #  SUBROUTINES CALLED_  MAGSUB
023865,001449: 
023866,001450:                                                                                                  #  JOBS OR TASKS INITIATED_  NONE
023867,001451: 
023868,001452:                                                                                                  #  ALARMS_  NONE
023869,001453: 
023870,001454:                                                                                                  #  EXIT_  L + 2 (EITHER OR BOTH ANGLES NOT WITHIN LIMITS OF CURRENT MODE)
023871,001455:                                                                                                  #  L + 3 (BOTH ANGLES WITHIN LIMITS OF CURRENT MODE)
023872,001456: 
023873,001457:    4514           00006        RRLIMCHK           EXTEND                                         
023874,001458:    4515           50002                           INDEX    Q                                     
023875,001459:    4516           50000                           INDEX    0                                     
023876,001460:    4517           30001                           DCA      0                                     
023877,001461:    4520           24002                           INCR     Q                                     
023878,001462:    4521           52062                           DXCH     ITEMP1                                
023879,001463:    4522           22002                           LXCH     Q                                     #  L(CALLER +2) TO L.
023880,001464: 
023881,001465:    4523           34731                           CAF      ANTENBIT                              #  SEE WHICH MODE RR IS IN.
023882,001466:    4524           70110                           MASK     RADMODES                              
023883,001467:    4525           10000                           CCS      A                                     
023884,001468:    4526           14541                           TCF      MODE2CHK                              
023885,001469: 
023886,001470:    4527           30061                           CA       ITEMP1                                #  MODE 1 IS DEFINED AS

Page 539

023888,001472:    4530           04503                           TC       MAGSUB                                #      1. ABS(T) L 55 DEGS.
023889,001473:    4531           66161                           DEC      -.30555                               #      2. ABS(S + 5.5 DEGS) L 64.5 DEGS
023890,001474:    4532           00001                           TC       L                                     #          (SHAFT LIMITS AT +59, -70 DEGS)
023891,001475: 
023892,001476:    4533           34553                           CAF      5.5DEGS                               
023893,001477:    4534           60062                           AD       ITEMP2                                #  S
023894,001478:    4535           04503                           TC       MAGSUB                                
023895,001479:    4536           64420                           DEC      -.35833                               #  64.5 DEGS
023896,001480:    4537           00001                           TC       L                                     
023897,001481:    4540           04551                           TC       RRLIMOK                               #  IN LIMITS.
023898,001482: 
023899,001483:    4541           34554        MODE2CHK           CAF      82DEGS                                #  MODE 2 IS DEFINED AS
023900,001484:    4542           60062                           AD       ITEMP2                                #      1. ABS(T) G 125 DEGS.
023901,001485:    4543           04503                           TC       MAGSUB                                #      2. ABS(S + 82 DEGS) L 57 DEGS
023902,001486:    4544           65673                           DEC      -.31667                               #          (SHAFT LIMITS AT -25, -139 DEGS)
023903,001487:    4545           00001                           TC       L                                     
023904,001488: 
023905,001489:    4546           30061                           CA       ITEMP1                                
023906,001490:    4547           04503                           TC       MAGSUB                                
023907,001491:    4550           51615                           DEC      -.69444                               #  125 DEGS
023908,001492: 
023909,001493:    4551           50001        RRLIMOK            INDEX    L                                     
023910,001494:    4552           00001                           TC       L                                     #  ( = TC 1)
023911,001495: 
023912,001496:    4553           00765        5.5DEGS            DEC      .03056                                
023913,001497:    4554           16450        82DEGS             DEC      .45556                                
023914,001498: 

Page 540

023916,001500:                                                                                                  #  PROGRAM NAME_  SETTRKF                                                  . IF EITHER:
023917,001501: 
023918,001502:                                                                                                  #  FUNCTIONAL DESCRIPTION_
023919,001503:                                                                                                  #  SETTRKF UPDATES THE TRACKER FAIL LAMP ON THE DSKY.                      HER THE ALT OR VEL INFORMATION.
023920,001504:                                                                                                  #  INITIALLY THE LAMP TEST FLAG (IMODES33 BIT 1) IS CHECKED.
023921,001505:                                                                                                  #  IF A LAMP TEST IS IN PROGRESS, THE PROGRAM EXITS TO L +1.
023922,001506:                                                                                                  #  IF NO LAMP TEST THE FOLLOWING IS CHECKED SEQUENTIALLY_
023923,001507:                                                                                                  #  1) RR CDU:S BEING ZEROED, RR CDU OK, AND RR NOT IN
023924,001508:                                                                                                  #  AUTO MODE (RADMODES BITS 13, 7, 2).
023925,001509:                                                                                                  #  2) LR VEL DATA FAIL AND NO LR POS DATA (RADMODES BITS
023926,001510:                                                                                                  #  8,5)
023927,001511:                                                                                                  #  3) NO RR DATA (RADMODES BIT 4)
023928,001512:                                                                                                  #  THE ABSENCE OF ALL THREE SIMULTANEOUSLY IN (1), THE PRESENCE OF BOTH
023929,001513:                                                                                                  #  IN (2), AND THE PRESENCE OF (3) RESULTS IN EITHER THE TRACKER FAIL
023930,001514:                                                                                                  #  LAMP (DSPTAB +11D BIT 8) BEING TURNED ON OR LEFT ON. OTHERWISE,
023931,001515:                                                                                                  #  THE TRACKER FAIL LAMP IS TURNED OFF OR IS LEFT OFF. THEREFORE, THE
023932,001516:                                                                                                  #  TRACKER FAIL LAMP IS TURNED ON IF_
023933,001517:                                                                                                  #  A ) RR CDU FAILED WITH RR IN AUTO MODE AND RR CDU:S NOT BEING ZEROED.
023934,001518:                                                                                                  #  B) N SAMPLES OF LR DATA COULD NOT BE TAKEN IN 2N TRIES WITH
023935,001519:                                                                                                  #  EITHER THE ALT OR VEL INFORMATION
023936,001520:                                                                                                  #  C) N SAMPLES OF RR DATA COULD NOT BE OBTAINED FROM 2N TRIES
023937,001521:                                                                                                  #  WITH EITHER THE AL
023938,001522: 
023939,001523:                                                                                                  #  CALLING SEQUENCE:
023940,001524:                                                                                                  #  L  TC  SETTRKF
023941,001525: 
023942,001526:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED: IMODES33, RADMODES, DSPTAB +11D
023943,001527:                                                                                                  #  SUBROUTINES CALLED_  NONE
023944,001528: 
023945,001529:                                                                                                  #  JOBS OR TASKS INITIATED_  NONE
023946,001530: 
023947,001531:                                                                                                  #  ALARMS_  TRACKER FAIL LAMP
023948,001532: 
023949,001533:                                                                                                  #  EXIT_  L +1 (ALWAYS)                                                         ED.
023950,001534: 
023951,001535:    4555           34744        SETTRKF            CAF      BIT1                                  #  NO ACTION IF DURING LAMP TEST.
023952,001536:    4556           71300                           MASK     IMODES33                              
023953,001537:    4557           10000                           CCS      A                                     
023954,001538:    4560           00002                           TC       Q                                     
023955,001539: 
023956,001540:    4561           34735        RRTRKF             CA       BIT8                                  
023957,001541:    4562           54001                           TS       L                                     
023958,001542: 
023959,001543:    4563           34606                           CAF      13,7,2                                #  SEE IF CDU FAILED.
023960,001544:    4564           70110                           MASK     RADMODES                              
023961,001545:    4565           00006                           EXTEND                                         
023962,001546:    4566           14572                           BZF      TRKFLON                               #  CONDITION 3 ABOVE.
023963,001547: 
023964,001548:    4567           34741        RRCHECK            CAF      RRDATABT                              #  SEE IF RR DATA FAILED.
023965,001549:    4570           70110                           MASK     RADMODES                              

Page 541

023967,001551:    4571           10000                           CCS      A                                     
023968,001552:    4572           30001        TRKFLON            CA       L                                     
023969,001553:    4573           61035                           AD       DSPTAB     +11D                       #  HALF ADD DESIRED AND PRESENT STATES.
023970,001554:    4574           70001                           MASK     L                                     
023971,001555:    4575           00006                           EXTEND                                         
023972,001556:    4576           16763                           BZF      TCQ                                   #  NO CHANGE.
023973,001557: 
023974,001558:    4577           31035        FLIP               CA       DSPTAB     +11D                       #  CANT USE LXCH DSPTAB +11D (RESTART PROB)
023975,001559:    4600           00006                           EXTEND                                         
023976,001560:    4601           06001                           RXOR     LCHAN                                 
023977,001561:    4602           74724                           MASK     POSMAX                                
023978,001562:    4603           64726                           AD       BIT15                                 
023979,001563:    4604           55035                           TS       DSPTAB     +11D                       
023980,001564:    4605           00002                           TC       Q                                     
023981,001565: 
023982,001566:    4606           10102        13,7,2             OCT      10102                                 
023983,001567:    4607                        ENDRMODF           EQUALS                                         
023984,001568: 

Page 542

023986,001570:                                                                                                  #  PROGRAM NAME_  RRTURNON

A vertical line is drawn next to the log section name and program name.

023988,001572: 
023989,001573:                                                                                                  #  FUNCTIONAL DESCRIPTION_
023990,001574: 
023991,001575:                                                                                                  #  RRTURNON IS THE TURN-ON SEQUENCE WHICH, ALONG WITH
023992,001576:                                                                                                  #  RRZEROSB, ZEROS THE CDU:S AND DETERMINES THE RR MODE.
023993,001577:                                                                                                  #  INITIALLY, CONTROL IS TRANSFERRED TO RRZEROSB FOR THE
023994,001578:                                                                                                  #  ACTUAL TURN-ON SEQUENCE. UPON RETURN THE PROGRAM
023995,001579:                                                                                                  #  WAITS 1 SECOND BEFORE REMOVING THE TURN-ON FLAG
023996,001580:                                                                                                  #  (RADMODES BIT1) SO THE REPOSITION ROUTINE WON:T
023997,001581:                                                                                                  #  INITIATE PROGRAM ALARM 00501. A CHECK IS THEN MADE
023998,001582:                                                                                                  #  TO SEE IF A PROGRAM IS USING THE RR (STATE BIT 7). IF
023999,001583:                                                                                                  #  SO, THE PROGRAM EXITS TO ENDRADAR SO THAT THE RR CDU
024000,001584:                                                                                                  #  FAIL FLAG (RADMODES BIT 7) CAN BE CHECKED BEFORE
024001,001585:                                                                                                  #  RETURNING TO THE WAITING PROGRAM. IF NOT, THE PROGRAM EXITS
024002,001586:                                                                                                  #  TO TASKOVER.
024003,001587: 
024004,001588:                                                                                                  #  CALLING SEQUENCE: WAITLIST TASK FROM RRAUTCHK IF THE RR POWER ON AUTO
024005,001589:                                                                                                  #  BIT (CHAN 33 BIT 2) CHANGES TO 0 AND NO PROGRAM WAS USING 
024006,001590:                                                                                                  #  THE RR (STATE BIT 7).
024007,001591: 
024008,001592:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024009,001593:                                                                                                  #  RADMODES, STATE
024010,001594: 
024011,001595:                                                                                                  #  SUBROUTINES CALLED_  RRZEROSB, FIXDELAY, TASKOVER, ENDRADAR
024012,001596: 
024013,001597:                                                                                                  #  JOBS OR TASKS INITIATED_
024014,001598:                                                                                                  #  NONE
024015,001599: 
024016,001600:                                                                                                  #  ALARMS_  NONE (SEE RRZEROSB)
024017,001601: 
024018,001602:                                                                                                  #  EXIT_  TASKOVER, ENDRADAR (WAITING PROGRAM)
024019,001603: 
024020,001604: 24,3337                                           BANK     24                                    
024021,001605: 25,2000                                           SETLOC   P20S1                                 
024022,001606: 25,2000                                           BANK                                           
024023,001607: 
024024,001608: 25,2053  E7,1456                                  EBANK=   LOSCOUNT                              
024025,001609: 25,2053                                           COUNT*   $$/RSUB                               
024026,001610: 25,2053           02062        RRTURNON           TC       RRZEROSB                              
024027,001611: 25,2054           05223                           TC       FIXDELAY                              #  WAIT 1 SEC BEFORE REMOVING TURN ON FLAG
024028,001612: 25,2055           00144                           DEC      100        B-14                       #  SO A MONITOR REPOSITION WONT ALARM.
024029,001613: 25,2056           44744                           CS       TURNONBT                              
024030,001614: 25,2057           70110                           MASK     RADMODES                              
024031,001615: 25,2060           54110                           TS       RADMODES                              
024032,001616: 25,2061           15263                           TCF      TASKOVER                              
024033,001617: 

Page 543

024035,001619:                                                                                                  #  PROGRAM NAME_  RRZEROSB
024036,001620: 
024037,001621:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024038,001622:                                                                                                  #  RRZEROSB IS A CLOSED SUBROUTINE TO ZERO THE RR CDU:S,
024039,001623:                                                                                                  #  DETERMINE THE RR MODE, AND TURNS ON THE TRACKER FAIL
024040,001624:                                                                                                  #  LAMP IF REQUIRED. INITIALLY THE RR CDU ZERO BIT (CHAN 12
024041,001625:                                                                                                  #  BIT 1) IS SET. FOLLOWING A 20 MILLISECOND WAIT, THE LGC
024042,001626:                                                                                                  #  RR CDU COUNTERS (OPTY, OPTX) ARE SET = 0 AFTER 
024043,001627:                                                                                                  #  WHICH THE RR CDU ZERO DISCRETE (CHAN 12 BIT 1) IS
024044,001628:                                                                                                  #  REMOVED. A 4 SECOND WAIT IS SET TO ALL THE RR CDU:S
024045,001629:                                                                                                  #  TO REPEAT THE ACTUAL TRUNNION AND SHAFT ANGLES. THE
024046,001630:                                                                                                  #  RR CDU ZERO FLAG (RADMODES BIT 13) IS REMOVED. THE
024047,001631:                                                                                                  #  CONTENTS OF OPTY IS THEN CHECKED TO SEE IF THE TRUNNION
024048,001632:                                                                                                  #  ANGLE IS LESS THAN 90 DEGREES. IF NOT, BIT 12 OF
024049,001633:                                                                                                  #  RADMODES IS SET = 1 TO INDICATE RR ANTENNA MODE 2.
024050,001634:                                                                                                  #  IF LESS THAN 90 DEGREES, BIT 12 OF RADMODES IS SET = 0 TO
024051,001635:                                                                                                  #  INDICATE RR ANTENNA MODE 1. SETTRKF IS THEN CALLED TO
024052,001636:                                                                                                  #  SEE IF THE TRACKER FAIL LAMP SHOULD BE TURNED ON.
024053,001637: 
024054,001638:                                                                                                  #  CALLING SEQUENCE: L  TC  RRZEROSB (FROM RRTURNON AND RRZERO)
024055,001639:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024056,001640:                                                                                                  #  RADMODES (BIT 13 SET), DSPTAB +11D
024057,001641: 
024058,001642:                                                                                                  #  SUBROUTINES CALLED_  FIXDELAY, MAGSUB, SETTRKF
024059,001643: 
024060,001644:                                                                                                  #  JOBS OR TASKS INITIATED_
024061,001645:                                                                                                  #  NONE
024062,001646: 
024063,001647:                                                                                                  #  ALARMS_  TRACKER FAIL
024064,001648: 
024065,001649:                                                                                                  #  EXIT_  L +1 (ALWAYS)
024066,001650: 
024067,001651: 25,2062           00006        RRZEROSB           EXTEND                                         
024068,001652: 25,2063           23312                           QXCH     RRRET                                 
024069,001653: 25,2064           34744                           CAF      BIT1                                  #  BIT 13 OF RADMODES MUST BE SET BEFORE
024070,001654: 25,2065           00006                           EXTEND                                         #  COMING HERE.
024071,001655: 25,2066           05012                           WOR      CHAN12                                #  TURN ON ZERO RR CDU
024072,001656: 25,2067           05223                           TC       FIXDELAY                              
024073,001657: 25,2070           00002                           DEC      2          B-14                       
024074,001658: 
024075,001659: 25,2071           34746                           CAF      ZERO                                  
024076,001660: 25,2072           54035                           TS       CDUT                                  
024077,001661: 25,2073           54036                           TS       CDUS                                  
024078,001662: 25,2074           44744                           CS       ONE                                   #  REMOVE ZEROING BIT.
024079,001663: 25,2075           00006                           EXTEND                                         
024080,001664: 25,2076           03012                           WAND     CHAN12                                
024081,001665: 25,2077           05223                           TC       FIXDELAY                              
024082,001666: 25,2100           01750                           DEC      1000       B-14                       #  RESET FAIL INHIBIT IN 10 SECS - D.281
024083,001667: 
024084,001668: 25,2101           44730                           CS       RCDU0BIT                              #  REMOVE ZEROING IN PROCESS BIT.

Page 544

024086,001670: 25,2102           70110                           MASK     RADMODES                              
024087,001671: 25,2103           54110                           TS       RADMODES                              
024088,001672: 
024089,001673: 25,2104           30035                           CA       CDUT                                  
024090,001674: 25,2105           04503                           TC       MAGSUB                                
024091,001675: 25,2106           57777                           DEC      -.5                                   
024092,001676: 25,2107           12112                           TCF      +3                                    #  IF MODE 2.
024093,001677: 
024094,001678: 25,2110           34746                           CAF      ZERO                                  
024095,001679: 25,2111           12113                           TCF      +2                                    
024096,001680: 25,2112           34731                           CAF      ANTENBIT                              
024097,001681: 25,2113           56110                           XCH      RADMODES                              
024098,001682: 25,2114           77762                           MASK     -BIT12                                
024099,001683: 25,2115           26110                           ADS      RADMODES                              
024100,001684: 
024101,001685: 25,2116           04555                           TC       SETTRKF                               #  TRACKER LAMP MIGHT GO ON NOW.
024102,001686: 
024103,001687: 25,2117           01312                           TC       RRRET                                 #  DONE.
024104,001688: 
024105,001689: 25,2120     7762               -BIT12             EQUALS   -1/8                                  #  IN SPROOT
024106,001690: 

Page 545

024108,001692:                                                                                                  #  PROGRAM NAME_  DORREPOS
024109,001693:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024110,001694:                                                                                                  #  DORREPOS IS A SEQUENCE OF TASKS TO DRIVE THE RENDEZVOUS RADAR
024111,001695:                                                                                                  #  TO A SAFE POSITION. INITIALLY SETRRECR IS CALLED WHERE THE RR
024112,001696:                                                                                                  #  ERROR COUNTERS (CHAN 12 BIT 2) ARE ENABLED AND LASTYCMD
024113,001697:                                                                                                  #  AND LASTXCMD SET = 0 TO INDICATE THE DIFFERENCE BETWEEN THE
024114,001698:                                                                                                  #  DESIRED STATE AND PRESENT STATE OF THE COMMANDS. THE RR
024115,001699:                                                                                                  #  TURN-ON FLAG (RADMODES BIT 1) IS CHECKED AND IF NOT PRESENT,
024116,001700:                                                                                                  #  PROGRAM ALARM 00501 IS REQUESTED BEFORE CONTINUING. IN EITHER
024117,001701:                                                                                                  #  CASE, FOLLOWING A 20 MILLISECOND WAIT THE PROGRAM CHECKS THE CURRENT
024118,001702:                                                                                                  #  RR ANTENNA MODE (RADMODES BIT 12). RRTONLY IS THEN CALLED
024119,001703:                                                                                                  #  TO DRIVE THE TRUNNION ANGLE TO 0 DEGREES IF IN MODE 1 AND TO 180
024120,001704:                                                                                                  #  DEGREES IF IN MODE 2. UPON RETURN, THE CURRENT RR ANTENNA
024121,001705:                                                                                                  #  MODE (RADMODES BIT 12) IS AGAIN CHECKED. RRSONLY IS THEN
024122,001706:                                                                                                  #  CALLED TO DRIVE THE SHAFT ANGLE TO 0 DEGREES IF IN MODE 1 AND TO
024123,001707:                                                                                                  #  -90 DEGREES IF IN MODE 2. IF DURING RRTONLY OR RRSONLY A
024124,001708:                                                                                                  #  REMODE HAS BEEN REQUESTED (RADMODES BIT 14), AND ALWAYS
024125,001709:                                                                                                  #  FOLLOWING COMPLETION OF RRSONLY, CONTROL IS TRANSFERRED TO
024126,001710:                                                                                                  #  REPOSRPT. HERE THE REPOSITION FLAG (RADMODES BIT 11) IS 
024127,001711:                                                                                                  #  REMOVED. A CHECK IS THEN MADE ON THE DESIGNATE FLAG (RADMODES
024128,001712:                                                                                                  #  BIT 10). IF PRESENT, CONTROL IS TRANSFERRED TO BEGDES. IF NOT PRESENT
024129,001713:                                                                                                  #  INDICATING NO FURTHER ANTENNA CONTROL REQUIRED, THE RR ERROR
024130,001714:                                                                                                  #  COUNTER BIT (CHAN 12 BIT 2) IS REMOVED AND THE ROUTINE EXITS TO
024131,001715:                                                                                                  #  TASKOVER.
024132,001716: 
024133,001717:                                                                                                  #  CALLING SEQUENCE:
024134,001718:                                                                                                  #  WAITLIST CALL FROM RRGIMON IF TRUNNION AND SHAFT CDU ANGLES
024135,001719:                                                                                                  #  NOT WITHIN LIMITS OF CURRENT MODE.
024136,001720: 
024137,001721:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024138,001722:                                                                                                  #  RADMODES
024139,001723: 
024140,001724:                                                                                                  #  SUBROUTINES CALLED_
024141,001725:                                                                                                  #  RRTONLY, RRSONLY, BEGDES (EXIT)
024142,001726: 
024143,001727:                                                                                                  #  JOBS OR TASKS INITIATED_
024144,001728:                                                                                                  #  NONE
024145,001729: 
024146,001730:                                                                                                  #  ALARMS-  NONE
024147,001731: 
024148,001732:                                                                                                  #  EXIT_  TASKOVER, BEGDES
024149,001733: 
024150,001734: 25,2120           02147        DORREPOS           TC       SETRRECR                              #  SET UP RR CDU ERROR COUNTERS.
024151,001735: 
024152,001736:                                                                                                  #  ALARM 501 DELETED IN DANCE 279 PER PCR 97.
024153,001737: 
024154,001738: 25,2121           05223                           TC       FIXDELAY                              
024155,001739: 25,2122           00002                           DEC      2          B-14                       
024156,001740: 
024157,001741: 25,2123           34731                           CAF      ANTENBIT                              #  MANEUVER TRUNNION ANGLE TO NOMINAL POS.

Page 546

024159,001743: 25,2124           70110                           MASK     RADMODES                              
024160,001744: 25,2125           10000                           CCS      A                                     
024161,001745: 25,2126           34726                           CAF      BIT15                                 #  0 FOR MODE 1 AND 180 FOR MODE 2.
024162,001746: 25,2127           02232                           TC       RRTONLY                               
024163,001747: 
024164,001748: 25,2130           34731                           CAF      ANTENBIT                              #  NOW PUT SHAFT IN RIGHT POSITION
024165,001749: 25,2131           70110                           MASK     RADMODES                              
024166,001750: 25,2132           10000                           CCS      A                                     
024167,001751: 25,2133           44727                           CS       HALF                                  #  -90 FOR MODE 2.
024168,001752: 25,2134           02235                           TC       RRSONLY                               
024169,001753: 
024170,001754: 25,2135           44732        REPOSRPT           CS       REPOSBIT                              #  RETURNS HERE FROM RR1AXIS IF REMODE
024171,001755:                                                                                                  #  REQUESTED DURING REPOSITION.
024172,001756: 25,2136           70110                           MASK     RADMODES                              #  REMOVE REPOSITION BIT.
024173,001757: 25,2137           54110                           TS       RADMODES                              
024174,001758: 25,2140           74733                           MASK     DESIGBIT                              #  SEE IF SOMEONE IS WAITING TO DESIGNATE.
024175,001759: 25,2141           10000                           CCS      A                                     
024176,001760: 25,2142           12564                           TCF      BEGDES                                
024177,001761: 25,2143           44743                           CS       BIT2                                  #  IF NO FURTHER ANTENNA CONTROL REQUIRED,
024178,001762: 25,2144           00006                           EXTEND                                         #  REMOVE ERROR COUNTER ENABLE.
024179,001763: 25,2145           03012                           WAND     CHAN12                                
024180,001764: 25,2146           15263                           TCF      TASKOVER                              
024181,001765: 
024182,001766: 25,2147           34743        SETRRECR           CAF      BIT2                                  #  SET UP RR ERROR COUNTERS.
024183,001767: 25,2150           00006                           EXTEND                                         
024184,001768: 25,2151           02012                           RAND     CHAN12                                
024185,001769: 25,2152           10000                           CCS      A                                     #  DO NOT CLEAR LAST COMMAND IF
024186,001770: 25,2153           00002                           TC       Q                                     #  ERROR COUNTERS ARE ENABLED.
024187,001771: 
024188,001772: 25,2154           54112                           TS       LASTYCMD                              
024189,001773: 25,2155           54113                           TS       LASTXCMD                              
024190,001774: 25,2156           34743                           CAF      BIT2                                  
024191,001775: 25,2157           00006                           EXTEND                                         
024192,001776: 25,2160           05012                           WOR      CHAN12                                #  ENABLE RR CDU ERROR COUNTERS.
024193,001777: 25,2161           00002                           TC       Q                                     

Page 547

024195,001779:                                                                                                  #  PROGRAM NAME_  REMODE                                                   IVES SHAFT TO -45, AND FINALLY DRIVES
024196,001780: 
024197,001781:                                                                                                  #  FUNCTIONAL DESCRIPTION_                                                 S DONE WITH SINGLE AXIS ROTATIONS (SEE
024198,001782:                                                                                                  #  REMODE IS THE GENERAL REMODING SUBROUTINE. IT DRIVES THE
024199,001783:                                                                                                  #  TRUNNION ANGLE TO 0 DEGREES IF THE CURRENT MODE IS MODE 1,
024200,001784:                                                                                                  #  180 DEGREES FOR MODE 2, THEN DRIVES THE SHAFT ANGLE TO -45
024201,001785:                                                                                                  #  DEGREES, AND FINALLY DRIVES THE TRUNNION ANGLE TO -130 DEGREES,
024202,001786:                                                                                                  #  TO PLACE THE RR IN MODE 2, -50 DEGREES FOR MODE 1, BEFORE
024203,001787:                                                                                                  #  INITIATING 2-AXIS CONTROL. ALL REMODING IS DONE WITH SINGLE
024204,001788:                                                                                                  #  AXIS ROTATIONS (RR1AXIS). INITIALLY THE RR ANTENNA MODE FLAG
024205,001789:                                                                                                  #  (RADMODES BIT 12) IS CHECKED. CONTROL IS THEN TRANSFERRED TO
024206,001790:                                                                                                  #  RRTONLY TO DRIVE THR TRUNNION ANGLE TO 0 DEGREES IF IN MODE 1
024207,001791:                                                                                                  #  OR 180 DEGREES IF IN MODE 2. RRSONLY IS THEN CALLED TO DRIVE
024208,001792:                                                                                                  #  THE SHAFT ANGLE TO -45 DEGREES. THE RR ANTENNA MODE FLAG
024209,001793:                                                                                                  #  (RADMODES BIT 12) IS CHECKED AGAIN. CONTROL IS AGAIN
024210,001794:                                                                                                  #  TRANSFERRED TO RRTONLY TO DRIVE THE TRUNNION ANGLE TO -130
024211,001795:                                                                                                  #  DEGREES TO PLACE THE RR IN MODE 2 IF CURRENTLY IN MODE 1 OR TO
024212,001796:                                                                                                  #  -50 DEGREES IF IN MODE 2 TO PLACE THE RR IN MODE 1. RMODINV
024213,001797:                                                                                                  #  IS THEN CALLED TO SET RADMODES BIT 12 TO INDICATE THE NEW
024214,001798:                                                                                                  #  RR ANTENNA MODE. THE REMODE FLAG (RADMODES BIT 14)
024215,001799:                                                                                                  #  IS REMOVED TO INDICATE THAT REMODING IS COMPLETE. THE PROGRAM
024216,001800:                                                                                                  #  THEN EXITS TO STDESIG TO BEGIN 2-AXIS CONTROL.
024217,001801: 
024218,001802:                                                                                                  #  CALLING SEQUENCE:
024219,001803:                                                                                                  #  FROM BEGDES WHEN REMODE FLAG (RADMODES BIT 14) IS SET.
024220,001804:                                                                                                  #  THIS FLAG MAY BE SET IN RRDESSM AND RRDESNB IF RRLIMCHK
024221,001805:                                                                                                  #  DETERMINES THAT THE DESIRED ANGLES ARE WITHIN THE LIMITS OF THE
024222,001806:                                                                                                  #  OTHER MODE.
024223,001807: 
024224,001808:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024225,001809:                                                                                                  #  RADMODES
024226,001810: 
024227,001811:                                                                                                  #  SUBROUTINES CALLED_
024228,001812:                                                                                                  #  RRTONLY, RRSONLY, RMODINV (ACTUALLY PART OF)
024229,001813: 
024230,001814:                                                                                                  #  JOBS OR TASKS INITIATED_
024231,001815:                                                                                                  #  NONE
024232,001816: 
024233,001817:                                                                                                  #  ALARMS_  NONE
024234,001818: 
024235,001819:                                                                                                  #  EXIT_  STDESIG
024236,001820: 
024237,001821: 25,2162           34731        REMODE             CAF      ANTENBIT                              #  DRIVE TRUNNION TO 0 (180)
024238,001822: 25,2163           70110                           MASK     RADMODES                              #  (ERROR COUNTER ALREADY ENABLED)
024239,001823: 25,2164           10000                           CCS      A                                     
024240,001824: 25,2165           34726                           CAF      BIT15                                 
024241,001825: 25,2166           02232                           TC       RRTONLY                               
024242,001826: 
024243,001827: 25,2167           37761                           CAF      -45DEGSR                              
024244,001828: 25,2170           02235                           TC       RRSONLY                               

Page 548

024246,001830: 25,2171           40110                           CS       RADMODES                              
024247,001831: 25,2172           74731                           MASK     ANTENBIT                              
024248,001832: 25,2173           10000                           CCS      A                                     
024249,001833: 25,2174           32223                           CAF      -80DEGSR                              #  GO TO T = -130 (-50).
024250,001834: 25,2175           62222                           AD       -50DEGSR                              
024251,001835: 25,2176           02232                           TC       RRTONLY                               
024252,001836: 
024253,001837: 25,2177           40110                           CS       RADMODES                              
024254,001838: 25,2200           74731                           MASK     ANTENBIT                              
024255,001839: 25,2201           10000                           CCS      A                                     
024256,001840: 25,2202           34726                           CAF      BIT15                                 #  GO TO T = -180 (+0).
024257,001841: 25,2203           02232                           TC       RRTONLY                               
024258,001842: 
024259,001843: 25,2204           40110                           CS       RADMODES                              #  GO TO S = -90 (+0).
024260,001844: 25,2205           74731                           MASK     ANTENBIT                              
024261,001845: 25,2206           10000                           CCS      A                                     
024262,001846: 25,2207           44727                           CS       HALF                                  
024263,001847: 25,2210           02235                           TC       RRSONLY                               
024264,001848: 
024265,001849: 25,2211           02224                           TC       RMODINV                               
024266,001850: 25,2212           44727                           CS       REMODBIT                              #  END OF REMODE.
024267,001851: 25,2213           70110                           MASK     RADMODES                              
024268,001852: 25,2214           54110                           TS       RADMODES                              
024269,001853: 
024270,001854: 25,2215           34733                           CAF      DESIGBIT                              #  WAS REMODE CALLED DURING DESIGNATE?
024271,001855: 25,2216           70110                           MASK     RADMODES                              #  (BIT10 RADMODES = 1)
024272,001856: 25,2217           00006                           EXTEND                                         
024273,001857: 25,2220           13616                           BZF      RGOODEND                              #  NO-RETURN TO CALLER WAITING IN RADSTALL
024274,001858: 25,2221           02573                           TC       STDESIG                               #  YES - RETURN TO DESIGNATE
024275,001859: 25,2222     7761               -45DEGSR           =        13,14,15                              
024276,001860: 25,2222           67070        -50DEGSR           DEC      -.27778                               
024277,001861: 25,2223           61615        -80DEGSR           DEC      -.44444                               
024278,001862: 
024279,001863: 25,2224           22110        RMODINV            LXCH     RADMODES                              #  INVERT THE MODE STATUS.
024280,001864: 25,2225           34731                           CAF      ANTENBIT                              
024281,001865: 25,2226           00006                           EXTEND                                         
024282,001866: 25,2227           06001                           RXOR     LCHAN                                 
024283,001867: 25,2230           54110                           TS       RADMODES                              
024284,001868: 25,2231           00002                           TC       Q                                     
024285,001869: 

Page 549

024287,001871:                                                                                                  #  PROGRAM NAMES_  RRTONLY, RRSONLY
024288,001872: 
024289,001873:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024290,001874:                                                                                                  #  RRTONLY AND RRSONLY ARE SUBROUTINES FOR DOING SINGLE AXIS
024291,001875:                                                                                                  #  RR MANEUVERS FOR REMODE AND REPOSITION. IT DRIVES TO
024292,001876:                                                                                                  #  WITHIN 1 DEGREE. INITIALLY, AT RR1AX2, THE REMODE AND REPOSITION
024293,001877:                                                                                                  #  FLAGS (RADMODES BITS 14, 11) ARE CHECKED. IF BOTH EXIST,
024294,001878:                                                                                                  #  THE PROGRAM EXITS TO REPOSRPT (SEE DORREPOS). THIS INDICATES
024295,001879:                                                                                                  #  THAT SOMEONE POSSIBLY REQUESTED A DESIGNATE (RADMODES BIT 10)
024296,001880:                                                                                                  #  WHICH REQUIRES A REMODE (RADMODES BIT 14) AND THAT A
024297,001881:                                                                                                  #  REPOSITION IS IN PROGRESS (RADMODES BIT 11). IF NONE
024298,001882:                                                                                                  #  OR ONLY ONE OF THE FLAGS EXIST, REMODE OR REPOSITION, MAGSUB
024299,001883:                                                                                                  #  IS CALLED TO SEE IF THE APPROPRIATE ANGLE IS WITHIN 1 DEGREE. IF YES,
024300,001884:                                                                                                  #  CONTROL RETURNS TO THE CALLING ROUTINE. IF NOT, CONTROL IS
024301,001885:                                                                                                  #  TRANSFERRED TO RROUT FOR SINGLE AXIS MANEUVERS WITH THE OTHER
024302,001886:                                                                                                  #  ANGLE SET = 0. FOLLOWING A .5 SECOND WAIT, THE ABOVE PROCEDURE IS
024303,001887:                                                                                                  #  REPEATED.
024304,001888: 
024305,001889:                                                                                                  #  CALLING SEQUENCE: L-1 CAF *ANGLE* (DESIRED ANGLE SCALED PI)
024306,001890:                                                                                                  #  L  TC  RRTONLY (TRUNNION ONLY)
024307,001891:                                                                                                  #  RRSONLY (SHAFT ONLY)
024308,001892:                                                                                                  #  RRTONLY IS CALLED BY PREPOS29;
024309,001893:                                                                                                  #  RRTONLY AND RRSONLY ARE CALLED BY DORREPOS AND REMODE
024310,001894: 
024311,001895:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024312,001896:                                                                                                  #  C(A) = DESIRED ANGLE, RADMODES
024313,001897: 
024314,001898:                                                                                                  #  SUBROUTINES CALLED_
024315,001899:                                                                                                  #  FIXDELAY, REPOSRPT, MAGSUB, RROUT
024316,001900: 
024317,001901:                                                                                                  #  JOBS OR TASKS INITIATED_
024318,001902:                                                                                                  #  NONE
024319,001903: 
024320,001904:                                                                                                  #  ALARMS_  NONE
024321,001905: 
024322,001906:                                                                                                  #  EXIT_  REPOSRPT (REMODE AND REPOSITION FLAGS PRESENT - RADMODES
024323,001907:                                                                                                  #  BITS 14, 11)
024324,001908:                                                                                                  #  L+1  (ANGLE WITHIN ONE DEGREE OR RR OUT OF AUTO MODE)
024325,001909: 
024326,001910: 25,2232           55313        RRTONLY            TS       RDES                                  #  DESIRED TRUNION ANGLE.
024327,001911: 25,2233           34746                           CAF      ZERO                                  
024328,001912: 25,2234           12237                           TCF      RR1AXIS                               
024329,001913: 
024330,001914: 25,2235           55313        RRSONLY            TS       RDES                                  #  SHAFT COMMANDS ARE UNRESOLVED SINCE THIS
024331,001915: 25,2236           34744                           CAF      ONE                                   #  ROUTINE ENTERED ONLY WHEN T = 0 OR 180.
024332,001916: 
024333,001917: 25,2237           55314        RR1AXIS            TS       RRINDEX                               
024334,001918: 25,2240           00006                           EXTEND                                         
024335,001919: 25,2241           23312                           QXCH     RRRET                                 
024336,001920: 25,2242           12245                           TCF      RR1AX2                                
024337,001921: 

Page 550

024339,001923: 25,2243           05223        NXTRR1AX           TC       FIXDELAY                              
024340,001924: 25,2244           00062                           DEC      50         B-14                       #  2 SAMPLES PER SECOND.
024341,001925: 
024342,001926: 25,2245           40110        RR1AX2             CS       RADMODES                              #  IF SOMEONE REQUESTES AS DESIGNATE WHICH
024343,001927: 25,2246           77731                           MASK     PRIO22                                #  REQUIRES A REMODE AND A REPOSITION IS IN
024344,001928: 25,2247           00006                           EXTEND                                         #  PROGRESS, INTERRUPT IT AND START THE
024345,001929: 25,2250           12135                           BZF      REPOSRPT                              #  REMODE IMMEDIATELY.
024346,001930: 
024347,001931: 25,2251           31313                           CA       RDES                                  
024348,001932: 25,2252           00006                           EXTEND                                         
024349,001933: 25,2253           51314                           INDEX    RRINDEX                               
024350,001934: 25,2254           20035                           MSU      CDUT                                  
024351,001935: 25,2255           54061                           TS       ITEMP1                                #  SAVE ERROR SIGNAL.
024352,001936: 25,2256           00006                           EXTEND                                         
024353,001937: 25,2257           72276                           MP       RRSPGAIN                              #  TRIES TO NULL .7 OF ERROR OVER NEXT .5
024354,001938: 25,2260           54001                           TS       L                                     
024355,001939: 25,2261           30110                           CA       RADMODES                              
024356,001940: 25,2262           74743                           MASK     AUTOMBIT                              
024357,001941: 25,2263           56061                           XCH      ITEMP1                                #  STORE RR-OUT-OF-AUTO-MODE BIT.
024358,001942: 25,2264           04503                           TC       MAGSUB                                #  SEE IF WITHIN ONE DEGREE.
024359,001943: 25,2265           77644                           DEC      -.00555                               #  SCALED IN HALF-REVS.
024360,001944: 
024361,001945: 25,2266           10061                           CCS      ITEMP1                                #  NO.  IF RR OUT OF AUTO MODE, EXIT.
024362,001946: 25,2267           01312                           TC       RRRET                                 #  RETURN TO CALLER.
024363,001947: 
024364,001948: 25,2270           11314                           CCS      RRINDEX                               #  COMMAND FOR OTHER AXIS IS ZERO.
024365,001949: 25,2271           12273                           TCF      +2                                    #  SETTING A TO 0.
024366,001950: 25,2272           56001                           XCH      L                                     
024367,001951: 25,2273           53352                           DXCH     TRUNNCMD                              
024368,001952: 25,2274           02277                           TC       RROUT                                 
024369,001953: 
024370,001954: 25,2275           12243                           TCF      NXTRR1AX                              #  COME BACK IN .5 SECONDS.
024371,001955: 
024372,001956: 25,2276           22715        RRSPGAIN           DEC      .59062                                #  NULL .7 ERROR IN .5 SEC.
024373,001957: 

Page 551

024375,001959:                                                                                                  #  PROGRAM NAME_  RROUT                                                    RROR COUNTER SCALING. RROUT LIMITS THEM
024376,001960: 
024377,001961:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024378,001962:                                                                                                  #  RROUT RECEIVES RR GYRO COMMANDS IN TANG, TANG +1 IN RR
024379,001963:                                                                                                  #  ERROR COUNTER SCALING. RROUT THEN LIMITS THEM AND
024380,001964:                                                                                                  #  GENERATES COMMANDS TO THE CDU TO ADJUST THE ERROR COUNTERS
024381,001965:                                                                                                  #  TO THE DESIRED VALUES. INITIALLY MAGSUB CHECKS THE MAGNITUDE OF
024382,001966:                                                                                                  #  THE COMMAND (SHAFT ON 1ST PASS) TO SEE IF IT IS GREATER THAN
024383,001967:                                                                                                  #  384 PULSES. IF NOT, CONTROL IS TRANSFERRED TO RROUTLIM TO
024384,001968:                                                                                                  #  LIMIT THE COMMAND TO +384 OR -384 PULSES. THE DIFFERENCE IS
024385,001969:                                                                                                  #  THEN CALCULATED BETWEEN THE DESIRED STATE AND THE PRESENT STATE OF
024386,001970:                                                                                                  #  THE ERROR COUNTER AS RECORDED IN LASTYCMD AND LASTXCMD.
024387,001971:                                                                                                  #  THE RESULT IS STORED IN OPTXCMD (1ST PASS) AND OPTYCMD (2ND
024388,001972:                                                                                                  #  PASS). FOLLOWING THE SECOND PASS, FOR THE TRUNNION COMMAND, THE
024389,001973:                                                                                                  #  OCDUT AND OCDUS ERROR COUNTER DRIVE BITS (CHAN 14 BITS 12, 11)
024390,001974:                                                                                                  #  ARE SET. THIS PROGRAM THEN EXITS TO THE CALLING PROGRAM.
024391,001975: 
024392,001976:                                                                                                  #  CALLING SEQUENCE:
024393,001977:                                                                                                  #  L TC RROUT (WITH RUPT INHIBITED) RROUT IS CALLED BY
024394,001978:                                                                                                  #  RRTONLY, RRSONLY, AND DODES
024395,001979: 
024396,001980:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024397,001981:                                                                                                  #  TANG, TANG +1 (DESIRED COMMANDS), LASTYCMD, LASTXCMD
024398,001982:                                                                                                  #  (1ST PASS = 0), RR ERROR COUNTER ENABLE SET (CHAN 12 BIT 2).
024399,001983: 
024400,001984:                                                                                                  #  SUBROUTINES CALLED_
024401,001985:                                                                                                  #  MAGSUB
024402,001986: 
024403,001987:                                                                                                  #  JOBS OR TASKS INITIATED_
024404,001988:                                                                                                  #  NONE
024405,001989: 
024406,001990:                                                                                                  #  ALARMS_  NONE
024407,001991: 
024408,001992:                                                                                                  #  EXIT_  L+1 (ALWAYS)                                                     SIRED VALUES. RUPT MUST BE INHIBITED.
024409,001993: 
024410,001994: 25,2277           22002        RROUT              LXCH     Q                                     #  SAVE RETURN.
024411,001995: 25,2300           34744                           CAF      ONE                                   #  LOOP TWICE.
024412,001996: 25,2301           54062        RROUT2             TS       ITEMP2                                
024413,001997: 25,2302           50000                           INDEX    A                                     
024414,001998: 25,2303           31351                           CA       TRUNNCMD                              
024415,001999: 25,2304           54061                           TS       ITEMP1                                #  SAVE SIGN OF COMMAND FOR LIMITING.
024416,002000: 
024417,002001: 25,2305           04503                           TC       MAGSUB                                #  SEE IF WITHIN LMITS.
024418,002002: 25,2306           77177        -RRLIMIT           DEC      -384       B-14                       
024419,002003: 25,2307           12326                           TCF      RROUTLIM                              #  LIMIT COMMAND TO MAG OF 384.
024420,002004: 
024421,002005: 25,2310           30061        SETRRCTR           CA       ITEMP1                                #  COUNT OUT DIFFERENCE BETWEEN DESIRED
024422,002006: 25,2311           50062                           INDEX    ITEMP2                                #  STATE AND PRESENT STATE AS RECORDED IN
024423,002007: 25,2312           56112                           XCH      LASTYCMD                              #  LASTYCMD AND LASTXCMD
024424,002008: 25,2313           40000                           COM                                            

Page 552

024426,002010: 25,2314           60061                           AD       ITEMP1                                
024427,002011: 25,2315           64745                           AD       NEG0                                  #  PREVENT +0 IN OUTCOUNTER
024428,002012: 25,2316           50062                           INDEX    ITEMP2                                
024429,002013: 25,2317           54053                           TS       CDUTCMD                               
024430,002014: 
024431,002015: 25,2320           10062                           CCS      ITEMP2                                #  PROCESS BOTH INPUTS.
024432,002016: 25,2321           12301                           TCF      RROUT2                                
024433,002017: 
024434,002018: 25,2322           35011                           CAF      PRIO6                                 #  ENABLE COUNTERS.
024435,002019: 25,2323           00006                           EXTEND                                         
024436,002020: 25,2324           05014                           WOR      CHAN14                                #  PUT ON CDU DRIVES S AND T
024437,002021: 25,2325           00001                           TC       L                                     #  RETURN.
024438,002022: 
024439,002023: 25,2326           10061        RROUTLIM           CCS      ITEMP1                                #  LIMIT COMMAND TO ABS VAL OF 384.
024440,002024: 25,2327           42306                           CS       -RRLIMIT                              
024441,002025: 25,2330           12332                           TCF      +2                                    
024442,002026: 25,2331           32306                           CA       -RRLIMIT                              
024443,002027: 25,2332           54061                           TS       ITEMP1                                
024444,002028: 25,2333           12311                           TCF      SETRRCTR   +1                         
024445,002029: 

Page 553

024447,002031:                                                                                                  #           ROUTINE TO ZERO THE RR CDUS AND DETERMINE THE ANTENNA MODE.
024448,002032: 
024449,002033: 25,2334           32363        RRZERO             CAF      BIT11+1                               #  SEE IF MONITOR REPOSITION OR NOT IN AUTO
024450,002034: 25,2335           70110                           MASK     RADMODES                              #  IF SO, DONT RE-ZERO CDUS.
024451,002035: 25,2336           10000                           CCS      A                                     
024452,002036: 25,2337           13532                           TCF      RADNOOP                               #  (IMMEDIATE TASK TO RGOODEND).
024453,002037: 
024454,002038: 25,2340           00004                           INHINT                                         
024455,002039: 25,2341           44730                           CS       RCDU0BIT                              #  SET FLAG TO SHOW ZEROING IN PROGRESS.
024456,002040: 25,2342           70110                           MASK     RADMODES                              
024457,002041: 25,2343           64730                           AD       RCDU0BIT                              
024458,002042: 25,2344           54110                           TS       RADMODES                              
024459,002043: 
024460,002044: 25,2345           34744                           CAF      ONE                                   
024461,002045: 25,2346           05205                           TC       WAITLIST                              
024462,002046: 25,2347  E7,1456                                  EBANK=   LOSCOUNT                              
024463,002047: 25,2347           02361 52067                     2CADR    RRZ2                                  
024464,002048: 
024465,002049: 
024466,002050: 25,2351           40110                           CS       RADMODES                              #  SEE IF IN AUTO MODE.
024467,002051: 25,2352           74743                           MASK     AUTOMBIT                              
024468,002052: 25,2353           10000                           CCS      A                                     
024469,002053: 25,2354           12357                           TCF      ROADBACK                              
024470,002054: 25,2355           05571                           TC       ALARM                                 #  AUTO DISCRETE NOT PRESENT - TRYING
024471,002055: 25,2356           00510                           OCT      510                                   
024472,002056: 25,2357           00003        ROADBACK           RELINT                                         
024473,002057: 25,2360           14622                           TCF      SWRETURN                              
024474,002058: 
024475,002059: 25,2361           02062        RRZ2               TC       RRZEROSB                              #  COMMON TO TURNON AND RRZERO.
024476,002060: 25,2362           13607                           TCF      ENDRADAR                              
024477,002061: 
024478,002062: 25,2363           02001        BIT11+1            OCT      02001                                 
024479,002063: 

Page 554

024481,002065:                                                                                                  #  PROGRAM NAME_  RRDESSM                                                  R (HALF-UNIT) IN RRTARGET. REMODES IF
024482,002066: 
024483,002067:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024484,002068:                                                                                                  #  THIS INTERPRETIVE ROUTINE WILL DESIGNATE, IF DESIRED ANGLES ARE
024485,002069:                                                                                                  #  WITHIN THE LIMITS OF EITHER MODE, TO A LINE-OF SIGHT (LOS) VECTOR
024486,002070:                                                                                                  #  (HALF-UNIT) KNOWN WITH RESPECT TO THE STABLE MEMBER PRESENT
024487,002071:                                                                                                  #  ORIENTATION. INITIALLY THE IMU CDU:S ARE READ AND CONTROL
024488,002072:                                                                                                  #  TRANSFERRED TO SMNB TO TRANSFORM THE LOS VECTOR FROM STABLE
024489,002073:                                                                                                  #  MEMBER TO NAVIGATION BASE COORDINATES (SEE STG MEMO -699)
024490,002074:                                                                                                  #  RRANGLES IS THEN CALLED TO CALCULATE THE RR GIMBAL ANGLES,
024491,002075:                                                                                                  #  TRUNNION AND SHAFT, FOR BOTH THE PRESENT AND ALTERNATE MODE.
024492,002076:                                                                                                  #  RRLIMCHK IS CALLED TO SEE IF THE ANGLES CALCULATED FOR THE
024493,002077:                                                                                                  #  PRESENT MODE ARE WITHIN LIMITS. IF WITHIN LIMITS, THE RETURN
024494,002078:                                                                                                  #  LOCATION IS INCREMENTED, INASMUCH AS NO VEHICLE MANEUVER IS
024495,002079:                                                                                                  #  REQUIRED, BEFORE EXITING TO STARTDES. IF NOT WITHIN LIMITS OF THE
024496,002080:                                                                                                  #  CURRENT MODE, TRYSWS IS CALLED. FOLLOWING INVERTING OF THE RR
024497,002081:                                                                                                  #  ANTENNA MODE FLAG (RADMODES BIT 12), RRLIMCHK IS CALLED
024498,002082:                                                                                                  #  TO SEE IF THE ANGLES CALCULATED FOR THE ALTERNATE MODE ARE WITHIN
024499,002083:                                                                                                  #  LIMITS. IF YES, THE RR ANTENNA MODE FLAG IS AGAIN INVERTED,
024500,002084:                                                                                                  #  THE REMODE FLAG (RADMODES BIT 14) SET, AND THE RETURN LOCATION
024501,002085:                                                                                                  #  INCREMENTED, TO INDICATE NO VEHICLE MANEUVER IS REQUIRED, BEFORE
024502,002086:                                                                                                  #  EXITING TO STARTDES. IF THESE ANGLES ARE NOT WITHIN LIMITS
024503,002087:                                                                                                  #  OF THE ALTERNATE MODE, THE RR ANTENNA MODE FLAG (RADMODES
024504,002088:                                                                                                  #  BIT 12) IS INVERTED BEFORE RETURNING DIRECTLY TO THE CALLING PROGRAM
024505,002089:                                                                                                  #  TO INDICATE THAT A VEHICLE MANEUVER IS REQUIRED.
024506,002090: 
024507,002091:                                                                                                  #  CALLING SEQUENCE:
024508,002092:                                                                                                  #  L  STCALL  RRTARGET  (LOS HALF-UNIT VECTOR IN SM COORDINATES)
024509,002093:                                                                                                  #  L+1  RRDESSM
024510,002094:                                                                                                  #  L+2  BASIC  (VEHICLE MANEUVER REQUIRED)
024511,002095:                                                                                                  #  L+3  BASIC  (NO VEHICLE MANEUVER REQUIRED)
024512,002096: 
024513,002097:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024514,002098:                                                                                                  #  RRTARGET, RADMODES
024515,002099: 
024516,002100:                                                                                                  #  SUBROUTINES CALLED_
024517,002101:                                                                                                  #  READCDUS, SMNB, RRANGLES, RRLIMCHK, TRYSWS (ACTUALLY
024518,002102:                                                                                                  #  PART OF), RMODINV
024519,002103: 
024520,002104:                                                                                                  #  JOBS OR TASKS INITIATED_
024521,002105:                                                                                                  #     NONE
024522,002106: 
024523,002107:                                                                                                  #  ALARMS_  NONE
024524,002108: 
024525,002109:                                                                                                  #  EXIT_  L+2 (NEITHER SET OF ANGLES ARE WITHIN LIMITS OF RELATED MODE)
024526,002110:                                                                                                  #  STARTDES (DESIGNATE POSSIBLE AT PRESENT VEHICLE ATTITUDE-RETURNS
024527,002111:                                                                                                  #  TO L+3 FROM STARTDES)                                                   CAN BE DONE IN PRESENT VEH ATTITUDE.
024528,002112: 
024529,002113: 25,2364           43020        RRDESSM            STQ      CLEAR                                 
024530,002114: 25,2365           01112                                    DESRET                                

Page 555

024532,002116: 25,2366           00271                                    RRNBSW                                
024533,002117: 25,2367           77624                           CALL                                           #  COMPUTES SINES AND COSINES, ORDER Y Z X
024534,002118: 25,2370           47522                                    CDUTRIG                               
024535,002119: 25,2371           45175                           VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
024536,002120: 25,2372           01101                                    RRTARGET                              
024537,002121: 25,2373           47663                                    *SMNB*                                
024538,002122: 
024539,002123: 25,2374           77624                           CALL                                           #  GET RR GIMBAL ANGLES IN PRESENT AND
024540,002124: 25,2375           26133                                    RRANGLES                              #  ALTERNATE MODE.
024541,002125: 25,2376           77776                           EXIT                                           
024542,002126: 
024543,002127: 25,2377           00004                           INHINT                                         
024544,002128: 25,2400           04514                           TC       RRLIMCHK                              
024545,002129: 25,2401           01106                           ADRES    MODEA                                 #  CONFIGURATION FOR CURRENT MODE.
024546,002130: 25,2402           02405                           TC       +3                                    #  NOT IN CURRENT MODE
024547,002131: 25,2403           25112        OKDESSM            INCR     DESRET                                #  INCREMENT SAYS NO VEHICLE MANEUVER REQ.
024548,002132: 25,2404           02423                           TC       STARTDES                              #  SHOW DESIGNATE REQUIRED
024549,002133: 25,2405           40104                           CS       FLAGWRD8                              
024550,002134: 25,2406           74735                           MASK     SURFFBIT                              #  CHECK IF ON LUNAR SURFACE (SURFFLAG=P22F
024551,002135: 25,2407           00006                           EXTEND                                         
024552,002136: 25,2410           12447                           BZF      NORDSTAL                              #  BRANCH-YES-CANNOT DESIGNATE IN MODE 2
024553,002137: 25,2411           02452                           TC       TRYSWS                                
024554,002138: 
024555,002139: 
024556,002140: 25,2412           40104        LUNDESCH           CS       FLAGWRD8                              #  OVERFLOW RETURN FROM RRANGLES
024557,002141: 25,2413           74735                           MASK     SURFFBIT                              #  CHECK IF ON LUNAR SURFACE
024558,002142: 25,2414           00006                           EXTEND                                         
024559,002143: 25,2415           12447                           BZF      NORDSTAL                              #  BRANCH-YES-RETURN TO CALLER - ALARM 527
024560,002144: 25,2416           30074                           CA       STATE                                 
024561,002145: 25,2417           74736                           MASK     RNDVZBIT                              
024562,002146: 25,2420           10000                           CCS      A                                     #  TEST RNDVZFLG.
024563,002147: 25,2421           02462                           TC       NODESSM                               #  NOT ON MOON-CALL FOR ATTITUDE MANEUVER
024564,002148: 25,2422           15146                           TCF      ENDOFJOB                              #  ...BUT NOT IN R29.
024565,002149: 

Page 556

024567,002151:                                                                                                  #  PROGRAM NAME_  STARTDES                                                 STORED AS A HALF-UNIT VECTOR IN RRTARGET
024568,002152: 
024569,002153:                                                                                                  #  FUNCTIONAL DESCRIPTION_                                                 CKON IS DESIRED. BIT14 OF RADMODES IS
024570,002154:                                                                                                  #  STARTDES IS ENTERED WHEN WE ARE READY TO BEGIN DESIGNATION.             OR REPOSITION OPERATION. IN THIS
024571,002155:                                                                                                  #  BIT 14 OF RADMODES IS ALREADY SET IF A REMODE IS REQUIRED.              THE REPOSITION WILL BE INTERRUPTED.
024572,002156:                                                                                                  #  AT THIS TIME, THE RR ANTENNA MAY BE IN A REPOSITION                     GINS.
024573,002157:                                                                                                  #  OPERATION. IN THIS CASE, IF A REMODE IS REQUIRED IT MAY HAVE
024574,002158:                                                                                                  #  ALREADY BEGUN BUT IN ANY CASE THE REPOSITION WILL BE INTERRUPTED.
024575,002159:                                                                                                  #  OTHERWISE, THE REPOSITION WILL BE COMPLETED BEFORE 2-AXIS
024576,002160:                                                                                                  #  DESIGNATION BEGINS. INITIALLY DESCOUNT IS SET = 60 TO INDICATE
024577,002161:                                                                                                  #  THAT 30 SECONDS WILL BE ALLOWED FOR THE RR DATA GOOD INBIT
024578,002162:                                                                                                  #  (CHAN 33 BIT 4) IF LOCK-ON IS DESIRED (STATE BIT 5). BIT 10
024579,002163:                                                                                                  #  OF RADMODES IS SET TO SHOW THAT A DESIGNATE IS REQUIRED.
024580,002164:                                                                                                  #  THE REPOSITION FLAG (RADMODES BIT 11) IS CHECKED. IF SET,
024581,002165:                                                                                                  #  THE PROGRAM EXITS TO L+3 OF THE CALLING PROGRAM (SEE RRDESSM
024582,002166:                                                                                                  #  AND RRDESNB). THE PROGRAM WILL BEGIN DESIGNATING TO THE DESIRED
024583,002167:                                                                                                  #  ANGLES FOLLOWING THE REPOSITION OR REMODE IF ONE WAS
024584,002168:                                                                                                  #  REQUESTED. IF THE REPOSITION FLAG IS NOT SET, SETRRECR IS CALLED
024585,002169:                                                                                                  #  WHICH SETS THE RR ERROR COUNTER ENABLE BIT (CHAN 12 BIT 2)
024586,002170:                                                                                                  #  AND SETS LASTYCMD AND LASTXCMD = 0 TO INDICATE THE
024587,002171:                                                                                                  #  DIFFERENCE BETWEEN THE PRESENT AND DESIRED STATE OF THE ERROR
024588,002172:                                                                                                  #  COUNTERS. A 20 MILLISECOND WAITLIST CALL IS SET FOR BEGDES
024589,002173:                                                                                                  #  AFTER WHICH THE PROGRAM EXITS TO L+3 OF THE CALLING PROGRAM.
024590,002174: 
024591,002175:                                                                                                  #  CALLING SEQUENCE:
024592,002176:                                                                                                  #  FROM RRDESSM AND RRDESNB WHEN ANGLES WITHIN LIMITS.
024593,002177: 
024594,002178:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024595,002179:                                                                                                  #  RADMODES, (SEE DODES)
024596,002180: 
024597,002181:                                                                                                  #  SUBROUTINES CALLED_
024598,002182:                                                                                                  #  SETRRECR, WAITLIST
024599,002183: 
024600,002184:                                                                                                  #  JOBS OR TASKS INITIATED_
024601,002185:                                                                                                  #  BEGDES
024602,002186: 
024603,002187:                                                                                                  #  ALARMS_  NONE
024604,002188: 
024605,002189:                                                                                                  #  EXIT_  L+3 OF CALLING PROGRAM (SEE RRDESSM)
024606,002190:                                                                                                  #  L+2 OF CALLING PROGRAM (SEE RRDESNB)
024607,002191: 
024608,002192: 25,2423           25112        STARTDES           INCR     DESRET                                
024609,002193: 25,2424           40110                           CS       RADMODES                              
024610,002194: 25,2425           74733                           MASK     DESIGBIT                              
024611,002195: 25,2426           26110                           ADS      RADMODES                              
024612,002196: 25,2427           74732                           MASK     REPOSBIT                              #  SEE IF REPOSITIONING IN PROGRESS.
024613,002197: 25,2430           10000                           CCS      A                                     
024614,002198: 25,2431           12437                           TCF      DESRETRN                              #  ECTR ALREADY SET UP.
024615,002199: 
024616,002200: 25,2432           02147                           TC       SETRRECR                              #  SET UP ERROR COUNTERS.

Page 557

024618,002202: 25,2433           34743                           CAF      TWO                                   
024619,002203: 25,2434           05205                           TC       WAITLIST                              
024620,002204: 25,2435  E7,1456                                  EBANK=   LOSCOUNT                              
024621,002205: 25,2435           02564 52067                     2CADR    BEGDES                                
024622,002206: 
024623,002207: 
024624,002208: 25,2437           31303        DESRETRN           CA       RADCADR                               #  FIRST PASS THRU DESIGNATE
024625,002209: 25,2440           00006                           EXTEND                                         
024626,002210: 25,2441           12443                           BZF      DESRTRN                               #  YES   SET EXIT
024627,002211: 25,2442           05146                           TC       ENDOFJOB                              #  NO
024628,002212: 25,2443           00003        DESRTRN            RELINT                                         
024629,002213: 25,2444           25112                           INCR     DESRET                                
024630,002214: 25,2445           31112                           CA       DESRET                                
024631,002215: 25,2446           14631                           TCF      BANKJUMP                              
024632,002216: 
024633,002217: 
024634,002218: 25,2447           34746        NORDSTAL           CAF      ZERO                                  #  ZERO RADCADR TO WIPE  OUT ANYONE
024635,002219: 25,2450           55303                           TS       RADCADR                               #  WAITING IN RADSTALL SINCE WE ARE NOW
024636,002220: 25,2451           12443                           TCF      DESRTRN                               #  RETURNING TO P20 AND MAY DO NEW RADSTALL
024637,002221: 

Page 558

024639,002223:                                                                                                  #           SEE IF RRDESSM CAN BE ACCOMPLISHED AFTER A REMODE.
024640,002224: 
024641,002225: 25,2452           02224        TRYSWS             TC       RMODINV                               #  (NOTE RUPT INHIBIT)
024642,002226: 25,2453           04514                           TC       RRLIMCHK                              #  TRY DIFFERENT MODE.
024643,002227: 25,2454           01110                           ADRES    MODEB                                 
024644,002228: 25,2455           12462                           TCF      NODESSM                               #  VEHICLE MANEUVER REQUIRED.
024645,002229: 
024646,002230: 25,2456           02224                           TC       RMODINV                               #  RESET BIT12
024647,002231: 25,2457           34727                           CAF      REMODBIT                              #  SET FLAG FOR REMODE.
024648,002232: 25,2460           26110                           ADS      RADMODES                              
024649,002233: 
024650,002234: 25,2461           12403                           TCF      OKDESSM                               
024651,002235: 
024652,002236: 25,2462           02224        NODESSM            TC       RMODINV                               #  RE-INVERT MODE AND RETURN
024653,002237: 25,2463           25112                           INCR     DESRET                                #  TO CALLER +2
024654,002238: 25,2464           12447                           TCF      NORDSTAL                              
024655,002239: 
024656,002240: 25,2465           00074        MAXTRYS            DEC      60         B-14                       
024657,002241: 

Page 559

024659,002243:                                                                                                  #           DESIGNATE TO SPECIFIC RR GIMBAL ANGLES (INDEPENDENT OF VEHICLE MOTION). ENTER WITH DESIRED ANGLES IN
024660,002244:                                                                                                  #  TANG AND TANG +1.
024661,002245: 
024662,002246: 25,2466           04636        RRDESNB            TC       MAKECADR                              
024663,002247: 25,2467           55112                           TS       DESRET                                
024664,002248: 
024665,002249: 25,2470           05520                           TC       DOWNFLAG                              #  RESET FLAG TO PREVENT DODES FROM GOING
024666,002250: 25,2471           00041                           ADRES    LOSCMFLG                              #  BACK TO R21
024667,002251: 25,2472           32465                           CA       MAXTRYS                               #  SET TIME LIMIT COUNTER
024668,002252: 25,2473           55113                           TS       DESCOUNT                              #  FOR DESIGNATE
024669,002253: 25,2474           00004                           INHINT                                         #  SEE IF CURRENT MODE OK.
024670,002254: 25,2475           02531                           TC       RRLIMNB                               #  DO SPECIAL V41 LIMIT CHECK
024671,002255: 25,2476           01106                           ADRES    TANG                                  
024672,002256: 25,2477           12514                           TCF      TRYSWN                                #  SEE IF IN OTHER MODE.
024673,002257: 
024674,002258: 25,2500           00003        OKDESNB            RELINT                                         
024675,002259: 25,2501           00006                           EXTEND                                         
024676,002260: 25,2502           31107                           DCA      TANG                                  
024677,002261: 25,2503           53753                           DXCH     TANGNB                                
024678,002262: 25,2504           06060                           TC       INTPRET                               
024679,002263: 
024680,002264: 25,2505           77624                           CALL                                           #  GET LOS IN NB COORDS.
024681,002265: 25,2506           46041                                    RRNB                                  
024682,002266: 25,2507           01101                           STORE    RRTARGET                              
024683,002267: 
024684,002268: 25,2510           77414                           SET      EXIT                                  
024685,002269: 25,2511           00071                                    RRNBSW                                
024686,002270: 
024687,002271: 25,2512           00004                           INHINT                                         
024688,002272: 25,2513           12424                           TCF      STARTDES   +1                         
024689,002273: 25,2514           02224        TRYSWN             TC       RMODINV                               #  SEE IF OTHER MODE WILL DO.
024690,002274: 25,2515           02531                           TC       RRLIMNB                               #  DO SPECIAL V41 LIMIT CHECK
024691,002275: 25,2516           01106                           ADRES    TANG                                  
024692,002276: 25,2517           12524                           TCF      NODESNB                               #  NOT POSSIBLE.
024693,002277: 
024694,002278: 25,2520           02224                           TC       RMODINV                               
024695,002279: 25,2521           34727                           CAF      REMODBIT                              #  CALL FOR REMODE.
024696,002280: 25,2522           26110                           ADS      RADMODES                              
024697,002281: 25,2523           12500                           TCF      OKDESNB                               
024698,002282: 
024699,002283: 25,2524           02224        NODESNB            TC       RMODINV                               #  REINVERT MODE BIT.
024700,002284: 25,2525           05571                           TC       ALARM                                 #  BAD INPUT ANGLES.
024701,002285: 25,2526           00502                           OCT      502                                   
024702,002286: 25,2527           06027                           TC       CLRADMOD                              
024703,002287: 25,2530           05146                           TC       ENDOFJOB                              #  AVOID 503 ALARM.
024704,002288: 
024705,002289: 25,2531           50002        RRLIMNB            INDEX    Q                                     #  THIS ROUTINE IS IDENTICAL TO RRLIMCHK
024706,002290: 25,2532           30000                           CAF      0                                     #  EXCEPT THAT THE MODE 1 SHAFT LOWER
024707,002291: 25,2533           24002                           INCR     Q                                     #  LIMIT IS -85 INSTEAD OF -70 DEGREES
024708,002292: 25,2534           00006                           EXTEND                                         

Page 560

024710,002294: 25,2535           50000                           INDEX    A                                     #  READ GIMBAL ANGLES INTO ITEMP STORAGE
024711,002295: 25,2536           30001                           DCA      0                                     
024712,002296: 25,2537           52062                           DXCH     ITEMP1                                
024713,002297: 25,2540           22002                           LXCH     Q                                     #  L(CALLER +2) TO L
024714,002298: 
024715,002299: 25,2541           34731                           CAF      ANTENBIT                              #  SEE WHICH MODE RR IS IN.
024716,002300: 25,2542           70110                           MASK     RADMODES                              
024717,002301: 25,2543           10000                           CCS      A                                     
024718,002302: 25,2544           14541                           TCF      MODE2CHK                              #  MODE 2 CAN USE RRLIMCHK CODING
024719,002303: 25,2545           30061                           CA       ITEMP1                                
024720,002304: 25,2546           04503                           TC       MAGSUB                                #  MODE 1 IS DEFINED AS
024721,002305: 25,2547           66161                           DEC      -.30555                               #    1. ABS(T) L 55 DEGS
024722,002306: 25,2550           00001                           TC       L                                     #    2  SHAFT LIMITS AT +59, -85 DEGS
024723,002307: 
024724,002308: 25,2551           30062                           CA       ITEMP2                                #  LOAD SHAFT ANGLE
024725,002309: 25,2552           00006                           EXTEND                                         
024726,002310: 25,2553           62561                           BZMF     NEGSHAFT                              #  IF NEGATIVE SHAFT ANGLE, ADD 20.5 DEGS
024727,002311: 25,2554           64553                           AD       5.5DEGS                               
024728,002312: 25,2555           04503        SHAFTLIM           TC       MAGSUB                                
024729,002313: 25,2556           64420                           DEC      -.35833                               #  64.5 DEGREES
024730,002314: 25,2557           00001                           TC       L                                     #  NOT IN LIMITS
024731,002315: 25,2560           04551                           TC       RRLIMOK                               #  IN LIMITS
024732,002316: 25,2561           62563        NEGSHAFT           AD       20.5DEGS                              #  MAKE NEGATIVE SHAFT LIMIT -85 DEGREES
024733,002317: 25,2562           12555                           TCF      SHAFTLIM                              
024734,002318: 
024735,002319: 
024736,002320: 25,2563           03512        20.5DEGS           DEC      .11389                                
024737,002321: 

Page 561

024739,002323:                                                                                                  #  PROGRAM NAME_  BEGDES
024740,002324: 
024741,002325:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024742,002326:                                                                                                  #  BEGDES CHECKS VARIOUS DESIGNATE REQUESTS AND REQUESTS THE
024743,002327:                                                                                                  #  ACTUAL RR DESIGNATION. INITIALLY A CHECK IS MADE TO SEE IF A
024744,002328:                                                                                                  #  REMODE (RADMODES BIT 14) IS REQUESTED OR IN PROGRESS. IF SO,
024745,002329:                                                                                                  #  CONTROL IS TRANSFERRED TO STDESIG AFTER ROUTINE REMODE IS
024746,002330:                                                                                                  #  EXECUTED. IF NO REMODE, STDESIG IS IMMEDIATELY CALLED WHERE
024747,002331:                                                                                                  #  FIRST THE REPOSITION FLAG (RADMODES BIT 11) IS CHECKED. IF
024748,002332:                                                                                                  #  PRESENT, THE DESIGNATE FLAG (RADMODES BIT 10) IS REMOVED
024749,002333:                                                                                                  #  AFTER WHICH THE PROGRAM EXITS TO RDBADEND. IF THE REPOSITION
024750,002334:                                                                                                  #  FLAG IS NOT PRESENT, THE CONTINUOUS DESIGNATE FLAG (RADMODES
024751,002335:                                                                                                  #  BIT 15) IS CHECKED. IF PRESENT, ON EXECUTIVE CALL IS IMMEDIATELY
024752,002336:                                                                                                  #  MADE FOR DODES AFTER WHICH A .5 SECOND WAIT IS INITIATED BEFORE
024753,002337:                                                                                                  #  REPEATING AT STDESIG. IF THE RR SEARCH ROUTINE (LRS24.1) IS DESIGNATING
024754,002338:                                                                                                  #  TO A NEW POINT (NEWPTFLG SET) THE CURRENT DESIGNATE TASK IS TERMINATED.
024755,002339:                                                                                                  #  IF CONTINUOUS DESIGNATE IS NOT WANTED, THE DESIGNATE FLAG (RADMODES
024756,002340:                                                                                                  #  BIT 10) IS CHECKED. IF NOT PRESENT, THE PROGRAM EXITS TO ENDRADAR TO
024757,002341:                                                                                                  #  CHECK RR CDU FAIL BEFORE RETURNING TO THE CALLING PROGRAM. IF DESIGNATE
024758,002342:                                                                                                  #  IS STILL REQUIRED, DESCOUNT IS CHECKED TO SEE IF THE 30 SECONDS HAS
024759,002343:                                                                                                  #  EXPIRED BEFORE RECEIVING THE RR DATA GOOD (CHAN 33 BIT 4)
024760,002344:                                                                                                  #  SIGNAL. IF OUT OF TIME, PROGRAM ALARM 00503 IS REQUESTED, THE
024761,002345:                                                                                                  #  RR AUTO TRACKER ENABLE AND RR ERROR COUNTER ENABLE
024762,002346:                                                                                                  #  (CHAN 12 BITS 14,2) BITS REMOVED, AND THE DESIGNATE FLAG
024763,002347:                                                                                                  #  (RADMODES BIT 10) REMOVED BEFORE EXITING TO RDBADEND. IF
024764,002348:                                                                                                  #  TIME HAS NOT EXPIRED, DESCOUNT IS DECREMENTED, THE
024765,002349:                                                                                                  #  EXECUTIVE CALL MADE FOR DODES, AND A .5 SECOND WAIT INITIATED
024766,002350:                                                                                                  #  BEFORE REPEATING THIS PROCEDURE AT STDESIG.
024767,002351: 
024768,002352:                                                                                                  #  CALLING SEQUENCE:
024769,002353:                                                                                                  #  WAITLIST CALL FROM STARTDES
024770,002354:                                                                                                  #  TCF BEGDES FROM DORREPOS
024771,002355:                                                                                                  #  TC STDESIG RETURNING, FROM REMODE
024772,002356: 
024773,002357:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024774,002358:                                                                                                  #  DESCOUNT, RADMODES
024775,002359: 
024776,002360:                                                                                                  #  SUBROUTINES CALLED_
024777,002361:                                                                                                  #  ENDRADAR, FINDVAC
024778,002362: 
024779,002363:                                                                                                  #  JOBS OR TASKS INITIATED_  DODES
024780,002364: 
024781,002365:                                                                                                  #  ALARMS_  PROGRAM ALARM 00503 (30 SECONDS HAVE EXPIRED) WITH NO RR DATA
024782,002366:                                                                                                  #  GOOD (CHAN 33 BIT 4) RECEIVED WHEN LOCK-ON (STATE BIT 5) WAS REQUESTED.
024783,002367: 
024784,002368:                                                                                                  #  EXIT_  TASKOVER (SEARCH PATTERN DESIGNATING TO NEW POINT)
024785,002369:                                                                                                  #  ENDRADAR (NO DESIGNATE - RADMODES BIT 10)
024786,002370:                                                                                                  #  RDBADEND (REPOSITION OR 30 SECONDS EXPIRED)
024787,002371: 
024788,002372: 25,2564           40110        BEGDES             CS       RADMODES                              

Page 562

024790,002374: 25,2565           74727                           MASK     REMODBIT                              
024791,002375: 25,2566           10000                           CCS      A                                     
024792,002376: 25,2567           02573                           TC       STDESIG                               
024793,002377: 25,2570           02162                           TC       REMODE                                
024794,002378: 25,2571           05223        DESLOOP            TC       FIXDELAY                              #  2 SAMPLES PER SECOND.
024795,002379: 25,2572           00062                           DEC      50         B-14                       
024796,002380: 
024797,002381: 25,2573           34732        STDESIG            CAF      REPOSBIT                              
024798,002382: 25,2574           70110                           MASK     RADMODES                              #  SEE IF GIMBAL LIMIT MONITOR HAS FOUND US
024799,002383: 25,2575           10000                           CCS      A                                     #  OUT OF BOUNDS. IF SO, THIS BIT SHOWS A
024800,002384: 25,2576           12614                           TCF      BADDES                                #  REPOSITION TO BE IN PROGRESS.
024801,002385: 
024802,002386: 25,2577           10110                           CCS      RADMODES                              #  SEE IF CONTINUOUS DESIGNATE WANTED.
024803,002387: 25,2600           12603                           TCF      +3                                    #  IF SO, DONT CHECK BIT 10 TO SEE IF IN
024804,002388: 25,2601           12603                           TCF      +2                                    #  LIMITS BUT GO RIGHT TO FINDVAC ENTRY.
024805,002389: 25,2602           12620                           TCF      MOREDES    +1                         
024806,002390: 
024807,002391: 25,2603           40110                           CS       RADMODES                              #  IF NON-CONTINUOUS, SEE IF END OF
024808,002392: 25,2604           74733                           MASK     DESIGBIT                              #  PROBLEM (DATA GOOD IF LOCK-ON WANTED OR
024809,002393: 25,2605           10000                           CCS      A                                     #  WITHIN LIMITS IF NOT). IF SO, EXIT AFTER
024810,002394: 25,2606           13607                           TCF      ENDRADAR                              #  CHECKING RR CDU FAIL.
024811,002395: 
024812,002396: 25,2607           11113        STDESIG1           CCS      DESCOUNT                              #  SEE IF THE TINE LIMIT HAS EXPIRED
024813,002397: 25,2610           12617                           TCF      MOREDES                               
024814,002398: 
024815,002399: 25,2611           42625                           CS       B14+B2                                #  IF OUT OF TIME, REMOVE ECR ENABLE + TRKR
024816,002400: 25,2612           00006                           EXTEND                                         
024817,002401: 25,2613           03012                           WAND     CHAN12                                
024818,002402: 25,2614           05520        BADDES             TC       DOWNFLAG                              
024819,002403: 25,2615           00271                           ADRES    DESIGFLG                              
024820,002404: 25,2616           13623                           TCF      RDBADEND                              
024821,002405: 
024822,002406: 25,2617           55113        MOREDES            TS       DESCOUNT                              
024823,002407: 25,2620           37735                           CAF      PRIO26                                #  UPDATE GYRO TORQUE COMMANDS.
024824,002408: 25,2621           05076                           TC       FINDVAC                               
024825,002409: 25,2622  E7,1456                                  EBANK=   LOSCOUNT                              
024826,002410: 25,2622           02626 52067                     2CADR    DODES                                 
024827,002411: 
024828,002412: 
024829,002413: 25,2624           12571                           TCF      DESLOOP                               
024830,002414: 
024831,002415: 25,2625           20002        B14+B2             OCT      20002                                 
024832,002416: 

Page 563

024834,002418:                                                                                                  #  PROGRAM NAME_  DODES
024835,002419: 
024836,002420:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024837,002421:                                                                                                  #  DODES CALCULATES AND REQUESTS ISSUANCE OF RR GYRO TORQUE
024838,002422:                                                                                                  #  COMMANDS. INITIALLY THE CURRENT RR CDU ANGLES ARE STORED AND
024839,002423:                                                                                                  #  THE LOS HALF-UNIT VECTOR TRANSFORMED FROM STABLE MEMBER TO
024840,002424:                                                                                                  #  NAVIGATION BASE COORDINATES VIA SMNB IF NECESSARY. THE
024841,002425:                                                                                                  #  SHAFT AND TRUNNION COMMANDS ARE THEN CALCULATED AS FOLLOWS_
024842,002426:                                                                                                  #  + SHAFT = LOS  . (COS(S), 0, -SIN (S)) (DOT PRODUCT)
024843,002427:                                                                                                  #  -TRUNNION = LOS  . (SIN (T) SIN (S), COS (T), SIN (T) COS (S) )
024844,002428:                                                                                                  #  THE SIGN OF THE SHAFT COMMAND IS THEN REVERSED IF IN MODE 2
024845,002429:                                                                                                  #  (RADMODES BIT 12) BECAUSE A RELAY IN THE RR REVERSES THE 
024846,002430:                                                                                                  #  POLARITY OF THE COMMAND. AT RRSCALUP EACH COMMAND IS
024847,002431:                                                                                                  #  SCALED AND IF EITHER, OR BOTH, OF THE COMMANDS IS GREATER THAN
024848,002432:                                                                                                  #  .5 DEGREES, MPAC +1 IS SET POSITIVE. IF A CONTINUOUS DESIGNATE 
024849,002433:                                                                                                  #  (RADMODES BIT 15) IS DESIRED AND THE SEARCH ROUTINE IS NOT OPERATING,
024850,002434:                                                                                                  #  THE RR AUTO TRACKER ENABLE BIT (CHAN 12 BIT 14) IS CLEARED AND RROUT
024851,002435:                                                                                                  #  CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION (RADMODES BIT 11)
024852,002436:                                                                                                  #  IS IN PROGRESS. IF A CONTINUOUS DESIGNATE AND THE SEARCH ROUTINE IS
024853,002437:                                                                                                  #  OPERATING (SRCHOPT FLAG SET) THE TRACK ENABLE IS NOT CLEARED. IF NO
024854,002438:                                                                                                  #  CONTINUOUS DESIGNATE AND BOTH COMMANDS ARE NOT LESS THAN .5 DEGREES AS
024855,002439:                                                                                                  #  INDICATED BY MPAC +1, THE RR AUTO TRACKER ENABLE BIT (CHAN 12 BIT 14) IS
024856,002440:                                                                                                  #  CLEARED AND RROUT CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION
024857,002441:                                                                                                  #  (RADMODES BIT 11) IS IN PROGRESS. IF BOTH COMMANDS ARE LESS THAN .5
024858,002442:                                                                                                  #  DEGREES AS INDICATED BY MPAC+1, THE RR AUTO TRACKER ENABLE BIT
024859,002443:                                                                                                  #  (CHAN 12 BIT 14) IS CLEARED AND RROUT CALLED TO PUT OUT THE
024860,002444:                                                                                                  #  COMMANDS PROVIDED NO REPOSITION (RADMODES BIT 11) IS IN
024861,002445:                                                                                                  #  PROGRESS. IF BOTH COMMANDS ARE LESS THAN .5 DEGREES, THE
024862,002446:                                                                                                  #  LOCK-ON FLAG (STATE BIT 5) IS CHECKED. IF NOT PRESENT, THE
024863,002447:                                                                                                  #  DESIGNATE FLAG (RADMODES BIT 10) IS CLEARED, THE RR ERROR
024864,002448:                                                                                                  #  COUNTER ENABLE BIT (CHAN 12 BIT 2) IS CLEARED, AND ENDOFJOB
024865,002449:                                                                                                  #  CALLED. IF LOCK-ON IS DESIRED, THE RR AUTO TRACKER (CHAN 12
024866,002450:                                                                                                  #  BIT 14) IS ENABLED FOLLOWED BY A CHECK OF THE RECEIPT OF THE
024867,002451:                                                                                                  #  RR DATA GOOD (CHAN 33 BIT 4) SIGNAL. IF RR DATA GOOD
024868,002452:                                                                                                  #  PRESENT, THE DESIGNATE FLAG (RADMODES BIT 10) IS CLEARED,
024869,002453:                                                                                                  #  THE RR ERROR COUNTER ENABLE BIT (CHAN 12 BIT 2) IS CLEARED,
024870,002454:                                                                                                  #  AND ENDOFJOB CALLED. IF RR DATA GOOD IS NOT PRESENT, RROUT
024871,002455:                                                                                                  #  IS CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION
024872,002456:                                                                                                  #  (RADMODES BIT 11) IS IN PROGRESS AFTER WHICH THE JOB IS TERMINATED
024873,002457:                                                                                                  #  VIA ENDOFJOB.
024874,002458: 
024875,002459:                                                                                                  #  CALLING SEQUENCE:
024876,002460:                                                                                                  #  EXECUTIVE CALL EVERY .5 SECONDS FROM BEGDES.
024877,002461: 
024878,002462:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024879,002463:                                                                                                  #  RRTARGET (HALF-UNIT LOS VECTOR IN EITHER SM OR NB COORDINATES),
024880,002464:                                                                                                  #  LOKONSW (STATE BIT 5), RRNBSW (STATE BIT 6), RADMODES
024881,002465: 
024882,002466:                                                                                                  #  SUBROUTINES CALLED_
024883,002467:                                                                                                  #  READCDUS, SMNB, CDULOGIC, MAGSUB, RROUT
024884,002468: 

Page 564

024886,002470:                                                                                                  #  JOBS OR TASKS INITIATED_
024887,002471:                                                                                                  #  NONE
024888,002472: 
024889,002473:                                                                                                  #  ALARMS_  NONE
024890,002474: 
024891,002475:                                                                                                  #  EXIT_  ENDOFJOB (ALWAYS)
024892,002476: 
024893,002477: 25,2626           00006        DODES              EXTEND                                         
024894,002478: 25,2627           30036                           DCA      CDUT                                  
024895,002479: 25,2630           53107                           DXCH     TANG                                  
024896,002480: 
024897,002481: 25,2631           06060                           TC       INTPRET                               
024898,002482: 
024899,002483: 25,2632           77201                           SETPD    VLOAD                                 
024900,002484: 25,2633           00001                                    0                                     
024901,002485: 25,2634           01101                                    RRTARGET                              
024902,002486: 25,2635           74214                           BON      VXSC                                  
024903,002487: 25,2636           00311                                    RRNBSW                                
024904,002488: 25,2637           52651                                    DONBRD                                #  TARGET IN NAV-BASE COORDINATES
024905,002489: 25,2640           01765                                    MLOSV                                 #  MULTIPLY UNIT LOS BY MAGNITUDE
024906,002490: 25,2641           63372                           VSL1     PDVL                                  
024907,002491: 25,2642           01757                                    LOSVEL                                
024908,002492: 25,2643           53361                           VXSC     VAD                                   #  ADD ONE SECOND RELATIVE VELOCITY TO LOS
024909,002493: 25,2644           13061                                    MCTOMS                                
024910,002494: 25,2645           45056                           UNIT     CALL                                  
024911,002495: 25,2646           47522                                    CDUTRIG                               
024912,002496: 25,2647           77624                           CALL                                           
024913,002497: 25,2650           47663                                    *SMNB*                                
024914,002498: 
024915,002499: 25,2651           14041        DONBRD             STODL    32D                                   
024916,002500: 25,2652           01110                                    TANG       +1                         
024917,002501: 25,2653           41434                           RTB      PUSH                                  #  SHAFT COMMAND = V(32D).(COS(S), 0,
024918,002502: 25,2654           21606                                    CDULOGIC                              #       (-SIN(S)).
024919,002503: 25,2655           65356                           SIN      PDDL                                  #  SIN(S) TO 0 AND COS(S) TO 2.
024920,002504: 25,2656           41546                           COS      PUSH                                  
024921,002505: 25,2657           65205                           DMP      PDDL                                  
024922,002506: 25,2660           00041                                    32D                                   
024923,002507: 25,2661           00045                                    36D                                   
024924,002508: 25,2662           44205                           DMP      BDSU                                  
024925,002509: 25,2663           00001                                    0                                     
024926,002510: 25,2664           77626                           STADR                                          
024927,002511: 25,2665           76667                           STORE    TANG       +1                         #  SHAFT COMMAND
024928,002512: 
024929,002513: 25,2666           47135                           SLOAD    RTB                                   
024930,002514: 25,2667           01107                                    TANG                                  
024931,002515: 25,2670           21606                                    CDULOGIC                              
024932,002516: 25,2671           71406                           PUSH     COS                                   #  COS(T) TO 4.
024933,002517: 25,2672           73525                           PDDL     SIN                                   
024934,002518: 25,2673           41206                           PUSH     DMP                                   #  SIN(T) TO 6.
024935,002519: 25,2674           00003                                    2                                     

Page 565

024937,002521: 25,2675           65352                           SL1      PDDL                                  #  DEFINE VECTOR U = (SIN(T)SIN(S))
024938,002522: 25,2676           00005                                    4                                     #                    (COS(T)      )
024939,002523: 25,2677           41325                           PDDL     DMP                                   #                    (SIN(T)COS(S))
024940,002524: 25,2700           00007                                    6                                     
024941,002525: 25,2701           00001                                    0                                     
024942,002526: 25,2702           55552                           SL1      VDEF                                  
024943,002527: 25,2703           77441                           DOT      EXIT                                  #  DOT U WITH LOS TO GET TRUNNION COMMAND.
024944,002528: 25,2704           00041                                    32D                                   
024945,002529: 

Page 566

024947,002531:                                                                                                  #           AT THIS POINT WE HAVE A ROTATION VECTOR IN DISH AXES LYING IN THE TS PLANE. CONVERT THIS TO A
024948,002532:                                                                                                  #  COMMANDED RATE AND ENABLE THE TRACKER IF WE ARE WITHIN .5 DEGREES OF THE TARGET.
024949,002533: 
024950,002534: 25,2705           40154                           CS       MPAC                                  #  DOT WAS NEGATIVE OF DESIRED ANGLE.
024951,002535: 25,2706           00006                           EXTEND                                         
024952,002536: 25,2707           73055                           MP       RDESGAIN                              #  SCALING ON INPUT ANGLE WAS 4 RADIANS.
024953,002537: 25,2710           55351                           TS       TRUNNCMD                              #  TRUNNION COMMAND FOR RROUT
024954,002538: 25,2711           40110                           CS       RADMODES                              #  A RELAY IN THE RR REVERSES POLARITY OF
024955,002539: 25,2712           74731                           MASK     BIT12                                 #  THE SHAFT COMMANDS IN MODE 2 SO THAT A
024956,002540: 25,2713           00006                           EXTEND                                         #  POSITIVE TORQUE APPLIED TO THE SHAFT
024957,002541: 25,2714           12717                           BZF      +3                                    #  GYRO CAUSES A POSITIVE CHANGE IN THE
024958,002542: 25,2715           31107                           CA       TANG       +1                         #  SHAFT ANGLE. COMPENSATE FOR THIS SWITCH
024959,002543: 25,2716           12720                           TCF      +2                                    #  BY CHANGING THE POLARITY OF OUR COMMAND.
024960,002544: 25,2717           41107                 +3        CS       TANG       +1                         
024961,002545: 25,2720           00006                           EXTEND                                         
024962,002546: 25,2721           73055                           MP       RDESGAIN                              #  SCALING ON INPUT ANGLE WAS 4 RADIANS.
024963,002547: 25,2722           55352                           TS       SHAFTCMD                              #  SHAFT COMMAND FOR RROUT
024964,002548: 25,2723           06060                           TC       INTPRET                               
024965,002549: 
024966,002550: 25,2724           41345                           DLOAD    DMP                                   
024967,002551: 25,2725           00003                                    2                                     #  COS(S).
024968,002552: 25,2726           00005                                    4                                     #  COS(T).
024969,002553: 25,2727           65352                           SL1      PDDL                                  #  Z COMPONENT OF URR.
024970,002554: 25,2730           65276                           DCOMP    PDDL                                  #  Y COMPONENT = -SIN(T).
024971,002555: 25,2731           00001                                    0                                     #  SIN(S).
024972,002556: 25,2732           72405                           DMP      SL1                                   
024973,002557: 25,2733           00005                                    4                                     #  COS(T).
024974,002558: 25,2734           43066                           VDEF     BON                                   #  FORM URR IN NB AXES.
024975,002559: 25,2735           00311                                    RRNBSW                                #  BYPASS NBSM CONVERSION IN VERB 41.
024976,002560: 25,2736           52741                                    +3                                    
024977,002561: 25,2737           77624                           CALL                                           
024978,002562: 25,2740           47665                                    *NBSM*                                #  GET URR IN SM AXES.
024979,002563: 25,2741           77441                           DOT      EXIT                                  
024980,002564: 25,2742           01101                                    RRTARGET                              #  GET COSINE OF ANGLE BETWEEN RR AND LOS.
024981,002565: 
024982,002566: 25,2743           00006                           EXTEND                                         
024983,002567: 25,2744           43057                           DCS      COS1/2DG                              
024984,002568: 25,2745           20155                           DAS      MPAC                                  #  DIFFERENCE OF COSINES, SCALED B-2.
024985,002569: 25,2746           10154                           CCS      MPAC                                  
024986,002570: 25,2747           34746                           CA       ZERO                                  #  IF COS ERROR BIGGER, ERROR IS SMALLER.
024987,002571: 25,2750           12752                           TCF      +2                                    
024988,002572: 25,2751           34744                           CA       ONE                                   
024989,002573: 25,2752           54155                           TS       MPAC       +1                         #  ZERO IF RR IS POINTED OK, ONE IF NOT.

Page 567

024991,002575:                                                                                                  #           SEE IF TRACKER SHOULD BE ENABLED OR DISABLED.
024992,002576: 
024993,002577: 25,2753           10110                           CCS      RADMODES                              #  IF CONTINUOUS DESIGNATE WANTED, PUT OUT
024994,002578: 25,2754           12757                           TCF      SIGNLCHK                              #  COMMANDS WITHOUT CHECKING MAGNITUDE OF
024995,002579: 25,2755           12757                           TCF      SIGNLCHK                              #  ERROR SIGNALS
024996,002580: 25,2756           13007                           TCF      DORROUT                               
024997,002581: 25,2757           10155        SIGNLCHK           CCS      MPAC       +1                         #  SEE IF BOTH AXES WERE WITHIN .5 DEGS.
024998,002582: 25,2760           12770                           TCF      DGOODCHK                              
024999,002583: 25,2761           40074                           CS       STATE                                 #  IF WITHIN LIMITS AND NO LOCK-ON WANTED,
025000,002584: 25,2762           74740                           MASK     LOKONBIT                              #  PROBLEM IS FINISHED.
025001,002585: 25,2763           10000                           CCS      A                                     
025002,002586: 25,2764           12775                           TCF      RRDESDUN                              
025003,002587: 
025004,002588: 25,2765           34727                           CAF      BIT14                                 #  ENABLE THE TRACKER.
025005,002589: 25,2766           00006                           EXTEND                                         
025006,002590: 25,2767           05012                           WOR      CHAN12                                
025007,002591: 
025008,002592: 25,2770           34741        DGOODCHK           CAF      BIT4                                  #  SEE IF DATA GOOD RECEIVED YET
025009,002593: 25,2771           00006                           EXTEND                                         
025010,002594: 25,2772           02033                           RAND     CHAN33                                
025011,002595: 25,2773           10000                           CCS      A                                     
025012,002596: 25,2774           13007                           TCF      DORROUT                               
025013,002597: 
025014,002598: 25,2775           44733        RRDESDUN           CS       BIT10                                 #  WHEN PROBLEM DONE, REMOVE BIT 10 SO NEXT
025015,002599: 25,2776           70110                           MASK     RADMODES                              #  WAITLIST TASK WE WILL GO TO RGOODEND.
025016,002600: 25,2777           00004                           INHINT                                         
025017,002601: 25,3000           54110                           TS       RADMODES                              
025018,002602: 
025019,002603: 25,3001           05520                           TC       DOWNFLAG                              #  RESET LOSCMFLG TO PREVENT A
025020,002604: 25,3002           00041                           ADRES    LOSCMFLG                              #  RECOMPUTATION OF LOS AFTER DATA GOOD
025021,002605: 25,3003           44743                           CS       BIT2                                  #  TURN OFF ENABLE RR ERROR COUNTER
025022,002606: 25,3004           00006                           EXTEND                                         
025023,002607: 25,3005           03012                           WAND     CHAN12                                
025024,002608: 25,3006           15146                           TCF      ENDOFJOB                              #  WITH ECTR DISABLED.
025025,002609: 
025026,002610: 25,3007           30076        DORROUT            CA       FLAGWRD2                              #  IF BOTH LOSCMFLAG AND SEARCH FLAG ARE
025027,002611: 25,3010           77733                           MASK     BIT12,14                              #  ZERO, BYPASS VELOCITY ADJUSTMENT TO LOS
025028,002612: 25,3011           00006                           EXTEND                                         
025029,002613: 25,3012           13031                           BZF      NOTP20                                
025030,002614: 25,3013           06060                           TC       INTPRET                               
025031,002615: 25,3014           74375                           VLOAD    VXSC                                  #  MULTIPLY UNIT LOS BY MAGNITUDE
025032,002616: 25,3015           01101                                    RRTARGET                              
025033,002617: 25,3016           01765                                    MLOSV                                 
025034,002618: 25,3017           41572                           VSL1     PUSH                                  
025035,002619: 25,3020           74375                           VLOAD    VXSC                                  #  ADD .5 SEC. OF VELOCITY
025036,002620: 25,3021           01757                                    LOSVEL                                #  TO LOS VECTOR
025037,002621: 25,3022           13061                                    MCTOMS                                
025038,002622: 25,3023           53362                           VSR1     VAD                                   
025039,002623: 25,3024           77656                           UNIT                                           
025040,002624: 25,3025           15101                           STODL    RRTARGET                              #  STORE VELOCITY-CORRECTED LOS (UNIT)

Page 568

025042,002626: 25,3026           00045                                    36D                                   
025043,002627: 25,3027           01765                           STORE    MLOSV                                 #  AND STORE MAGNITUDE
025044,002628: 25,3030           77776                           EXIT                                           
025045,002629: 25,3031           00004        NOTP20             INHINT                                         
025046,002630: 25,3032           40110                           CS       RADMODES                              #  PUT OUT COMMAND UNLESS MONITOR
025047,002631: 25,3033           74732                           MASK     REPOSBIT                              #  REPOSITION HAS TAKEN OVER.
025048,002632: 25,3034           10000                           CCS      A                                     
025049,002633: 25,3035           02277                           TC       RROUT                                 
025050,002634: 
025051,002635: 25,3036           30076                           CA       FLAGWRD2                              
025052,002636: 25,3037           74731                           MASK     LOSCMBIT                              #  IF LOSCMFLG NOT SET, DON'T TEST
025053,002637: 25,3040           00006                           EXTEND                                         #  LOS COUNTER
025054,002638: 25,3041           15146                           BZF      ENDOFJOB                              
025055,002639: 25,3042           11456                           CCS      LOSCOUNT                              #  TEST LOS COUNTER TO SEE IF TIME TO GET
025056,002640: 25,3043           03053                           TC       DODESEND                              #  A NEW LOS
025057,002641: 25,3044           06050                           TC       KILLTASK                              #  YES - KILL TASK WHICH SCHEDULES DODES
025058,002642: 25,3045           52573                           CADR     DESLOOP    +2                         
025059,002643: 25,3046           00003                           RELINT                                         
025060,002644: 25,3047           10067                           CCS      NEWJOB                                
025061,002645: 25,3050           05113                           TC       CHANG1                                
025062,002646: 25,3051           04607                           TC       BANKCALL                              
025063,002647: 25,3052           51015                           CADR     R21LEM2                               
025064,002648: 
025065,002649: 
025066,002650: 25,3053           55456        DODESEND           TS       LOSCOUNT                              
025067,002651: 25,3054           05146                           TC       ENDOFJOB                              
025068,002652: 
025069,002653: 
025070,002654: 25,3055           21122        RDESGAIN           DEC      .53624                                #  TRIES TO NULL .5 ERROR IN .5 SEC.
025071,002655: 25,3056     7733               BIT12,14           EQUALS   PRIO24                                #  OCT 24000
025072,002656: 25,3056           07777 33005  COS1/2DG           2DEC     .999961923 B-2                        #  COSINE OF 0.5 DEGREES.
025073,002657: 
025074,002658: 25,3060           00310 00000  MCTOMS             2DEC     100        B-13                       
025075,002659: 

Page 569

025077,002661:                                                                                                  #  RADAR READ INITIALIZATION
025078,002662: 
025079,002663:                                                                                                  #  THE FOLLOWING ROUTINES MUST BE CALLED BY BANKCALL
025080,002664: 
025081,002665: 25,3062           03076        LRALT              TC       INITREAD                              
025082,002666: 25,3063           00017        ALLREAD            OCT      17                                    
025083,002667: 
025084,002668: 25,3064           03076        LRVELZ             TC       INITREAD                              
025085,002669: 25,3065           00016                           OCT      16                                    
025086,002670: 
025087,002671: 25,3066           03076        LRVELY             TC       INITREAD                              
025088,002672: 25,3067           00015                           OCT      15                                    
025089,002673: 
025090,002674: 25,3070           03076        LRVELX             TC       INITREAD                              
025091,002675: 25,3071           00014                           OCT      14                                    
025092,002676: 
025093,002677: 25,3072           03076        RRRDOT             TC       INITREAD                              
025094,002678: 25,3073           00012                           OCT      12                                    
025095,002679: 
025096,002680: 25,3074           03076        RRRANGE            TC       INITREAD                              
025097,002681: 25,3075           00011                           OCT      11                                    
025098,002682: 
025099,002683: 
025100,002684: 25,3076           00004        INITREAD           INHINT                                         
025101,002685: 25,3077           50002                           INDEX    Q                                     
025102,002686: 25,3100           30000                           CA       0                                     
025103,002687: 25,3101           03110                           TC       PRERADAR                              
025104,002688: 25,3102           34742                           CA       BIT3                                  
025105,002689: 25,3103           55105                           TS       TIMEHOLD   +1                         #  MIDPOINT OF READ IS ABOUT 40 MS AFTER
025106,002690: 25,3104           00006                           EXTEND                                         #  START OF READ
025107,002691: 25,3105           30025                           DCA      TIME2                                 
025108,002692: 25,3106           21105                           DAS      TIMEHOLD                              
025109,002693: 
025110,002694: 25,3107           12357                           TCF      ROADBACK                              
025111,002695: 
025112,002696: 
025113,002697: 25,3110           55077        PRERADAR           TS       RADUSE                                #  INDICATE RADAR READ ROUTINES IN USE.
025114,002698: 25,3111           34746                           CA       ZERO                                  
025115,002699: 25,3112           55110                           TS       NSAMP                                 
025116,002700: 25,3113           55100                           TS       SAMPLSUM                              
025117,002701: 25,3114           55101                           TS       SAMPLSUM   +1                         
025118,002702: 25,3115           55104                           TS       TIMEHOLD                              
025119,002703: 
025120,002704: 25,3116           33136                           CA       DGBITS                                
025121,002705: 25,3117           00006                           EXTEND                                         
025122,002706: 25,3120           02033                           RAND     CHAN33                                
025123,002707: 25,3121           55112                           TS       OLDATAGD                              
025124,002708: 
025125,002709: 25,3122           43136                           CS       DGBITS                                #  RESET DATA GOOD BITS OF RADMODES
025126,002710: 25,3123           70110                           MASK     RADMODES                              

Page 570

025128,002712: 25,3124           54110                           TS       RADMODES                              
025129,002713: 
025130,002714: 25,3125           43063                           CS       ALLREAD                               
025131,002715: 25,3126           00006                           EXTEND                                         
025132,002716: 25,3127           03013                           WAND     CHAN13                                #  CLEAR ALL RADAR BITS PRIOR TO READ
025133,002717: 
025134,002718: 25,3130           00006                           EXTEND                                         
025135,002719: 25,3131           22070                           QXCH     RUPTREG1                              
025136,002720: 
025137,002721: 25,3132           31077                           CA       RADUSE                                
025138,002722: 25,3133           04665                           TC       IBNKCALL                              
025139,002723: 25,3134           36000                           CADR     RADSTART                              
025140,002724: 25,3135           00070                           TC       RUPTREG1                              
025141,002725: 
025142,002726: 
025143,002727: 25,3136           00230        DGBITS             OCT      230                                   #  POSITION OF DATA GOOD BITS IN CHANNEL 33
025144,002728: 25,3137           00014        VBITS              OCT      14                                    #  VSELECT = 0 BEFORE X READ
025145,002729: 25,3140           00016                           OCT      16                                    #  VSELECT = 1 BEFORE Z READ
025146,002730: 25,3141           00015                           OCT      15                                    #  VSELECT = 2 BEFORE Y READ
025147,002731: 
025148,002732: 
025149,002733: 25,3142           40107        R12READ            CS       FLGWRD11                              
025150,002734: 25,3143           74733                           MASK     NOLRRBIT                              #  IF NOLRREAD FLAG IS SET , BYPASS R12
025151,002735: 25,3144           00006                           EXTEND                                         
025152,002736: 25,3145           15263                           BZF      TASKOVER                              
025153,002737: 
025154,002738: 25,3146           40107        R12RDSET           CS       FLGWRD11                              #  STOP R12 FROM
025155,002739: 25,3147           74742                           MASK     R12RDBIT                              #    ATTEMPTING UPDATE
025156,002740: 25,3150           26107                           ADS      FLGWRD11                              #        BEFORE R12 READS ARE DONE
025157,002741: 
025158,002742: 25,3151           51462                           INDEX    VSELECT                               
025159,002743: 25,3152           33137                           CA       VBITS                                 
025160,002744: 25,3153           03110                           TC       PRERADAR                              
025161,002745: 25,3154           36263                           CA       SIX                                   #  RADAR RUPT USES THIS FOR R12 READ
025162,002746: 25,3155           55110                           TS       NSAMP                                 
025163,002747: 25,3156           05263                           TC       TASKOVER                              
025164,002748: 

Page 571

025166,002750:                                                                                                  #  RADAR RUPT READER (R20)
025167,002751: 
025168,002752:                                                                                                  #  THIS ROUTINE, WHICH IS INITIATED BY A RADAR RUPT, PROCESSES THE RADAR DATA AND UPDATES THE APPROPRIATE
025169,002753:                                                                                                  #  DSKY LIGHTS.
025170,002754: 
025171,002755: 25,2000                                           SETLOC   RADARUPT                              
025172,002756: 25,2000                                           BANK                                           
025173,002757: 
025174,002758: 25,3157                                           COUNT*   $$/RRUPT                              
025175,002759: 
025176,002760: 25,3157  E7,1453                                  EBANK=   TTOGO                                 
025177,002761: 
025178,002762: 25,3157           00006        RADAREAD           EXTEND                                         #  CONTINUATION OF INTERRUPT LEAD-IN.
025179,002763: 25,3160           04007                           ROR      SUPERBNK                              #  SUPERBNK MUST BE SAVED BECAUSE RUPT
025180,002764: 25,3161           54016                           TS       BANKRUPT                              #  MAY EXIT VIA TASKOVER.
025181,002765: 25,3162           00006                           EXTEND                                         
025182,002766: 25,3163           22012                           QXCH     QRUPT                                 
025183,002767: 
025184,002768: 
025185,002769: 25,3164           34750                           CA       SEVEN                                 #  READ AND STORE RADAR SELECT BITS
025186,002770: 25,3165           00006                           EXTEND                                         
025187,002771: 25,3166           02013                           RAND     CHAN13                                
025188,002772: 25,3167           55332                           TS       RADBITS                               
025189,002773: 
025190,002774: 25,3170           00006                           EXTEND                                         #  IF RADAR SELECT BITS ARE ZERO, ALARM
025191,002775: 25,3171           13177                           BZF      BADRUPT                               #  WITHOUT READING DATA
025192,002776: 
025193,002777: 25,3172           30046                           CA       RNRAD                                 #  STORE RAW DATA FOR DOWNLINK.
025194,002778: 25,3173           51332                           INDEX    RADBITS                               
025195,002779: 25,3174           55327                           TS       DNRRANGE   -1                         
025196,002780: 
025197,002781: 25,3175           11077                           CCS      RADUSE                                #  IF RADUSE IS ZERO, THIS IS A BAD RUPT
025198,002782: 25,3176           13203                           TCF      WHICHRAD                              
025199,002783: 
025200,002784: 25,3177           55077        BADRUPT            TS       RADUSE                                
025201,002785: 25,3200           05571                           TC       ALARM                                 
025202,002786: 25,3201           00520                           OCT      520                                   
025203,002787: 25,3202           05272                           TC       RESUME                                
025204,002788: 
025205,002789: 25,3203           46266        WHICHRAD           CS       THREE                                 #  IF RADBITS IS LESS THAN THREE,
025206,002790: 25,3204           61332                           AD       RADBITS                               #  THE RENDEZVOUS RADAR IS BEING READ.
025207,002791: 25,3205           00006                           EXTEND                                         
025208,002792: 25,3206           63273                           BZMF     RENDRAD                               
025209,002793: 
025210,002794: 25,3207           40101        LANDRAD            CS       FLAGWRD5                              #  THE LANDING RADAR IS BEING READ
025211,002795: 25,3210           74732                           MASK     R77FLBIT                              
025212,002796: 25,3211           00006                           EXTEND                                         #  IF R77 IS RUNNING, EXIT HERE
025213,002797: 25,3212           13253                           BZF      R77EXIT                               
025214,002798: 
025215,002799: 25,3213           44750                           CS       SEVEN                                 #  IF RADBITS IS SEVEN, THE LANDING

Page 572

025217,002801: 25,3214           61332                           AD       RADBITS                               #  RADAR ALITUDE IS BEING READ
025218,002802: 25,3215           00006                           EXTEND                                         
025219,002803: 25,3216           13267                           BZF      LRHEIGHT                              
025220,002804: 
025221,002805: 25,3217           34724        LRSPEED            CA       POSMAX                                #  DECODE THE 15 BIT READING AND
025222,002806: 25,3220           70046                           MASK     RNRAD                                 #  SUBTRACT THE BIAS.
025223,002807: 25,3221           62000                           AD       LVELBIAS                              
025224,002808: 25,3222           54064                           TS       ITEMP4                                
025225,002809: 25,3223           54001                           TS       L                                     
025226,002810: 25,3224           30046                           CA       RNRAD                                 
025227,002811: 25,3225           60000                           DOUBLE                                         
025228,002812: 25,3226           74744                           MASK     BIT1                                  
025229,002813: 25,3227           54063                           TS       ITEMP3                                
025230,002814: 25,3230           21101                           DAS      SAMPLSUM                              #  ACCUMULATE THE READING
025231,002815: 
025232,002816: 25,3231           34735                           CA       BIT8                                  #  VOLOCITY DATA GOOD BIT
025233,002817: 25,3232           54061        DGCHECK            TS       ITEMP1                                
025234,002818: 25,3233           33136        DGCHECK2           CA       DGBITS                                #  UPDATE THE STATUS OF THE DATA GOOD BITS
025235,002819: 25,3234           00006                           EXTEND                                         
025236,002820: 25,3235           02033                           RAND     CHAN33                                
025237,002821: 25,3236           57112                           XCH      OLDATAGD                              
025238,002822: 25,3237           70061                           MASK     ITEMP1                                
025239,002823: 25,3240           54001                           TS       L                                     #  OLD STATUS
025240,002824: 25,3241           30061                           CA       ITEMP1                                
025241,002825: 25,3242           71112                           MASK     OLDATAGD                              #  CURRENT STATUS
025242,002826: 25,3243           60001                           AD       L                                     
025243,002827: 25,3244           10000                           CCS      A                                     #  BOTH SHOULD BE ZERO
025244,002828: 25,3245           13256                           TCF      BADRAD                                #  DATA GOOD NOT PRESENT
025245,002829: 
025246,002830: 25,3246           11110        GOODRAD            CCS      NSAMP                                 #  TEST FOR R12
025247,002831: 25,3247           13403                           TCF      R12EXIT                               
025248,002832: 
025249,002833: 25,3250           52064                           DXCH     ITEMP3                                #  STORE DATA FOR CALLING ROUTINE
025250,002834: 25,3251           53101                           DXCH     SAMPLSUM                              
025251,002835: 25,3252           03651                           TC       RADLITES                              #  UPDATE DSKY LIGHTS.

The above instruction is circled.

025253,002837: 
025254,002838: 25,3253           34746        R77EXIT            CA       ZERO                                  #  ZERO RADUSE
025255,002839: 25,3254           55077                           TS       RADUSE                                
025256,002840: 25,3255           03614                           TC       RGOODEND   -2                         
025257,002841: 
025258,002842: 
025259,002843: 25,3256           40110        BADRAD             CS       RADMODES                              #  UPDATE RADMODES BIT ONLY IF DATA BAD
025260,002844: 25,3257           70061                           MASK     ITEMP1                                
025261,002845: 25,3260           26110                           ADS      RADMODES                              
025262,002846: 
025263,002847: 25,3261           11110                           CCS      NSAMP                                 #  TEST FOR R12
025264,002848: 25,3262           13403                           TCF      R12EXIT                               
025265,002849: 
025266,002850: 25,3263           03651                           TC       RADLITES                              #  UPDATE DSKY LIGHTS

The above instruction is circled.

025268,002852: 25,3264           34746        RRBADEND           CA       ZERO                                  #  ZERO RADUSE

Page 573

025270,002854: 25,3265           55077                           TS       RADUSE                                
025271,002855: 25,3266           03621                           TC       RDBADEND   -2                         
025272,002856: 
025273,002857: 
025274,002858: 25,3267           34740        LRHEIGHT           CA       BIT5                                  #  DATA GOOD BIT FOR ALTITUDE
025275,002859: 25,3270           54061                           TS       ITEMP1                                
025276,002860: 25,3271           34734                           CA       BIT9                                  #  LO SCALE BIT FOR LR
025277,002861: 25,3272           03316                           TC       SCALECHK                              
025278,002862: 
025279,002863: 25,3273           00006        RENDRAD            EXTEND                                         
025280,002864: 25,3274           31454                           DCA      TTOGO                                 #  LOAD TIME TO TIG
025281,002865: 25,3275           53272                           DXCH     TTOTIG                                #  FOR R65 RADAR READING.
025282,002866: 
025283,002867: 25,3276           34732                           CA       REPOSBIT                              #  MAKE SURE ANTENNA HAS NOT
025284,002868: 25,3277           70110                           MASK     RADMODES                              #  GONE OUT OF LIMITS.
025285,002869: 25,3300           10000                           CCS      A                                     
025286,002870: 25,3301           13264                           TCF      RRBADEND                              
025287,002871: 
025288,002872: 25,3302           40110                           CS       RADMODES                              #  BE SURE RR CDU HASN'T FAILED.
025289,002873: 25,3303           74736                           MASK     RCDUFBIT                              
025290,002874: 25,3304           10000                           CCS      A                                     
025291,002875: 25,3305           13264                           TCF      RRBADEND                              
025292,002876: 
025293,002877: 25,3306           34741                           CA       BIT4                                  #  DATA GOOD BIT FOR RR
025294,002878: 25,3307           54061                           TS       ITEMP1                                
025295,002879: 
025296,002880: 25,3310           34744                           CA       BIT1                                  #  TEST FOR RANGE OR RANGE RATE
025297,002881: 25,3311           71332                           MASK     RADBITS                               
025298,002882: 25,3312           54002                           TS       Q                                     #  SAVE FOR LATER TESTING
025299,002883: 25,3313           00006                           EXTEND                                         
025300,002884: 25,3314           13325                           BZF      RADIN                                 #  IF ROOT, READ DATA
025301,002885: 
025302,002886: 25,3315           34742                           CA       BIT3                                  #  LO SCALE BIT FOR RR.
025303,002887: 25,3316           54001        SCALECHK           TS       L                                     
025304,002888: 25,3317           30110                           CA       RADMODES                              #  TEST THE SCALE BIT SPECIFIED IN L
025305,002889: 25,3320           00006                           EXTEND                                         #  TO SEE IF IT IS THE SMAE AS LAST
025306,002890: 25,3321           06033                           RXOR     CHAN33                                #  TIME.
025307,002891: 25,3322           70001                           MASK     L                                     #  IF BIT IS THE SMAE IN RADMODES AND
025308,002892: 25,3323           10000                           CCS      A                                     #  CHAN33, THEN A WILL BE ZERO
025309,002893: 25,3324           03364                           TC       SCALCHNG                              #  SCALE CHANGED
025310,002894: 
025311,002895: 25,3325           34724        RADIN              CA       POSMAX                                #  UNPACK 15 BIT RADAR READING
025312,002896: 25,3326           70046                           MASK     RNRAD                                 
025313,002897: 25,3327           54064                           TS       ITEMP4                                
025314,002898: 
025315,002899: 25,3330           30046                           CA       RNRAD                                 
025316,002900: 25,3331           60000                           DOUBLE                                         
025317,002901: 25,3332           74744                           MASK     BIT1                                  
025318,002902: 25,3333           54063                           TS       ITEMP3                                
025319,002903: 

Page 574

025321,002905: 25,3334           10002                           CCS      Q                                     #  TEST FOR RR RANGE RATE (Q = 0)
025322,002906: 25,3335           13342                           TCF      SCALADJ                               #  RANGE OR LR HEIGHT . TEST SCALE
025323,002907: 
025324,002908: 25,3336           00006                           EXTEND                                         #  RR RANGE RATE - SUBTRACT BIAS
025325,002909: 25,3337           42002                           DCS      RDOTBIAS                              
025326,002910: 25,3340           20064        DASAMPL            DAS      ITEMP3                                
025327,002911: 25,3341           13233                           TCF      DGCHECK2                              #  TEST DATA GOOD
025328,002912: 
025329,002913: 25,3342           30110        SCALADJ            CA       RADMODES                              #  TEST SCALE BIT
025330,002914: 25,3343           70001                           MASK     L                                     
025331,002915: 25,3344           00006                           EXTEND                                         
025332,002916: 25,3345           13233                           BZF      DGCHECK2                              #  LO SCALE
025333,002917: 
025334,002918: 25,3346           74742                           MASK     BIT3                                  #  HI SCALE - TEST FOR LR
025335,002919: 25,3347           00006                           EXTEND                                         #  IF BIT3 = 0,THEN IT IS LR
025336,002920: 25,3350           13357                           BZF      LRSCK                                 
025337,002921: 
025338,002922: 25,3351           52064                           DXCH     ITEMP3                                #  RESCALE RR DATA TO LO SCALING
025339,002923: 25,3352           20001                           DDOUBL                                         #  MULTIPLY BY 8.
025340,002924: 25,3353           20001                           DDOUBL                                         
025341,002925: 25,3354           20001                           DDOUBL                                         
025342,002926: 25,3355           52064                           DXCH     ITEMP3                                
025343,002927: 25,3356           13233                           TCF      DGCHECK2                              
025344,002928: 
025345,002929: 25,3357           00006        LRSCK              EXTEND                                         #  RESCALE LR DATA TO LO SCALING
025346,002930: 25,3360           30064                           DCA      ITEMP3                                #  MULTIPLY BY 5.
025347,002931: 25,3361           20001                           DDOUBL                                         
025348,002932: 25,3362           20001                           DDOUBL                                         
025349,002933: 25,3363           13340                           TCF      DASAMPL                               
025350,002934: 
025351,002935: 
025352,002936: 25,3364           30110        SCALCHNG           CA       RADMODES                              
025353,002937: 25,3365           00006                           EXTEND                                         #  INVERT SCALE BIT IN RADMODES
025354,002938: 25,3366           06001                           RXOR     LCHAN                                 
025355,002939: 25,3367           54110                           TS       RADMODES                              
025356,002940: 
025357,002941: 25,3370           11110                           CCS      NSAMP                                 #  TEST FOR R12
025358,002942: 25,3371           13401                           TCF      R12SCHNG                              

The above two instructions are surrounded by drawn-in curly braces.

025360,002944: 
025361,002945: 25,3372           05506                           TC       UPFLAG                                #  SET RNGSCFLG FOR LRS24.1
025362,002946: 25,3373           00120                           ADRES    RNGSCFLG                              
025363,002947: 
025364,002948: 25,3374           33136                           CA       DGBITS                                #  UPDATE DATA GOOD BITS
025365,002949: 25,3375           00006                           EXTEND                                         
025366,002950: 25,3376           02033                           RAND     CHAN33                                
025367,002951: 25,3377           55112                           TS       OLDATAGD                              
025368,002952: 25,3400           13264                           TCF      RRBADEND                              
025369,002953: 
025370,002954: 
025371,002955: 25,3401           55110        R12SCHNG           TS       NSAMP                                 #  UPDATE NSAMP AND IGNORE READING.

Page 575

025373,002957: 25,3402           13414                           TCF      READVEL                               
025374,002958: 
025375,002959: 25,3403           55110        R12EXIT            TS       NSAMP                                 #  UPDATE NSAMP
025376,002960: 25,3404           00006                           EXTEND                                         
025377,002961: 25,3405           13445                           BZF      STORVEL                               
025378,002962: 
025379,002963: 25,3406           67766                           AD       NEG3                                  
025380,002964: 25,3407           00006                           EXTEND                                         
025381,002965: 25,3410           13425                           BZF      STORALT                               
025382,002966: 
025383,002967: 25,3411           67770                           AD       NEGONE                                
025384,002968: 25,3412           00006                           EXTEND                                         
025385,002969: 25,3413           13423                           BZF      READALT                               
025386,002970: 25,3414           44750        READVEL            CS       SEVEN                                 
025387,002971: 25,3415           00006                           EXTEND                                         
025388,002972: 25,3416           03013                           WAND     CHAN13                                
025389,002973: 25,3417           31077                           CA       RADUSE                                
025390,002974: 25,3420           04665        READALT2           TC       IBNKCALL                              
025391,002975: 25,3421           36000                           CADR     RADSTART                              

The above two lines are circled.

025393,002977: 25,3422           05272                           TC       RESUME                                
025394,002978: 
025395,002979: 
025396,002980: 25,3423           33063        READALT            CA       ALLREAD                               #  SET UP LR ALTITUDE READ
025397,002981: 25,3424           13420                           TCF      READALT2                              
025398,002982: 
025399,002983: 25,3425           52064        STORALT            DXCH     ITEMP3                                
025400,002984: 25,3426           53655                           DXCH     HMEAS                                 #  STORE ALT IN HMEAS
025401,002985: 
025402,002986: 25,3427           40110                           CS       RADMODES                              #  TEST DATA GOOD
025403,002987: 25,3430           74740                           MASK     BIT5                                  
025404,002988: 25,3431           00006                           EXTEND                                         
025405,002989: 25,3432           13442                           BZF      HBAD                                  #  DATA GOOD NOT PRESENT
025406,002990: 
025407,002991: 25,3433           11674                           CCS      STILBADH                              #  IF DATA JUST GOOD,OR IG RESTART JUST
025408,002992: 25,3434           13443                           TCF      HSTILBAD                              #  OCCURRED,WAIT
025409,002993: 
025410,002994: 25,3435           40107                           CS       FLGWRD11                              #  SET FLAG FORR12.
025411,002995: 25,3436           74741                           MASK     RNGEDBIT                              #  (CANNOT USE UPFLAG BECAUSE ITEMP1 IS
025412,002996: 25,3437           26107                           ADS      FLGWRD11                              #    DESTROYED)
025413,002997: 25,3440           03651        ALTEXIT            TC       RADLITES                              

The above instruction is circled.

025415,002999: 25,3441           13414                           TCF      READVEL                               
025416,003000: 
025417,003001: 25,3442           34743        HBAD               CA       TWO                                   #  SET STILBADH FOR FOUR SECOND DELAY
025418,003002: 25,3443           55674        HSTILBAD           TS       STILBADH                              
025419,003003: 25,3444           13440                           TCF      ALTEXIT                               
025420,003004: 
025421,003005: 25,3445           40110        STORVEL            CS       RADMODES                              #  TEST DATA GOOD
025422,003006: 25,3446           74735                           MASK     BIT8                                  
025423,003007: 25,3447           00006                           EXTEND                                         
025424,003008: 25,3450           13506                           BZF      VBAD                                  #  DATA GOOD NOT PRESENT
025425,003009: 

Page 576

025427,003011: 25,3451           11675                           CCS      STILBADV                              
025428,003012: 25,3452           13507                           TCF      VSTILBAD                              
025429,003013: 
025430,003014: 25,3453           40107                           CS       FLGWRD11                              #  DATA IS GOOD, SET FLAG FOR R12
025431,003015: 25,3454           74736                           MASK     VELDABIT                              #  (CANNOT USE UPFLAG BECAUSE ITEMP1 IS
025432,003016: 25,3455           26107                           ADS      FLGWRD11                              #    DESTROYED)
025433,003017: 25,3456           11462        R12DL              CCS      VSELECT                               #  UPDATE VSELECT
025434,003018: 25,3457           13461                           TCF      +2                                    
025435,003019: 25,3460           34743                           CA       TWO                                   
025436,003020: 25,3461           55462                           TS       VSELECT                               
025437,003021: 
025438,003022: 25,3462           53101                           DXCH     SAMPLSUM                              #  STORE VEL DATA IN VMEAS
025439,003023: 25,3463           53653                           DXCH     VMEAS                                 
025440,003024: 
025441,003025: 25,3464           00006                           EXTEND                                         
025442,003026: 25,3465           31655                           DCA      HMEAS                                 #  STORE HMEAS FOR DOWNLINK
025443,003027: 25,3466           53777                           DXCH     HMEASDL                               
025444,003028: 
025445,003029: 25,3467           00006                           EXTEND                                         
025446,003030: 25,3470           31561                           DCA      PIPTIME1                              #  STORE TIME FOR DOWNLINK
025447,003031: 25,3471           53755                           DXCH     MKTIME                                
025448,003032: 
025449,003033: 25,3472           00006                           EXTEND                                         
025450,003034: 25,3473           31156                           DCA      CDUTEMPY                              #  STORE CDUY,CDUZ FOR DOWNLINK
025451,003035: 25,3474           53460                           DXCH     AIG                                   
025452,003036: 
025453,003037: 25,3475           31154                           CA       CDUTEMPX                              #  STORE CDUX FOR LINK
025454,003038: 25,3476           55461                           TS       AOG                                   
025455,003039: 
025456,003040: 25,3477           03651                           TC       RADLITES                              #  UPDATE DSKY VEL LIGHT

The above instruction is circled.

025458,003042: 25,3500           34746                           CA       ZERO                                  
025459,003043: 25,3501           55077                           TS       RADUSE                                
025460,003044: 
025461,003045: 25,3502           44742        OKUPDATE           CS       R12RDBIT                              #  R12 READ IS DONE SO ALLOW R12 UPDATE
025462,003046: 25,3503           70107                           MASK     FLGWRD11                              
025463,003047: 25,3504           54107                           TS       FLGWRD11                              
025464,003048: 
025465,003049: 25,3505           05272                           TC       RESUME                                
025466,003050: 
025467,003051: 25,3506           34743        VBAD               CA       TWO                                   
025468,003052: 25,3507           55675        VSTILBAD           TS       STILBADV                              
025469,003053: 25,3510           13456                           TCF      R12DL                                 
025470,003054: 

Page 577

025472,003056:                                                                                                  #           CODING TO PROTECT CHANNEL 13 WILL RADAR READ IS IN CRITICAL PERIOD
025473,003057: 
025474,003058: 17,2000                                           SETLOC   C13BANK                               
025475,003059: 17,2000                                           BANK                                           
025476,003060: 
025477,003061: 17,2000           54002        RADSTART           TS       Q                                     
025478,003062: 17,2001           00006                 +1        EXTEND                                         
025479,003063: 17,2002           00004                           READ     LOSCALAR                              #  READ PRESENT TIME
025480,003064: 17,2003           54001                           TS       L                                     
025481,003065: 
025482,003066: 17,2004           74337                           MASK     LOW5                                  #  ONLY THE LOW 5 BITS MATTER
025483,003067: 17,2005           40000                           COM                                            
025484,003068: 17,2006           64737                           AD       BIT6                                  #  COMPUTE DELTA TIME TO NEXT T5 TICK
025485,003069: 17,2007           74337                           MASK     LOW5                                  
025486,003070: 17,2010           55270                           TS       RADDEL                                
025487,003071: 
025488,003072: 17,2011           67767                           AD       NEG2                                  #  IF A TICKING OF T5 IS NEAR, WAIT UNTIL
025489,003073: 17,2012           00006                           EXTEND                                         #  IT HAS TICKED.  THE MAX DELAY HERE WILL
025490,003074: 17,2013           62001                           BZMF     RADSTART   +1                         #  BE 937.5 MICROSECONDS
025491,003075: 
025492,003076: 17,2014           30002                           CA       Q                                     
025493,003077: 17,2015           00006                           EXTEND                                         #  IT IS SAFE TO SET THE ACTIVITY BIT NOW
025494,003078: 17,2016           05013                           WOR      CHAN13                                #  BECAUSE OF THE ABOVE LOOP
025495,003079: 
025496,003080: 17,2017           40001                           CS       L                                     
025497,003081: 17,2020           55267                           TS       RADTIME                               #  SAVE NEGATIVE TIME OF READ
025498,003082: 17,2021           04700                           TC       ISWRETRN                              
025499,003083: 
025500,003084: 
025501,003085: 17,2022           55266        C13STAL1           TS       C13FSAV                               
025502,003086: 
025503,003087: 17,2023           34741                           CA       BIT4                                  
025504,003088: 17,2024           00006                           EXTEND                                         
025505,003089: 17,2025           02013                           RAND     CHAN13                                
025506,003090: 17,2026           00006                           EXTEND                                         
025507,003091: 17,2027           12050                           BZF      TCQSTAL                               #  IF NO RADAR ACTIVITY, RETURN
025508,003092: 
025509,003093: 17,2030           12031        C13SLOOP           NOOP                                           #  *** NECESSARY TO PREVENT A TC TRAP ***
025510,003094: 17,2031           00006                           EXTEND                                         
025511,003095: 17,2032           00004                           READ     LOSCALAR                              
025512,003096: 17,2033           61267                           AD       RADTIME                               #  COMPUTE DELTA T SINCE LAST RADAR READ
025513,003097: 17,2034           64727                           AD       HALF                                  
025514,003098: 17,2035           64727                           AD       HALF                                  #  CORRECT FOR TIME OVERFLOW
025515,003099: 17,2036           56001                           XCH      L                                     
025516,003100: 
025517,003101: 17,2037           32053                           CA       90MSCALR                              
025518,003102: 17,2040           61270                           AD       RADDEL                                
025519,003103: 17,2041           00006                           EXTEND                                         
025520,003104: 17,2042           60001                           SU       L                                     

Page 578

025522,003106: 17,2043           00006                           EXTEND                                         
025523,003107: 17,2044           62050                           BZMF     TCQSTAL                               #  FORBIDDEN  ZONE IS PAST, RETURN
025524,003108: 
025525,003109: 17,2045           62054                           AD       -DTSCALR                              
025526,003110: 17,2046           00006                           EXTEND                                         
025527,003111: 17,2047           62030                           BZMF     C13SLOOP                              #  IN THE FORBIDDEN PERIOD, LOOP UNTIL O.K.
025528,003112: 
025529,003113: 17,2050           22002        TCQSTAL            LXCH     Q                                     #  ALL IS WELL, RETURN
025530,003114: 17,2051           31266                           CA       C13FSAV                               
025531,003115: 17,2052           52005                           DTCF                                           
025532,003116: 
025533,003117: 17,2053           00440        90MSCALR           OCT      440                                   #  90 MILLISEC IN SCALAR
025534,003118: 17,2054           77754        -DTSCALR           OCT      77754                                 #  -5.9375 MS IN SCALAR
025535,003119: 
025536,003120:    6000                                           SETLOC   FFTAG6                                
025537,003121:    6000                                           BANK                                           
025538,003122: 
025539,003123:    6040           37745        C13STALL           CAF      PRIO36                                #  PRIO36 = 36000 = FCADR (17,2000)
025540,003124:    6041           56004                           XCH      FBANK                                 
025541,003125:    6042           12022                           TCF      C13STAL1                              
025542,003126: 

Page 579

025544,003128:                                                                                                  #  THIS ROUTINE CHANGES THE LR POSITION, AND CHECKS THAT IT GOT THERE.
025545,003129: 
025546,003130: 25,3511                                           BANK     25                                    
025547,003131: 25,2000                                           SETLOC   P20S1                                 
025548,003132: 25,2000                                           BANK                                           
025549,003133: 25,3511                                           COUNT*   $$/RSUB                               
025550,003134: 25,3511           00004        LRPOS2             INHINT                                         
025551,003135: 
025552,003136: 25,3512           40110                           CS       RADMODES                              
025553,003137: 25,3513           74737                           MASK     LRPOSBIT                              #  SHOW DESIRED LR POSITION IS 2
025554,003138: 25,3514           26110                           ADS      RADMODES                              
025555,003139: 
025556,003140: 25,3515           34736                           CAF      BIT7                                  
025557,003141: 25,3516           00006                           EXTEND                                         
025558,003142: 25,3517           02033                           RAND     CHAN33                                #  SEE IF ALREADY THERE.
025559,003143: 25,3520           00006                           EXTEND                                         
025560,003144: 25,3521           13532                           BZF      RADNOOP                               
025561,003145: 
025562,003146: 25,3522           34730                           CAF      BIT13                                 
025563,003147: 25,3523           00006                           EXTEND                                         
025564,003148: 25,3524           05012                           WOR      CHAN12                                #  COMMAND TO POSITION 2
025565,003149: 25,3525           33565                           CAF      6SECS                                 #  START SCANNING FOR INBIT AFTER 7 SECS.
025566,003150: 25,3526           05205                           TC       WAITLIST                              
025567,003151: 25,3527  E7,1456                                  EBANK=   LOSCOUNT                              
025568,003152: 25,3527           03563 52067                     2CADR    LRPOSCAN                              
025569,003153: 
025570,003154: 25,3531           02357                           TC       ROADBACK                              
025571,003155: 
025572,003156: 25,3532           34744        RADNOOP            CAF      ONE                                   #  NO FURTHER ACTION REQUESTED
025573,003157: 25,3533           05205                           TC       WAITLIST                              
025574,003158: 25,3534  E7,1456                                  EBANK=   LOSCOUNT                              
025575,003159: 25,3534           03616 52067                     2CADR    RGOODEND                              
025576,003160: 
025577,003161: 25,3536           02357                           TC       ROADBACK                              
025578,003162: 
025579,003163: 25,3537           55077        LRPOSNXT           TS       SAMPLIM                               
025580,003164: 25,3540           05223                           TC       FIXDELAY                              #  SCAN ONCE PER SECOND 5 TIMES MAX AFTER
025581,003165: 25,3541           00144                           DEC      100        B-14                       #  INITIAL DELAY OF 7 SECONDS.
025582,003166: 
025583,003167: 25,3542           34736                           CAF      BIT7                                  #  SEE IF LR POS2 IS ON
025584,003168: 25,3543           00006                           EXTEND                                         
025585,003169: 25,3544           02033                           RAND     CHAN33                                
025586,003170: 25,3545           00006                           EXTEND                                         
025587,003171: 25,3546           13555                           BZF      LASTLRDT                              #  IF THERE, WAIT FINAL SECOND FOR BOUNCE.
025588,003172: 
025589,003173: 25,3547           11077                           CCS      SAMPLIM                               #  SEE IF MAX TIME UP.
025590,003174: 25,3550           13537                           TCF      LRPOSNXT                              
025591,003175: 
025592,003176: 25,3551           44730                           CS       BIT13                                 #  IF TIME UP, DISABLE COMMAND AND ALARM.
025593,003177: 25,3552           00006                           EXTEND                                         

Page 580

025595,003179: 25,3553           03012                           WAND     CHAN12                                
025596,003180: 25,3554           13623                           TCF      RDBADEND                              
025597,003181: 
025598,003182: 25,3555           34771        LASTLRDT           CA       2SECS                                 #  WAIT TWO SECONDS AFTER RECEIPT OF INBIT
025599,003183: 25,3556           05226                           TC       VARDELAY                              #  TO WAIT FOR ANTENNA BOUNCE TO DIE OUT.
025600,003184: 
025601,003185: 25,3557           44730                           CS       BIT13                                 #  REMOVE COMMAND
025602,003186: 25,3560           00006                           EXTEND                                         
025603,003187: 25,3561           03012                           WAND     CHAN12                                
025604,003188: 25,3562           13616                           TCF      RGOODEND                              
025605,003189: 
025606,003190: 25,3563           34742        LRPOSCAN           CAF      FOUR                                  
025607,003191: 25,3564           13537                           TCF      LRPOSNXT                              
025608,003192: 25,3565           01130        6SECS              DEC      600        B-14                       
025609,003193: 
025610,003194: 25,3566           04607        LRP2COMM           TC       BANKCALL                              
025611,003195: 25,3567           53511                           CADR     LRPOS2                                
025612,003196: 25,3570           04607                           TC       BANKCALL                              
025613,003197: 25,3571           17733                           CADR     RADSTALL                              
025614,003198: 25,3572           03574                           TC       LP2ALM                                
025615,003199: 25,3573           13605                           TCF      GOPINNER                              
025616,003200: 
025617,003201: 25,3574           05571        LP2ALM             TC       ALARM                                 
025618,003202: 25,3575           00523                           OCT      523                                   
025619,003203: 25,3576           13605                           TCF      GOPINNER                              
025620,003204: 
025621,003205: 25,3577           35007        V59GP63            CA       EBANK7                                
025622,003206: 25,3600           54003                           TS       EBANK                                 
025623,003207: 25,3601  E7,1427                                  EBANK=   RPCRTIME                              
025624,003208: 25,3601           34724                           CA       POSMAX                                
025625,003209: 25,3602           55427                           TS       RPCRTIME                              
025626,003210: 25,3603           44727                           CS       BIT14                                 
025627,003211: 25,3604           55430                           TS       RPCRTQSW                              
025628,003212: 25,3605           04626        GOPINNER           TC       POSTJUMP                              
025629,003213: 25,3606           21062                           CADR     PINBRNCH                              
025630,003214: 

Page 581

025632,003216:                                                                                                  #           SEQUENCES TO TERMINATE RR OPERATIONS.
025633,003217: 
025634,003218: 25,3607           34736        ENDRADAR           CAF      RCDUFBIT                              #  PROLOG TO CHECK RR CDU FAIL BEFORE END.
025635,003219: 25,3610           70110                           MASK     RADMODES                              
025636,003220: 25,3611           10000                           CCS      A                                     
025637,003221: 25,3612           13616                           TCF      RGOODEND                              
025638,003222: 25,3613           13623                           TCF      RDBADEND                              
025639,003223: 25,3614           44746                 -2        CS       ZERO                                  #  RGOODEND WHEN NOT UNDER WAITLIST CONTROL
025640,003224: 25,3615           54332                           TS       RUPTAGN                               
025641,003225: 
025642,003226: 25,3616           34743        RGOODEND           CAF      TWO                                   
025643,003227: 25,3617           04626                           TC       POSTJUMP                              
025644,003228: 25,3620           17704                           CADR     GOODEND                               
025645,003229: 
025646,003230: 25,3621           44746                 -2        CS       ZERO                                  #  RDBADEND WHEN NOT UNDER WAITLIST.
025647,003231: 25,3622           54332                           TS       RUPTAGN                               
025648,003232: 25,3623           34743        RDBADEND           CAF      TWO                                   
025649,003233: 25,3624           04626                           TC       POSTJUMP                              
025650,003234: 25,3625           17701                           CADR     BADEND                                
025651,003235: 
025652,003236: 25,3626     6266               BIN3               EQUALS   THREE                                 
025653,003237: 

Page 582

025655,003239:                                                                                                  #  PROGRAM NAME_ LPS20.1 VECTOR EXTRAPOLATION AND LOS COMPUTATION
025656,003240:                                                                                                  #  MOD. NO.  2      BY  J.D. COYNE    SDC    DATE   12-7-66
025657,003241: 
025658,003242: 
025659,003243:                                                                                                  #  FUNCTIONAL DESCRIPTION_
025660,003244: 
025661,003245:                                                                                                  #  1) EXTRAPOLATE THE LEM AND CSM VECTORS IN ACCORDANCE WITH THE TIME REFERED TO IN CALLER + 1.
025662,003246:                                                                                                  #  2) COMPUTES THE LOS VECTOR TO THE CSM, CONVERTS IT TO STABLE MEMBER COORDINATES AND STORES IT IN RRTARGET.
025663,003247:                                                                                                  #  3) COMPUTES THE MAGNITUDE OF THE LOS VECTOR AND STORES IT IN MLOSV
025664,003248: 
025665,003249: 
025666,003250:                                                                                                  #  CALLING SEQUENCE       CALL
025667,003251:                                                                                                  #                                LPS20.1
025668,003252: 
025669,003253:                                                                                                  #  SUBROUTINES CALLED_
025670,003254: 
025671,003255:                                                                                                  #  LEMPREC,CSMPREC
025672,003256: 
025673,003257: 
025674,003258:                                                                                                  #  NORMAL EXIT_ RETURN TO CALLER + 2
025675,003259: 
025676,003260: 
025677,003261:                                                                                                  #  ERROR EXITS_ NONE
025678,003262: 
025679,003263: 
025680,003264:                                                                                                  #  ALARMS_ NONE
025681,003265: 
025682,003266: 
025683,003267:                                                                                                  #  OUTPUT_
025684,003268: 
025685,003269:                                                                                                  #  LOS VECTOR (HALF UNIT) IN SM COORDINATES STORED IN RRTARGET
025686,003270:                                                                                                  #  MAGNITUDE OF THE LOS VECTOR (METERS SCALED B-29) STORED IN MSLOV
025687,003271:                                                                                                  #  RRNBSW CLEARED
025688,003272: 
025689,003273: 
025690,003274:                                                                                                  #  INITIALIZED ERASEABLE
025691,003275: 
025692,003276:                                                                                                  #  TDEC1 MUST CONTAIN THE TIME FOR EXTRAPOLATION
025693,003277:                                                                                                  #  SEE ORBITAL INTEGRATION ROUTINE
025694,003278: 
025695,003279: 
025696,003280:                                                                                                  #  DEBRIS_
025697,003281: 
025698,003282:                                                                                                  #  MPAC DESTROYED BY THIS ROUTINE
025699,003283: 
025700,003284: 23,2335                                           BANK     23                                    
025701,003285: 24,2000                                           SETLOC   P20S                                  
025702,003286: 24,2000                                           BANK                                           

Page 583

025704,003288: 24,3337                                           COUNT*   $$/LPS20                              
025705,003289: 
025706,003290: 24,3337           43020        LPS20.1            STQ      BOFF                                  
025707,003291: 24,3340           01755                                    LS21X                                 
025708,003292: 24,3341           01343                                    LOSCMFLG                              #  LOSCMFLG = 0 MEANS NOT CALLED BY R21
025709,003293: 24,3342           51346                                    LMINT                                 #  SO CALL LEMCONIC TO GET LM STATE
025710,003294: 24,3343           77614                           BON                                            #  IF IN R21 AND ON LUNAR SURFACE
025711,003295: 24,3344           04307                                    SURFFLAG                              #  DON'T CALL LEMCONIC
025712,003296: 24,3345           51356                                    CSMINT                                
025713,003297: 24,3346           77624        LMINT              CALL                                           
025714,003298: 24,3347           27136                                    LEMCONIC                              #  EXTRAPOLATE LEM
025715,003299: 24,3350           77775                           VLOAD                                          
025716,003300: 24,3351           00001                                    RATT                                  
025717,003301: 24,3352           26343                           STOVL    LMPOS                                 #  SAVE LM POSITION B-29
025718,003302: 24,3353           00007                                    VATT                                  
025719,003303: 24,3354           16351                           STODL    LMVEL                                 #  SAVE LM VELOCITY B-7
025720,003304: 24,3355           00015                                    TAT                                   
025721,003305: 24,3356           34041        CSMINT             STCALL   TDEC1                                 
025722,003306: 24,3357           27124                                    CSMCONIC                              #   EXTRAPOLATE CSM
025723,003307: 24,3360           52375                           VLOAD    VSU                                   #  COMPUTE RELATIVE VELOCITY V(CSM) - V(LM)
025724,003308: 24,3361           00007                                    VATT                                  
025725,003309: 24,3362           02351                                    LMVEL                                 
025726,003310: 24,3363           00017                           STORE    VELLOS                                
025727,003311: 24,3364           76521                           MXV      VSL1                                  
025728,003312: 24,3365           01732                                    REFSMMAT                              
025729,003313: 24,3366           77776                           EXIT                                           
025730,003314: 24,3367           06050                           TC       KILLTASK                              #  KILL THE TASK WHICH CALLS DODES SINCE
025731,003315: 24,3370           52573                           CADR     DESLOOP    +2                         #  STORING INTO ERASEABLES DODES USES
025732,003316: 24,3371           06060                           TC       INTPRET                               
025733,003317: 24,3372           25757                           STOVL    LOSVEL                                
025734,003318: 24,3373           00001                                    RATT                                  
025735,003319: 24,3374           43051                           VSU      BOFF                                  
025736,003320: 24,3375           02343                                    LMPOS                                 
025737,003321: 24,3376           00350                                    RNDVZFLG                              
025738,003322: 24,3377           51404                                    NOTSHIFT                              
025739,003323: 24,3400           00025                           STORE    RRANGE                                #  RANGE FOR POSSIBLE ALARM B-29
025740,003324: 24,3401           54204                           BOVB     VSL                                   
025741,003325: 24,3402           57756                                    TCDANZIG                              
025742,003326: 24,3403           20212                                    9D                                    
025743,003327: 24,3404           41056        NOTSHIFT           UNIT     BOVB                                  #  IF OVERFLOW , RANGE MUST BE GREATER
025744,003328: 24,3405           50104                                    526ALARM                              #  THAN 400 N. M.
025745,003329: 24,3406           76521                           MXV      VSL1                                  
025746,003330: 24,3407           01732                                    REFSMMAT                              #  CONVERT TO STABLE MEMBER
025747,003331: 24,3410           15101                           STODL    RRTARGET                              
025748,003332: 24,3411           00045                                    36D                                   #  SAVE MAGNITUDE OF LOS VECTOR FOR
025749,003333: 24,3412           01765                           STORE    MLOSV                                 #  VELOCITY CORRECTION IN DESIGNATE
025750,003334: 24,3413           77614                           CLRGO                                          
025751,003335: 24,3414           00231                                    RRNBSW                                
025752,003336: 24,3415           01755                                    LS21X                                 
025753,003337: 24,3416                        RRANGE             EQUALS   20D                                   

Page 584

025755,003339: 24,3416                        VELLOS             EQUALS   14D                                   
025756,003340: 

Page 585

025758,003342:                                                                                                  #  PROGRAM NAME : LPS20.2 400 N. MI. RANGE CHECK
025759,003343:                                                                                                  #  MOD. NO. 2   BY J.D. COYNE   SDC    DATE  12-7-66
025760,003344: 
025761,003345: 
025762,003346:                                                                                                  #  FUNCTIONAL DESCRIPTION_
025763,003347: 
025764,003348:                                                                                                  #  COMPARES THE MAGNITUDE OF THE LOS VECTOR TO 400 NM
025765,003349: 
025766,003350: 
025767,003351:                                                                                                  #  CALLING SEQUENCE       CALL
025768,003352:                                                                                                  #                                LPS20.2
025769,003353: 
025770,003354: 
025771,003355:                                                                                                  #  SUBROUTINES CALLED_ NONE
025772,003356: 
025773,003357: 
025774,003358:                                                                                                  #  NORMAL EXIT _ RETURN TO CALLER +1, MPAC EQ 0 (RANGE 400NM OR LESS.)
025775,003359: 
025776,003360: 
025777,003361:                                                                                                  #  ERROR EXITS _ RETURN TO CALLER +1, MPAC EQ 1 (RANGE GREATER THAN 400NM)
025778,003362: 
025779,003363: 
025780,003364:                                                                                                  #  ALARMS_ NONE
025781,003365: 
025782,003366: 
025783,003367:                                                                                                  #  OUTPUT_ NONE
025784,003368: 
025785,003369: 
025786,003370:                                                                                                  #  INITIALIZED ERASEABLE_
025787,003371: 
025788,003372:                                                                                                  #  PDL 36D MUST CONTAIN THE MAGNITUDE OF THE VECTOR
025789,003373:                                                                                                  #  DEBRIS
025790,003374: 
025791,003375:                                                                                                  #  MPAC DESTROYED BY THIS ROUTINE
025792,003376: 
025793,003377: 25,2000                                           SETLOC   P20S1                                 
025794,003378: 25,2000                                           BANK                                           
025795,003379: 25,3626                                           COUNT*   $$/LPS20                              
025796,003380: 
025797,003381: 25,3626           45345        LPS20.2            DLOAD    DSU                                   
025798,003382: 25,3627           01765                                    MLOSV                                 #  MAGNITUDE OF LOS
025799,003383: 25,3630           13641                                    FHNM                                  #  OVER 400NM  _
025800,003384: 25,3631           77644                           BPL                                            
025801,003385: 25,3632           53635                                    TOFAR                                 
025802,003386: 25,3633           43535                           SLOAD    RVQ                                   
025803,003387: 25,3634           06505                                    ZERO/SP                               
025804,003388: 25,3635           43535        TOFAR              SLOAD    RVQ                                   
025805,003389: 25,3636           13640                                    ONE/SP                                
025806,003390: 25,3637           00001        ONE/SP             DEC      1          B-14                       

Page 586

025808,003392: 25,3640           26467 00000  FHNM               2DEC     740800     B-20                       #  400 NAUTICAL MILES IN METERS B-20
025809,003393: 

Page 587

025811,003395:                                                                                                  #  PROGRAM NAME: LRS22.1 (DATA READ SUBROUTINE 1)
025812,003396:                                                                                                  #  MOD. NO.: 1       BY:  P. VOLANTE  SDC           DATE:  11-15-66
025813,003397: 
025814,003398: 
025815,003399:                                                                                                  #  FUNCTIONAL DESCRIPTION
025816,003400: 
025817,003401:                                                                                                  #  1) READS RENDEZVOUS RADAR RANGE AND RANGE-RATE,TRUNION AND SHAFT ANGLES,THREE CDU VALUES AND TIME. CONVERTS THIS
025818,003402:                                                                                                  #  DATA AND LEAVES IT FOR THE MEASUREMENT INCORPORATION ROUTINE (LSR22.3). CHECKS FOR THE RR DATA GOOD DISCRETE,FOR
025819,003403:                                                                                                  #  RR REPOSITION AND RR CDU FAIL
025820,003404: 
025821,003405:                                                                                                  #  2) COMPARES RADAR LOS WITH LOS COMPUTED FROM STATE VECTORS TO SEE IF THEY ARE WITHIN THREE DEGREES
025822,003406: 
025823,003407: 
025824,003408:                                                                                                  #  CALLING SEQUENCE: BANKCALL FOR LRS22.1
025825,003409: 
025826,003410: 
025827,003411:                                                                                                  #  SUBROUTINES CALLED:
025828,003412: 
025829,003413:                                                                                                  #         RRRDOT    LPS20.1
025830,003414:                                                                                                  #         RRRANGE  BANKCALL
025831,003415:                                                                                                  #         RADSTALL CDULOGIC
025832,003416:                                                                                                  #         RRNB     SMNB
025833,003417:                                                                                                  #  NORMAL EXIT: RETURN TO CALLER+1 WITH MPAC SET TO +0
025834,003418: 
025835,003419: 
025836,003420:                                                                                                  #  ERROR EXITS: RETURN TO CALLER+1 WITH ERROR CODE STORED IN MPAC AS FOLLOWS:
025837,003421: 
025838,003422:                                                                                                  #               00001-ERROR EXIT 1-RR DATA NO GOOD (NO RR DATA GOOD DISCRETE OR RR CDU FAIL OR RR REPOSITION)
025839,003423:                                                                                                  #               00002-ERROR EXIT 2-RR LOS NOT WITHIN THREE DEGREES OF LOS COMPUTED FROM STATE VECTORS
025840,003424: 
025841,003425: 
025842,003426:                                                                                                  #  ALARMS:  521-COULD NOT READ RADAR DATA (RR DATA GOOD DISCRETE NOT PRESENT BEFORE AND AFTER READING THE RADAR)
025843,003427:                                                                                                  #   (THIS ALARM IS ISSUED BY THE RADAREAD SUBROUTINE WHICH IS ENTERED FROM A RADARUPT)
025844,003428: 
025845,003429: 
025846,003430:                                                                                                  #  OUTPUT: RRLOSVEC- THE RR LINE-OF-SIGHT VECTOR(USED BY LRS22.2)-A HALF-UNIT VECTOR
025847,003431:                                                                                                  #          RM- THE RR RANGE READING(TO THE CSM) DP, IN METERS SCALED B-29(USED BY LRS22.2 AND LRS22.3)
025848,003432: 
025849,003433:                                                                                                  #     ALL OF THE FOLLOWING OUTPUTS ARE USED BY LRS22.3:
025850,003434: 
025851,003435:                                                                                                  #          RDOTM- THE RR RANGE-RATE READING,DP, IN METERS PER CENTISECOND, SCALED B-7
025852,003436:                                                                                                  #          RRTRUN-RR TRUNION ANGLE,DP,IN REVOLUTIONS,SCALED B0
025853,003437:                                                                                                  #          RRSHAFT-RR SHAFT ANGLE,DP,IN REVOLUTIONS,SCALED B0
025854,003438:                                                                                                  #          AIG,AMG,AOG-THE CDU ANGLES,THREE SP WORDS
025855,003439:                                                                                                  #          MKTIME-THE TIME OF THE RR READING,DP,IN CENTISECONDS
025856,003440: 
025857,003441: 
025858,003442:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
025859,003443: 
025860,003444:                                                                                                  #     RNRAD,THE RADAR READ COUNTER FROM WHICH IS OBTAINED:

Page 588

025862,003446:                                                                                                  #      1)RR RANGE SCALED 9.38 FT. PER BIT ON THE LOW SCALE AND 75.04 FT. PER BIT ON THE HIGH SCALE
025863,003447:                                                                                                  #      2)RR RANGE RATE,SCALED .6278 FT./SEC. PER BIT
025864,003448: 
025865,003449:                                                                                                  #     THE CDU ANGLES FROM CDUX,CDUY,CDUZ AND TIME1 AND TIME2
025866,003450: 
025867,003451: 
025868,003452:                                                                                                  #  DEBRIS:  LRS22.1X,A,L,Q,PUSHLIST
025869,003453: 
025870,003454: 
025871,003455: 32,2362                                           BANK     32                                    
025872,003456: 32,2000                                           SETLOC   LRS22                                 
025873,003457: 32,2000                                           BANK                                           
025874,003458: 32,2362                                           COUNT*   $$/LRS22                              
025875,003459: 
025876,003460: 32,2362           04636        LRS22.1            TC       MAKECADR                              
025877,003461: 32,2363           55737                           TS       LRS22.1X                              
025878,003462: 32,2364           05520                           TC       DOWNFLAG                              
025879,003463: 32,2365           00120                           ADRES    RNGSCFLG                              
025880,003464: 32,2366           00004                           INHINT                                         
025881,003465: 32,2367           34742                           CAF      BIT3                                  
025882,003466: 32,2370           00006                           EXTEND                                         #  GET RR RANGE SCALE
025883,003467: 32,2371           02033                           RAND     CHAN33                                #  FROM CHANNEL 33 BIT 3
025884,003468: 32,2372           54001                           TS       L                                     
025885,003469: 32,2373           44742                           CS       RRRSBIT                               
025886,003470: 32,2374           70110                           MASK     RADMODES                              
025887,003471: 32,2375           60001                           AD       L                                     
025888,003472: 32,2376           54110                           TS       RADMODES                              
025889,003473: 32,2377           00003                           RELINT                                         
025890,003474: 32,2400           04607        READRDOT           TC       BANKCALL                              
025891,003475: 32,2401           53072                           CADR     RRRDOT                                #  READ RANGE-RATE (ONE SAMPLE)
025892,003476: 32,2402           04607                           TC       BANKCALL                              
025893,003477: 32,2403           17733                           CADR     RADSTALL                              #  WAIT FOR DATA READ COMPLETION
025894,003478: 32,2404           12560                           TCF      EREXIT1                               #  COULD NOT READ RADAR-ERROR EXIT 1
025895,003479: 
025896,003480: 32,2405           00004                           INHINT                                         #  NO INTERRUPTS WHILE READING TIME AND CDU
025897,003481: 32,2406           53105                           DXCH     TIMEHOLD                              #  SET MARK TIME EQUAL TO THE MID-POINT
025898,003482: 32,2407           52162                           DXCH     MPAC       +5                         #  TEMP BUFFER FOR DOWNLINK
025899,003483: 32,2410           53101                           DXCH     SAMPLSUM                              #  SAVE RANGE-RATE READING
025900,003484: 32,2411           53747                           DXCH     RDOTMSAV                              
025901,003485: 32,2412           00006                           EXTEND                                         
025902,003486: 32,2413           30034                           DCA      CDUY                                  #  SAVE ICDU ANGLES
025903,003487: 32,2414           52160                           DXCH     MPAC       +3                         #  TEMP BUFFER FOR DOWNLINK
025904,003488: 32,2415           30032                           CA       CDUX                                  
025905,003489: 32,2416           54156                           TS       MPAC       +2                         #  TEMP BUFFER FOR DOWNLINK
025906,003490: 32,2417           00006                           EXTEND                                         
025907,003491: 32,2420           30025                           DCA      TIME2                                 #   SAVE TIME
025908,003492: 32,2421           52155                           DXCH     MPAC                                  #  SAVE TIME OF CDY READINGS IN MPAC
025909,003493: 32,2422           00006                           EXTEND                                         
025910,003494: 32,2423           30036                           DCA      CDUT                                  #  SAVE TRUNION AND SHAFT ANGLES FOR RRNB
025911,003495: 32,2424           53107                           DXCH     TANG                                  

Page 589

025913,003497: 32,2425           00003                           RELINT                                         
025914,003498: 32,2426           04607                           TC       BANKCALL                              
025915,003499: 32,2427           53074                           CADR     RRRANGE                               #  READ RR RANGE (ONE SAMPLE)
025916,003500: 32,2430           04607                           TC       BANKCALL                              
025917,003501: 32,2431           17733                           CADR     RADSTALL                              #  WAIT FOR READ COMPLETE
025918,003502: 32,2432           02554                           TC       CHEXERR                               #  CHECK FOR ERRORS DURING READ
025919,003503: 32,2433           00004                           INHINT                                         #  COPY CYCLE FOR MARK DATA ON DOWNLINK
025920,003504: 32,2434           00006                           EXTEND                                         
025921,003505: 32,2435           31331                           DCA      DNRRANGE                              #  RANGE,RANGE RATE (RAW DATA)
025922,003506: 32,2436           53761                           DXCH     RANGRDOT                              
025923,003507: 32,2437           52162                           DXCH     MPAC       +5                         
025924,003508: 32,2440           53755                           DXCH     MKTIME                                #  MARK TIME
025925,003509: 32,2441           52160                           DXCH     MPAC       +3                         
025926,003510: 32,2442           53460                           DXCH     AIG                                   #  CDUY, CDUZ
025927,003511: 32,2443           00006                           EXTEND                                         
025928,003512: 32,2444           31107                           DCA      TANG                                  #  PRESERVE TANG
025929,003513: 32,2445           53753                           DXCH     TANGNB                                #  TRUNNION AND SHAFT ANGLES
025930,003514: 32,2446           30156                           CA       MPAC       +2                         
025931,003515: 32,2447           55461                           TS       AOG                                   #  CDUX
025932,003516: 32,2450           06060                           TC       INTPRET                               
025933,003517: 32,2451           14025                           STODL    20D                                   #  SAVE TIME OF CDU READINGS IN 20D
025934,003518: 32,2452           03755                                    MKTIME                                
025935,003519: 32,2453           45225                           DSU      DSU                                   
025936,003520: 32,2454           01777                                    OLDAGS                                
025937,003521: 32,2455           24567                                    50SECS                                #  50 SECS SINCE LAST AGS DOWNLIST?
025938,003522: 32,2456           77440                           BMN      EXIT                                  
025939,003523: 32,2457           64472                                    NOAGS                                 #  NO
025940,003524: 
025941,003525: 32,2460           40110                           CS       FLGWRD12                              #  IS RR READING HIGH SCALE
025942,003526: 32,2461           74742                           MASK     RRRSBIT                               
025943,003527: 32,2462           10000                           CCS      A                                     
025944,003528: 32,2463           34724                           CA       POSMAX                                #  NO- LOW SCALE (SET CONFIG) AGSCODE=17776
025945,003529: 32,2464           62565                           AD       OCT57776                              #  YES- HI SCALE (SET CONFIG) AGSCODE=57776
025946,003530: 32,2465           55073                           TS       AGSCODE                               #  SET AGS CODE WORD
025947,003531: 32,2466           06060                           TC       INTPRET                               
025948,003532: 32,2467           77745                           DLOAD                                          
025949,003533: 32,2470           03755                                    MKTIME                                
025950,003534: 32,2471           01777                           STORE    OLDAGS                                #  SAVE AGS DOWNLINK TIME
025951,003535: 
025952,003536: 32,2472           77745        NOAGS              DLOAD                                          
025953,003537: 32,2473           03747                                    RDOTMSAV                              #  CONVERT RDOT UNITS AND SCALING
025954,003538: 32,2474           57261                           SL       DMPR                                  #  START WITH READING SCALED B-28, -.6278
025955,003539: 32,2475           20217                                    14D                                   #  FT./SECOND PER BIT
025956,003540: 32,2476           24002                                    RDOTCONV                              #  END WITH METERS/CENTISECOND, B-7
025957,003541: 32,2477           03751                           STORE    RDOTM                                 
025958,003542: 32,2500           47135                           SLOAD    RTB                                   
025959,003543: 32,2501           01107                                    TANG                                  #  GET TRUNION ANGLE
025960,003544: 32,2502           21606                                    CDULOGIC                              #  CONVERT TO DP ONES COMP. IN REVOLUTIONS
025961,003545: 32,2503           03734                           STORE    RRTRUN                                #  AND SAVE FOR TMI ROUTINE (LSR22.3)
025962,003546: 32,2504           47135                           SLOAD    RTB                                   

Page 590

025964,003548: 32,2505           01110                                    TANG       +1                         #  DITTO FOR SHAFT ANGLE
025965,003549: 32,2506           21606                                    CDULOGIC                              
025966,003550: 32,2507           17736                           STODL    RRSHAFT                               
025967,003551: 32,2510           01101                                    SAMPLSUM                              
025968,003552: 32,2511           66405                           DMP      SL2R                                  #  CONVERT UNITS AND SCALING OF RANGE
025969,003553: 32,2512           24004                                    RANGCONV                              #  PER BIT, END WITH METERS,SCALED -29
025970,003554: 32,2513           37757                           STCALL   RM                                    
025971,003555: 32,2514           46041                                    RRNB                                  #  COMPUTE RADAR LOS USING RRNB
025972,003556: 32,2515           17741                           STODL    RRBORSIT                              #  AND SAVE
025973,003557: 32,2516           00025                                    20D                                   
025974,003558: 32,2517           34041                           STCALL   TDEC1                                 #  GET STATE VECTOR LOS AT TIME OF CDU READ
025975,003559: 32,2520           51337                                    LPS20.1                               
025976,003560: 32,2521           77776                           EXIT                                           
025977,003561: 32,2522           31457                           CA       AIG                                   #  STORE IMU CDU ANGLES AT MARKTIME
025978,003562: 32,2523           54765                           TS       CDUSPOT                               #  IN CDUSPOT FOR TRG*SMNB
025979,003563: 32,2524           31460                           CA       AMG                                   
025980,003564: 32,2525           54767                           TS       CDUSPOT    +2                         
025981,003565: 32,2526           31461                           CA       AOG                                   
025982,003566: 32,2527           54771                           TS       CDUSPOT    +4                         
025983,003567: 32,2530           06060                           TC       INTPRET                               
025984,003568: 32,2531           45175                           VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
025985,003569: 32,2532           01101                                    RRTARGET                              
025986,003570: 32,2533           47643                                    TRG*SMNB                              #  ROTATE LOS AT MARKTIME FROM SM TO NB.
025987,003571: 32,2534           77641                           DOT                                            #  DOT WITH RADAR LOS TO GET ANGLE
025988,003572: 32,2535           03741                                    RRBORSIT                              
025989,003573: 32,2536           65552                           SL1      ACOS                                  #  BETWEEN THEM
025990,003574: 32,2537           01045                           STORE    DSPTEM1                               #  STORE FOR POSSIBLE DISPLAY
025991,003575: 32,2540           50025                           DSU      BMN                                   #  IS IT LESS THAN 3 DEGREES
025992,003576: 32,2541           24564                                    THREEDEG                              
025993,003577: 32,2542           64547                                    NORMEXIT                              #  YES-NORMAL EXIT
025994,003578: 
025995,003579: 32,2543           77776                           EXIT                                           #  ERROR EXIT 2
025996,003580: 32,2544           34743                           CAF      BIT2                                  #  SET ERROR CODE
025997,003581: 32,2545           54154                           TS       MPAC                                  
025998,003582: 32,2546           12552                           TCF      OUT22.1                               
025999,003583: 
026000,003584: 32,2547           77776        NORMEXIT           EXIT                                           #  NORMAL EXIT-SET MPAC EQUAL ZERO
026001,003585: 32,2550           34746                           CAF      ZERO                                  
026002,003586: 32,2551           54154                           TS       MPAC                                  
026003,003587: 32,2552           31737        OUT22.1            CAE      LRS22.1X                              #  EXIT FROM LRS22.1
026004,003588: 32,2553           04631                           TC       BANKJUMP                              
026005,003589: 32,2554           30101        CHEXERR            CAE      FLAGWRD5                              
026006,003590: 32,2555           74733                           MASK     RNGSCBIT                              
026007,003591: 32,2556           10000                           CCS      A                                     #  CHECK IF RANGE SCALE CHANGED
026008,003592: 32,2557           12400                           TCF      READRDOT                              #  YES-TAKE ANOTHER READING
026009,003593: 
026010,003594: 32,2560           34744        EREXIT1            CA       BIT1                                  #  SET ERROR CODE
026011,003595: 32,2561           54154                           TS       MPAC                                  
026012,003596: 32,2562           02552                           TC       OUT22.1                               
026013,003597: 32,2563           00210 21042  THREEDEG           2DEC     .008333333                            #  THREE DEGREES,SCALED  REVS,B0
026014,003598: 

Page 591

026016,003600: 32,2565           57776        OCT57776           OCT      57776                                 #  AGS CODE WORD - HIGH RANGE SCALE - SET
026017,003601: 32,2566           00000 11610  50SECS             2DEC     5000       B-28                       
026018,003602: 

Page 592

026020,003604:                                                                                                  #  PROGRAM NAME - LRS22.2 (DATA READ SUBROUTINE 2)
026021,003605: 
026022,003606: 
026023,003607:                                                                                                  #  MOD. NO. : 1       BY: P VOLANTE  SDC           DATE  4-11-67
026024,003608: 
026025,003609:                                                                                                  #  FUNCTIONAL DESCRIPTION-

(Yes, I know point #1 is missing. It is missing from the program listing -- RSB 2003)

026027,003611:                                                                                                  #     2) CHECKS IF THE RR LOS (I.E. THE RADAR BORESIGHT VECTOR) IS WITHIN 30 DEGREES OF THE LM +Z AXIS
026028,003612: 
026029,003613: 
026030,003614:                                                                                                  #  CALLING SEQUENCE- BANKCALL FOR LRS22.2
026031,003615: 
026032,003616: 
026033,003617:                                                                                                  #  SUBROUTINES CALLED: G+N,AUTO   SETMAXDB
026034,003618:                                                                                                  #  NORMAL EXIT - RETURN TO CALLER WITH MPAC SET TO +0 (VIA SWRETURN)
026035,003619: 
026036,003620: 
026037,003621:                                                                                                  #  ERROR EXIT - RETURN TO CALLER WITH MPAC SET TO 00001 -RADAR LOS NOT WITHIN 30 DEGREES OF LM +Z AXIS
026038,003622: 
026039,003623: 
026040,003624:                                                                                                  #  ALARMS - NONE                                                            IN THE AUTO MODE
026041,003625: 
026042,003626: 
026043,003627:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
026044,003628:                                                                                                  #       RRLOSVEC - THE RR LINE-OF-SIGHT VECTOR-A HALF UNIT VECTOR COMPUTED BY LRS22.1
026045,003629:                                                                                                  #       RM - RR RANGE, METERS B-29, FROM LRS22.1
026046,003630:                                                                                                  #       BIT 14 CHANNEL 31 -INDICATES AUTOPILOT IS IN AUTO MODE
026047,003631: 
026048,003632: 
026049,003633:                                                                                                  #  DEBRIS -  A,L,Q MPAC -PUSHLIST AND PUSHLOC ARE NOT CHANGED BY THIS ROUTINE
026050,003634: 
026051,003635: 24,2000                                           SETLOC   P20S                                  
026052,003636: 24,2000                                           BANK                                           
026053,003637: 24,3416           04636        LRS22.2            TC       MAKECADR                              
026054,003638: 24,3417           55737                           TS       LRS22.1X                              
026055,003639: 24,3420           06060                           TC       INTPRET                               
026056,003640:                                                                                                  #  CHECK IF RR LOS IS WITHIN 30 DEG OF 
026057,003641: 24,3421           65545        30DEGCHK           DLOAD    ACOS                                  #  THE SPACECRAFT +Z AXIS
026058,003642: 24,3422           03745                                    RRBORSIT   +4                         #  BY TAKING ARCCOS OF Z-COMP. OF THE RR
026059,003643:                                                                                                  #  LOS VECTOR,A HALF UNIT VECTOR
026060,003644:                                                                                                  #  IN NAV BASE AXES)
026061,003645: 24,3423           50025                           DSU      BMN                                   
026062,003646: 24,3424           11440                                    30DEG                                 
026063,003647: 24,3425           51432                                    OKEXIT                                #  NORMAL EXIT-WITHIN 30 DEG.
026064,003648: 24,3426           77776                           EXIT                                           #  ERROR EXIT-NOT WITHIN 30 DEG.
026065,003649: 24,3427           34744                           CAF      BIT1                                  #  SET ERROR CODE IN MPAC
026066,003650: 24,3430           54154                           TS       MPAC                                  
026067,003651: 24,3431           13435                           TCF      OUT22.2                               
026068,003652: 24,3432           77776        OKEXIT             EXIT                                           #  NORMAL EXIT-SET MPAC = ZERO
026069,003653: 

Page 593

026071,003655: 24,3433           34746                           CAF      ZERO                                  
026072,003656: 24,3434           54154                           TS       MPAC                                  
026073,003657: 24,3435           31737        OUT22.2            CAE      LRS22.1X                              
026074,003658: 24,3436           04631                           TC       BANKJUMP                              
026075,003659: 
026076,003660: 24,3437           02525 12525  30DEG              2DEC     .083333333                            #  THIRTY DEGREES,SCALED REVS,B0
026077,003661: 

Page 594

026079,003663:                                                                                                  #  PROGRAM NAME - LSR22.3                                                  DATE - 29 MAY 1967
026080,003664:                                                                                                  #  MOD. NO 3                                                               LOG SECTION - P20-25
026081,003665:                                                                                                  #  MOD. BY - DANFORTH                                                      ASSEMBLY LEMP20S REV 10
026082,003666: 
026083,003667:                                                                                                  #  FUNCTIONAL DESCRIPTION
026084,003668: 
026085,003669:                                                                                                  #  THIS ROUTINE COMPUTES THE B-VECTORS AND DELTA Q FOR EACH OF THE QUANTITIES MEASURED BY THE RENDEZVOUS
026086,003670:                                                                                                  #  RADAR.(RANGE,RANGE RATE,SHAFT AND TRUNNION ANGLES). THE ROUTINE CALLS THE INCORP1 AND INCORP2 ROUTINES
026087,003671:                                                                                                  #  WHICH COMPUTE THE DEVIATIONS AND CORRECT THE STATE VECTOR.
026088,003672: 
026089,003673:                                                                                                  #  CALLING SEQUENCE
026090,003674:                                                                                                  #  THIS ROUTINE IS PART OF P20 RENDEZVOUS NAVIGATION FOR THE LM COMPUTER O NLY. THE ROUTINE IS ENTERED FROM
026091,003675:                                                                                                  #  R22LEM  ONLY AND RETURNS DIRECTLY TO R22LEM  FOLLOWING SUCCESSFUL INCORPORATION OF MEASURED DATA. IF THE
026092,003676:                                                                                                  #  COMPUTED STATE VECTOR DEVIATIONS EXCEED THE MAXIMUM PERMITTED. THE ROUTINE RETURNS TO R22LEM  TO DISPLAY
026093,003677:                                                                                                  #  THE DEVIATIONS. IF THE ASTRONAUT ACCEPTS THE DATA R22LEM  RETURNS TO    LSR22.3 TO INCORPORATE THE
026094,003678:                                                                                                  #  DEVIATIONS INTO THE STATE VECTOR. IF THE ASTRONAUT REJECTS THE DEVIATIONS, NO MORE MEASUREMENTS ARE
026095,003679:                                                                                                  #  PROCESSED FOR THIS MARK,I.E.,R22LEM  GETS THE NEXT MARK.
026096,003680: 
026097,003681: 
026098,003682:                                                                                                  #  SUBROUTINES CALLED
026099,003683:                                                                                                  #   WLINIT     LGCUPDTE     INTEGRV     INCORP1     ARCTAN
026100,003684:                                                                                                  #   GETULC     RARARANG     INCORP2     NBSM        INTSTALL
026101,003685: 
026102,003686:                                                                                                  #  OUTPUT
026103,003687:                                                                                                  #   CORRECTED LM OR CSM STATE VECTOR (PERMANENT)
026104,003688:                                                                                                  #   NUMBER OF MARKS INCORPORATED IN MARKCTR
026105,003689:                                                                                                  #   MAGNITUDE OF POSITION DEVIATION (FOR DISPLAY) IN R22DISP METERS B-29
026106,003690:                                                                                                  #   MAGNITUDE OF VELOCITY DEVIATION (FOR DISPLAY) IN R22DISP +2 M/CSEC B-7
026107,003691:                                                                                                  #   UPDATED W-MATRIX
026108,003692: 
026109,003693: 
026110,003694:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
026111,003695:                                                                                                  #   LM AND CSM STATE VECTORS
026112,003696:                                                                                                  #   W-MATRIX
026113,003697:                                                                                                  #   MARK TIME IN MKTIME
026114,003698:                                                                                                  #   RADAR RANGE IN RM METERS B-29
026115,003699:                                                                                                  #         RANGE RATE IN RDOTM METERS/CSES B-7
026116,003700:                                                                                                  #         SHAFT ANGLE IN RRSHAFT REVS.B0
026117,003701:                                                                                                  #         TRUNNION ANGLE IN RRTRUN REVS. B0
026118,003702:                                                                                                  #   GIMBAL ANGLES  INNER IN AIG
026119,003703:                                                                                                  #                  MIDDLE IN AMG
026120,003704:                                                                                                  #                  OUTER IN AOG
026121,003705:                                                                                                  #   REFSMMAT
026122,003706:                                                                                                  #   RENDWFLG
026123,003707:                                                                                                  #   NOANGFLG
026124,003708:                                                                                                  #   VEHUPFLG
026125,003709: 
026126,003710:                                                                                                  #  DEBRIS
026127,003711:                                                                                                  #   PUSHLIST--ALL
026128,003712:                                                                                                  #   MX, MY, MZ  (VECTORS)

Page 595

026130,003714:                                                                                                  #   ULC,RXZ,SINTHETA,LGRET,RDRET,BVECTOR,W.IND,X78T
026131,003715: 
026132,003716: 
026133,003717: 13,2207                                           BANK     13                                    
026134,003718: 26,2000                                           SETLOC   P20S3                                 
026135,003719: 26,2000                                           BANK                                           
026136,003720: 
026137,003721: 26,2424  E7,1456                                  EBANK=   LOSCOUNT                              
026138,003722: 26,2424                                           COUNT*   $$/LSR22                              
026139,003723: 26,2424           77624        LSR22.3            CALL                                           
026140,003724: 26,2425           51770                                    GRP2PC                                
026141,003725: 26,2426           43014                           BON      SET                                   
026142,003726: 26,2427           04307                                    SURFFLAG                              #  ARE WE ON LUNAR SURFACE
026143,003727: 26,2430           55206                                    LSR22.4                               #  YES
026144,003728: 26,2431           02466                                    DMENFLG                               
026145,003729: 26,2432           45014                           BOFF     CALL                                  
026146,003730: 26,2433           00747                                    VEHUPFLG                              
026147,003731: 26,2434           54466                                    DOLEM                                 
026148,003732: 26,2435           27447                                    INTSTALL                              
026149,003733: 26,2436           45014                           CLEAR    CALL                                  #  LM PRECISION INTEGRATION
026150,003734: 26,2437           01674                                    VINTFLAG                              
026151,003735: 26,2440           26702                                    SETIFLGS                              
026152,003736: 26,2441           77624                           CALL                                           
026153,003737: 26,2442           53642                                    INTGRCAL                              
026154,003738: 26,2443           77624                           CALL                                           
026155,003739: 26,2444           51770                                    GRP2PC                                
026156,003740: 26,2445           77624                           CALL                                           
026157,003741: 26,2446           27447                                    INTSTALL                              
026158,003742: 26,2447           43014                           CLEAR    BOFF                                  
026159,003743: 26,2450           01676                                    DIM0FLAG                              
026160,003744: 26,2451           02756                                    RENDWFLG                              
026161,003745: 26,2452           54456                                    NOTWCSM                               
026162,003746: 26,2453           43014                           SET      SET                                   #  CSM WITH W-MATRIX INTEGRATION
026163,003747: 26,2454           01476                                    DIM0FLAG                              
026164,003748: 26,2455           01475                                    D6OR9FLG                              
026165,003749: 26,2456           43014        NOTWCSM            SET      CLEAR                                 
026166,003750: 26,2457           01474                                    VINTFLAG                              
026167,003751: 26,2460           01673                                    INTYPFLG                              
026168,003752: 26,2461           45014                           SET      CALL                                  
026169,003753: 26,2462           01472                                    STATEFLG                              
026170,003754: 26,2463           53642                                    INTGRCAL                              
026171,003755: 26,2464           77650                           GOTO                                           
026172,003756: 26,2465           54516                                    MARKTEST                              
026173,003757: 26,2466           77624        DOLEM              CALL                                           
026174,003758: 26,2467           27447                                    INTSTALL                              
026175,003759: 26,2470           45014                           SET      CALL                                  
026176,003760: 26,2471           01474                                    VINTFLAG                              
026177,003761: 26,2472           26702                                    SETIFLGS                              
026178,003762: 26,2473           77624                           CALL                                           
026179,003763: 26,2474           53642                                    INTGRCAL                              

Page 596

026181,003765: 26,2475           77624                           CALL                                           
026182,003766: 26,2476           51770                                    GRP2PC                                
026183,003767: 26,2477           77624                           CALL                                           
026184,003768: 26,2500           27447                                    INTSTALL                              
026185,003769: 26,2501           43014                           CLEAR    BOFF                                  
026186,003770: 26,2502           01676                                    DIM0FLAG                              
026187,003771: 26,2503           02756                                    RENDWFLG                              
026188,003772: 26,2504           54510                                    NOTWLEM                               
026189,003773: 26,2505           43014                           SET      SET                                   #  LM WITH W-MATRIX INTEGRATION
026190,003774: 26,2506           01476                                    DIM0FLAG                              
026191,003775: 26,2507           01475                                    D6OR9FLG                              
026192,003776: 26,2510           43014        NOTWLEM            CLEAR    CLEAR                                 
026193,003777: 26,2511           01673                                    INTYPFLG                              
026194,003778: 26,2512           01674                                    VINTFLAG                              
026195,003779: 26,2513           45014                           SET      CALL                                  
026196,003780: 26,2514           01472                                    STATEFLG                              
026197,003781: 26,2515           53642                                    INTGRCAL                              
026198,003782: 26,2516           45014        MARKTEST           BON      CALL                                  #  HAS W-MATRIX BEEN INVALIDATED
026199,003783: 26,2517           02716                                    RENDWFLG                              #  HAS W-MATRIX BEEN INVALIDATED
026200,003784: 26,2520           54522                                    RANGEBQ                               
026201,003785: 26,2521           55250                                    WLINIT                                #  YES-REINITIALIZE
026202,003786: 26,2522           77414        RANGEBQ            BON      EXIT                                  #  DON'T CALL R65 IF ON SURFACE
026203,003787: 26,2523           04307                                    SURFFLAG                              
026204,003788: 26,2524           54532                                    RANGEBQ1                              
026205,003789: 26,2525           34746                           CA       ZERO                                  
026206,003790: 26,2526           55745                           TS       R65CNTR                               
026207,003791: 26,2527           04607                           TC       BANKCALL                              
026208,003792: 26,2530           46123                           CADR     R65LEM                                
026209,003793: 26,2531           06060                           TC       INTPRET                               
026210,003794: 26,2532           43174        RANGEBQ1           AXT,2    BON                                   #  CLEAR X2
026211,003795: 26,2533           00000                                    0                                     
026212,003796: 26,2534           04304                                    LMOONFLG                              #  IS MOON SPHERE OF INFLUENCE
026213,003797: 26,2535           54540                                    SETX2                                 #  YES. STORE ZERO IN SCALSHFT REGISTER
026214,003798: 26,2536           77714                           INCR,2                                         
026215,003799: 26,2537           00002                                    2                                     
026216,003800: 26,2540           45134        SETX2              SXA,2    CALL                                  
026217,003801: 26,2541           03720                                    SCALSHFT                              #  0-MOON. 2-EARTH
026218,003802: 26,2542           51770                                    GRP2PC                                
026219,003803: 26,2543           66170                           AXT,1    SXA,1                                 #  STORE RANGE CODE (1) FOR R3 IN NOUN 49
026220,003804: 26,2544           00001                                    1                                     
026221,003805: 26,2545           01353                                    WHCHREAD                              
026222,003806: 26,2546           54335                           SLOAD    SR                                    #  GET SINGLE PRECISION RVARMIN (B-12)
026223,003807: 26,2547           01773                                    RVARMIN                               #  SHIFT TO TRIPLE PRECISION    (B-40)
026224,003808: 26,2550           20635                                    28D                                   
026225,003809: 26,2551           77634                           RTB                                            
026226,003810: 26,2552           21643                                    TPMODE                                #  AND SAVE  IN 20D
026227,003811: 26,2553           00025                           STORE    20D                                   
026228,003812: 26,2554           77624                           CALL                                           #  BEGIN COMPUTING THE B-VECTORS,DELTAQ
026229,003813: 26,2555           55332                                    GETULC                                #  B-VECTORS FOR RANGE
026230,003814: 26,2556           57414                           BON      VCOMP                                 #  B0, COMP. IF LM BEING CORRECTED

Page 597

026232,003816: 26,2557           00707                                    VEHUPFLG                              
026233,003817: 26,2560           54561                                    +1                                    
026234,003818: 26,2561           27525                           STOVL    BVECTOR                               
026235,003819: 26,2562           06505                                    ZEROVECS                              
026236,003820: 26,2563           03533                           STORE    BVECTOR    +6                         #  B1
026237,003821: 26,2564           17541                           STODL    BVECTOR    +12D                       #  B2
026238,003822: 26,2565           00045                                    36D                                   
026239,003823: 26,2566           44257                           SRR*     BDSU                                  
026240,003824: 26,2567           56174                                    2,2                                   #  SHIFT FROM EARTH/MOON SPHERE TO B-29
026241,003825: 26,2570           03757                                    RM                                    #  RM - (MAGNITUDE RCSM-RLM)
026242,003826: 26,2571           77657                           SLR*                                           
026243,003827: 26,2572           56574                                    2,2                                   #  SHIFT TO EARTH/MOON SPHERE
026244,003828: 26,2573           17547                           STODL    DELTAQ                                #  EARTH B-29. MOON B-27
026245,003829: 26,2574           00045                                    36D                                   #  RLC B-29/B-27
026246,003830: 26,2575           63501                           NORM     DSQ                                   #  NORMALIZE AND SQUARE
026247,003831: 26,2576           00047                                    X1                                    
026248,003832: 26,2577           53605                           DMP      SR*                                   
026249,003833: 26,2600           01767                                    RANGEVAR                              #  MULTIPLY BY RANGEVAR(B12) THEN
026250,003834: 26,2601           20577                                    0          -2,1                       #  UNNORMALIZE
026251,003835: 26,2602           53657                           SR*      SR*                                   
026252,003836: 26,2603           20601                                    0,1                                   
026253,003837: 26,2604           57176                                    0,2                                   
026254,003838: 26,2605           47057                           SR*      RTB                                   
026255,003839: 26,2606           57176                                    0,2                                   
026256,003840: 26,2607           21643                                    TPMODE                                
026257,003841: 26,2610           02707                           STORE    VARIANCE                              #  B-40
026258,003842: 26,2611           76276                           DCOMP    TAD                                   
026259,003843: 26,2612           00025                                    20D                                   #    B-40
026260,003844: 26,2613           72240                           BMN      TLOAD                                 
026261,003845: 26,2614           54617                                    QOK                                   
026262,003846: 26,2615           00025                                    20D                                   #    B-40
026263,003847: 26,2616           02707                           STORE    VARIANCE                              
026264,003848: 26,2617           77624        QOK                CALL                                           
026265,003849: 26,2620           55400                                    LGCUPDTE                              
026266,003850: 
026267,003851: 26,2621           45131                           SSP      CALL                                  
026268,003852: 26,2622           01354                                    WHCHREAD                              
026269,003853: 26,2623           00002                           DEC      2          B-14                       #  STORE R-RATE CODE (2) FOR R3 IN NOUN 49
026270,003854: 26,2624           51770                                    GRP2PC                                
026271,003855: 26,2625           77624                           CALL                                           #  B-VECTOR,DELTAQ FOR RANGE RATE
026272,003856: 26,2626           55332                                    GETULC                                
026273,003857: 26,2627           53725                           PDDL     SR*                                   #  GET RLC SCALED B-29/B-27
026274,003858: 26,2630           00045                                    36D                                   #  AND SHIFT TO B-23
026275,003859: 26,2631           57202                                    0          -4,2                       
026276,003860: 26,2632           24045                           STOVL    36D                                   #  THEN STORE BACK IN 36D
026277,003861: 26,2633           57414                           BON      VCOMP                                 #  B1, COMP. IF LM BEING CORRECTED
026278,003862: 26,2634           00707                                    VEHUPFLG                              
026279,003863: 26,2635           54636                                    +1                                    
026280,003864: 26,2636           77761                           VXSC                                           
026281,003865: 26,2637           00045                                    36D                                   #  B1 = RLC  (B-24/B-22)

Page 598

026283,003867: 26,2640           27533                           STOVL    BVECTOR    +6                         
026284,003868: 26,2641           01653                                    NUVLEM                                
026285,003869: 26,2642           53257                           VSR*     VAD                                   
026286,003870: 26,2643           57170                                    6,2                                   #  SHIFT FOR EARTH/MOON SPHERE
026287,003871: 26,2644           01667                                    VCVLEM                                #  EARTH B-7. MOON B-5
026288,003872: 26,2645           53715                           PDVL     VSR*                                  #  VL TO PD6
026289,003873: 26,2646           01601                                    NUVCSM                                
026290,003874: 26,2647           57170                                    6,2                                   #  SHIFT FOR EARTH/MOON SPHERE
026291,003875: 26,2650           52255                           VAD      VSU                                   
026292,003876: 26,2651           01615                                    VCVCSM                                
026293,003877: 26,2652           50315                           PDVL     DOT                                   #  VC - VL = VLC TO PD6
026294,003878: 26,2653           00001                                    0                                     
026295,003879: 26,2654           00007                                    6                                     
026296,003880: 26,2655           53606                           PUSH     SRR*                                  #  RDOT B-8/B-6 TO PD12
026297,003881: 26,2656           56174                                    2,2                                   #  SHIFT FROM EARTH/MOON SPHERE TO B-8
026298,003882: 26,2657           57316                           DSQ      DMPR                                  #  RDOT**2 B-16 X RATEVAR B12
026299,003883: 26,2660           01771                                    RATEVAR                               
026300,003884: 26,2661           02707                           STORE    VARIANCE                              
026301,003885: 26,2662           54335                           SLOAD    SR                                    
026302,003886: 26,2663           01774                                    VVARMIN                               #  GET SINGLE PRECISION VVARMIN (B+12)
026303,003887: 26,2664           20621                                    16D                                   #  SHIFT TO DP (B -4)
026304,003888: 26,2665           00031                           STORE    24D                                   #  AND SAVE IN 24D
026305,003889: 26,2666           50025                           DSU      BMN                                   #  IS MIN. VARIANCE > COMPUTED VARIANCE
026306,003890: 26,2667           02707                                    VARIANCE                              
026307,003891: 26,2670           54674                                    VOK                                   #  BRANCH - NO
026308,003892: 26,2671           77745                           DLOAD                                          #  YES - USE MINIMUM VARIANCE
026309,003893: 26,2672           00031                                    24D                                   
026310,003894: 26,2673           02707                           STORE    VARIANCE                              
026311,003895: 26,2674           60545        VOK                DLOAD    SR2                                   #  RDOT(PD12) FROM B-8/B-6
026312,003896: 26,2675           53725                           PDDL     SLR*                                  #  TO B-10/B-8
026313,003897: 26,2676           03751                                    RDOTM                                 #  SHIFT TO EARTH/MOON SPHERE
026314,003898: 26,2677           56577                                    0          -1,2                       #  B-7 TO B-10/B-8
026315,003899: 26,2700           77625                           DSU                                            
026316,003900: 26,2701           77675                           DMPR                                           
026317,003901: 26,2702           00045                                    36D                                   
026318,003902: 26,2703           27547                           STOVL    DELTAQ                                #    B-33
026319,003903: 26,2704           00001                                    0                                     #  NOW GET B0
026320,003904: 26,2705           47235                           VXV      VXV                                   #  (ULC X VLC) X ULC
026321,003905: 26,2706           57414                           BON      VCOMP                                 #  B0, COMP. IF LM BEING CORRECTED
026322,003906: 26,2707           00707                                    VEHUPFLG                              
026323,003907: 26,2710           54711                                    +1                                    
026324,003908: 26,2711           77657                           VSR*                                           
026325,003909: 26,2712           57200                                    0          -2,2                       #  SCALED B-5
026326,003910: 26,2713           27525                           STOVL    BVECTOR                               
026327,003911: 26,2714           06505                                    ZEROVECS                              
026328,003912: 26,2715           00025                           STORE    20D                                   #  ZERO OUT 20 TO 25 IN PUSHLIST
026329,003913: 26,2716           27541                           STOVL    BVECTOR    +12D                       
026330,003914: 26,2717           03525                                    BVECTOR                               
026331,003915: 26,2720           60246                           ABVAL    NORM                                  #  LOAD B0, GET MAGNITUDE AND NORMALIZE
026332,003916: 26,2721           00025                                    20D                                   #  SHIFT COUNT IN 20D

Page 599

026334,003918: 26,2722           51575                           VLOAD    ABVAL                                 
026335,003919: 26,2723           03533                                    BVECTOR    +6D                        #  LOAD B1, GET MAGNITUDE AND NORMALIZE
026336,003920: 26,2724           71301                           NORM     DLOAD                                 
026337,003921: 26,2725           00027                                    22D                                   #  SHIFT COUNT IN 22D
026338,003922: 26,2726           00027                                    22D                                   #  FIND WHICH SHIFT IS SMALLER
026339,003923: 26,2727           50025                           DSU      BMN                                   #  BRANCH- B0 HAS SMALLER SHIFT COUNT
026340,003924: 26,2730           00025                                    20D                                   
026341,003925: 26,2731           54735                                    VOK1                                  
026342,003926: 26,2732           52150                           LXA,1    GOTO                                  
026343,003927: 26,2733           00026                                    22D                                   #  LOAD X2 WITH THE SMALLER SHIFT COUNT
026344,003928: 26,2734           54737                                    VOK2                                  
026345,003929: 26,2735           77750        VOK1               LXA,1                                          
026346,003930: 26,2736           00024                                    20D                                   
026347,003931: 26,2737           53775        VOK2               VLOAD    VSL*                                  #  THEN ADJUST B0,B1,DELTAQ AND VARIANCE
026348,003932: 26,2740           03525                                    BVECTOR                               #  WITH THIS SHIFT COUNT
026349,003933: 26,2741           20201                                    0,1                                   
026350,003934: 26,2742           27525                           STOVL    BVECTOR                               
026351,003935: 26,2743           03533                                    BVECTOR    +6                         
026352,003936: 26,2744           77657                           VSL*                                           
026353,003937: 26,2745           20201                                    0,1                                   
026354,003938: 26,2746           17533                           STODL    BVECTOR    +6                         
026355,003939: 26,2747           03547                                    DELTAQ                                
026356,003940: 26,2750           77657                           SL*                                            
026357,003941: 26,2751           20201                                    0,1                                   
026358,003942: 26,2752           03547                           STORE    DELTAQ                                
026359,003943: 26,2753           53745                           DLOAD    SL*                                   #  GET RLC AND ADJUST FOR SCALE SHIFT
026360,003944: 26,2754           00045                                    36D                                   
026361,003945: 26,2755           20200                                    0          -1,1                       
026362,003946: 26,2756           41316                           DSQ      DMP                                   #  MULTIPLY RLC**2 BY VARIANCE
026363,003947: 26,2757           02707                                    VARIANCE                              
026364,003948: 26,2760           47012                           SL4      RTB                                   #  SHIFT TO CONFORM TO BVECTORS AND DELTAQ
026365,003949: 26,2761           21643                                    TPMODE                                
026366,003950: 26,2762           36707                           STCALL   VARIANCE                              #  AND STORE TP VARIANCE
026367,003951: 26,2763           55400                                    LGCUPDTE                              
026368,003952: 
026369,003953: 26,2764           77624                           CALL                                           
026370,003954: 26,2765           51770                                    GRP2PC                                
026371,003955: 26,2766           77414                           BON      EXIT                                  #  ARE ANGLES TO BE DONE
026372,003956: 26,2767           04307                                    SURFFLAG                              
026373,003957: 26,2770           55204                                    RENDEND                               #  NO
026374,003958: 26,2771  E7,1457                                  EBANK=   AIG                                   
026375,003959: 26,2771           33331        MXMYMZ             CAF      AIGBANK                               
026376,003960: 26,2772           54006                           TS       BBANK                                 
026377,003961: 26,2773           31457                           CA       AIG                                   #  YES, COMPUTE  MX, MY, MZ
026378,003962: 26,2774           54765                           TS       CDUSPOT                               
026379,003963: 26,2775           31460                           CA       AMG                                   
026380,003964: 26,2776           54767                           TS       CDUSPOT    +2                         
026381,003965: 26,2777           31461                           CA       AOG                                   
026382,003966: 26,3000           54771                           TS       CDUSPOT    +4                         #  GIMBL ANGLES NOW IN CDUSPOT FOR TRG*NBSM
026383,003967: 26,3001           06060                           TC       INTPRET                               

Page 600

026385,003969: 26,3002           45175                           VLOAD    CALL                                  
026386,003970: 26,3003           06503                                    UNITX                                 
026387,003971: 26,3004           47656                                    TRG*NBSM                              
026388,003972: 26,3005           76505                           VXM      VSL1                                  
026389,003973: 26,3006           01732                                    REFSMMAT                              
026390,003974: 26,3007           27677                           STOVL    MX                                    
026391,003975: 26,3010           06501                                    UNITY                                 
026392,003976: 26,3011           77624                           CALL                                           
026393,003977: 26,3012           47665                                    *NBSM*                                
026394,003978: 26,3013           76505                           VXM      VSL1                                  
026395,003979: 26,3014           01732                                    REFSMMAT                              
026396,003980: 26,3015           27705                           STOVL    MY                                    
026397,003981: 26,3016           06477                                    UNITZ                                 
026398,003982: 26,3017           77624                           CALL                                           
026399,003983: 26,3020           47665                                    *NBSM*                                
026400,003984: 26,3021           76505                           VXM      VSL1                                  
026401,003985: 26,3022           01732                                    REFSMMAT                              
026402,003986: 26,3023           37713        SHAFTBQ            STCALL   MZ                                    
026403,003987: 26,3024           55360                                    RADARANG                              
026404,003988: 26,3025           77331                           SSP      VLOAD                                 #  STORE SHAFT CODE (3) FOR R3 IN NOUN 49
026405,003989: 26,3026           01354                                    WHCHREAD                              
026406,003990: 26,3027           00003                           DEC      3          B-14                       
026407,003991: 26,3030           03724                                    ULC                                   
026408,003992: 26,3031           72441                           DOT      SL1                                   
026409,003993: 26,3032           03677                                    MX                                    
026410,003994: 26,3033           24023                           STOVL    SINTH                                 #  18D
026411,003995: 26,3034           03724                                    ULC                                   
026412,003996: 26,3035           72441                           DOT      SL1                                   
026413,003997: 26,3036           03713                                    MZ                                    
026414,003998: 26,3037           34021                           STCALL   COSTH                                 #  16D
026415,003999: 26,3040           26545                                    ARCTAN                                
026416,004000: 26,3041           41221                           BDSU     DMP                                   
026417,004001: 26,3042           03736                                    RRSHAFT                               
026418,004002: 26,3043           15440                                    2PI/8                                 
026419,004003: 26,3044           41472                           SL3R     PUSH                                  
026420,004004: 26,3045           52545                           DLOAD    SL3                                   
026421,004005: 26,3046           01701                                    X789                                  
026422,004006: 26,3047           44257                           SRR*     BDSU                                  #  SHIFT FROM -5/-3 TO B0
026423,004007: 26,3050           56176                                    0,2                                   
026424,004008: 26,3051           53605                           DMP      SRR*                                  
026425,004009: 26,3052           03722                                    RXZ                                   
026426,004010: 26,3053           21601                                    0,1                                   #  SHIFT TO EARTH/MOON SPHERE
026427,004011: 26,3054           27547                           STOVL    DELTAQ                                #  EARTH B-29. MOON B-27
026428,004012: 26,3055           03724                                    ULC                                   
026429,004013: 26,3056           76435                           VXV      VSL1                                  
026430,004014: 26,3057           03705                                    MY                                    
026431,004015: 26,3060           77656                           UNIT                                           
026432,004016: 26,3061           57414                           BOFF     VCOMP                                 #  B0, COMP. IF CSM BEING CORRECTED
026433,004017: 26,3062           00747                                    VEHUPFLG                              
026434,004018: 26,3063           55064                                    +1                                    

Page 601

026436,004020: 26,3064           27525                           STOVL    BVECTOR                               
026437,004021: 26,3065           06505                                    ZEROVECS                              
026438,004022: 26,3066           03533                           STORE    BVECTOR    +6                         
026439,004023: 26,3067           17541                           STODL    BVECTOR    +12D                       
026440,004024: 26,3070           03722                                    RXZ                                   
026441,004025: 26,3071           53657                           SR*      SRR*                                  #  SHIFT FROM EARTH/MOON SPHERE TO B-25
026442,004026: 26,3072           20577                                    0          -2,1                       
026443,004027: 26,3073           56176                                    0,2                                   
026444,004028: 26,3074           03541                           STORE    BVECTOR    +12D                       
026445,004029: 26,3075           77735                           SLOAD                                          
026446,004030: 26,3076           02011                                    SHAFTVAR                              
026447,004031: 26,3077           41215                           DAD      DMP                                   
026448,004032: 26,3100           15435                                    IMUVAR                                #  RAD**2 B12
026449,004033: 26,3101           03722                                    RXZ                                   
026450,004034: 26,3102           41257                           SRR*     DMP                                   
026451,004035: 26,3103           21601                                    0,1                                   #  SHIFT TO EARTH/MOON SPHERE
026452,004036: 26,3104           03722                                    RXZ                                   
026453,004037: 26,3105           53657                           SR*      SR*                                   
026454,004038: 26,3106           20577                                    0          -2,1                       
026455,004039: 26,3107           57176                                    0,2                                   
026456,004040: 26,3110           47057                           SR*      RTB                                   
026457,004041: 26,3111           57176                                    0,2                                   
026458,004042: 26,3112           21643                                    TPMODE                                #  STORE VARIANCE TRIPLE PRECISION
026459,004043: 26,3113           36707                           STCALL   VARIANCE                              #  B-40
026460,004044: 26,3114           55400                                    LGCUPDTE                              
026461,004045: 
026462,004046: 26,3115           77624                           CALL                                           
026463,004047: 26,3116           51770                                    GRP2PC                                
026464,004048: 26,3117           77624        TRUNBQ             CALL                                           
026465,004049: 26,3120           55360                                    RADARANG                              
026466,004050: 26,3121           77331                           SSP      VLOAD                                 #  STORE TRUNNION CODE (4) FOR R3 IN N49
026467,004051: 26,3122           01354                                    WHCHREAD                              
026468,004052: 26,3123           00004                           DEC      4          B-14                       
026469,004053: 26,3124           03724                                    ULC                                   
026470,004054: 26,3125           76435                           VXV      VSL1                                  
026471,004055: 26,3126           03705                                    MY                                    
026472,004056: 26,3127           76435                           VXV      VSL1                                  #  (ULC X MY) X ULC
026473,004057: 26,3130           03724                                    ULC                                   
026474,004058: 26,3131           57414                           BOFF     VCOMP                                 #  B0, COMP. IF CSM BEING CORRECTED
026475,004059: 26,3132           00747                                    VEHUPFLG                              
026476,004060: 26,3133           55134                                    +1                                    
026477,004061: 26,3134           27525                           STOVL    BVECTOR                               
026478,004062: 26,3135           06505                                    ZEROVECS                              
026479,004063: 26,3136           03533                           STORE    BVECTOR    +6                         
026480,004064: 26,3137           17541                           STODL    BVECTOR    +12D                       
026481,004065: 26,3140           03722                                    RXZ                                   
026482,004066: 26,3141           53657                           SR*      SRR*                                  #  SHIFT FROM EARTH/MOON SPHERE TO B-25
026483,004067: 26,3142           20577                                    0          -2,1                       
026484,004068: 26,3143           56176                                    0,2                                   
026485,004069: 26,3144           03543                           STORE    BVECTOR    +14D                       

Page 602

026487,004071: 26,3145           77735                           SLOAD                                          
026488,004072: 26,3146           02012                                    TRUNVAR                               
026489,004073: 26,3147           41215                           DAD      DMP                                   
026490,004074: 26,3150           15435                                    IMUVAR                                
026491,004075: 26,3151           03722                                    RXZ                                   
026492,004076: 26,3152           41257                           SRR*     DMP                                   
026493,004077: 26,3153           21601                                    0,1                                   #  SHIFT TO EARTH/MOON SPHERE
026494,004078: 26,3154           03722                                    RXZ                                   
026495,004079: 26,3155           53657                           SR*      SR*                                   
026496,004080: 26,3156           20577                                    0          -2,1                       
026497,004081: 26,3157           57176                                    0,2                                   
026498,004082: 26,3160           47057                           SR*      RTB                                   
026499,004083: 26,3161           57176                                    0,2                                   
026500,004084: 26,3162           21643                                    TPMODE                                #  STORE VARIANCE TRIPLE PRECISION
026501,004085: 26,3163           16707                           STODL    VARIANCE                              
026502,004086: 26,3164           03732                                    SINTHETA                              
026503,004087: 26,3165           44336                           ASIN     BDSU                                  #  SIN THETA IN PD6
026504,004088: 26,3166           03734                                    RRTRUN                                
026505,004089: 26,3167           56405                           DMP      SL3R                                  
026506,004090: 26,3170           15440                                    2PI/8                                 
026507,004091: 26,3171           52525                           PDDL     SL3                                   
026508,004092: 26,3172           01703                                    X789       +2                         
026509,004093: 26,3173           44257                           SRR*     BDSU                                  #  SHIFT FROM -5/-3 TO B0
026510,004094: 26,3174           56176                                    0,2                                   
026511,004095: 26,3175           53605                           DMP      SRR*                                  
026512,004096: 26,3176           03722                                    RXZ                                   
026513,004097: 26,3177           21601                                    0,1                                   
026514,004098: 26,3200           37547                           STCALL   DELTAQ                                #  EARTH B-29. MOON B-27
026515,004099: 26,3201           55400                                    LGCUPDTE                              
026516,004100: 26,3202           77624                           CALL                                           
026517,004101: 26,3203           51770                                    GRP2PC                                
026518,004102: 26,3204           77650        RENDEND            GOTO                                           
026519,004103: 26,3205           50644                                    R22LEM93                              
026520,004104:                                                                                                  #  FUNCTIONAL DESCRIPTION
026521,004105: 
026522,004106:                                                                                                  #  LSR22.4 IS THE ENTRY TO PERFORM LUNAR SURFACE NAVIGATION FOR THE LM
026523,004107:                                                                                                  #  COMPUTER ONLY. THIS ROUTINE COMPUTES THE B-VECTORS AND DELTA Q FOR RANGE
026524,004108:                                                                                                  #  AND RANGE RATE MEASURED BY THE RENDEZVOUS RADAR
026525,004109: 
026526,004110:                                                                                                  #  SUBROUTINES CALLED
026527,004111:                                                                                                  #   INSTALL   LGCUPDTE  INCORP1   RP-TO-R
026528,004112:                                                                                                  #   INTEGRV   GETULC    INCORP2
026529,004113: 
026530,004114:                                                                                                  #  OUTPUT
026531,004115:                                                                                                  #   CORRECTED CSM STATE VECTOR (PERMANENT)
026532,004116:                                                                                                  #   NUMBER OF MARKS INCORPORATED IN MARKCTR
026533,004117:                                                                                                  #   MAGNITUDE OF POSITION DEVIATION (FOR DISPLAY) IN R22DISP METERS B-29
026534,004118:                                                                                                  #   MAGNITUDE OF VELOCITY DEVIATION (FOR DISPLAY) IN R22DISP +2 M/CSEC B-7
026535,004119:                                                                                                  #   UPDATED W-MATRIX
026536,004120: 

Page 603

026538,004122:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
026539,004123:                                                                                                  #   LM AND CSM STATE VECTORS
026540,004124:                                                                                                  #   W-MATRIX
026541,004125:                                                                                                  #   MARK TIME IN MKTIME
026542,004126:                                                                                                  #   RADAR RANGE IN RM METERS B-29
026543,004127:                                                                                                  #         RANGE RATE IN RDOTM METERS/CSEC B-7
026544,004128:                                                                                                  #   VEHUPFLG
026545,004129: 
026546,004130: 
026547,004131: 26,3206           77624        LSR22.4            CALL                                           
026548,004132: 26,3207           27447                                    INTSTALL                              
026549,004133: 26,3210           43014                           SET      CLEAR                                 
026550,004134: 26,3211           01472                                    STATEFLG                              
026551,004135: 26,3212           01674                                    VINTFLAG                              #  CALL TO GET LM POS + VEL IN REF COORD.
026552,004136: 26,3213           77624                           CALL                                           
026553,004137: 26,3214           53642                                    INTGRCAL                              
026554,004138: 26,3215           77624                           CALL                                           
026555,004139: 26,3216           51770                                    GRP2PC                                
026556,004140: 26,3217           45014                           CLEAR    CALL                                  
026557,004141: 26,3220           02666                                    DMENFLG                               #  SET MATRIX SIZE TO 6X6 FOR INCORP
026558,004142: 26,3221           27447                                    INTSTALL                              
026559,004143: 26,3222           46145                           DLOAD    BHIZ                                  #  IS THIS FIRST TIME THROUGH
026560,004144: 26,3223           03463                                    MARKCTR                               
026561,004145: 26,3224           55237                                    INITWMX6                              #  YES. INITIALIZE 6X6 W-MATRIX
026562,004146: 26,3225           43014                           CLEAR    SET                                   
026563,004147: 26,3226           01675                                    D6OR9FLG                              
026564,004148: 26,3227           01476                                    DIM0FLAG                              
026565,004149: 26,3230           43014                           SET      CLEAR                                 
026566,004150: 26,3231           01474                                    VINTFLAG                              
026567,004151: 26,3232           01673                                    INTYPFLG                              
026568,004152: 26,3233           77624                           CALL                                           
026569,004153: 26,3234           53642                                    INTGRCAL                              
026570,004154: 26,3235           77650                           GOTO                                           
026571,004155: 26,3236           54522                                    RANGEBQ                               
026572,004156: 
026573,004157: 26,3237           77624        INITWMX6           CALL                                           
026574,004158: 26,3240           55250                                    WLINIT                                #  INITIALIZE W-MATRIX
026575,004159: 26,3241           45014                           SET      CALL                                  
026576,004160: 26,3242           01474                                    VINTFLAG                              
026577,004161: 26,3243           26702                                    SETIFLGS                              
026578,004162: 26,3244           77624                           CALL                                           
026579,004163: 26,3245           53642                                    INTGRCAL                              
026580,004164: 26,3246           77650                           GOTO                                           
026581,004165: 26,3247           54522                                    RANGEBQ                               
026582,004166: 
026583,004167:                                                                                                  #  THIS ROUTINE CLEARS RFINAL (DP) AND CALLS INTEGRV
026584,004168: 
026585,004169: 25,2000                                           SETLOC   P20S1                                 
026586,004170: 25,2000                                           BANK                                           

Page 604

026588,004172: 25,3642           71220        INTGRCAL           STQ      DLOAD                                 
026589,004173: 25,3643           03675                                    IGRET                                 
026590,004174: 25,3644           03755                                    MKTIME                                
026591,004175: 25,3645           34041                           STCALL   TDEC1                                 
026592,004176: 25,3646           27172                                    INTEGRV                               
026593,004177: 25,3647           77650                           GOTO                                           
026594,004178: 25,3650           03675                                    IGRET                                 
026595,004179: 
026596,004180:                                                                                                  #  THIS ROUTINE INITIALIZES THE W-MATRIX BY ZEROING ALL W THEN SETTING
026597,004181:                                                                                                  #  DIAGONAL ELEMENTS TO INITIAL STORED VALUES.
026598,004182: 
026599,004183: 26,2000                                           SETLOC   P20S3                                 
026600,004184: 26,2000                                           BANK                                           
026601,004185: 
026602,004186: 26,3250  E5,1400                                  EBANK=   W                                     
026603,004187: 26,3250           77776        WLINIT             EXIT                                           
026604,004188: 26,3251           33330                           CAF      WBANK                                 
026605,004189: 26,3252           54006                           TS       BBANK                                 
026606,004190: 26,3253           33436                           CAF      WSIZE                                 
026607,004191: 26,3254           55256                           TS       W.IND                                 
026608,004192: 26,3255           34746                           CAF      ZERO                                  
026609,004193: 26,3256           51256                           INDEX    W.IND                                 
026610,004194: 26,3257           55400                           TS       W                                     
026611,004195: 26,3260           11256                           CCS      W.IND                                 
026612,004196: 26,3261           03254                           TC       -5                                    
026613,004197: 26,3262           33331                           CAF      AIGBANK                               #  RESTORE EBANK 7
026614,004198: 26,3263           54006                           TS       BBANK                                 
026615,004199: 26,3264           06060                           TC       INTPRET                               
026616,004200: 26,3265           67214                           BON      SLOAD                                 #  IF ON LUNAR SURFACE,INITIALIZE WITH 
026617,004201: 26,3266           04307                                    SURFFLAG                              #  WSURFPOS AND WSURFVEL INSTEAD OF
026618,004202: 26,3267           55273                                    WLSRFPOS                              #  WRENDPOS AND WRENDVEL
026619,004203: 26,3270           02001                                    WRENDPOS                              
026620,004204: 26,3271           77650                           GOTO                                           
026621,004205: 26,3272           55275                                    WPOSTORE                              
026622,004206: 26,3273           77735        WLSRFPOS           SLOAD                                          
026623,004207: 26,3274           02007                                    WSURFPOS                              
026624,004208: 26,3275           77661        WPOSTORE           SR                                             #  SHIFT TO B-19 SCALE
026625,004209: 26,3276           20606                                    5                                     
026626,004210: 26,3277           02401                           STORE    W                                     
026627,004211: 26,3300           02411                           STORE    W          +8D                        
026628,004212: 26,3301           02421                           STORE    W          +16D                       
026629,004213: 26,3302           67214                           BON      SLOAD                                 
026630,004214: 26,3303           04307                                    SURFFLAG                              
026631,004215: 26,3304           55310                                    WLSRFVEL                              
026632,004216: 26,3305           02002                                    WRENDVEL                              
026633,004217: 26,3306           77650                           GOTO                                           
026634,004218: 26,3307           55312                                    WVELSTOR                              
026635,004219: 26,3310           77735        WLSRFVEL           SLOAD                                          
026636,004220: 26,3311           02010                                    WSURFVEL                              
026637,004221: 26,3312           02511        WVELSTOR           STORE    W          +72D                       

Page 605

026639,004223: 26,3313           02521                           STORE    W          +80D                       
026640,004224: 26,3314           02531                           STORE    W          +88D                       
026641,004225: 26,3315           77735                           SLOAD                                          
026642,004226: 26,3316           02003                                    WSHAFT                                
026643,004227: 26,3317           02621                           STORE    W          +144D                      
026644,004228: 26,3320           77735                           SLOAD                                          
026645,004229: 26,3321           02004                                    WTRUN                                 
026646,004230: 26,3322           02631                           STORE    W          +152D                      
026647,004231: 26,3323           66214                           SET      SSP                                   #  SET RENDWFLG - W-MATRIX VALID
026648,004232: 26,3324           02476                                    RENDWFLG                              
026649,004233: 26,3325           03463                                    MARKCTR                               #  SET MARK COUNTER EQUAL ZERO
026650,004234: 26,3326           00000                                    0                                     
026651,004235: 26,3327           77616                           RVQ                                            
026652,004236: 
026653,004237: 26,3330  E5,1400                                  EBANK=   W                                     
026654,004238: 26,3330           54065        WBANK              BBCON    WLINIT                                
026655,004239: 26,3331  E7,1457                                  EBANK=   AIG                                   
026656,004240: 26,3331           54067        AIGBANK            BBCON    LSR22.3                               
026657,004241: 
026658,004242:                                                                                                  #  GETULC
026659,004243: 
026660,004244:                                                                                                  #  THIS SUBROUTINE COMPUTES THE RELATIVE POSITION VECTOR BETWEEN THE CSM
026661,004245:                                                                                                  #  AND THE LM, LEAVING THE UNIT VECTOR IN THE PUSHLIST AND MPAC AND THE
026662,004246:                                                                                                  #  MAGNITUDE IN 36D.
026663,004247: 
026664,004248: 26,3332           77201        GETULC             SETPD    VLOAD                                 
026665,004249: 26,3333           00001                                    0                                     
026666,004250: 26,3334           01645                                    DELTALEM                              
026667,004251: 26,3335           77754                           LXA,2                                          
026668,004252: 26,3336           03720                                    SCALSHFT                              #  LOAD X2 WITH SCALE SHIFT
026669,004253: 26,3337           53257                           VSR*     VAD                                   
026670,004254: 26,3340           57165                                    9D,2                                  #  SHIFT FOR EARTH/MOON SPHERE
026671,004255: 26,3341           01661                                    RCVLEM                                
026672,004256: 26,3342           53715                           PDVL     VSR*                                  
026673,004257: 26,3343           01573                                    DELTACSM                              
026674,004258: 26,3344           57165                                    9D,2                                  #  SHIFT FOR EARTH/MOON SPHERE
026675,004259: 26,3345           52255                           VAD      VSU                                   
026676,004260: 26,3346           01607                                    RCVCSM                                
026677,004261: 26,3347           41434                           RTB      PUSH                                  #  USE NORMUNIT TO PRESERVE ACCURACY
026678,004262: 26,3350           21722                                    NORMUNX1                              
026679,004263: 26,3351           17724                           STODL    ULC                                   
026680,004264: 26,3352           00045                                    36D                                   
026681,004265: 26,3353           77657                           SL*                                            #  ADJUST MAGNITUDE FROM NORMUNIT
026682,004266: 26,3354           20201                                    0,1                                   
026683,004267: 26,3355           24045                           STOVL    36D                                   #  ULC IN PD0 AND MPAC,RLC IN 36D
026684,004268: 26,3356           03724                                    ULC                                   
026685,004269: 26,3357           77616                           RVQ                                            
026686,004270: 
026687,004271:                                                                                                  #  RADARANG
026688,004272: 
026689,004273:                                                                                                  #  THIS SUBROUTINE COMPUTES SINTHETA = -ULC DOT MY

Page 606

026691,004275:                                                                                                  #  RXZ = (SQRT (1-SINTHETA**2))RLC
026692,004276:                                                                                                  #  OUTPUT
026693,004277:                                                                                                  #   ULC IN ULC, PD0
026694,004278:                                                                                                  #   RLC  IN PD36D
026695,004279:                                                                                                  #   SIN THETA IN SINTHETA AND PD6
026696,004280:                                                                                                  #   RXZ NORM IN RXZ (N IN X1)
026697,004281: 26,3360           45020        RADARANG           STQ      CALL                                  
026698,004282: 26,3361           03675                                    RDRET                                 
026699,004283: 26,3362           55332                                    GETULC                                
026700,004284: 26,3363           50276                           VCOMP    DOT                                   
026701,004285: 26,3364           03705                                    MY                                    
026702,004286: 26,3365           41572                           SL1R     PUSH                                  #  SIN THETA TO PD6
026703,004287: 26,3366           03732                           STORE    SINTHETA                              
026704,004288: 26,3367           44316                           DSQ      BDSU                                  
026705,004289: 26,3370           06475                                    DP1/4TH                               #  1 - (SIN THETA)**2
026706,004290: 26,3371           41366                           SQRT     DMP                                   
026707,004291: 26,3372           00045                                    36D                                   
026708,004292: 26,3373           60352                           SL1      NORM                                  
026709,004293: 26,3374           00047                                    X1                                    #  SET SHIFT COUNTER IN X1
026710,004294: 26,3375           03722                           STORE    RXZ                                   
026711,004295: 26,3376           77650                           GOTO                                           #  EXIT
026712,004296: 26,3377           03675                                    RDRET                                 
026713,004297: 26,3400           45020        LGCUPDTE           STQ      CALL                                  
026714,004298: 26,3401           03675                                    LGRET                                 
026715,004299: 26,3402           46514                                    INCORP1                               
026716,004300: 26,3403           51575                           VLOAD    ABVAL                                 
026717,004301: 26,3404           02673                                    DELTAX     +6                         
026718,004302: 26,3405           53754                           LXA,2    SRR*                                  
026719,004303: 26,3406           03720                                    SCALSHFT                              #  0-MOON. 2-EARTH
026720,004304: 26,3407           56174                                    2,2                                   #  SET VEL DISPLAY TO B-7
026721,004305: 26,3410           24317                           STOVL    R22DISP    +2                         
026722,004306: 26,3411           02665                                    DELTAX                                
026723,004307: 26,3412           53646                           ABVAL    SRR*                                  
026724,004308: 26,3413           56174                                    2,2                                   #  SET POS DISPLAY TO B-29
026725,004309: 26,3414           00315                           STORE    R22DISP                               
026726,004310: 26,3415           54335                           SLOAD    SR                                    
026727,004311: 26,3416           02005                                    RMAX                                  
026728,004312: 26,3417           20613                                    10D                                   
026729,004313: 26,3420           50025                           DSU      BMN                                   
026730,004314: 26,3421           00315                                    R22DISP                               
026731,004315: 26,3422           50650                                    R22LEM96                              #  GO DISPLAY
026732,004316: 26,3423           45335                           SLOAD    DSU                                   
026733,004317: 26,3424           02006                                    VMAX                                  
026734,004318: 26,3425           00317                                    R22DISP    +2                         #  VMAX MINUS VEL. DEVIATION
026735,004319: 26,3426           77640                           BMN                                            
026736,004320: 26,3427           50650                                    R22LEM96                              #  GO DISPLAY
026737,004321: 26,3430           77624        ASTOK              CALL                                           
026738,004322: 26,3431           46726                                    INCORP2                               
026739,004323: 26,3432           77650                           GOTO                                           
026740,004324: 26,3433           03675                                    LGRET                                 
026741,004325: 

Page 607

026743,004327: 26,3434           00103 03370  IMUVAR             2DEC     E-6        B12                        #  RAD**2
026744,004328: 
026745,004329: 26,3436           00241        WSIZE              DEC      161        B-14                       
026746,004330: 26,3437           31103 36652  2PI/8              2DEC     3.141592653 B-2                        
026747,004331: 
026748,004332: 26,3441  E7,1456                                  EBANK=   LOSCOUNT                              
026749,004333: 

Page 608

026751,004335:                                                                                                  #  PROGRAM NAME LRS24.1   RR SEARCH ROUTINE
026752,004336:                                                                                                  #  MOD NO  0        BY  P VOLANTE  SDC          DATE 1-15-67
026753,004337: 
026754,004338: 
026755,004339:                                                                                                  #  FUNCTIONAL DESCRIPTION
026756,004340: 
026757,004341:                                                                                                  #  DRIVES THE RENDEZVOUS RADAR IN A HEXAGONAL SEARCH PATTERN ABOUT THE LOS TO THE CSM (COMPUTED FROM THE CSM AND LM
026758,004342:                                                                                                  #  STATE VECTORS) CHECKING FOR THE DATA GOOD DISCRETE AND MONITORING THE ANGLE BETWEEN THE RADAR BORESIGHT AND THE
026759,004343:                                                                                                  #  LM +Z AXIS. IF THIS ANGLE EXCEEDS 30 DEGREES THE PREFERRED TRACKING ATTITUDE ROUTINE IS CALLED TO PERFORM AN
026760,004344:                                                                                                  #  ATTITUDE MANEUVER.
026761,004345: 
026762,004346: 
026763,004347:                                                                                                  #  CALLING SEQUENCE - BANKCALL FOR LRS24.1
026764,004348: 
026765,004349: 
026766,004350:                                                                                                  #  SUBROUTINES CALLED
026767,004351: 
026768,004352:                                                                                                  #        LEMCONIC      R61LEM
026769,004353:                                                                                                  #        CSMCONIC      RRDESSM
026770,004354:                                                                                                  #        JOBDELAY      FLAGDOWN
026771,004355:                                                                                                  #        WAITLIST      FLAGUP
026772,004356:                                                                                                  #        RRNB          BANKCALL
026773,004357: 
026774,004358: 
026775,004359:                                                                                                  #  EXIT -  TO ENDOFJOB WHEN THE SEARCH FLAG (SRCHOPT) IS NOT SET
026776,004360: 
026777,004361: 
026778,004362:                                                                                                  #  OUTPUT
026779,004363: 
026780,004364:                                                                                                  #      DATAGOOD (SP)-FOR DISPLAY IN R1- 00000 INDICATES NO LOCKON
026781,004365:                                                                                                  #                                       11111 INDICATES LOCKON ACHIEVED
026782,004366:                                                                                                  #      OMEGAD   (SP)-FOR DISPLAY IN R2- ANGLE BETWEEN RR BORESIGHT VECTOR AND THE SPACECRAFT +Z AXIS
026783,004367: 
026784,004368:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
026785,004369:                                                                                                  #     SEARCH FLAG MUST BE SET
026786,004370:                                                                                                  #     LM AND CSM STATE VECTORS AND REFSMMAT MATRIX
026787,004371:                                                                                                  #  DEBRIS
026788,004372: 
026789,004373:                                                                                                  #     RLMSRCH      UXVECT
026790,004374:                                                                                                  #     VXRLM        UYVECT
026791,004375:                                                                                                  #     LOSDESRD     NSRCHPNT
026792,004376:                                                                                                  #     DATAGOOD     OMEGAD
026793,004377:                                                                                                  #     MPAC         PUSHLIST
026794,004378: 
026795,004379: 
026796,004380: 26,3441                                           COUNT*   $$/LRS24                              
026797,004381: 26,3441           34746        LRS24.1            CAF      ZERO                                  
026798,004382: 26,3442           55736                           TS       NSRCHPNT                              #  SET SEARCH PATTERN POINT COUNTER TO ZERO
026799,004383: 26,3443           34727        CHKSRCH            CAF      BIT14                                 #  ISSUE AUTO TRACK ENABLE TO RADAR
026800,004384: 26,3444           00006                           EXTEND                                         

Page 609

026802,004386: 26,3445           05012                           WOR      CHAN12                                
026803,004387: 26,3446           34727                           CAF      SRCHOBIT                              #  CHECK IF SEARCH STILL REQUESTED
026804,004388: 26,3447           70076                           MASK     FLAGWRD2                              #  (SRCHOPT FLAG SET)
026805,004389: 26,3450           00006                           EXTEND                                         
026806,004390: 26,3451           15146                           BZF      ENDOFJOB                              #  NO-TERMINATE JOB
026807,004391: 
026808,004392: 
026809,004393: 26,3452           33713                           CAF      6SECONDS                              #  SCHEDULE TASK TO DRIVE RADAR TO NEXT PT.
026810,004394: 26,3453           00004                           INHINT                                         
026811,004395: 26,3454           05205                           TC       WAITLIST                              #  IN 6 SECONDS
026812,004396: 26,3455  E7,1456                                  EBANK=   LOSCOUNT                              
026813,004397: 26,3455           03642 54067                     2CADR    CALLDGCH                              
026814,004398: 
026815,004399: 26,3457           00003                           RELINT                                         
026816,004400: 26,3460           40110                           CS       RADMODES                              #  IS REMODE IN PROGRESS
026817,004401: 26,3461           74727                           MASK     REMODBIT                              
026818,004402: 26,3462           00006                           EXTEND                                         
026819,004403: 26,3463           15146                           BZF      ENDOFJOB                              #  YES- WAIT SIX SECONDS
026820,004404: 26,3464           06060                           TC       INTPRET                               
026821,004405: 
026822,004406: 26,3465           43234                           RTB      DAD                                   #  COMPUTE LOS AT PRESENT TIME + 1.5 SEC.
026823,004407: 26,3466           21603                                    LOADTIME                              
026824,004408: 26,3467           15715                                    1.5SECS                               
026825,004409: 26,3470           34041        LRS24.11           STCALL   TDEC1                                 
026826,004410: 26,3471           27136                                    LEMCONIC                              #  EXTRAPOLATE LM STATE VECTOR
026827,004411: 26,3472           77775                           VLOAD                                          
026828,004412: 26,3473           00001                                    RATT                                  
026829,004413: 26,3474           27676                           STOVL    RLMSRCH                               #  SAVE LEM POSITION
026830,004414: 26,3475           00007                                    VATT                                  
026831,004415: 26,3476           17740                           STODL    SAVLEMV                               #  SAVE LEM VELOCITY
026832,004416: 26,3477           00015                                    TAT                                   
026833,004417: 26,3500           34041                           STCALL   TDEC1                                 #  EXTRAPOLATE CSM STATE VECTOR
026834,004418: 26,3501           27124                                    CSMCONIC                              #  EXTRAPOLATE CSM STATE VECTOR
026835,004419: 26,3502           52375                           VLOAD    VSU                                   #  LOS VECTOR = R(CSM)-R(LM)
026836,004420: 26,3503           00001                                    RATT                                  
026837,004421: 26,3504           03676                                    RLMSRCH                               
026838,004422: 26,3505           77656                           UNIT                                           
026839,004423: 26,3506           27712                           STOVL    LOSDESRD                              #  STORE DESIRED LOS
026840,004424: 26,3507           00007                                    VATT                                  #  COMPUTE UNIT(V(CM) CROSS R(CM))
026841,004425: 26,3510           47256                           UNIT     VXV                                   
026842,004426: 26,3511           00001                                    RATT                                  
026843,004427: 26,3512           77656                           UNIT                                           
026844,004428: 26,3513           03704                           STORE    VXRCM                                 
026845,004429: 26,3514           52375                           VLOAD    VSU                                   
026846,004430: 26,3515           00007                                    VATT                                  
026847,004431: 26,3516           03740                                    SAVLEMV                               
026848,004432: 26,3517           76521                           MXV      VSL1                                  #  CONVERT FROM REFERENCE TO STABLE MEMBER
026849,004433: 26,3520           01732                                    REFSMMAT                              
026850,004434: 26,3521           03740                           STORE    SAVLEMV                               #  VLC = V(CSM) - V(LM)
026851,004435: 26,3522           53135                           SLOAD    BZE                                   #  CHECK IF N=0

Page 610

026853,004437: 26,3523           03737                                    NSRCHPNT                              
026854,004438: 26,3524           55635                                    DESGLOS                               #  YES-DESIGNATE ALONG LOS
026855,004439: 26,3525           53025                           DSU      BZE                                   #  IS N=1
026856,004440: 26,3526           15711                                    ONEOCT                                #  YES-CALCULATE X AND Y AXES OF
026857,004441: 26,3527           55622                                    CALCXY                                #  SEARCH PATTERN COORDINATE SYSTEM
026858,004442: 26,3530           77775                           VLOAD                                          #  NO-ROTATE X-Y AXES TO NEXT SEARCH POINT
026859,004443: 26,3531           03720                                    UXVECT                                
026860,004444: 26,3532           24015                           STOVL    UXVECTPR                              #  SAVE ORIGINAL X AND Y VECTORS
026861,004445: 26,3533           03726                                    UYVECT                                #  UXPRIME = ORIGINAL UX
026862,004446: 26,3534           00023                           STORE    UYVECTPR                              #  UYPRIME = ORIGINAL UY
026863,004447: 26,3535           77761                           VXSC                                           
026864,004448: 26,3536           15705                                    SIN60DEG                              #  UX =(COS 60)UXPR +(SIN 60)UYPR
026865,004449: 26,3537           27720                           STOVL    UXVECT                                
026866,004450: 26,3540           00015                                    UXVECTPR                              
026867,004451: 26,3541           53361                           VXSC     VAD                                   
026868,004452: 26,3542           06503                                    COS60DEG                              
026869,004453: 26,3543           03720                                    UXVECT                                
026870,004454: 26,3544           77656                           UNIT                                           
026871,004455: 26,3545           27720                           STOVL    UXVECT                                
026872,004456: 26,3546           00015                                    UXVECTPR                              #  UY=(-SIN60)UXPR +(COS 60)UYPR
026873,004457: 26,3547           77761                           VXSC                                           
026874,004458: 26,3550           15705                                    SIN60DEG                              
026875,004459: 26,3551           27726                           STOVL    UYVECT                                
026876,004460: 26,3552           00023                                    UYVECTPR                              
026877,004461: 26,3553           52361                           VXSC     VSU                                   
026878,004462: 26,3554           06503                                    COS60DEG                              
026879,004463: 26,3555           03726                                    UYVECT                                
026880,004464: 26,3556           77656                           UNIT                                           
026881,004465: 26,3557           03726                           STORE    UYVECT                                
026882,004466: 26,3560           53361        OFFCALC            VXSC     VAD                                   #  OFFSET VECTOR = K(UY)
026883,004467: 26,3561           15707                                    OFFSTFAC                              #  LOS VECTOR + OFFSET VECTOR DEFINES
026884,004468: 26,3562           03712                                    LOSDESRD                              #  DESIRED POINT IN SEARCH PATTERN
026885,004469: 26,3563           64256                           UNIT     MXV                                   
026886,004470: 26,3564           01732                                    REFSMMAT                              #  CONVERT TO STABLE MEMBER COORDINATES
026887,004471: 26,3565           77772                           VSL1                                           
026888,004472: 26,3566           25101        CONTDESG           STOVL    RRTARGET                              
026889,004473: 26,3567           03740                                    SAVLEMV                               
026890,004474: 26,3570           01757                           STORE    LOSVEL                                
026891,004475: 26,3571           77776                           EXIT                                           
026892,004476: 26,3572           00004                           INHINT                                         
026893,004477: 26,3573           06050                           TC       KILLTASK                              #  KILL ANY PRESENTLY WAITLISTED TASK
026894,004478: 26,3574           52573                           CADR     DESLOOP    +2                         #  WHICH WOULD DESIGNATE TO THE LAST
026895,004479:                                                                                                  #  POINT IN THE PATTERN
026896,004480: 26,3575           44726        CONTDES2           CS       CDESBIT                               
026897,004481: 26,3576           70110                           MASK     RADMODES                              #  SET BIT 15 OF RADMODES TO INDICATE
026898,004482: 26,3577           64726                           AD       CDESBIT                               #  A CONTINUOUS DESIGNATE WANTED.
026899,004483: 26,3600           54110                           TS       RADMODES                              
026900,004484: 26,3601           06060                           TC       INTPRET                               
026901,004485: 
026902,004486: 26,3602           77624                           CALL                                           

Page 611

026904,004488: 26,3603           52364                                    RRDESSM                               #  DESIGNATE RADAR TO RRTARGET VECTOR
026905,004489: 
026906,004490: 26,3604           77776                           EXIT                                           
026907,004491: 26,3605           03674                           TC       LIMALARM                              #  LOS NOT IN MODE 2 COVERAGE (P22)
026908,004492: 26,3606           03674                           TC       LIMALARM                              #  VEHICLE MANEUVER REQUIRED (P20)
026909,004493: 
026910,004494:                                                                                                  #  COMPUTE OMEGA,ANGLE  BETWEEN RR LOS AND
026911,004495:                                                                                                  #  SPACECRAFT +Z AXIS
026912,004496: 26,3607           00006        OMEGCALC           EXTEND                                         
026913,004497: 26,3610           30036                           DCA      CDUT                                  
026914,004498: 26,3611           53753                           DXCH     TANGNB                                
026915,004499: 26,3612           06060                           TC       INTPRET                               
026916,004500: 26,3613           77624                           CALL                                           
026917,004501: 26,3614           46041                                    RRNB                                  
026918,004502: 26,3615           65545                           DLOAD    ACOS                                  #  OMEGA IS ARCCOSINE OF Z-COMPONENT OF
026919,004503: 26,3616           00045                                    36D                                   #  VECTOR COMPUTED BY RRNB (LEFT AT 32D)
026920,004504: 26,3617           03735                           STORE    OMEGDISP                              #  STORE FOR DISPLAY IN R2
026921,004505: 26,3620           77776                           EXIT                                           
026922,004506: 26,3621           05146                           TC       ENDOFJOB                              
026923,004507: 

Page 612

026925,004509:                                                                                                  #  CALCULATE X AND Y VECTORS FOR SEARCH PATTERN COORDINATE SYSTEM
026926,004510: 
026927,004511: 26,3622           47375        CALCXY             VLOAD    VXV                                   
026928,004512: 26,3623           03704                                    VXRCM                                 
026929,004513: 26,3624           03712                                    LOSDESRD                              
026930,004514: 26,3625           77656                           UNIT                                           
026931,004515: 26,3626           27720                           STOVL    UXVECT                                #  UX = (VLM X RLM)X LOS
026932,004516: 26,3627           03712                                    LOSDESRD                              
026933,004517: 26,3630           53435                           VXV      UNIT                                  
026934,004518: 26,3631           03720                                    UXVECT                                
026935,004519: 26,3632           03726                           STORE    UYVECT                                #  UY = LOS X UX
026936,004520: 26,3633           77650                           GOTO                                           
026937,004521: 26,3634           55560                                    OFFCALC                               
026938,004522: 
026939,004523: 
026940,004524: 26,3635           64375        DESGLOS            VLOAD    MXV                                   #  WHEN N= 0,DESIGNATE ALONG LOS
026941,004525: 26,3636           03712                                    LOSDESRD                              
026942,004526: 26,3637           01732                                    REFSMMAT                              #  CONVERT LOS FROM REFERENCE TO SM COORDS
026943,004527: 26,3640           52172                           VSL1     GOTO                                  
026944,004528: 26,3641           55566                                    CONTDESG                              
026945,004529: 
026946,004530: 
026947,004531: 26,3642           30074        CALLDGCH           CAE      FLAGWRD0                              #  IS RENDEZVOUS FLAG SET
026948,004532: 26,3643           74736                           MASK     RNDVZBIT                              
026949,004533: 26,3644           00006                           EXTEND                                         
026950,004534: 26,3645           15263                           BZF      TASKOVER                              #  NO-EXIT R24
026951,004535: 26,3646           37734                           CAF      PRIO25                                #  YES -SCHEDULE JOB TO DRIVE RADAR TO NEXT
026952,004536: 26,3647           05076                           TC       FINDVAC                               #  POINT IN SEARCH PATTERN
026953,004537: 26,3650  E7,1675                                  EBANK=   RLMSRCH                               
026954,004538: 26,3650           03653 54067                     2CADR    DATGDCHK                              
026955,004539: 
026956,004540: 26,3652           05263                           TC       TASKOVER                              
026957,004541: 
026958,004542: 
026959,004543: 26,3653           34741        DATGDCHK           CAF      BIT4                                  
026960,004544: 26,3654           00006                           EXTEND                                         #  CHECK IF DATA GOOD DISCRETE PRESENT
026961,004545: 26,3655           02033                           RAND     CHAN33                                
026962,004546: 26,3656           00006                           EXTEND                                         
026963,004547: 26,3657           13666                           BZF      STORE1S                               #  YES- GO TO STORE 11111 FOR DISPLAY IN R1
026964,004548: 26,3660           46263                           CS       SIX                                   
026965,004549: 26,3661           61736                           AD       NSRCHPNT                              #  IS N GREATER THAN 6
026966,004550: 26,3662           00006                           EXTEND                                         
026967,004551: 26,3663           13441                           BZF      LRS24.1                               #  YES - RESET N = 0 AND START AROUND AGAIN
026968,004552: 26,3664           25736                           INCR     NSRCHPNT                              #  NO-SET N = N+1 AN GO TO
026969,004553: 26,3665           13443                           TCF      CHKSRCH                               #  NEXT POINT IN PATTERN
026970,004554: 
026971,004555: 
026972,004556: 26,3666           33703        STORE1S            CAF      ALL1S                                 #  STORE 11111 FOR DISPLAY IN R1
026973,004557: 26,3667           55733                           TS       DATAGOOD                              

Page 613

026975,004559: 26,3670           00004                           INHINT                                         
026976,004560: 26,3671           06050                           TC       KILLTASK                              #  DELETE DESIGNATE TASK FROM
026977,004561: 26,3672           52573                           CADR     DESLOOP    +2                         #  WAITLIST USING KILLTASK
026978,004562: 26,3673           05146                           TC       ENDOFJOB                              
026979,004563: 
026980,004564: 26,3674           05571        LIMALARM           TC       ALARM                                 #  ISSUE ALARM 527-LOS NOT IN MODE2
026981,004565: 26,3675           00527                           OCT      527                                   #  COVERAGE IN P22 OR VEHICLE MANEUVER
026982,004566: 26,3676           00004                           INHINT                                         #  REQUIRED IN P20
026983,004567: 26,3677           06050                           TC       KILLTASK                              #  KILL WAITLIST CALL FOR NEXT
026984,004568: 26,3700           55642                           CADR     CALLDGCH                              #  POINT IN SEARCH PATTERN
026985,004569: 26,3701           06032                           TC       CLRADMD1                              #  CLEAR BITS 10 & 15 IN RADMODES
026986,004570: 26,3702           05146                           TC       ENDOFJOB                              
026987,004571: 
026988,004572: 
026989,004573: 26,3703           25547        ALL1S              DEC      11111      B-14                       
026990,004574: 26,3704           33555 01106  SIN60DEG           2DEC     .86603                                
026991,004575: 
026992,004576: 26,3706  23,2502               COS60DEG           =        DPHALF                                #  (2DEC   .50)
026993,004577: 26,3706                        UXVECTPR           EQUALS   12D                                   #  PREVIOUS
026994,004578: 26,3706                        UYVECTPR           EQUALS   18D                                   
026995,004579: 26,3706                        RLMUNIT            EQUALS   12D                                   
026996,004580: 26,3706           01642 11045  OFFSTFAC           2DEC     0.05678                               #  TANGENT OF 3.25 DEGREES
026997,004581: 
026998,004582: 26,3710           00001        ONEOCT             OCT      00001                                 #  **** NOTE-THESE TWO CONSTANTS MUST ****
026999,004583: 26,3711           00000 00454  3SECONDS           2DEC     300        B-28                       #  **** BE IN THIS ORDER BECAUSE      ****
027000,004584: 
027001,004585:                                                                                                  #  **** ONEOCT NEEDS A LOWER ORDER    ****
027002,004586:                                                                                                  #  **** WORD OF ZEROES                ****
027003,004587: 26,3713           01130        6SECONDS           DEC      600        B-14                       
027004,004588: 26,3714           00000 00226  1.5SECS            2DEC     150        B-28                       
027005,004589: 
027006,004590: 26,3716  23,2504               ZERO/SP            EQUALS   HI6ZEROS                              
027007,004591:    4607                                           BLOCK    02                                    
027008,004592:    6000                                           SETLOC   FFTAG5                                
027009,004593:    6000                                           BANK                                           
027010,004594:    6043                                           COUNT*   $$/P20                                
027011,004595:    6043           00006        GOTOV56            EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF
027012,004596:    6044           36047                           DCA      VB56CADR                              #  GOTOPOOH
027013,004597:    6045           15167                           TCF      SUPDXCHZ                              
027014,004598:    6046  E7,1471                                  EBANK=   WHOCARES                              
027015,004599:    6046           03020 66107  VB56CADR           2CADR    TRMTRACK                              
027016,004600: 

Page 614

027018,004602:                                                                                                  #  W-MATRIX MONITOR
027019,004603: 
027020,004604: 31,2007                                           BANK     31                                    
027021,004605: 31,2000                                           SETLOC   VB67                                  
027022,004606: 31,2000                                           BANK                                           
027023,004607: 31,2007                                           COUNT*   $$/EXTVB                              
027024,004608: 
027025,004609: 31,2007  E4,1571                                  EBANK=   WWPOS                                 
027026,004610: 
027027,004611: 31,2007           06060        V67CALL            TC       INTPRET                               
027028,004612: 31,2010           77624                           CALL                                           
027029,004613: 31,2011           62120                                    V67WW                                 
027030,004614: 31,2012           77776                           EXIT                                           
027031,004615: 31,2013           00006                           EXTEND                                         #  SAVE THE PRESENT N99 VALUES FOR
027032,004616: 31,2014           31572                           DCA      WWPOS                                 #  COMPARISON AFTER THE DISPLAY
027033,004617: 31,2015           53600                           DXCH     WWBIAS     +2                         
027034,004618: 31,2016           00006                           EXTEND                                         
027035,004619: 31,2017           31574                           DCA      WWVEL                                 
027036,004620: 31,2020           53602                           DXCH     WWBIAS     +4                         
027037,004621: 31,2021           00006                           EXTEND                                         
027038,004622: 31,2022           31576                           DCA      WWBIAS                                
027039,004623: 31,2023           53604                           DXCH     WWBIAS     +6                         
027040,004624: 31,2024           32143        V06N99DS           CAF      V06N99                                
027041,004625: 31,2025           04607                           TC       BANKCALL                              
027042,004626: 31,2026           20323                           CADR     GOXDSPF                               
027043,004627: 31,2027           15474                           TCF      ENDEXT                                
027044,004628: 31,2030           12032                           TCF      V6N99PRO                              
027045,004629: 31,2031           12024                           TCF      V06N99DS                              
027046,004630: 31,2032           22007        V6N99PRO           ZL                                             
027047,004631: 31,2033           34747                           CA       FIVE                                  
027048,004632: 31,2034           54002        N99LOOP            TS       Q                                     
027049,004633: 31,2035           50002                           INDEX    Q                                     
027050,004634: 31,2036           41571                           CS       WWPOS                                 
027051,004635: 31,2037           50002                           INDEX    Q                                     
027052,004636: 31,2040           61577                           AD       WWPOS      +6                         
027053,004637: 31,2041           26001                           ADS      L                                     
027054,004638: 31,2042           10002                           CCS      Q                                     #  THE SUM OF ALL DIFFERENCES MUST BE ZERO.
027055,004639: 31,2043           12034                           TCF      N99LOOP                               
027056,004640: 31,2044           22000                           LXCH     A                                     
027057,004641: 31,2045           00006                           EXTEND                                         
027058,004642: 31,2046           12051                           BZF      V06N9933                              
027059,004643: 31,2047           05506                           TC       UPFLAG                                
027060,004644: 31,2050           00160                           ADRES    V67FLAG                               
027061,004645: 
027062,004646: 31,2051           06060        V06N9933           TC       INTPRET                               
027063,004647: 31,2052           77414                           BON      EXIT                                  
027064,004648: 31,2053           03707                                    V67FLAG                               
027065,004649: 31,2054           62056                                    +2                                    
027066,004650: 31,2055           15474                           TCF      ENDEXT                                
027067,004651: 31,2056           77745                           DLOAD                                          

Page 615

027069,004653: 31,2057           02172                                    WWPOS                                 
027070,004654: 31,2060           72412                           SL4      SL1                                   
027071,004655: 31,2061           14001                           STODL    0D                                    
027072,004656: 31,2062           02174                                    WWVEL                                 
027073,004657: 31,2063           14003                           STODL    2D                                    
027074,004658: 31,2064           02176                                    WWBIAS                                
027075,004659: 31,2065           77661                           SL                                             #  SHIFT FROM NOUN SCALING (B-5) TO
027076,004660: 31,2066           20213                                    10D                                   #  INTERNAL SCALING (B+5)
027077,004661: 31,2067           00005                           STORE    4D                                    
027078,004662: 31,2070           72014                           BON      LXA,1                                 
027079,004663: 31,2071           04307                                    SURFFLAG                              
027080,004664: 31,2072           62102                                    V67SURF                               
027081,004665: 31,2073           00000                                    0D                                    
027082,004666: 31,2074           72130                           SXA,1    LXA,1                                 
027083,004667: 31,2075           02000                                    WRENDPOS                              
027084,004668: 31,2076           00002                                    2D                                    
027085,004669: 31,2077           52130                           SXA,1    GOTO                                  
027086,004670: 31,2100           02001                                    WRENDVEL                              
027087,004671: 31,2101           62110                                    V67CLRF                               
027088,004672: 31,2102           66150        V67SURF            LXA,1    SXA,1                                 
027089,004673: 31,2103           00000                                    0D                                    
027090,004674: 31,2104           02006                                    WSURFPOS                              
027091,004675: 31,2105           66150                           LXA,1    SXA,1                                 
027092,004676: 31,2106           00002                                    2D                                    
027093,004677: 31,2107           02007                                    WSURFVEL                              
027094,004678: 31,2110           66150        V67CLRF            LXA,1    SXA,1                                 
027095,004679: 31,2111           00004                                    4D                                    
027096,004680: 31,2112           02003                                    WTRUN                                 
027097,004681: 31,2113           77730                           SXA,1                                          
027098,004682: 31,2114           02002                                    WSHAFT                                
027099,004683: 31,2115           77414                           CLEAR    EXIT                                  
027100,004684: 31,2116           02676                                    RENDWFLG                              
027101,004685: 31,2117           15474                           TCF      ENDEXT                                
027102,004686: 31,2120           40020        V67WW              STQ      BOV                                   
027103,004687: 31,2121           00051                                    S2                                    
027104,004688: 31,2122           62123                                    +1                                    
027105,004689: 31,2123           45014                           CLEAR    CALL                                  
027106,004690: 31,2124           03667                                    V67FLAG                               
027107,004691: 31,2125           27447                                    INTSTALL                              
027108,004692: 31,2126           71331                           SSP      DLOAD                                 
027109,004693: 31,2127           00051                                    S1                                    
027110,004694: 31,2130           00006                           DEC      6          B-14                       
027111,004695: 31,2131           06505                                    ZEROVECS                              
027112,004696: 31,2132           02172                           STORE    WWPOS                                 
027113,004697: 31,2133           02174                           STORE    WWVEL                                 
027114,004698: 31,2134           02176                           STORE    WWBIAS                                
027115,004699: 31,2135           77770                           AXT,1                                          
027116,004700: 31,2136           00066                           DEC      54         B-14                       
027117,004701: 31,2137           47573        NXPOSVEL           VLOAD*   VSQ                                   
027118,004702: 31,2140           02467                                    W          +54D,1                     

Page 616

027120,004704: 31,2141           77650                           GOTO                                           
027121,004705: 31,2142           60002                                    ADDPOS                                
027122,004706: 31,2143           01543        V06N99             VN       0699                                  
027123,004707: 
027124,004708: 30,2000                                           SETLOC   VB67A                                 
027125,004709: 30,2000                                           BANK                                           
027126,004710: 30,2002                                           COUNT*   $$/EXTVB                              
027127,004711: 
027128,004712: 30,2002           77615        ADDPOS             DAD                                            
027129,004713: 30,2003           02172                                    WWPOS                                 
027130,004714: 30,2004           02172                           STORE    WWPOS                                 
027131,004715: 30,2005           47573                           VLOAD*   VSQ                                   
027132,004716: 30,2006           02555                                    W          +108D,1                    
027133,004717: 30,2007           77615                           DAD                                            
027134,004718: 30,2010           02174                                    WWVEL                                 
027135,004719: 30,2011           02174                           STORE    WWVEL                                 
027136,004720: 30,2012           47573                           VLOAD*   VSQ                                   
027137,004721: 30,2013           02643                                    W          +162D,1                    
027138,004722: 30,2014           77615                           DAD                                            
027139,004723: 30,2015           02176                                    WWBIAS                                
027140,004724: 30,2016           02176                           STORE    WWBIAS                                
027141,004725: 30,2017           75500                           TIX,1    SQRT                                  
027142,004726: 30,2020           62137                                    NXPOSVEL                              
027143,004727: 30,2021           77661                           SR                                             #  SHIFT FROM INTERNAL SCALING (B+5) TO
027144,004728: 30,2022           20613                                    10D                                   #  NOUN SCALING (B-5)
027145,004729: 30,2023           16176                           STODL    WWBIAS                                
027146,004730: 30,2024           02174                                    WWVEL                                 
027147,004731: 30,2025           77766                           SQRT                                           
027148,004732: 30,2026           16174                           STODL    WWVEL                                 
027149,004733: 30,2027           02172                                    WWPOS                                 
027150,004734: 30,2030           77766                           SQRT                                           
027151,004735: 30,2031           02172                           STORE    WWPOS                                 
027152,004736: 30,2032           52000                           BOV      GOTO                                  
027153,004737: 30,2033           60035                                    +2                                    
027154,004738: 30,2034           60042                                    V67XXX                                
027155,004739: 30,2035           77745                           DLOAD                                          
027156,004740: 30,2036           06513                                    DPPOSMAX                              
027157,004741: 30,2037           02172                           STORE    WWPOS                                 
027158,004742: 30,2040           02174                           STORE    WWVEL                                 
027159,004743: 30,2041           02176                           STORE    WWBIAS                                
027160,004744: 30,2042           45345        V67XXX             DLOAD    DSU                                   
027161,004745: 30,2043           02172                                    WWPOS                                 
027162,004746: 30,2044           20060                                    FT99999                               
027163,004747: 30,2045           71240                           BMN      DLOAD                                 
027164,004748: 30,2046           60051                                    +3                                    
027165,004749: 30,2047           20060                                    FT99999                               
027166,004750: 30,2050           02172                           STORE    WWPOS                                 
027167,004751: 30,2051           66150                           LXA,1    SXA,1                                 
027168,004752: 30,2052           00051                                    S2                                    
027169,004753: 30,2053           00052                                    QPRET                                 

Page 617

027171,004755: 30,2054           77776                           EXIT                                           
027172,004756: 30,2055           04626                           TC       POSTJUMP                              
027173,004757: 30,2056           27460                           CADR     INTWAKE                               
027174,004758: 
027175,004759: 30,2057           01670 17000  FT99999            2DEC     30479      B-19                       
027176,004760: 

Page 618

027178,004762: 25,3651                                           BANK     25                                    
027179,004763: 25,2000                                           SETLOC   RADARUPT                              
027180,004764: 25,2000                                           BANK                                           
027181,004765: 25,3651                                           COUNT*   $$/RRUPT                              
027182,004766: 
027183,004767: 25,3651  E7,1456                                  EBANK=   LOSCOUNT                              
027184,004768: 
027185,004769: 25,3651           44740        RADLITES           CS       BIT5                                  
027186,004770: 25,3652           60061                           AD       ITEMP1                                
027187,004771: 25,3653           10000                           CCS      A                                     
027188,004772: 25,3654           44744                           CS       ONE                                   

A + is drawn in the margin next to ONE above.

027190,004774: 25,3655           13705                           TCF      VLIGHT                                

A 0 is drawn in the margin next to VLIGHT above.

027192,004776: 
027193,004777: 25,3656           14561                           TCF      RRTRKF                                

An arrow is drawn in pointing to RRTRKF above.

027195,004779: 
027196,004780: 25,3657           54065        HLIGHT             TS       ITEMP5                                #  ZERO ITEMP5 FOR H INDEX
027197,004781: 
027198,004782: 25,3660           34740                           CA       HLITE                                 
027199,004783: 25,3661           54001                           TS       L                                     
027200,004784: 
027201,004785: 25,3662           34740                           CA       LRALTBIT                              
027202,004786: 25,3663           70110        BOTHLITS           MASK     RADMODES                              
027203,004787: 25,3664           10000                           CCS      A                                     
027204,004788: 25,3665           13677                           TCF      ONLITES                               
027205,004789: 
027206,004790: 25,3666           30107                           CA       FLGWRD11                              
027207,004791: 25,3667           50065                           INDEX    ITEMP5                                
027208,004792: 25,3670           74744                           MASK     HFLSHBIT                              
027209,004793: 25,3671           10000                           CCS      A                                     
027210,004794: 25,3672           14561                           TCF      RRTRKF                                

An arrow is drawn in pointing to RRTRKF above.

027212,004796: 
027213,004797: 25,3673           00006        LITIT              EXTEND                                         
027214,004798: 25,3674           22066                           QXCH     ITEMP6                                
027215,004799: 25,3675           04573                           TC       TRKFLON    +1                         
027216,004800: 
027217,004801: 25,3676           00066                           TC       ITEMP6                                
027218,004802: 

In the margin next to the following paragraphs of code is written in large letters, RESET HFLSH BIT OR VFLSHBIT

027221,004805: 25,3677           50065        ONLITES            INDEX    ITEMP5                                
027222,004806: 25,3700           44744                           CS       HFLSHBIT                              
027223,004807: 25,3701           70107                           MASK     FLGWRD11                              
027224,004808: 25,3702           54107                           TS       FLGWRD11                              
027225,004809: 
027226,004810: 25,3703           30001                           CA       L                                     
027227,004811: 25,3704           13673                           TCF      LITIT                                 
027228,004812: 25,3705           54065        VLIGHT             TS       ITEMP5                                
027229,004813: 25,3706           34742                           CA       VLITE                                 
027230,004814: 25,3707           54001                           TS       L                                     
027231,004815: 25,3710           34735                           CA       BIT8                                  
027232,004816: 25,3711           13663                           TCF      BOTHLITS                              
027233,004817: 

Page 619

027235,004819: 25,3712     4740               HLITE              EQUALS   BIT5                                  
027236,004820: 25,3712     4742               VLITE              EQUALS   BIT3                                  
027237,004821: 

End of include-file P20-P25.agc.  Parent file is MAIN.agc