Source Code

These source code files have been transcribed or otherwise adapted from digitized images of a hardcopy from the private collection of Don Eyles. The digitization was performed by archive.org, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that the original high-quality images are available at archive.org. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

    473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP   NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.

008807,000002:                                                                                                  ## Copyright:    Public domain.
008808,000003:                                                                                                  ## Filename:     RADAR_LEAD-IN_ROUTINES.agc
008809,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
008810,000005:                                                                                                  ## Assembler:    yaYUL
008811,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
008812,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
008813,000008:                                                                                                  ## Pages:        227-255
008814,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
008815,000010:                                                                                                  ##               2016-10-20 HG   finished transcription
008816,000011:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
008817,000012:                                                                                                  ##                               and fixed the errors found.
008818,000013: 
008819,000014:                                                                                                  ## This source code has been transcribed or otherwise adapted from
008820,000015:                                                                                                  ## digitized images of a hardcopy from the private collection of
008821,000016:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
008822,000017: 
008823,000018:                                                                                                  ## Notations on the hardcopy document read, in part:
008824,000019: 
008825,000020:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
008826,000021:                                                                                                  ##       NOV 10, 1966
008827,000022: 
008828,000023:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
008829,000024:                                                                                                  ##       date of the program revision or the assembly.]
008830,000025: 
008831,000026:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent
008832,000027:                                                                                                  ## reduction in image quality) are available online at
008833,000028:                                                                                                  ##       https://www.ibiblio.org/apollo.
008834,000029:                                                                                                  ## The original high-quality digital images are available at archive.org:
008835,000030:                                                                                                  ##       https://archive.org/details/aurora00dapg
008836,000031: 
008837,000032: 

Page 227

008839,000034:    4763                                           SETLOC   ENDIMODF                              
008840,000035:    4763  E3,1460                                  EBANK=   RRRET                                 
008841,000036: 
008842,000037:                                                                                                  #           THE FOLLOWING SUBROUTINE RETURNS TO CALLER + 2 IF THE ABSOLUTE VALUE OF C(A) IS GREATER THAN THE
008843,000038:                                                                                                  #  NEGATIVE OF THE NUMBER AT CALLER +1. OTHERWISE IT RETURNS TO CALLER +3. MAY BE CALLED IN RUPT OR UNDER EXEC.
008844,000039: 
008845,000040:    4763           00006        MAGSUB             EXTEND                                         
008846,000041:    4764           64766                           BZMF     +2                                    
008847,000042:    4765           14767                           TCF      +2                                    
008848,000043:    4766           40000                           COM                                            
008849,000044: 
008850,000045:    4767           50002                           INDEX    Q                                     
008851,000046:    4770           60000                           AD       0                                     
008852,000047:    4771           00006                           EXTEND                                         
008853,000048:    4772           64775                           BZMF     +3                                    #  ABS(A) G CONST
008854,000049:    4773           50002                           INDEX    Q                                     
008855,000050:    4774           00001                           TC       1                                     #  ABS(A) LEQ CONST
008856,000051: 
008857,000052:    4775           50002        MAGLESS            INDEX    Q                                     
008858,000053:    4776           00002                           TC       2                                     
008859,000054: 

Page 228

008861,000056:                                                                                                  #           THE FOLLOWING SUBROUTINE CHECKS RR GIMBAL ANGLES TO SEE IF THEY ARE IN THE LIMITS OF THE CURRENT MODE.
008862,000057:                                                                                                  #  CALLING SEQUENCE IS AS FOLLOWS:
008863,000058: 
008864,000059:                                                                                                  #                                                   TC     RRLIMCHK        (WITH INTERRUPT INHIBITED).
008865,000060:                                                                                                  #                                                   ADRES  T,S             (IN UNSWITCHED E OR CURRENT EBANK).
008866,000061: 
008867,000062:                                                                                                  #           RETURN IS TO CALLER +2 IF NOT IN LIMITS AND TO CALLER +3 IF SO.
008868,000063: 
008869,000064:    4777           50002        RRLIMCHK           INDEX    Q                                     #  READ GIMBAL ANGLES INTO ITEMP STORAGE.
008870,000065:    5000           30000                           CAF      0                                     
008871,000066:    5001           24002                           INCR     Q                                     
008872,000067:    5002           00006                           EXTEND                                         
008873,000068:    5003           50000                           INDEX    A                                     
008874,000069:    5004           30001                           DCA      0                                     
008875,000070:    5005           52066                           DXCH     ITEMP1                                
008876,000071:    5006           22002                           LXCH     Q                                     #  L(CALLER +2) TO L.
008877,000072: 
008878,000073:    5007           37644                           CAF      BIT12                                 #  SEE WHICH MODE RR IS IN.
008879,000074:    5010           70413                           MASK     RADMODES                              
008880,000075:    5011           10000                           CCS      A                                     
008881,000076:    5012           15025                           TCF      MODE2CHK                              
008882,000077: 
008883,000078:    5013           30065                           CA       ITEMP1                                #  MODE 1 IS DEFINED AS
008884,000079:    5014           04763                           TC       MAGSUB                                #      1. ABS(T) L 70 DEGS.
008885,000080:    5015           66161                           DEC      -.30555                               #      2. ABS(S + 5.5 DEGS) L 64.5 DEGS
008886,000081:    5016           00001                           TC       L                                     #          (SHAFT LIMITS AT +59, -70 DEGS)
008887,000082: 
008888,000083:    5017           35037                           CAF      5.5DEGS                               
008889,000084:    5020           60066                           AD       ITEMP2                                #  S
008890,000085:    5021           04763                           TC       MAGSUB                                
008891,000086:    5022           64420                           DEC      -.35833                               #  64.5 DEGS
008892,000087:    5023           00001                           TC       L                                     
008893,000088:    5024           05035                           TC       RRLIMOK                               #  IN LIMITS.
008894,000089: 
008895,000090:    5025           35041        MODE2CHK           CAF      82DEGS                                #  MODE 2 IS DEFINED AS
008896,000091:    5026           60066                           AD       ITEMP2                                #      1. ABS(T) G 110 DEGS
008897,000092:    5027           04763                           TC       MAGSUB                                #      2. ABS(S + 82 DEGS) L 57 DEGS
008898,000093:    5030           65673                           DEC      -.31667                               #          (SHAFT LIMITS AT -25, -139 DEGS)
008899,000094:    5031           00001                           TC       L                                     
008900,000095: 
008901,000096:    5032           30065                           CA       ITEMP1                                
008902,000097:    5033           04763                           TC       MAGSUB                                
008903,000098:    5034           54343                           DEC      -.61111                               #  110 DEGS
008904,000099: 
008905,000100:    5035           50001        RRLIMOK            INDEX    L                                     
008906,000101:    5036           00001                           TC       L                                     #  ( = TC 1)
008907,000102: 
008908,000103:    5037           00765        5.5DEGS            DEC      .03056                                
008909,000104:    5040           00707        5DEGS              DEC      .02777                                #  SCALED IN HALF-REVOLUTIONS.
008910,000105:    5041           16450        82DEGS             DEC      .45556                                
008911,000106: 

Page 229

008913,000108:                                                                                                  #           THE FOLLOWING ROUTINE UPDATES THE TRACKER FAIL LAMP ON THE DSKY, IF EITHER:
008914,000109: 
008915,000110:                                                                                                  #           1. N SAMPLES OF RR DATA COULD NOT BE OBTAINED FROM 2N TRIES
008916,000111:                                                                                                  #           2. N SAMPLES OF LR DATA COULD NOT BE TAKEN IN 2N TRIES WITH EITHER THE ALT OR VEL INFORMATION.
008917,000112:                                                                                                  #           3. RR CDU FAILED WITH RR IN AUTO MODE AND RR CDU NOT BEING ZEROED.
008918,000113: 
008919,000114:    5042           37657        SETTRKF            CAF      BIT1                                  #  NO ACTION IF DURING LAMP TEST.
008920,000115:    5043           70370                           MASK     IMODES33                              
008921,000116:    5044           10000                           CCS      A                                     
008922,000117:    5045           00002                           TC       Q                                     
008923,000118: 
008924,000119:    5046           35076                           CAF      13,7,2                                #  SEE IF CDU FAILED.
008925,000120:    5047           70413                           MASK     RADMODES                              
008926,000121:    5050           00006                           EXTEND                                         
008927,000122:    5051           15061                           BZF      TRKFLON                               #  CONDITION 3 ABOVE.
008928,000123: 
008929,000124:    5052           40413                           CS       RADMODES                              #  SEE IF LR FAILED.
008930,000125:    5053           75077                           MASK     8,5                                   
008931,000126:    5054           00006                           EXTEND                                         
008932,000127:    5055           15061                           BZF      TRKFLON                               #  CONDITION 2 ABOVE.
008933,000128: 
008934,000129:    5056           37654                           CAF      BIT4                                  #  SEE IF RR DATA FAILED.
008935,000130:    5057           70413                           MASK     RADMODES                              
008936,000131:    5060           10000                           CCS      A                                     
008937,000132:    5061           37650        TRKFLON            CAF      BIT8                                  
008938,000133:    5062           60322                           AD       DSPTAB     +11D                       #  HALF ADD DESIRED AND PRESENT STATES.
008939,000134:    5063           77650                           MASK     BIT8                                  
008940,000135:    5064           00006                           EXTEND                                         
008941,000136:    5065           14712                           BZF      TCQ                                   #  NO CHANGE.
008942,000137: 
008943,000138:    5066           54001                           TS       L                                     #  INVERT BIT 8 AND SET BIT 15.
008944,000139:    5067           30322                           CA       DSPTAB     +11D                       #  CANT USE LXCH DSPTAB +11D (RESTART PROB)
008945,000140:    5070           00006                           EXTEND                                         
008946,000141:    5071           06001                           RXOR     L                                     
008947,000142:    5072           77637                           MASK     POSMAX                                
008948,000143:    5073           67641                           AD       BIT15                                 
008949,000144:    5074           54322                           TS       DSPTAB     +11D                       
008950,000145:    5075           00002                           TC       Q                                     
008951,000146: 
008952,000147:    5076           10102        13,7,2             OCT      10102                                 
008953,000148:    5077           00220        8,5                OCT      00220                                 
008954,000149: 
008955,000150:    5100                        ENDRMODF           EQUALS                                         
008956,000151: 

