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.

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

Page 507

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

Page 508

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

Page 509

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

Page 510

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

Page 511

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

Page 512

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

Page 513

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

Page 514

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

Page 515

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

Page 516

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

Page 517

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

Page 518

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

Page 519

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

Page 520

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

Page 521

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

Page 522

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

Page 523

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

Page 524

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

Page 525

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

Page 526

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

Page 527

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

Page 528

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

Page 529

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

Page 530

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

Page 531

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

Page 532

023616,001207: 24,3336           04120        V16N80             VN       01680                                 
023617,001208: 

Page 533

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

Page 534

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

Page 535

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

Page 536

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

Page 537

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

Page 538

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

Page 539

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

Page 540

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

Page 541

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

Page 542

023979,001570:                                                                                                  #  PROGRAM NAME_  RRTURNON

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

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

Page 543

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

Page 544

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

Page 545

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

Page 546

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

Page 547

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

Page 548

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

Page 549

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

Page 550

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

Page 551

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

Page 552

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

Page 553

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

Page 554

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

Page 555

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

Page 556

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

Page 557

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

Page 558

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

Page 559

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

Page 560

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

Page 561

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

Page 562

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

Page 563

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

Page 564

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

Page 565

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

Page 566

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

Page 567

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

Page 568

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

Page 569

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

Page 570

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

Page 571

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

Page 572

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

The above instruction is circled.

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

The above instruction is circled.

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

Page 573

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

Page 574

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

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

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

Page 575

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

The above two lines are circled.

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

The above instruction is circled.

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

Page 576

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

The above instruction is circled.

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

Page 577

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

Page 578

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

Page 579

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

Page 580

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

Page 581

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

Page 582

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

Page 583

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

Page 584

025748,003339: 24,3416                        VELLOS             EQUALS   14D                                   
025749,003340: 

Page 585

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

Page 586

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

Page 587

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

Page 588

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

Page 589

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

Page 590

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

Page 591

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

Page 592

026013,003604:                                                                                                  #  PROGRAM NAME - LRS22.2 (DATA READ SUBROUTINE 2)
026014,003605: 
026015,003606: 
026016,003607:                                                                                                  #  MOD. NO. : 1       BY: P VOLANTE  SDC           DATE  4-11-67
026017,003608: 
026018,003609:                                                                                                  #  FUNCTIONAL DESCRIPTION-

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

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

Page 593

026064,003655: 24,3433           34746                           CAF      ZERO                                  
026065,003656: 24,3434           54154                           TS       MPAC                                  
026066,003657: 24,3435           31737        OUT22.2            CAE      LRS22.1X                              
026067,003658: 24,3436           04631                           TC       BANKJUMP                              
026068,003659: 
026069,003660: 24,3437           02525 12525  30DEG              2DEC     .083333333                            #  THIRTY DEGREES,SCALED REVS,B0
026070,003661: 

Page 594

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

Page 595

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

Page 596

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

Page 597

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

Page 598

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

Page 599

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

Page 600

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

Page 601

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

Page 602

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

Page 603

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

Page 604

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

Page 605

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

Page 606

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

Page 607

026736,004327: 26,3434           00103 03370  IMUVAR             2DEC     E-6        B12                        #  RAD**2
026737,004328: 
026738,004329: 26,3436           00241        WSIZE              DEC      161        B-14                       
026739,004330: 26,3437           31103 36652  2PI/8              2DEC     3.141592653 B-2                        
026740,004331: 
026741,004332: 26,3441  E7,1456                                  EBANK=   LOSCOUNT                              
026742,004333: 

Page 608

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

Page 609

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

Page 610

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

Page 611

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

Page 612

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

Page 613

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

Page 614

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

Page 615

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

Page 616

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

Page 617

027164,004755: 30,2054           77776                           EXIT                                           
027165,004756: 30,2055           04626                           TC       POSTJUMP                              
027166,004757: 30,2056           27460                           CADR     INTWAKE                               
027167,004758: 
027168,004759: 30,2057           01670 17000  FT99999            2DEC     30479      B-19                       
027169,004760: 

Page 618

027171,004762: 25,3651                                           BANK     25                                    
027172,004763: 25,2000                                           SETLOC   RADARUPT                              
027173,004764: 25,2000                                           BANK                                           
027174,004765: 25,3651                                           COUNT*   $$/RRUPT                              
027175,004766: 
027176,004767: 25,3651  E7,1456                                  EBANK=   LOSCOUNT                              
027177,004768: 
027178,004769: 25,3651           44740        RADLITES           CS       BIT5                                  
027179,004770: 25,3652           60061                           AD       ITEMP1                                
027180,004771: 25,3653           10000                           CCS      A                                     
027181,004772: 25,3654           44744                           CS       ONE                                   

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

027183,004774: 25,3655           13705                           TCF      VLIGHT                                

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

027185,004776: 
027186,004777: 25,3656           14561                           TCF      RRTRKF                                

An arrow is drawn in pointing to RRTRKF above.

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

An arrow is drawn in pointing to RRTRKF above.

027205,004796: 
027206,004797: 25,3673           00006        LITIT              EXTEND                                         
027207,004798: 25,3674           22066                           QXCH     ITEMP6                                
027208,004799: 25,3675           04573                           TC       TRKFLON    +1                         
027209,004800: 
027210,004801: 25,3676           00066                           TC       ITEMP6                                
027211,004802: 

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

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

Page 619

027228,004819: 25,3712     4740               HLITE              EQUALS   BIT5                                  
027229,004820: 25,3712     4742               VLITE              EQUALS   BIT3                                  
027230,004821: 

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