Page 230

008958,000153:                                                                                                  #           TURNON SEQUENCE TO ZERO THE CDUS AND DETERMINE THE RR MODE.
008959,000154: 
008960,000155: 10,2000                                           BANK     10                                    
008961,000156: 
008962,000157: 10,2000           02013        RRTURNON           TC       RRZEROSB                              
008963,000158: 10,2001           04554                           TC       FIXDELAY                              #  WAIT 1 SEC BEFORE REMOVING TURN ON FLAG
008964,000159: 10,2002           00144                           DEC      100        B-14                       #  SO A MONITOR REPOSITION WONT ALARM.
008965,000160: 10,2003           47657                           CS       BIT1                                  
008966,000161: 10,2004           70413                           MASK     RADMODES                              
008967,000162: 10,2005           54413                           TS       RADMODES                              
008968,000163: 10,2006           40061                           CS       STATE                                 #  SEE IF SOMEONE IS WAITING TO USE THE RR.
008969,000164: 10,2007           77651                           MASK     RRUSEFLG                              
008970,000165: 10,2010           10000                           CCS      A                                     
008971,000166: 10,2011           14602                           TCF      TASKOVER                              
008972,000167: 
008973,000168: 10,2012           13235                           TCF      ENDRADAR                              #  CHECK RR CDU FAIL BEFORE EXIT.
008974,000169: 

Page 231

008976,000171:                                                                                                  #           CLOSED SUBROUTINE TO ZERO THE RR CDUS.
008977,000172: 
008978,000173: 10,2013           00006        RRZEROSB           EXTEND                                         
008979,000174: 10,2014           23460                           QXCH     RRRET                                 
008980,000175: 10,2015           37657                           CAF      BIT1                                  #  BIT 13 OF RADMODES MUST BE SET BEFORE
008981,000176: 10,2016           00006                           EXTEND                                         #  COMING HERE.
008982,000177: 10,2017           05012                           WOR      12                                    
008983,000178: 10,2020           04554                           TC       FIXDELAY                              
008984,000179: 10,2021           00002                           DEC      2          B-14                       
008985,000180: 
008986,000181: 10,2022           37665                           CAF      ZERO                                  
008987,000182: 10,2023           54035                           TS       OPTY                                  
008988,000183: 10,2024           54036                           TS       OPTX                                  
008989,000184: 10,2025           47657                           CS       ONE                                   #  REMOVE ZEROING BIT.
008990,000185: 10,2026           00006                           EXTEND                                         
008991,000186: 10,2027           03012                           WAND     12                                    
008992,000187: 10,2030           04554                           TC       FIXDELAY                              
008993,000188: 10,2031           00454                           DEC      300        B-14                       
008994,000189: 
008995,000190: 10,2032           47643                           CS       BIT13                                 #  REMOVE ZEROING IN PROCESS BIT.
008996,000191: 10,2033           70413                           MASK     RADMODES                              
008997,000192: 10,2034           54413                           TS       RADMODES                              
008998,000193: 
008999,000194: 10,2035           30035                           CA       OPTY                                  
009000,000195: 10,2036           04763                           TC       MAGSUB                                
009001,000196: 10,2037           57777                           DEC      -.5                                   
009002,000197: 10,2040           12043                           TCF      +3                                    #  IF MODE 2.
009003,000198: 
009004,000199: 10,2041           37665                           CAF      ZERO                                  
009005,000200: 10,2042           12044                           TCF      +2                                    
009006,000201: 10,2043           37644                           CAF      BIT12                                 
009007,000202: 10,2044           56413                           XCH      RADMODES                              
009008,000203: 10,2045           74360                           MASK     -BIT12                                
009009,000204: 10,2046           26413                           ADS      RADMODES                              
009010,000205: 
009011,000206: 10,2047           05042                           TC       SETTRKF                               #  TRACKER LAMP MIGHT GO ON NOW.
009012,000207: 
009013,000208: 10,2050           01460                           TC       RRRET                                 #  DONE.
009014,000209: 
009015,000210: 10,2051     4360               -BIT12             EQUALS   -1/8                                  #  IN SPROOT
009016,000211: 

Page 232

009018,000213:                                                                                                  #           SEQUENCE OF TASKS TO DRIVE THE RR TO A SAFE POSITION.
009019,000214: 
009020,000215: 10,2051           02106        DORREPOS           TC       SETRRECR                              #  SET UP RR CDU ERROR COUNTERS.
009021,000216: 
009022,000217: 10,2052           37657                           CAF      BIT1                                  #  DO AN ALARM UNLESS RR JUST TURNED ON.
009023,000218: 10,2053           70413                           MASK     RADMODES                              
009024,000219: 10,2054           10000                           CCS      A                                     
009025,000220: 10,2055           12060                           TCF      +3                                    
009026,000221: 
009027,000222: 10,2056           05413                           TC       ALARM                                 
009028,000223: 10,2057           00501                           OCT      501                                   
009029,000224: 10,2060           04554                           TC       FIXDELAY                              
009030,000225: 10,2061           00002                           DEC      2          B-14                       
009031,000226: 
009032,000227: 10,2062           37644                           CAF      BIT12                                 #  MANEUVER TRUNNION ANGLE TO NOMINAL POS.
009033,000228: 10,2063           70413                           MASK     RADMODES                              
009034,000229: 10,2064           10000                           CCS      A                                     
009035,000230: 10,2065           37641                           CAF      BIT15                                 #  0 FOR MODE 1 AND 180 FOR MODE 2.
009036,000231: 10,2066           02150                           TC       RRTONLY                               
009037,000232: 
009038,000233: 10,2067           37644                           CAF      BIT12                                 #  NOW PUT SHAFT IN RIGHT POSITION.
009039,000234: 10,2070           70413                           MASK     RADMODES                              
009040,000235: 10,2071           10000                           CCS      A                                     
009041,000236: 10,2072           47642                           CS       HALF                                  #  -90 FOR MODE 2.
009042,000237: 10,2073           02153                           TC       RRSONLY                               
009043,000238: 
009044,000239: 10,2074           47645        REPOSRPT           CS       BIT11                                 #  RETURNS HERE FROM RR1AXIS IF REMODE
009045,000240:                                                                                                  #  REQUESTED DURING REPOSITION.
009046,000241: 10,2075           70413                           MASK     RADMODES                              #  REMOVE REPOSITION BIT.
009047,000242: 10,2076           54413                           TS       RADMODES                              
009048,000243: 10,2077           77646                           MASK     BIT10                                 #  SEE IF SOMEONE IS WAITING TO DESIGNATE.
009049,000244: 10,2100           10000                           CCS      A                                     
009050,000245: 10,2101           12422                           TCF      BEGDES                                
009051,000246: 10,2102           47656                           CS       BIT2                                  #  IF NO FURTHER ANTENNA CONTROL REQUIRED,
009052,000247: 10,2103           00006                           EXTEND                                         #  REMOVE ERROR COUNTER ENABLE.
009053,000248: 10,2104           03012                           WAND     12                                    
009054,000249: 10,2105           14602                           TCF      TASKOVER                              
009055,000250: 
009056,000251: 10,2106           37656        SETRRECR           CAF      BIT2                                  #  SET UP RR ERROR COUNTERS.
009057,000252: 10,2107           00006                           EXTEND                                         
009058,000253: 10,2110           05012                           WOR      12                                    
009059,000254: 
009060,000255: 10,2111           37665                           CAF      ZERO                                  
009061,000256: 10,2112           54362                           TS       LASTYCMD                              
009062,000257: 10,2113           54363                           TS       LASTXCMD                              
009063,000258: 10,2114           00002                           TC       Q                                     
009064,000259: 

Page 233

009066,000261:                                                                                                  #           GENERAL REMODING SUBROUTINE. DRIVES TRUNION TO 0 (180), THEN DRIVES SHAFT TO -45, AND FINALLY DRIVES
009067,000262:                                                                                                  #  TRUNNION TO -130 (-50) BEFORE INITIATING 2-AXIS CONTROL. ALL RE-MODING IONE WITH SINGLE AXIS ROTATIONS (RR1AXIS)
009068,000263: 10,2115           37644        REMODE             CAF      BIT12                                 #  DRIVE TRUNNION TO 0 (180).
009069,000264: 10,2116           70413                           MASK     RADMODES                              #  (ERROR COUNTER ALREADY ENABLED)
009070,000265: 10,2117           10000                           CCS      A                                     
009071,000266: 10,2120           37641                           CAF      BIT15                                 
009072,000267: 10,2121           02150                           TC       RRTONLY                               
009073,000268: 
009074,000269: 10,2122           32137                           CAF      -45DEGSR                              
009075,000270: 10,2123           02153                           TC       RRSONLY                               
009076,000271: 
009077,000272: 10,2124           40413                           CS       RADMODES                              
009078,000273: 10,2125           77644                           MASK     BIT12                                 
009079,000274: 10,2126           10000                           CCS      A                                     
009080,000275: 10,2127           32141                           CAF      -80DEGSR                              #  GO TO T = -130 (-50).
009081,000276: 10,2130           62141                           AD       -80DEGSR                              
009082,000277: 10,2131           02150                           TC       RRTONLY                               
009083,000278: 
009084,000279: 10,2132           02142                           TC       RMODINV                               
009085,000280: 
009086,000281: 10,2133           47642                           CS       BIT14                                 #  END OF REMODE.
009087,000282: 10,2134           70413                           MASK     RADMODES                              
009088,000283: 10,2135           54413                           TS       RADMODES                              
009089,000284: 
009090,000285: 10,2136           02431                           TC       STDESIG                               #  BEGIN 2-AXIS CONTROL.
009091,000286: 
009092,000287: 10,2137           70000        -45DEGSR           OCT      70000                                 
009093,000288: 10,2140           67070        -50DEGSR           DEC      -.27778                               
009094,000289: 10,2141           61615        -80DEGSR           DEC      -.44444                               
009095,000290: 
009096,000291: 10,2142           22413        RMODINV            LXCH     RADMODES                              #  INVERT THE MODE STATUS.
009097,000292: 10,2143           37644                           CAF      BIT12                                 
009098,000293: 10,2144           00006                           EXTEND                                         
009099,000294: 10,2145           06001                           RXOR     L                                     
009100,000295: 10,2146           54413                           TS       RADMODES                              
009101,000296: 10,2147           00002                           TC       Q                                     
009102,000297: 

Page 234

009104,000299:                                                                                                  #           SUBROUTINES FOR DOING SINGLE AXIS RR MANEUVERS FOR REMODE AND REPOSITION. DRIVES TO WITHIN 1 DEGREE.
009105,000300: 
009106,000301: 10,2150           55461        RRTONLY            TS       RDES                                  #  DESIRED TRUNION ANGLE.
009107,000302: 10,2151           37665                           CAF      ZERO                                  
009108,000303: 10,2152           12155                           TCF      RR1AXIS                               
009109,000304: 
009110,000305: 10,2153           55461        RRSONLY            TS       RDES                                  #  SHAFT COMMANDS ARE UNRESOLVED SINCE THIS
009111,000306: 10,2154           37657                           CAF      ONE                                   #  ROUTINE ENTERED ONLY WHEN T = 0 OR 180.
009112,000307: 
009113,000308: 10,2155           55462        RR1AXIS            TS       RRINDEX                               
009114,000309: 10,2156           00006                           EXTEND                                         
009115,000310: 10,2157           23460                           QXCH     RRRET                                 
009116,000311: 10,2160           12163                           TCF      RR1AX2                                
009117,000312: 
009118,000313: 10,2161           04554        NXTRR1AX           TC       FIXDELAY                              
009119,000314: 10,2162           00062                           DEC      50         B-14                       #  2 SAMPLES PER SECOND.
009120,000315: 
009121,000316: 10,2163           40413        RR1AX2             CS       RADMODES                              #  IF SOMEONE REQUESTES AS DESIGNATE WHICH
009122,000317: 10,2164           74520                           MASK     PRIO22                                #  REQUIRES A REMODE AND A REPOSITION IS IN
009123,000318: 10,2165           00006                           EXTEND                                         #  PROGRESS, INTERRUPT IT AND START THE
009124,000319: 10,2166           12074                           BZF      REPOSRPT                              #  REMODE IMMEDIATELY.
009125,000320: 
009126,000321: 10,2167           31461                           CA       RDES                                  
009127,000322: 10,2170           00006                           EXTEND                                         
009128,000323: 10,2171           51462                           INDEX    RRINDEX                               
009129,000324: 10,2172           20035                           MSU      OPTY                                  
009130,000325: 10,2173           54002                           TS       Q                                     #  SAVE ERROR SIGNAL.
009131,000326: 10,2174           00006                           EXTEND                                         
009132,000327: 10,2175           72212                           MP       RRSPGAIN                              #  TRIES TO NULL .7 OF ERROR OVER NEXT .5
009133,000328: 10,2176           54001                           TS       L                                     
009134,000329: 10,2177           30002                           CA       Q                                     #  SEE IF WITHIN 1 DEGREE.
009135,000330: 10,2200           04763                           TC       MAGSUB                                
009136,000331: 10,2201           77644                           DEC      -.00555                               #  SCALED IN HALF-REVS.
009137,000332: 
009138,000333: 10,2202           12204                           TCF      +2                                    #  NO.
009139,000334: 10,2203           01460                           TC       RRRET                                 #  RETURN TO CALLER.
009140,000335: 
009141,000336: 10,2204           11462                           CCS      RRINDEX                               #  COMMAND FOR OTHER AXIS IS ZERO.
009142,000337: 10,2205           12207                           TCF      +2                                    #  SETTING A TO 0.
009143,000338: 10,2206           56001                           XCH      L                                     
009144,000339: 10,2207           52424                           DXCH     TANG                                  
009145,000340: 
009146,000341: 10,2210           02213                           TC       RROUT                                 
009147,000342: 
009148,000343: 10,2211           12161                           TCF      NXTRR1AX                              #  COME BACK IN .5 SECONDS.
009149,000344: 
009150,000345: 10,2212           22715        RRSPGAIN           DEC      .59062                                #  NULL .7 ERROR IN .5 SEC.
009151,000346: 

Page 235

009153,000348:                                                                                                  #           THE FOLLOWING ROUTINE RECEIVES RR GYRO COMMANDS IN TANG,+1 IN ERROR COUNTER SCALING. RROUT LIMITS THEM
009154,000349:                                                                                                  #  AND GENERATES COMMANDS TO THE CDU TO ADJUST THE ERROR COUNTERS TO THE DESIRED VALUES. RUPT MUST BE INHIBITED.
009155,000350: 
009156,000351: 10,2213           22002        RROUT              LXCH     Q                                     #  SAVE RETURN.
009157,000352: 10,2214           37657                           CAF      ONE                                   #  LOOP TWICE.
009158,000353: 10,2215           54066        RROUT2             TS       ITEMP2                                
009159,000354: 10,2216           50000                           INDEX    A                                     
009160,000355: 10,2217           30423                           CA       TANG                                  
009161,000356: 10,2220           54065                           TS       ITEMP1                                #  SAVE SIGN OF COMMAND FOR LIMITING.
009162,000357: 
009163,000358: 10,2221           04763                           TC       MAGSUB                                #  SEE IF WITHIN LMITS.
009164,000359: 10,2222           77177        -RRLIMIT           DEC      -384       B-14                       
009165,000360: 10,2223           12241                           TCF      RROUTLIM                              #  LIMIT COMMAND TO MAG OF 384.
009166,000361: 
009167,000362: 10,2224           30065        SETRRCTR           CA       ITEMP1                                #  COUNT OUT DIFFERENCE BETWEEN DESIRED
009168,000363: 10,2225           50066                           INDEX    ITEMP2                                #  STATE AND PRESENT STATE AS RECORDED IN
009169,000364: 10,2226           56362                           XCH      LASTYCMD                              #  LASTYCMD AND LASTXCMD
009170,000365: 10,2227           40000                           COM                                            
009171,000366: 10,2230           60065                           AD       ITEMP1                                
009172,000367: 10,2231           50066                           INDEX    ITEMP2                                
009173,000368: 10,2232           54053                           TS       OPTYCMD                               
009174,000369: 
009175,000370: 10,2233           10066                           CCS      ITEMP2                                #  PROCESS BOTH INPUTS.
009176,000371: 10,2234           12215                           TCF      RROUT2                                
009177,000372: 
009178,000373: 10,2235           34506                           CAF      PRIO6                                 #  ENABLE COUNTERS.
009179,000374: 10,2236           00006                           EXTEND                                         
009180,000375: 10,2237           05014                           WOR      14                                    
009181,000376: 
009182,000377: 10,2240           00001                           TC       L                                     #  RETURN.
009183,000378: 
009184,000379: 10,2241           10065        RROUTLIM           CCS      ITEMP1                                #  LIMIT COMMAND TO ABS VAL OF 384.
009185,000380: 10,2242           42222                           CS       -RRLIMIT                              
009186,000381: 10,2243           12245                           TCF      +2                                    
009187,000382: 10,2244           32222                           CA       -RRLIMIT                              
009188,000383: 10,2245           54065                           TS       ITEMP1                                
009189,000384: 10,2246           12225                           TCF      SETRRCTR   +1                         
009190,000385: 

Page 236

009192,000387:                                                                                                  #           ROUTINE TO ZERO THE RR CDUS AND DETERMINE THE ANTENNA MODE.
009193,000388: 
009194,000389: 10,2247           00004        RRZERO             INHINT                                         
009195,000390: 10,2250           47651                           CS       RRUSEFLG                              #  SET FLAG TO SHOW SOMEONE USING THE RR.
009196,000391: 10,2251           70061                           MASK     STATE                                 
009197,000392: 10,2252           67651                           AD       RRUSEFLG                              
009198,000393: 10,2253           54061                           TS       STATE                                 
009199,000394: 
009200,000395: 10,2254           37657                           CAF      BIT1                                  #  SEE IF RR COMING UP. IF SO, TURNON
009201,000396: 10,2255           70413                           MASK     RADMODES                              #  PROGRAM WILL DO THE WORK.
009202,000397: 10,2256           10000                           CCS      A                                     
009203,000398: 10,2257           12302                           TCF      ROADBACK                              
009204,000399: 
009205,000400: 10,2260           37645                           CAF      BIT11                                 #  SEE IF MONITOR REPOSITION IN PROGRESS.
009206,000401: 10,2261           70413                           MASK     RADMODES                              #  IF SO, DONT RE-ZERO CDUS.
009207,000402: 10,2262           10000                           CCS      A                                     
009208,000403: 10,2263           13227                           TCF      RADNOOP                               #  (IMMEDIATE TASK TO RGOODEND).
009209,000404: 
009210,000405: 10,2264           47643                           CS       BIT13                                 #  SET FLAG TO SHOW ZEROING IN PROGRESS.
009211,000406: 10,2265           70413                           MASK     RADMODES                              
009212,000407: 10,2266           67643                           AD       BIT13                                 
009213,000408: 10,2267           54413                           TS       RADMODES                              
009214,000409: 
009215,000410: 10,2270           37657                           CAF      ONE                                   
009216,000411: 10,2271           04536                           TC       WAITLIST                              
009217,000412: 10,2272           02304 20003                     2CADR    RRZ2                                  
009218,000413: 
009219,000414: 10,2274           40413                           CS       RADMODES                              #  SEE IF IN AUTO MODE.
009220,000415: 10,2275           77656                           MASK     BIT2                                  
009221,000416: 10,2276           10000                           CCS      A                                     
009222,000417: 10,2277           12302                           TCF      ROADBACK                              
009223,000418: 10,2300           05413                           TC       ALARM                                 #  AUTO DISCRETE NOT PRESENT - TRYING
009224,000419: 10,2301           00510                           OCT      510                                   
009225,000420: 10,2302           00003        ROADBACK           RELINT                                         
009226,000421: 10,2303           14076                           TCF      SWRETURN                              
009227,000422: 
009228,000423: 10,2304           02013        RRZ2               TC       RRZEROSB                              #  COMMON TO TURNON AND RRZERO.
009229,000424: 10,2305           13235                           TCF      ENDRADAR                              
009230,000425: 
009231,000426: 10,2306     7651               RRUSEFLG           EQUALS   BIT7                                  
009232,000427: 10,2306     7653               LOKONFLG           EQUALS   BIT5                                  
009233,000428: 

Page 237

009235,000430:                                                                                                  #           STABLE-MEMBER RR DESIGNATE ROUTINE. DESIGNATE TO A SM LOS VECTOR (HALF-UNIT) IN RRTARGET. REMODES IF
009236,000431:                                                                                                  #  REQUIRED. RETURNS TO CALLER IF MANEUVER REQUIRED FOR DES AND SKIPS IF IT CAN BE DONE IN PRESENT VEH ATTITUDE.
009237,000432: 
009238,000433: 10,2306           43030        RRDESSM            STQ      CLEAR                                 
009239,000434: 10,2307           00427                                    DESRET                                
009240,000435: 10,2310           00271                                    RRNBSW                                
009241,000436: 10,2311           66224                           RTB      SSP                                   #  READ CDUS FOR SMNB.
009242,000437: 10,2312           33361                                    READCDUS                              
009243,000438: 10,2313           00051                                    S1                                    
009244,000439: 10,2314           00024                                    20D                                   
009245,000440: 10,2315           22025                           STOVL    20D                                   
009246,000441: 10,2316           00416                                    RRTARGET                              
009247,000442: 10,2317           36041                           STCALL   32D                                   
009248,000443: 10,2320           32473                                    SMNB                                  
009249,000444: 
009250,000445: 10,2321           77634                           CALL                                           #  GET RR GIMBAL ANGLES IN PRESENT AND
009251,000446: 10,2322           33267                                    RRANGLES                              #  ALTERNATE MODE.
009252,000447: 10,2323           77776                           EXIT                                           
009253,000448: 
009254,000449: 10,2324           00004                           INHINT                                         
009255,000450: 10,2325           04777                           TC       RRLIMCHK                              
009256,000451: 10,2326           00423                           ADRES    MODEA                                 #  CONFIGURATION FOR CURRENT MODE.
009257,000452: 10,2327           12351                           TCF      TRYSWS                                
009258,000453: 
009259,000454: 10,2330           24427        OKDESSM            INCR     DESRET                                #  INCREMENT SAYS NO VEHICLE MANEUVER REQ.
009260,000455: 

Page 238

009262,000457:                                                                                                  #           AT THIS POINT WE ARE READY TO BEGIN DESIGNATION. THE TARGET IS STORED AS A HALF-UNIT VECTOR IN RRTARGET
009263,000458:                                                                                                  #  WITH RRNBSW SET IF IT IS REFERRED TO NAV BASE AXES. LOKONSW IS SET IF LOCKON IS DESIRED. BIT14 OF RADMODES IS
009264,000459:                                                                                                  #  SET IF A REMODE IS REQUIRED. AT THIS TIME, THE ANTENNA MAY BE IN A MONITOR REPOSITION OPERATION. IN THIS
009265,000460:                                                                                                  #  CASE, IF A REMODE IS REQUIRED IT MAY HAVE ALREADY BEGUN BUT IT ANY CASE THE REPOSITION WILL BE INTERRUPTED.
009266,000461:                                                                                                  #  OTHERWISE, THE REPOSITION WILL BE COMPLETED BEFORE 2-AXIS DESIGNATION BEGINS.
009267,000462: 
009268,000463: 10,2331           32350        STARTDES           CAF      MAXTRIES                              #  ALLOW 30 SECS.
009269,000464: 10,2332           54430                           TS       DESCOUNT                              
009270,000465: 
009271,000466: 10,2333           37646                           CAF      BIT10                                 #  SHOW DESIGNATE REQUIRED.
009272,000467: 10,2334           26413                           ADS      RADMODES                              
009273,000468: 10,2335           77645                           MASK     BIT11                                 #  SEE IF REPOSITION IN PROGRESS.
009274,000469: 10,2336           10000                           CCS      A                                     
009275,000470: 10,2337           12345                           TCF      DESRETRN                              #  ECTR ALREADY SET UP.
009276,000471: 
009277,000472: 10,2340           02106                           TC       SETRRECR                              #  SET UP ERROR COUNTERS.
009278,000473: 
009279,000474: 10,2341           37656                           CAF      TWO                                   
009280,000475: 10,2342           04536                           TC       WAITLIST                              
009281,000476: 10,2343           02422 20003                     2CADR    BEGDES                                
009282,000477: 
009283,000478: 10,2345           00003        DESRETRN           RELINT                                         #  RETURN VIA DESRET
009284,000479: 10,2346           30427                 +1        CA       DESRET                                
009285,000480: 10,2347           14105                           TCF      BANKJUMP                              
009286,000481: 
009287,000482: 10,2350           00074        MAXTRIES           DEC      60         B-14                       
009288,000483: 

Page 239

009290,000485:                                                                                                  #           SEE IF RRDESSM CAN BE ACCOMPLISHED AFTER A REMODE.
009291,000486: 
009292,000487: 10,2351           02142        TRYSWS             TC       RMODINV                               #  (NOTE RUPT INHIBIT)
009293,000488: 10,2352           04777                           TC       RRLIMCHK                              #  TRY DIFFERENT MODE.
009294,000489: 10,2353           00425                           ADRES    MODEB                                 
009295,000490: 10,2354           12361                           TCF      NODESSM                               #  VEHICLE MANEUVER REQUIRED.
009296,000491: 
009297,000492: 10,2355           02142                           TC       RMODINV                               #  RESET BIT12
009298,000493: 10,2356           37642                           CAF      BIT14                                 #  SET FLAG FOR REMODE.
009299,000494: 10,2357           26413                           ADS      RADMODES                              
009300,000495: 
009301,000496: 10,2360           12330                           TCF      OKDESSM                               
009302,000497: 
009303,000498: 10,2361           02142        NODESSM            TC       RMODINV                               #  RE-INVERT MODE AND RETURN WITHOUT IN-
009304,000499: 10,2362           12345                           TCF      DESRETRN                              #  CREMENTING DESRET
009305,000500: 

Page 240

009307,000502:                                                                                                  #           DESIGNATE TO SPECIFIC RR GIMBAL ANGLES (INDEPENDENT OF VEHICLE MOTION).  ENTER WITH DESIRED ANGLES IN
009308,000503:                                                                                                  #  TANG AND TANG +1.
009309,000504: 
009310,000505: 10,2363           77430        RRDESNB            STQ      EXIT                                  #  ENTER IN INTERP. - EXIT IN BASIC.
009311,000506: 10,2364           00427                                    DESRET                                
009312,000507: 
009313,000508: 10,2365           00004                           INHINT                                         #  SEE IF CURRENT MODE OK.
009314,000509: 10,2366           04777                           TC       RRLIMCHK                              
009315,000510: 10,2367           00423                           ADRES    TANG                                  
009316,000511: 10,2370           12402                           TCF      TRYSWN                                #  SEE IF IN OTHER MODE.
009317,000512: 
009318,000513: 10,2371           00003        OKDESNB            RELINT                                         
009319,000514: 10,2372           06000                           TC       INTPRET                               
009320,000515: 
009321,000516: 10,2373           77634                           CALL                                           #  GET LOS IN NB COORDS.
009322,000517: 10,2374           33243                                    RRNB                                  
009323,000518: 10,2375           00416                           STORE    RRTARGET                              
009324,000519: 
009325,000520: 10,2376           77414                           SET      EXIT                                  
009326,000521: 10,2377           00071                                    RRNBSW                                
009327,000522: 
009328,000523: 10,2400           00004                           INHINT                                         
009329,000524: 10,2401           12331                           TCF      STARTDES                              
009330,000525: 
009331,000526: 10,2402           02142        TRYSWN             TC       RMODINV                               #  SEE IF OTHER MODE WILL DO.
009332,000527: 10,2403           04777                           TC       RRLIMCHK                              
009333,000528: 10,2404           00423                           ADRES    TANG                                  
009334,000529: 10,2405           12412                           TCF      NODESNB                               #  NOT POSSIBLE.
009335,000530: 
009336,000531: 10,2406           02142                           TC       RMODINV                               
009337,000532: 10,2407           37642                           CAF      BIT14                                 #  CALL FOR REMODE.
009338,000533: 10,2410           26413                           ADS      RADMODES                              
009339,000534: 10,2411           12371                           TCF      OKDESNB                               
009340,000535: 
009341,000536: 10,2412           37657        NODESNB            CAF      BIT1                                  #  CALL FOR ERROR RETURN.
009342,000537: 10,2413           04536                           TC       WAITLIST                              
009343,000538: 10,2414           03251 20003                     2CADR    RDBADEND                              
009344,000539: 
009345,000540: 10,2416           02142                           TC       RMODINV                               
009346,000541: 10,2417           05413                           TC       ALARM                                 #  BAD GIMBAL ANGLE INPUTS.
009347,000542: 10,2420           00502                           OCT      502                                   
009348,000543: 10,2421           12346                           TCF      DESRETRN   +1                         #  ALARM DID A RELINT.
009349,000544: 

Page 241

009351,000546:                                                                                                  #           WAITLIST TASKS TO RUN RR DESIGNATION.
009352,000547: 
009353,000548: 10,2422           37642        BEGDES             CAF      BIT14                                 #  ENTER HERE FROM STARTDES OR REPOSRPT.
009354,000549: 10,2423           70413                           MASK     RADMODES                              #  SEE IF REMODE REQUIRED.
009355,000550: 10,2424           10000                           CCS      A                                     
009356,000551: 10,2425           12115                           TCF      REMODE                                
009357,000552: 10,2426           12431                           TCF      STDESIG                               
009358,000553: 
009359,000554: 10,2427           04554        DESLOOP            TC       FIXDELAY                              #  2 SAMPLES PER SECOND.
009360,000555: 10,2430           00062                           DEC      50         B-14                       
009361,000556: 
009362,000557: 10,2431           37645        STDESIG            CAF      BIT11                                 #  ENTRY FROM BEGDES AND REMODE.
009363,000558: 10,2432           70413                           MASK     RADMODES                              #  SEE IF GIMBAL LIMIT MONITOR HAS FOUND US
009364,000559: 10,2433           10000                           CCS      A                                     #  OUT OF BOUNDS. IF SO, THIS BIT SHOWS A
009365,000560: 10,2434           12454                           TCF      BADDES                                #  REPOSITION TO BE IN PROGRESS.
009366,000561: 
009367,000562: 10,2435           10413                           CCS      RADMODES                              #  SEE IF CONTINUOUS DESIGNATE WANTED.
009368,000563: 10,2436           12441                           TCF      +3                                    #  IF SO, DONT CHECK BIT 10 TO SEE IF IN
009369,000564: 10,2437           12441                           TCF      +2                                    #  LIMITS BUT GO RIGHT TO FINDVAC ENTRY.
009370,000565: 10,2440           12461                           TCF      MOREDES    +1                         
009371,000566: 
009372,000567: 10,2441           40413                           CS       RADMODES                              #  IF NON-CONTINUOUS, SEE IF END OF
009373,000568: 10,2442           77646                           MASK     BIT10                                 #  PROBLEM (DATA GOOD IF LOCK-ON WANTED OR
009374,000569: 10,2443           10000                           CCS      A                                     #  WITHIN LIMITS IF NOT). IF SO, EXIT AFTER
009375,000570: 10,2444           13235                           TCF      ENDRADAR                              #  CHECKING RR CDU FAIL.
009376,000571: 
009377,000572: 10,2445           10430                           CCS      DESCOUNT                              #  SEE IF TIME LIMIT HAS EXPIRED.
009378,000573: 10,2446           12460                           TCF      MOREDES                               
009379,000574: 
009380,000575: 10,2447           05413                           TC       ALARM                                 #  OUT OF TIME.
009381,000576: 10,2450           00503                           OCT      503                                   
009382,000577: 10,2451           42466                           CS       B14+B2                                #  IF OUT OF TIME, REMOVE ECR ENABLE + TRKR
009383,000578: 10,2452           00006                           EXTEND                                         
009384,000579: 10,2453           03012                           WAND     12                                    
009385,000580: 10,2454           47646        BADDES             CS       BIT10                                 #  REMOVE DESIGNATE FLAG.
009386,000581: 10,2455           70413                           MASK     RADMODES                              
009387,000582: 10,2456           54413                           TS       RADMODES                              
009388,000583: 10,2457           13251                           TCF      RDBADEND                              
009389,000584: 
009390,000585: 10,2460           54430        MOREDES            TS       DESCOUNT                              
009391,000586: 10,2461           34524                           CAF      PRIO26                                #  UPDATE GYRO TORQUE COMMANDS.
009392,000587: 10,2462           04374                           TC       FINDVAC                               
009393,000588: 10,2463           02467 20003                     2CADR    DODES                                 
009394,000589: 
009395,000590: 10,2465           12427                           TCF      DESLOOP                               
009396,000591: 
009397,000592: 10,2466           20002        B14+B2             OCT      20002                                 
009398,000593: 

Page 242

009400,000595:                                                                                                  #           CALCULATE GYRO TORQUE COMMANDS.
009401,000596: 
009402,000597: 10,2467           00006        DODES              EXTEND                                         
009403,000598: 10,2470           30036                           DCA      OPTY                                  
009404,000599: 10,2471           52424                           DXCH     TANG                                  
009405,000600: 
009406,000601: 10,2472           06000                           TC       INTPRET                               
009407,000602: 
009408,000603: 10,2473           77775                           VLOAD                                          #  MOVE TARGET VECTOR TO 32D.
009409,000604: 10,2474           00416                                    RRTARGET                              
009410,000605: 10,2475           00041                           STORE    32D                                   
009411,000606: 
009412,000607: 10,2476           45014                           BON      RTB                                   #  DO STABLE-MEMBER TO NAVBASE TRANSFORMA-
009413,000608: 10,2477           00311                                    RRNBSW                                #  TION IF TARGET IN SM COORDS. OTHERWISE,
009414,000609: 10,2500           20507                                    DONBRD                                #  IN NB COORDS ALREADY.
009415,000610: 10,2501           33361                                    READCDUS                              
009416,000611: 
009417,000612: 10,2502           77731                           SSP                                            
009418,000613: 10,2503           00051                                    S1                                    
009419,000614: 10,2504           00024                                    20D                                   #  LOC OF ICDUS.
009420,000615: 10,2505           36025                           STCALL   20D                                   
009421,000616: 10,2506           32473                                    SMNB                                  
009422,000617: 

Page 243

009424,000619: 10,2507           67201        DONBRD             SETPD    SLOAD                                 #  DO NAVBASE TO RADAR DISH TRANSFORMATION.
009425,000620: 10,2510           00001                                    0                                     
009426,000621: 10,2511           00425                                    TANG       +1                         
009427,000622: 10,2512           41424                           RTB      PUSH                                  #  SHAFT COMMAND = V(32D).(COS(S), 0,
009428,000623: 10,2513           33345                                    CDULOGIC                              #        (-SIN(S)).
009429,000624: 10,2514           65356                           SIN      PDDL                                  #  SIN(S) TO 0 AND COS(S) TO 2.
009430,000625: 10,2515           41546                           COS      PUSH                                  
009431,000626: 10,2516           65205                           DMP      PDDL                                  
009432,000627: 10,2517           00041                                    32D                                   
009433,000628: 10,2520           00045                                    36D                                   
009434,000629: 10,2521           44205                           DMP      BDSU                                  
009435,000630: 10,2522           00001                                    0                                     
009436,000631: 10,2523           77626                           STADR                                          
009437,000632: 10,2524           77352                           STORE    TANG       +1                         #  SHAFT COMMAND
009438,000633: 
009439,000634: 10,2525           45135                           SLOAD    RTB                                   
009440,000635: 10,2526           00424                                    TANG                                  
009441,000636: 10,2527           33345                                    CDULOGIC                              
009442,000637: 10,2530           71406                           PUSH     COS                                   #  COS(T) TO 4.
009443,000638: 10,2531           73525                           PDDL     SIN                                   
009444,000639: 10,2532           41206                           PUSH     DMP                                   #  SIN(T) TO 6.
009445,000640: 10,2533           00003                                    2                                     
009446,000641: 10,2534           65352                           SL1      PDDL                                  #  DEFINE VECTOR U =     (SIN(T)SIN(S))
009447,000642: 10,2535           00005                                    4                                     #                        (   COS(T)   )
009448,000643: 10,2536           41325                           PDDL     DMP                                   #                        (SIN(T)COS(S))
009449,000644: 10,2537           00007                                    6                                     
009450,000645: 10,2540           00001                                    0                                     
009451,000646: 10,2541           55552                           SL1      VDEF                                  
009452,000647: 10,2542           77441                           DOT      EXIT                                  #  DOT U WITH LOS TO GET TRUNNION COMMAND.
009453,000648: 10,2543           00041                                    32D                                   
009454,000649: 

Page 244

009456,000651:                                                                                                  #           AT THIS POINT WE HAVE A ROTATION VECTOR IN DISH AXES LYING IN THE TS PLANE. CONVERT THIS TO A
009457,000652:                                                                                                  #  COMMANDED RATE AND ENABLE THE TRACKER IF WE ARE WITHIN 1 DEGREE OF THE TARGET.
009458,000653: 
009459,000654: 10,2544           40140                           CS       MPAC                                  #  DOT WAS NEGATIVE OF DESIRED ANGLE.
009460,000655: 10,2545           54423                           TS       TANG                                  
009461,000656: 
009462,000657: 10,2546           40413                           CS       RADMODES                              #  A RELAY IN THE RR REVERSES POLARITY OF
009463,000658: 10,2547           77644                           MASK     BIT12                                 #  THE SHAFT COMMANDS IN MODE 2 SO THAT A
009464,000659: 10,2550           10000                           CCS      A                                     #  POSITIVE TORQUE APPLIED TO THE SHAFT
009465,000660: 10,2551           12554                           TCF      +3                                    #  GYRO CAUSES A POSITIVE CHANGE IN THE
009466,000661: 
009467,000662: 10,2552           40424                           CS       TANG       +1                         #  SHAFT ANGLE.  COMPENSATE FOR THIS SWITCH
009468,000663: 10,2553           54424                           TS       TANG       +1                         #  BY CHANGING THE POLARITY OF OUR COMMAND.
009469,000664: 
009470,000665: 10,2554           37665                           CAF      ZERO                                  
009471,000666: 10,2555           54141                           TS       MPAC       +1                         
009472,000667: 10,2556           37657                           CAF      ONE                                   
009473,000668: 
009474,000669: 10,2557           54140        RRSCALUP           TS       MPAC                                  
009475,000670: 10,2560           50000                           INDEX    A                                     
009476,000671: 10,2561           30423                           CA       TANG                                  #  TRUNNION COMPONENT OF ROTATION.
009477,000672: 10,2562           00006                           EXTEND                                         
009478,000673: 10,2563           72635                           MP       RDESGAIN                              #  SCALING ON INPUT ANGLE WAS 4 RADIANS.
009479,000674: 10,2564           50140                           INDEX    MPAC                                  
009480,000675: 10,2565           56423                           XCH      TANG                                  #  MAKE EACH COMPONENT LESS THAN .7 DEGREES
009481,000676: 10,2566           04763                           TC       MAGSUB                                #  BEFORE SENDING TRACK ENABLE.
009482,000677: 10,2567           77715                           DEC      -.00305                               
009483,000678: 10,2570           24141                           INCR     MPAC       +1                         #  IF OUT OF BOUNDS.
009484,000679: 
009485,000680: 10,2571           10140                           CCS      MPAC                                  
009486,000681: 10,2572           12557                           TCF      RRSCALUP                              
009487,000682: 

Page 245

009489,000684:                                                                                                  #           SEE IF TRACKER SHOULD BE ENABLED OR DISABLED.
009490,000685: 
009491,000686: 10,2573           00004                           INHINT                                         
009492,000687: 
009493,000688: 10,2574           10413                           CCS      RADMODES                              #  IF CONTINUOUS DESIGNATE WANTED, PUT OUT
009494,000689: 10,2575           12600                           TCF      +3                                    #  COMMANDS WITHOUT CHECKING MAGNITUDE OF
009495,000690: 10,2576           12600                           TCF      +2                                    #  ERROR SIGNALS.
009496,000691: 10,2577           12625                           TCF      TRKOFF                                
009497,000692: 
009498,000693: 10,2600           10141                           CCS      MPAC       +1                         #  SEE IF BOTH AXES WERE WITHIN .7 DEGS.
009499,000694: 10,2601           12625                           TCF      TRKOFF                                
009500,000695: 
009501,000696: 10,2602           40061                           CS       STATE                                 #  IF WITHIN LIMITS AND NO LOCK-ON WANTED,
009502,000697: 10,2603           77653                           MASK     LOKONFLG                              #  PROBLEM IS FINISHED.
009503,000698: 10,2604           10000                           CCS      A                                     
009504,000699: 10,2605           12616                           TCF      RRDESDUN                              
009505,000700: 
009506,000701: 10,2606           37642                           CAF      BIT14                                 #  ENABLE THE TRACKER.
009507,000702: 10,2607           00006                           EXTEND                                         
009508,000703: 10,2610           05012                           WOR      12                                    
009509,000704: 
009510,000705: 10,2611           37654                           CAF      BIT4                                  #  SEE IF DATA GOOD RECEIVED YET.
009511,000706: 10,2612           00006                           EXTEND                                         
009512,000707: 10,2613           02033                           RAND     33                                    
009513,000708: 10,2614           10000                           CCS      A                                     
009514,000709: 10,2615           12630                           TCF      DORROUT                               
009515,000710: 
009516,000711: 10,2616           47646        RRDESDUN           CS       BIT10                                 #  WHEN PROBLEM DONE, REMOVE BIT 10 SO NEXT
009517,000712: 10,2617           70413                           MASK     RADMODES                              #  WAITLIST TASK WE WILL GO TO RGOODEND.
009518,000713: 10,2620           54413                           TS       RADMODES                              
009519,000714: 
009520,000715: 10,2621           47656                           CS       BIT2                                  
009521,000716: 10,2622           00006                           EXTEND                                         
009522,000717: 10,2623           03012                           WAND     12                                    
009523,000718: 10,2624           14440                           TCF      ENDOFJOB                              #  WITH ECTR DISABLED.
009524,000719: 
009525,000720: 10,2625           47642        TRKOFF             CS       BIT14                                 
009526,000721: 10,2626           00006                           EXTEND                                         
009527,000722: 10,2627           03012                           WAND     12                                    
009528,000723: 
009529,000724: 10,2630           40413        DORROUT            CS       RADMODES                              #  PUT OUT COMMAND UNLESS MONITOR
009530,000725: 10,2631           77645                           MASK     BIT11                                 #  REPOSITION HAS TAKEN OVER.
009531,000726: 10,2632           10000                           CCS      A                                     
009532,000727: 10,2633           02213                           TC       RROUT                                 
009533,000728: 
009534,000729: 10,2634           14440                           TCF      ENDOFJOB                              
009535,000730: 
009536,000731: 10,2635           21122        RDESGAIN           DEC      .53624                                #  TRIES TO NULL .5 ERROR IN .5 SEC.
009537,000732: 

Page 246

009539,000734:                                                                                                  #  RADAR READ INITIALIZATION
009540,000735: 
009541,000736:                                                                                                  #  RADAR DATA ARE READ BY A BANKCALL FOR THE APPROPRIATE LEAD-IN BELOW.
009542,000737: 
009543,000738: 
009544,000739: 
009545,000740: 10,2636           02652        LRALT              TC       INITREAD   -1                         #  ONE SAMPLE PER READING.
009546,000741: 10,2637           00017        ALLREAD            OCT      17                                    
009547,000742: 
009548,000743: 10,2640           02653        LRVELZ             TC       INITREAD                              
009549,000744: 10,2641           00016                           OCT      16                                    
009550,000745: 
009551,000746: 10,2642           02653        LRVELY             TC       INITREAD                              
009552,000747: 10,2643           00015                           OCT      15                                    
009553,000748: 
009554,000749: 10,2644           02653        LRVELX             TC       INITREAD                              
009555,000750: 10,2645           00014                           OCT      14                                    
009556,000751: 
009557,000752: 10,2646           02652        RRRDOT             TC       INITREAD   -1                         
009558,000753: 10,2647           00012                           OCT      12                                    
009559,000754: 
009560,000755: 10,2650           02652        RRRANGE            TC       INITREAD   -1                         
009561,000756: 10,2651           00011                           OCT      11                                    
009562,000757: 

Page 247

009564,000759: 10,2652           37657                 -1        CAF      ONE                                   #  ENTRY TO TAKE ONLY 1 SAMPLE.
009565,000760: 10,2653           00004        INITREAD           INHINT                                         
009566,000761: 
009567,000762: 10,2654           54421                           TS       TIMEHOLD                              #  GET DT OF MIDPOINT OF NOMINAL SAMPLING
009568,000763: 10,2655           00006                           EXTEND                                         #  INTERVAL (ASSUMES NO BAD SAMPLES WILL BE
009569,000764: 10,2656           77655                           MP       BIT3                                  #  ENCOUNTERED).
009570,000765: 10,2657           52422                           DXCH     TIMEHOLD                              
009571,000766: 
009572,000767: 10,2660           10000                           CCS      A                                     
009573,000768: 10,2661           54425                           TS       NSAMP                                 
009574,000769: 10,2662           67657                           AD       ONE                                   
009575,000770:                                                                                                  #           INSERT FOLLOWING INSTRUCTION TO GET 2N TRIES FOR N SAMPLES.
009576,000771:                                                                                                  #                DOUBLE
009577,000772: 10,2663           54414                           TS       SAMPLIM                               
009578,000773: 
009579,000774: 10,2664           32706                           CAF      DGBITS                                #  READ CURRENT VALUE OF DATA GOOD BITS.
009580,000775: 10,2665           00006                           EXTEND                                         
009581,000776: 10,2666           02033                           RAND     33                                    
009582,000777: 10,2667           54427                           TS       OLDATAGD                              
009583,000778: 
009584,000779: 10,2670           42637                           CS       ALLREAD                               
009585,000780: 10,2671           00006                           EXTEND                                         
009586,000781: 10,2672           03013                           WAND     13                                    #  REMOVE ALL RADAR BITS
009587,000782: 
009588,000783: 10,2673           50002                           INDEX    Q                                     
009589,000784: 10,2674           30000                           CAF      0                                     
009590,000785: 10,2675           00006                           EXTEND                                         
009591,000786: 10,2676           05013                           WOR      13                                    #  SET NEW RADAR BITS
009592,000787: 
009593,000788: 10,2677           00006                           EXTEND                                         
009594,000789: 10,2700           30025                           DCA      TIME2                                 
009595,000790: 10,2701           20422                           DAS      TIMEHOLD                              #  TIME OF NOMINAL MIDPOINT.
009596,000791: 
009597,000792: 10,2702           37665                           CAF      ZERO                                  
009598,000793: 10,2703           54001                           TS       L                                     
009599,000794: 10,2704           52416                           DXCH     SAMPLSUM                              
009600,000795: 10,2705           12302                           TCF      ROADBACK                              
009601,000796: 
009602,000797: 10,2706           00230        DGBITS             OCT      230                                   
009603,000798: 

Page 248

009605,000800:                                                                                                  #  RADAR RUPT READER
009606,000801: 
009607,000802:                                                                                                  #  THIS ROUTINE STARTS FROM A RADARUPT. IT READS THE DATA $ LOTS MORE.
009608,000803: 
009609,000804: 10,2707           54016        RADAREAD           TS       BANKRUPT                              
009610,000805: 10,2710           00006                           EXTEND                                         
009611,000806: 10,2711           22012                           QXCH     QRUPT                                 
009612,000807: 
009613,000808: 10,2712           00006        ANGLREAD           EXTEND                                         
009614,000809: 10,2713           30036                           DCA      OPTY                                  
009615,000810: 10,2714           52420                           DXCH     OPTYHOLD                              #  SAVE RAW CDU ANGLES
009616,000811: 
009617,000812: 10,2715           10414        TRYCOUNT           CCS      SAMPLIM                               
009618,000813: 10,2716           12730                           TCF      PLENTY                                
009619,000814: 10,2717           12723                           TCF      NOMORE                                
009620,000815: 10,2720           05413                           TC       ALARM                                 
009621,000816: 10,2721           00520                           OCT      520                                   
009622,000817: 10,2722           04606                           TC       RESUME                                
009623,000818: 
009624,000819: 10,2723           05413        NOMORE             TC       ALARM                                 
009625,000820: 10,2724           00521                           OCT      521                                   
009626,000821: 10,2725           47657        BADRAD             CS       ONE                                   
009627,000822: 10,2726           54414                           TS       SAMPLIM                               
009628,000823: 10,2727           03247                           TC       RDBADEND   -2                         
009629,000824: 
009630,000825: 10,2730           54414        PLENTY             TS       SAMPLIM                               
009631,000826: 10,2731           37655                           CAF      BIT3                                  
009632,000827: 10,2732           00006                           EXTEND                                         
009633,000828: 10,2733           02013                           RAND     13                                    #  TO FIND OUT WHICH RADAR
009634,000829: 10,2734           00006                           EXTEND                                         
009635,000830: 10,2735           13014                           BZF      RENDRAD                               
009636,000831: 
009637,000832: 10,2736           30413        LRPOSCHK           CA       RADMODES                              #  SEE IF LR IN DESIRED POSITION.
009638,000833: 10,2737           00006                           EXTEND                                         
009639,000834: 10,2740           06033                           RXOR     33                                    
009640,000835: 10,2741           77652                           MASK     BIT6                                  
009641,000836: 10,2742           00006                           EXTEND                                         
009642,000837: 10,2743           12747                           BZF      VELCHK                                
009643,000838: 
009644,000839: 10,2744           05413                           TC       ALARM                                 
009645,000840: 10,2745           00522                           OCT      522                                   
009646,000841: 10,2746           02725                           TC       BADRAD                                
009647,000842: 
009648,000843: 10,2747           36165        VELCHK             CAF      BIN3                                  #  = 00003 OCT
009649,000844: 10,2750           00006                           EXTEND                                         
009650,000845: 10,2751           06013                           RXOR     13                                    
009651,000846: 10,2752           76165                           MASK     BIN3                                  
009652,000847: 10,2753           00006                           EXTEND                                         
009653,000848: 10,2754           13010                           BZF      LRHEIGHT                              #  TAKE A LR RANGE READING
009654,000849: 

Page 249

009656,000851: 10,2755           37637                           CAF      POSMAX                                
009657,000852: 10,2756           70046                           MASK     RNRAD                                 
009658,000853: 10,2757           63167                           AD       LVELBIAS                              
009659,000854: 10,2760           54001                           TS       L                                     
009660,000855: 10,2761           30046                           CAE      RNRAD                                 
009661,000856: 10,2762           60000                           DOUBLE                                         
009662,000857: 10,2763           77657                           MASK     BIT1                                  
009663,000858: 10,2764           52071                           DXCH     ITEMP3                                
009664,000859: 
009665,000860: 10,2765           37650                           CAF      BIT8                                  #  DATA GOOD ISNT CHECKED UNTIL AFTER READ-
009666,000861: 10,2766           03137                           TC       DGCHECK                               #  ING DATA SO SOME RADAR TESTS WILL WORK
009667,000862:                                                                                                  #  INDEPENDENT OF DATA GOOD.
009668,000863: 
009669,000864: 10,2767           10425                           CCS      NSAMP                                 
009670,000865: 10,2770           03000                           TC       NOEND                                 
009671,000866: 10,2771           47657        GOODRAD            CS       ONE                                   
009672,000867: 10,2772           54414                           TS       SAMPLIM                               
009673,000868: 10,2773           40065                           CS       ITEMP1                                #  WHEN ENOUGH GOOD DATA HAS BEEN GATHERED,
009674,000869: 10,2774           70413                           MASK     RADMODES                              #  RESET DATA FAIL FLAGS FOR SETTRKF.
009675,000870: 10,2775           54413                           TS       RADMODES                              
009676,000871: 10,2776           05042                           TC       SETTRKF                               #  LAMP MIGHT GO OFF IF DATA JUST GOOD.
009677,000872: 10,2777           03242                           TC       RGOODEND   -2                         
009678,000873: 
009679,000874: 10,3000           54425        NOEND              TS       NSAMP                                 
009680,000875: 10,3001           10414        RESAMPLE           CCS      SAMPLIM                               #  SEE IF ANY MORE TRIES SHOULD BE MADE.
009681,000876: 10,3002           13004                           TCF      +2                                    
009682,000877: 10,3003           13156                           TCF      DATAFAIL                              #  N SAMPLES NOT AVAILABLE.
009683,000878: 10,3004           37654                           CAF      BIT4                                  #  RESET ACTIVITY BIT.
009684,000879: 10,3005           00006                           EXTEND                                         
009685,000880: 10,3006           05013                           WOR      13                                    #  RESET ACTIVITY BIT
009686,000881: 10,3007           04606                           TC       RESUME                                
009687,000882: 
009688,000883: 
009689,000884: 10,3010           37653        LRHEIGHT           CAF      BIT5                                  
009690,000885: 10,3011           54065                           TS       ITEMP1                                #  (POSITION OF DATA GOOD BIT IN CHAN 33)
009691,000886: 
009692,000887: 10,3012           37647                           CAF      BIT9                                  
009693,000888: 10,3013           03047                           TC       SCALECHK   -1                         
009694,000889: 
009695,000890: 10,3014           37645        RENDRAD            CAF      BIT11                                 #  MAKE SURE ANTENNA HAS NOT GONE OUT OF
009696,000891: 10,3015           70413                           MASK     RADMODES                              #  LIMITS.
009697,000892: 10,3016           10000                           CCS      A                                     
009698,000893: 10,3017           12725                           TCF      BADRAD                                
009699,000894: 
009700,000895: 10,3020           40413                           CS       RADMODES                              #  BE SURE RR CDU HASNT FAILED.
009701,000896: 10,3021           77651                           MASK     BIT7                                  
009702,000897: 10,3022           10000                           CCS      A                                     
009703,000898: 10,3023           12725                           TCF      BADRAD                                
009704,000899: 

Page 250

009706,000901: 10,3024           37644                           CAF      BIT12                                 #  DONT ACCEPT RR DATA IF TRUNNION MORE
009707,000902: 10,3025           70413                           MASK     RADMODES                              #  THAN 55 DEGREES FROM NOMINAL POSITION.
009708,000903: 10,3026           10000                           CCS      A                                     
009709,000904: 10,3027           37641                           CAF      BIT15                                 #  180 FOR MODE 2 - 0 FOR MODE 1.
009710,000905: 10,3030           00006                           EXTEND                                         
009711,000906: 10,3031           20035                           MSU      OPTY                                  
009712,000907: 10,3032           04763                           TC       MAGSUB                                
009713,000908: 10,3033           66161                           DEC      -.30555                               #  55 DEGS AT HALF-REVS.
009714,000909: 10,3034           12725                           TCF      BADRAD                                
009715,000910: 
009716,000911: 10,3035           37654                           CAF      BIT4                                  #  SEE IF DATA HAS BEEN GOOD.
009717,000912: 10,3036           54065                           TS       ITEMP1                                #  (POSITION OF DATA GOOD BIT IN CHAN 33)
009718,000913: 
009719,000914: 10,3037           37657                           CAF      BIT1                                  #  SEE IF RR RDOT.
009720,000915: 10,3040           00006                           EXTEND                                         
009721,000916: 10,3041           02013                           RAND     13                                    
009722,000917: 10,3042           54002                           TS       Q                                     #  FOR LATER TESTING.
009723,000918: 10,3043           10000                           CCS      A                                     
009724,000919: 10,3044           13046                           TCF      +2                                    
009725,000920: 10,3045           13060                           TCF      RADIN                                 #  NO SCALE CHECK FOR RR RDOT.
009726,000921: 10,3046           37655                           CAF      BIT3                                  
009727,000922: 10,3047           54001                           TS       L                                     
009728,000923: 
009729,000924: 10,3050           00006        SCALECHK           EXTEND                                         
009730,000925: 10,3051           02033                           RAND     33                                    #  SCALE STATUS NOW
009731,000926: 10,3052           56001                           XCH      L                                     
009732,000927: 10,3053           70413                           MASK     RADMODES                              #  SCALE STATUS BEFORE
009733,000928: 10,3054           00006                           EXTEND                                         
009734,000929: 10,3055           06001                           RXOR     01                                    #  SEE IF THEY DIFFER
009735,000930: 10,3056           10000                           CCS      A                                     
009736,000931: 10,3057           03077                           TC       SCALCHNG                              #  THEY DIFFER
009737,000932: 
009738,000933: 10,3060           37637        RADIN              CAF      POSMAX                                
009739,000934: 10,3061           70046                           MASK     RNRAD                                 
009740,000935: 10,3062           54071                           TS       ITEMP4                                
009741,000936: 
009742,000937: 10,3063           30046                           CAE      RNRAD                                 
009743,000938: 10,3064           60000                           DOUBLE                                         
009744,000939: 10,3065           77657                           MASK     BIT1                                  
009745,000940: 10,3066           54070                           TS       ITEMP3                                
009746,000941: 
009747,000942: 10,3067           10002                           CCS      Q                                     #  SEE IF RR RDOT.
009748,000943: 10,3070           13111                           TCF      SCALADJ                               #  NO, BUT SCALE CHANGING MAY BE NEEDED.
009749,000944: 
009750,000945: 10,3071           00006                           EXTEND                                         #  IF RR RANGE RATE, THROW OUT BIAS.
009751,000946: 10,3072           43171                           DCS      RDOTBIAS                              
009752,000947: 10,3073           20071        DASAMPL            DAS      ITEMP3                                
009753,000948: 10,3074           30065        DGCHECK2           CA       ITEMP1                                #  SEE THAT DATA HAS BEEN GOOD BEFORE AND
009754,000949: 10,3075           03140                           TC       DGCHECK    +1                         #  AFTER TAKING SAMPLE.
009755,000950: 10,3076           02771                           TC       GOODRAD                               
009756,000951: 

Page 251

009758,000953: 10,3077           22413        SCALCHNG           LXCH     RADMODES                              
009759,000954: 10,3100           67657                           AD       BIT1                                  
009760,000955: 10,3101           00006                           EXTEND                                         
009761,000956: 10,3102           06001                           RXOR     01                                    
009762,000957: 10,3103           54413                           TS       RADMODES                              
009763,000958: 10,3104           32706                           CAF      DGBITS                                #  UPDATE LAST VALUE OF DATA GOOD BITS.
009764,000959: 10,3105           00006                           EXTEND                                         
009765,000960: 10,3106           02033                           RAND     33                                    
009766,000961: 10,3107           54427                           TS       OLDATAGD                              
009767,000962: 10,3110           12725                           TCF      BADRAD                                
009768,000963: 

Page 252

009770,000965:                                                                                                  #           THE FOLLOWING ROUTINE INCORPORATES RR RANGE AND LR ALT SCALE INFORMATION AND LEAVES DATA AT LO SCALE.
009771,000966: 
009772,000967: 10,3111           10001        SCALADJ            CCS      L                                     #  L HAS SCALE INBIT FOR THIS RADAR.
009773,000968: 10,3112           13114                           TCF      +2                                    #  ON HIGH SCALE.
009774,000969: 10,3113           13074                           TCF      DGCHECK2                              
009775,000970: 
009776,000971: 10,3114           52071                           DXCH     ITEMP3                                
009777,000972: 10,3115           20001                           DDOUBL                                         
009778,000973: 10,3116           20001                           DDOUBL                                         
009779,000974: 10,3117           20001                           DDOUBL                                         
009780,000975: 10,3120           52071                           DXCH     ITEMP3                                
009781,000976: 
009782,000977: 10,3121           37655                           CAF      BIT3                                  #  SEE IF LR OR RR.
009783,000978: 10,3122           00006                           EXTEND                                         
009784,000979: 10,3123           02013                           RAND     13                                    
009785,000980: 10,3124           00006                           EXTEND                                         #  IF RR, NO MORE ACTION REQUIRED.
009786,000981: 10,3125           13074                           BZF      DGCHECK2                              
009787,000982: 
009788,000983: 10,3126           33166                           CAF      LRRATIO                               #  IF LR, CONVERT TO LO SCALING.
009789,000984: 10,3127           00006                           EXTEND                                         
009790,000985: 10,3130           70071                           MP       ITEMP4                                
009791,000986: 10,3131           54071                           TS       ITEMP4                                
009792,000987: 10,3132           37665                           CAF      ZERO                                  #  (SO SUBSEQUENT DAS WILL BE OK)
009793,000988: 10,3133           56070                           XCH      ITEMP3                                
009794,000989: 10,3134           00006                           EXTEND                                         
009795,000990: 10,3135           73166                           MP       LRRATIO                               
009796,000991: 10,3136           13073                           TCF      DASAMPL                               
009797,000992: 

Page 253

009799,000994: 10,3137           54065        DGCHECK            TS       ITEMP1                                #  UPDATE DATA GOOD BIT IN OLDATAGD AND
009800,000995: 10,3140           00006                           EXTEND                                         #  MAKE SURE IT WAS ON BEFORE AND AFTER THE
009801,000996: 10,3141           02033                           RAND     33                                    #  SAMPLE WAS TAKEN BEFORE RETURNING. IF
009802,000997: 10,3142           54001                           TS       L                                     #  NOT, GOES TO RESAMPLE TO TRY AGAIN. IF
009803,000998: 10,3143           40065                           CS       ITEMP1                                #  MAX NUMBER OF TRIES HAS BEEN REACHED,
009804,000999: 10,3144           70427                           MASK     OLDATAGD                              #  THE BIT CORRESPONDING TO THE DATA GOOD
009805,001000: 10,3145           60001                           AD       L                                     #  WHICH FAILED TO APPEAR IS IN ITEMP1 AND
009806,001001: 10,3146           56427                           XCH      OLDATAGD                              #  CAN BE USED TO SET RADMODES WHICH VIA
009807,001002: 10,3147           70065                           MASK     ITEMP1                                #  SETTRKF SETS THE TRACKER FAIL LAMP.
009808,001003: 10,3150           60001                           AD       L                                     
009809,001004: 10,3151           10000                           CCS      A                                     #  SHOULD BOTH BE ZERO.
009810,001005: 10,3152           03001                           TC       RESAMPLE                              
009811,001006: 10,3153           52071                           DXCH     ITEMP3                                #  IF DATA GOOD BEFORE AND AFTER, ADD TO
009812,001007: 10,3154           20416                           DAS      SAMPLSUM                              #  ACCUMULATION.
009813,001008: 10,3155           00002                           TC       Q                                     
009814,001009: 
009815,001010: 10,3156           40065        DATAFAIL           CS       ITEMP1                                #  IN THE ABOVE CASE, SET RADMODES BIT
009816,001011: 10,3157           70413                           MASK     RADMODES                              #  SHOWING SOME RADAR DATA FAILED.
009817,001012: 10,3160           60065                           AD       ITEMP1                                
009818,001013: 10,3161           54413                           TS       RADMODES                              
009819,001014: 
009820,001015: 10,3162           52071                           DXCH     ITEMP3                                #  IF WE HAVE BEEN UNABLE TO GATHER N
009821,001016: 10,3163           52416                           DXCH     SAMPLSUM                              #  SAMPLES, USE LAST ONE ONLY.
009822,001017: 
009823,001018: 10,3164           05042                           TC       SETTRKF                               
009824,001019: 
009825,001020: 10,3165           12723                           TCF      NOMORE                                
009826,001021: 
009827,001022: 10,3166           23773        LRRATIO            DEC      4.9977     B-3                        
009828,001023: 10,3167           50437        LVELBIAS           DEC      -12000     B-14                       #  LANDING RADAR VELOCITY BIAS.
009829,001024: 10,3170           00001 01150  RDOTBIAS           2DEC     17000      B-28                       #  BIAS COUNT FOR RR RANGE RATE
009830,001025: 

Page 254

009832,001027:                                                                                                  #  THIS ROUTINE CHANGES THE LR POSITION, AND CHECKS THAT IT GOT THERE.
009833,001028: 
009834,001029: 10,3172           00004        LRPOS2             INHINT                                         
009835,001030: 
009836,001031: 10,3173           47652                           CS       BIT6                                  #  DESIRED LR POSITION IS NOW 2.
009837,001032: 10,3174           70413                           MASK     RADMODES                              
009838,001033: 10,3175           67652                           AD       BIT6                                  
009839,001034: 10,3176           54413                           TS       RADMODES                              
009840,001035: 
009841,001036: 10,3177           37651                           CAF      BIT7                                  
009842,001037: 10,3200           00006                           EXTEND                                         
009843,001038: 10,3201           02033                           RAND     33                                    #  SEE IF ALREADY THERE.
009844,001039: 10,3202           00006                           EXTEND                                         
009845,001040: 10,3203           13227                           BZF      RADNOOP                               
009846,001041: 
009847,001042: 10,3204           37643                           CAF      BIT13                                 
009848,001043: 10,3205           00006                           EXTEND                                         
009849,001044: 10,3206           05012                           WOR      12                                    #  COMMAND TO POSITION 2
009850,001045: 
009851,001046: 10,3207           33234                           CAF      5SECS                                 
009852,001047: 10,3210           04536                           TC       WAITLIST                              
009853,001048: 10,3211           03214 20003                     2CADR    MAKESURE                              
009854,001049: 
009855,001050: 10,3213           02302                           TC       ROADBACK                              
009856,001051: 
009857,001052: 10,3214           47643        MAKESURE           CS       BIT13                                 #  REMOVE LR POSITION COMMAND OUTBIT.
009858,001053: 10,3215           00006                           EXTEND                                         
009859,001054: 10,3216           03012                           WAND     12                                    
009860,001055: 
009861,001056: 10,3217           37651                           CAF      BIT7                                  
009862,001057: 10,3220           00006                           EXTEND                                         
009863,001058: 10,3221           02033                           RAND     33                                    
009864,001059: 10,3222           00006                           EXTEND                                         
009865,001060: 10,3223           13244                           BZF      RGOODEND                              
009866,001061: 
009867,001062: 10,3224           05413                           TC       ALARM                                 #  LR ANTENNA DIDNT MAKE IT.
009868,001063: 10,3225           00523                           OCT      523                                   
009869,001064: 10,3226           13251                           TCF      RDBADEND                              
009870,001065: 
009871,001066: 10,3227           37657        RADNOOP            CAF      ONE                                   #  NO FURTHER ACTION REQUESTED.
009872,001067: 10,3230           04536                           TC       WAITLIST                              
009873,001068: 10,3231           03244 20003                     2CADR    RGOODEND                              
009874,001069: 
009875,001070: 10,3233           02302                           TC       ROADBACK                              
009876,001071: 
009877,001072: 10,3234           00764        5SECS              DEC      5          E2                         
009878,001073: 

Page 255

009880,001075:                                                                                                  #           SEQUENCES TO TERMINATE RR OPERATIONS.
009881,001076: 
009882,001077: 10,3235           37651        ENDRADAR           CAF      BIT7                                  #  PROLOG TO CHECK RR CDU FAIL BEFORE END.
009883,001078: 10,3236           70413                           MASK     RADMODES                              
009884,001079: 10,3237           10000                           CCS      A                                     
009885,001080: 10,3240           13244                           TCF      RGOODEND                              
009886,001081: 10,3241           13251                           TCF      RDBADEND                              
009887,001082: 10,3242           47665                 -2        CS       ZERO                                  #  RGOODEND WHEN NOT UNDER WAITLIST CONTROL
009888,001083: 10,3243           55070                           TS       RUPTAGN                               
009889,001084: 
009890,001085: 10,3244           37656        RGOODEND           CAF      TWO                                   
009891,001086: 10,3245           04102                           TC       POSTJUMP                              
009892,001087: 10,3246           26667                           CADR     GOODEND                               
009893,001088: 
009894,001089: 10,3247           47665                 -2        CS       ZERO                                  #  RDBADEND WHEN NOT UNDER WAITLIST.
009895,001090: 10,3250           55070                           TS       RUPTAGN                               
009896,001091: 10,3251           37656        RDBADEND           CAF      TWO                                   
009897,001092: 10,3252           04102                           TC       POSTJUMP                              
009898,001093: 10,3253           26664                           CADR     BADEND                                
009899,001094: 
009900,001095: 10,3254     6165               BIN3               EQUALS   THREE                                 
009901,001096: 10,3254                        ENDRMODS           EQUALS                                         

End of include-file RADAR_LEAD-IN_ROUTINES.agc.  Parent file is MAIN.agc