Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

022368,000002:                                                                                                  ## Copyright:   Public domain.
022369,000003:                                                                                                  ## Filename:    P20-P25.agc
022370,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
022371,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
022372,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
022373,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
022374,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
022375,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
022376,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
022377,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
022378,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
022379,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
022380,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
022381,000015:                                                                                                  ## Reference:   pp. 500-611
022382,000016:                                                                                                  ## Assembler:   yaYUL
022383,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
022384,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
022385,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
022386,000020:                                                                                                  ##              2017-08-20 MAS  Began updates for Zerlina 56.
022387,000021:                                                                                                  ##              2017-08-22 MAS  Completed updating for Zerlina.
022388,000022: 

Page 500

022390,000024:                                                                                                  #  RENDEZVOUS NAVIGATION PROGRAM 20
022391,000025:                                                                                                  #  PROGRAM DESCRIPTION
022392,000026:                                                                                                  #  MOD NO - 2
022393,000027:                                                                                                  #  BY  P. VOLANTE
022394,000028:                                                                                                  #  FUNCTIONAL DESCRIPTION
022395,000029: 
022396,000030:                                                                                                  #    THE PURPOSE OF THIS PROGRAM IS TO CONTROL THE RENDEZVOUS RADAR FROM
022397,000031:                                                                                                  #  STARTUP THROUGH ACQUISITION AND LOCKON TO THE CSM AND TO UPDATE EITHER 
022398,000032:                                                                                                  #  THE LM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY DSKY ENTRY)
022399,000033:                                                                                                  #  ON THE BASIS OF THE RR TRACKING DATA.
022400,000034:                                                                                                  #  CALLING SEQUENCE -
022401,000035: 
022402,000036:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY V37E20E
022403,000037:                                                                                                  #  SUBROUTINES CALLED
022404,000038:                                                                                                  #    R02BOTH (IMU STATUS CHECK)               FLAGUP
022405,000039:                                                                                                  #    GOFLASH (PINBALL-DISPLAY)                FLAGDOWN
022406,000040:                                                                                                  #    R23LEM  (MANUAL ACQUISITION)             BANKCALL
022407,000041:                                                                                                  #    LS201   (LOS DETERMINATION)              TASKOVER
022408,000042:                                                                                                  #    LS202   (RANGE LIMIT TEST)
022409,000043:                                                                                                  #    R61LEM  (PREFERRED TRACKING ATTITUDE)
022410,000044:                                                                                                  #    R21LEM  (RR DESIGNATE)                   ENDOFJOB
022411,000045:                                                                                                  #    R22LEM  (DATA READ)                      GOPERF1
022412,000046:                                                                                                  #    R31LEM  (RENDEZVOUS PARAMETER DISPLAY)    
022413,000047:                                                                                                  #    PRIOLARM (PRIORITY DISPLAY)
022414,000048:                                                                                                  #  NORMAL EXIT MODES-
022415,000049:                                                                                                  #    P20 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
022416,000050:                                                                                                  #  PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
022417,000051:                                                                                                  #  ALARM OR ABORT EXIT MODES-
022418,000052:                                                                                                  #    RANGE GREATER THAN 400 NM DISPLAY
022419,000053:                                                                                                  #  OUTPUT
022420,000054:                                                                                                  #    TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
022421,000055:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
022422,000056:                                                                                                  #  FLAGS SET + RESET
022423,000057:                                                                                                  #    SRCHOPT,RNDVZFLG,ACMODFLG,VEHUPFLG,UPDATFLG,TRACKFLG,
022424,000058:                                                                                                  #  DEBRIS
022425,000059:                                                                                                  #    CENTRALS-A,Q,L
022426,000060: 25,2053  30,2000                                  SBANK=   LOWSUPER                              #  FOR LOW 2CADR'S.
022427,000061: 
022428,000062: 33,2031                                           BANK     33                                    
022429,000063: 24,2000                                           SETLOC   P20S                                  
022430,000064: 24,2000                                           BANK                                           
022431,000065: 
022432,000066: 24,2000  E7,1456                                  EBANK=   LOSCOUNT                              
022433,000067: 24,2000                                           COUNT*   $$/P20                                
022434,000068: 24,2000  24,2000               PROG22             =        PROG20                                
022435,000069: 24,2000           05340        PROG20             TC       2PHSCHNG                              
022436,000070: 24,2001           00004                           OCT      4                                     
022437,000071: 24,2002           05022                           OCT      05022                                 
022438,000072: 24,2003           26000                           OCT      26000                                 #  PRIORITY 26
022439,000073: 24,2004           02752                           TC       LUNSFCHK                              #  CHECK IF ON LUNAR SURFACE

Page 501

022441,000075: 24,2005           02007                           TC       ORBCHGO                               #  YES
022442,000076: 24,2006           02036                           TC       PROG20A    -2                         #  NO - CONTINUE WITH P20
022443,000077: 24,2007           05515        ORBCHGO            TC       UPFLAG                                #  SET VEHUPFLG - CSM STATE
022444,000078: 24,2010           00026                           ADRES    VEHUPFLG                              #  VECTOR TO BE UPDATED
022445,000079: 24,2011           34753                           CAF      ONE                                   #  SET R2 FOR OPTION CSM WILL NOT
022446,000080: 24,2012           55144                           TS       OPTION2                               #  CHANGE PRESENT ORBIT
022447,000081: 24,2013           34363                           CAF      OCT00012                              
022448,000082: 24,2014           04616                           TC       BANKCALL                              #  DISPLAY ASSUMED CSM ORBIT OPTION
022449,000083: 24,2015           20634                           CADR     GOPERF4                               
022450,000084: 24,2016           06001                           TC       GOTOPOOH                              #  TERMINATE
022451,000085: 24,2017           02021                           TC       ORBCHG1                               #  PROCEED VALUE OF ASSUMED OPTION OK
022452,000086: 24,2020           02013                           TC       -5                                    #  R2 LOADED THRU DSKY
022453,000087: 24,2021           44753        ORBCHG1            CS       ONE                                   
022454,000088: 24,2022           61144                           AD       OPTION2                               
022455,000089: 24,2023           00006                           EXTEND                                         
022456,000090: 24,2024           12040                           BZF      PROG20A                               
022457,000091: 24,2025           32367                           CAF      V06N33*                               
022458,000092: 24,2026           04616                           TC       BANKCALL                              #  FLASH VERB-NOUN TO REQUEST ESTIMATED
022459,000093: 24,2027           20477                           CADR     GOFLASH                               #  TIME OF LAUNCH
022460,000094: 24,2030           06001                           TC       GOTOPOOH                              #  TERMINATE
022461,000095: 24,2031           02033                           TC       ORBCHG2                               #  PROCEED VALUES OK
022462,000096: 24,2032           02025                           TC       -5                                    #  TIME LOADED THRU DSKY
022463,000097: 24,2033           06051        ORBCHG2            TC       INTPRET                               
022464,000098: 24,2034           77650                           GOTO                                           
022465,000099: 24,2035           77113                                    ORBCHG3                               
022466,000100: 32,2217                                           BANK     32                                    
022467,000101: 37,2000                                           SETLOC   P20S4                                 
022468,000102: 37,2000                                           BANK                                           
022469,000103: 37,3113                                           COUNT*   $$/P20                                
022470,000104: 
022471,000105: 37,3113           77624        ORBCHG3            CALL                                           
022472,000106: 37,3114           27410                                    INTSTALL                              
022473,000107: 37,3115           77745                           DLOAD                                          
022474,000108: 37,3116           03442                                    TIG                                   
022475,000109: 37,3117           03661                           STORE    LNCHTM                                
022476,000110: 37,3120           00041                           STORE    TDEC1                                 #  ESTIMATED LAUNCH TIME
022477,000111: 37,3121           43014                           CLEAR    CLEAR                                 
022478,000112: 37,3122           01674                                    VINTFLAG                              #  LM INTEGRATION
022479,000113: 37,3123           01673                                    INTYPFLG                              #  PRECISION - ENCKE
022480,000114: 37,3124           43014                           CLEAR    CLEAR                                 
022481,000115: 37,3125           01676                                    DIM0FLAG                              #  NO W-MATRIX
022482,000116: 37,3126           01675                                    D6OR9FLG                              
022483,000117: 37,3127           77624                           CALL                                           
022484,000118: 37,3130           27133                                    INTEGRV                               #  PLANETARY INERTIAL ORIENTATION
022485,000119: 37,3131           77624                           CALL                                           
022486,000120: 37,3132           11216                                    GRP2PC                                
022487,000121: 37,3133           77775                           VLOAD                                          
022488,000122: 37,3134           00017                                    RATT1                                 
022489,000123: 37,3135           17631                           STODL    RSUBL                                 #  SAVE LM POSITION
022490,000124: 37,3136           00015                                    TAT                                   

Page 502

022492,000126: 37,3137           34041                           STCALL   TDEC1                                 
022493,000127: 37,3140           27410                                    INTSTALL                              
022494,000128: 37,3141           43014                           SET      CLEAR                                 
022495,000129: 37,3142           01474                                    VINTFLAG                              #  CSM INTEGRATION
022496,000130: 37,3143           01673                                    INTYPFLG                              
022497,000131: 37,3144           43014                           CLEAR    BOFF                                  
022498,000132: 37,3145           01676                                    DIM0FLAG                              
022499,000133: 37,3146           02756                                    RENDWFLG                              #  W MATRIX VALID
022500,000134: 37,3147           77153                                    NOWMATX                               #  NO
022501,000135: 37,3150           43014                           SET      SET                                   #  YES - SET FOR W MATRIX
022502,000136: 37,3151           01476                                    DIM0FLAG                              
022503,000137: 37,3152           01475                                    D6OR9FLG                              
022504,000138: 37,3153           77624        NOWMATX            CALL                                           
022505,000139: 37,3154           27133                                    INTEGRV                               #  CSM INTEGRATION
022506,000140: 37,3155           77624                           CALL                                           
022507,000141: 37,3156           11216                                    GRP2PC                                
022508,000142: 37,3157           77775                           VLOAD                                          
022509,000143: 37,3160           00025                                    VATT1                                 
022510,000144: 37,3161           25757                           STOVL    VSUBC                                 #  SAVE CSM VELOCITY
022511,000145: 37,3162           00017                                    RATT1                                 
022512,000146: 37,3163           01101                           STORE    RSUBC                                 #  SAVE CSM POSITION
022513,000147: 37,3164           53435                           VXV      UNIT                                  #  COMPUTE NORMAL TO CSM ORBITAL PLANE
022514,000148: 37,3165           01757                                    VSUBC                                 #  NSUB1=UNIT(R(CM) CROSS V(CM)
022515,000149: 37,3166           24025                           STOVL    20D                                   #  SAVE NSUB1
022516,000150: 37,3167           03631                                    RSUBL                                 #  COMPUTE ESTIMATED ORBITAL
022517,000151: 37,3170           53435                           VXV      UNIT                                  #  PLANE CHANGE
022518,000152: 37,3171           00025                                    20D                                   #  UCSM = UNIT(R(LM) CROSS NSUB1)
022519,000153: 37,3172           27637                           STOVL    UCSM                                  
022520,000154: 37,3173           01101                                    RSUBC                                 #  COMPUTE ANGLE BETWEEN UCSM
022521,000155: 37,3174           50256                           UNIT     DOT                                   #  AND RSUBC
022522,000156: 37,3175           03637                                    UCSM                                  #  COS A = UCSM DOT UNIT (R(CM))
022523,000157: 37,3176           77752                           SL1                                            
022524,000158: 37,3177           02732                           STORE    CSTH                                  #  SAVE DOE TIME-THETA SUBROUTINE
022525,000159: 37,3200           44316                           DSQ      BDSU                                  #  COMPUTE SINE A
022526,000160: 37,3201           06510                                    ONEB-2                                
022527,000161: 37,3202           77766                           SQRT                                           
022528,000162: 37,3203           26730                           STOVL    SNTH                                  #  SAVE FOR TIME-THETA SUBROUTINE
022529,000163: 37,3204           01101                                    RSUBC                                 #  POSITION OF CSM AT EST. LAUNCH
022530,000164: 37,3205           26655                           STOVL    RVEC                                  #  TIME FOR TIME-THETA   B-27
022531,000165: 37,3206           01757                                    VSUBC                                 #  VELOCITY OF CSM AT EST. LAUNCH
022532,000166: 37,3207           77676                           VCOMP                                          
022533,000167: 37,3210           02744                           STORE    VVEC                                  #  TIME FOR TIME THETA   B-5
022534,000168: 37,3211           45014                           CLEAR    CALL                                  
022535,000169: 37,3212           03666                                    RVSW                                  
022536,000170: 37,3213           24732                                    TIMETHET                              
022537,000171: 37,3214           77676                           VCOMP                                          
022538,000172: 37,3215           03645                           STORE    NEWVEL                                #  TERMINAL VELOCITY OF CSM
022539,000173: 37,3216           77745                           DLOAD                                          
022540,000174: 37,3217           00037                                    T                                     
022541,000175: 37,3220           27663                           STOVL    TRANSTM                               #  TRANSFER TIME

Page 503

022543,000177: 37,3221           03645                                    NEWVEL                                
022544,000178: 37,3222           77646                           ABVAL                                          
022545,000179: 37,3223           24025                           STOVL    20D                                   
022546,000180: 37,3224           00001                                    0D                                    
022547,000181: 37,3225           03653                           STORE    NEWPOS                                #  TERMINAL POSITION OF CSM
022548,000182: 37,3226           53435                           VXV      UNIT                                  #  COMPUTE NORMAL TO CSM ORBITAL PLANE
022549,000183: 37,3227           03631                                    RSUBL                                 #  NSUB2 = UNIT(NEWPOS CROSS R(LM))
022550,000184: 37,3230           53435                           VXV      UNIT                                  #  ROTATE TERMINAL VEL INTO DESIRED
022551,000185: 37,3231           03653                                    NEWPOS                                #  ORBITAL PLANE
022552,000186: 37,3232           76561                           VXSC     VSL1                                  #  VSUBC = ABVAL(NEWVEL) $ UNIT( NSUB2
022553,000187: 37,3233           00025                                    20D                                   
022554,000188: 37,3234           37665                           STCALL   NCSMVEL                               #  NEW CSM VELOCITY
022555,000189: 37,3235           11216                                    GRP2PC                                
022556,000190: 37,3236           77624                           CALL                                           
022557,000191: 37,3237           27410                                    INTSTALL                              
022558,000192: 37,3240           44345                           DLOAD    BDSU                                  
022559,000193: 37,3241           03663                                    TRANSTM                               #  LAUNCH TIME - TRANSFER TIME
022560,000194: 37,3242           03661                                    LNCHTM                                
022561,000195: 37,3243           25517                           STOVL    TET                                   
022562,000196: 37,3244           03653                                    NEWPOS                                
022563,000197: 37,3245           01535                           STORE    RCV                                   
022564,000198: 37,3246           25503                           STOVL    RRECT                                 
022565,000199: 37,3247           03665                                    NCSMVEL                               
022566,000200: 37,3250           35511                           STCALL   VRECT                                 
022567,000201: 37,3251           27705                                    MINIRECT                              
022568,000202: 37,3252           45174                           AXT,2    CALL                                  
022569,000203: 37,3253           00002                                    2                                     
022570,000204: 37,3254           26660                                    ATOPCSM                               
022571,000205: 37,3255           77624                           CALL                                           
022572,000206: 37,3256           27417                                    INTWAKE0                              
022573,000207: 37,3257           77776                           EXIT                                           
022574,000208: 37,3260           04616                           TC       BANKCALL                              
022575,000209: 37,3261           50040                           CADR     PROG20A                               
022576,000210: 24,2036                                           BANK     24                                    
022577,000211: 24,2000                                           SETLOC   P20S                                  
022578,000212: 24,2000                                           BANK                                           
022579,000213: 24,2036                                           COUNT*   $$/P20                                
022580,000214: 
022581,000215: 24,2036           05527                           TC       DOWNFLAG                              #  RESET VEHUPFLG- LM STATE VECTOR
022582,000216: 24,2037           00026                           ADRES    VEHUPFLG                              #  TO BE UPDATED
022583,000217: 24,2040           04616        PROG20A            TC       BANKCALL                              
022584,000218: 24,2041           11241                           CADR     R02BOTH                               
022585,000219: 24,2042           05515                           TC       UPFLAG                                
022586,000220: 24,2043           00027                           ADRES    UPDATFLG                              #  SET UPDATE FLAG
022587,000221: 24,2044           05515                           TC       UPFLAG                                
022588,000222: 24,2045           00031                           ADRES    TRACKFLG                              #  SET TRACK FLAG
022589,000223: 24,2046           05515                           TC       UPFLAG                                
022590,000224: 24,2047           00010                           ADRES    RNDVZFLG                              #  SET RENDEZVOUS FLAG
022591,000225: 24,2050           05527                           TC       DOWNFLAG                              
022592,000226: 24,2051           00037                           ADRES    SRCHOPTN                              #  INSURE SEARCH OPTION OFF

Page 504

022594,000228: 24,2052           05527                           TC       DOWNFLAG                              #  ALSO MANUAL ACQUISITION FLAG RESET
022595,000229: 24,2053           00040                           ADRES    ACMODFLG                              
022596,000230: 24,2054           05527                           TC       DOWNFLAG                              #  TURN OFF R04FLAG TO ENSURE GETTING
022597,000231: 24,2055           00063                           ADRES    R04FLAG                               #  ALARM 521 IF CANT READ RADAR
022598,000232: 24,2056           05527                           TC       DOWNFLAG                              #  ENSURE R25 GIMBAL MONITOR IS ENABLED
022599,000233: 24,2057           00126                           ADRES    NORRMON                               #  (RESET NORRMON FLAG)
022600,000234: 24,2060           05527                           TC       DOWNFLAG                              #  RESET LOS BEING COMPUTED FLAG
022601,000235: 24,2061           00041                           ADRES    LOSCMFLG                              
022602,000236: 24,2062           06011                           TC       CLRADMOD                              
022603,000237: 24,2063           05515                           TC       UPFLAG                                
022604,000238: 24,2064           00005                           ADRES    FSPASFLG                              #  SET FIRST PASS FLAG FOR ALARM
022605,000239: 24,2065           05364        P20LEM1            TC       PHASCHNG                              
022606,000240: 24,2066           04022                           OCT      04022                                 
022607,000241: 24,2067           34755                           CAF      ZERO                                  #  ZERO MARK COUNTER
022608,000242: 24,2070           55462                           TS       MARKCTR                               
022609,000243: 24,2071           06051        P20LEM2            TC       INTPRET                               #  LOS DETERMINATION ROUTINE
022610,000244: 24,2072           77634                           RTB                                            
022611,000245: 24,2073           21555                                    LOADTIME                              
022612,000246: 24,2074           34041                           STCALL   TDEC1                                 
022613,000247: 24,2075           51340                                    LPS20.1                               
022614,000248: 24,2076           77624                           CALL                                           
022615,000249: 24,2077           53633                                    LPS20.2                               #  TEST RANGE R/UTINE
022616,000250: 24,2100           77776                           EXIT                                           
022617,000251: 24,2101           50154                           INDEX    MPAC                                  
022618,000252: 24,2102           02103                           TC       +1                                    
022619,000253: 24,2103           02167                           TC       P20LEMA                               #  NORMAL RETURN WITHIN 400 N M
022620,000254: 24,2104           06051        526ALARM           TC       INTPRET                               
022621,000255: 24,2105           53575                           VLOAD    UNIT                                  
022622,000256: 24,2106           00025                                    RRANGE                                
022623,000257: 24,2107           72441                           DOT      SL1                                   
022624,000258: 24,2110           00017                                    VELLOS                                
022625,000259: 24,2111           16216                           STODL    RRATE                                 #  RANGE RATE FOR NOUN 54 B-7
022626,000260: 24,2112           00045                                    36D                                   
022627,000261: 24,2113           51025                           DSU      BPL                                   #  IF RANGE>999.99,DISPLAY 999.99
022628,000262: 24,2114           10372                                    999.99NM                              
022629,000263: 24,2115           50142                                    TOOBIG                                
022630,000264: 24,2116           77745                           DLOAD                                          
022631,000265: 24,2117           00045                                    36D                                   
022632,000266: 24,2120           16214        526ALRM1           STODL    RANGE                                 #   RANGE FOR NOUN 54 B-29
022633,000267: 24,2121           06520                                    ZEROVECS                              
022634,000268: 24,2122           02220                           STORE    RTHETA                                #  ZERO THETA FOR NOUN 54
022635,000269: 24,2123           43014                           BOFF     BOFF                                  
022636,000270: 24,2124           00345                                    FSPASFLG                              #  FIRST PASS
022637,000271: 24,2125           50155                                    P20LEMC5                              #  NO
022638,000272: 24,2126           04347                                    SURFFLAG                              #  ON LUNAR SURFACE
022639,000273: 24,2127           50147                                    ALRMLT                                #  NO
022640,000274: 24,2130           51145                           DLOAD    BPL                                   
022641,000275: 24,2131           02216                                    RRATE                                 
022642,000276: 24,2132           50145                                    ENDRN                                 
022643,000277: 24,2133           77776                           EXIT                                           #  YES
022644,000278: 

Page 505

022646,000280: 24,2134           05364                           TC       PHASCHNG                              #  IN CASE OF RESTART
022647,000281: 24,2135           04022                           OCT      04022                                 #  REACTIVATE DISPLAY
022648,000282: 24,2136           32373                           CAF      V16N5420                              
022649,000283: 24,2137           04616                           TC       BANKCALL                              #  TURN ON V16N54 - DISPLAY
022650,000284: 24,2140           20452                           CADR     GODSPR                                #  RANGE AND RANGE RATE
022651,000285: 24,2141           02156                           TC       P20LEM5                               
022652,000286: 
022653,000287: 
022654,000288: 24,2142           52145        TOOBIG             DLOAD    GOTO                                  
022655,000289: 24,2143           10372                                    999.99NM                              
022656,000290: 24,2144           50120                                    526ALRM1                              
022657,000291: 
022658,000292: 24,2145           77776        ENDRN              EXIT                                           
022659,000293: 24,2146           06025                           TC       GOTOV56                               
022660,000294: 
022661,000295: 24,2147           77776        ALRMLT             EXIT                                           
022662,000296: 24,2150           05364                           TC       PHASCHNG                              
022663,000297: 24,2151           04022                           OCT      04022                                 
022664,000298: 24,2152           05600                           TC       ALARM                                 #  TURN ON ALARM LIGHT P20
022665,000299: 24,2153           00526                           OCT      526                                   
022666,000300: 24,2154           02156                           TC       P20LEM5                               
022667,000301: 24,2155           77776        P20LEMC5           EXIT                                           
022668,000302: 24,2156           05527        P20LEM5            TC       DOWNFLAG                              
022669,000303: 24,2157           00005                           ADRES    FSPASFLG                              
022670,000304: 24,2160           32370                           CAF      500DEC                                #  WAIT 5SECS
022671,000305: 24,2161           04616                           TC       BANKCALL                              
022672,000306: 24,2162           01736                           CADR     DELAYJOB                              
022673,000307: 24,2163           02071                           TC       P20LEM2                               
022674,000308: 
022675,000309: 
022676,000310: 24,2164           04616        P20LEM3            TC       BANKCALL                              
022677,000311: 24,2165           20457                           CADR     CLEANDSP                              
022678,000312: 
022679,000313: 
022680,000314: 24,2166           02175                           TC       P20LEMB                               
022681,000315: 24,2167           05364        P20LEMA            TC       PHASCHNG                              
022682,000316: 24,2170           04022                           OCT      04022                                 
022683,000317: 24,2171           02752                           TC       LUNSFCHK                              #  CHECK LUNAR SURFACE FLAG (P22 FLAG)
022684,000318: 24,2172           02164                           TC       P20LEM3                               
022685,000319: 24,2173           04616                           TC       BANKCALL                              
022686,000320: 24,2174           46116                           CADR     R61LEM                                #  PREFERRED TRACKING ATTITUDE ROUTINE
022687,000321: 24,2175           05364        P20LEMB            TC       PHASCHNG                              
022688,000322: 24,2176           05022                           OCT      05022                                 #  RESTART AT PRIORITY 10 TO ALLOW V37
022689,000323: 24,2177           10000                           OCT      10000                                 #  REQUESTED PROGRAM TO RUN FIRST
022690,000324: 24,2200           37726                           CAF      PRIO26                                #  RESTORE PRIORITY 26
022691,000325: 24,2201           05146                           TC       PRIOCHNG                              
022692,000326: 24,2202           30075                           CA       FLAGWRD1                              #  IS THE TRACK FLAG SET
022693,000327: 24,2203           74747                           MASK     TRACKBIT                              
022694,000328: 24,2204           00006                           EXTEND                                         
022695,000329: 24,2205           12310                           BZF      P20LEMWT                              #   BRANCH - NO - WAIT FOR IT TO BE SET
022696,000330: 

Page 506

022698,000332: 24,2206           34752        P20LEMB7           CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
022699,000333: 24,2207           00006                           EXTEND                                         
022700,000334: 24,2210           02033                           RAND     CHAN33                                
022701,000335: 24,2211           00006                           EXTEND                                         
022702,000336: 24,2212           12246                           BZF      P20LEMB3                              #  YES - DO AUTOMATIC ACQUISITION (R21)
022703,000337: 
022704,000338: 
022705,000339: 24,2213           46007        P20LEMB5           CS       OCT24                                 #  RADAR NOT IN AUTO CHECK IF
022706,000340: 24,2214           61010                           AD       MODREG                                #  MAJOR MODE IS 20
022707,000341: 24,2215           00006                           EXTEND                                         
022708,000342: 24,2216           12231                           BZF      P20LEMB6                              #  BRANCH - YES-OK TO DO PLEASE PERFORM
022709,000343: 
022710,000344: 
022711,000345: 24,2217           67760                           AD       NEG2                                  #  ALSO CHECK FOR P22
022712,000346: 24,2220           00006                           EXTEND                                         
022713,000347: 24,2221           12231                           BZF      P20LEMB6                              #  BRANCH - YES OK TO DO PLEASE PERFORM
022714,000348: 24,2222           32365                           CAF      ALRM514                               #  TRACK FLAG SET-FLASH PRIORITY ALARM 514-
022715,000349: 24,2223           04616                           TC       BANKCALL                              #  RADAR GOES OUT OF AUTO MODE WHILE IN USE
022716,000350: 24,2224           21544                           CADR     PRIOLARM                              
022717,000351: 24,2225           06025                           TC       GOTOV56                               #  TERMINATE EXITS VIA V56
022718,000352: 24,2226           02175                           TC       P20LEMB                               #  PROCEED AND ENTER BOTH GO BACK
022719,000353: 24,2227           02175                           TC       P20LEMB                               #  TO CHECK AUTO MODE AGAIN
022720,000354: 24,2230           05155                           TC       ENDOFJOB                              
022721,000355: 24,2231           32364        P20LEMB6           CAF      OCT201                                #  REQUEST RR AUTO MODE SELECTION
022722,000356: 24,2232           04616                           TC       BANKCALL                              
022723,000357: 24,2233           20624                           CADR     GOPERF1                               
022724,000358: 24,2234           06025                           TC       GOTOV56                               #  TERMINATE EXITS P20 VIA V56 CODING
022725,000359: 24,2235           02175                           TC       P20LEMB                               #  PROCEED CHECKS AUTO MODE DISCRETE AGAIN
022726,000360: 24,2236           02752                           TC       LUNSFCHK                              #  ENTER INDICATES MANUAL ACQUISITION (R23)
022727,000361: 24,2237           02244                           TC       P20LEMB2                              #  YES - R23 NOT ALLOWED-TURN ON OPR ERROR
022728,000362: 24,2240           03221                           TC       R23LEM                                #  NO - DO MANUAL ACQUISITION
022729,000363: 
022730,000364: 
022731,000365: 24,2241           05515        P20LEMB1           TC       UPFLAG                                #  RETURN FROM R23 - LOCKON ACHIEVED
022732,000366: 24,2242           00040                           ADRES    ACMODFLG                              #  SET MANUAL FLAG AND GO BACK TO CHECK
022733,000367: 24,2243           02175                           TC       P20LEMB                               #  RR AUTO MODE
022734,000368: 
022735,000369: 
022736,000370: 24,2244           04364        P20LEMB2           TC       FALTON                                #  TURNS ON OPERATOR ERROR LIGHT ON DSKY
022737,000371: 24,2245           02175                           TC       P20LEMB                               #  AND GOES BACK TO CHECK AUTO MODE
022738,000372: 
022739,000373: 
022740,000374: 24,2246           40110        P20LEMB3           CS       RADMODES                              #  ARE RR CDUS BEING ZEROED
022741,000375: 24,2247           74737                           MASK     RCDU0BIT                              
022742,000376: 24,2250           00006                           EXTEND                                         
022743,000377: 24,2251           12263                           BZF      P20LEMB4                              #  BRANCH - YES - WAIT
022744,000378: 24,2252           34355                           CAF      BIT13-14                              #  IS SEARCH OR MANUAL ACQUISITION FLAG SET
022745,000379: 24,2253           70076                           MASK     FLAGWRD2                              
022746,000380: 24,2254           00006                           EXTEND                                         
022747,000381: 24,2255           12267                           BZF      P20LEMC3                              #  ZERO MEANS AUTOMATIC RR ACQUISTION

Page 507

022749,000383: 24,2256           05527                           TC       DOWNFLAG                              #  RESET TO AUTO MODE
022750,000384: 24,2257           00037                           ADRES    SRCHOPTN                              
022751,000385: 24,2260           05527                           TC       DOWNFLAG                              
022752,000386: 24,2261           00040                           ADRES    ACMODFLG                              
022753,000387: 24,2262           02310                           TC       P20LEMWT                              #  WAIT 2.5 SECONDS THEN GO TO RR DATA READ
022754,000388: 
022755,000389: 
022756,000390: 24,2263           32362        P20LEMB4           CAF      250DEC                                
022757,000391: 24,2264           04616                           TC       BANKCALL                              #  WAIT 2.5 SECONDS WHILE RR CDUS ARE BEING
022758,000392: 24,2265           01736                           CADR     DELAYJOB                              #  ZEROED-THEN GO BACK AND CHECK AGAIN
022759,000393: 24,2266           02246                           TC       P20LEMB3                              
022760,000394: 
022761,000395: 
022762,000396: 24,2267           06051        P20LEMC3           TC       INTPRET                               
022763,000397: 24,2270           77634                           RTB                                            
022764,000398: 24,2271           21555                                    LOADTIME                              
022765,000399: 24,2272           34041                           STCALL   TDEC1                                 
022766,000400: 24,2273           50374                                    UPPSV                                 
022767,000401: 24,2274           77776        P20LEMC4           EXIT                                           
022768,000402: 24,2275           05364        P20LEMC            TC       PHASCHNG                              
022769,000403: 24,2276           04022                           OCT      04022                                 
022770,000404: 24,2277           30074                           CAE      FLAGWRD0                              #  IS THE RENDEZVOUS FLAG SET
022771,000405: 24,2300           74745                           MASK     RNDVZBIT                              
022772,000406: 24,2301           00006                           EXTEND                                         
022773,000407: 24,2302           15155                           BZF      ENDOFJOB                              #  NO - EXIT P20
022774,000408: 24,2303           30075                           CAE      FLAGWRD1                              #  IS TRACK FLAG SET  (BIT 5 FLAGWORD 1)
022775,000409: 24,2304           74747                           MASK     TRACKBIT                              
022776,000410: 24,2305           00006                           EXTEND                                         
022777,000411: 24,2306           12342                           BZF      P20LEMD                               #  BRANCH-TRACK FLAG NOT ON-WAIT 15 SECONDS
022778,000412: 24,2307           02757        P20LEMF            TC       R21LEM                                
022779,000413: 
022780,000414: 
022781,000415: 24,2310           32362        P20LEMWT           CAF      250DEC                                
022782,000416: 24,2311           05204                           TC       TWIDDLE                               #  USE INSTEAD OF WAITLIST SINCE SAME BANK
022783,000417: 24,2312           02322                           ADRES    P20LEMC1                              #  WAIT 2.5 SECONDS
022784,000418: 24,2313           30075                           CAE      FLAGWRD1                              #  IS TRACK FLAG SET
022785,000419: 24,2314           74747                           MASK     TRACKBIT                              
022786,000420: 24,2315           00006                           EXTEND                                         
022787,000421: 24,2316           15155                           BZF      ENDOFJOB                              #  NO-EXIT WITHOUT DOING 2.7 PHASE CHANGE
022788,000422: 24,2317           05364        P20LMWT1           TC       PHASCHNG                              
022789,000423: 24,2320           40072                           OCT      40072                                 
022790,000424: 24,2321           05155                           TC       ENDOFJOB                              
022791,000425: 
022792,000426: 
022793,000427: 24,2322           30074        P20LEMC1           CAE      FLAGWRD0                              #  IS RENDEZVOUS FLAG SET
022794,000428: 24,2323           74745                           MASK     RNDVZBIT                              
022795,000429: 24,2324           00006                           EXTEND                                         
022796,000430: 24,2325           15272                           BZF      TASKOVER                              #  NO - EXIT P20/R22
022797,000431: 24,2326           30075                           CAE      FLAGWRD1                              #  IS TRACK FLAG SET
022798,000432: 24,2327           74747                           MASK     TRACKBIT                              

Page 508

022800,000434: 24,2330           00006                           EXTEND                                         
022801,000435: 24,2331           12337                           BZF      P20LEMC2                              #  NO-DONT SCHEDULE R22 JOB
022802,000436: 24,2332           37726                           CAF      PRIO26                                #  YES-SCHEDULE R22 JOB (RR DATA READ)
022803,000437: 24,2333           05105                           TC       FINDVAC                               
022804,000438: 24,2334  E7,1456                                  EBANK=   LOSCOUNT                              
022805,000439: 24,2334           02713 50067                     2CADR    R22LEM42                              
022806,000440: 
022807,000441: 24,2336           05272                           TC       TASKOVER                              
022808,000442: 
022809,000443: 
022810,000444: 24,2337           05232        P20LEMC2           TC       FIXDELAY                              #  TRACK FLAG NOT SET ,WAIT 15 SECONDS
022811,000445: 24,2340           02734                           DEC      1500       B-14                       #  AND CHECK AGAIN
022812,000446: 
022813,000447: 24,2341           02322                           TC       P20LEMC1                              
022814,000448: 
022815,000449: 24,2342           32751        P20LEMD            CAF      1500DEC                               
022816,000450: 24,2343           05204                           TC       TWIDDLE                               #  WAITLIST FOR 15 SECONDS
022817,000451: 24,2344           02346                           ADRES    P20LEMD1                              
022818,000452: 24,2345           05155                           TC       ENDOFJOB                              
022819,000453: 
022820,000454: 
022821,000455: 24,2346           30075        P20LEMD1           CAE      FLAGWRD1                              #  IS TRACK FLAG SET
022822,000456: 24,2347           74747                           MASK     TRACKBIT                              
022823,000457: 24,2350           10000                           CCS      A                                     
022824,000458: 24,2351           12355                           TCF      P20LEMD2                              #  YES-SCHEDULE DESIGNATE JOB
022825,000459: 24,2352           05232                           TC       FIXDELAY                              #  NO-WAIT 15 SECONDS
022826,000460: 24,2353           02734                           DEC      1500       B-14                       
022827,000461: 24,2354           02346                           TC       P20LEMD1                              
022828,000462: 
022829,000463: 
022830,000464: 24,2355           37726        P20LEMD2           CAF      PRIO26                                #  SCHEDULE JOB TO DO R21
022831,000465: 24,2356           05105                           TC       FINDVAC                               
022832,000466: 24,2357  E7,1456                                  EBANK=   LOSCOUNT                              
022833,000467: 24,2357           02267 50067                     2CADR    P20LEMC3                              #  START AT PERM. MEMORY INTEGRATION
022834,000468: 
022835,000469: 24,2361           05272                           TC       TASKOVER                              
022836,000470: 
022837,000471: 
022838,000472: 24,2362           00372        250DEC             DEC      250        B-14                       
022839,000473: 24,2363           00526        ALRM526            OCT      00526                                 
022840,000474: 24,2364           00201        OCT201             OCT      00201                                 
022841,000475: 24,2365           00514        ALRM514            OCT      514                                   
022842,000476: 24,2366           00074        MAXTRIES           DEC      60         B-14                       
022843,000477: 24,2367     4363               OCT00012           EQUALS   BINCON                                
022844,000478: 24,2367  23,2507               ONEB-2             EQUALS   DP1/4TH                               
022845,000479: 24,2367           01441        V06N33*            VN       0633                                  
022846,000480: 24,2370           00764        500DEC             DEC      500        B-14                       
022847,000481: 24,2371           00070 20447  999.99NM           2DEC     1851982    B-29                       
022848,000482: 
022849,000483: 24,2373           04066        V16N5420           VN       1654                                  
022850,000484: 

Page 509

022852,000486: 24,2374           45020        UPPSV              STQ      CALL                                  #  UPDATES PERMANENT STATE VECTORS
022853,000487: 24,2375           01755                                    LS21X                                 #   TO PRESENT TIME
022854,000488: 24,2376           27410                                    INTSTALL                              
022855,000489: 24,2377           77624                           CALL                                           
022856,000490: 24,2400           26643                                    SETIFLGS                              
022857,000491: 24,2401           43014                           BOF      SET                                   #  IF W-MATRIX INVALID,DONT INTEGRATE IT
022858,000492: 24,2402           02756                                    RENDWFLG                              
022859,000493: 24,2403           50414                                    UPPSV1                                
022860,000494: 24,2404           01476                                    DIM0FLAG                              #  SET DIMOFLAG TO INTEGRATE W-MATRIX
022861,000495: 24,2405           43014                           BON      SET                                   
022862,000496: 24,2406           04307                                    SURFFLAG                              #  IF ON LUNAR SURFACE W IS 6X6
022863,000497: 24,2407           50411                                    UPPSV5                                
022864,000498: 24,2410           01475                                    D6OR9FLG                              #  OTHERWISE 9X9
022865,000499: 24,2411           77614        UPPSV5             BOF                                            
022866,000500: 24,2412           00747                                    VEHUPFLG                              
022867,000501: 24,2413           50446                                    UPPSV3                                
022868,000502: 24,2414           77614        UPPSV1             SET                                            
022869,000503: 24,2415           01474                                    VINTFLAG                              
022870,000504: 24,2416           77624                           CALL                                           
022871,000505: 24,2417           27133                                    INTEGRV                               
022872,000506: 24,2420           77624                           CALL                                           #  GROUP 2 PHASE CHANGE
022873,000507: 24,2421           11216                                    GRP2PC                                #  TO PROTECT INTEGRATION
022874,000508: 24,2422           77624                           CALL                                           
022875,000509: 24,2423           27410                                    INTSTALL                              
022876,000510: 24,2424           43145                           DLOAD    CLEAR                                 #  GET TETCSM TO STORE IN TDEC FOR LM INT.
022877,000511: 24,2425           01571                                    TETCSM                                
022878,000512: 24,2426           01674                                    VINTFLAG                              
022879,000513: 24,2427           77624        UPPSV4             CALL                                           #  INTEGRATE OTHER VEHICLE
022880,000514: 24,2430           26643                                    SETIFLGS                              #   WITHOUT W-MATRIX
022881,000515: 24,2431           34041                           STCALL   TDEC1                                 
022882,000516: 24,2432           27133                                    INTEGRV                               
022883,000517: 24,2433           77214                           BOFF     VLOAD                                 
022884,000518: 24,2434           04347                                    SURFFLAG                              
022885,000519: 24,2435           50274                                    P20LEMC4                              
022886,000520: 24,2436           01661                                    RCVLEM                                
022887,000521: 24,2437           77742                           VSR2                                           
022888,000522: 24,2440           26343                           STOVL    LMPOS                                 
022889,000523: 24,2441           01667                                    VCVLEM                                
022890,000524: 24,2442           77742                           VSR2                                           
022891,000525: 24,2443           02351                           STORE    LMVEL                                 
022892,000526: 24,2444           77650                           GOTO                                           
022893,000527: 24,2445           01755                                    LS21X                                 
022894,000528: 
022895,000529: 
022896,000530: 24,2446           45014        UPPSV3             CLEAR    CALL                                  
022897,000531: 24,2447           01674                                    VINTFLAG                              
022898,000532: 24,2450           27133                                    INTEGRV                               
022899,000533: 24,2451           77624                           CALL                                           
022900,000534: 24,2452           11216                                    GRP2PC                                
022901,000535: 24,2453           77624                           CALL                                           

Page 510

022903,000537: 24,2454           27410                                    INTSTALL                              
022904,000538: 24,2455           71214                           SET      DLOAD                                 
022905,000539: 24,2456           01474                                    VINTFLAG                              
022906,000540: 24,2457           01643                                    TETLEM                                #  GET TETLEM TO STORE IN TDEC FOR CSM INT.
022907,000541: 24,2460           77650                           GOTO                                           
022908,000542: 24,2461           50427                                    UPPSV4                                
022909,000543: 
022910,000544: 
022911,000545: 24,2462  E7,1456                                  EBANK=   LOSCOUNT                              
022912,000546: 24,2462                                           COUNT*   $$/P22                                
022913,000547: 

Page 511

022915,000549:                                                                                                  #  PROGRAM DESCRIPTION
022916,000550:                                                                                                  #  PREFERRED TRACKING ATTITUDE PROGRAM P25
022917,000551:                                                                                                  #  MOD NO - 3
022918,000552:                                                                                                  #  BY  P. VOLANTE
022919,000553:                                                                                                  #  FUNCTIONAL DESCRIPTION
022920,000554: 
022921,000555:                                                                                                  #    THE PURPOSE OF THIS PROGRAM IS TO COMPUTE THE PREFERRED TRACKING
022922,000556:                                                                                                  #  ATTITUDE OF THE LM TO CONTINUOUSLY POINT THE LM TRACKING BEACON AT THE
022923,000557:                                                                                                  #  CSM AND TO PERFORM THE MANEUVER TO THE PREFERRED TRACKING ATTITUDE AND
022924,000558:                                                                                                  #  CONTINUOUSLY MAINTAIN THIS ATTITUDE WITHIN PRESCRIBED LIMITS
022925,000559:                                                                                                  #  CALLING SEQUENCE -
022926,000560:                                                                                                  #    ASTRONAUT REQUEST THROUGH DSKY V37E25E
022927,000561:                                                                                                  #  SUBROUTINES CALLED -
022928,000562:                                                                                                  #    BANKCALL                      FLAGUP
022929,000563:                                                                                                  #    R02BOTH  (IMU STATUS CHECK)   ENDOFJOB
022930,000564:                                                                                                  #    R61LEM   (PREF TRK ATT ROUT)  WAITLIST
022931,000565:                                                                                                  #    TASKOVER                      FINDVAC
022932,000566:                                                                                                  #  NORMAL EXIT MODES  -
022933,000567:                                                                                                  #    P25 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
022934,000568:                                                                                                  #  PROGRAM(P00) BY KEYING V37E00E OR BY KEYING IN V56E
022935,000569:                                                                                                  #  ALARM OR ABORT EXIT MODES -
022936,000570:                                                                                                  #    NONE
022937,000571:                                                                                                  #  OUTPUT
022938,000572:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
022939,000573:                                                                                                  #  FLAGS SET + RESET
022940,000574:                                                                                                  #    TRACKFLG,P25FLAG
022941,000575:                                                                                                  #  DEBRIS
022942,000576:                                                                                                  #    NONE
022943,000577: 24,2462  E7,1456                                  EBANK=   LOSCOUNT                              
022944,000578: 24,2462                                           COUNT*   $$/P25                                
022945,000579: 24,2462           05340        PROG25             TC       2PHSCHNG                              
022946,000580: 24,2463           00004                           OCT      4                                     #  MAKE GROUP 4 INACTIVE (VERB 37)
022947,000581: 24,2464           05022                           OCT      05022                                 
022948,000582: 24,2465           26000                           OCT      26000                                 #  PRIORITY 26
022949,000583: 
022950,000584: 24,2466           04616                           TC       BANKCALL                              
022951,000585: 24,2467           11241                           CADR     R02BOTH                               #  IMU STATUS CHECK
022952,000586: 24,2470           05515                           TC       UPFLAG                                
022953,000587: 24,2471           00031                           ADRES    TRACKFLG                              #  SET TRACK FLAG
022954,000588: 24,2472           05515                           TC       UPFLAG                                
022955,000589: 24,2473           00006                           ADRES    P25FLAG                               #  SET P25FLAG
022956,000590: 24,2474           05527                           TC       DOWNFLAG                              
022957,000591: 24,2475           00010                           ADRES    RNDVZFLG                              
022958,000592: 24,2476           05364        P25LEM1            TC       PHASCHNG                              
022959,000593: 24,2477           04022                           OCT      04022                                 
022960,000594: 24,2500           34743                           CAF      P25FLBIT                              
022961,000595: 24,2501           70074                           MASK     STATE                                 #  IS P25FLAG SET
022962,000596: 24,2502           00006                           EXTEND                                         
022963,000597: 24,2503           15155                           BZF      ENDOFJOB                              
022964,000598: 24,2504           34747                           CAF      TRACKBIT                              #  IS TRACKFLAG SET?

Page 512

022966,000600: 24,2505           70075                           MASK     STATE      +1                         
022967,000601: 24,2506           00006                           EXTEND                                         
022968,000602: 24,2507           12515                           BZF      P25LMWT1                              #  NO-SKIP PHASE CHANGE AND WAIT 1 MINUTE
022969,000603: 24,2510           34757                           CAF      SEVEN                                 #  CALL R65 - FINE PREFERRED
022970,000604: 24,2511           55745                           TS       R65CNTR                               
022971,000605: 24,2512           04616                           TC       BANKCALL                              #  TRACKING ATTITUDE ROUTINE
022972,000606: 24,2513           46123                           CADR     R65LEM                                
022973,000607: 24,2514           02476                           TC       P25LEM1                               #  THEN GO CHECK FLAGS
022974,000608: 24,2515           32526        P25LMWT1           CAF      60SCNDS                               
022975,000609: 24,2516           05204                           TC       TWIDDLE                               #  WAIT ONE MINUTE THEN CHECK AGAIN
022976,000610: 24,2517           02521                           ADRES    P25LEM2                               
022977,000611: 24,2520           05155                           TC       ENDOFJOB                              
022978,000612: 24,2521           35024        P25LEM2            CAF      PRIO14                                
022979,000613: 24,2522           05105                           TC       FINDVAC                               
022980,000614: 24,2523  E7,1456                                  EBANK=   LOSCOUNT                              
022981,000615: 24,2523           02476 50067                     2CADR    P25LEM1                               
022982,000616: 
022983,000617: 24,2525           05272                           TC       TASKOVER                              
022984,000618: 24,2526           13560        60SCNDS            DEC      6000       B-14                       
022985,000619: 

Page 513

022987,000621:                                                                                                  #  DATA READ ROUTINE 22 (LEM)
022988,000622:                                                                                                  #  PROGRAM DESCRIPTION
022989,000623:                                                                                                  #  MOD NO - 2
022990,000624:                                                                                                  #  BY P VOLANTE
022991,000625:                                                                                                  #  FUNCTIONAL DESCRIPTION
022992,000626: 
022993,000627:                                                                                                  #    TO PROCESS AUTOMATIC RR MARK DATA TO UPDATE THE STATE VECTOR OF EITHER
022994,000628:                                                                                                  #  LM OR CSM AS DEFINED IN THE RENDEZVOUS NAVIGATION PROGRAM (P20)
022995,000629:                                                                                                  #  CALLING SEQUENCE -
022996,000630:                                                                                                  #           TC     BANKCALL
022997,000631:                                                                                                  #           CADR   R22LEM
022998,000632:                                                                                                  #  SUBROUTINES CALLED -
022999,000633:                                                                                                  #    LSR22.1           GOFLASH        WAITLIST
023000,000634:                                                                                                  #    LSR22.2           PRIOLARM       BANKCALL
023001,000635:                                                                                                  #    LSR22.3           R61LEM
023002,000636:                                                                                                  #  NORMAL EXIT MODES-
023003,000637:                                                                                                  #    R22 WILL CONTINUE TO RECYCLE,UPDATING STATE VECTORS WITH RADAR DATA
023004,000638:                                                                                                  #  UNTIL P20 CEASES TO OPERATE (RENDEZVOUS FLAG SET TO ZERO) AT WHICH TIME
023005,000639:                                                                                                  #  R22 WILL TERMINATE SELF.
023006,000640:                                                                                                  #  ALARM OR ABORT EXIT MODES-
023007,000641:                                                                                                  #    PRIORITY ALARM
023008,000642:                                                                                                  #  PRIORITY ALARM 525 LOS NOT WITHIN 3 DEGREE LIMIT
023009,000643:                                                                                                  #  OUTPUT
023010,000644:                                                                                                  #    SEE OUTPUT FROM LSR22.3
023011,000645:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
023012,000646:                                                                                                  #    SEE LSR22.1,LSR22.2,LSR22.3
023013,000647:                                                                                                  #  FLAGS SET + RESET
023014,000648:                                                                                                  #    NOANGFLG
023015,000649:                                                                                                  #  DEBRIS
023016,000650:                                                                                                  #    SEE LSR22.1,LSR22.2,LSR22.3
023017,000651: 24,2527  E7,1737                                  EBANK=   LRS22.1X                              
023018,000652: 24,2527                                           COUNT*   $$/R22                                
023019,000653: 24,2527           05364        R22LEM             TC       PHASCHNG                              
023020,000654: 24,2530           04022                           OCT      04022                                 
023021,000655: 24,2531           34745                           CAF      RNDVZBIT                              #  IS RENDESVOUS FLAG SET?
023022,000656: 24,2532           70074                           MASK     STATE                                 
023023,000657: 24,2533           00006                           EXTEND                                         
023024,000658: 24,2534           15155                           BZF      ENDOFJOB                              #  NO-EXIT R22 AND P20
023025,000659: 24,2535           34747                           CAF      TRACKBIT                              #  IS TRACKFLAG SET?
023026,000660: 24,2536           70075                           MASK     STATE      +1                         
023027,000661: 24,2537           00006                           EXTEND                                         
023028,000662: 24,2540           12722                           BZF      R22WAIT                               #  NO WAIT
023029,000663: 24,2541           34736        R22LEM12           CAF      BIT14                                 #  IS RR AUTO TRACK ENABLE DISCRETE STILL
023030,000664: 24,2542           00006                           EXTEND                                         #  ON (A MONITOR REPOSITION BY R25 CLEARSIT
023031,000665: 24,2543           02012                           RAND     CHAN12                                
023032,000666: 24,2544           00006                           EXTEND                                         
023033,000667: 24,2545           12167                           BZF      P20LEMA                               #  NO - RETURN TO P20
023034,000668: 24,2546           34752                           CAF      BIT2                                  #  YES
023035,000669: 24,2547           00006                           EXTEND                                         #  IS RR AUTO MODE DISCRETE PRESENT
023036,000670: 24,2550           02033                           RAND     CHAN33                                

Page 514

023038,000672: 24,2551           00006                           EXTEND                                         
023039,000673: 24,2552           12554                           BZF      +2                                    #  YES CONTINUE
023040,000674: 24,2553           02213                           TC       P20LEMB5                              #  NO - SET IT
023041,000675: 24,2554           40110                           CS       RADMODES                              #  ARE RR CDUS BEING ZEROED
023042,000676: 24,2555           74737                           MASK     RCDU0BIT                              
023043,000677: 24,2556           00006                           EXTEND                                         
023044,000678: 24,2557           12713                           BZF      R22LEM42                              #  CDUS BEING ZEROED
023045,000679: 24,2560           05364                           TC       PHASCHNG                              #  IF A RESTART OCCURS,AN EXTRA RADAR
023046,000680: 24,2561           00152                           OCT      00152                                 #  READING IS TAKEN,SO BAD DATA ISN'T USED
023047,000681: 24,2562           04616                           TC       BANKCALL                              #  YES READ DATA + CALCULATE LOS
023048,000682: 24,2563           64217                           CADR     LRS22.1                               #  DATA READ SUBROUTINE
023049,000683: 24,2564           50154                           INDEX    MPAC                                  
023050,000684: 24,2565           02566                           TC       +1                                    
023051,000685: 24,2566           02607                           TC       R22LEM2                               #  NORMAL RETURN (GOOD DATA)
023052,000686: 24,2567           02275                           TC       P20LEMC                               #  COULD NOT READ RADAR-TRY TO REDESIGNATE
023053,000687: 24,2570           32746                           CAF      ALRM525                               #  RR LOS NOT WITHIN 3 DEGREES (ALARM)
023054,000688: 24,2571           04616                           TC       BANKCALL                              
023055,000689: 24,2572           21544                           CADR     PRIOLARM                              
023056,000690: 24,2573           06025                           TC       GOTOV56                               #  TERMINATE EXITS P20 VIA V56 CODING
023057,000691: 24,2574           02577                           TC       R22LEM1                               #  PROC (DISPLAY DELTA THETA)
023058,000692: 24,2575           02570                           TC       -5                                    #  ENTER(ILLEGAL OPTION)
023059,000693: 24,2576           05155                           TC       ENDOFJOB                              
023060,000694: 
023061,000695: 
023062,000696: 24,2577           05364        R22LEM1            TC       PHASCHNG                              
023063,000697: 24,2600           04022                           OCT      04022                                 
023064,000698: 24,2601           32747                           CAF      V06N05                                #  DISPLAY DELTA THETA
023065,000699: 24,2602           04616                           TC       BANKCALL                              
023066,000700: 24,2603           20510                           CADR     PRIODSP                               
023067,000701: 24,2604           06025                           TC       GOTOV56                               #  TERMINATE EXITS P20 VIA V56 CODING
023068,000702: 24,2605           02607                           TC       R22LEM2                               #  PROC (OK CONTINUE)
023069,000703: 24,2606           02275                           TC       P20LEMC                               #  ENTER(RECYCLE)
023070,000704: 24,2607           05364        R22LEM2            TC       PHASCHNG                              
023071,000705: 24,2610           04022                           OCT      04022                                 
023072,000706: 24,2611           02752                           TC       LUNSFCHK                              #  CHECK IF ON LUNAR SURFACE (P22FLAG SET)
023073,000707: 24,2612           02627                           TC       R22LEM3                               #  YES-BYPASS FLAG CHECKS AND LRS22.2
023074,000708: 24,2613           30075                           CA       FLAGWRD1                              #  IS TRACK FLAG SET
023075,000709: 24,2614           74747                           MASK     TRACKBIT                              
023076,000710: 24,2615           00006                           EXTEND                                         
023077,000711: 24,2616           12722                           BZF      R22WAIT                               #  NO - WAIT
023078,000712: 24,2617           04616                           TC       BANKCALL                              #  YES
023079,000713: 24,2620           51417                           CADR     LRS22.2                               #  CHECKS RR BORESIGHT WITHIN 30 DEG OF +Z
023080,000714: 24,2621           50154                           INDEX    MPAC                                  
023081,000715: 24,2622           02623                           TC       +1                                    
023082,000716: 24,2623           02627                           TC       R22LEM3                               #  NORMAL RETURN(LOS WITHIN 30  OF Z-AXIS)
023083,000717: 24,2624           04616                           TC       BANKCALL                              
023084,000718: 24,2625           46116                           CADR     R61LEM                                
023085,000719: 24,2626           02722                           TC       R22WAIT                               #  NOT WITHIN 30 DEG OF Z-AXIS
023086,000720: 24,2627           40075        R22LEM3            CS       FLAGWRD1                              #  SHOULD WE BYPASS STATE VECTOR UPDATE
023087,000721: 24,2630           74746                           MASK     NOUPFBIT                              #  (IS NOUPDATE FLAG SET?)

Page 515

023089,000723: 24,2631           00006                           EXTEND                                         
023090,000724: 24,2632           12713                           BZF      R22LEM42                              #  BRANCH-YES
023091,000725: 24,2633           30075                           CA       FLAGWRD1                              #  IS UPDATE FLAG SET
023092,000726: 24,2634           74745                           MASK     UPDATBIT                              
023093,000727: 24,2635           00006                           EXTEND                                         
023094,000728: 24,2636           12713                           BZF      R22LEM42                              #  UPDATE FLAG NOT SET
023095,000729: 24,2637           37726                           CAF      PRIO26                                #  INSURE HIGH PRIO IN RESTART
023096,000730: 24,2640           55055                           TS       PHSPRDT2                              
023097,000731: 
023098,000732: 24,2641           06051                           TC       INTPRET                               
023099,000733: 24,2642           77650                           GOTO                                           
023100,000734: 24,2643           54420                                    LSR22.3                               
023101,000735: 24,2644           77776        R22LEM93           EXIT                                           #  NORMAL EXIT FROM LSR22.3
023102,000736: 24,2645           05364                           TC       PHASCHNG                              #  PHASE CHANGE TO PROTECT AGAINST
023103,000737: 24,2646           04022                           OCT      04022                                 #  CONFLICT WITH GRP2PC ERASEABLE
023104,000738: 24,2647           12706                           TCF      R22LEM44                              
023105,000739: 24,2650           77776        R22LEM96           EXIT                                           
023106,000740: 24,2651           34755                           CAF      ZERO                                  #  SET N49FLAG = ZERO TO INDICATE
023107,000741: 24,2652           55746                           TS       N49FLAG                               #  V06 N49 DISPLAY HASNT BEEN ANSWERED
023108,000742: 24,2653           05364                           TC       PHASCHNG                              
023109,000743: 24,2654           04022                           OCT      04022                                 #  TO PROTECT DISPLAY
023110,000744: 24,2655           37727                           CAF      PRIO27                                #  PROTECT DISPLAY
023111,000745: 24,2656           05072                           TC       NOVAC                                 
023112,000746: 24,2657  E7,1746                                  EBANK=   N49FLAG                               
023113,000747: 24,2657           02727 50067                     2CADR    N49DSP                                
023114,000748: 
023115,000749: 24,2661           06051                           TC       INTPRET                               
023116,000750: 24,2662           77735                           SLOAD                                          
023117,000751: 24,2663           03747                                    N49FLAG                               
023118,000752: 24,2664           50054                           BZE      BMN                                   #  LOOP TO CHECK IF FLAG
023119,000753: 24,2665           50662                                    -3                                    #  SETTING CHANGED-BRANCH - NO
023120,000754: 24,2666           50674                                    R22LEM7                               #  PROCEED
023121,000755: 24,2667           77650                           GOTO                                           #  DISPLAY ANSWERED BY RECYCLE-INCORPORATE
023122,000756: 24,2670           03675                                    LGRET                                 #        NEXT MEASUREMENT
023123,000757: 24,2671           44752        V34TON49           CS       TWO                                   
023124,000758: 24,2672           55746                           TS       N49FLAG                               
023125,000759: 24,2673           05155                           TC       ENDOFJOB                              
023126,000760: 24,2674           77776        R22LEM7            EXIT                                           
023127,000761: 24,2675           31746                           CA       N49FLAG                               #  WAS ANSWER TO DISPLAY PRO OR TERM
023128,000762: 24,2676           64752                           AD       TWO                                   
023129,000763: 24,2677           00006                           EXTEND                                         
023130,000764: 24,2700           12527                           BZF      R22LEM                                #  BRANCH - TERM - TAKE ANOTHER RR READING
023131,000765: 24,2701           06051                           TC       INTPRET                               
023132,000766: 24,2702           77624                           CALL                                           
023133,000767: 24,2703           11216                                    GRP2PC                                #  PHASE CHANGE AND
023134,000768: 24,2704           77650                           GOTO                                           #  GO TO INCORPORATE DATA.
023135,000769: 24,2705           55433                                    ASTOK                                 
023136,000770: 24,2706           25462        R22LEM44           INCR     MARKCTR                               #  INCREMENT COUNT OF MARKS INCORPORATED.
023137,000771: 24,2707           02752                           TC       LUNSFCHK                              #  ARE WE ON LUNAR SURFACE
023138,000772: 24,2710           02724                           TC       R22LEM46                              #  YES - WAIT 2 SECONDS

Page 516

023140,000774: 24,2711           34756                           CA       FIVE                                  #  NOT ON LUNAR SURFACE
023141,000775: 24,2712           02716                           TC       R22LEM45                              #  R65COUNTER = 5
023142,000776: 24,2713           02752        R22LEM42           TC       LUNSFCHK                              #  CHECK IF ON LUNAR SURFACE (P22FLAG SET)
023143,000777: 24,2714           02724                           TC       R22LEM46                              #  YES - WAIT 2 SECONDS
023144,000778: 24,2715           34752                           CA       TWO                                   #  NO-SET R65COUNTER = 2
023145,000779: 24,2716           55745        R22LEM45           TS       R65CNTR                               
023146,000780: 24,2717           04616                           TC       BANKCALL                              
023147,000781: 24,2720           46123                           CADR     R65LEM                                #  FINE PREFERRED TRACKING ATTITUDE
023148,000782: 24,2721           02527                           TC       R22LEM                                
023149,000783: 24,2722           32751        R22WAIT            CAF      1500DEC                               
023150,000784: 24,2723           02311                           TC       P20LEMWT   +1                         
023151,000785: 
023152,000786: 
023153,000787: 24,2724           04616        R22LEM46           TC       BANKCALL                              
023154,000788: 24,2725           01735                           CADR     2SECDELY                              #  WAIT 2 SECONDS AND TAKE ANOTHER MARK
023155,000789: 24,2726           02527                           TC       R22LEM                                
023156,000790: 
023157,000791: 24,2727           32750        N49DSP             CAF      V06N49NB                              
023158,000792: 24,2730           04616                           TC       BANKCALL                              #  EXCESSIVE STATE VECTOR UPDATE - FLASH
023159,000793: 24,2731           20510                           CADR     PRIODSP                               #  VERB 06 NOUN 49 R1=DELTA R, R2=DELTA V
023160,000794: 24,2732           02671                           TC       V34TON49                              #  TERMINATE - SET N49FLAG = -2
023161,000795: 24,2733           44753                           CS       ONE                                   #  PROCEED - N49FLAG = -1
023162,000796: 24,2734           55746                           TS       N49FLAG                               #  RECYCLE - N49FLAG = + VALUE
023163,000797: 24,2735           05155                           TC       ENDOFJOB                              
023164,000798: 24,2736           05364        R22RSTRT           TC       PHASCHNG                              #  IF A RESTART OCCURS WHILE READING RADAR
023165,000799: 24,2737           00152                           OCT      00152                                 #  COME HERE TO TAKE A RANGE-RATE READING
023166,000800: 24,2740           04616                           TC       BANKCALL                              #  WHICH ISNT USED TO PREVENT TAKING A BAD
023167,000801: 24,2741           53070                           CADR     RRRDOT                                #  READING AND TRYING TO INCORPORATE THE
023168,000802: 24,2742           04616                           TC       BANKCALL                              #  BAD DATA
023169,000803: 24,2743           17713                           CADR     RADSTALL                              #  WAIT FOR READ COMPLETE
023170,000804: 24,2744           02275                           TC       P20LEMC                               #  COULD NOT READ RADAR-TRY TO REDESIGNATE
023171,000805: 24,2745           02527                           TC       R22LEM                                #  READ SUCCESSFUL-CONTINUE AT R22
023172,000806: 
023173,000807: 
023174,000808: 24,2746           00525        ALRM525            OCT      00525                                 
023175,000809: 24,2747           01405        V06N05             VN       00605                                 
023176,000810: 24,2750           01461        V06N49NB           VN       00649                                 
023177,000811: 24,2751           02734        1500DEC            DEC      1500       B-14                       
023178,000812:                                                                                                  #  LUNSFCHK-CLOSED SUBROUTINE TO CHECK IF ON LUNAR SURFACE (P22FLAG)
023179,000813:                                                                                                  #           RETURNS TO CALLER +1 IF P22FLAG SET
023180,000814:                                                                                                  #                   TO CALLER +2 IF P22FLAG NOT SET
023181,000815: 
023182,000816: 
023183,000817: 24,2752                                           COUNT*   $$/P22                                
023184,000818: 24,2752           40104        LUNSFCHK           CS       FLAGWRD8                              #  CHECK IF ON LUNAR SURFACE
023185,000819: 24,2753           74744                           MASK     SURFFBIT                              #  IS SURFFLAG SET?
023186,000820: 24,2754           10000                           CCS      A                                     #  BRANCH - P22FLAG SET
023187,000821: 24,2755           24002                           INCR     Q                                     #  NOT SET
023188,000822: 24,2756           00002                           TC       Q                                     #  RETURN
023189,000823: 

Page 517

023191,000825:                                                                                                  #  RR DESIGNATE ROUTINE (R21LEM)
023192,000826:                                                                                                  #  PROGRAM DESCRIPTION
023193,000827:                                                                                                  #  MOD NO - 2
023194,000828:                                                                                                  #  BY P VOLANTE
023195,000829:                                                                                                  #  FUNCTIONAL DESCRIPTION
023196,000830: 
023197,000831:                                                                                                  #    TO POINT THE RENDEZVOUS RADAR AT THE CSM UNTIL AUTOMATIC ACQUISITION
023198,000832:                                                                                                  #  OF THE CSM IS ACCOMPLISHED BY THE RADAR. ROUTINE IS CALLED BY P20.
023199,000833:                                                                                                  #  CALLING SEQUENCE -
023200,000834:                                                                                                  #           TC     BANKCALL
023201,000835:                                                                                                  #           CADR   R21LEM
023202,000836:                                                                                                  #  SUBROUTINES CALLED -
023203,000837:                                                                                                  #    FINDVAC        FLAGUP           ENDOFJOB        PRIOLARM
023204,000838:                                                                                                  #    NOVAC          INTPRET          LPS20.1         PHASCHNG
023205,000839:                                                                                                  #    WAITLIST       JOBSLEEP         JOBWAKE         FLAGDOWN
023206,000840:                                                                                                  #    TASKOVER       BANKCALL         RADSTALL        RRDESSM
023207,000841:                                                                                                  #  NORMAL EXIT MODES
023208,000842:                                                                                                  #    WHEN LOCK-ON IS ACHIEVED,BRANCH WILL BE TO P20 WHERE R22 (DATA READ
023209,000843:                                                                                                  #  WILL BE SELECTED OR A NEED FOR A MANEUVER(BRANCH TO P20LEMA)
023210,000844:                                                                                                  #  ALARM OR ABORT EXIT MODES-
023211,000845:                                                                                                  #    PRIORITY ALARM 503 WHEN LOCK-ON HASN:T BEEN ACHIEVED AFTER 30SECS -
023212,000846:                                                                                                  #  THIS REQUIRES ASTRONAUT INTERFACE- SELECTION OF SEARCH OPTION OF
023213,000847:                                                                                                  #  ACQUISITION
023214,000848:                                                                                                  #  OUTPUT
023215,000849:                                                                                                  #    SEE LPS20.1,RRDESSM
023216,000850:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
023217,000851:                                                                                                  #    RRTARGET,RADMODES ARE USED BY LPS20.1 AND RRDESSM
023218,000852:                                                                                                  #  FLAGS SET + RESET
023219,000853:                                                                                                  #    LOSCMFLG      LOKONSW
023220,000854:                                                                                                  #  DEBRIS
023221,000855:                                                                                                  #    SEE LPS20.1,RRDESSM
023222,000856: 24,2757  E7,1456                                  EBANK=   LOSCOUNT                              
023223,000857: 24,2757                                           COUNT*   $$/R21                                
023224,000858: 24,2757           44736        R21LEM             CS       BIT14                                 #  REMOVE RR SELF TRACK ENABLE
023225,000859: 24,2760           00006                           EXTEND                                         
023226,000860: 24,2761           03012                           WAND     CHAN12                                
023227,000861: 24,2762           02752                           TC       LUNSFCHK                              
023228,000862: 24,2763           02770                           TC       R21LEM5                               
023229,000863: 24,2764           34755                           CAF      ZERO                                  #       COMMAND ANTENNA TO MODE CENTER
023230,000864: 24,2765           55106                           TS       TANG                                  #  IF NOT ON SURFACE-MODE 1-(T=0,S=0)
023231,000865: 24,2766           55107                           TS       TANG       +1                         
023232,000866: 24,2767           03000                           TC       R21LEM6                               
023233,000867: 24,2770           34740        R21LEM5            CAF      BIT12                                 
023234,000868: 24,2771           70110                           MASK     RADMODES                              
023235,000869: 24,2772           10000                           CCS      A                                     
023236,000870: 24,2773           03010                           TC       R21LEM10                              
023237,000871: 24,2774           34735                           CAF      BIT15                                 
023238,000872: 24,2775           55106                           TS       TANG                                  
023239,000873: 24,2776           44736                           CS       HALF                                  
023240,000874: 24,2777           55107                           TS       TANG       +1                         

Page 518

023242,000876: 24,3000           05527        R21LEM6            TC       DOWNFLAG                              
023243,000877: 24,3001           00012                           ADRES    LOKONSW                               
023244,000878: 24,3002           04616                           TC       BANKCALL                              
023245,000879: 24,3003           52466                           CADR     RRDESNB                               
023246,000880: 24,3004           03005                           TC       +1                                    
023247,000881: 24,3005           04616                           TC       BANKCALL                              
023248,000882: 24,3006           17713                           CADR     RADSTALL                              
023249,000883: 24,3007           03043                           TC       R21-503                               #  BAD RETURN FROM DESIGNATE -ISSUE ALARM
023250,000884: 24,3010           05515        R21LEM10           TC       UPFLAG                                
023251,000885: 24,3011           00041                           ADRES    LOSCMFLG                              #  EVERY FOURTH PASS THRU DODES
023252,000886: 24,3012           32366                           CAF      MAXTRIES                              #  ALLOW 60 PASSES (APPROX 45 SECONDS)
023253,000887: 24,3013           55113                           TS       DESCOUNT                              #  TO DESIGNATE AND LOCK ON
023254,000888: 24,3014           36257        R21LEM2            CAF      THREE                                 
023255,000889: 24,3015           55456                           TS       LOSCOUNT                              
023256,000890: 24,3016           06051        R21LEM1            TC       INTPRET                               
023257,000891: 24,3017           43234                           RTB      DAD                                   
023258,000892: 24,3020           21555                                    LOADTIME                              
023259,000893: 24,3021           11204                                    HALFSEC                               #  EXTRAPOLATE TO PRESENT TIME + .5 SEC.
023260,000894: 24,3022           34041                           STCALL   TDEC1                                 #  LOS DETERMINATION ROUTINE
023261,000895: 24,3023           51340                                    LPS20.1                               
023262,000896: 24,3024           77776                           EXIT                                           
023263,000897: 24,3025           05515        R21LEM3            TC       UPFLAG                                #  SET LOKONSW TO RADAR-ON DESIRED
023264,000898: 24,3026           00012                           ADRES    LOKONSW                               
023265,000899: 24,3027           05527                           TC       DOWNFLAG                              
023266,000900: 24,3030           00126                           ADRES    NORRMON                               
023267,000901: 24,3031           06051                           TC       INTPRET                               
023268,000902: 24,3032           77624                           CALL                                           #  INPUT (RRTARGET UPDATED BY LPS20.1)
023269,000903: 24,3033           52364                                    RRDESSM                               #  DESIGNATE ROUTINE
023270,000904: 24,3034           77776                           EXIT                                           
023271,000905: 24,3035           03064                           TC       R21LEM4                               #  LOS NOT IN MODE 2 COVERAGE
023272,000906:                                                                                                  #  ON LUNAR SURFACE
023273,000907: 24,3036           02167                           TC       P20LEMA                               #  VEHICLE MANEUVER REQUIRED.
023274,000908: 24,3037           04616                           TC       BANKCALL                              #  NO VEHICLE MANEUVER REQUIRED
023275,000909: 24,3040           17713                           CADR     RADSTALL                              #  WAIT FOR DESIGNATE COMPLETE - LOCKON OR
023276,000910: 24,3041           03043                           TC       +2                                    #  BADEND-LOCKON NOT ACHIEVED IN 60 TRIES
023277,000911: 24,3042           03052                           TC       R21END                                #  EXIT ROUTINE RETURN TO P20 (LOCK-ON)
023278,000912: 24,3043           33062        R21-503            CAF      ALRM503                               #  ISSUE ALARM 503
023279,000913: 24,3044           04616                           TC       BANKCALL                              
023280,000914: 24,3045           21544                           CADR     PRIOLARM                              
023281,000915: 24,3046           06025                           TC       GOTOV56                               #  TERMINATE EXITS P20 VIA V56 CODING
023282,000916: 24,3047           03057                           TC       R21SRCH                               #  PROC
023283,000917: 24,3050           02267                           TC       P20LEMC3                              
023284,000918: 24,3051           05155                           TC       ENDOFJOB                              
023285,000919: 24,3052           05527        R21END             TC       DOWNFLAG                              
023286,000920: 24,3053           00041                           ADRES    LOSCMFLG                              #  RESET LOSCMFLG
023287,000921: 24,3054           02752                           TC       LUNSFCHK                              #  ARE WE ON LUNAR SURFACE
023288,000922: 24,3055           02310                           TC       P20LEMWT                              #  YES - BYPASS V 50 N 72 DISPLAY
023289,000923: 24,3056           03205                           TC       R21DISP                               #  PUT UP VERIFY MAIN LOBE LOCKON DISPLAY
023290,000924: 24,3057           05364        R21SRCH            TC       PHASCHNG                              
023291,000925: 24,3060           04022                           OCT      04022                                 

Page 519

023293,000927: 24,3061           03272                           TC       R24LEM                                #  SEARCH ROUTINE
023294,000928: 24,3062           00503        ALRM503            OCT      00503                                 
023295,000929: 24,3063           00527        ALRM527            OCT      527                                   
023296,000930: 
023297,000931: 
023298,000932: 24,3064           32366        R21LEM4            CAF      MAXTRIES                              #  SET UP COUNTER FOR
023299,000933: 24,3065           55423                           TS       REPOSCNT                              #  60 PASSES (APPROX 600 SECS.)
023300,000934: 24,3066           05515                           TC       UPFLAG                                
023301,000935: 24,3067           00005                           ADRES    FSPASFLG                              #  SET FIRST TIME FLAG
023302,000936: 24,3070           05527                           TC       DOWNFLAG                              #  RESET LOS BEING
023303,000937: 24,3071           00041                           ADRES    LOSCMFLG                              #  COMPUTED FLAG
023304,000938: 24,3072           06051                           TC       INTPRET                               
023305,000939: 24,3073           77634        R21LEM12           RTB                                            
023306,000940: 24,3074           21555                                    LOADTIME                              
023307,000941: 24,3075           77615        R21LEM00           DAD                                            
023308,000942: 24,3076           11202                                    TENSEC                                #  TIME T = T + 10 SECS.
023309,000943: 24,3077           03425                           STORE    REPOSTM                               #  SAVE FOR LONGCALL AND UPPSV
023310,000944: 24,3100           34041                           STCALL   TDEC1                                 
023311,000945: 24,3101           51340                                    LPS20.1                               #  COMPUTE LOS AT TIME T
023312,000946: 24,3102           77624                           CALL                                           
023313,000947: 24,3103           52364                                    RRDESSM                               
023314,000948: 24,3104           77776                           EXIT                                           
023315,000949: 24,3105           03117                           TC       R21LEM13                              #  LOS NOT IN MODE 2 COVERAGE
023316,000950: 24,3106           05155                           TC       ENDOFJOB                              #  VEHICLE MANEUVER REQUIRED
023317,000951: 24,3107           06032                           TC       KILLTASK                              
023318,000952: 24,3110           52564                           CADR     BEGDES                                
023319,000953: 24,3111           06051                           TC       INTPRET                               
023320,000954: 24,3112           43014                           BOF      CLRGO                                 
023321,000955: 24,3113           00345                                    FSPASFLG                              #  FIRST TIME THRU REPOSITION
023322,000956: 24,3114           51127                                    R21LEM8                               #  NO-GO TO CONTINUOUS DESIGNATE
023323,000957: 24,3115           00225                                    FSPASFLG                              #  YES-RESET FIRST TIME FLAG
023324,000958: 24,3116           51124                                    R21LEM50                              
023325,000959: 24,3117           11423        R21LEM13           CCS      REPOSCNT                              #  HAVE WE TRIED 60 TIMES?
023326,000960: 24,3120           03122                           TC       R21LEM7                               #  NO-ADD 10 SECS. RECOMPUTE LOS
023327,000961: 24,3121           03171                           TC       R21LEM11                              #  YES-PUT OUT ALARM 530
023328,000962: 24,3122           55423        R21LEM7            TS       REPOSCNT                              
023329,000963: 24,3123           06051                           TC       INTPRET                               
023330,000964: 24,3124           52145        R21LEM50           DLOAD    GOTO                                  
023331,000965: 24,3125           03425                                    REPOSTM                               
023332,000966: 24,3126           51075                                    R21LEM00                              
023333,000967: 24,3127           77745        R21LEM8            DLOAD                                          
023334,000968: 24,3130           03425                                    REPOSTM                               
023335,000969: 24,3131           34041                           STCALL   TDEC1                                 
023336,000970: 24,3132           50374                                    UPPSV                                 
023337,000971: 24,3133           77776                           EXIT                                           
023338,000972: 24,3134           05515                           TC       UPFLAG                                #  SET RADMODES BIT 15 FOR
023339,000973: 24,3135           00264                           ADRES    CDESFLAG                              #  CONTINUOUS DESIGNATION
023340,000974: 24,3136           05527                           TC       DOWNFLAG                              
023341,000975: 24,3137           00012                           ADRES    LOKONSW                               
023342,000976: 24,3140           05515                           TC       UPFLAG                                

Page 520

023344,000978: 24,3141           00126                           ADRES    NORRMON                               
023345,000979: 24,3142           04616                           TC       BANKCALL                              
023346,000980: 24,3143           52466                           CADR     RRDESNB                               
023347,000981: 24,3144           03145                           TC       +1                                    
023348,000982: 24,3145           06051                           TC       INTPRET                               
023349,000983: 24,3146           44234                           RTB      BDSU                                  
023350,000984: 24,3147           21555                                    LOADTIME                              #  COMPUTE DELTA TIME
023351,000985: 24,3150           03425                                    REPOSTM                               #  FOR LONGCALL
023352,000986: 24,3151           03427                           STORE    DELTATM                               
023353,000987: 24,3152           77776                           EXIT                                           
023354,000988: 24,3153           00006                           EXTEND                                         
023355,000989: 24,3154           31427                           DCA      DELTATM                               
023356,000990: 24,3155           05310                           TC       LONGCALL                              
023357,000991: 24,3156  E7,1456                                  EBANK=   LOSCOUNT                              
023358,000992: 24,3156           03161 50067                     2CADR    R21LEM9                               
023359,000993: 
023360,000994: 24,3160           05155                           TC       ENDOFJOB                              
023361,000995: 24,3161           06032        R21LEM9            TC       KILLTASK                              
023362,000996: 24,3162           52573                           CADR     STDESIG                               
023363,000997: 24,3163           06011                           TC       CLRADMOD                              
023364,000998: 24,3164           37726                           CAF      PRIO26                                
023365,000999: 24,3165           05105                           TC       FINDVAC                               
023366,001000: 24,3166  E7,1456                                  EBANK=   LOSCOUNT                              
023367,001001: 24,3166           03010 50067                     2CADR    R21LEM10                              
023368,001002: 
023369,001003: 24,3170           05272                           TC       TASKOVER                              
023370,001004: 24,3171           33200        R21LEM11           CAF      ALRM530                               #  ALARM 530-LOS NOT IN COVERAGE
023371,001005: 24,3172           04616                           TC       BANKCALL                              #  AFTER TRYING TO DESIGNATE FOR
023372,001006: 24,3173           21544                           CADR     PRIOLARM                              #  600 SECS.
023373,001007: 24,3174           06025                           TC       GOTOV56                               
023374,001008: 24,3175           06025                           TC       GOTOV56                               
023375,001009: 24,3176           06025                           TC       GOTOV56                               
023376,001010: 24,3177           05155                           TC       ENDOFJOB                              
023377,001011: 24,3200           00530        ALRM530            OCT      00530                                 
023378,001012: 24,3201           00000 01750  TENSEC             2DEC     1000       B-28                       
023379,001013: 
023380,001014: 24,3203           00000 00062  HALFSEC            2DEC     50         B-28                       
023381,001015: 
023382,001016: 24,3205           05364        R21DISP            TC       PHASCHNG                              
023383,001017: 24,3206           04022                           OCT      04022                                 
023384,001018: 24,3207           33220                           CAF      V06N72PV                              #  FLASH V 50 N 72 - PLEASE PERFORM RR
023385,001019: 24,3210           04616                           TC       BANKCALL                              #  MAIN LOBE LOCKON VERIFICATION
023386,001020: 24,3211           20711                           CADR     GOPERF2R                              
023387,001021: 24,3212           06025                           TC       GOTOV56                               #  TERMINATE EXITS VIA V 56
023388,001022: 24,3213           02310                           TC       P20LEMWT                              #  PROCEED CONTINUES TO R22
023389,001023: 24,3214           03207                           TC       -5                                    #  ENTER ILLEGAL
023390,001024: 24,3215           34745                           CAF      BIT7                                  
023391,001025: 24,3216           05475                           TC       LINUS                                 #  SET BITS TO MAKE THIS A PRIORITY DISPLAY
023392,001026: 24,3217           05155                           TC       ENDOFJOB                              

Page 521

023394,001028: 24,3220           01510        V06N72PV           VN       00672                                 
023395,001029: 

Page 522

023397,001031:                                                                                                  #  MANUAL ACQUISITION ROUTINE R23LEM
023398,001032:                                                                                                  #  PROGRAM DESCRIPTION
023399,001033:                                                                                                  #  MOD NO - 2
023400,001034:                                                                                                  #  BY P VOLANTE
023401,001035:                                                                                                  #  FUNCTIONAL DESCRIPTION
023402,001036: 
023403,001037:                                                                                                  #    TO ACQUIRE THE CSM BY MANUAL OPERATION OF THE RENDEZVOUS RADAR
023404,001038:                                                                                                  #  CALLING SEQUENCE -
023405,001039:                                                                                                  #           TC     R23LEM
023406,001040:                                                                                                  #  SUBROUTINES CALLED
023407,001041:                                                                                                  #    BANKCALL        R61LEM
023408,001042:                                                                                                  #    SETMINDB        GOPERF1
023409,001043:                                                                                                  #  NORMAL EXIT MODES -
023410,001044:                                                                                                  #    IN RESPONSE TO THE GOPERF1 ,SELECTION OF ENTER WILL RECYCLE R23
023411,001045:                                                                                                  #                               ,SELECTION OF PROC  WILL CONTINUE R23
023412,001046:                                                                                                  #                               ,SELECTION OF TERM  WILL TERMINATE R23 +P20
023413,001047:                                                                                                  #  ALARM OR ABORT EXIT MODES -
023414,001048:                                                                                                  #    SEE NORMAL EXIT MODES ABOVE
023415,001049:                                                                                                  #  OUTPUT
023416,001050:                                                                                                  #    N.A.
023417,001051:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-
023418,001052:                                                                                                  #    ACMODFLG MUST BE SET TO 1 (MANUAL MODE)
023419,001053: 24,3221     1142                                  EBANK=   GENRET                                
023420,001054: 24,3221                                           COUNT*   $$/R23                                
023421,001055: 24,3221           05515        R23LEM             TC       UPFLAG                                #  SET NO ANGLE MONITOR FLAG
023422,001056: 24,3222           00126                           ADRES    NORRMON                               
023423,001057: 24,3223           00004                           INHINT                                         
023424,001058: 24,3224           04674                           TC       IBNKCALL                              #  SELECT MINIMUM DEADBAND
023425,001059: 24,3225           40141                           CADR     SETMINDB                              
023426,001060: 24,3226           00003                           RELINT                                         
023427,001061: 24,3227           34736        R23LEM1            CAF      BIT14                                 #  ENABLE TRACKER
023428,001062: 24,3230           00006                           EXTEND                                         
023429,001063: 24,3231           05012                           WOR      CHAN12                                
023430,001064: 24,3232           33271                           CAF      OCT205                                
023431,001065: 24,3233           04616                           TC       BANKCALL                              
023432,001066: 24,3234           20624                           CADR     GOPERF1                               
023433,001067: 24,3235           03262                           TC       R23LEM2                               #  TERMINATE
023434,001068: 24,3236           03240                           TC       R23LEM11                              #  PROCEDE
023435,001069: 24,3237           03265                           TC       R23LEM3                               #  ENTER- DO ANOTHER MANUVER
023436,001070: 24,3240           00004        R23LEM11           INHINT                                         
023437,001071: 24,3241           04523                           TC       RRLIMCHK                              #  YES - CHECK IF ANTENNA IS WITHIN LIMITS
023438,001072: 24,3242           00035                           ADRES    CDUT                                  
023439,001073: 24,3243           03252                           TC       OUTOFLIM                              #  NOT WITHIN LIMITS
023440,001074: 24,3244           04674                           TC       IBNKCALL                              #  RESTORE DEADBAND TO
023441,001075: 24,3245           40115                           CADR     RESTORDB                              #  ASTRONAUT SELECTED VALUE
023442,001076: 24,3246           00003                           RELINT                                         
023443,001077: 24,3247           05527                           TC       DOWNFLAG                              #  CLEAR NO ANGLE MONITOR FLAG
023444,001078: 24,3250           00126                           ADRES    NORRMON                               
023445,001079: 24,3251           02241                           TC       P20LEMB1                              #  RADAR IS LOCKED ON CONTINUE IN P20
023446,001080: 24,3252           00003        OUTOFLIM           RELINT                                         

Page 523

023448,001082: 24,3253           33270                           CAF      OCT501PV                              
023449,001083: 24,3254           04616                           TC       BANKCALL                              #  ISSUE ALARM - RR ANTENNA NOT WITHIN
023450,001084: 24,3255           21544                           CADR     PRIOLARM                              #  LIMITS
023451,001085: 24,3256           03262                           TC       R23LEM2                               #  TERMINATE - EXIT R23 TO R00 (GO TO POOH)
023452,001086: 24,3257           03253                           TC       OUTOFLIM   +1                         #  PROCEED ILLEGAL
023453,001087: 24,3260           03265                           TC       R23LEM3                               #  RECYCLE- DO ANOTHER MANUVER
023454,001088: 24,3261           05155                           TC       ENDOFJOB                              
023455,001089: 24,3262           05527        R23LEM2            TC       DOWNFLAG                              #  CLEAR NO ANGLE MONITOR FLAG
023456,001090: 24,3263           00126                           ADRES    NORRMON                               
023457,001091: 24,3264           06025                           TC       GOTOV56                               #  AND EXIT VIA V56
023458,001092: 24,3265           04616        R23LEM3            TC       BANKCALL                              
023459,001093: 24,3266           46116                           CADR     R61LEM                                
023460,001094: 24,3267           03227                           TC       R23LEM1                               
023461,001095: 
023462,001096: 
023463,001097: 24,3270           00501        OCT501PV           OCT      501                                   
023464,001098: 24,3271           00205        OCT205             OCT      205                                   
023465,001099: 

Page 524

023467,001101:                                                                                                  #  SEARCH ROUTINE R24LEM
023468,001102:                                                                                                  #  PROGRAM DESCRIPTION
023469,001103:                                                                                                  #  MOD NO - 2
023470,001104:                                                                                                  #  BY  P. VOLANTE
023471,001105:                                                                                                  #  FUNCTIONAL DESCRIPTION
023472,001106: 
023473,001107:                                                                                                  #    TO ACQUIRE THE CSM BY A SEARCH PATTERN WHEN THE RENDEZVOUS RADAR HAS
023474,001108:                                                                                                  #  FAILED TO ACQUIRE THE CSM IN THE AUTOMATIC TRACKING MODE AND TO ALLOW
023475,001109:                                                                                                  #  THE ASTRONAUT TO CONFIRM THAT REACQUISITION HAS NOT BEEN BY SIDELOBE.
023476,001110:                                                                                                  #  CALLING SEQUENCE
023477,001111:                                                                                                  #           CAF    PRIONN
023478,001112:                                                                                                  #           TC     FINDVAC
023479,001113:                                                                                                  #           EBANK= DATAGOOD
023480,001114:                                                                                                  #           2CADR  R24LEM
023481,001115:                                                                                                  #  SUBROUTINES CALLED
023482,001116:                                                                                                  #    FLAGUP        FLAGDOWN      BANKCALL
023483,001117:                                                                                                  #    R61LEM        GOFLASHR      FINDVAC
023484,001118:                                                                                                  #    ENDOFJOB      NOVAC         LSR24.1
023485,001119:                                                                                                  #  NORMAL EXIT MODES-
023486,001120:                                                                                                  #    ASTRONAUT RESPONSE TO DISPLAY OF OMEGA AND DATAGOOD.HE CAN EITHER
023487,001121:                                                                                                  #  REJECT BY TERMINATING (SEARCH OPTION AND RESELECTING P20) OR ACCEPT BY
023488,001122:                                                                                                  #  PROCEEDING (EXIT ROUTINE AND RETURN TO AUTO MODE IN P20)
023489,001123:                                                                                                  #  ALARM OR ABORT EXIT MODES-
023490,001124:                                                                                                  #    SEE NORMAL EXIT MODES ABOVE
023491,001125:                                                                                                  #  OUTPUT -
023492,001126:                                                                                                  #    SEE OUTPUT FROM LSR24.1 + R61LEM
023493,001127:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
023494,001128:                                                                                                  #    SEE INPUT FOR LSR24.1
023495,001129:                                                                                                  #  FLAGS SET + RESET
023496,001130:                                                                                                  #    SRCHOPT,ACMODFLG
023497,001131: 24,3272  E7,1733                                  EBANK=   DATAGOOD                              
023498,001132: 24,3272                                           COUNT*   $$/R24                                
023499,001133: 24,3272           05515        R24LEM             TC       UPFLAG                                
023500,001134: 24,3273           00037                           ADRES    SRCHOPTN                              #  SET SRCHOPT FLAG
023501,001135: 24,3274           05527                           TC       DOWNFLAG                              #  RESET LOS BEING COMPUTED FLAG TO MAKE
023502,001136: 24,3275           00041                           ADRES    LOSCMFLG                              #  SURE DODES DOESN'T GO TO R21
023503,001137: 24,3276           34755        R24LEM1            CAF      ZERO                                  
023504,001138: 24,3277           55733                           TS       DATAGOOD                              #  ZERO OUT DATA INDICATOR
023505,001139: 24,3300           55734                           TS       OMEGAD                                #  ZERO OMEGA DISPLAY REGS
023506,001140: 24,3301           55735                           TS       OMEGAD     +1                         #  ZERO OMEGA DISPLAY REGS
023507,001141: 24,3302           05364        R24LEM2            TC       PHASCHNG                              
023508,001142: 24,3303           04022                           OCT      04022                                 
023509,001143: 24,3304           33337                           CAF      V16N80                                
023510,001144: 24,3305           04616                           TC       BANKCALL                              
023511,001145: 24,3306           20505                           CADR     PRIODSPR                              
023512,001146: 24,3307           06025                           TC       GOTOV56                               
023513,001147: 24,3310           03314                           TC       R24END                                #  PROCEED EXIT R24 TO P20LEM1
023514,001148: 
023515,001149: 
023516,001150: 24,3311           03320                           TC       R24LEM3                               #  RECYCLE - CALL R61 TO MANEUVER S/C

Page 525

023518,001152: 24,3312           04616                           TC       BANKCALL                              
023519,001153: 24,3313           55444                           CADR     LRS24.1                               
023520,001154: 24,3314           06032        R24END             TC       KILLTASK                              
023521,001155: 24,3315           55645                           CADR     CALLDGCH                              
023522,001156: 24,3316           06011                           TC       CLRADMOD                              #  CLEAR BITS 10 & 15 OF RADMODES.
023523,001157: 24,3317           12065                           TCF      P20LEM1                               #  AND GO TO 400 MI. RANGE CHECK IN P20.
023524,001158: 
023525,001159:    6011                                           BLOCK    3                                     
023526,001160:    6000                                           SETLOC   FFTAG6                                
023527,001161:    6000                                           BANK                                           
023528,001162:    6011                                           COUNT*   $$/R24                                
023529,001163: 
023530,001164:    6011           46021        CLRADMOD           CS       BIT10+15                              
023531,001165:    6012           00004                           INHINT                                         
023532,001166:    6013           70110                           MASK     RADMODES                              
023533,001167:    6014           54110                           TS       RADMODES                              
023534,001168:    6015           44752                           CS       BIT2                                  #  DISABLE RR ERROR COUNTERS
023535,001169:    6016           00006                           EXTEND                                         
023536,001170:    6017           03012                           WAND     CHAN12                                #  USER WILL RELINT
023537,001171: 
023538,001172:    6020           00002                           TC       Q                                     
023539,001173: 
023540,001174: 
023541,001175:    6021           41000        BIT10+15           OCT      41000                                 
023542,001176: 24,3320                                           BANK     24                                    
023543,001177: 24,2000                                           SETLOC   P20S                                  
023544,001178: 24,2000                                           BANK                                           
023545,001179: 24,3320                                           COUNT*   $$/R24                                
023546,001180: 
023547,001181: 24,3320           05364        R24LEM3            TC       PHASCHNG                              
023548,001182: 24,3321           04022                           OCT      04022                                 
023549,001183: 24,3322           06032                           TC       KILLTASK                              
023550,001184: 24,3323           55645                           CADR     CALLDGCH                              #  KILL WAITLIST FOR NEXT POINT IN PATTERN
023551,001185: 24,3324           06011                           TC       CLRADMOD                              #  CLEAR BITS 10 + 15 OF RADMODES
023552,001186: 24,3325           34774                           CAF      .5SEC                                 
023553,001187: 24,3326           04616                           TC       BANKCALL                              #  WAIT FOR DESIGNATE LOOP TO DIE
023554,001188: 24,3327           01736                           CADR     DELAYJOB                              
023555,001189: 24,3330           02752                           TC       LUNSFCHK                              #  CHECK IF ON LUNAR SURFACE
023556,001190: 24,3331           03334                           TC       R24LEM4                               #  YES-DONT DO ATTITUDE MANEUVER
023557,001191: 24,3332           04616                           TC       BANKCALL                              #  CALL R61 TO DO PREFERRED TRACKING
023558,001192: 24,3333           46116                           CADR     R61LEM                                #  ATTITUDE MANEUVER
023559,001193: 24,3334           34755        R24LEM4            CAF      ZERO                                  #  ZERO OUT RADCADR (WHICH WAS SET BY
023560,001194: 24,3335           55303                           TS       RADCADR                               #  ENDRADAR WHEN DESIGNATE STOPPED) SO THAT
023561,001195:                                                                                                  #  RRDESSM  WILL RETURN TO CALLER
023562,001196: 24,3336           03302                           TC       R24LEM2                               #  AND GO BACK TO PUT UP V16 N80 DISPLAY
023563,001197: 
023564,001198: 
023565,001199: 24,3337           04120        V16N80             VN       01680                                 
023566,001200: 

Page 526

023568,001202:                                                                                                  #  PREFERRED TRACKING ATTITUDE ROUTINE R61LEM
023569,001203:                                                                                                  #  PROGRAM DESCRIPTION
023570,001204:                                                                                                  #  MOD NO : 3                      DATE : 4-11-67
023571,001205:                                                                                                  #  MOD BY : P VOLANTE  SDC
023572,001206: 
023573,001207: 
023574,001208:                                                                                                  #  FUNCTIONAL DESCRIPTION-
023575,001209:                                                                                                  #    TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE LM TO ENABLE RR
023576,001210:                                                                                                  #  TRACKING OF THE CSM AND TO PERFORM THE MANEUVER TO THE PREFERRED
023577,001211:                                                                                                  #  ATTITUDE.
023578,001212:                                                                                                  #  CALLING SEQUENCE-
023579,001213:                                                                                                  #           TC     BANKCALL
023580,001214:                                                                                                  #           CADR   R61LEM
023581,001215:                                                                                                  #  SUBROUTINES CALLED
023582,001216:                                                                                                  #      LPS20.1       VECPOINT
023583,001217:                                                                                                  #      KALCMAN3
023584,001218: 
023585,001219: 
023586,001220:                                                                                                  #  NORMAL EXIT MODES-
023587,001221:                                                                                                  #    NORMAL RETURN IS TO CALLER + 1
023588,001222:                                                                                                  #  ALARM OR ABORT EXIT MODES-
023589,001223:                                                                                                  #    TERMINATE P20 + R61 BY BRANCHING TO P20END IF BOTH TRACKFLAG +
023590,001224:                                                                                                  #  RENDEZVOUS FLAG ARE NOT SET.
023591,001225:                                                                                                  #  OUTPUT -
023592,001226:                                                                                                  #    SEE OUTPUT FOR LPS20.1 + ATTITUDE MANEUVER ROUTINE (R60)
023593,001227:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
023594,001228:                                                                                                  #    GENRET USED TO SAVE Q FOR RETURN
023595,001229:                                                                                                  #  FLAGS SET + RESET
023596,001230:                                                                                                  #    3AXISFLG
023597,001231:                                                                                                  #  DEBRIS
023598,001232:                                                                                                  #    SEE SUBROUTINES
023599,001233: 23,2000                                           SETLOC   R61                                   
023600,001234: 23,2000                                           BANK                                           
023601,001235: 23,2116  E7,1456                                  EBANK=   LOSCOUNT                              
023602,001236: 23,2116                                           COUNT*   $$/R61                                
023603,001237: 23,2116           04645        R61LEM             TC       MAKECADR                              
023604,001238: 23,2117           55142                           TS       GENRET                                
023605,001239: 23,2120           05515                           TC       UPFLAG                                #  SET R61 FLAG
023606,001240: 23,2121           00024                           ADRES    R61FLAG                               
023607,001241: 23,2122           02150                           TC       R61C+L02                              
023608,001242: 23,2123           04645        R65LEM             TC       MAKECADR                              
023609,001243: 23,2124           55142                           TS       GENRET                                
023610,001244: 23,2125           05527                           TC       DOWNFLAG                              #  RESET R61 FLAG
023611,001245: 23,2126           00024                           ADRES    R61FLAG                               
023612,001246: 23,2127           34736                           CA       BIT14                                 #  RESET AGS CODE WORD (=20000).  DON'T USE
023613,001247: 23,2130           55073                           TS       AGSCODE                               #    PGNCS DOWNLINKED RADAR DATA.
023614,001248: 23,2131           34750        R61C+L01           CAF      BIT4                                  #  BYPASS RADAR READING IF DATA
023615,001249: 23,2132           00006                           EXTEND                                         #  GOOD NOT PRESENT
023616,001250: 23,2133           02033                           RAND     CHAN33                                
023617,001251: 23,2134           10000                           CCS      A                                     

Page 527

023619,001253: 23,2135           12150                           TCF      R61C+L02                              #  NO DATA GOOD
023620,001254: 23,2136           04616                           TC       BANKCALL                              #  READ RR RANGE AND RDOT
023621,001255: 23,2137           53070                           CADR     RRRDOT                                #   EVERY R65 PASS (3 TIMES
023622,001256: 23,2140           04616                           TC       BANKCALL                              #   BEFORE FIRST MARK, ONCE
023623,001257: 23,2141           17713                           CADR     RADSTALL                              #   DURING ANY MARK PROCESSING,
023624,001258: 23,2142           12143                           NOOP                                           
023625,001259: 23,2143           04616                           TC       BANKCALL                              
023626,001260: 23,2144           53072                           CADR     RRRANGE                               
023627,001261: 23,2145           04616                           TC       BANKCALL                              
023628,001262: 23,2146           17713                           CADR     RADSTALL                              
023629,001263: 23,2147           12150                           NOOP                                           
023630,001264: 23,2150           34747        R61C+L02           CAF      TRACKBIT                              #  TRACKFLAG
023631,001265: 23,2151           70075                           MASK     STATE      +1                         
023632,001266: 23,2152           00006                           EXTEND                                         
023633,001267: 23,2153           12312                           BZF      R65WAIT                               #  NOT SET
023634,001268: 23,2154           06051        R61C+L03           TC       INTPRET                               
023635,001269: 23,2155           77775                           VLOAD                                          
023636,001270: 23,2156           06512                                    HIUNITZ                               
023637,001271: 23,2157           03765                           STORE    SCAXIS                                #  TRACK AXIS UNIT VECTOR
023638,001272: 23,2160           43234        R61LEM1            RTB      DAD                                   
023639,001273: 23,2161           21555                                    LOADTIME                              #  EXTRAPOLATE FORWARD TO CENTER
023640,001274: 23,2162           15714                                    3SECONDS                              #  SIX SECOND PERIOD.
023641,001275: 23,2163           34041                           STCALL   TDEC1                                 
023642,001276: 23,2164           51340                                    LPS20.1                               #  LOS DETERMINATION + VEH ATTITUDE
023643,001277: 23,2165           77775                           VLOAD                                          
023644,001278: 23,2166           01101                                    RRTARGET                              
023645,001279: 23,2167           03773                           STORE    POINTVSM                              
023646,001280: 23,2170           45034                           RTB      CALL                                  #     GET DESIRED CDU'S FOR VECPNT1
023647,001281: 23,2171           46320                                    READCDUD                              
023648,001282: 23,2172           56032                                    VECPNT1                               #  COMPUTES FINAL ANGLES FROM PRESENT CDUDS
023649,001283: 23,2173           00322                           STORE    CPHI                                  #  STORE FINAL ANGLES - CPHI,CTHETA,CPSI
023650,001284: 23,2174           77776                           EXIT                                           
023651,001285: 23,2175           05364                           TC       PHASCHNG                              
023652,001286: 23,2176           04022                           OCT      04022                                 
023653,001287: 23,2177           34747                           CAF      TRACKBIT                              #   IS TRACK FLAG SET
023654,001288: 23,2200           70075                           MASK     FLAGWRD1                              
023655,001289: 23,2201           00006                           EXTEND                                         
023656,001290: 23,2202           12312                           BZF      R65WAIT                               
023657,001291: 23,2203           04616                           TC       BANKCALL                              
023658,001292: 23,2204           54263                           CADR     G+N,AUTO                              #  CHECK FOR AUTO MODE
023659,001293: 23,2205           10000                           CCS      A                                     
023660,001294: 23,2206           02300                           TC       R61C+L04                              #  NOT IN AUTO
023661,001295: 23,2207           06051                           TC       INTPRET                               
023662,001296: 23,2210           45175                           VLOAD    CALL                                  
023663,001297: 23,2211           01101                                    RRTARGET                              
023664,001298: 23,2212           47653                                    CDU*SMNB                              
023665,001299: 23,2213           45345                           DLOAD    DSU                                   #  GET PHI - ARCCOS OF Z-COMPONENT OF LOS
023666,001300: 23,2214           00162                                    MPAC       +5                         
023667,001301: 23,2215           06316                                    COS15DEG                              
023668,001302: 23,2216           77440        R61LEM2            BMN      EXIT                                  #  BRANCH - PHI > 15 DEGREES

Page 528

023670,001304: 23,2217           46234                                    R61C+L05                              #  PHI GRE 10DEG
023671,001305: 23,2220  E6,1634                                  EBANK=   CDUXD                                 
023672,001306: 23,2220           35015                           CAF      EBANK6                                
023673,001307: 23,2221           54003                           TS       EBANK                                 
023674,001308: 23,2222           00004                           INHINT                                         
023675,001309: 23,2223           00006                           EXTEND                                         
023676,001310: 23,2224           30322                           DCA      CPHI                                  
023677,001311: 23,2225           53635                           DXCH     CDUXD                                 
023678,001312: 23,2226           30323                           CA       CPSI                                  
023679,001313: 23,2227           55636                           TS       CDUZD                                 
023680,001314: 23,2230           00003                           RELINT                                         
023681,001315: 23,2231  E7,1456                                  EBANK=   LOSCOUNT                              
023682,001316: 23,2231           35016                           CAF      EBANK7                                
023683,001317: 23,2232           54003                           TS       EBANK                                 
023684,001318: 23,2233           02257                           TC       R61C+L06                              
023685,001319: 23,2234           77776        R61C+L05           EXIT                                           
023686,001320: 23,2235           00004                           INHINT                                         
023687,001321: 23,2236           04674                           TC       IBNKCALL                              
023688,001322: 23,2237           40154                           FCADR    ZATTEROR                              
023689,001323: 23,2240           04674                           TC       IBNKCALL                              
023690,001324: 23,2241           40141                           FCADR    SETMINDB                              #  REDUCE ATTITUDE ERROR
023691,001325: 23,2242           05527                           TC       DOWNFLAG                              
023692,001326: 23,2243           00124                           ADRES    3AXISFLG                              
023693,001327: 23,2244           05515                           TC       UPFLAG                                
023694,001328: 23,2245           00077                           ADRES    PDSPFLAG                              #  SET PRIORITY DISPLAY FLAG
023695,001329: 23,2246           04616                           TC       BANKCALL                              
023696,001330: 23,2247           54125                           CADR     R60LEM                                
023697,001331: 23,2250           00004                           INHINT                                         
023698,001332: 23,2251           04674                           TC       IBNKCALL                              
023699,001333: 23,2252           40115                           FCADR    RESTORDB                              
023700,001334: 23,2253           05364                           TC       PHASCHNG                              
023701,001335: 23,2254           04022                           OCT      04022                                 
023702,001336: 23,2255           05527                           TC       DOWNFLAG                              
023703,001337: 23,2256           00077                           ADRES    PDSPFLAG                              #  RESET PRIORITY DISPLAY FLAG
023704,001338: 23,2257           30075        R61C+L06           CA       FLAGWRD1                              
023705,001339: 23,2260           74742                           MASK     R61FLBIT                              
023706,001340: 23,2261           10000                           CCS      A                                     
023707,001341: 23,2262           02303                           TC       R61C+L4                               
023708,001342: 23,2263           11745                           CCS      R65CNTR                               
023709,001343: 23,2264           02266                           TC       +2                                    
023710,001344: 23,2265           02303                           TC       R61C+L4                               #  R65CNTR = 0 - EXIT ROUTINE
023711,001345: 23,2266           55745                           TS       R65CNTR                               
023712,001346: 23,2267           32317                           CAF      06SEC                                 
023713,001347: 23,2270           05204                           TC       TWIDDLE                               
023714,001348: 23,2271           02273                           ADRES    R61C+L2                               
023715,001349: 23,2272           05155                           TC       ENDOFJOB                              
023716,001350: 23,2273           37726        R61C+L2            CAF      PRIO26                                
023717,001351: 23,2274           05105                           TC       FINDVAC                               
023718,001352: 23,2275  E7,1456                                  EBANK=   LOSCOUNT                              
023719,001353: 23,2275           02131 46067                     2CADR    R61C+L01                              
023720,001354: 

Page 529

023722,001356: 23,2277           05272                           TC       TASKOVER                              
023723,001357: 23,2300           04616        R61C+L04           TC       BANKCALL                              #  TO CONVERT ANGLES TO FDAI
023724,001358: 23,2301           54274                           CADR     BALLANGS                              
023725,001359: 23,2302           02257                           TC       R61C+L06                              
023726,001360: 23,2303           31142        R61C+L4            CAE      GENRET                                
023727,001361: 23,2304           14640                           TCF      BANKJUMP                              #  EXIT R61
023728,001362: 23,2305           32314        R61C+L1            CAF      BIT7+9PV                              #  IS RENDEZVOUS OR P25FLAG SET
023729,001363: 23,2306           70074                           MASK     STATE                                 
023730,001364: 23,2307           00006                           EXTEND                                         
023731,001365: 23,2310           15155                           BZF      ENDOFJOB                              #  NO-EXIT ROUTINE AND PROGRAM.
023732,001366: 23,2311           02257                           TC       R61C+L06                              #  YES EXIT ROUTINE
023733,001367: 23,2312           04635        R65WAIT            TC       POSTJUMP                              
023734,001368: 23,2313           50310                           CADR     P20LEMWT                              
023735,001369: 
023736,001370: 
023737,001371: 23,2314           00500        BIT7+9PV           OCT      00500                                 
023738,001372: 23,2315           17350 34602  COS15DEG           2DEC     0.96593    B-1                        
023739,001373: 
023740,001374: 23,2317           01130        06SEC              DEC      600        B-14                       
023741,001375: 23,2320                        PHI                EQUALS   20D                                   
023742,001376: 23,2320           00004        READCDUD           INHINT                                         #  READS DESIRED CDU'S AND STORES IN
023743,001377: 23,2321           35015                           CAF      EBANK6                                #  MPAC TP EXITS WITH MODE SET TO TP
023744,001378: 23,2322           56003                           XCH      EBANK                                 
023745,001379: 23,2323           54070                           TS       RUPTREG1                              
023746,001380: 23,2324  E6,1634                                  EBANK=   CDUXD                                 
023747,001381: 23,2324           31634                           CA       CDUXD                                 
023748,001382: 23,2325           54154                           TS       MPAC                                  
023749,001383: 23,2326           00006                           EXTEND                                         
023750,001384: 23,2327           31636                           DCA      CDUYD                                 
023751,001385: 23,2330           52156                           DXCH     MPAC       +1                         
023752,001386: 23,2331           30070                           CA       RUPTREG1                              
023753,001387: 23,2332           54003                           TS       EBANK                                 
023754,001388: 23,2333           00003                           RELINT                                         
023755,001389: 23,2334           16511                           TCF      TMODE                                 
023756,001390:    4512                                           BLOCK    02                                    
023757,001391:    4000                                           SETLOC   RADARFF                               
023758,001392:    4000                                           BANK                                           
023759,001393: 
023760,001394:    4512  E7,1456                                  EBANK=   LOSCOUNT                              
023761,001395:    4512                                           COUNT*   $$/RRSUB                              
023762,001396: 

Page 530

023764,001398:                                                                                                  #  THE FOLLOWING SUBROUTINE RETURNS TO CALLER + 2 IF THE ABSOLUTE VALUE OF VALUE OF C(A) IS GREATER THAN THE
023765,001399:                                                                                                  #  NEGATIVE OF THE NUMBER AT CALLER +1. OTHERWISE IT RETURNS TO CALLER +3. MAY BE CALLED IN RUPT OR UNDER EXEC.
023766,001400: 
023767,001401:    4512           00006        MAGSUB             EXTEND                                         
023768,001402:    4513           64515                           BZMF     +2                                    
023769,001403:    4514           14516                           TCF      +2                                    
023770,001404:    4515           40000                           COM                                            
023771,001405: 
023772,001406:    4516           50002                           INDEX    Q                                     
023773,001407:    4517           60000                           AD       0                                     
023774,001408:    4520           00006                           EXTEND                                         
023775,001409:    4521           66753                           BZMF     Q+2                                   #  ABS(A) <= CONST GO TO L+3
023776,001410:    4522           16751                           TCF      Q+1                                   #  ABS(A) >  CONST GO TO L+2
023777,001411: 

Page 531

023779,001413:                                                                                                  #  PROGRAM NAME_  RRLIMCHK                                                  ARE IN THE LIMITS OF THE CURRENT MODE.
023780,001414: 
023781,001415:                                                                                                  #  FUNCTIONAL DESCRIPTION_
023782,001416:                                                                                                  #  RRLIMCHK CHECKS RR DESIRED GIMBAL ANGLES TO SEE IF THEY ARE WITHIN
023783,001417:                                                                                                  #  THE LIMITS OF THE CURRENT MODE. INITIALLY THE DESIRED TRUNNION AND
023784,001418:                                                                                                  #  SHAFT ANGLES ARE STORED IN ITEMP1 AND ITEMP2. THE CURRENT RR
023785,001419:                                                                                                  #  ANTENNAE MODE (RADMODES BIT 12) IS CHECKED WHICH IS = 0 FOR
023786,001420:                                                                                                  #  MODE 1 AND =1 FOR MODE 2.
023787,001421:                                                                                                  #  MODE 1 - THE TRUNNION ANGLE IS CHECKED AT MAGSUB TO SEE IF IT IS
023788,001422:                                                                                                  #  BETWEEN -55 AND +55 DEGREES. IF NOT, RETURN TO L +2. IF WITHIN LIMITS,
023789,001423:                                                                                                  #  THE SHAFT ANGLE IS CHECKED TO SEE IF IT IS BETWEEN -70 AND +59 DEGREES.
023790,001424:                                                                                                  #  IF NOT, RETURN TO L +2. IF IN LIMITS, RETURN TO L +3.
023791,001425:                                                                                                  #  MODE 2 - THE SHAFT ANGLE IS CHECKED AT MAGSUB TO SEE IF IT IS
023792,001426:                                                                                                  #  BETWEEN -139 AND -25 DEGREES. IF NOT, RETURN TO L +2. IF WITHIN
023793,001427:                                                                                                  #  LIMITS, THE TRUNNION ANGLE IS CHECKED TO SEE IF IT IS BETWEEN +125
023794,001428:                                                                                                  #  AND -125 (+235) DEGREES. IF NOT, RETURN TO L +2. IF IN LIMITS, RETURN
023795,001429:                                                                                                  #  TO L +3.
023796,001430: 
023797,001431:                                                                                                  #  CALLING SEQUENCE:
023798,001432:                                                                                                  #  L  TC  RRLIMCHK (WITH INTERRUPT INHIBITED)
023799,001433:                                                                                                  #  L +1  ADRES T,S   (DESIRED TRUNNION ANGLE ADDRESS)
023800,001434: 
023801,001435:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
023802,001436:                                                                                                  #  RADMODES, MODEA, MODEB (OR DESIRED TRUNNION AND SHAFT
023803,001437:                                                                                                  #  ANGLES ELSEWHERE IN CONSECUTIVE LOCATIONS - UNSWITCHED ERASABLE OR
023804,001438:                                                                                                  #  CURRENT EBANK).
023805,001439: 
023806,001440:                                                                                                  #  SUBROUTINES CALLED_  MAGSUB
023807,001441: 
023808,001442:                                                                                                  #  JOBS OR TASKS INITIATED_  NONE
023809,001443: 
023810,001444:                                                                                                  #  ALARMS_  NONE
023811,001445: 
023812,001446:                                                                                                  #  EXIT_  L + 2 (EITHER OR BOTH ANGLES NOT WITHIN LIMITS OF CURRENT MODE)
023813,001447:                                                                                                  #  L + 3 (BOTH ANGLES WITHIN LIMITS OF CURRENT MODE)
023814,001448: 
023815,001449:    4523           00006        RRLIMCHK           EXTEND                                         
023816,001450:    4524           50002                           INDEX    Q                                     
023817,001451:    4525           50000                           INDEX    0                                     
023818,001452:    4526           30001                           DCA      0                                     
023819,001453:    4527           24002                           INCR     Q                                     
023820,001454:    4530           52062                           DXCH     ITEMP1                                
023821,001455:    4531           22002                           LXCH     Q                                     #  L(CALLER +2) TO L.
023822,001456: 
023823,001457:    4532           34740                           CAF      ANTENBIT                              #  SEE WHICH MODE RR IS IN.
023824,001458:    4533           70110                           MASK     RADMODES                              
023825,001459:    4534           10000                           CCS      A                                     
023826,001460:    4535           14550                           TCF      MODE2CHK                              
023827,001461: 
023828,001462:    4536           30061                           CA       ITEMP1                                #  MODE 1 IS DEFINED AS

Page 532

023830,001464:    4537           04512                           TC       MAGSUB                                #      1. ABS(T) L 55 DEGS.
023831,001465:    4540           66161                           DEC      -.30555                               #      2. ABS(S + 5.5 DEGS) L 64.5 DEGS
023832,001466:    4541           00001                           TC       L                                     #          (SHAFT LIMITS AT +59, -70 DEGS)
023833,001467: 
023834,001468:    4542           34562                           CAF      5.5DEGS                               
023835,001469:    4543           60062                           AD       ITEMP2                                #  S
023836,001470:    4544           04512                           TC       MAGSUB                                
023837,001471:    4545           64420                           DEC      -.35833                               #  64.5 DEGS
023838,001472:    4546           00001                           TC       L                                     
023839,001473:    4547           04560                           TC       RRLIMOK                               #  IN LIMITS.
023840,001474: 
023841,001475:    4550           34563        MODE2CHK           CAF      82DEGS                                #  MODE 2 IS DEFINED AS
023842,001476:    4551           60062                           AD       ITEMP2                                #      1. ABS(T) G 125 DEGS.
023843,001477:    4552           04512                           TC       MAGSUB                                #      2. ABS(S + 82 DEGS) L 57 DEGS
023844,001478:    4553           65673                           DEC      -.31667                               #          (SHAFT LIMITS AT -25, -139 DEGS)
023845,001479:    4554           00001                           TC       L                                     
023846,001480: 
023847,001481:    4555           30061                           CA       ITEMP1                                
023848,001482:    4556           04512                           TC       MAGSUB                                
023849,001483:    4557           51615                           DEC      -.69444                               #  125 DEGS
023850,001484: 
023851,001485:    4560           50001        RRLIMOK            INDEX    L                                     
023852,001486:    4561           00001                           TC       L                                     #  ( = TC 1)
023853,001487: 
023854,001488:    4562           00765        5.5DEGS            DEC      .03056                                
023855,001489:    4563           16450        82DEGS             DEC      .45556                                
023856,001490: 

Page 533

023858,001492:                                                                                                  #  PROGRAM NAME_  SETTRKF                                                  . IF EITHER:
023859,001493: 
023860,001494:                                                                                                  #  FUNCTIONAL DESCRIPTION_
023861,001495:                                                                                                  #  SETTRKF UPDATES THE TRACKER FAIL LAMP ON THE DSKY.                      HER THE ALT OR VEL INFORMATION.
023862,001496:                                                                                                  #  INITIALLY THE LAMP TEST FLAG (IMODES33 BIT 1) IS CHECKED.
023863,001497:                                                                                                  #  IF A LAMP TEST IS IN PROGRESS, THE PROGRAM EXITS TO L +1.
023864,001498:                                                                                                  #  IF NO LAMP TEST THE FOLLOWING IS CHECKED SEQUENTIALLY_
023865,001499:                                                                                                  #  1) RR CDU:S BEING ZEROED, RR CDU OK, AND RR NOT IN
023866,001500:                                                                                                  #  AUTO MODE (RADMODES BITS 13, 7, 2).
023867,001501:                                                                                                  #  2) LR VEL DATA FAIL AND NO LR POS DATA (RADMODES BITS
023868,001502:                                                                                                  #  8,5)
023869,001503:                                                                                                  #  3) NO RR DATA (RADMODES BIT 4)
023870,001504:                                                                                                  #  THE ABSENCE OF ALL THREE SIMULTANEOUSLY IN (1), THE PRESENCE OF BOTH
023871,001505:                                                                                                  #  IN (2), AND THE PRESENCE OF (3) RESULTS IN EITHER THE TRACKER FAIL
023872,001506:                                                                                                  #  LAMP (DSPTAB +11D BIT 8) BEING TURNED ON OR LEFT ON. OTHERWISE,
023873,001507:                                                                                                  #  THE TRACKER FAIL LAMP IS TURNED OFF OR IS LEFT OFF. THEREFORE, THE
023874,001508:                                                                                                  #  TRACKER FAIL LAMP IS TURNED ON IF_
023875,001509:                                                                                                  #  A ) RR CDU FAILED WITH RR IN AUTO MODE AND RR CDU:S NOT BEING ZEROED.
023876,001510:                                                                                                  #  B) N SAMPLES OF LR DATA COULD NOT BE TAKEN IN 2N TRIES WITH
023877,001511:                                                                                                  #  EITHER THE ALT OR VEL INFORMATION
023878,001512:                                                                                                  #  C) N SAMPLES OF RR DATA COULD NOT BE OBTAINED FROM 2N TRIES
023879,001513:                                                                                                  #  WITH EITHER THE AL
023880,001514: 
023881,001515:                                                                                                  #  CALLING SEQUENCE:
023882,001516:                                                                                                  #  L  TC  SETTRKF
023883,001517: 
023884,001518:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED: IMODES33, RADMODES, DSPTAB +11D
023885,001519:                                                                                                  #  SUBROUTINES CALLED_  NONE
023886,001520: 
023887,001521:                                                                                                  #  JOBS OR TASKS INITIATED_  NONE
023888,001522: 
023889,001523:                                                                                                  #  ALARMS_  TRACKER FAIL LAMP
023890,001524: 
023891,001525:                                                                                                  #  EXIT_  L +1 (ALWAYS)                                                         ED.
023892,001526: 
023893,001527:    4564           34753        SETTRKF            CAF      BIT1                                  #  NO ACTION IF DURING LAMP TEST.
023894,001528:    4565           71300                           MASK     IMODES33                              
023895,001529:    4566           10000                           CCS      A                                     
023896,001530:    4567           00002                           TC       Q                                     
023897,001531: 
023898,001532:    4570           34744        RRTRKF             CA       BIT8                                  
023899,001533:    4571           54001                           TS       L                                     
023900,001534: 
023901,001535:    4572           34615                           CAF      13,7,2                                #  SEE IF CDU FAILED.
023902,001536:    4573           70110                           MASK     RADMODES                              
023903,001537:    4574           00006                           EXTEND                                         
023904,001538:    4575           14601                           BZF      TRKFLON                               #  CONDITION 3 ABOVE.
023905,001539: 
023906,001540:    4576           34750        RRCHECK            CAF      RRDATABT                              #  SEE IF RR DATA FAILED.
023907,001541:    4577           70110                           MASK     RADMODES                              

Page 534

023909,001543:    4600           10000                           CCS      A                                     
023910,001544:    4601           30001        TRKFLON            CA       L                                     
023911,001545:    4602           61035                           AD       DSPTAB     +11D                       #  HALF ADD DESIRED AND PRESENT STATES.
023912,001546:    4603           70001                           MASK     L                                     
023913,001547:    4604           00006                           EXTEND                                         
023914,001548:    4605           16754                           BZF      TCQ                                   #  NO CHANGE.
023915,001549: 
023916,001550:    4606           31035        FLIP               CA       DSPTAB     +11D                       #  CANT USE LXCH DSPTAB +11D (RESTART PROB)
023917,001551:    4607           00006                           EXTEND                                         
023918,001552:    4610           06001                           RXOR     LCHAN                                 
023919,001553:    4611           74733                           MASK     POSMAX                                
023920,001554:    4612           64735                           AD       BIT15                                 
023921,001555:    4613           55035                           TS       DSPTAB     +11D                       
023922,001556:    4614           00002                           TC       Q                                     
023923,001557: 
023924,001558:    4615           10102        13,7,2             OCT      10102                                 
023925,001559:    4616                        ENDRMODF           EQUALS                                         
023926,001560: 

Page 535

023928,001562:                                                                                                  #  PROGRAM NAME_  RRTURNON
023929,001563: 
023930,001564:                                                                                                  #  FUNCTIONAL DESCRIPTION_
023931,001565: 
023932,001566:                                                                                                  #  RRTURNON IS THE TURN-ON SEQUENCE WHICH, ALONG WITH
023933,001567:                                                                                                  #  RRZEROSB, ZEROS THE CDU:S AND DETERMINES THE RR MODE.
023934,001568:                                                                                                  #  INITIALLY, CONTROL IS TRANSFERRED TO RRZEROSB FOR THE
023935,001569:                                                                                                  #  ACTUAL TURN-ON SEQUENCE. UPON RETURN THE PROGRAM
023936,001570:                                                                                                  #  WAITS 1 SECOND BEFORE REMOVING THE TURN-ON FLAG
023937,001571:                                                                                                  #  (RADMODES BIT1) SO THE REPOSITION ROUTINE WON:T
023938,001572:                                                                                                  #  INITIATE PROGRAM ALARM 00501. A CHECK IS THEN MADE
023939,001573:                                                                                                  #  TO SEE IF A PROGRAM IS USING THE RR (STATE BIT 7). IF
023940,001574:                                                                                                  #  SO, THE PROGRAM EXITS TO ENDRADAR SO THAT THE RR CDU
023941,001575:                                                                                                  #  FAIL FLAG (RADMODES BIT 7) CAN BE CHECKED BEFORE
023942,001576:                                                                                                  #  RETURNING TO THE WAITING PROGRAM. IF NOT, THE PROGRAM EXITS
023943,001577:                                                                                                  #  TO TASKOVER.
023944,001578: 
023945,001579:                                                                                                  #  CALLING SEQUENCE: WAITLIST TASK FROM RRAUTCHK IF THE RR POWER ON AUTO
023946,001580:                                                                                                  #  BIT (CHAN 33 BIT 2) CHANGES TO 0 AND NO PROGRAM WAS USING 
023947,001581:                                                                                                  #  THE RR (STATE BIT 7).
023948,001582: 
023949,001583:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
023950,001584:                                                                                                  #  RADMODES, STATE
023951,001585: 
023952,001586:                                                                                                  #  SUBROUTINES CALLED_  RRZEROSB, FIXDELAY, TASKOVER, ENDRADAR
023953,001587: 
023954,001588:                                                                                                  #  JOBS OR TASKS INITIATED_
023955,001589:                                                                                                  #  NONE
023956,001590: 
023957,001591:                                                                                                  #  ALARMS_  NONE (SEE RRZEROSB)
023958,001592: 
023959,001593:                                                                                                  #  EXIT_  TASKOVER, ENDRADAR (WAITING PROGRAM)
023960,001594: 
023961,001595: 24,3340                                           BANK     24                                    
023962,001596: 25,2000                                           SETLOC   P20S1                                 
023963,001597: 25,2000                                           BANK                                           
023964,001598: 
023965,001599: 25,2053  E7,1456                                  EBANK=   LOSCOUNT                              
023966,001600: 25,2053                                           COUNT*   $$/RSUB                               
023967,001601: 25,2053           02062        RRTURNON           TC       RRZEROSB                              
023968,001602: 25,2054           05232                           TC       FIXDELAY                              #  WAIT 1 SEC BEFORE REMOVING TURN ON FLAG
023969,001603: 25,2055           00144                           DEC      100        B-14                       #  SO A MONITOR REPOSITION WONT ALARM.
023970,001604: 25,2056           44753                           CS       TURNONBT                              
023971,001605: 25,2057           70110                           MASK     RADMODES                              
023972,001606: 25,2060           54110                           TS       RADMODES                              
023973,001607: 25,2061           15272                           TCF      TASKOVER                              
023974,001608: 

Page 536

023976,001610:                                                                                                  #  PROGRAM NAME_  RRZEROSB
023977,001611: 
023978,001612:                                                                                                  #  FUNCTIONAL DESCRIPTION_
023979,001613:                                                                                                  #  RRZEROSB IS A CLOSED SUBROUTINE TO ZERO THE RR CDU:S,
023980,001614:                                                                                                  #  DETERMINE THE RR MODE, AND TURNS ON THE TRACKER FAIL
023981,001615:                                                                                                  #  LAMP IF REQUIRED. INITIALLY THE RR CDU ZERO BIT (CHAN 12
023982,001616:                                                                                                  #  BIT 1) IS SET. FOLLOWING A 20 MILLISECOND WAIT, THE LGC
023983,001617:                                                                                                  #  RR CDU COUNTERS (OPTY, OPTX) ARE SET = 0 AFTER 
023984,001618:                                                                                                  #  WHICH THE RR CDU ZERO DISCRETE (CHAN 12 BIT 1) IS
023985,001619:                                                                                                  #  REMOVED. A 4 SECOND WAIT IS SET TO ALL THE RR CDU:S
023986,001620:                                                                                                  #  TO REPEAT THE ACTUAL TRUNNION AND SHAFT ANGLES. THE
023987,001621:                                                                                                  #  RR CDU ZERO FLAG (RADMODES BIT 13) IS REMOVED. THE
023988,001622:                                                                                                  #  CONTENTS OF OPTY IS THEN CHECKED TO SEE IF THE TRUNNION
023989,001623:                                                                                                  #  ANGLE IS LESS THAN 90 DEGREES. IF NOT, BIT 12 OF
023990,001624:                                                                                                  #  RADMODES IS SET = 1 TO INDICATE RR ANTENNA MODE 2.
023991,001625:                                                                                                  #  IF LESS THAN 90 DEGREES, BIT 12 OF RADMODES IS SET = 0 TO
023992,001626:                                                                                                  #  INDICATE RR ANTENNA MODE 1. SETTRKF IS THEN CALLED TO
023993,001627:                                                                                                  #  SEE IF THE TRACKER FAIL LAMP SHOULD BE TURNED ON.
023994,001628: 
023995,001629:                                                                                                  #  CALLING SEQUENCE: L  TC  RRZEROSB (FROM RRTURNON AND RRZERO)
023996,001630:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
023997,001631:                                                                                                  #  RADMODES (BIT 13 SET), DSPTAB +11D
023998,001632: 
023999,001633:                                                                                                  #  SUBROUTINES CALLED_  FIXDELAY, MAGSUB, SETTRKF
024000,001634: 
024001,001635:                                                                                                  #  JOBS OR TASKS INITIATED_
024002,001636:                                                                                                  #  NONE
024003,001637: 
024004,001638:                                                                                                  #  ALARMS_  TRACKER FAIL
024005,001639: 
024006,001640:                                                                                                  #  EXIT_  L +1 (ALWAYS)
024007,001641: 
024008,001642: 25,2062           00006        RRZEROSB           EXTEND                                         
024009,001643: 25,2063           23312                           QXCH     RRRET                                 
024010,001644: 25,2064           34753                           CAF      BIT1                                  #  BIT 13 OF RADMODES MUST BE SET BEFORE
024011,001645: 25,2065           00006                           EXTEND                                         #  COMING HERE.
024012,001646: 25,2066           05012                           WOR      CHAN12                                #  TURN ON ZERO RR CDU
024013,001647: 25,2067           05232                           TC       FIXDELAY                              
024014,001648: 25,2070           00002                           DEC      2          B-14                       
024015,001649: 
024016,001650: 25,2071           34755                           CAF      ZERO                                  
024017,001651: 25,2072           54035                           TS       CDUT                                  
024018,001652: 25,2073           54036                           TS       CDUS                                  
024019,001653: 25,2074           44753                           CS       ONE                                   #  REMOVE ZEROING BIT.
024020,001654: 25,2075           00006                           EXTEND                                         
024021,001655: 25,2076           03012                           WAND     CHAN12                                
024022,001656: 25,2077           05232                           TC       FIXDELAY                              
024023,001657: 25,2100           01750                           DEC      1000       B-14                       #  RESET FAIL INHIBIT IN 10 SECS - D.281
024024,001658: 
024025,001659: 25,2101           44737                           CS       RCDU0BIT                              #  REMOVE ZEROING IN PROCESS BIT.

Page 537

024027,001661: 25,2102           70110                           MASK     RADMODES                              
024028,001662: 25,2103           54110                           TS       RADMODES                              
024029,001663: 
024030,001664: 25,2104           30035                           CA       CDUT                                  
024031,001665: 25,2105           04512                           TC       MAGSUB                                
024032,001666: 25,2106           57777                           DEC      -.5                                   
024033,001667: 25,2107           12112                           TCF      +3                                    #  IF MODE 2.
024034,001668: 
024035,001669: 25,2110           34755                           CAF      ZERO                                  
024036,001670: 25,2111           12113                           TCF      +2                                    
024037,001671: 25,2112           34740                           CAF      ANTENBIT                              
024038,001672: 25,2113           56110                           XCH      RADMODES                              
024039,001673: 25,2114           77753                           MASK     -BIT12                                
024040,001674: 25,2115           26110                           ADS      RADMODES                              
024041,001675: 
024042,001676: 25,2116           04564                           TC       SETTRKF                               #  TRACKER LAMP MIGHT GO ON NOW.
024043,001677: 
024044,001678: 25,2117           01312                           TC       RRRET                                 #  DONE.
024045,001679: 
024046,001680: 25,2120     7753               -BIT12             EQUALS   -1/8                                  #  IN SPROOT
024047,001681: 

Page 538

024049,001683:                                                                                                  #  PROGRAM NAME_  DORREPOS
024050,001684:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024051,001685:                                                                                                  #  DORREPOS IS A SEQUENCE OF TASKS TO DRIVE THE RENDEZVOUS RADAR
024052,001686:                                                                                                  #  TO A SAFE POSITION. INITIALLY SETRRECR IS CALLED WHERE THE RR
024053,001687:                                                                                                  #  ERROR COUNTERS (CHAN 12 BIT 2) ARE ENABLED AND LASTYCMD
024054,001688:                                                                                                  #  AND LASTXCMD SET = 0 TO INDICATE THE DIFFERENCE BETWEEN THE
024055,001689:                                                                                                  #  DESIRED STATE AND PRESENT STATE OF THE COMMANDS. THE RR
024056,001690:                                                                                                  #  TURN-ON FLAG (RADMODES BIT 1) IS CHECKED AND IF NOT PRESENT,
024057,001691:                                                                                                  #  PROGRAM ALARM 00501 IS REQUESTED BEFORE CONTINUING. IN EITHER
024058,001692:                                                                                                  #  CASE, FOLLOWING A 20 MILLISECOND WAIT THE PROGRAM CHECKS THE CURRENT
024059,001693:                                                                                                  #  RR ANTENNA MODE (RADMODES BIT 12). RRTONLY IS THEN CALLED
024060,001694:                                                                                                  #  TO DRIVE THE TRUNNION ANGLE TO 0 DEGREES IF IN MODE 1 AND TO 180
024061,001695:                                                                                                  #  DEGREES IF IN MODE 2. UPON RETURN, THE CURRENT RR ANTENNA
024062,001696:                                                                                                  #  MODE (RADMODES BIT 12) IS AGAIN CHECKED. RRSONLY IS THEN
024063,001697:                                                                                                  #  CALLED TO DRIVE THE SHAFT ANGLE TO 0 DEGREES IF IN MODE 1 AND TO
024064,001698:                                                                                                  #  -90 DEGREES IF IN MODE 2. IF DURING RRTONLY OR RRSONLY A
024065,001699:                                                                                                  #  REMODE HAS BEEN REQUESTED (RADMODES BIT 14), AND ALWAYS
024066,001700:                                                                                                  #  FOLLOWING COMPLETION OF RRSONLY, CONTROL IS TRANSFERRED TO
024067,001701:                                                                                                  #  REPOSRPT. HERE THE REPOSITION FLAG (RADMODES BIT 11) IS 
024068,001702:                                                                                                  #  REMOVED. A CHECK IS THEN MADE ON THE DESIGNATE FLAG (RADMODES
024069,001703:                                                                                                  #  BIT 10). IF PRESENT, CONTROL IS TRANSFERRED TO BEGDES. IF NOT PRESENT
024070,001704:                                                                                                  #  INDICATING NO FURTHER ANTENNA CONTROL REQUIRED, THE RR ERROR
024071,001705:                                                                                                  #  COUNTER BIT (CHAN 12 BIT 2) IS REMOVED AND THE ROUTINE EXITS TO
024072,001706:                                                                                                  #  TASKOVER.
024073,001707: 
024074,001708:                                                                                                  #  CALLING SEQUENCE:
024075,001709:                                                                                                  #  WAITLIST CALL FROM RRGIMON IF TRUNNION AND SHAFT CDU ANGLES
024076,001710:                                                                                                  #  NOT WITHIN LIMITS OF CURRENT MODE.
024077,001711: 
024078,001712:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024079,001713:                                                                                                  #  RADMODES
024080,001714: 
024081,001715:                                                                                                  #  SUBROUTINES CALLED_
024082,001716:                                                                                                  #  RRTONLY, RRSONLY, BEGDES (EXIT)
024083,001717: 
024084,001718:                                                                                                  #  JOBS OR TASKS INITIATED_
024085,001719:                                                                                                  #  NONE
024086,001720: 
024087,001721:                                                                                                  #  ALARMS-  NONE
024088,001722: 
024089,001723:                                                                                                  #  EXIT_  TASKOVER, BEGDES
024090,001724: 
024091,001725: 25,2120           02147        DORREPOS           TC       SETRRECR                              #  SET UP RR CDU ERROR COUNTERS.
024092,001726: 
024093,001727:                                                                                                  #  ALARM 501 DELETED IN DANCE 279 PER PCR 97.
024094,001728: 
024095,001729: 25,2121           05232                           TC       FIXDELAY                              
024096,001730: 25,2122           00002                           DEC      2          B-14                       
024097,001731: 
024098,001732: 25,2123           34740                           CAF      ANTENBIT                              #  MANEUVER TRUNNION ANGLE TO NOMINAL POS.

Page 539

024100,001734: 25,2124           70110                           MASK     RADMODES                              
024101,001735: 25,2125           10000                           CCS      A                                     
024102,001736: 25,2126           34735                           CAF      BIT15                                 #  0 FOR MODE 1 AND 180 FOR MODE 2.
024103,001737: 25,2127           02232                           TC       RRTONLY                               
024104,001738: 
024105,001739: 25,2130           34740                           CAF      ANTENBIT                              #  NOW PUT SHAFT IN RIGHT POSITION
024106,001740: 25,2131           70110                           MASK     RADMODES                              
024107,001741: 25,2132           10000                           CCS      A                                     
024108,001742: 25,2133           44736                           CS       HALF                                  #  -90 FOR MODE 2.
024109,001743: 25,2134           02235                           TC       RRSONLY                               
024110,001744: 
024111,001745: 25,2135           44741        REPOSRPT           CS       REPOSBIT                              #  RETURNS HERE FROM RR1AXIS IF REMODE
024112,001746:                                                                                                  #  REQUESTED DURING REPOSITION.
024113,001747: 25,2136           70110                           MASK     RADMODES                              #  REMOVE REPOSITION BIT.
024114,001748: 25,2137           54110                           TS       RADMODES                              
024115,001749: 25,2140           74742                           MASK     DESIGBIT                              #  SEE IF SOMEONE IS WAITING TO DESIGNATE.
024116,001750: 25,2141           10000                           CCS      A                                     
024117,001751: 25,2142           12564                           TCF      BEGDES                                
024118,001752: 25,2143           44752                           CS       BIT2                                  #  IF NO FURTHER ANTENNA CONTROL REQUIRED,
024119,001753: 25,2144           00006                           EXTEND                                         #  REMOVE ERROR COUNTER ENABLE.
024120,001754: 25,2145           03012                           WAND     CHAN12                                
024121,001755: 25,2146           15272                           TCF      TASKOVER                              
024122,001756: 
024123,001757: 25,2147           34752        SETRRECR           CAF      BIT2                                  #  SET UP RR ERROR COUNTERS.
024124,001758: 25,2150           00006                           EXTEND                                         
024125,001759: 25,2151           02012                           RAND     CHAN12                                
024126,001760: 25,2152           10000                           CCS      A                                     #  DO NOT CLEAR LAST COMMAND IF
024127,001761: 25,2153           00002                           TC       Q                                     #  ERROR COUNTERS ARE ENABLED.
024128,001762: 
024129,001763: 25,2154           54112                           TS       LASTYCMD                              
024130,001764: 25,2155           54113                           TS       LASTXCMD                              
024131,001765: 25,2156           34752                           CAF      BIT2                                  
024132,001766: 25,2157           00006                           EXTEND                                         
024133,001767: 25,2160           05012                           WOR      CHAN12                                #  ENABLE RR CDU ERROR COUNTERS.
024134,001768: 25,2161           00002                           TC       Q                                     

Page 540

024136,001770:                                                                                                  #  PROGRAM NAME_  REMODE                                                   IVES SHAFT TO -45, AND FINALLY DRIVES
024137,001771: 
024138,001772:                                                                                                  #  FUNCTIONAL DESCRIPTION_                                                 S DONE WITH SINGLE AXIS ROTATIONS (SEE
024139,001773:                                                                                                  #  REMODE IS THE GENERAL REMODING SUBROUTINE. IT DRIVES THE
024140,001774:                                                                                                  #  TRUNNION ANGLE TO 0 DEGREES IF THE CURRENT MODE IS MODE 1,
024141,001775:                                                                                                  #  180 DEGREES FOR MODE 2, THEN DRIVES THE SHAFT ANGLE TO -45
024142,001776:                                                                                                  #  DEGREES, AND FINALLY DRIVES THE TRUNNION ANGLE TO -130 DEGREES,
024143,001777:                                                                                                  #  TO PLACE THE RR IN MODE 2, -50 DEGREES FOR MODE 1, BEFORE
024144,001778:                                                                                                  #  INITIATING 2-AXIS CONTROL. ALL REMODING IS DONE WITH SINGLE
024145,001779:                                                                                                  #  AXIS ROTATIONS (RR1AXIS). INITIALLY THE RR ANTENNA MODE FLAG
024146,001780:                                                                                                  #  (RADMODES BIT 12) IS CHECKED. CONTROL IS THEN TRANSFERRED TO
024147,001781:                                                                                                  #  RRTONLY TO DRIVE THR TRUNNION ANGLE TO 0 DEGREES IF IN MODE 1
024148,001782:                                                                                                  #  OR 180 DEGREES IF IN MODE 2. RRSONLY IS THEN CALLED TO DRIVE
024149,001783:                                                                                                  #  THE SHAFT ANGLE TO -45 DEGREES. THE RR ANTENNA MODE FLAG
024150,001784:                                                                                                  #  (RADMODES BIT 12) IS CHECKED AGAIN. CONTROL IS AGAIN
024151,001785:                                                                                                  #  TRANSFERRED TO RRTONLY TO DRIVE THE TRUNNION ANGLE TO -130
024152,001786:                                                                                                  #  DEGREES TO PLACE THE RR IN MODE 2 IF CURRENTLY IN MODE 1 OR TO
024153,001787:                                                                                                  #  -50 DEGREES IF IN MODE 2 TO PLACE THE RR IN MODE 1. RMODINV
024154,001788:                                                                                                  #  IS THEN CALLED TO SET RADMODES BIT 12 TO INDICATE THE NEW
024155,001789:                                                                                                  #  RR ANTENNA MODE. THE REMODE FLAG (RADMODES BIT 14)
024156,001790:                                                                                                  #  IS REMOVED TO INDICATE THAT REMODING IS COMPLETE. THE PROGRAM
024157,001791:                                                                                                  #  THEN EXITS TO STDESIG TO BEGIN 2-AXIS CONTROL.
024158,001792: 
024159,001793:                                                                                                  #  CALLING SEQUENCE:
024160,001794:                                                                                                  #  FROM BEGDES WHEN REMODE FLAG (RADMODES BIT 14) IS SET.
024161,001795:                                                                                                  #  THIS FLAG MAY BE SET IN RRDESSM AND RRDESNB IF RRLIMCHK
024162,001796:                                                                                                  #  DETERMINES THAT THE DESIRED ANGLES ARE WITHIN THE LIMITS OF THE
024163,001797:                                                                                                  #  OTHER MODE.
024164,001798: 
024165,001799:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024166,001800:                                                                                                  #  RADMODES
024167,001801: 
024168,001802:                                                                                                  #  SUBROUTINES CALLED_
024169,001803:                                                                                                  #  RRTONLY, RRSONLY, RMODINV (ACTUALLY PART OF)
024170,001804: 
024171,001805:                                                                                                  #  JOBS OR TASKS INITIATED_
024172,001806:                                                                                                  #  NONE
024173,001807: 
024174,001808:                                                                                                  #  ALARMS_  NONE
024175,001809: 
024176,001810:                                                                                                  #  EXIT_  STDESIG
024177,001811: 
024178,001812: 25,2162           34740        REMODE             CAF      ANTENBIT                              #  DRIVE TRUNNION TO 0 (180)
024179,001813: 25,2163           70110                           MASK     RADMODES                              #  (ERROR COUNTER ALREADY ENABLED)
024180,001814: 25,2164           10000                           CCS      A                                     
024181,001815: 25,2165           34735                           CAF      BIT15                                 
024182,001816: 25,2166           02232                           TC       RRTONLY                               
024183,001817: 
024184,001818: 25,2167           37752                           CAF      -45DEGSR                              
024185,001819: 25,2170           02235                           TC       RRSONLY                               

Page 541

024187,001821: 25,2171           40110                           CS       RADMODES                              
024188,001822: 25,2172           74740                           MASK     ANTENBIT                              
024189,001823: 25,2173           10000                           CCS      A                                     
024190,001824: 25,2174           32223                           CAF      -80DEGSR                              #  GO TO T = -130 (-50).
024191,001825: 25,2175           62222                           AD       -50DEGSR                              
024192,001826: 25,2176           02232                           TC       RRTONLY                               
024193,001827: 
024194,001828: 25,2177           40110                           CS       RADMODES                              
024195,001829: 25,2200           74740                           MASK     ANTENBIT                              
024196,001830: 25,2201           10000                           CCS      A                                     
024197,001831: 25,2202           34735                           CAF      BIT15                                 #  GO TO T = -180 (+0).
024198,001832: 25,2203           02232                           TC       RRTONLY                               
024199,001833: 
024200,001834: 25,2204           40110                           CS       RADMODES                              #  GO TO S = -90 (+0).
024201,001835: 25,2205           74740                           MASK     ANTENBIT                              
024202,001836: 25,2206           10000                           CCS      A                                     
024203,001837: 25,2207           44736                           CS       HALF                                  
024204,001838: 25,2210           02235                           TC       RRSONLY                               
024205,001839: 
024206,001840: 25,2211           02224                           TC       RMODINV                               
024207,001841: 
024208,001842: 25,2212           44736                           CS       REMODBIT                              #  END OF REMODE.
024209,001843: 25,2213           70110                           MASK     RADMODES                              
024210,001844: 25,2214           54110                           TS       RADMODES                              
024211,001845: 
024212,001846: 25,2215           34742                           CAF      DESIGBIT                              #  WAS REMODE CALLED DURING DESIGNATE?
024213,001847: 25,2216           70110                           MASK     RADMODES                              #  (BIT10 RADMODES = 1)
024214,001848: 25,2217           00006                           EXTEND                                         
024215,001849: 25,2220           13623                           BZF      RGOODEND                              #  NO-RETURN TO CALLER WAITING IN RADSTALL
024216,001850: 25,2221           02573                           TC       STDESIG                               #  YES - RETURN TO DESIGNATE
024217,001851: 25,2222     7752               -45DEGSR           =        13,14,15                              
024218,001852: 25,2222           67070        -50DEGSR           DEC      -.27778                               
024219,001853: 25,2223           61615        -80DEGSR           DEC      -.44444                               
024220,001854: 
024221,001855: 25,2224           22110        RMODINV            LXCH     RADMODES                              #  INVERT THE MODE STATUS.
024222,001856: 25,2225           34740                           CAF      ANTENBIT                              
024223,001857: 25,2226           00006                           EXTEND                                         
024224,001858: 25,2227           06001                           RXOR     LCHAN                                 
024225,001859: 25,2230           54110                           TS       RADMODES                              
024226,001860: 25,2231           00002                           TC       Q                                     
024227,001861: 

Page 542

024229,001863:                                                                                                  #  PROGRAM NAMES_  RRTONLY, RRSONLY
024230,001864: 
024231,001865:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024232,001866:                                                                                                  #  RRTONLY AND RRSONLY ARE SUBROUTINES FOR DOING SINGLE AXIS
024233,001867:                                                                                                  #  RR MANEUVERS FOR REMODE AND REPOSITION. IT DRIVES TO
024234,001868:                                                                                                  #  WITHIN 1 DEGREE. INITIALLY, AT RR1AX2, THE REMODE AND REPOSITION
024235,001869:                                                                                                  #  FLAGS (RADMODES BITS 14, 11) ARE CHECKED. IF BOTH EXIST,
024236,001870:                                                                                                  #  THE PROGRAM EXITS TO REPOSRPT (SEE DORREPOS). THIS INDICATES
024237,001871:                                                                                                  #  THAT SOMEONE POSSIBLY REQUESTED A DESIGNATE (RADMODES BIT 10)
024238,001872:                                                                                                  #  WHICH REQUIRES A REMODE (RADMODES BIT 14) AND THAT A
024239,001873:                                                                                                  #  REPOSITION IS IN PROGRESS (RADMODES BIT 11). IF NONE
024240,001874:                                                                                                  #  OR ONLY ONE OF THE FLAGS EXIST, REMODE OR REPOSITION, MAGSUB
024241,001875:                                                                                                  #  IS CALLED TO SEE IF THE APPROPRIATE ANGLE IS WITHIN 1 DEGREE. IF YES,
024242,001876:                                                                                                  #  CONTROL RETURNS TO THE CALLING ROUTINE. IF NOT, CONTROL IS
024243,001877:                                                                                                  #  TRANSFERRED TO RROUT FOR SINGLE AXIS MANEUVERS WITH THE OTHER
024244,001878:                                                                                                  #  ANGLE SET = 0. FOLLOWING A .5 SECOND WAIT, THE ABOVE PROCEDURE IS
024245,001879:                                                                                                  #  REPEATED.
024246,001880: 
024247,001881:                                                                                                  #  CALLING SEQUENCE: L-1 CAF *ANGLE*  (DESIRED ANGLE SCALED PI)
024248,001882:                                                                                                  #  L  TC  RRTONLY (TRUNNION ONLY)
024249,001883:                                                                                                  #  RRSONLY (SHAFT ONLY)
024250,001884:                                                                                                  #  RRTONLY IS CALLED BY PREPOS29;
024251,001885:                                                                                                  #  RRTONLY AND RRSONLY ARE CALLED BY DORREPOS AND REMODE
024252,001886: 
024253,001887:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024254,001888:                                                                                                  #  C(A) = DESIRED ANGLE, RADMODES
024255,001889: 
024256,001890:                                                                                                  #  SUBROUTINES CALLED_
024257,001891:                                                                                                  #  FIXDELAY, REPOSRPT, MAGSUB, RROUT
024258,001892: 
024259,001893:                                                                                                  #  JOBS OR TASKS INITIATED_
024260,001894:                                                                                                  #  NONE
024261,001895: 
024262,001896:                                                                                                  #  ALARMS_  NONE
024263,001897: 
024264,001898:                                                                                                  #  EXIT_  REPOSRPT (REMODE AND REPOSITION FLAGS PRESENT - RADMODES
024265,001899:                                                                                                  #  BITS 14, 11)
024266,001900:                                                                                                  #  L+1  (ANGLE WITHIN ONE DEGREE OR RR OUT OF AUTO MODE)
024267,001901: 
024268,001902: 25,2232           55313        RRTONLY            TS       RDES                                  #  DESIRED TRUNION ANGLE.
024269,001903: 25,2233           34755                           CAF      ZERO                                  
024270,001904: 25,2234           12237                           TCF      RR1AXIS                               
024271,001905: 
024272,001906: 25,2235           55313        RRSONLY            TS       RDES                                  #  SHAFT COMMANDS ARE UNRESOLVED SINCE THIS
024273,001907: 25,2236           34753                           CAF      ONE                                   #  ROUTINE ENTERED ONLY WHEN T = 0 OR 180.
024274,001908: 
024275,001909: 25,2237           55314        RR1AXIS            TS       RRINDEX                               
024276,001910: 25,2240           00006                           EXTEND                                         
024277,001911: 25,2241           23312                           QXCH     RRRET                                 
024278,001912: 25,2242           12245                           TCF      RR1AX2                                
024279,001913: 

Page 543

024281,001915: 25,2243           05232        NXTRR1AX           TC       FIXDELAY                              
024282,001916: 25,2244           00062                           DEC      50         B-14                       #  2 SAMPLES PER SECOND.
024283,001917: 
024284,001918: 25,2245           40110        RR1AX2             CS       RADMODES                              #  IF SOMEONE REQUESTES AS DESIGNATE WHICH
024285,001919: 25,2246           77722                           MASK     PRIO22                                #  REQUIRES A REMODE AND A REPOSITION IS IN
024286,001920: 25,2247           00006                           EXTEND                                         #  PROGRESS, INTERRUPT IT AND START THE
024287,001921: 25,2250           12135                           BZF      REPOSRPT                              #  REMODE IMMEDIATELY.
024288,001922: 
024289,001923: 25,2251           31313                           CA       RDES                                  
024290,001924: 25,2252           00006                           EXTEND                                         
024291,001925: 25,2253           51314                           INDEX    RRINDEX                               
024292,001926: 25,2254           20035                           MSU      CDUT                                  
024293,001927: 25,2255           54061                           TS       ITEMP1                                #  SAVE ERROR SIGNAL.
024294,001928: 25,2256           00006                           EXTEND                                         
024295,001929: 25,2257           72276                           MP       RRSPGAIN                              #  TRIES TO NULL .7 OF ERROR OVER NEXT .5
024296,001930: 25,2260           54001                           TS       L                                     
024297,001931: 25,2261           30110                           CA       RADMODES                              
024298,001932: 25,2262           74752                           MASK     AUTOMBIT                              
024299,001933: 25,2263           56061                           XCH      ITEMP1                                #  STORE RR-OUT-OF-AUTO-MODE BIT.
024300,001934: 25,2264           04512                           TC       MAGSUB                                #  SEE IF WITHIN ONE DEGREE.
024301,001935: 25,2265           77644                           DEC      -.00555                               #  SCALED IN HALF-REVS.
024302,001936: 
024303,001937: 25,2266           10061                           CCS      ITEMP1                                #  NO.  IF RR OUT OF AUTO MODE, EXIT.
024304,001938: 25,2267           01312                           TC       RRRET                                 #  RETURN TO CALLER.
024305,001939: 
024306,001940: 25,2270           11314                           CCS      RRINDEX                               #  COMMAND FOR OTHER AXIS IS ZERO.
024307,001941: 25,2271           12273                           TCF      +2                                    #  SETTING A TO 0.
024308,001942: 25,2272           56001                           XCH      L                                     
024309,001943: 25,2273           53352                           DXCH     TRUNNCMD                              
024310,001944: 25,2274           02277                           TC       RROUT                                 
024311,001945: 
024312,001946: 25,2275           12243                           TCF      NXTRR1AX                              #  COME BACK IN .5 SECONDS.
024313,001947: 
024314,001948: 25,2276           22715        RRSPGAIN           DEC      .59062                                #  NULL .7 ERROR IN .5 SEC.
024315,001949: 

Page 544

024317,001951:                                                                                                  #  PROGRAM NAME_  RROUT                                                    RROR COUNTER SCALING. RROUT LIMITS THEM
024318,001952: 
024319,001953:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024320,001954:                                                                                                  #  RROUT RECEIVES RR GYRO COMMANDS IN TANG, TANG +1 IN RR
024321,001955:                                                                                                  #  ERROR COUNTER SCALING. RROUT THEN LIMITS THEM AND
024322,001956:                                                                                                  #  GENERATES COMMANDS TO THE CDU TO ADJUST THE ERROR COUNTERS
024323,001957:                                                                                                  #  TO THE DESIRED VALUES. INITIALLY MAGSUB CHECKS THE MAGNITUDE OF
024324,001958:                                                                                                  #  THE COMMAND (SHAFT ON 1ST PASS) TO SEE IF IT IS GREATER THAN
024325,001959:                                                                                                  #  384 PULSES. IF NOT, CONTROL IS TRANSFERRED TO RROUTLIM TO
024326,001960:                                                                                                  #  LIMIT THE COMMAND TO +384 OR -384 PULSES. THE DIFFERENCE IS
024327,001961:                                                                                                  #  THEN CALCULATED BETWEEN THE DESIRED STATE AND THE PRESENT STATE OF
024328,001962:                                                                                                  #  THE ERROR COUNTER AS RECORDED IN LASTYCMD AND LASTXCMD.
024329,001963:                                                                                                  #  THE RESULT IS STORED IN OPTXCMD (1ST PASS) AND OPTYCMD (2ND
024330,001964:                                                                                                  #  PASS). FOLLOWING THE SECOND PASS, FOR THE TRUNNION COMMAND, THE
024331,001965:                                                                                                  #  OCDUT AND OCDUS ERROR COUNTER DRIVE BITS (CHAN 14 BITS 12, 11)
024332,001966:                                                                                                  #  ARE SET. THIS PROGRAM THEN EXITS TO THE CALLING PROGRAM.
024333,001967: 
024334,001968:                                                                                                  #  CALLING SEQUENCE:
024335,001969:                                                                                                  #  L TC RROUT (WITH RUPT INHIBITED) RROUT IS CALLED BY
024336,001970:                                                                                                  #  RRTONLY, RRSONLY, AND DODES
024337,001971: 
024338,001972:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024339,001973:                                                                                                  #  TANG, TANG +1 (DESIRED COMMANDS), LASTYCMD, LASTXCMD
024340,001974:                                                                                                  #  (1ST PASS = 0), RR ERROR COUNTER ENABLE SET (CHAN 12 BIT 2).
024341,001975: 
024342,001976:                                                                                                  #  SUBROUTINES CALLED_
024343,001977:                                                                                                  #  MAGSUB
024344,001978: 
024345,001979:                                                                                                  #  JOBS OR TASKS INITIATED_
024346,001980:                                                                                                  #  NONE
024347,001981: 
024348,001982:                                                                                                  #  ALARMS_  NONE
024349,001983: 
024350,001984:                                                                                                  #  EXIT_  L+1 (ALWAYS)                                                     SIRED VALUES. RUPT MUST BE INHIBITED.
024351,001985: 
024352,001986: 25,2277           22002        RROUT              LXCH     Q                                     #  SAVE RETURN.
024353,001987: 25,2300           34753                           CAF      ONE                                   #  LOOP TWICE.
024354,001988: 25,2301           54062        RROUT2             TS       ITEMP2                                
024355,001989: 25,2302           50000                           INDEX    A                                     
024356,001990: 25,2303           31351                           CA       TRUNNCMD                              
024357,001991: 25,2304           54061                           TS       ITEMP1                                #  SAVE SIGN OF COMMAND FOR LIMITING.
024358,001992: 
024359,001993: 25,2305           04512                           TC       MAGSUB                                #  SEE IF WITHIN LMITS.
024360,001994: 25,2306           77177        -RRLIMIT           DEC      -384       B-14                       
024361,001995: 25,2307           12326                           TCF      RROUTLIM                              #  LIMIT COMMAND TO MAG OF 384.
024362,001996: 
024363,001997: 25,2310           30061        SETRRCTR           CA       ITEMP1                                #  COUNT OUT DIFFERENCE BETWEEN DESIRED
024364,001998: 25,2311           50062                           INDEX    ITEMP2                                #  STATE AND PRESENT STATE AS RECORDED IN
024365,001999: 25,2312           56112                           XCH      LASTYCMD                              #  LASTYCMD AND LASTXCMD
024366,002000: 25,2313           40000                           COM                                            

Page 545

024368,002002: 25,2314           60061                           AD       ITEMP1                                
024369,002003: 25,2315           64754                           AD       NEG0                                  #  PREVENT +0 IN OUTCOUNTER
024370,002004: 25,2316           50062                           INDEX    ITEMP2                                
024371,002005: 25,2317           54053                           TS       CDUTCMD                               
024372,002006: 
024373,002007: 25,2320           10062                           CCS      ITEMP2                                #  PROCESS BOTH INPUTS.
024374,002008: 25,2321           12301                           TCF      RROUT2                                
024375,002009: 
024376,002010: 25,2322           35020                           CAF      PRIO6                                 #  ENABLE COUNTERS.
024377,002011: 25,2323           00006                           EXTEND                                         
024378,002012: 25,2324           05014                           WOR      CHAN14                                #  PUT ON CDU DRIVES S AND T
024379,002013: 25,2325           00001                           TC       L                                     #  RETURN.
024380,002014: 
024381,002015: 25,2326           10061        RROUTLIM           CCS      ITEMP1                                #  LIMIT COMMAND TO ABS VAL OF 384.
024382,002016: 25,2327           42306                           CS       -RRLIMIT                              
024383,002017: 25,2330           12332                           TCF      +2                                    
024384,002018: 25,2331           32306                           CA       -RRLIMIT                              
024385,002019: 25,2332           54061                           TS       ITEMP1                                
024386,002020: 25,2333           12311                           TCF      SETRRCTR   +1                         
024387,002021: 

Page 546

024389,002023:                                                                                                  #           ROUTINE TO ZERO THE RR CDUS AND DETERMINE THE ANTENNA MODE.
024390,002024: 
024391,002025: 25,2334           32363        RRZERO             CAF      BIT11+1                               #  SEE IF MONITOR REPOSITION OR NOT IN AUTO
024392,002026: 25,2335           70110                           MASK     RADMODES                              #  IF SO, DONT RE-ZERO CDUS.
024393,002027: 25,2336           10000                           CCS      A                                     
024394,002028: 25,2337           13537                           TCF      RADNOOP                               #  (IMMEDIATE TASK TO RGOODEND).
024395,002029: 
024396,002030: 25,2340           00004                           INHINT                                         
024397,002031: 25,2341           44737                           CS       RCDU0BIT                              #  SET FLAG TO SHOW ZEROING IN PROGRESS.
024398,002032: 25,2342           70110                           MASK     RADMODES                              
024399,002033: 25,2343           64737                           AD       RCDU0BIT                              
024400,002034: 25,2344           54110                           TS       RADMODES                              
024401,002035: 
024402,002036: 25,2345           34753                           CAF      ONE                                   
024403,002037: 25,2346           05214                           TC       WAITLIST                              
024404,002038: 25,2347  E7,1456                                  EBANK=   LOSCOUNT                              
024405,002039: 25,2347           02361 52067                     2CADR    RRZ2                                  
024406,002040: 
024407,002041: 
024408,002042: 25,2351           40110                           CS       RADMODES                              #  SEE IF IN AUTO MODE.
024409,002043: 25,2352           74752                           MASK     AUTOMBIT                              
024410,002044: 25,2353           10000                           CCS      A                                     
024411,002045: 25,2354           12357                           TCF      ROADBACK                              
024412,002046: 25,2355           05600                           TC       ALARM                                 #  AUTO DISCRETE NOT PRESENT - TRYING
024413,002047: 25,2356           00510                           OCT      510                                   
024414,002048: 25,2357           00003        ROADBACK           RELINT                                         
024415,002049: 25,2360           14631                           TCF      SWRETURN                              
024416,002050: 
024417,002051: 25,2361           02062        RRZ2               TC       RRZEROSB                              #  COMMON TO TURNON AND RRZERO.
024418,002052: 25,2362           13614                           TCF      ENDRADAR                              
024419,002053: 
024420,002054: 25,2363           02001        BIT11+1            OCT      02001                                 
024421,002055: 

Page 547

024423,002057:                                                                                                  #  PROGRAM NAME_  RRDESSM                                                  R (HALF-UNIT) IN RRTARGET. REMODES IF
024424,002058: 
024425,002059:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024426,002060:                                                                                                  #  THIS INTERPRETIVE ROUTINE WILL DESIGNATE, IF DESIRED ANGLES ARE
024427,002061:                                                                                                  #  WITHIN THE LIMITS OF EITHER MODE, TO A LINE-OF SIGHT (LOS) VECTOR
024428,002062:                                                                                                  #  (HALF-UNIT) KNOWN WITH RESPECT TO THE STABLE MEMBER PRESENT
024429,002063:                                                                                                  #  ORIENTATION. INITIALLY THE IMU CDU:S ARE READ AND CONTROL
024430,002064:                                                                                                  #  TRANSFERRED TO SMNB TO TRANSFORM THE LOS VECTOR FROM STABLE
024431,002065:                                                                                                  #  MEMBER TO NAVIGATION BASE COORDINATES (SEE STG MEMO -699)
024432,002066:                                                                                                  #  RRANGLES IS THEN CALLED TO CALCULATE THE RR GIMBAL ANGLES,
024433,002067:                                                                                                  #  TRUNNION AND SHAFT, FOR BOTH THE PRESENT AND ALTERNATE MODE.
024434,002068:                                                                                                  #  RRLIMCHK IS CALLED TO SEE IF THE ANGLES CALCULATED FOR THE
024435,002069:                                                                                                  #  PRESENT MODE ARE WITHIN LIMITS. IF WITHIN LIMITS, THE RETURN
024436,002070:                                                                                                  #  LOCATION IS INCREMENTED, INASMUCH AS NO VEHICLE MANEUVER IS
024437,002071:                                                                                                  #  REQUIRED, BEFORE EXITING TO STARTDES. IF NOT WITHIN LIMITS OF THE
024438,002072:                                                                                                  #  CURRENT MODE, TRYSWS IS CALLED. FOLLOWING INVERTING OF THE RR
024439,002073:                                                                                                  #  ANTENNA MODE FLAG (RADMODES BIT 12), RRLIMCHK IS CALLED
024440,002074:                                                                                                  #  TO SEE IF THE ANGLES CALCULATED FOR THE ALTERNATE MODE ARE WITHIN
024441,002075:                                                                                                  #  LIMITS. IF YES, THE RR ANTENNA MODE FLAG IS AGAIN INVERTED,
024442,002076:                                                                                                  #  THE REMODE FLAG (RADMODES BIT 14) SET, AND THE RETURN LOCATION
024443,002077:                                                                                                  #  INCREMENTED, TO INDICATE NO VEHICLE MANEUVER IS REQUIRED, BEFORE
024444,002078:                                                                                                  #  EXITING TO STARTDES. IF THESE ANGLES ARE NOT WITHIN LIMITS
024445,002079:                                                                                                  #  OF THE ALTERNATE MODE, THE RR ANTENNA MODE FLAG (RADMODES
024446,002080:                                                                                                  #  BIT 12) IS INVERTED BEFORE RETURNING DIRECTLY TO THE CALLING PROGRAM
024447,002081:                                                                                                  #  TO INDICATE THAT A VEHICLE MANEUVER IS REQUIRED.
024448,002082: 
024449,002083:                                                                                                  #  CALLING SEQUENCE:
024450,002084:                                                                                                  #  L  STCALL  RRTARGET  (LOS HALF-UNIT VECTOR IN SM COORDINATES)
024451,002085:                                                                                                  #  L+1  RRDESSM
024452,002086:                                                                                                  #  L+2  BASIC  (VEHICLE MANEUVER REQUIRED)
024453,002087:                                                                                                  #  L+3  BASIC  (NO VEHICLE MANEUVER REQUIRED)
024454,002088: 
024455,002089:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024456,002090:                                                                                                  #  RRTARGET, RADMODES
024457,002091: 
024458,002092:                                                                                                  #  SUBROUTINES CALLED_
024459,002093:                                                                                                  #  READCDUS, SMNB, RRANGLES, RRLIMCHK, TRYSWS (ACTUALLY
024460,002094:                                                                                                  #  PART OF), RMODINV
024461,002095: 
024462,002096:                                                                                                  #  JOBS OR TASKS INITIATED_
024463,002097:                                                                                                  #  NONE
024464,002098: 
024465,002099:                                                                                                  #  ALARMS_  NONE
024466,002100: 
024467,002101:                                                                                                  #  EXIT_  L+2 (NEITHER SET OF ANGLES ARE WITHIN LIMITS OF RELATED MODE)
024468,002102:                                                                                                  #  STARTDES (DESIGNATE POSSIBLE AT PRESENT VEHICLE ATTITUDE-RETURNS
024469,002103:                                                                                                  #  TO L+3 FROM STARTDES)                                                   CAN BE DONE IN PRESENT VEH ATTITUDE.
024470,002104: 
024471,002105: 25,2364           43020        RRDESSM            STQ      CLEAR                                 
024472,002106: 25,2365           01112                                    DESRET                                

Page 548

024474,002108: 25,2366           00271                                    RRNBSW                                
024475,002109: 25,2367           77624                           CALL                                           #  COMPUTES SINES AND COSINES, ORDER Y Z X
024476,002110: 25,2370           47535                                    CDUTRIG                               
024477,002111: 25,2371           45175                           VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
024478,002112: 25,2372           01101                                    RRTARGET                              
024479,002113: 25,2373           47676                                    *SMNB*                                
024480,002114: 
024481,002115: 25,2374           77624                           CALL                                           #  GET RR GIMBAL ANGLES IN PRESENT AND
024482,002116: 25,2375           26133                                    RRANGLES                              #  ALTERNATE MODE.
024483,002117: 25,2376           77776                           EXIT                                           
024484,002118: 
024485,002119: 25,2377           00004                           INHINT                                         
024486,002120: 25,2400           04523                           TC       RRLIMCHK                              
024487,002121: 25,2401           01106                           ADRES    MODEA                                 #  CONFIGURATION FOR CURRENT MODE.
024488,002122: 25,2402           02405                           TC       +3                                    #  NOT IN CURRENT MODE
024489,002123: 25,2403           25112        OKDESSM            INCR     DESRET                                #  INCREMENT SAYS NO VEHICLE MANEUVER REQ.
024490,002124: 25,2404           02423                           TC       STARTDES                              #  SHOW DESIGNATE REQUIRED
024491,002125: 25,2405           40104                           CS       FLAGWRD8                              
024492,002126: 25,2406           74744                           MASK     SURFFBIT                              #  CHECK IF ON LUNAR SURFACE (SURFFLAG=P22F
024493,002127: 25,2407           00006                           EXTEND                                         
024494,002128: 25,2410           12447                           BZF      NORDSTAL                              #  BRANCH-YES-CANNOT DESIGNATE IN MODE 2
024495,002129: 25,2411           02452                           TC       TRYSWS                                
024496,002130: 
024497,002131: 
024498,002132: 25,2412           40104        LUNDESCH           CS       FLAGWRD8                              #  OVERFLOW RETURN FROM RRANGLES
024499,002133: 25,2413           74744                           MASK     SURFFBIT                              #  CHECK IF ON LUNAR SURFACE
024500,002134: 25,2414           00006                           EXTEND                                         
024501,002135: 25,2415           12447                           BZF      NORDSTAL                              #  BRANCH-YES-RETURN TO CALLER - ALARM 527
024502,002136: 25,2416           30074                           CA       STATE                                 
024503,002137: 25,2417           74745                           MASK     RNDVZBIT                              
024504,002138: 25,2420           10000                           CCS      A                                     #  TEST RNDVZFLG.
024505,002139: 25,2421           02462                           TC       NODESSM                               #  NOT ON MOON-CALL FOR ATTITUDE MANEUVER
024506,002140: 25,2422           15155                           TCF      ENDOFJOB                              #  ...BUT NOT IN R29.
024507,002141: 

Page 549

024509,002143:                                                                                                  #  PROGRAM NAME_  STARTDES                                                 STORED AS A HALF-UNIT VECTOR IN RRTARGET
024510,002144: 
024511,002145:                                                                                                  #  FUNCTIONAL DESCRIPTION_                                                 CKON IS DESIRED. BIT14 OF RADMODES IS
024512,002146:                                                                                                  #  STARTDES IS ENTERED WHEN WE ARE READY TO BEGIN DESIGNATION.             OR REPOSITION OPERATION. IN THIS
024513,002147:                                                                                                  #  BIT 14 OF RADMODES IS ALREADY SET IF A REMODE IS REQUIRED.              THE REPOSITION WILL BE INTERRUPTED.
024514,002148:                                                                                                  #  AT THIS TIME, THE RR ANTENNA MAY BE IN A REPOSITION                     GINS.
024515,002149:                                                                                                  #  OPERATION. IN THIS CASE, IF A REMODE IS REQUIRED IT MAY HAVE
024516,002150:                                                                                                  #  ALREADY BEGUN BUT IN ANY CASE THE REPOSITION WILL BE INTERRUPTED.
024517,002151:                                                                                                  #  OTHERWISE, THE REPOSITION WILL BE COMPLETED BEFORE 2-AXIS
024518,002152:                                                                                                  #  DESIGNATION BEGINS. INITIALLY DESCOUNT IS SET = 60 TO INDICATE
024519,002153:                                                                                                  #  THAT 30 SECONDS WILL BE ALLOWED FOR THE RR DATA GOOD INBIT
024520,002154:                                                                                                  #  (CHAN 33 BIT 4) IF LOCK-ON IS DESIRED (STATE BIT 5). BIT 10
024521,002155:                                                                                                  #  OF RADMODES IS SET TO SHOW THAT A DESIGNATE IS REQUIRED.
024522,002156:                                                                                                  #  THE REPOSITION FLAG (RADMODES BIT 11) IS CHECKED. IF SET,
024523,002157:                                                                                                  #  THE PROGRAM EXITS TO L+3 OF THE CALLING PROGRAM (SEE RRDESSM
024524,002158:                                                                                                  #  AND RRDESNB). THE PROGRAM WILL BEGIN DESIGNATING TO THE DESIRED
024525,002159:                                                                                                  #  ANGLES FOLLOWING THE REPOSITION OR REMODE IF ONE WAS
024526,002160:                                                                                                  #  REQUESTED. IF THE REPOSITION FLAG IS NOT SET, SETRRECR IS CALLED
024527,002161:                                                                                                  #  WHICH SETS THE RR ERROR COUNTER ENABLE BIT (CHAN 12 BIT 2)
024528,002162:                                                                                                  #  AND SETS LASTYCMD AND LASTXCMD = 0 TO INDICATE THE
024529,002163:                                                                                                  #  DIFFERENCE BETWEEN THE PRESENT AND DESIRED STATE OF THE ERROR
024530,002164:                                                                                                  #  COUNTERS. A 20 MILLISECOND WAITLIST CALL IS SET FOR BEGDES
024531,002165:                                                                                                  #  AFTER WHICH THE PROGRAM EXITS TO L+3 OF THE CALLING PROGRAM.
024532,002166: 
024533,002167:                                                                                                  #  CALLING SEQUENCE:
024534,002168:                                                                                                  #  FROM RRDESSM AND RRDESNB WHEN ANGLES WITHIN LIMITS.
024535,002169: 
024536,002170:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024537,002171:                                                                                                  #  RADMODES, (SEE DODES)
024538,002172: 
024539,002173:                                                                                                  #  SUBROUTINES CALLED_
024540,002174:                                                                                                  #  SETRRECR, WAITLIST
024541,002175: 
024542,002176:                                                                                                  #  JOBS OR TASKS INITIATED_
024543,002177:                                                                                                  #  BEGDES
024544,002178: 
024545,002179:                                                                                                  #  ALARMS_  NONE
024546,002180: 
024547,002181:                                                                                                  #  EXIT_  L+3 OF CALLING PROGRAM (SEE RRDESSM)
024548,002182:                                                                                                  #  L+2 OF CALLING PROGRAM (SEE RRDESNB)
024549,002183: 
024550,002184: 25,2423           25112        STARTDES           INCR     DESRET                                
024551,002185: 25,2424           40110                           CS       RADMODES                              
024552,002186: 25,2425           74742                           MASK     DESIGBIT                              
024553,002187: 25,2426           26110                           ADS      RADMODES                              
024554,002188: 25,2427           74741                           MASK     REPOSBIT                              #  SEE IF REPOSITIONING IN PROGRESS.
024555,002189: 25,2430           10000                           CCS      A                                     
024556,002190: 25,2431           12437                           TCF      DESRETRN                              #  ECTR ALREADY SET UP.
024557,002191: 
024558,002192: 25,2432           02147                           TC       SETRRECR                              #  SET UP ERROR COUNTERS.

Page 550

024560,002194: 25,2433           34752                           CAF      TWO                                   
024561,002195: 25,2434           05214                           TC       WAITLIST                              
024562,002196: 25,2435  E7,1456                                  EBANK=   LOSCOUNT                              
024563,002197: 25,2435           02564 52067                     2CADR    BEGDES                                
024564,002198: 
024565,002199: 
024566,002200: 25,2437           31303        DESRETRN           CA       RADCADR                               #  FIRST PASS THRU DESIGNATE
024567,002201: 25,2440           00006                           EXTEND                                         
024568,002202: 25,2441           12443                           BZF      DESRTRN                               #  YES   SET EXIT
024569,002203: 25,2442           05155                           TC       ENDOFJOB                              #  NO
024570,002204: 25,2443           00003        DESRTRN            RELINT                                         
024571,002205: 25,2444           25112                           INCR     DESRET                                
024572,002206: 25,2445           31112                           CA       DESRET                                
024573,002207: 25,2446           14640                           TCF      BANKJUMP                              
024574,002208: 
024575,002209: 
024576,002210: 25,2447           34755        NORDSTAL           CAF      ZERO                                  #  ZERO RADCADR TO WIPE  OUT ANYONE
024577,002211: 25,2450           55303                           TS       RADCADR                               #  WAITING IN RADSTALL SINCE WE ARE NOW
024578,002212: 25,2451           12443                           TCF      DESRTRN                               #  RETURNING TO P20 AND MAY DO NEW RADSTALL
024579,002213: 

Page 551

024581,002215:                                                                                                  #           SEE IF RRDESSM CAN BE ACCOMPLISHED AFTER A REMODE.
024582,002216: 
024583,002217: 25,2452           02224        TRYSWS             TC       RMODINV                               #  (NOTE RUPT INHIBIT)
024584,002218: 25,2453           04523                           TC       RRLIMCHK                              #  TRY DIFFERENT MODE.
024585,002219: 25,2454           01110                           ADRES    MODEB                                 
024586,002220: 25,2455           12462                           TCF      NODESSM                               #  VEHICLE MANEUVER REQUIRED.
024587,002221: 
024588,002222: 25,2456           02224                           TC       RMODINV                               #  RESET BIT12
024589,002223: 25,2457           34736                           CAF      REMODBIT                              #  SET FLAG FOR REMODE.
024590,002224: 25,2460           26110                           ADS      RADMODES                              
024591,002225: 
024592,002226: 25,2461           12403                           TCF      OKDESSM                               
024593,002227: 
024594,002228: 25,2462           02224        NODESSM            TC       RMODINV                               #  RE-INVERT MODE AND RETURN
024595,002229: 25,2463           25112                           INCR     DESRET                                #  TO CALLER +2
024596,002230: 25,2464           12447                           TCF      NORDSTAL                              
024597,002231: 
024598,002232: 25,2465           00074        MAXTRYS            DEC      60         B-14                       
024599,002233: 

Page 552

024601,002235:                                                                                                  #           DESIGNATE TO SPECIFIC RR GIMBAL ANGLES (INDEPENDENT OF VEHICLE MOTION). ENTER WITH DESIRED ANGLES IN
024602,002236:                                                                                                  #  TANG AND TANG +1.
024603,002237: 
024604,002238: 25,2466           04645        RRDESNB            TC       MAKECADR                              
024605,002239: 25,2467           55112                           TS       DESRET                                
024606,002240: 
024607,002241: 25,2470           05527                           TC       DOWNFLAG                              #  RESET FLAG TO PREVENT DODES FROM GOING
024608,002242: 25,2471           00041                           ADRES    LOSCMFLG                              #  BACK TO R21
024609,002243: 25,2472           32465                           CA       MAXTRYS                               #  SET TIME LIMIT COUNTER
024610,002244: 25,2473           55113                           TS       DESCOUNT                              #  FOR DESIGNATE
024611,002245: 25,2474           00004                           INHINT                                         #  SEE IF CURRENT MODE OK.
024612,002246: 25,2475           02531                           TC       RRLIMNB                               #  DO SPECIAL V41 LIMIT CHECK
024613,002247: 25,2476           01106                           ADRES    TANG                                  
024614,002248: 25,2477           12514                           TCF      TRYSWN                                #  SEE IF IN OTHER MODE.
024615,002249: 
024616,002250: 25,2500           00003        OKDESNB            RELINT                                         
024617,002251: 25,2501           00006                           EXTEND                                         
024618,002252: 25,2502           31107                           DCA      TANG                                  
024619,002253: 25,2503           53753                           DXCH     TANGNB                                
024620,002254: 25,2504           06051                           TC       INTPRET                               
024621,002255: 
024622,002256: 25,2505           77624                           CALL                                           #  GET LOS IN NB COORDS.
024623,002257: 25,2506           46041                                    RRNB                                  
024624,002258: 25,2507           01101                           STORE    RRTARGET                              
024625,002259: 
024626,002260: 25,2510           77414                           SET      EXIT                                  
024627,002261: 25,2511           00071                                    RRNBSW                                
024628,002262: 
024629,002263: 25,2512           00004                           INHINT                                         
024630,002264: 25,2513           12424                           TCF      STARTDES   +1                         
024631,002265: 25,2514           02224        TRYSWN             TC       RMODINV                               #  SEE IF OTHER MODE WILL DO.
024632,002266: 25,2515           02531                           TC       RRLIMNB                               #  DO SPECIAL V41 LIMIT CHECK
024633,002267: 25,2516           01106                           ADRES    TANG                                  
024634,002268: 25,2517           12524                           TCF      NODESNB                               #  NOT POSSIBLE.
024635,002269: 
024636,002270: 25,2520           02224                           TC       RMODINV                               
024637,002271: 25,2521           34736                           CAF      REMODBIT                              #  CALL FOR REMODE.
024638,002272: 25,2522           26110                           ADS      RADMODES                              
024639,002273: 25,2523           12500                           TCF      OKDESNB                               
024640,002274: 
024641,002275: 25,2524           02224        NODESNB            TC       RMODINV                               #  REINVERT MODE BIT.
024642,002276: 25,2525           05600                           TC       ALARM                                 #  BAD INPUT ANGLES.
024643,002277: 25,2526           00502                           OCT      502                                   
024644,002278: 25,2527           06011                           TC       CLRADMOD                              
024645,002279: 25,2530           05155                           TC       ENDOFJOB                              #  AVOID 503 ALARM.
024646,002280: 
024647,002281: 25,2531           50002        RRLIMNB            INDEX    Q                                     #  THIS ROUTINE IS IDENTICAL TO RRLIMCHK
024648,002282: 25,2532           30000                           CAF      0                                     #  EXCEPT THAT THE MODE 1 SHAFT LOWER
024649,002283: 25,2533           24002                           INCR     Q                                     #  LIMIT IS -85 INSTEAD OF -70 DEGREES
024650,002284: 25,2534           00006                           EXTEND                                         

Page 553

024652,002286: 25,2535           50000                           INDEX    A                                     #  READ GIMBAL ANGLES INTO ITEMP STORAGE
024653,002287: 25,2536           30001                           DCA      0                                     
024654,002288: 25,2537           52062                           DXCH     ITEMP1                                
024655,002289: 25,2540           22002                           LXCH     Q                                     #  L(CALLER +2) TO L
024656,002290: 
024657,002291: 25,2541           34740                           CAF      ANTENBIT                              #  SEE WHICH MODE RR IS IN.
024658,002292: 25,2542           70110                           MASK     RADMODES                              
024659,002293: 25,2543           10000                           CCS      A                                     
024660,002294: 25,2544           14550                           TCF      MODE2CHK                              #  MODE 2 CAN USE RRLIMCHK CODING
024661,002295: 25,2545           30061                           CA       ITEMP1                                
024662,002296: 25,2546           04512                           TC       MAGSUB                                #  MODE 1 IS DEFINED AS
024663,002297: 25,2547           66161                           DEC      -.30555                               #    1. ABS(T) L 55 DEGS
024664,002298: 25,2550           00001                           TC       L                                     #    2  SHAFT LIMITS AT +59, -85 DEGS
024665,002299: 
024666,002300: 25,2551           30062                           CA       ITEMP2                                #  LOAD SHAFT ANGLE
024667,002301: 25,2552           00006                           EXTEND                                         
024668,002302: 25,2553           62561                           BZMF     NEGSHAFT                              #  IF NEGATIVE SHAFT ANGLE, ADD 20.5 DEGS
024669,002303: 25,2554           64562                           AD       5.5DEGS                               
024670,002304: 25,2555           04512        SHAFTLIM           TC       MAGSUB                                
024671,002305: 25,2556           64420                           DEC      -.35833                               #  64.5 DEGREES
024672,002306: 25,2557           00001                           TC       L                                     #  NOT IN LIMITS
024673,002307: 25,2560           04560                           TC       RRLIMOK                               #  IN LIMITS
024674,002308: 25,2561           62563        NEGSHAFT           AD       20.5DEGS                              #  MAKE NEGATIVE SHAFT LIMIT -85 DEGREES
024675,002309: 25,2562           12555                           TCF      SHAFTLIM                              
024676,002310: 
024677,002311: 
024678,002312: 25,2563           03512        20.5DEGS           DEC      .11389                                
024679,002313: 

Page 554

024681,002315:                                                                                                  #  PROGRAM NAME_  BEGDES
024682,002316: 
024683,002317:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024684,002318:                                                                                                  #  BEGDES CHECKS VARIOUS DESIGNATE REQUESTS AND REQUESTS THE
024685,002319:                                                                                                  #  ACTUAL RR DESIGNATION. INITIALLY A CHECK IS MADE TO SEE IF A
024686,002320:                                                                                                  #  REMODE (RADMODES BIT 14) IS REQUESTED OR IN PROGRESS. IF SO,
024687,002321:                                                                                                  #  CONTROL IS TRANSFERRED TO STDESIG AFTER ROUTINE REMODE IS
024688,002322:                                                                                                  #  EXECUTED. IF NO REMODE, STDESIG IS IMMEDIATELY CALLED WHERE
024689,002323:                                                                                                  #  FIRST THE REPOSITION FLAG (RADMODES BIT 11) IS CHECKED. IF
024690,002324:                                                                                                  #  PRESENT, THE DESIGNATE FLAG (RADMODES BIT 10) IS REMOVED
024691,002325:                                                                                                  #  AFTER WHICH THE PROGRAM EXITS TO RDBADEND. IF THE REPOSITION
024692,002326:                                                                                                  #  FLAG IS NOT PRESENT, THE CONTINUOUS DESIGNATE FLAG (RADMODES
024693,002327:                                                                                                  #  BIT 15) IS CHECKED. IF PRESENT, ON EXECUTIVE CALL IS IMMEDIATELY
024694,002328:                                                                                                  #  MADE FOR DODES AFTER WHICH A .5 SECOND WAIT IS INITIATED BEFORE
024695,002329:                                                                                                  #  REPEATING AT STDESIG. IF THE RR SEARCH ROUTINE (LRS24.1) IS DESIGNATING
024696,002330:                                                                                                  #  TO A NEW POINT (NEWPTFLG SET) THE CURRENT DESIGNATE TASK IS TERMINATED.
024697,002331:                                                                                                  #  IF CONTINUOUS DESIGNATE IS NOT WANTED, THE DESIGNATE FLAG (RADMODES
024698,002332:                                                                                                  #  BIT 10) IS CHECKED. IF NOT PRESENT, THE PROGRAM EXITS TO ENDRADAR TO
024699,002333:                                                                                                  #  CHECK RR CDU FAIL BEFORE RETURNING TO THE CALLING PROGRAM. IF DESIGNATE
024700,002334:                                                                                                  #  IS STILL REQUIRED, DESCOUNT IS CHECKED TO SEE IF THE 30 SECONDS HAS
024701,002335:                                                                                                  #  EXPIRED BEFORE RECEIVING THE RR DATA GOOD (CHAN 33 BIT 4)
024702,002336:                                                                                                  #  SIGNAL. IF OUT OF TIME, PROGRAM ALARM 00503 IS REQUESTED, THE
024703,002337:                                                                                                  #  RR AUTO TRACKER ENABLE AND RR ERROR COUNTER ENABLE
024704,002338:                                                                                                  #  (CHAN 12 BITS 14,2) BITS REMOVED, AND THE DESIGNATE FLAG
024705,002339:                                                                                                  #  (RADMODES BIT 10) REMOVED BEFORE EXITING TO RDBADEND. IF
024706,002340:                                                                                                  #  TIME HAS NOT EXPIRED, DESCOUNT IS DECREMENTED, THE
024707,002341:                                                                                                  #  EXECUTIVE CALL MADE FOR DODES, AND A .5 SECOND WAIT INITIATED
024708,002342:                                                                                                  #  BEFORE REPEATING THIS PROCEDURE AT STDESIG.
024709,002343: 
024710,002344:                                                                                                  #  CALLING SEQUENCE:
024711,002345:                                                                                                  #  WAITLIST CALL FROM STARTDES
024712,002346:                                                                                                  #  TCF BEGDES FROM DORREPOS
024713,002347:                                                                                                  #  TC STDESIG RETURNING, FROM REMODE
024714,002348: 
024715,002349:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024716,002350:                                                                                                  #  DESCOUNT, RADMODES
024717,002351: 
024718,002352:                                                                                                  #  SUBROUTINES CALLED_
024719,002353:                                                                                                  #  ENDRADAR, FINDVAC
024720,002354: 
024721,002355:                                                                                                  #  JOBS OR TASKS INITIATED_  DODES
024722,002356: 
024723,002357:                                                                                                  #  ALARMS_  PROGRAM ALARM 00503 (30 SECONDS HAVE EXPIRED) WITH NO RR DATA
024724,002358:                                                                                                  #  GOOD (CHAN 33 BIT 4) RECEIVED WHEN LOCK-ON (STATE BIT 5) WAS REQUESTED.
024725,002359: 
024726,002360:                                                                                                  #  EXIT_  TASKOVER (SEARCH PATTERN DESIGNATING TO NEW POINT)
024727,002361:                                                                                                  #  ENDRADAR (NO DESIGNATE - RADMODES BIT 10)
024728,002362:                                                                                                  #  RDBADEND (REPOSITION OR 30 SECONDS EXPIRED)
024729,002363: 
024730,002364: 25,2564           40110        BEGDES             CS       RADMODES                              

Page 555

024732,002366: 25,2565           74736                           MASK     REMODBIT                              
024733,002367: 25,2566           10000                           CCS      A                                     
024734,002368: 25,2567           02573                           TC       STDESIG                               
024735,002369: 25,2570           02162                           TC       REMODE                                
024736,002370: 25,2571           05232        DESLOOP            TC       FIXDELAY                              #  2 SAMPLES PER SECOND.
024737,002371: 25,2572           00062                           DEC      50         B-14                       
024738,002372: 
024739,002373: 25,2573           34741        STDESIG            CAF      REPOSBIT                              
024740,002374: 25,2574           70110                           MASK     RADMODES                              #  SEE IF GIMBAL LIMIT MONITOR HAS FOUND US
024741,002375: 25,2575           10000                           CCS      A                                     #  OUT OF BOUNDS. IF SO, THIS BIT SHOWS A
024742,002376: 25,2576           12614                           TCF      BADDES                                #  REPOSITION TO BE IN PROGRESS.
024743,002377: 
024744,002378: 25,2577           10110                           CCS      RADMODES                              #  SEE IF CONTINUOUS DESIGNATE WANTED.
024745,002379: 25,2600           12603                           TCF      +3                                    #  IF SO, DONT CHECK BIT 10 TO SEE IF IN
024746,002380: 25,2601           12603                           TCF      +2                                    #  LIMITS BUT GO RIGHT TO FINDVAC ENTRY.
024747,002381: 25,2602           12620                           TCF      MOREDES    +1                         
024748,002382: 
024749,002383: 25,2603           40110                           CS       RADMODES                              #  IF NON-CONTINUOUS, SEE IF END OF
024750,002384: 25,2604           74742                           MASK     DESIGBIT                              #  PROBLEM (DATA GOOD IF LOCK-ON WANTED OR
024751,002385: 25,2605           10000                           CCS      A                                     #  WITHIN LIMITS IF NOT). IF SO, EXIT AFTER
024752,002386: 25,2606           13614                           TCF      ENDRADAR                              #  CHECKING RR CDU FAIL.
024753,002387: 
024754,002388: 25,2607           11113        STDESIG1           CCS      DESCOUNT                              #  SEE IF THE TINE LIMIT HAS EXPIRED
024755,002389: 25,2610           12617                           TCF      MOREDES                               
024756,002390: 
024757,002391: 25,2611           42625                           CS       B14+B2                                #  IF OUT OF TIME, REMOVE ECR ENABLE + TRKR
024758,002392: 25,2612           00006                           EXTEND                                         
024759,002393: 25,2613           03012                           WAND     CHAN12                                
024760,002394: 25,2614           05527        BADDES             TC       DOWNFLAG                              
024761,002395: 25,2615           00271                           ADRES    DESIGFLG                              
024762,002396: 25,2616           13630                           TCF      RDBADEND                              
024763,002397: 
024764,002398: 25,2617           55113        MOREDES            TS       DESCOUNT                              
024765,002399: 25,2620           37726                           CAF      PRIO26                                #  UPDATE GYRO TORQUE COMMANDS.
024766,002400: 25,2621           05105                           TC       FINDVAC                               
024767,002401: 25,2622  E7,1456                                  EBANK=   LOSCOUNT                              
024768,002402: 25,2622           02626 52067                     2CADR    DODES                                 
024769,002403: 
024770,002404: 
024771,002405: 25,2624           12571                           TCF      DESLOOP                               
024772,002406: 
024773,002407: 25,2625           20002        B14+B2             OCT      20002                                 
024774,002408: 

Page 556

024776,002410:                                                                                                  #  PROGRAM NAME_  DODES
024777,002411: 
024778,002412:                                                                                                  #  FUNCTIONAL DESCRIPTION_
024779,002413:                                                                                                  #  DODES CALCULATES AND REQUESTS ISSUANCE OF RR GYRO TORQUE
024780,002414:                                                                                                  #  COMMANDS. INITIALLY THE CURRENT RR CDU ANGLES ARE STORED AND
024781,002415:                                                                                                  #  THE LOS HALF-UNIT VECTOR TRANSFORMED FROM STABLE MEMBER TO
024782,002416:                                                                                                  #  NAVIGATION BASE COORDINATES VIA SMNB IF NECESSARY. THE
024783,002417:                                                                                                  #  SHAFT AND TRUNNION COMMANDS ARE THEN CALCULATED AS FOLLOWS_
024784,002418:                                                                                                  #  + SHAFT = LOS  . (COS(S), 0, -SIN (S)) (DOT PRODUCT)
024785,002419:                                                                                                  #  -TRUNNION = LOS  . (SIN (T) SIN (S), COS (T), SIN (T) COS (S) )
024786,002420:                                                                                                  #  THE SIGN OF THE SHAFT COMMAND IS THEN REVERSED IF IN MODE 2
024787,002421:                                                                                                  #  (RADMODES BIT 12) BECAUSE A RELAY IN THE RR REVERSES THE 
024788,002422:                                                                                                  #  POLARITY OF THE COMMAND. AT RRSCALUP EACH COMMAND IS
024789,002423:                                                                                                  #  SCALED AND IF EITHER, OR BOTH, OF THE COMMANDS IS GREATER THAN
024790,002424:                                                                                                  #  .5 DEGREES, MPAC +1 IS SET POSITIVE. IF A CONTINUOUS DESIGNATE 
024791,002425:                                                                                                  #  (RADMODES BIT 15) IS DESIRED AND THE SEARCH ROUTINE IS NOT OPERATING,
024792,002426:                                                                                                  #  THE RR AUTO TRACKER ENABLE BIT (CHAN 12 BIT 14) IS CLEARED AND RROUT
024793,002427:                                                                                                  #  CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION (RADMODES BIT 11)
024794,002428:                                                                                                  #  IS IN PROGRESS. IF A CONTINUOUS DESIGNATE AND THE SEARCH ROUTINE IS
024795,002429:                                                                                                  #  OPERATING (SRCHOPT FLAG SET) THE TRACK ENABLE IS NOT CLEARED. IF NO
024796,002430:                                                                                                  #  CONTINUOUS DESIGNATE AND BOTH COMMANDS ARE NOT LESS THAN .5 DEGREES AS
024797,002431:                                                                                                  #  INDICATED BY MPAC +1, THE RR AUTO TRACKER ENABLE BIT (CHAN 12 BIT 14) IS
024798,002432:                                                                                                  #  CLEARED AND RROUT CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION
024799,002433:                                                                                                  #  (RADMODES BIT 11) IS IN PROGRESS. IF BOTH COMMANDS ARE LESS THAN .5
024800,002434:                                                                                                  #  DEGREES AS INDICATED BY MPAC+1, THE RR AUTO TRACKER ENABLE BIT
024801,002435:                                                                                                  #  (CHAN 12 BIT 14) IS CLEARED AND RROUT CALLED TO PUT OUT THE
024802,002436:                                                                                                  #  COMMANDS PROVIDED NO REPOSITION (RADMODES BIT 11) IS IN
024803,002437:                                                                                                  #  PROGRESS. IF BOTH COMMANDS ARE LESS THAN .5 DEGREES, THE
024804,002438:                                                                                                  #  LOCK-ON FLAG (STATE BIT 5) IS CHECKED. IF NOT PRESENT, THE
024805,002439:                                                                                                  #  DESIGNATE FLAG (RADMODES BIT 10) IS CLEARED, THE RR ERROR
024806,002440:                                                                                                  #  COUNTER ENABLE BIT (CHAN 12 BIT 2) IS CLEARED, AND ENDOFJOB
024807,002441:                                                                                                  #  CALLED. IF LOCK-ON IS DESIRED, THE RR AUTO TRACKER (CHAN 12
024808,002442:                                                                                                  #  BIT 14) IS ENABLED FOLLOWED BY A CHECK OF THE RECEIPT OF THE
024809,002443:                                                                                                  #  RR DATA GOOD (CHAN 33 BIT 4) SIGNAL. IF RR DATA GOOD
024810,002444:                                                                                                  #  PRESENT, THE DESIGNATE FLAG (RADMODES BIT 10) IS CLEARED,
024811,002445:                                                                                                  #  THE RR ERROR COUNTER ENABLE BIT (CHAN 12 BIT 2) IS CLEARED,
024812,002446:                                                                                                  #  AND ENDOFJOB CALLED. IF RR DATA GOOD IS NOT PRESENT, RROUT
024813,002447:                                                                                                  #  IS CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION
024814,002448:                                                                                                  #  (RADMODES BIT 11) IS IN PROGRESS AFTER WHICH THE JOB IS TERMINATED
024815,002449:                                                                                                  #  VIA ENDOFJOB.
024816,002450: 
024817,002451:                                                                                                  #  CALLING SEQUENCE:
024818,002452:                                                                                                  #  EXECUTIVE CALL EVERY .5 SECONDS FROM BEGDES.
024819,002453: 
024820,002454:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
024821,002455:                                                                                                  #  RRTARGET (HALF-UNIT LOS VECTOR IN EITHER SM OR NB COORDINATES),
024822,002456:                                                                                                  #  LOKONSW (STATE BIT 5), RRNBSW (STATE BIT 6), RADMODES
024823,002457: 
024824,002458:                                                                                                  #  SUBROUTINES CALLED_
024825,002459:                                                                                                  #  READCDUS, SMNB, CDULOGIC, MAGSUB, RROUT
024826,002460: 

Page 557

024828,002462:                                                                                                  #  JOBS OR TASKS INITIATED_
024829,002463:                                                                                                  #  NONE
024830,002464: 
024831,002465:                                                                                                  #  ALARMS_  NONE
024832,002466: 
024833,002467:                                                                                                  #  EXIT_  ENDOFJOB (ALWAYS)
024834,002468: 
024835,002469: 25,2626           00006        DODES              EXTEND                                         
024836,002470: 25,2627           30036                           DCA      CDUT                                  
024837,002471: 25,2630           53107                           DXCH     TANG                                  
024838,002472: 
024839,002473: 25,2631           06051                           TC       INTPRET                               
024840,002474: 
024841,002475: 25,2632           77201                           SETPD    VLOAD                                 
024842,002476: 25,2633           00001                                    0                                     
024843,002477: 25,2634           01101                                    RRTARGET                              
024844,002478: 25,2635           74214                           BON      VXSC                                  
024845,002479: 25,2636           00311                                    RRNBSW                                
024846,002480: 25,2637           52647                                    DONBRD                                #  TARGET IN NAV-BASE COORDINATES
024847,002481: 25,2640           01765                                    MLOSV                                 #  MULTIPLY UNIT LOS BY MAGNITUDE
024848,002482: 25,2641           63372                           VSL1     PDVL                                  
024849,002483: 25,2642           01757                                    LOSVEL                                
024850,002484: 25,2643           53361                           VXSC     VAD                                   #  ADD ONE SECOND RELATIVE VELOCITY TO LOS
024851,002485: 25,2644           13057                                    MCTOMS                                
024852,002486: 25,2645           45056                           UNIT     CALL                                  
024853,002487: 25,2646           47653                                    CDU*SMNB                              
024854,002488: 
024855,002489: 25,2647           14041        DONBRD             STODL    32D                                   
024856,002490: 25,2650           01110                                    TANG       +1                         
024857,002491: 25,2651           41434                           RTB      PUSH                                  #  SHAFT COMMAND = V(32D).(COS(S), 0,
024858,002492: 25,2652           21560                                    CDULOGIC                              #       (-SIN(S)).
024859,002493: 25,2653           65356                           SIN      PDDL                                  #  SIN(S) TO 0 AND COS(S) TO 2.
024860,002494: 25,2654           41546                           COS      PUSH                                  
024861,002495: 25,2655           65205                           DMP      PDDL                                  
024862,002496: 25,2656           00041                                    32D                                   
024863,002497: 25,2657           00045                                    36D                                   
024864,002498: 25,2660           44205                           DMP      BDSU                                  
024865,002499: 25,2661           00001                                    0                                     
024866,002500: 25,2662           77626                           STADR                                          
024867,002501: 25,2663           76667                           STORE    TANG       +1                         #  SHAFT COMMAND
024868,002502: 
024869,002503: 25,2664           47135                           SLOAD    RTB                                   
024870,002504: 25,2665           01107                                    TANG                                  
024871,002505: 25,2666           21560                                    CDULOGIC                              
024872,002506: 25,2667           71406                           PUSH     COS                                   #  COS(T) TO 4.
024873,002507: 25,2670           73525                           PDDL     SIN                                   
024874,002508: 25,2671           41206                           PUSH     DMP                                   #  SIN(T) TO 6.
024875,002509: 25,2672           00003                                    2                                     
024876,002510: 25,2673           65352                           SL1      PDDL                                  #  DEFINE VECTOR U = (SIN(T)SIN(S))
024877,002511: 25,2674           00005                                    4                                     #                    (COS(T)      )

Page 558

024879,002513: 25,2675           41325                           PDDL     DMP                                   #                    (SIN(T)COS(S))
024880,002514: 25,2676           00007                                    6                                     
024881,002515: 25,2677           00001                                    0                                     
024882,002516: 25,2700           55552                           SL1      VDEF                                  
024883,002517: 25,2701           77441                           DOT      EXIT                                  #  DOT U WITH LOS TO GET TRUNNION COMMAND.
024884,002518: 25,2702           00041                                    32D                                   
024885,002519: 

Page 559

024887,002521:                                                                                                  #           AT THIS POINT WE HAVE A ROTATION VECTOR IN DISH AXES LYING IN THE TS PLANE. CONVERT THIS TO A
024888,002522:                                                                                                  #  COMMANDED RATE AND ENABLE THE TRACKER IF WE ARE WITHIN .5 DEGREES OF THE TARGET.
024889,002523: 
024890,002524: 25,2703           40154                           CS       MPAC                                  #  DOT WAS NEGATIVE OF DESIRED ANGLE.
024891,002525: 25,2704           00006                           EXTEND                                         
024892,002526: 25,2705           73053                           MP       RDESGAIN                              #  SCALING ON INPUT ANGLE WAS 4 RADIANS.
024893,002527: 25,2706           55351                           TS       TRUNNCMD                              #  TRUNNION COMMAND FOR RROUT
024894,002528: 25,2707           40110                           CS       RADMODES                              #  A RELAY IN THE RR REVERSES POLARITY OF
024895,002529: 25,2710           74740                           MASK     BIT12                                 #  THE SHAFT COMMANDS IN MODE 2 SO THAT A
024896,002530: 25,2711           00006                           EXTEND                                         #  POSITIVE TORQUE APPLIED TO THE SHAFT
024897,002531: 25,2712           12715                           BZF      +3                                    #  GYRO CAUSES A POSITIVE CHANGE IN THE
024898,002532: 25,2713           31107                           CA       TANG       +1                         #  SHAFT ANGLE. COMPENSATE FOR THIS SWITCH
024899,002533: 25,2714           12716                           TCF      +2                                    #  BY CHANGING THE POLARITY OF OUR COMMAND.
024900,002534: 25,2715           41107                 +3        CS       TANG       +1                         
024901,002535: 25,2716           00006                           EXTEND                                         
024902,002536: 25,2717           73053                           MP       RDESGAIN                              #  SCALING ON INPUT ANGLE WAS 4 RADIANS.
024903,002537: 25,2720           55352                           TS       SHAFTCMD                              #  SHAFT COMMAND FOR RROUT
024904,002538: 25,2721           06051                           TC       INTPRET                               
024905,002539: 
024906,002540: 25,2722           41345                           DLOAD    DMP                                   
024907,002541: 25,2723           00003                                    2                                     #  COS(S).
024908,002542: 25,2724           00005                                    4                                     #  COS(T).
024909,002543: 25,2725           65352                           SL1      PDDL                                  #  Z COMPONENT OF URR.
024910,002544: 25,2726           65276                           DCOMP    PDDL                                  #  Y COMPONENT = -SIN(T).
024911,002545: 25,2727           00001                                    0                                     #  SIN(S).
024912,002546: 25,2730           72405                           DMP      SL1                                   
024913,002547: 25,2731           00005                                    4                                     #  COS(T).
024914,002548: 25,2732           43066                           VDEF     BON                                   #  FORM URR IN NB AXES.
024915,002549: 25,2733           00311                                    RRNBSW                                #  BYPASS NBSM CONVERSION IN VERB 41.
024916,002550: 25,2734           52737                                    +3                                    
024917,002551: 25,2735           77624                           CALL                                           
024918,002552: 25,2736           47700                                    *NBSM*                                #  GET URR IN SM AXES.
024919,002553: 25,2737           77441                           DOT      EXIT                                  
024920,002554: 25,2740           01101                                    RRTARGET                              #  GET COSINE OF ANGLE BETWEEN RR AND LOS.
024921,002555: 
024922,002556: 25,2741           00006                           EXTEND                                         
024923,002557: 25,2742           43055                           DCS      COS1/2DG                              
024924,002558: 25,2743           20155                           DAS      MPAC                                  #  DIFFERENCE OF COSINES, SCALED B-2.
024925,002559: 25,2744           10154                           CCS      MPAC                                  
024926,002560: 25,2745           34755                           CA       ZERO                                  #  IF COS ERROR BIGGER, ERROR IS SMALLER.
024927,002561: 25,2746           12750                           TCF      +2                                    
024928,002562: 25,2747           34753                           CA       ONE                                   
024929,002563: 25,2750           54155                           TS       MPAC       +1                         #  ZERO IF RR IS POINTED OK, ONE IF NOT.

Page 560

024931,002565:                                                                                                  #           SEE IF TRACKER SHOULD BE ENABLED OR DISABLED.
024932,002566: 
024933,002567: 25,2751           10110                           CCS      RADMODES                              #  IF CONTINUOUS DESIGNATE WANTED, PUT OUT
024934,002568: 25,2752           12755                           TCF      SIGNLCHK                              #  COMMANDS WITHOUT CHECKING MAGNITUDE OF
024935,002569: 25,2753           12755                           TCF      SIGNLCHK                              #  ERROR SIGNALS
024936,002570: 25,2754           13005                           TCF      DORROUT                               
024937,002571: 25,2755           10155        SIGNLCHK           CCS      MPAC       +1                         #  SEE IF BOTH AXES WERE WITHIN .5 DEGS.
024938,002572: 25,2756           12766                           TCF      DGOODCHK                              
024939,002573: 25,2757           40074                           CS       STATE                                 #  IF WITHIN LIMITS AND NO LOCK-ON WANTED,
024940,002574: 25,2760           74747                           MASK     LOKONBIT                              #  PROBLEM IS FINISHED.
024941,002575: 25,2761           10000                           CCS      A                                     
024942,002576: 25,2762           12773                           TCF      RRDESDUN                              
024943,002577: 
024944,002578: 25,2763           34736                           CAF      BIT14                                 #  ENABLE THE TRACKER.
024945,002579: 25,2764           00006                           EXTEND                                         
024946,002580: 25,2765           05012                           WOR      CHAN12                                
024947,002581: 
024948,002582: 25,2766           34750        DGOODCHK           CAF      BIT4                                  #  SEE IF DATA GOOD RECEIVED YET
024949,002583: 25,2767           00006                           EXTEND                                         
024950,002584: 25,2770           02033                           RAND     CHAN33                                
024951,002585: 25,2771           10000                           CCS      A                                     
024952,002586: 25,2772           13005                           TCF      DORROUT                               
024953,002587: 
024954,002588: 25,2773           44742        RRDESDUN           CS       BIT10                                 #  WHEN PROBLEM DONE, REMOVE BIT 10 SO NEXT
024955,002589: 25,2774           70110                           MASK     RADMODES                              #  WAITLIST TASK WE WILL GO TO RGOODEND.
024956,002590: 25,2775           00004                           INHINT                                         
024957,002591: 25,2776           54110                           TS       RADMODES                              
024958,002592: 
024959,002593: 25,2777           05527                           TC       DOWNFLAG                              #  RESET LOSCMFLG TO PREVENT A
024960,002594: 25,3000           00041                           ADRES    LOSCMFLG                              #  RECOMPUTATION OF LOS AFTER DATA GOOD
024961,002595: 25,3001           44752                           CS       BIT2                                  #  TURN OFF ENABLE RR ERROR COUNTER
024962,002596: 25,3002           00006                           EXTEND                                         
024963,002597: 25,3003           03012                           WAND     CHAN12                                
024964,002598: 25,3004           15155                           TCF      ENDOFJOB                              #  WITH ECTR DISABLED.
024965,002599: 
024966,002600: 25,3005           30076        DORROUT            CA       FLAGWRD2                              #  IF BOTH LOSCMFLAG AND SEARCH FLAG ARE
024967,002601: 25,3006           77724                           MASK     BIT12,14                              #  ZERO, BYPASS VELOCITY ADJUSTMENT TO LOS
024968,002602: 25,3007           00006                           EXTEND                                         
024969,002603: 25,3010           13027                           BZF      NOTP20                                
024970,002604: 25,3011           06051                           TC       INTPRET                               
024971,002605: 25,3012           74375                           VLOAD    VXSC                                  #  MULTIPLY UNIT LOS BY MAGNITUDE
024972,002606: 25,3013           01101                                    RRTARGET                              
024973,002607: 25,3014           01765                                    MLOSV                                 
024974,002608: 25,3015           41572                           VSL1     PUSH                                  
024975,002609: 25,3016           74375                           VLOAD    VXSC                                  #  ADD .5 SEC. OF VELOCITY
024976,002610: 25,3017           01757                                    LOSVEL                                #  TO LOS VECTOR
024977,002611: 25,3020           13057                                    MCTOMS                                
024978,002612: 25,3021           53362                           VSR1     VAD                                   
024979,002613: 25,3022           77656                           UNIT                                           
024980,002614: 25,3023           15101                           STODL    RRTARGET                              #  STORE VELOCITY-CORRECTED LOS (UNIT)

Page 561

024982,002616: 25,3024           00045                                    36D                                   
024983,002617: 25,3025           01765                           STORE    MLOSV                                 #  AND STORE MAGNITUDE
024984,002618: 25,3026           77776                           EXIT                                           
024985,002619: 25,3027           00004        NOTP20             INHINT                                         
024986,002620: 25,3030           40110                           CS       RADMODES                              #  PUT OUT COMMAND UNLESS MONITOR
024987,002621: 25,3031           74741                           MASK     REPOSBIT                              #  REPOSITION HAS TAKEN OVER.
024988,002622: 25,3032           10000                           CCS      A                                     
024989,002623: 25,3033           02277                           TC       RROUT                                 
024990,002624: 
024991,002625: 25,3034           30076                           CA       FLAGWRD2                              
024992,002626: 25,3035           74740                           MASK     LOSCMBIT                              #  IF LOSCMFLG NOT SET, DON'T TEST
024993,002627: 25,3036           00006                           EXTEND                                         #  LOS COUNTER
024994,002628: 25,3037           15155                           BZF      ENDOFJOB                              
024995,002629: 25,3040           11456                           CCS      LOSCOUNT                              #  TEST LOS COUNTER TO SEE IF TIME TO GET
024996,002630: 25,3041           03051                           TC       DODESEND                              #  A NEW LOS
024997,002631: 25,3042           06032                           TC       KILLTASK                              #  YES - KILL TASK WHICH SCHEDULES DODES
024998,002632: 25,3043           52573                           CADR     DESLOOP    +2                         
024999,002633: 25,3044           00003                           RELINT                                         
025000,002634: 25,3045           10067                           CCS      NEWJOB                                
025001,002635: 25,3046           05122                           TC       CHANG1                                
025002,002636: 25,3047           04616                           TC       BANKCALL                              
025003,002637: 25,3050           51014                           CADR     R21LEM2                               
025004,002638: 
025005,002639: 
025006,002640: 25,3051           55456        DODESEND           TS       LOSCOUNT                              
025007,002641: 25,3052           05155                           TC       ENDOFJOB                              
025008,002642: 
025009,002643: 
025010,002644: 25,3053           21122        RDESGAIN           DEC      .53624                                #  TRIES TO NULL .5 ERROR IN .5 SEC.
025011,002645: 25,3054     7724               BIT12,14           EQUALS   PRIO24                                #  OCT 24000
025012,002646: 25,3054           07777 33005  COS1/2DG           2DEC     .999961923 B-2                        #  COSINE OF 0.5 DEGREES.
025013,002647: 
025014,002648: 25,3056           00310 00000  MCTOMS             2DEC     100        B-13                       
025015,002649: 

Page 562

025017,002651:                                                                                                  #  RADAR READ INITIALIZATION
025018,002652: 
025019,002653:                                                                                                  #  THE FOLLOWING ROUTINES MUST BE CALLED BY BANKCALL
025020,002654: 
025021,002655: 25,3060           03074        LRALT              TC       INITREAD                              
025022,002656: 25,3061           00017        ALLREAD            OCT      17                                    
025023,002657: 
025024,002658: 25,3062           03074        LRVELZ             TC       INITREAD                              
025025,002659: 25,3063           00016                           OCT      16                                    
025026,002660: 
025027,002661: 25,3064           03074        LRVELY             TC       INITREAD                              
025028,002662: 25,3065           00015                           OCT      15                                    
025029,002663: 
025030,002664: 25,3066           03074        LRVELX             TC       INITREAD                              
025031,002665: 25,3067           00014                           OCT      14                                    
025032,002666: 
025033,002667: 25,3070           03074        RRRDOT             TC       INITREAD                              
025034,002668: 25,3071           00012                           OCT      12                                    
025035,002669: 
025036,002670: 25,3072           03074        RRRANGE            TC       INITREAD                              
025037,002671: 25,3073           00011                           OCT      11                                    
025038,002672: 
025039,002673: 
025040,002674: 25,3074           00004        INITREAD           INHINT                                         
025041,002675: 25,3075           50002                           INDEX    Q                                     
025042,002676: 25,3076           30000                           CA       0                                     
025043,002677: 25,3077           03106                           TC       PRERADAR                              
025044,002678: 25,3100           34751                           CA       BIT3                                  
025045,002679: 25,3101           55105                           TS       TIMEHOLD   +1                         #  MIDPOINT OF READ IS ABOUT 40 MS AFTER
025046,002680: 25,3102           00006                           EXTEND                                         #  START OF READ
025047,002681: 25,3103           30025                           DCA      TIME2                                 
025048,002682: 25,3104           21105                           DAS      TIMEHOLD                              
025049,002683: 
025050,002684: 25,3105           12357                           TCF      ROADBACK                              
025051,002685: 
025052,002686: 
025053,002687: 25,3106           55077        PRERADAR           TS       RADUSE                                #  INDICATE RADAR READ ROUTINES IN USE.
025054,002688: 25,3107           34755                           CA       ZERO                                  
025055,002689: 25,3110           55110                           TS       NSAMP                                 
025056,002690: 25,3111           55100                           TS       SAMPLSUM                              
025057,002691: 25,3112           55101                           TS       SAMPLSUM   +1                         
025058,002692: 25,3113           55104                           TS       TIMEHOLD                              
025059,002693: 
025060,002694: 25,3114           33134                           CA       DGBITS                                
025061,002695: 25,3115           00006                           EXTEND                                         
025062,002696: 25,3116           02033                           RAND     CHAN33                                
025063,002697: 25,3117           55112                           TS       OLDATAGD                              
025064,002698: 
025065,002699: 25,3120           43134                           CS       DGBITS                                #  RESET DATA GOOD BITS OF RADMODES
025066,002700: 25,3121           70110                           MASK     RADMODES                              

Page 563

025068,002702: 25,3122           54110                           TS       RADMODES                              
025069,002703: 
025070,002704: 25,3123           43061                           CS       ALLREAD                               
025071,002705: 25,3124           00006                           EXTEND                                         
025072,002706: 25,3125           03013                           WAND     CHAN13                                #  CLEAR ALL RADAR BITS PRIOR TO READ
025073,002707: 
025074,002708: 25,3126           00006                           EXTEND                                         
025075,002709: 25,3127           22070                           QXCH     RUPTREG1                              
025076,002710: 
025077,002711: 25,3130           31077                           CA       RADUSE                                
025078,002712: 25,3131           04674                           TC       IBNKCALL                              
025079,002713: 25,3132           36000                           CADR     RADSTART                              
025080,002714: 25,3133           00070                           TC       RUPTREG1                              
025081,002715: 
025082,002716: 
025083,002717: 25,3134           00230        DGBITS             OCT      230                                   #  POSITION OF DATA GOOD BITS IN CHANNEL 33
025084,002718: 25,3135           00014        VBITS              OCT      14                                    #  VSELECT = 0 BEFORE X READ
025085,002719: 25,3136           00016                           OCT      16                                    #  VSELECT = 1 BEFORE Z READ
025086,002720: 25,3137           00015                           OCT      15                                    #  VSELECT = 2 BEFORE Y READ
025087,002721: 
025088,002722: 
025089,002723: 25,3140           40107        R12READ            CS       FLGWRD11                              
025090,002724: 25,3141           74742                           MASK     NOLRRBIT                              #  IF NOLRREAD FLAG IS SET , BYPASS R12
025091,002725: 25,3142           00006                           EXTEND                                         
025092,002726: 25,3143           15272                           BZF      TASKOVER                              
025093,002727: 
025094,002728: 25,3144           51462                           INDEX    VSELECT                               
025095,002729: 25,3145           33135                           CA       VBITS                                 
025096,002730: 25,3146           03106                           TC       PRERADAR                              
025097,002731: 25,3147           36254                           CA       SIX                                   #  RADAR RUPT USES THIS FOR R12 READ
025098,002732: 25,3150           55110                           TS       NSAMP                                 

The following 5 lines are marked as having changed between ZLEMP20S.000 and ZLEMP20S.001.

025100,002734: 25,3151           36010                           CAF      OCT31                                 #  SET UP RDGIMS FOR MIDPOINT OF LR READ
025101,002735: 25,3152           05214                           TC       WAITLIST                              
025102,002736: 25,3153  E4,1643                                  EBANK=   LRTIME                                
025103,002737: 25,3153           03570 76064                     2CADR    RDGIMS                                
025104,002738: 
025105,002739: 25,3155           05272                           TC       TASKOVER                              
025106,002740: 

Page 564

025108,002742:                                                                                                  #  RADAR RUPT READER (R20)
025109,002743: 
025110,002744:                                                                                                  #  THIS ROUTINE, WHICH IS INITIATED BY A RADAR RUPT, PROCESSES THE RADAR DATA AND UPDATES THE APPROPRIATE
025111,002745:                                                                                                  #  DSKY LIGHTS.
025112,002746: 
025113,002747: 25,2000                                           SETLOC   RADARUPT                              
025114,002748: 25,2000                                           BANK                                           
025115,002749: 
025116,002750: 25,3156                                           COUNT*   $$/RRUPT                              
025117,002751: 
025118,002752: 25,3156  E7,1453                                  EBANK=   TTOGO                                 
025119,002753: 
025120,002754: 25,3156           00006        RADAREAD           EXTEND                                         #  CONTINUATION OF INTERRUPT LEAD-IN.
025121,002755: 25,3157           04007                           ROR      SUPERBNK                              #  SUPERBNK MUST BE SAVED BECAUSE RUPT
025122,002756: 25,3160           54016                           TS       BANKRUPT                              #  MAY EXIT VIA TASKOVER.
025123,002757: 25,3161           00006                           EXTEND                                         
025124,002758: 25,3162           22012                           QXCH     QRUPT                                 
025125,002759: 
025126,002760: 
025127,002761: 25,3163           34757                           CA       SEVEN                                 #  READ AND STORE RADAR SELECT BITS
025128,002762: 25,3164           00006                           EXTEND                                         
025129,002763: 25,3165           02013                           RAND     CHAN13                                
025130,002764: 25,3166           55332                           TS       RADBITS                               
025131,002765: 
025132,002766: 25,3167           00006                           EXTEND                                         #  IF RADAR SELECT BITS ARE ZERO, ALARM
025133,002767: 25,3170           13176                           BZF      BADRUPT                               #  WITHOUT READING DATA
025134,002768: 
025135,002769: 25,3171           30046                           CA       RNRAD                                 #  STORE RAW DATA FOR DOWNLINK.
025136,002770: 25,3172           51332                           INDEX    RADBITS                               
025137,002771: 25,3173           55327                           TS       DNRRANGE   -1                         
025138,002772: 
025139,002773: 25,3174           11077                           CCS      RADUSE                                #  IF RADUSE IS ZERO, THIS IS A BAD RUPT
025140,002774: 25,3175           13202                           TCF      WHICHRAD                              
025141,002775: 
025142,002776: 25,3176           55077        BADRUPT            TS       RADUSE                                
025143,002777: 25,3177           05600                           TC       ALARM                                 
025144,002778: 25,3200           00520                           OCT      520                                   
025145,002779: 25,3201           05301                           TC       RESUME                                
025146,002780: 
025147,002781: 25,3202           46257        WHICHRAD           CS       THREE                                 #  IF RADBITS IS LESS THAN THREE,
025148,002782: 25,3203           61332                           AD       RADBITS                               #  THE RENDEZVOUS RADAR IS BEING READ.
025149,002783: 25,3204           00006                           EXTEND                                         
025150,002784: 25,3205           63272                           BZMF     RENDRAD                               
025151,002785: 
025152,002786: 25,3206           40101        LANDRAD            CS       FLAGWRD5                              #  THE LANDING RADAR IS BEING READ
025153,002787: 25,3207           74741                           MASK     R77FLBIT                              
025154,002788: 25,3210           00006                           EXTEND                                         #  IF R77 IS RUNNING, EXIT HERE
025155,002789: 25,3211           13252                           BZF      R77EXIT                               
025156,002790: 
025157,002791: 25,3212           44757                           CS       SEVEN                                 #  IF RADBITS IS SEVEN, THE LANDING

Page 565

025159,002793: 25,3213           61332                           AD       RADBITS                               #  RADAR ALITUDE IS BEING READ
025160,002794: 25,3214           00006                           EXTEND                                         
025161,002795: 25,3215           13266                           BZF      LRHEIGHT                              
025162,002796: 
025163,002797: 25,3216           34733        LRSPEED            CA       POSMAX                                #  DECODE THE 15 BIT READING AND
025164,002798: 25,3217           70046                           MASK     RNRAD                                 #  SUBTRACT THE BIAS.
025165,002799: 25,3220           62000                           AD       LVELBIAS                              
025166,002800: 25,3221           54064                           TS       ITEMP4                                
025167,002801: 25,3222           54001                           TS       L                                     
025168,002802: 25,3223           30046                           CA       RNRAD                                 
025169,002803: 25,3224           60000                           DOUBLE                                         
025170,002804: 25,3225           74753                           MASK     BIT1                                  
025171,002805: 25,3226           54063                           TS       ITEMP3                                
025172,002806: 25,3227           21101                           DAS      SAMPLSUM                              #  ACCUMULATE THE READING
025173,002807: 
025174,002808: 25,3230           34744                           CA       BIT8                                  #  VOLOCITY DATA GOOD BIT
025175,002809: 25,3231           54061        DGCHECK            TS       ITEMP1                                
025176,002810: 25,3232           33134        DGCHECK2           CA       DGBITS                                #  UPDATE THE STATUS OF THE DATA GOOD BITS
025177,002811: 25,3233           00006                           EXTEND                                         
025178,002812: 25,3234           02033                           RAND     CHAN33                                
025179,002813: 25,3235           57112                           XCH      OLDATAGD                              
025180,002814: 25,3236           70061                           MASK     ITEMP1                                
025181,002815: 25,3237           54001                           TS       L                                     #  OLD STATUS
025182,002816: 25,3240           30061                           CA       ITEMP1                                
025183,002817: 25,3241           71112                           MASK     OLDATAGD                              #  CURRENT STATUS
025184,002818: 25,3242           60001                           AD       L                                     
025185,002819: 25,3243           10000                           CCS      A                                     #  BOTH SHOULD BE ZERO
025186,002820: 25,3244           13255                           TCF      BADRAD                                #  DATA GOOD NOT PRESENT
025187,002821: 
025188,002822: 25,3245           11110        GOODRAD            CCS      NSAMP                                 #  TEST FOR R12
025189,002823: 25,3246           13402                           TCF      R12EXIT                               
025190,002824: 
025191,002825: 25,3247           52064                           DXCH     ITEMP3                                #  STORE DATA FOR CALLING ROUTINE
025192,002826: 25,3250           53101                           DXCH     SAMPLSUM                              
025193,002827: 25,3251           03647                           TC       RADLITES                              #  UPDATE DSKY LIGHTS.
025194,002828: 
025195,002829: 25,3252           34755        R77EXIT            CA       ZERO                                  #  ZERO RADUSE
025196,002830: 25,3253           55077                           TS       RADUSE                                
025197,002831: 25,3254           03621                           TC       RGOODEND   -2                         
025198,002832: 
025199,002833: 
025200,002834: 25,3255           40110        BADRAD             CS       RADMODES                              #  UPDATE RADMODES BIT ONLY IF DATA BAD
025201,002835: 25,3256           70061                           MASK     ITEMP1                                
025202,002836: 25,3257           26110                           ADS      RADMODES                              
025203,002837: 
025204,002838: 25,3260           11110                           CCS      NSAMP                                 #  TEST FOR R12
025205,002839: 25,3261           13402                           TCF      R12EXIT                               
025206,002840: 
025207,002841: 25,3262           03647                           TC       RADLITES                              #  UPDATE DSKY LIGHTS
025208,002842: 25,3263           34755        RRBADEND           CA       ZERO                                  #  ZERO RADUSE

Page 566

025210,002844: 25,3264           55077                           TS       RADUSE                                
025211,002845: 25,3265           03626                           TC       RDBADEND   -2                         
025212,002846: 
025213,002847: 
025214,002848: 25,3266           34747        LRHEIGHT           CA       BIT5                                  #  DATA GOOD BIT FOR ALTITUDE
025215,002849: 25,3267           54061                           TS       ITEMP1                                
025216,002850: 25,3270           34743                           CA       BIT9                                  #  LO SCALE BIT FOR LR
025217,002851: 25,3271           03315                           TC       SCALECHK                              
025218,002852: 
025219,002853: 25,3272           00006        RENDRAD            EXTEND                                         
025220,002854: 25,3273           31454                           DCA      TTOGO                                 #  LOAD TIME TO TIG
025221,002855: 25,3274           53272                           DXCH     TTOTIG                                #  FOR R65 RADAR READING.
025222,002856: 
025223,002857: 25,3275           34741                           CA       REPOSBIT                              #  MAKE SURE ANTENNA HAS NOT
025224,002858: 25,3276           70110                           MASK     RADMODES                              #  GONE OUT OF LIMITS.
025225,002859: 25,3277           10000                           CCS      A                                     
025226,002860: 25,3300           13263                           TCF      RRBADEND                              
025227,002861: 
025228,002862: 25,3301           40110                           CS       RADMODES                              #  BE SURE RR CDU HASN'T FAILED.
025229,002863: 25,3302           74745                           MASK     RCDUFBIT                              
025230,002864: 25,3303           10000                           CCS      A                                     
025231,002865: 25,3304           13263                           TCF      RRBADEND                              
025232,002866: 
025233,002867: 25,3305           34750                           CA       BIT4                                  #  DATA GOOD BIT FOR RR
025234,002868: 25,3306           54061                           TS       ITEMP1                                
025235,002869: 
025236,002870: 25,3307           34753                           CA       BIT1                                  #  TEST FOR RANGE OR RANGE RATE
025237,002871: 25,3310           71332                           MASK     RADBITS                               
025238,002872: 25,3311           54002                           TS       Q                                     #  SAVE FOR LATER TESTING
025239,002873: 25,3312           00006                           EXTEND                                         
025240,002874: 25,3313           13324                           BZF      RADIN                                 #  IF ROOT, READ DATA
025241,002875: 
025242,002876: 25,3314           34751                           CA       BIT3                                  #  LO SCALE BIT FOR RR.
025243,002877: 25,3315           54001        SCALECHK           TS       L                                     
025244,002878: 25,3316           30110                           CA       RADMODES                              #  TEST THE SCALE BIT SPECIFIED IN L
025245,002879: 25,3317           00006                           EXTEND                                         #  TO SEE IF IT IS THE SMAE AS LAST
025246,002880: 25,3320           06033                           RXOR     CHAN33                                #  TIME.
025247,002881: 25,3321           70001                           MASK     L                                     #  IF BIT IS THE SMAE IN RADMODES AND
025248,002882: 25,3322           10000                           CCS      A                                     #  CHAN33, THEN A WILL BE ZERO
025249,002883: 25,3323           03363                           TC       SCALCHNG                              #  SCALE CHANGED
025250,002884: 
025251,002885: 25,3324           34733        RADIN              CA       POSMAX                                #  UNPACK 15 BIT RADAR READING
025252,002886: 25,3325           70046                           MASK     RNRAD                                 
025253,002887: 25,3326           54064                           TS       ITEMP4                                
025254,002888: 
025255,002889: 25,3327           30046                           CA       RNRAD                                 
025256,002890: 25,3330           60000                           DOUBLE                                         
025257,002891: 25,3331           74753                           MASK     BIT1                                  
025258,002892: 25,3332           54063                           TS       ITEMP3                                
025259,002893: 

Page 567

025261,002895: 25,3333           10002                           CCS      Q                                     #  TEST FOR RR RANGE RATE (Q = 0)
025262,002896: 25,3334           13341                           TCF      SCALADJ                               #  RANGE OR LR HEIGHT . TEST SCALE
025263,002897: 
025264,002898: 25,3335           00006                           EXTEND                                         #  RR RANGE RATE - SUBTRACT BIAS
025265,002899: 25,3336           42002                           DCS      RDOTBIAS                              
025266,002900: 25,3337           20064        DASAMPL            DAS      ITEMP3                                
025267,002901: 25,3340           13232                           TCF      DGCHECK2                              #  TEST DATA GOOD
025268,002902: 
025269,002903: 25,3341           30110        SCALADJ            CA       RADMODES                              #  TEST SCALE BIT
025270,002904: 25,3342           70001                           MASK     L                                     
025271,002905: 25,3343           00006                           EXTEND                                         
025272,002906: 25,3344           13232                           BZF      DGCHECK2                              #  LO SCALE
025273,002907: 
025274,002908: 25,3345           74751                           MASK     BIT3                                  #  HI SCALE - TEST FOR LR
025275,002909: 25,3346           00006                           EXTEND                                         #  IF BIT3 = 0,THEN IT IS LR
025276,002910: 25,3347           13356                           BZF      LRSCK                                 
025277,002911: 
025278,002912: 25,3350           52064                           DXCH     ITEMP3                                #  RESCALE RR DATA TO LO SCALING
025279,002913: 25,3351           20001                           DDOUBL                                         #  MULTIPLY BY 8.
025280,002914: 25,3352           20001                           DDOUBL                                         
025281,002915: 25,3353           20001                           DDOUBL                                         
025282,002916: 25,3354           52064                           DXCH     ITEMP3                                
025283,002917: 25,3355           13232                           TCF      DGCHECK2                              
025284,002918: 
025285,002919: 25,3356           00006        LRSCK              EXTEND                                         #  RESCALE LR DATA TO LO SCALING
025286,002920: 25,3357           30064                           DCA      ITEMP3                                #  MULTIPLY BY 5.
025287,002921: 25,3360           20001                           DDOUBL                                         
025288,002922: 25,3361           20001                           DDOUBL                                         
025289,002923: 25,3362           13337                           TCF      DASAMPL                               
025290,002924: 
025291,002925: 
025292,002926: 25,3363           30110        SCALCHNG           CA       RADMODES                              
025293,002927: 25,3364           00006                           EXTEND                                         #  INVERT SCALE BIT IN RADMODES
025294,002928: 25,3365           06001                           RXOR     LCHAN                                 
025295,002929: 25,3366           54110                           TS       RADMODES                              
025296,002930: 
025297,002931: 25,3367           11110                           CCS      NSAMP                                 #  TEST FOR R12
025298,002932: 25,3370           13400                           TCF      R12SCHNG                              
025299,002933: 
025300,002934: 25,3371           05515                           TC       UPFLAG                                #  SET RNGSCFLG FOR LRS24.1
025301,002935: 25,3372           00120                           ADRES    RNGSCFLG                              
025302,002936: 
025303,002937: 25,3373           33134                           CA       DGBITS                                #  UPDATE DATA GOOD BITS
025304,002938: 25,3374           00006                           EXTEND                                         
025305,002939: 25,3375           02033                           RAND     CHAN33                                
025306,002940: 25,3376           55112                           TS       OLDATAGD                              
025307,002941: 25,3377           13263                           TCF      RRBADEND                              
025308,002942: 
025309,002943: 
025310,002944: 25,3400           55110        R12SCHNG           TS       NSAMP                                 #  UPDATE NSAMP AND IGNORE READING.

Page 568

025312,002946: 25,3401           13413                           TCF      READVEL                               
025313,002947: 
025314,002948: 25,3402           55110        R12EXIT            TS       NSAMP                                 #  UPDATE NSAMP
025315,002949: 25,3403           00006                           EXTEND                                         
025316,002950: 25,3404           13444                           BZF      STORVEL                               
025317,002951: 
025318,002952: 25,3405           67757                           AD       NEG3                                  
025319,002953: 25,3406           00006                           EXTEND                                         
025320,002954: 25,3407           13424                           BZF      STORALT                               
025321,002955: 
025322,002956: 25,3410           67761                           AD       NEGONE                                
025323,002957: 25,3411           00006                           EXTEND                                         
025324,002958: 25,3412           13422                           BZF      READALT                               
025325,002959: 25,3413           44757        READVEL            CS       SEVEN                                 
025326,002960: 25,3414           00006                           EXTEND                                         
025327,002961: 25,3415           03013                           WAND     CHAN13                                
025328,002962: 25,3416           31077                           CA       RADUSE                                
025329,002963: 25,3417           04674        READALT2           TC       IBNKCALL                              
025330,002964: 25,3420           36000                           CADR     RADSTART                              
025331,002965: 25,3421           05301                           TC       RESUME                                
025332,002966: 
025333,002967: 
025334,002968: 25,3422           33061        READALT            CA       ALLREAD                               #  SET UP LR ALTITUDE READ
025335,002969: 25,3423           13417                           TCF      READALT2                              
025336,002970: 
025337,002971: 25,3424           52064        STORALT            DXCH     ITEMP3                                
025338,002972: 25,3425           53655                           DXCH     HMEAS                                 #  STORE ALT IN HMEAS
025339,002973: 
025340,002974: 25,3426           40110                           CS       RADMODES                              #  TEST DATA GOOD
025341,002975: 25,3427           74747                           MASK     BIT5                                  
025342,002976: 25,3430           00006                           EXTEND                                         
025343,002977: 25,3431           13441                           BZF      HBAD                                  #  DATA GOOD NOT PRESENT
025344,002978: 
025345,002979: 25,3432           11677                           CCS      STILBADH                              #  IF DATA JUST GOOD,OR IG RESTART JUST
025346,002980: 25,3433           13442                           TCF      HSTILBAD                              #  OCCURRED,WAIT
025347,002981: 
025348,002982: 25,3434           40107                           CS       FLGWRD11                              #  SET FLAG FORR12.
025349,002983: 25,3435           74750                           MASK     RNGEDBIT                              #  (CANNOT USE UPFLAG BECAUSE ITEMP1 IS
025350,002984: 25,3436           26107                           ADS      FLGWRD11                              #    DESTROYED)
025351,002985: 25,3437           03647        ALTEXIT            TC       RADLITES                              
025352,002986: 25,3440           13413                           TCF      READVEL                               
025353,002987: 
025354,002988: 25,3441           34752        HBAD               CA       TWO                                   #  SET STILBADH FOR FOUR SECOND DELAY
025355,002989: 25,3442           55677        HSTILBAD           TS       STILBADH                              
025356,002990: 25,3443           13437                           TCF      ALTEXIT                               
025357,002991: 
025358,002992: 25,3444           40110        STORVEL            CS       RADMODES                              #  TEST DATA GOOD
025359,002993: 25,3445           74744                           MASK     BIT8                                  
025360,002994: 25,3446           00006                           EXTEND                                         
025361,002995: 25,3447           13513                           BZF      VBAD                                  #  DATA GOOD NOT PRESENT
025362,002996: 

Page 569

025364,002998: 25,3450           11700                           CCS      STILBADV                              
025365,002999: 25,3451           13514                           TCF      VSTILBAD                              
025366,003000: 
025367,003001: 25,3452           40107                           CS       FLGWRD11                              #  DATA IS GOOD, SET FLAG FOR R12
025368,003002: 25,3453           74745                           MASK     VELDABIT                              #  (CANNOT USE UPFLAG BECAUSE ITEMP1 IS
025369,003003: 25,3454           26107                           ADS      FLGWRD11                              #    DESTROYED)
025370,003004: 25,3455           11462        R12DL              CCS      VSELECT                               #  UPDATE VSELECT
025371,003005: 25,3456           13460                           TCF      +2                                    
025372,003006: 25,3457           34752                           CA       TWO                                   
025373,003007: 25,3460           55462                           TS       VSELECT                               
025374,003008: 
025375,003009: 25,3461           53101                           DXCH     SAMPLSUM                              #  STORE VEL DATA IN VMEAS
025376,003010: 25,3462           53653                           DXCH     VMEAS                                 
025377,003011: 
025378,003012: 25,3463           00006                           EXTEND                                         
025379,003013: 25,3464           31655                           DCA      HMEAS                                 #  STORE HMEAS FOR DOWNLINK
025380,003014: 25,3465           53771                           DXCH     HMEASDL                               
025381,003015: 

The next 18 lines (up to and including CA ITEMP3) are marked as having changed between ZLEMP20S.000 and ZLEMP20S.001.

025384,003018: 25,3466           34741                           CAF      EBANK4                                
025385,003019: 25,3467           54003                           TS       EBANK                                 
025386,003020: 25,3470  E4,1643                                  EBANK=   LRTIME                                
025387,003021: 
025388,003022: 25,3470           00006                           EXTEND                                         
025389,003023: 25,3471           31647                           DCA      LRYCDU                                
025390,003024: 25,3472           52062                           DXCH     ITEMP1                                
025391,003025: 
025392,003026: 25,3473           31645                           CA       LRXCDU                                
025393,003027: 25,3474           54063                           TS       ITEMP3                                
025394,003028: 
025395,003029: 25,3475           00006                           EXTEND                                         
025396,003030: 25,3476           31644                           DCA      LRTIME                                
025397,003031: 
025398,003032: 25,3477           24006                           INCR     BBANK                                 
025399,003033: 25,3500           24006                           INCR     BBANK                                 
025400,003034: 25,3501           24006                           INCR     BBANK                                 
025401,003035: 25,3502  E7,1772                                  EBANK=   LRTIMEDL                              
025402,003036: 
025403,003037: 25,3502           53773                           DXCH     LRTIMEDL                              
025404,003038: 
025405,003039: 25,3503           52062                           DXCH     ITEMP1                                
025406,003040: 25,3504           53460                           DXCH     AIG                                   
025407,003041: 
025408,003042: 25,3505           30063                           CA       ITEMP3                                
025409,003043: 25,3506           55461                           TS       AOG                                   
025410,003044: 
025411,003045: 25,3507           03647                           TC       RADLITES                              #  UPDATE DSKY VEL LIGHT
025412,003046: 25,3510           34755                           CA       ZERO                                  
025413,003047: 25,3511           55077                           TS       RADUSE                                
025414,003048: 25,3512           05301                           TC       RESUME                                
025415,003049: 

Page 570

025417,003051: 25,3513           34752        VBAD               CA       TWO                                   
025418,003052: 25,3514           55700        VSTILBAD           TS       STILBADV                              
025419,003053: 25,3515           13455                           TCF      R12DL                                 
025420,003054: 

Page 571

025422,003056:                                                                                                  #           CODING TO PROTECT CHANNEL 13 WILL RADAR READ IS IN CRITICAL PERIOD
025423,003057: 
025424,003058: 
025425,003059: 17,2000                                           SETLOC   C13BANK                               
025426,003060: 17,2000                                           BANK                                           
025427,003061: 
025428,003062: 17,2000           54002        RADSTART           TS       Q                                     
025429,003063: 17,2001           00006                 +1        EXTEND                                         
025430,003064: 17,2002           00004                           READ     LOSCALAR                              #  READ PRESENT TIME
025431,003065: 17,2003           54001                           TS       L                                     
025432,003066: 
025433,003067: 17,2004           74346                           MASK     LOW5                                  #  ONLY THE LOW 5 BITS MATTER
025434,003068: 17,2005           40000                           COM                                            
025435,003069: 17,2006           64746                           AD       BIT6                                  #  COMPUTE DELTA TIME TO NEXT T5 TICK
025436,003070: 17,2007           74346                           MASK     LOW5                                  
025437,003071: 17,2010           55270                           TS       RADDEL                                
025438,003072: 
025439,003073: 17,2011           67760                           AD       NEG2                                  #  IF A TICKING OF T5 IS NEAR, WAIT UNTIL
025440,003074: 17,2012           00006                           EXTEND                                         #  IT HAS TICKED.  THE MAX DELAY HERE WILL
025441,003075: 17,2013           62001                           BZMF     RADSTART   +1                         #  BE 937.5 MICROSECONDS
025442,003076: 
025443,003077: 17,2014           30002                           CA       Q                                     
025444,003078: 17,2015           00006                           EXTEND                                         #  IT IS SAFE TO SET THE ACTIVITY BIT NOW
025445,003079: 17,2016           05013                           WOR      CHAN13                                #  BECAUSE OF THE ABOVE LOOP
025446,003080: 
025447,003081: 17,2017           40001                           CS       L                                     
025448,003082: 17,2020           55267                           TS       RADTIME                               #  SAVE NEGATIVE TIME OF READ
025449,003083: 17,2021           04707                           TC       ISWRETRN                              
025450,003084: 
025451,003085: 
025452,003086: 17,2022           55266        C13STAL1           TS       C13FSAV                               
025453,003087: 
025454,003088: 17,2023           34750                           CA       BIT4                                  
025455,003089: 17,2024           00006                           EXTEND                                         
025456,003090: 17,2025           02013                           RAND     CHAN13                                
025457,003091: 17,2026           00006                           EXTEND                                         
025458,003092: 17,2027           12050                           BZF      TCQSTAL                               #  IF NO RADAR ACTIVITY, RETURN
025459,003093: 
025460,003094: 17,2030           12031        C13SLOOP           NOOP                                           #  *** NECESSARY TO PREVENT A TC TRAP ***
025461,003095: 17,2031           00006                           EXTEND                                         
025462,003096: 17,2032           00004                           READ     LOSCALAR                              
025463,003097: 17,2033           61267                           AD       RADTIME                               #  COMPUTE DELTA T SINCE LAST RADAR READ
025464,003098: 17,2034           64736                           AD       HALF                                  
025465,003099: 17,2035           64736                           AD       HALF                                  #  CORRECT FOR TIME OVERFLOW
025466,003100: 17,2036           56001                           XCH      L                                     
025467,003101: 
025468,003102: 17,2037           32053                           CA       90MSCALR                              
025469,003103: 17,2040           61270                           AD       RADDEL                                
025470,003104: 17,2041           00006                           EXTEND                                         
025471,003105: 17,2042           60001                           SU       L                                     

Page 572

025473,003107: 17,2043           00006                           EXTEND                                         
025474,003108: 17,2044           62050                           BZMF     TCQSTAL                               #  FORBIDDEN  ZONE IS PAST, RETURN
025475,003109: 
025476,003110: 17,2045           62054                           AD       -DTSCALR                              
025477,003111: 17,2046           00006                           EXTEND                                         
025478,003112: 17,2047           62030                           BZMF     C13SLOOP                              #  IN THE FORBIDDEN PERIOD, LOOP UNTIL O.K.
025479,003113: 
025480,003114: 17,2050           22002        TCQSTAL            LXCH     Q                                     #  ALL IS WELL, RETURN
025481,003115: 17,2051           31266                           CA       C13FSAV                               
025482,003116: 17,2052           52005                           DTCF                                           
025483,003117: 
025484,003118: 17,2053           00440        90MSCALR           OCT      440                                   #  90 MILLISEC IN SCALAR
025485,003119: 17,2054           77754        -DTSCALR           OCT      77754                                 #  -5.9375 MS IN SCALAR
025486,003120: 
025487,003121:    6000                                           SETLOC   FFTAG6                                
025488,003122:    6000                                           BANK                                           
025489,003123: 
025490,003124:    6022           37736        C13STALL           CAF      PRIO36                                #  PRIO36 = 36000 = FCADR (17,2000)
025491,003125:    6023           56004                           XCH      FBANK                                 
025492,003126:    6024           12022                           TCF      C13STAL1                              
025493,003127: 

Page 573

025495,003129:                                                                                                  #  THIS ROUTINE CHANGES THE LR POSITION, AND CHECKS THAT IT GOT THERE.
025496,003130: 
025497,003131: 25,3516                                           BANK     25                                    
025498,003132: 25,2000                                           SETLOC   P20S1                                 
025499,003133: 25,2000                                           BANK                                           
025500,003134: 25,3516                                           COUNT*   $$/RSUB                               
025501,003135: 25,3516           00004        LRPOS2             INHINT                                         
025502,003136: 
025503,003137: 25,3517           40110                           CS       RADMODES                              
025504,003138: 25,3520           74746                           MASK     LRPOSBIT                              #  SHOW DESIRED LR POSITION IS 2
025505,003139: 25,3521           26110                           ADS      RADMODES                              
025506,003140: 
025507,003141: 25,3522           34745                           CAF      BIT7                                  
025508,003142: 25,3523           00006                           EXTEND                                         
025509,003143: 25,3524           02033                           RAND     CHAN33                                #  SEE IF ALREADY THERE.
025510,003144: 25,3525           00006                           EXTEND                                         
025511,003145: 25,3526           13537                           BZF      RADNOOP                               
025512,003146: 
025513,003147: 25,3527           34737                           CAF      BIT13                                 
025514,003148: 25,3530           00006                           EXTEND                                         
025515,003149: 25,3531           05012                           WOR      CHAN12                                #  COMMAND TO POSITION 2
025516,003150: 25,3532           33572                           CAF      6SECS                                 #  START SCANNING FOR INBIT AFTER 7 SECS.
025517,003151: 25,3533           05214                           TC       WAITLIST                              
025518,003152: 25,3534  E7,1456                                  EBANK=   LOSCOUNT                              
025519,003153: 25,3534           03570 52067                     2CADR    LRPOSCAN                              
025520,003154: 
025521,003155: 25,3536           02357                           TC       ROADBACK                              
025522,003156: 
025523,003157: 25,3537           34753        RADNOOP            CAF      ONE                                   #  NO FURTHER ACTION REQUESTED
025524,003158: 25,3540           05214                           TC       WAITLIST                              
025525,003159: 25,3541  E7,1456                                  EBANK=   LOSCOUNT                              
025526,003160: 25,3541           03623 52067                     2CADR    RGOODEND                              
025527,003161: 
025528,003162: 25,3543           02357                           TC       ROADBACK                              
025529,003163: 
025530,003164: 25,3544           55077        LRPOSNXT           TS       SAMPLIM                               
025531,003165: 25,3545           05232                           TC       FIXDELAY                              #  SCAN ONCE PER SECOND 5 TIMES MAX AFTER
025532,003166: 25,3546           00144                           DEC      100        B-14                       #  INITIAL DELAY OF 7 SECONDS.
025533,003167: 
025534,003168: 25,3547           34745                           CAF      BIT7                                  #  SEE IF LR POS2 IS ON
025535,003169: 25,3550           00006                           EXTEND                                         
025536,003170: 25,3551           02033                           RAND     CHAN33                                
025537,003171: 25,3552           00006                           EXTEND                                         
025538,003172: 25,3553           13562                           BZF      LASTLRDT                              #  IF THERE, WAIT FINAL SECOND FOR BOUNCE.
025539,003173: 
025540,003174: 25,3554           11077                           CCS      SAMPLIM                               #  SEE IF MAX TIME UP.
025541,003175: 25,3555           13544                           TCF      LRPOSNXT                              
025542,003176: 
025543,003177: 25,3556           44737                           CS       BIT13                                 #  IF TIME UP, DISABLE COMMAND AND ALARM.
025544,003178: 25,3557           00006                           EXTEND                                         

Page 574

025546,003180: 25,3560           03012                           WAND     CHAN12                                
025547,003181: 25,3561           13630                           TCF      RDBADEND                              
025548,003182: 
025549,003183: 25,3562           35000        LASTLRDT           CA       2SECS                                 #  WAIT TWO SECONDS AFTER RECEIPT OF INBIT
025550,003184: 25,3563           05235                           TC       VARDELAY                              #  TO WAIT FOR ANTENNA BOUNCE TO DIE OUT.
025551,003185: 
025552,003186: 25,3564           44737                           CS       BIT13                                 #  REMOVE COMMAND
025553,003187: 25,3565           00006                           EXTEND                                         
025554,003188: 25,3566           03012                           WAND     CHAN12                                
025555,003189: 25,3567           13623                           TCF      RGOODEND                              
025556,003190: 
025557,003191: 25,3570           34751        LRPOSCAN           CAF      FOUR                                  
025558,003192: 25,3571           13544                           TCF      LRPOSNXT                              
025559,003193: 25,3572           01130        6SECS              DEC      600        B-14                       
025560,003194: 
025561,003195: 25,3573           04616        LRP2COMM           TC       BANKCALL                              
025562,003196: 25,3574           53516                           CADR     LRPOS2                                
025563,003197: 25,3575           04616                           TC       BANKCALL                              
025564,003198: 25,3576           17713                           CADR     RADSTALL                              
025565,003199: 25,3577           03601                           TC       LP2ALM                                
025566,003200: 25,3600           13612                           TCF      GOPINNER                              
025567,003201: 
025568,003202: 25,3601           05600        LP2ALM             TC       ALARM                                 
025569,003203: 25,3602           00523                           OCT      523                                   
025570,003204: 25,3603           13612                           TCF      GOPINNER                              
025571,003205: 
025572,003206: 25,3604           35016        V59GP63            CA       EBANK7                                
025573,003207: 25,3605           54003                           TS       EBANK                                 
025574,003208: 25,3606  E7,1427                                  EBANK=   RPCRTIME                              
025575,003209: 25,3606           34733                           CA       POSMAX                                
025576,003210: 25,3607           55427                           TS       RPCRTIME                              
025577,003211: 25,3610           44736                           CS       BIT14                                 
025578,003212: 25,3611           55430                           TS       RPCRTQSW                              
025579,003213: 25,3612           04635        GOPINNER           TC       POSTJUMP                              
025580,003214: 25,3613           21051                           CADR     PINBRNCH                              
025581,003215: 

Page 575

025583,003217:                                                                                                  #           SEQUENCES TO TERMINATE RR OPERATIONS.
025584,003218: 
025585,003219: 25,3614           34745        ENDRADAR           CAF      RCDUFBIT                              #  PROLOG TO CHECK RR CDU FAIL BEFORE END.
025586,003220: 25,3615           70110                           MASK     RADMODES                              
025587,003221: 25,3616           10000                           CCS      A                                     
025588,003222: 25,3617           13623                           TCF      RGOODEND                              
025589,003223: 25,3620           13630                           TCF      RDBADEND                              
025590,003224: 25,3621           44755                 -2        CS       ZERO                                  #  RGOODEND WHEN NOT UNDER WAITLIST CONTROL
025591,003225: 25,3622           54332                           TS       RUPTAGN                               
025592,003226: 
025593,003227: 25,3623           34752        RGOODEND           CAF      TWO                                   
025594,003228: 25,3624           04635                           TC       POSTJUMP                              
025595,003229: 25,3625           17664                           CADR     GOODEND                               
025596,003230: 
025597,003231: 25,3626           44755                 -2        CS       ZERO                                  #  RDBADEND WHEN NOT UNDER WAITLIST.
025598,003232: 25,3627           54332                           TS       RUPTAGN                               
025599,003233: 25,3630           34752        RDBADEND           CAF      TWO                                   
025600,003234: 25,3631           04635                           TC       POSTJUMP                              
025601,003235: 25,3632           17661                           CADR     BADEND                                
025602,003236: 
025603,003237: 25,3633     6257               BIN3               EQUALS   THREE                                 
025604,003238: 

Page 576

025606,003240:                                                                                                  #  PROGRAM NAME_ LPS20.1 VECTOR EXTRAPOLATION AND LOS COMPUTATION
025607,003241:                                                                                                  #  MOD. NO.  2      BY  J.D. COYNE    SDC    DATE   12-7-66
025608,003242: 
025609,003243: 
025610,003244:                                                                                                  #  FUNCTIONAL DESCRIPTION_
025611,003245: 
025612,003246:                                                                                                  #  1) EXTRAPOLATE THE LEM AND CSM VECTORS IN ACCORDANCE WITH THE TIME REFERED TO IN CALLER + 1.
025613,003247:                                                                                                  #  2) COMPUTES THE LOS VECTOR TO THE CSM, CONVERTS IT TO STABLE MEMBER COORDINATES AND STORES IT IN RRTARGET.
025614,003248:                                                                                                  #  3) COMPUTES THE MAGNITUDE OF THE LOS VECTOR AND STORES IT IN MLOSV
025615,003249: 
025616,003250: 
025617,003251:                                                                                                  #  CALLING SEQUENCE       CALL
025618,003252:                                                                                                  #                                LPS20.1
025619,003253: 
025620,003254:                                                                                                  #  SUBROUTINES CALLED_
025621,003255: 
025622,003256:                                                                                                  #  LEMPREC,CSMPREC
025623,003257: 
025624,003258: 
025625,003259:                                                                                                  #  NORMAL EXIT_ RETURN TO CALLER + 2
025626,003260: 
025627,003261: 
025628,003262:                                                                                                  #  ERROR EXITS_ NONE
025629,003263: 
025630,003264: 
025631,003265:                                                                                                  #  ALARMS_ NONE
025632,003266: 
025633,003267: 
025634,003268:                                                                                                  #  OUTPUT_
025635,003269: 
025636,003270:                                                                                                  #  LOS VECTOR (HALF UNIT) IN SM COORDINATES STORED IN RRTARGET
025637,003271:                                                                                                  #  MAGNITUDE OF THE LOS VECTOR (METERS SCALED B-29) STORED IN MSLOV
025638,003272:                                                                                                  #  RRNBSW CLEARED
025639,003273: 
025640,003274: 
025641,003275:                                                                                                  #  INITIALIZED ERASEABLE
025642,003276: 
025643,003277:                                                                                                  #  TDEC1 MUST CONTAIN THE TIME FOR EXTRAPOLATION
025644,003278:                                                                                                  #  SEE ORBITAL INTEGRATION ROUTINE
025645,003279: 
025646,003280: 
025647,003281:                                                                                                  #  DEBRIS_
025648,003282: 
025649,003283:                                                                                                  #  MPAC DESTROYED BY THIS ROUTINE
025650,003284: 
025651,003285: 23,2335                                           BANK     23                                    
025652,003286: 24,2000                                           SETLOC   P20S                                  
025653,003287: 24,2000                                           BANK                                           

Page 577

025655,003289: 24,3340                                           COUNT*   $$/LPS20                              
025656,003290: 
025657,003291: 24,3340           43020        LPS20.1            STQ      BOFF                                  
025658,003292: 24,3341           01755                                    LS21X                                 
025659,003293: 24,3342           01343                                    LOSCMFLG                              #  LOSCMFLG = 0 MEANS NOT CALLED BY R21
025660,003294: 24,3343           51347                                    LMINT                                 #  SO CALL LEMCONIC TO GET LM STATE
025661,003295: 24,3344           77614                           BON                                            #  IF IN R21 AND ON LUNAR SURFACE
025662,003296: 24,3345           04307                                    SURFFLAG                              #  DON'T CALL LEMCONIC
025663,003297: 24,3346           51357                                    CSMINT                                
025664,003298: 24,3347           77624        LMINT              CALL                                           
025665,003299: 24,3350           27077                                    LEMCONIC                              #  EXTRAPOLATE LEM
025666,003300: 24,3351           77775                           VLOAD                                          
025667,003301: 24,3352           00001                                    RATT                                  
025668,003302: 24,3353           26343                           STOVL    LMPOS                                 #  SAVE LM POSITION B-29
025669,003303: 24,3354           00007                                    VATT                                  
025670,003304: 24,3355           16351                           STODL    LMVEL                                 #  SAVE LM VELOCITY B-7
025671,003305: 24,3356           00015                                    TAT                                   
025672,003306: 24,3357           34041        CSMINT             STCALL   TDEC1                                 
025673,003307: 24,3360           27065                                    CSMCONIC                              #   EXTRAPOLATE CSM
025674,003308: 24,3361           52375                           VLOAD    VSU                                   #  COMPUTE RELATIVE VELOCITY V(CSM) - V(LM)
025675,003309: 24,3362           00007                                    VATT                                  
025676,003310: 24,3363           02351                                    LMVEL                                 
025677,003311: 24,3364           00017                           STORE    VELLOS                                
025678,003312: 24,3365           76521                           MXV      VSL1                                  
025679,003313: 24,3366           01732                                    REFSMMAT                              
025680,003314: 24,3367           77776                           EXIT                                           
025681,003315: 24,3370           06032                           TC       KILLTASK                              #  KILL THE TASK WHICH CALLS DODES SINCE
025682,003316: 24,3371           52573                           CADR     DESLOOP    +2                         #  STORING INTO ERASEABLES DODES USES
025683,003317: 24,3372           06051                           TC       INTPRET                               
025684,003318: 24,3373           25757                           STOVL    LOSVEL                                
025685,003319: 24,3374           00001                                    RATT                                  
025686,003320: 24,3375           43051                           VSU      BOFF                                  
025687,003321: 24,3376           02343                                    LMPOS                                 
025688,003322: 24,3377           00350                                    RNDVZFLG                              
025689,003323: 24,3400           51405                                    NOTSHIFT                              
025690,003324: 24,3401           00025                           STORE    RRANGE                                #  RANGE FOR POSSIBLE ALARM B-29
025691,003325: 24,3402           54204                           BOVB     VSL                                   
025692,003326: 24,3403           57735                                    TCDANZIG                              
025693,003327: 24,3404           20212                                    9D                                    
025694,003328: 24,3405           41056        NOTSHIFT           UNIT     BOVB                                  #  IF OVERFLOW , RANGE MUST BE GREATER
025695,003329: 24,3406           50104                                    526ALARM                              #  THAN 400 N. M.
025696,003330: 24,3407           76521                           MXV      VSL1                                  
025697,003331: 24,3410           01732                                    REFSMMAT                              #  CONVERT TO STABLE MEMBER
025698,003332: 24,3411           15101                           STODL    RRTARGET                              
025699,003333: 24,3412           00045                                    36D                                   #  SAVE MAGNITUDE OF LOS VECTOR FOR
025700,003334: 24,3413           01765                           STORE    MLOSV                                 #  VELOCITY CORRECTION IN DESIGNATE
025701,003335: 24,3414           77614                           CLRGO                                          
025702,003336: 24,3415           00231                                    RRNBSW                                
025703,003337: 24,3416           01755                                    LS21X                                 
025704,003338: 24,3417                        RRANGE             EQUALS   20D                                   

Page 578

025706,003340: 24,3417                        VELLOS             EQUALS   14D                                   
025707,003341: 

Page 579

025709,003343:                                                                                                  #  PROGRAM NAME : LPS20.2 400 N. MI. RANGE CHECK
025710,003344:                                                                                                  #  MOD. NO. 2   BY J.D. COYNE   SDC    DATE  12-7-66
025711,003345: 
025712,003346: 
025713,003347:                                                                                                  #  FUNCTIONAL DESCRIPTION_
025714,003348: 
025715,003349:                                                                                                  #  COMPARES THE MAGNITUDE OF THE LOS VECTOR TO 400 NM
025716,003350: 
025717,003351: 
025718,003352:                                                                                                  #  CALLING SEQUENCE       CALL
025719,003353:                                                                                                  #                                LPS20.2
025720,003354: 
025721,003355: 
025722,003356:                                                                                                  #  SUBROUTINES CALLED_ NONE
025723,003357: 
025724,003358: 
025725,003359:                                                                                                  #  NORMAL EXIT _ RETURN TO CALLER +1, MPAC EQ 0 (RANGE 400NM OR LESS.)
025726,003360: 
025727,003361: 
025728,003362:                                                                                                  #  ERROR EXITS _ RETURN TO CALLER +1, MPAC EQ 1 (RANGE GREATER THAN 400NM)
025729,003363: 
025730,003364: 
025731,003365:                                                                                                  #  ALARMS_ NONE
025732,003366: 
025733,003367: 
025734,003368:                                                                                                  #  OUTPUT_ NONE
025735,003369: 
025736,003370: 
025737,003371:                                                                                                  #  INITIALIZED ERASEABLE_
025738,003372: 
025739,003373:                                                                                                  #  PDL 36D MUST CONTAIN THE MAGNITUDE OF THE VECTOR
025740,003374:                                                                                                  #  DEBRIS
025741,003375: 
025742,003376:                                                                                                  #  MPAC DESTROYED BY THIS ROUTINE
025743,003377: 
025744,003378: 25,2000                                           SETLOC   P20S1                                 
025745,003379: 25,2000                                           BANK                                           
025746,003380: 25,3633                                           COUNT*   $$/LPS20                              
025747,003381: 
025748,003382: 25,3633           45345        LPS20.2            DLOAD    DSU                                   
025749,003383: 25,3634           01765                                    MLOSV                                 #  MAGNITUDE OF LOS
025750,003384: 25,3635           13646                                    FHNM                                  #  OVER 400NM  _
025751,003385: 25,3636           77644                           BPL                                            
025752,003386: 25,3637           53642                                    TOFAR                                 
025753,003387: 25,3640           43535                           SLOAD    RVQ                                   
025754,003388: 25,3641           06520                                    ZERO/SP                               
025755,003389: 25,3642           43535        TOFAR              SLOAD    RVQ                                   
025756,003390: 25,3643           13645                                    ONE/SP                                
025757,003391: 25,3644           00001        ONE/SP             DEC      1          B-14                       

Page 580

025759,003393: 25,3645           26467 00000  FHNM               2DEC     740800     B-20                       #  400 NAUTICAL MILES IN METERS B-20
025760,003394: 

Page 581

025762,003396:                                                                                                  #  PROGRAM NAME: LRS22.1 (DATA READ SUBROUTINE 1)
025763,003397:                                                                                                  #  MOD. NO.: 1       BY:  P. VOLANTE  SDC           DATE:  11-15-66
025764,003398: 
025765,003399: 
025766,003400:                                                                                                  #  FUNCTIONAL DESCRIPTION
025767,003401: 
025768,003402:                                                                                                  #  1) READS RENDEZVOUS RADAR RANGE AND RANGE-RATE,TRUNION AND SHAFT ANGLES,THREE CDU VALUES AND TIME. CONVERTS THIS
025769,003403:                                                                                                  #  DATA AND LEAVES IT FOR THE MEASUREMENT INCORPORATION ROUTINE (LSR22.3). CHECKS FOR THE RR DATA GOOD DISCRETE,FOR
025770,003404:                                                                                                  #  RR REPOSITION AND RR CDU FAIL
025771,003405: 
025772,003406:                                                                                                  #  2) COMPARES RADAR LOS WITH LOS COMPUTED FROM STATE VECTORS TO SEE IF THEY ARE WITHIN THREE DEGREES
025773,003407: 
025774,003408: 
025775,003409:                                                                                                  #  CALLING SEQUENCE: BANKCALL FOR LRS22.1
025776,003410: 
025777,003411: 
025778,003412:                                                                                                  #  SUBROUTINES CALLED:
025779,003413: 
025780,003414:                                                                                                  #         RRRDOT   LPS20.1
025781,003415:                                                                                                  #         RRRANGE  BANKCALL
025782,003416:                                                                                                  #         RADSTALL CDULOGIC
025783,003417:                                                                                                  #         RRNB     SMNB
025784,003418:                                                                                                  #  NORMAL EXIT: RETURN TO CALLER+1 WITH MPAC SET TO +0
025785,003419: 
025786,003420: 
025787,003421:                                                                                                  #  ERROR EXITS: RETURN TO CALLER+1 WITH ERROR CODE STORED IN MPAC AS FOLLOWS:
025788,003422: 
025789,003423:                                                                                                  #               00001-ERROR EXIT 1-RR DATA NO GOOD (NO RR DATA GOOD DISCRETE OR RR CDU FAIL OR RR REPOSITION)
025790,003424:                                                                                                  #               00002-ERROR EXIT 2-RR LOS NOT WITHIN THREE DEGREES OF LOS COMPUTED FROM STATE VECTORS
025791,003425: 
025792,003426: 
025793,003427:                                                                                                  #  ALARMS:  521-COULD NOT READ RADAR DATA (RR DATA GOOD DISCRETE NOT PRESENT BEFORE AND AFTER READING THE RADAR)
025794,003428:                                                                                                  #   (THIS ALARM IS ISSUED BY THE RADAREAD SUBROUTINE WHICH IS ENTERED FROM A RADARUPT)
025795,003429: 
025796,003430: 
025797,003431:                                                                                                  #  OUTPUT: RRLOSVEC- THE RR LINE-OF-SIGHT VECTOR(USED BY LRS22.2)-A HALF-UNIT VECTOR
025798,003432:                                                                                                  #          RM- THE RR RANGE READING(TO THE CSM) DP, IN METERS SCALED B-29(USED BY LRS22.2 AND LRS22.3)
025799,003433: 
025800,003434:                                                                                                  #     ALL OF THE FOLLOWING OUTPUTS ARE USED BY LRS22.3:
025801,003435: 
025802,003436:                                                                                                  #          RDOTM- THE RR RANGE-RATE READING,DP, IN METERS PER CENTISECOND, SCALED B-7
025803,003437:                                                                                                  #          RRTRUN-RR TRUNION ANGLE,DP,IN REVOLUTIONS,SCALED B0
025804,003438:                                                                                                  #          RRSHAFT-RR SHAFT ANGLE,DP,IN REVOLUTIONS,SCALED B0
025805,003439:                                                                                                  #          AIG,AMG,AOG-THE CDU ANGLES,THREE SP WORDS
025806,003440:                                                                                                  #          MKTIME-THE TIME OF THE RR READING,DP,IN CENTISECONDS
025807,003441: 
025808,003442: 
025809,003443:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:
025810,003444: 
025811,003445:                                                                                                  #     RNRAD,THE RADAR READ COUNTER FROM WHICH IS OBTAINED:

Page 582

025813,003447:                                                                                                  #      1)RR RANGE SCALED 9.38 FT. PER BIT ON THE LOW SCALE AND 75.04 FT. PER BIT ON THE HIGH SCALE
025814,003448:                                                                                                  #      2)RR RANGE RATE,SCALED .6278 FT./SEC. PER BIT
025815,003449: 
025816,003450:                                                                                                  #     THE CDU ANGLES FROM CDUX,CDUY,CDUZ AND TIME1 AND TIME2
025817,003451: 
025818,003452: 
025819,003453:                                                                                                  #  DEBRIS:  LRS22.1X,A,L,Q,PUSHLIST
025820,003454: 
025821,003455: 
025822,003456: 32,2217                                           BANK     32                                    
025823,003457: 32,2000                                           SETLOC   LRS22                                 
025824,003458: 32,2000                                           BANK                                           
025825,003459: 32,2217                                           COUNT*   $$/LRS22                              
025826,003460: 
025827,003461: 32,2217           04645        LRS22.1            TC       MAKECADR                              
025828,003462: 32,2220           55737                           TS       LRS22.1X                              
025829,003463: 32,2221           05527                           TC       DOWNFLAG                              
025830,003464: 32,2222           00120                           ADRES    RNGSCFLG                              
025831,003465: 32,2223           00004                           INHINT                                         
025832,003466: 32,2224           34751                           CAF      BIT3                                  
025833,003467: 32,2225           00006                           EXTEND                                         #  GET RR RANGE SCALE
025834,003468: 32,2226           02033                           RAND     CHAN33                                #  FROM CHANNEL 33 BIT 3
025835,003469: 32,2227           54001                           TS       L                                     
025836,003470: 32,2230           44751                           CS       RRRSBIT                               
025837,003471: 32,2231           70110                           MASK     RADMODES                              
025838,003472: 32,2232           60001                           AD       L                                     
025839,003473: 32,2233           54110                           TS       RADMODES                              
025840,003474: 32,2234           00003                           RELINT                                         
025841,003475: 32,2235           04616        READRDOT           TC       BANKCALL                              
025842,003476: 32,2236           53070                           CADR     RRRDOT                                #  READ RANGE-RATE (ONE SAMPLE)
025843,003477: 32,2237           04616                           TC       BANKCALL                              
025844,003478: 32,2240           17713                           CADR     RADSTALL                              #  WAIT FOR DATA READ COMPLETION
025845,003479: 32,2241           12402                           TCF      EREXIT1                               #  COULD NOT READ RADAR-ERROR EXIT 1
025846,003480: 
025847,003481: 32,2242           00004                           INHINT                                         #  NO INTERRUPTS WHILE READING TIME AND CDU
025848,003482: 32,2243           53105                           DXCH     TIMEHOLD                              #  SET MARK TIME EQUAL TO THE MID-POINT
025849,003483: 32,2244           52162                           DXCH     MPAC       +5                         #  TEMP BUFFER FOR DOWNLINK
025850,003484: 32,2245           53101                           DXCH     SAMPLSUM                              #  SAVE RANGE-RATE READING
025851,003485: 32,2246           53747                           DXCH     RDOTMSAV                              
025852,003486: 32,2247           00006                           EXTEND                                         
025853,003487: 32,2250           30034                           DCA      CDUY                                  #  SAVE ICDU ANGLES
025854,003488: 32,2251           52160                           DXCH     MPAC       +3                         #  TEMP BUFFER FOR DOWNLINK
025855,003489: 32,2252           30032                           CA       CDUX                                  
025856,003490: 32,2253           54156                           TS       MPAC       +2                         #  TEMP BUFFER FOR DOWNLINK
025857,003491: 32,2254           00006                           EXTEND                                         
025858,003492: 32,2255           30025                           DCA      TIME2                                 #   SAVE TIME
025859,003493: 32,2256           52155                           DXCH     MPAC                                  #  SAVE TIME OF CDY READINGS IN MPAC
025860,003494: 32,2257           00006                           EXTEND                                         
025861,003495: 32,2260           30036                           DCA      CDUT                                  #  SAVE TRUNION AND SHAFT ANGLES FOR RRNB
025862,003496: 32,2261           53107                           DXCH     TANG                                  

Page 583

025864,003498: 32,2262           00003                           RELINT                                         
025865,003499: 32,2263           04616                           TC       BANKCALL                              
025866,003500: 32,2264           53072                           CADR     RRRANGE                               #  READ RR RANGE (ONE SAMPLE)
025867,003501: 32,2265           04616                           TC       BANKCALL                              
025868,003502: 32,2266           17713                           CADR     RADSTALL                              #  WAIT FOR READ COMPLETE
025869,003503: 32,2267           02376                           TC       CHEXERR                               #  CHECK FOR ERRORS DURING READ
025870,003504: 32,2270           00004                           INHINT                                         #  COPY CYCLE FOR MARK DATA ON DOWNLINK
025871,003505: 32,2271           00006                           EXTEND                                         
025872,003506: 32,2272           31331                           DCA      DNRRANGE                              #  RANGE,RANGE RATE (RAW DATA)
025873,003507: 32,2273           53761                           DXCH     RANGRDOT                              
025874,003508: 32,2274           52162                           DXCH     MPAC       +5                         
025875,003509: 32,2275           53755                           DXCH     MKTIME                                #  MARK TIME
025876,003510: 32,2276           52160                           DXCH     MPAC       +3                         
025877,003511: 32,2277           53460                           DXCH     AIG                                   #  CDUY, CDUZ
025878,003512: 32,2300           00006                           EXTEND                                         
025879,003513: 32,2301           31107                           DCA      TANG                                  #  PRESERVE TANG
025880,003514: 32,2302           53753                           DXCH     TANGNB                                #  TRUNNION AND SHAFT ANGLES
025881,003515: 32,2303           30156                           CA       MPAC       +2                         
025882,003516: 32,2304           55461                           TS       AOG                                   #  CDUX
025883,003517: 32,2305           40110                           CS       FLGWRD12                              #  IS RR READING HIGH SCALE
025884,003518: 32,2306           74751                           MASK     RRRSBIT                               
025885,003519: 32,2307           10000                           CCS      A                                     
025886,003520: 32,2310           34733                           CA       POSMAX                                #  NO- LOW SCALE (SET CONFIG) AGSCODE=17777
025887,003521: 32,2311           67750                           AD       -BIT14                                #  YES- HI SCALE (SET CONFIG) AGSCODE=57777
025888,003522: 32,2312           55073                           TS       AGSCODE                               #  SET AGS CODE WORD
025889,003523: 32,2313           06051                           TC       INTPRET                               
025890,003524: 32,2314           14025                           STODL    20D                                   #  SAVE TIME OF CDU READINGS IN 20D
025891,003525: 32,2315           03747                                    RDOTMSAV                              #  CONVERT ROOT UNITS AND SCALING
025892,003526: 32,2316           57261                           SL       DMPR                                  #  START WITH READING SCALED B-28, -.6278
025893,003527: 32,2317           20217                                    14D                                   #  FT./SECOND PER BIT
025894,003528: 32,2320           24002                                    RDOTCONV                              #  END WITH METERS/CENTISECOND, B-7
025895,003529: 32,2321           03751                           STORE    RDOTM                                 
025896,003530: 32,2322           47135                           SLOAD    RTB                                   
025897,003531: 32,2323           01107                                    TANG                                  #  GET TRUNION ANGLE
025898,003532: 32,2324           21560                                    CDULOGIC                              #  CONVERT TO DP ONES COMP. IN REVOLUTIONS
025899,003533: 32,2325           03734                           STORE    RRTRUN                                #  AND SAVE FOR TMI ROUTINE (LSR22.3)
025900,003534: 32,2326           47135                           SLOAD    RTB                                   
025901,003535: 32,2327           01110                                    TANG       +1                         #  DITTO FOR SHAFT ANGLE
025902,003536: 32,2330           21560                                    CDULOGIC                              
025903,003537: 32,2331           17736                           STODL    RRSHAFT                               
025904,003538: 32,2332           01101                                    SAMPLSUM                              
025905,003539: 32,2333           66405                           DMP      SL2R                                  #  CONVERT UNITS AND SCALING OF RANGE
025906,003540: 32,2334           24004                                    RANGCONV                              #  PER BIT, END WITH METERS,SCALED -29
025907,003541: 32,2335           37757                           STCALL   RM                                    
025908,003542: 32,2336           46041                                    RRNB                                  #  COMPUTE RADAR LOS USING RRNB
025909,003543: 32,2337           17741                           STODL    RRBORSIT                              #  AND SAVE
025910,003544: 32,2340           00025                                    20D                                   
025911,003545: 32,2341           34041                           STCALL   TDEC1                                 #  GET STATE VECTOR LOS AT TIME OF CDU READ
025912,003546: 32,2342           51340                                    LPS20.1                               
025913,003547: 32,2343           77776                           EXIT                                           

Page 584

025915,003549: 32,2344           31457                           CA       AIG                                   #  STORE IMU CDU ANGLES AT MARKTIME
025916,003550: 32,2345           54765                           TS       CDUSPOT                               #  IN CDUSPOT FOR TRG*SMNB
025917,003551: 32,2346           31460                           CA       AMG                                   
025918,003552: 32,2347           54767                           TS       CDUSPOT    +2                         
025919,003553: 32,2350           31461                           CA       AOG                                   
025920,003554: 32,2351           54771                           TS       CDUSPOT    +4                         
025921,003555: 32,2352           06051                           TC       INTPRET                               
025922,003556: 32,2353           45175                           VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
025923,003557: 32,2354           01101                                    RRTARGET                              
025924,003558: 32,2355           47656                                    TRG*SMNB                              #  ROTATE LOS AT MARKTIME FROM SM TO NB.
025925,003559: 32,2356           77641                           DOT                                            #  DOT WITH RADAR LOS TO GET ANGLE
025926,003560: 32,2357           03741                                    RRBORSIT                              
025927,003561: 32,2360           65552                           SL1      ACOS                                  #  BETWEEN THEM
025928,003562: 32,2361           01045                           STORE    DSPTEM1                               #  STORE FOR POSSIBLE DISPLAY
025929,003563: 32,2362           50025                           DSU      BMN                                   #  IS IT LESS THAN 3 DEGREES
025930,003564: 32,2363           24406                                    THREEDEG                              
025931,003565: 32,2364           64371                                    NORMEXIT                              #  YES-NORMAL EXIT
025932,003566: 
025933,003567: 32,2365           77776                           EXIT                                           #  ERROR EXIT 2
025934,003568: 32,2366           34752                           CAF      BIT2                                  #  SET ERROR CODE
025935,003569: 32,2367           54154                           TS       MPAC                                  
025936,003570: 32,2370           12374                           TCF      OUT22.1                               
025937,003571: 
025938,003572: 32,2371           77776        NORMEXIT           EXIT                                           #  NORMAL EXIT-SET MPAC EQUAL ZERO
025939,003573: 32,2372           34755                           CAF      ZERO                                  
025940,003574: 32,2373           54154                           TS       MPAC                                  
025941,003575: 32,2374           31737        OUT22.1            CAE      LRS22.1X                              #  EXIT FROM LRS22.1
025942,003576: 32,2375           04640                           TC       BANKJUMP                              
025943,003577: 32,2376           30101        CHEXERR            CAE      FLAGWRD5                              
025944,003578: 32,2377           74742                           MASK     RNGSCBIT                              
025945,003579: 32,2400           10000                           CCS      A                                     #  CHECK IF RANGE SCALE CHANGED
025946,003580: 32,2401           12235                           TCF      READRDOT                              #  YES-TAKE ANOTHER READING
025947,003581: 
025948,003582: 32,2402           34753        EREXIT1            CA       BIT1                                  #  SET ERROR CODE
025949,003583: 32,2403           54154                           TS       MPAC                                  
025950,003584: 32,2404           02374                           TC       OUT22.1                               
025951,003585: 32,2405           00210 21042  THREEDEG           2DEC     .008333333                            #  THREE DEGREES,SCALED  REVS,B0
025952,003586: 

Page 585

025954,003588:                                                                                                  #  PROGRAM NAME - LRS22.2 (DATA READ SUBROUTINE 2)
025955,003589: 
025956,003590: 
025957,003591:                                                                                                  #  MOD. NO. : 1       BY: P VOLANTE  SDC           DATE  4-11-67
025958,003592: 
025959,003593:                                                                                                  #  FUNCTIONAL DESCRIPTION-
025960,003594: 

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

025962,003596:                                                                                                  #     2) CHECKS IF THE RR LOS (I.E. THE RADAR BORESIGHT VECTOR) IS WITHIN 30 DEGREES OF THE LM +Z AXIS
025963,003597: 
025964,003598: 
025965,003599:                                                                                                  #  CALLING SEQUENCE- BANKCALL FOR LRS22.2
025966,003600: 
025967,003601: 
025968,003602:                                                                                                  #  SUBROUTINES CALLED: G+N,AUTO   SETMAXDB
025969,003603:                                                                                                  #  NORMAL EXIT - RETURN TO CALLER WITH MPAC SET TO +0 (VIA SWRETURN)
025970,003604: 
025971,003605: 
025972,003606:                                                                                                  #  ERROR EXIT - RETURN TO CALLER WITH MPAC SET TO 00001 -RADAR LOS NOT WITHIN 30 DEGREES OF LM +Z AXIS
025973,003607: 
025974,003608: 
025975,003609:                                                                                                  #  ALARMS - NONE                                                            IN THE AUTO MODE
025976,003610: 
025977,003611: 
025978,003612:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
025979,003613:                                                                                                  #       RRLOSVEC - THE RR LINE-OF-SIGHT VECTOR-A HALF UNIT VECTOR COMPUTED BY LRS22.1
025980,003614:                                                                                                  #       RM - RR RANGE, METERS B-29, FROM LRS22.1
025981,003615:                                                                                                  #       BIT 14 CHANNEL 31 -INDICATES AUTOPILOT IS IN AUTO MODE
025982,003616: 
025983,003617: 
025984,003618:                                                                                                  #  DEBRIS -  A,L,Q MPAC -PUSHLIST AND PUSHLOC ARE NOT CHANGED BY THIS ROUTINE
025985,003619: 
025986,003620: 
025987,003621: 24,2000                                           SETLOC   P20S                                  
025988,003622: 24,2000                                           BANK                                           
025989,003623: 24,3417           04645        LRS22.2            TC       MAKECADR                              
025990,003624: 24,3420           55737                           TS       LRS22.1X                              
025991,003625: 24,3421           06051                           TC       INTPRET                               
025992,003626:                                                                                                  #  CHECK IF RR LOS IS WITHIN 30 DEG OF 
025993,003627: 24,3422           65545        30DEGCHK           DLOAD    ACOS                                  #  THE SPACECRAFT +Z AXIS
025994,003628: 24,3423           03745                                    RRBORSIT   +4                         #  BY TAKING ARCCOS OF Z-COMP. OF THE RR
025995,003629:                                                                                                  #  LOS VECTOR,A HALF UNIT VECTOR
025996,003630:                                                                                                  #  IN NAV BASE AXES)
025997,003631: 24,3424           50025                           DSU      BMN                                   
025998,003632: 24,3425           11441                                    30DEG                                 
025999,003633: 24,3426           51433                                    OKEXIT                                #  NORMAL EXIT-WITHIN 30 DEG.
026000,003634: 24,3427           77776                           EXIT                                           #  ERROR EXIT-NOT WITHIN 30 DEG.
026001,003635: 24,3430           34753                           CAF      BIT1                                  #  SET ERROR CODE IN MPAC
026002,003636: 24,3431           54154                           TS       MPAC                                  
026003,003637: 24,3432           13436                           TCF      OUT22.2                               
026004,003638: 24,3433           77776        OKEXIT             EXIT                                           #  NORMAL EXIT-SET MPAC = ZERO
026005,003639: 

Page 586

026007,003641: 24,3434           34755                           CAF      ZERO                                  
026008,003642: 24,3435           54154                           TS       MPAC                                  
026009,003643: 24,3436           31737        OUT22.2            CAE      LRS22.1X                              
026010,003644: 24,3437           04640                           TC       BANKJUMP                              
026011,003645: 
026012,003646: 
026013,003647: 24,3440           02525 12525  30DEG              2DEC     .083333333                            #  THIRTY DEGREES,SCALED REVS,B0
026014,003648: 

Page 587

026016,003650:                                                                                                  #  PROGRAM NAME - LSR22.3                                                  DATE - 29 MAY 1967
026017,003651:                                                                                                  #  MOD. NO 3                                                               LOG SECTION - P20-25
026018,003652:                                                                                                  #  MOD. BY - DANFORTH                                                      ASSEMBLY LEMP20S REV 10
026019,003653: 
026020,003654:                                                                                                  #  FUNCTIONAL DESCRIPTION
026021,003655: 
026022,003656:                                                                                                  #  THIS ROUTINE COMPUTES THE B-VECTORS AND DELTA Q FOR EACH OF THE QUANTITIES MEASURED BY THE RENDEZVOUS
026023,003657:                                                                                                  #  RADAR.(RANGE,RANGE RATE,SHAFT AND TRUNNION ANGLES). THE ROUTINE CALLS THE INCORP1 AND INCORP2 ROUTINES
026024,003658:                                                                                                  #  WHICH COMPUTE THE DEVIATIONS AND CORRECT THE STATE VECTOR.
026025,003659: 
026026,003660:                                                                                                  #  CALLING SEQUENCE
026027,003661:                                                                                                  #  THIS ROUTINE IS PART OF P20 RENDEZVOUS NAVIGATION FOR THE LM COMPUTER O NLY. THE ROUTINE IS ENTERED FROM
026028,003662:                                                                                                  #  R22LEM  ONLY AND RETURNS DIRECTLY TO R22LEM  FOLLOWING SUCCESSFUL INCORPORATION OF MEASURED DATA. IF THE
026029,003663:                                                                                                  #  COMPUTED STATE VECTOR DEVIATIONS EXCEED THE MAXIMUM PERMITTED. THE ROUTINE RETURNS TO R22LEM  TO DISPLAY
026030,003664:                                                                                                  #  THE DEVIATIONS. IF THE ASTRONAUT ACCEPTS THE DATA R22LEM  RETURNS TO    LSR22.3 TO INCORPORATE THE
026031,003665:                                                                                                  #  DEVIATIONS INTO THE STATE VECTOR. IF THE ASTRONAUT REJECTS THE DEVIATIONS, NO MORE MEASUREMENTS ARE
026032,003666:                                                                                                  #  PROCESSED FOR THIS MARK,I.E.,R22LEM  GETS THE NEXT MARK.
026033,003667: 
026034,003668: 
026035,003669:                                                                                                  #  SUBROUTINES CALLED
026036,003670:                                                                                                  #   WLINIT     LGCUPDTE     INTEGRV     INCORP1     ARCTAN
026037,003671:                                                                                                  #   GETULC     RARARANG     INCORP2     NBSM        INTSTALL
026038,003672: 
026039,003673:                                                                                                  #  OUTPUT
026040,003674:                                                                                                  #   CORRECTED LM OR CSM STATE VECTOR (PERMANENT)
026041,003675:                                                                                                  #   NUMBER OF MARKS INCORPORATED IN MARKCTR
026042,003676:                                                                                                  #   MAGNITUDE OF POSITION DEVIATION (FOR DISPLAY) IN R22DISP METERS B-29
026043,003677:                                                                                                  #   MAGNITUDE OF VELOCITY DEVIATION (FOR DISPLAY) IN R22DISP +2 M/CSEC B-7
026044,003678:                                                                                                  #   UPDATED W-MATRIX
026045,003679: 
026046,003680: 
026047,003681:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
026048,003682:                                                                                                  #   LM AND CSM STATE VECTORS
026049,003683:                                                                                                  #   W-MATRIX
026050,003684:                                                                                                  #   MARK TIME IN MKTIME
026051,003685:                                                                                                  #   RADAR RANGE IN RM METERS B-29
026052,003686:                                                                                                  #         RANGE RATE IN RDOTM METERS/CSES B-7
026053,003687:                                                                                                  #         SHAFT ANGLE IN RRSHAFT REVS.B0
026054,003688:                                                                                                  #         TRUNNION ANGLE IN RRTRUN REVS. B0
026055,003689:                                                                                                  #   GIMBAL ANGLES  INNER IN AIG
026056,003690:                                                                                                  #                  MIDDLE IN AMG
026057,003691:                                                                                                  #                  OUTER IN AOG
026058,003692:                                                                                                  #   REFSMMAT
026059,003693:                                                                                                  #   RENDWFLG
026060,003694:                                                                                                  #   NOANGFLG
026061,003695:                                                                                                  #   VEHUPFLG
026062,003696: 
026063,003697:                                                                                                  #  DEBRIS
026064,003698:                                                                                                  #   PUSHLIST--ALL
026065,003699:                                                                                                  #   MX, MY, MZ  (VECTORS)

Page 588

026067,003701:                                                                                                  #   ULC,RXZ,SINTHETA,LGRET,RDRET,BVECTOR,W.IND,X78T
026068,003702: 
026069,003703: 
026070,003704: 13,2207                                           BANK     13                                    
026071,003705: 26,2000                                           SETLOC   P20S3                                 
026072,003706: 26,2000                                           BANK                                           
026073,003707: 
026074,003708: 26,2420  E7,1456                                  EBANK=   LOSCOUNT                              
026075,003709: 26,2420                                           COUNT*   $$/LSR22                              
026076,003710: 26,2420           77624        LSR22.3            CALL                                           
026077,003711: 26,2421           11216                                    GRP2PC                                
026078,003712: 26,2422           43014                           BON      SET                                   
026079,003713: 26,2423           04307                                    SURFFLAG                              #  ARE WE ON LUNAR SURFACE
026080,003714: 26,2424           55202                                    LSR22.4                               #  YES
026081,003715: 26,2425           02466                                    DMENFLG                               
026082,003716: 26,2426           45014                           BOFF     CALL                                  
026083,003717: 26,2427           00747                                    VEHUPFLG                              
026084,003718: 26,2430           54462                                    DOLEM                                 
026085,003719: 26,2431           27410                                    INTSTALL                              
026086,003720: 26,2432           45014                           CLEAR    CALL                                  #  LM PRECISION INTEGRATION
026087,003721: 26,2433           01674                                    VINTFLAG                              
026088,003722: 26,2434           26643                                    SETIFLGS                              
026089,003723: 26,2435           77624                           CALL                                           
026090,003724: 26,2436           55244                                    INTGRCAL                              
026091,003725: 26,2437           77624                           CALL                                           
026092,003726: 26,2440           11216                                    GRP2PC                                
026093,003727: 26,2441           77624                           CALL                                           
026094,003728: 26,2442           27410                                    INTSTALL                              
026095,003729: 26,2443           43014                           CLEAR    BOFF                                  
026096,003730: 26,2444           01676                                    DIM0FLAG                              
026097,003731: 26,2445           02756                                    RENDWFLG                              
026098,003732: 26,2446           54452                                    NOTWCSM                               
026099,003733: 26,2447           43014                           SET      SET                                   #  CSM WITH W-MATRIX INTEGRATION
026100,003734: 26,2450           01476                                    DIM0FLAG                              
026101,003735: 26,2451           01475                                    D6OR9FLG                              
026102,003736: 26,2452           43014        NOTWCSM            SET      CLEAR                                 
026103,003737: 26,2453           01474                                    VINTFLAG                              
026104,003738: 26,2454           01673                                    INTYPFLG                              
026105,003739: 26,2455           45014                           SET      CALL                                  
026106,003740: 26,2456           01472                                    STATEFLG                              
026107,003741: 26,2457           55244                                    INTGRCAL                              
026108,003742: 26,2460           77650                           GOTO                                           
026109,003743: 26,2461           54512                                    MARKTEST                              
026110,003744: 26,2462           77624        DOLEM              CALL                                           
026111,003745: 26,2463           27410                                    INTSTALL                              
026112,003746: 26,2464           45014                           SET      CALL                                  
026113,003747: 26,2465           01474                                    VINTFLAG                              
026114,003748: 26,2466           26643                                    SETIFLGS                              
026115,003749: 26,2467           77624                           CALL                                           
026116,003750: 26,2470           55244                                    INTGRCAL                              

Page 589

026118,003752: 26,2471           77624                           CALL                                           
026119,003753: 26,2472           11216                                    GRP2PC                                
026120,003754: 26,2473           77624                           CALL                                           
026121,003755: 26,2474           27410                                    INTSTALL                              
026122,003756: 26,2475           43014                           CLEAR    BOFF                                  
026123,003757: 26,2476           01676                                    DIM0FLAG                              
026124,003758: 26,2477           02756                                    RENDWFLG                              
026125,003759: 26,2500           54504                                    NOTWLEM                               
026126,003760: 26,2501           43014                           SET      SET                                   #  LM WITH W-MATRIX INTEGRATION
026127,003761: 26,2502           01476                                    DIM0FLAG                              
026128,003762: 26,2503           01475                                    D6OR9FLG                              
026129,003763: 26,2504           43014        NOTWLEM            CLEAR    CLEAR                                 
026130,003764: 26,2505           01673                                    INTYPFLG                              
026131,003765: 26,2506           01674                                    VINTFLAG                              
026132,003766: 26,2507           45014                           SET      CALL                                  
026133,003767: 26,2510           01472                                    STATEFLG                              
026134,003768: 26,2511           55244                                    INTGRCAL                              
026135,003769: 26,2512           45014        MARKTEST           BON      CALL                                  #  HAS W-MATRIX BEEN INVALIDATED
026136,003770: 26,2513           02716                                    RENDWFLG                              #  HAS W-MATRIX BEEN INVALIDATED
026137,003771: 26,2514           54516                                    RANGEBQ                               
026138,003772: 26,2515           55253                                    WLINIT                                #  YES-REINITIALIZE
026139,003773: 26,2516           77414        RANGEBQ            BON      EXIT                                  #  DON'T CALL R65 IF ON SURFACE
026140,003774: 26,2517           04307                                    SURFFLAG                              
026141,003775: 26,2520           54526                                    RANGEBQ1                              
026142,003776: 26,2521           34755                           CA       ZERO                                  
026143,003777: 26,2522           55745                           TS       R65CNTR                               
026144,003778: 26,2523           04616                           TC       BANKCALL                              
026145,003779: 26,2524           46123                           CADR     R65LEM                                
026146,003780: 26,2525           06051                           TC       INTPRET                               
026147,003781: 26,2526           43174        RANGEBQ1           AXT,2    BON                                   #   CLEAR X2
026148,003782: 26,2527           00000                                    0                                     
026149,003783: 26,2530           04304                                    LMOONFLG                              #  IS MOON SPHERE OF INFLUENCE
026150,003784: 26,2531           54534                                    SETX2                                 #  YES. STORE ZERO IN SCALSHFT REGISTER
026151,003785: 26,2532           77714                           INCR,2                                         
026152,003786: 26,2533           00002                                    2                                     
026153,003787: 26,2534           45134        SETX2              SXA,2    CALL                                  
026154,003788: 26,2535           03720                                    SCALSHFT                              #  0-MOON. 2-EARTH
026155,003789: 26,2536           11216                                    GRP2PC                                
026156,003790: 26,2537           66170                           AXT,1    SXA,1                                 #  STORE RANGE CODE (1) FOR R3 IN NOUN 49
026157,003791: 26,2540           00001                                    1                                     
026158,003792: 26,2541           01353                                    WHCHREAD                              
026159,003793: 26,2542           54335                           SLOAD    SR                                    #  GET SINGLE PRECISION RVARMIN (B-12)
026160,003794: 26,2543           01773                                    RVARMIN                               #  SHIFT TO TRIPLE PRECISION    (B-40)
026161,003795: 26,2544           20635                                    28D                                   
026162,003796: 26,2545           77634                           RTB                                            
026163,003797: 26,2546           21615                                    TPMODE                                #  AND SAVE  IN 20D
026164,003798: 26,2547           00025                           STORE    20D                                   
026165,003799: 26,2550           77624                           CALL                                           #  BEGIN COMPUTING THE B-VECTORS,DELTAQ
026166,003800: 26,2551           55335                                    GETULC                                #  B-VECTORS FOR RANGE
026167,003801: 26,2552           57414                           BON      VCOMP                                 #  B0, COMP. IF LM BEING CORRECTED

Page 590

026169,003803: 26,2553           00707                                    VEHUPFLG                              
026170,003804: 26,2554           54555                                    +1                                    
026171,003805: 26,2555           27525                           STOVL    BVECTOR                               
026172,003806: 26,2556           06520                                    ZEROVECS                              
026173,003807: 26,2557           03533                           STORE    BVECTOR    +6                         #  B1
026174,003808: 26,2560           17541                           STODL    BVECTOR    +12D                       #  B2
026175,003809: 26,2561           00045                                    36D                                   
026176,003810: 26,2562           44257                           SRR*     BDSU                                  
026177,003811: 26,2563           56174                                    2,2                                   #  SHIFT FROM EARTH/MOON SPHERE TO B-29
026178,003812: 26,2564           03757                                    RM                                    #  RM - (MAGNITUDE RCSM-RLM)
026179,003813: 26,2565           77657                           SLR*                                           
026180,003814: 26,2566           56574                                    2,2                                   #  SHIFT TO EARTH/MOON SPHERE
026181,003815: 26,2567           17547                           STODL    DELTAQ                                #  EARTH B-29. MOON B-27
026182,003816: 26,2570           00045                                    36D                                   #  RLC  B-29/B-27
026183,003817: 26,2571           63501                           NORM     DSQ                                   #  NORMALIZE AND SQUARE
026184,003818: 26,2572           00047                                    X1                                    
026185,003819: 26,2573           53605                           DMP      SR*                                   
026186,003820: 26,2574           01767                                    RANGEVAR                              #  MULTIPLY BY RANGEVAR(B12) THEN
026187,003821: 26,2575           20577                                    0          -2,1                       #  UNNORMALIZE
026188,003822: 26,2576           53657                           SR*      SR*                                   
026189,003823: 26,2577           20601                                    0,1                                   
026190,003824: 26,2600           57176                                    0,2                                   
026191,003825: 26,2601           47057                           SR*      RTB                                   
026192,003826: 26,2602           57176                                    0,2                                   
026193,003827: 26,2603           21615                                    TPMODE                                
026194,003828: 26,2604           02707                           STORE    VARIANCE                              #  B-40
026195,003829: 26,2605           76276                           DCOMP    TAD                                   
026196,003830: 26,2606           00025                                    20D                                   #    B-40
026197,003831: 26,2607           72240                           BMN      TLOAD                                 
026198,003832: 26,2610           54613                                    QOK                                   
026199,003833: 26,2611           00025                                    20D                                   #    B-40
026200,003834: 26,2612           02707                           STORE    VARIANCE                              
026201,003835: 26,2613           77624        QOK                CALL                                           
026202,003836: 26,2614           55403                                    LGCUPDTE                              
026203,003837: 
026204,003838: 26,2615           45131                           SSP      CALL                                  
026205,003839: 26,2616           01354                                    WHCHREAD                              
026206,003840: 26,2617           00002                           DEC      2          B-14                       #  STORE R-RATE CODE (2) FOR R3 IN NOUN 49
026207,003841: 26,2620           11216                                    GRP2PC                                
026208,003842: 26,2621           77624                           CALL                                           #  B-VECTOR,DELTAQ FOR RANGE RATE
026209,003843: 26,2622           55335                                    GETULC                                
026210,003844: 26,2623           53725                           PDDL     SR*                                   #  GET RLC SCALED B-29/B-27
026211,003845: 26,2624           00045                                    36D                                   #  AND SHIFT TO B-23
026212,003846: 26,2625           57202                                    0          -4,2                       
026213,003847: 26,2626           24045                           STOVL    36D                                   #  THEN STORE BACK IN 36D
026214,003848: 26,2627           57414                           BON      VCOMP                                 #  B1, COMP. IF LM BEING CORRECTED
026215,003849: 26,2630           00707                                    VEHUPFLG                              
026216,003850: 26,2631           54632                                    +1                                    
026217,003851: 26,2632           77761                           VXSC                                           
026218,003852: 26,2633           00045                                    36D                                   #  B1 = RLC  (B-24/B-22)

Page 591

026220,003854: 26,2634           27533                           STOVL    BVECTOR    +6                         
026221,003855: 26,2635           01653                                    NUVLEM                                
026222,003856: 26,2636           53257                           VSR*     VAD                                   
026223,003857: 26,2637           57170                                    6,2                                   #  SHIFT FOR EARTH/MOON SPHERE
026224,003858: 26,2640           01667                                    VCVLEM                                #  EARTH B-7. MOON B-5
026225,003859: 26,2641           53715                           PDVL     VSR*                                  #  VL TO PD6
026226,003860: 26,2642           01601                                    NUVCSM                                
026227,003861: 26,2643           57170                                    6,2                                   #  SHIFT FOR EARTH/MOON SPHERE
026228,003862: 26,2644           52255                           VAD      VSU                                   
026229,003863: 26,2645           01615                                    VCVCSM                                
026230,003864: 26,2646           50315                           PDVL     DOT                                   #  VC - VL = VLC TO PD6
026231,003865: 26,2647           00001                                    0                                     
026232,003866: 26,2650           00007                                    6                                     
026233,003867: 26,2651           53606                           PUSH     SRR*                                  #  RDOT B-8/B-6 TO PD12
026234,003868: 26,2652           56174                                    2,2                                   #  SHIFT FROM EARTH/MOON SPHERE TO B-8
026235,003869: 26,2653           57316                           DSQ      DMPR                                  #  RDOT**2 B-16 X RATEVAR B12
026236,003870: 26,2654           01771                                    RATEVAR                               
026237,003871: 26,2655           02707                           STORE    VARIANCE                              
026238,003872: 26,2656           54335                           SLOAD    SR                                    
026239,003873: 26,2657           01774                                    VVARMIN                               #  GET SINGLE PRECISION VVARMIN (B+12)
026240,003874: 26,2660           20621                                    16D                                   #  SHIFT TO DP (B -4)
026241,003875: 26,2661           00031                           STORE    24D                                   #  AND SAVE IN 24D
026242,003876: 26,2662           50025                           DSU      BMN                                   #  IS MIN. VARIANCE > COMPUTED VARIANCE
026243,003877: 26,2663           02707                                    VARIANCE                              
026244,003878: 26,2664           54670                                    VOK                                   #  BRANCH - NO
026245,003879: 26,2665           77745                           DLOAD                                          #  YES - USE MINIMUM VARIANCE
026246,003880: 26,2666           00031                                    24D                                   
026247,003881: 26,2667           02707                           STORE    VARIANCE                              
026248,003882: 26,2670           60545        VOK                DLOAD    SR2                                   #  RDOT(PD12) FROM B-8/B-6
026249,003883: 26,2671           53725                           PDDL     SLR*                                  #  TO B-10/B-8
026250,003884: 26,2672           03751                                    RDOTM                                 #  SHIFT TO EARTH/MOON SPHERE
026251,003885: 26,2673           56577                                    0          -1,2                       #  B-7 TO B-10/B-8
026252,003886: 26,2674           77625                           DSU                                            
026253,003887: 26,2675           77675                           DMPR                                           
026254,003888: 26,2676           00045                                    36D                                   
026255,003889: 26,2677           27547                           STOVL    DELTAQ                                #    B-33
026256,003890: 26,2700           00001                                    0                                     #  NOW GET B0
026257,003891: 26,2701           47235                           VXV      VXV                                   #  (ULC X VLC) X ULC
026258,003892: 26,2702           57414                           BON      VCOMP                                 #  B0, COMP. IF LM BEING CORRECTED
026259,003893: 26,2703           00707                                    VEHUPFLG                              
026260,003894: 26,2704           54705                                    +1                                    
026261,003895: 26,2705           77657                           VSR*                                           
026262,003896: 26,2706           57200                                    0          -2,2                       #  SCALED B-5
026263,003897: 26,2707           27525                           STOVL    BVECTOR                               
026264,003898: 26,2710           06520                                    ZEROVECS                              
026265,003899: 26,2711           00025                           STORE    20D                                   #  ZERO OUT 20 TO 25 IN PUSHLIST
026266,003900: 26,2712           27541                           STOVL    BVECTOR    +12D                       
026267,003901: 26,2713           03525                                    BVECTOR                               
026268,003902: 26,2714           60246                           ABVAL    NORM                                  #  LOAD B0, GET MAGNITUDE AND NORMALIZE
026269,003903: 26,2715           00025                                    20D                                   #  SHIFT COUNT IN 20D

Page 592

026271,003905: 26,2716           51575                           VLOAD    ABVAL                                 
026272,003906: 26,2717           03533                                    BVECTOR    +6D                        #  LOAD B1, GET MAGNITUDE AND NORMALIZE
026273,003907: 26,2720           71301                           NORM     DLOAD                                 
026274,003908: 26,2721           00027                                    22D                                   #  SHIFT COUNT IN 22D
026275,003909: 26,2722           00027                                    22D                                   #  FIND WHICH SHIFT IS SMALLER
026276,003910: 26,2723           50025                           DSU      BMN                                   #  BRANCH- B0 HAS SMALLER SHIFT COUNT
026277,003911: 26,2724           00025                                    20D                                   
026278,003912: 26,2725           54731                                    VOK1                                  
026279,003913: 26,2726           52150                           LXA,1    GOTO                                  
026280,003914: 26,2727           00026                                    22D                                   #  LOAD X2 WITH THE SMALLER SHIFT COUNT
026281,003915: 26,2730           54733                                    VOK2                                  
026282,003916: 26,2731           77750        VOK1               LXA,1                                          
026283,003917: 26,2732           00024                                    20D                                   
026284,003918: 26,2733           53775        VOK2               VLOAD    VSL*                                  #  THEN ADJUST B0,B1,DELTAQ AND VARIANCE
026285,003919: 26,2734           03525                                    BVECTOR                               #  WITH THIS SHIFT COUNT
026286,003920: 26,2735           20201                                    0,1                                   
026287,003921: 26,2736           27525                           STOVL    BVECTOR                               
026288,003922: 26,2737           03533                                    BVECTOR    +6                         
026289,003923: 26,2740           77657                           VSL*                                           
026290,003924: 26,2741           20201                                    0,1                                   
026291,003925: 26,2742           17533                           STODL    BVECTOR    +6                         
026292,003926: 26,2743           03547                                    DELTAQ                                
026293,003927: 26,2744           77657                           SL*                                            
026294,003928: 26,2745           20201                                    0,1                                   
026295,003929: 26,2746           03547                           STORE    DELTAQ                                
026296,003930: 26,2747           53745                           DLOAD    SL*                                   #  GET RLC AND ADJUST FOR SCALE SHIFT
026297,003931: 26,2750           00045                                    36D                                   
026298,003932: 26,2751           20200                                    0          -1,1                       
026299,003933: 26,2752           41316                           DSQ      DMP                                   #  MULTIPLY RLC**2 BY VARIANCE
026300,003934: 26,2753           02707                                    VARIANCE                              
026301,003935: 26,2754           47012                           SL4      RTB                                   #  SHIFT TO CONFORM TO BVECTORS AND DELTAQ
026302,003936: 26,2755           21615                                    TPMODE                                
026303,003937: 26,2756           36707                           STCALL   VARIANCE                              #  AND STORE TP VARIANCE
026304,003938: 26,2757           55403                                    LGCUPDTE                              
026305,003939: 
026306,003940: 26,2760           77624                           CALL                                           
026307,003941: 26,2761           11216                                    GRP2PC                                
026308,003942: 26,2762           77414                           BON      EXIT                                  #  ARE ANGLES TO BE DONE
026309,003943: 26,2763           04307                                    SURFFLAG                              
026310,003944: 26,2764           55200                                    RENDEND                               #  NO
026311,003945: 26,2765  E7,1457                                  EBANK=   AIG                                   
026312,003946: 26,2765           33334        MXMYMZ             CAF      AIGBANK                               
026313,003947: 26,2766           54006                           TS       BBANK                                 
026314,003948: 26,2767           31457                           CA       AIG                                   #  YES, COMPUTE  MX, MY, MZ
026315,003949: 26,2770           54765                           TS       CDUSPOT                               
026316,003950: 26,2771           31460                           CA       AMG                                   
026317,003951: 26,2772           54767                           TS       CDUSPOT    +2                         
026318,003952: 26,2773           31461                           CA       AOG                                   
026319,003953: 26,2774           54771                           TS       CDUSPOT    +4                         #  GIMBL ANGLES NOW IN CDUSPOT FOR TRG*NBSM
026320,003954: 26,2775           06051                           TC       INTPRET                               

Page 593

026322,003956: 26,2776           45175                           VLOAD    CALL                                  
026323,003957: 26,2777           06516                                    UNITX                                 
026324,003958: 26,3000           47671                                    TRG*NBSM                              
026325,003959: 26,3001           76505                           VXM      VSL1                                  
026326,003960: 26,3002           01732                                    REFSMMAT                              
026327,003961: 26,3003           27677                           STOVL    MX                                    
026328,003962: 26,3004           06514                                    UNITY                                 
026329,003963: 26,3005           77624                           CALL                                           
026330,003964: 26,3006           47700                                    *NBSM*                                
026331,003965: 26,3007           76505                           VXM      VSL1                                  
026332,003966: 26,3010           01732                                    REFSMMAT                              
026333,003967: 26,3011           27705                           STOVL    MY                                    
026334,003968: 26,3012           06512                                    UNITZ                                 
026335,003969: 26,3013           77624                           CALL                                           
026336,003970: 26,3014           47700                                    *NBSM*                                
026337,003971: 26,3015           76505                           VXM      VSL1                                  
026338,003972: 26,3016           01732                                    REFSMMAT                              
026339,003973: 26,3017           37713        SHAFTBQ            STCALL   MZ                                    
026340,003974: 26,3020           55363                                    RADARANG                              
026341,003975: 26,3021           77331                           SSP      VLOAD                                 #  STORE SHAFT CODE (3) FOR R3 IN NOUN 49
026342,003976: 26,3022           01354                                    WHCHREAD                              
026343,003977: 26,3023           00003                           DEC      3          B-14                       
026344,003978: 26,3024           03724                                    ULC                                   
026345,003979: 26,3025           72441                           DOT      SL1                                   
026346,003980: 26,3026           03677                                    MX                                    
026347,003981: 26,3027           24023                           STOVL    SINTH                                 #  18D
026348,003982: 26,3030           03724                                    ULC                                   
026349,003983: 26,3031           72441                           DOT      SL1                                   
026350,003984: 26,3032           03713                                    MZ                                    
026351,003985: 26,3033           34021                           STCALL   COSTH                                 #  16D
026352,003986: 26,3034           26506                                    ARCTAN                                
026353,003987: 26,3035           41221                           BDSU     DMP                                   
026354,003988: 26,3036           03736                                    RRSHAFT                               
026355,003989: 26,3037           15443                                    2PI/8                                 
026356,003990: 26,3040           41472                           SL3R     PUSH                                  
026357,003991: 26,3041           52545                           DLOAD    SL3                                   
026358,003992: 26,3042           01701                                    X789                                  
026359,003993: 26,3043           44257                           SRR*     BDSU                                  #  SHIFT FROM -5/-3 TO B0
026360,003994: 26,3044           56176                                    0,2                                   
026361,003995: 26,3045           53605                           DMP      SRR*                                  
026362,003996: 26,3046           03722                                    RXZ                                   
026363,003997: 26,3047           21601                                    0,1                                   #  SHIFT TO EARTH/MOON SPHERE
026364,003998: 26,3050           27547                           STOVL    DELTAQ                                #  EARTH B-29. MOON B-27
026365,003999: 26,3051           03724                                    ULC                                   
026366,004000: 26,3052           76435                           VXV      VSL1                                  
026367,004001: 26,3053           03705                                    MY                                    
026368,004002: 26,3054           77656                           UNIT                                           
026369,004003: 26,3055           57414                           BOFF     VCOMP                                 #  B0, COMP. IF CSM BEING CORRECTED
026370,004004: 26,3056           00747                                    VEHUPFLG                              
026371,004005: 26,3057           55060                                    +1                                    

Page 594

026373,004007: 26,3060           27525                           STOVL    BVECTOR                               
026374,004008: 26,3061           06520                                    ZEROVECS                              
026375,004009: 26,3062           03533                           STORE    BVECTOR    +6                         
026376,004010: 26,3063           17541                           STODL    BVECTOR    +12D                       
026377,004011: 26,3064           03722                                    RXZ                                   
026378,004012: 26,3065           53657                           SR*      SRR*                                  #  SHIFT FROM EARTH/MOON SPHERE TO B-25
026379,004013: 26,3066           20577                                    0          -2,1                       
026380,004014: 26,3067           56176                                    0,2                                   
026381,004015: 26,3070           03541                           STORE    BVECTOR    +12D                       
026382,004016: 26,3071           77735                           SLOAD                                          
026383,004017: 26,3072           02011                                    SHAFTVAR                              
026384,004018: 26,3073           41215                           DAD      DMP                                   
026385,004019: 26,3074           15440                                    IMUVAR                                #  RAD**2 B12
026386,004020: 26,3075           03722                                    RXZ                                   
026387,004021: 26,3076           41257                           SRR*     DMP                                   
026388,004022: 26,3077           21601                                    0,1                                   #  SHIFT TO EARTH/MOON SPHERE
026389,004023: 26,3100           03722                                    RXZ                                   
026390,004024: 26,3101           53657                           SR*      SR*                                   
026391,004025: 26,3102           20577                                    0          -2,1                       
026392,004026: 26,3103           57176                                    0,2                                   
026393,004027: 26,3104           47057                           SR*      RTB                                   
026394,004028: 26,3105           57176                                    0,2                                   
026395,004029: 26,3106           21615                                    TPMODE                                #  STORE VARIANCE TRIPLE PRECISION
026396,004030: 26,3107           36707                           STCALL   VARIANCE                              #  B-40
026397,004031: 26,3110           55403                                    LGCUPDTE                              
026398,004032: 
026399,004033: 26,3111           77624                           CALL                                           
026400,004034: 26,3112           11216                                    GRP2PC                                
026401,004035: 26,3113           77624        TRUNBQ             CALL                                           
026402,004036: 26,3114           55363                                    RADARANG                              
026403,004037: 26,3115           77331                           SSP      VLOAD                                 #  STORE TRUNNION CODE (4) FOR R3 IN N49
026404,004038: 26,3116           01354                                    WHCHREAD                              
026405,004039: 26,3117           00004                           DEC      4          B-14                       
026406,004040: 26,3120           03724                                    ULC                                   
026407,004041: 26,3121           76435                           VXV      VSL1                                  
026408,004042: 26,3122           03705                                    MY                                    
026409,004043: 26,3123           76435                           VXV      VSL1                                  #  (ULC X MY) X ULC
026410,004044: 26,3124           03724                                    ULC                                   
026411,004045: 26,3125           57414                           BOFF     VCOMP                                 #  B0, COMP. IF CSM BEING CORRECTED
026412,004046: 26,3126           00747                                    VEHUPFLG                              
026413,004047: 26,3127           55130                                    +1                                    
026414,004048: 26,3130           27525                           STOVL    BVECTOR                               
026415,004049: 26,3131           06520                                    ZEROVECS                              
026416,004050: 26,3132           03533                           STORE    BVECTOR    +6                         
026417,004051: 26,3133           17541                           STODL    BVECTOR    +12D                       
026418,004052: 26,3134           03722                                    RXZ                                   
026419,004053: 26,3135           53657                           SR*      SRR*                                  #  SHIFT FROM EARTH/MOON SPHERE TO B-25
026420,004054: 26,3136           20577                                    0          -2,1                       
026421,004055: 26,3137           56176                                    0,2                                   
026422,004056: 26,3140           03543                           STORE    BVECTOR    +14D                       

Page 595

026424,004058: 26,3141           77735                           SLOAD                                          
026425,004059: 26,3142           02012                                    TRUNVAR                               
026426,004060: 26,3143           41215                           DAD      DMP                                   
026427,004061: 26,3144           15440                                    IMUVAR                                
026428,004062: 26,3145           03722                                    RXZ                                   
026429,004063: 26,3146           41257                           SRR*     DMP                                   
026430,004064: 26,3147           21601                                    0,1                                   #  SHIFT TO EARTH/MOON SPHERE
026431,004065: 26,3150           03722                                    RXZ                                   
026432,004066: 26,3151           53657                           SR*      SR*                                   
026433,004067: 26,3152           20577                                    0          -2,1                       
026434,004068: 26,3153           57176                                    0,2                                   
026435,004069: 26,3154           47057                           SR*      RTB                                   
026436,004070: 26,3155           57176                                    0,2                                   
026437,004071: 26,3156           21615                                    TPMODE                                #  STORE VARIANCE TRIPLE PRECISION
026438,004072: 26,3157           16707                           STODL    VARIANCE                              
026439,004073: 26,3160           03732                                    SINTHETA                              
026440,004074: 26,3161           44336                           ASIN     BDSU                                  #  SIN  THETA IN PD6
026441,004075: 26,3162           03734                                    RRTRUN                                
026442,004076: 26,3163           56405                           DMP      SL3R                                  
026443,004077: 26,3164           15443                                    2PI/8                                 
026444,004078: 26,3165           52525                           PDDL     SL3                                   
026445,004079: 26,3166           01703                                    X789       +2                         
026446,004080: 26,3167           44257                           SRR*     BDSU                                  #  SHIFT FROM -5/-3 TO B0
026447,004081: 26,3170           56176                                    0,2                                   
026448,004082: 26,3171           53605                           DMP      SRR*                                  
026449,004083: 26,3172           03722                                    RXZ                                   
026450,004084: 26,3173           21601                                    0,1                                   
026451,004085: 26,3174           37547                           STCALL   DELTAQ                                #  EARTH B-29. MOON B-27
026452,004086: 26,3175           55403                                    LGCUPDTE                              
026453,004087: 26,3176           77624                           CALL                                           
026454,004088: 26,3177           11216                                    GRP2PC                                
026455,004089: 26,3200           77650        RENDEND            GOTO                                           
026456,004090: 26,3201           50644                                    R22LEM93                              
026457,004091:                                                                                                  #  FUNCTIONAL DESCRIPTION
026458,004092: 
026459,004093:                                                                                                  #  LSR22.4 IS THE ENTRY TO PERFORM LUNAR SURFACE NAVIGATION FOR THE LM
026460,004094:                                                                                                  #  COMPUTER ONLY. THIS ROUTINE COMPUTES THE B-VECTORS AND DELTA Q FOR RANGE
026461,004095:                                                                                                  #  AND RANGE RATE MEASURED BY THE RENDEZVOUS RADAR
026462,004096: 
026463,004097:                                                                                                  #  SUBROUTINES CALLED
026464,004098:                                                                                                  #   INSTALL   LGCUPDTE  INCORP1   RP-TO-R
026465,004099:                                                                                                  #   INTEGRV   GETULC    INCORP2
026466,004100: 
026467,004101:                                                                                                  #  OUTPUT
026468,004102:                                                                                                  #   CORRECTED CSM STATE VECTOR (PERMANENT)
026469,004103:                                                                                                  #   NUMBER OF MARKS INCORPORATED IN MARKCTR
026470,004104:                                                                                                  #   MAGNITUDE OF POSITION DEVIATION (FOR DISPLAY) IN R22DISP METERS B-29
026471,004105:                                                                                                  #   MAGNITUDE OF VELOCITY DEVIATION (FOR DISPLAY) IN R22DISP +2 M/CSEC B-7
026472,004106:                                                                                                  #   UPDATED W-MATRIX
026473,004107: 

Page 596

026475,004109:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
026476,004110:                                                                                                  #   LM AND CSM STATE VECTORS
026477,004111:                                                                                                  #   W-MATRIX
026478,004112:                                                                                                  #   MARK TIME IN MKTIME
026479,004113:                                                                                                  #   RADAR RANGE IN RM METERS B-29
026480,004114:                                                                                                  #         RANGE RATE IN RDOTM METERS/CSEC B-7
026481,004115:                                                                                                  #   VEHUPFLG
026482,004116: 
026483,004117: 
026484,004118: 26,3202           77624        LSR22.4            CALL                                           
026485,004119: 26,3203           27410                                    INTSTALL                              
026486,004120: 26,3204           43014                           SET      CLEAR                                 
026487,004121: 26,3205           01472                                    STATEFLG                              
026488,004122: 26,3206           01674                                    VINTFLAG                              #  CALL TO GET LM POS + VEL IN REF COORD.
026489,004123: 26,3207           77624                           CALL                                           
026490,004124: 26,3210           55244                                    INTGRCAL                              
026491,004125: 26,3211           77624                           CALL                                           
026492,004126: 26,3212           11216                                    GRP2PC                                
026493,004127: 26,3213           45014                           CLEAR    CALL                                  
026494,004128: 26,3214           02666                                    DMENFLG                               #  SET MATRIX SIZE TO 6X6 FOR INCORP
026495,004129: 26,3215           27410                                    INTSTALL                              
026496,004130: 26,3216           46145                           DLOAD    BHIZ                                  #  IS THIS FIRST TIME THROUGH
026497,004131: 26,3217           03463                                    MARKCTR                               
026498,004132: 26,3220           55233                                    INITWMX6                              #  YES. INITIALIZE 6X6 W-MATRIX
026499,004133: 26,3221           43014                           CLEAR    SET                                   
026500,004134: 26,3222           01675                                    D6OR9FLG                              
026501,004135: 26,3223           01476                                    DIM0FLAG                              
026502,004136: 26,3224           43014                           SET      CLEAR                                 
026503,004137: 26,3225           01474                                    VINTFLAG                              
026504,004138: 26,3226           01673                                    INTYPFLG                              
026505,004139: 26,3227           77624                           CALL                                           
026506,004140: 26,3230           55244                                    INTGRCAL                              
026507,004141: 26,3231           77650                           GOTO                                           
026508,004142: 26,3232           54516                                    RANGEBQ                               
026509,004143: 
026510,004144: 26,3233           77624        INITWMX6           CALL                                           
026511,004145: 26,3234           55253                                    WLINIT                                #  INITIALIZE W-MATRIX
026512,004146: 26,3235           45014                           SET      CALL                                  
026513,004147: 26,3236           01474                                    VINTFLAG                              
026514,004148: 26,3237           26643                                    SETIFLGS                              
026515,004149: 26,3240           77624                           CALL                                           
026516,004150: 26,3241           55244                                    INTGRCAL                              
026517,004151: 26,3242           77650                           GOTO                                           
026518,004152: 26,3243           54516                                    RANGEBQ                               
026519,004153: 
026520,004154:                                                                                                  #  THIS ROUTINE CLEARS RFINAL (DP) AND CALLS INTEGRV
026521,004155: 
026522,004156: 26,3244           71220        INTGRCAL           STQ      DLOAD                                 
026523,004157: 26,3245           03675                                    IGRET                                 
026524,004158: 26,3246           03755                                    MKTIME                                

Page 597

026526,004160: 26,3247           34041                           STCALL   TDEC1                                 
026527,004161: 26,3250           27133                                    INTEGRV                               
026528,004162: 26,3251           77650                           GOTO                                           
026529,004163: 26,3252           03675                                    IGRET                                 
026530,004164: 
026531,004165:                                                                                                  #  THIS ROUTINE INITIALIZES THE W-MATRIX BY ZEROING ALL W THEN SETTING
026532,004166:                                                                                                  #  DIAGONAL ELEMENTS TO INITIAL STORED VALUES.
026533,004167: 
026534,004168: 26,3253  E5,1400                                  EBANK=   W                                     
026535,004169: 26,3253           77776        WLINIT             EXIT                                           
026536,004170: 26,3254           33333                           CAF      WBANK                                 
026537,004171: 26,3255           54006                           TS       BBANK                                 
026538,004172: 26,3256           33441                           CAF      WSIZE                                 
026539,004173: 26,3257           54130                           TS       W.IND                                 
026540,004174: 26,3260           34755                           CAF      ZERO                                  
026541,004175: 26,3261           50130                           INDEX    W.IND                                 
026542,004176: 26,3262           55400                           TS       W                                     
026543,004177: 26,3263           10130                           CCS      W.IND                                 
026544,004178: 26,3264           03257                           TC       -5                                    
026545,004179: 26,3265           33334                           CAF      AIGBANK                               #  RESTORE EBANK 7
026546,004180: 26,3266           54006                           TS       BBANK                                 
026547,004181: 26,3267           06051                           TC       INTPRET                               
026548,004182: 26,3270           67214                           BON      SLOAD                                 #  IF ON LUNAR SURFACE,INITIALIZE WITH 
026549,004183: 26,3271           04307                                    SURFFLAG                              #  WSURFPOS AND WSURFVEL INSTEAD OF
026550,004184: 26,3272           55276                                    WLSRFPOS                              #  WRENDPOS AND WRENDVEL
026551,004185: 26,3273           02001                                    WRENDPOS                              
026552,004186: 26,3274           77650                           GOTO                                           
026553,004187: 26,3275           55300                                    WPOSTORE                              
026554,004188: 26,3276           77735        WLSRFPOS           SLOAD                                          
026555,004189: 26,3277           02007                                    WSURFPOS                              
026556,004190: 26,3300           77661        WPOSTORE           SR                                             #  SHIFT TO B-19 SCALE
026557,004191: 26,3301           20606                                    5                                     
026558,004192: 26,3302           02401                           STORE    W                                     
026559,004193: 26,3303           02411                           STORE    W          +8D                        
026560,004194: 26,3304           02421                           STORE    W          +16D                       
026561,004195: 26,3305           67214                           BON      SLOAD                                 
026562,004196: 26,3306           04307                                    SURFFLAG                              
026563,004197: 26,3307           55313                                    WLSRFVEL                              
026564,004198: 26,3310           02002                                    WRENDVEL                              
026565,004199: 26,3311           77650                           GOTO                                           
026566,004200: 26,3312           55315                                    WVELSTOR                              
026567,004201: 26,3313           77735        WLSRFVEL           SLOAD                                          
026568,004202: 26,3314           02010                                    WSURFVEL                              
026569,004203: 26,3315           02511        WVELSTOR           STORE    W          +72D                       
026570,004204: 26,3316           02521                           STORE    W          +80D                       
026571,004205: 26,3317           02531                           STORE    W          +88D                       
026572,004206: 26,3320           77735                           SLOAD                                          
026573,004207: 26,3321           02003                                    WSHAFT                                
026574,004208: 26,3322           02621                           STORE    W          +144D                      
026575,004209: 26,3323           77735                           SLOAD                                          

Page 598

026577,004211: 26,3324           02004                                    WTRUN                                 
026578,004212: 26,3325           02631                           STORE    W          +152D                      
026579,004213: 26,3326           66214                           SET      SSP                                   #  SET RENDWFLG - W-MATRIX VALID
026580,004214: 26,3327           02476                                    RENDWFLG                              
026581,004215: 26,3330           03463                                    MARKCTR                               #  SET MARK COUNTER EQUAL ZERO
026582,004216: 26,3331           00000                                    0                                     
026583,004217: 26,3332           77616                           RVQ                                            
026584,004218: 
026585,004219: 26,3333  E5,1400                                  EBANK=   W                                     
026586,004220: 26,3333           54065        WBANK              BBCON    WLINIT                                
026587,004221: 26,3334  E7,1457                                  EBANK=   AIG                                   
026588,004222: 26,3334           54067        AIGBANK            BBCON    LSR22.3                               
026589,004223: 
026590,004224:                                                                                                  #  GETULC
026591,004225: 
026592,004226:                                                                                                  #  THIS SUBROUTINE COMPUTES THE RELATIVE POSITION VECTOR BETWEEN THE CSM
026593,004227:                                                                                                  #  AND THE LM, LEAVING THE UNIT VECTOR IN THE PUSHLIST AND MPAC AND THE
026594,004228:                                                                                                  #  MAGNITUDE IN 36D.
026595,004229: 
026596,004230: 26,3335           77201        GETULC             SETPD    VLOAD                                 
026597,004231: 26,3336           00001                                    0                                     
026598,004232: 26,3337           01645                                    DELTALEM                              
026599,004233: 26,3340           77754                           LXA,2                                          
026600,004234: 26,3341           03720                                    SCALSHFT                              #  LOAD X2 WITH SCALE SHIFT
026601,004235: 26,3342           53257                           VSR*     VAD                                   
026602,004236: 26,3343           57165                                    9D,2                                  #  SHIFT FOR EARTH/MOON SPHERE
026603,004237: 26,3344           01661                                    RCVLEM                                
026604,004238: 26,3345           53715                           PDVL     VSR*                                  
026605,004239: 26,3346           01573                                    DELTACSM                              
026606,004240: 26,3347           57165                                    9D,2                                  #  SHIFT FOR EARTH/MOON SPHERE
026607,004241: 26,3350           52255                           VAD      VSU                                   
026608,004242: 26,3351           01607                                    RCVCSM                                
026609,004243: 26,3352           41434                           RTB      PUSH                                  #  USE NORMUNIT TO PRESERVE ACCURACY
026610,004244: 26,3353           21706                                    NORMUNX1                              
026611,004245: 26,3354           17724                           STODL    ULC                                   
026612,004246: 26,3355           00045                                    36D                                   
026613,004247: 26,3356           77657                           SL*                                            #  ADJUST MAGNITUDE FROM NORMUNIT
026614,004248: 26,3357           20201                                    0,1                                   
026615,004249: 26,3360           24045                           STOVL    36D                                   #  ULC IN PD0 AND MPAC,RLC IN 36D
026616,004250: 26,3361           03724                                    ULC                                   
026617,004251: 26,3362           77616                           RVQ                                            
026618,004252:                                                                                                  #  RADARANG
026619,004253: 
026620,004254:                                                                                                  #  THIS SUBROUTINE COMPUTES SINTHETA = -ULC DOT MY
026621,004255:                                                                                                  #  RXZ = (SQRT (1-SINTHETA**2))RLC
026622,004256:                                                                                                  #  OUTPUT
026623,004257:                                                                                                  #   ULC IN ULC, PD0
026624,004258:                                                                                                  #   RLC  IN PD36D
026625,004259:                                                                                                  #   SIN THETA IN SINTHETA AND PD6
026626,004260:                                                                                                  #   RXZ NORM IN RXZ (N IN X1)

Page 599

026628,004262: 26,3363           45020        RADARANG           STQ      CALL                                  
026629,004263: 26,3364           03675                                    RDRET                                 
026630,004264: 26,3365           55335                                    GETULC                                
026631,004265: 26,3366           50276                           VCOMP    DOT                                   
026632,004266: 26,3367           03705                                    MY                                    
026633,004267: 26,3370           41572                           SL1R     PUSH                                  #  SIN THETA TO PD6
026634,004268: 26,3371           03732                           STORE    SINTHETA                              
026635,004269: 26,3372           44316                           DSQ      BDSU                                  
026636,004270: 26,3373           06510                                    DP1/4TH                               #  1 - (SIN THETA)**2
026637,004271: 26,3374           41366                           SQRT     DMP                                   
026638,004272: 26,3375           00045                                    36D                                   
026639,004273: 26,3376           60352                           SL1      NORM                                  
026640,004274: 26,3377           00047                                    X1                                    #  SET SHIFT COUNTER IN X1
026641,004275: 26,3400           03722                           STORE    RXZ                                   
026642,004276: 26,3401           77650                           GOTO                                           #  EXIT
026643,004277: 26,3402           03675                                    RDRET                                 
026644,004278: 26,3403           45020        LGCUPDTE           STQ      CALL                                  
026645,004279: 26,3404           03675                                    LGRET                                 
026646,004280: 26,3405           46527                                    INCORP1                               
026647,004281: 26,3406           51575                           VLOAD    ABVAL                                 
026648,004282: 26,3407           02673                                    DELTAX     +6                         
026649,004283: 26,3410           53754                           LXA,2    SRR*                                  
026650,004284: 26,3411           03720                                    SCALSHFT                              #  0-MOON. 2-EARTH
026651,004285: 26,3412           56174                                    2,2                                   #  SET VEL DISPLAY TO B-7
026652,004286: 26,3413           24317                           STOVL    R22DISP    +2                         
026653,004287: 26,3414           02665                                    DELTAX                                
026654,004288: 26,3415           53646                           ABVAL    SRR*                                  
026655,004289: 26,3416           56174                                    2,2                                   #  SET POS DISPLAY TO B-29
026656,004290: 26,3417           00315                           STORE    R22DISP                               
026657,004291: 26,3420           54335                           SLOAD    SR                                    
026658,004292: 26,3421           02005                                    RMAX                                  
026659,004293: 26,3422           20613                                    10D                                   
026660,004294: 26,3423           50025                           DSU      BMN                                   
026661,004295: 26,3424           00315                                    R22DISP                               
026662,004296: 26,3425           50650                                    R22LEM96                              #  GO DISPLAY
026663,004297: 26,3426           45335                           SLOAD    DSU                                   
026664,004298: 26,3427           02006                                    VMAX                                  
026665,004299: 26,3430           00317                                    R22DISP    +2                         #  VMAX MINUS VEL. DEVIATION
026666,004300: 26,3431           77640                           BMN                                            
026667,004301: 26,3432           50650                                    R22LEM96                              #  GO DISPLAY
026668,004302: 26,3433           77624        ASTOK              CALL                                           
026669,004303: 26,3434           46741                                    INCORP2                               
026670,004304: 26,3435           77650                           GOTO                                           
026671,004305: 26,3436           03675                                    LGRET                                 
026672,004306: 26,3437           00103 03370  IMUVAR             2DEC     E-6        B12                        #  RAD**2
026673,004307: 
026674,004308: 26,3441           00241        WSIZE              DEC      161        B-14                       
026675,004309: 26,3442           31103 36652  2PI/8              2DEC     3.141592653 B-2                        
026676,004310: 
026677,004311: 26,3444  E7,1456                                  EBANK=   LOSCOUNT                              
026678,004312: 

Page 600

026680,004314:                                                                                                  #  PROGRAM NAME LRS24.1   RR SEARCH ROUTINE
026681,004315:                                                                                                  #  MOD NO  0        BY  P VOLANTE  SDC          DATE 1-15-67
026682,004316: 
026683,004317: 
026684,004318:                                                                                                  #  FUNCTIONAL DESCRIPTION
026685,004319: 
026686,004320:                                                                                                  #  DRIVES THE RENDEZVOUS RADAR IN A HEXAGONAL SEARCH PATTERN ABOUT THE LOS TO THE CSM (COMPUTED FROM THE CSM AND LM
026687,004321:                                                                                                  #  STATE VECTORS) CHECKING FOR THE DATA GOOD DISCRETE AND MONITORING THE ANGLE BETWEEN THE RADAR BORESIGHT AND THE
026688,004322:                                                                                                  #  LM +Z AXIS. IF THIS ANGLE EXCEEDS 30 DEGREES THE PREFERRED TRACKING ATTITUDE ROUTINE IS CALLED TO PERFORM AN
026689,004323:                                                                                                  #  ATTITUDE MANEUVER.
026690,004324: 
026691,004325: 
026692,004326:                                                                                                  #  CALLING SEQUENCE - BANKCALL FOR LRS24.1
026693,004327: 
026694,004328: 
026695,004329:                                                                                                  #  SUBROUTINES CALLED
026696,004330: 
026697,004331:                                                                                                  #        LEMCONIC      R61LEM
026698,004332:                                                                                                  #        CSMCONIC      RRDESSM
026699,004333:                                                                                                  #        JOBDELAY      FLAGDOWN
026700,004334:                                                                                                  #        WAITLIST      FLAGUP
026701,004335:                                                                                                  #        RRNB          BANKCALL
026702,004336: 
026703,004337: 
026704,004338:                                                                                                  #  EXIT  - TO ENDOFJOB WHEN THE SEARCH FLAG (SRCHOPT) IS NOT SET
026705,004339: 
026706,004340: 
026707,004341:                                                                                                  #  OUTPUT
026708,004342: 
026709,004343:                                                                                                  #      DATAGOOD (SP)-FOR DISPLAY IN R1- 00000 INDICATES NO LOCKON
026710,004344:                                                                                                  #                                       11111 INDICATES LOCKON ACHIEVED
026711,004345:                                                                                                  #      OMEGAD   (SP)-FOR DISPLAY IN R2- ANGLE BETWEEN RR BORESIGHT VECTOR AND THE SPACECRAFT +Z AXIS
026712,004346: 
026713,004347:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
026714,004348:                                                                                                  #     SEARCH FLAG MUST BE SET
026715,004349:                                                                                                  #     LM AND CSM STATE VECTORS AND REFSMMAT MATRIX
026716,004350:                                                                                                  #  DEBRIS
026717,004351: 
026718,004352:                                                                                                  #     RLMSRCH      UXVECT
026719,004353:                                                                                                  #     VXRLM        UYVECT
026720,004354:                                                                                                  #     LOSDESRD     NSRCHPNT
026721,004355:                                                                                                  #     DATAGOOD     OMEGAD
026722,004356:                                                                                                  #     MPAC         PUSHLIST
026723,004357: 
026724,004358: 
026725,004359: 26,3444                                           COUNT*   $$/LRS24                              
026726,004360: 26,3444           34755        LRS24.1            CAF      ZERO                                  
026727,004361: 26,3445           55736                           TS       NSRCHPNT                              #  SET SEARCH PATTERN POINT COUNTER TO ZERO
026728,004362: 26,3446           34736        CHKSRCH            CAF      BIT14                                 #  ISSUE AUTO TRACK ENABLE TO RADAR
026729,004363: 26,3447           00006                           EXTEND                                         

Page 601

026731,004365: 26,3450           05012                           WOR      CHAN12                                
026732,004366: 26,3451           34736                           CAF      SRCHOBIT                              #  CHECK IF SEARCH STILL REQUESTED
026733,004367: 26,3452           70076                           MASK     FLAGWRD2                              #  (SRCHOPT FLAG SET)
026734,004368: 26,3453           00006                           EXTEND                                         
026735,004369: 26,3454           15155                           BZF      ENDOFJOB                              #  NO-TERMINATE JOB
026736,004370: 
026737,004371: 
026738,004372: 26,3455           33715                           CAF      6SECONDS                              #  SCHEDULE TASK TO DRIVE RADAR TO NEXT PT.
026739,004373: 26,3456           00004                           INHINT                                         
026740,004374: 26,3457           05214                           TC       WAITLIST                              #  IN 6 SECONDS
026741,004375: 26,3460  E7,1456                                  EBANK=   LOSCOUNT                              
026742,004376: 26,3460           03645 54067                     2CADR    CALLDGCH                              
026743,004377: 
026744,004378: 26,3462           00003                           RELINT                                         
026745,004379: 26,3463           40110                           CS       RADMODES                              #  IS REMODE IN PROGRESS
026746,004380: 26,3464           74736                           MASK     REMODBIT                              
026747,004381: 26,3465           00006                           EXTEND                                         
026748,004382: 26,3466           15155                           BZF      ENDOFJOB                              #  YES- WAIT SIX SECONDS
026749,004383: 26,3467           06051                           TC       INTPRET                               
026750,004384: 
026751,004385: 26,3470           43234                           RTB      DAD                                   #  COMPUTE LOS AT PRESENT TIME + 1.5 SEC.
026752,004386: 26,3471           21555                                    LOADTIME                              
026753,004387: 26,3472           15717                                    1.5SECS                               
026754,004388: 26,3473           34041        LRS24.11           STCALL   TDEC1                                 
026755,004389: 26,3474           27077                                    LEMCONIC                              #  EXTRAPOLATE LM STATE VECTOR
026756,004390: 26,3475           77775                           VLOAD                                          
026757,004391: 26,3476           00001                                    RATT                                  
026758,004392: 26,3477           27676                           STOVL    RLMSRCH                               #  SAVE LEM POSITION
026759,004393: 26,3500           00007                                    VATT                                  
026760,004394: 26,3501           17740                           STODL    SAVLEMV                               #  SAVE LEM VELOCITY
026761,004395: 26,3502           00015                                    TAT                                   
026762,004396: 26,3503           34041                           STCALL   TDEC1                                 #  EXTRAPOLATE CSM STATE VECTOR
026763,004397: 26,3504           27065                                    CSMCONIC                              #  EXTRAPOLATE CSM STATE VECTOR
026764,004398: 26,3505           52375                           VLOAD    VSU                                   #  LOS VECTOR = R(CSM)-R(LM)
026765,004399: 26,3506           00001                                    RATT                                  
026766,004400: 26,3507           03676                                    RLMSRCH                               
026767,004401: 26,3510           77656                           UNIT                                           
026768,004402: 26,3511           27712                           STOVL    LOSDESRD                              #  STORE DESIRED LOS
026769,004403: 26,3512           00007                                    VATT                                  #  COMPUTE UNIT(V(CM) CROSS R(CM))
026770,004404: 26,3513           47256                           UNIT     VXV                                   
026771,004405: 26,3514           00001                                    RATT                                  
026772,004406: 26,3515           77656                           UNIT                                           
026773,004407: 26,3516           03704                           STORE    VXRCM                                 
026774,004408: 26,3517           52375                           VLOAD    VSU                                   
026775,004409: 26,3520           00007                                    VATT                                  
026776,004410: 26,3521           03740                                    SAVLEMV                               
026777,004411: 26,3522           76521                           MXV      VSL1                                  #  CONVERT FROM REFERENCE TO STABLE MEMBER
026778,004412: 26,3523           01732                                    REFSMMAT                              
026779,004413: 26,3524           03740                           STORE    SAVLEMV                               #  VLC = V(CSM) - V(LM)
026780,004414: 26,3525           53135                           SLOAD    BZE                                   #  CHECK IF N=0

Page 602

026782,004416: 26,3526           03737                                    NSRCHPNT                              
026783,004417: 26,3527           55640                                    DESGLOS                               #  YES-DESIGNATE ALONG LOS
026784,004418: 26,3530           53025                           DSU      BZE                                   #  IS N=1
026785,004419: 26,3531           15713                                    ONEOCT                                #  YES-CALCULATE X AND Y AXES OF
026786,004420: 26,3532           55625                                    CALCXY                                #  SEARCH PATTERN COORDINATE SYSTEM
026787,004421: 26,3533           77775                           VLOAD                                          #  NO-ROTATE X-Y AXES TO NEXT SEARCH POINT
026788,004422: 26,3534           03720                                    UXVECT                                
026789,004423: 26,3535           24015                           STOVL    UXVECTPR                              #  SAVE ORIGINAL X AND Y VECTORS
026790,004424: 26,3536           03726                                    UYVECT                                #  UXPRIME = ORIGINAL UX
026791,004425: 26,3537           00023                           STORE    UYVECTPR                              #  UYPRIME = ORIGINAL UY
026792,004426: 26,3540           77761                           VXSC                                           
026793,004427: 26,3541           15707                                    SIN60DEG                              #  UX =(COS 60)UXPR +(SIN 60)UYPR
026794,004428: 26,3542           27720                           STOVL    UXVECT                                
026795,004429: 26,3543           00015                                    UXVECTPR                              
026796,004430: 26,3544           53361                           VXSC     VAD                                   
026797,004431: 26,3545           06516                                    COS60DEG                              
026798,004432: 26,3546           03720                                    UXVECT                                
026799,004433: 26,3547           77656                           UNIT                                           
026800,004434: 26,3550           27720                           STOVL    UXVECT                                
026801,004435: 26,3551           00015                                    UXVECTPR                              #  UY=(-SIN60)UXPR +(COS 60)UYPR
026802,004436: 26,3552           77761                           VXSC                                           
026803,004437: 26,3553           15707                                    SIN60DEG                              
026804,004438: 26,3554           27726                           STOVL    UYVECT                                
026805,004439: 26,3555           00023                                    UYVECTPR                              
026806,004440: 26,3556           52361                           VXSC     VSU                                   
026807,004441: 26,3557           06516                                    COS60DEG                              
026808,004442: 26,3560           03726                                    UYVECT                                
026809,004443: 26,3561           77656                           UNIT                                           
026810,004444: 26,3562           03726                           STORE    UYVECT                                
026811,004445: 26,3563           53361        OFFCALC            VXSC     VAD                                   #  OFFSET VECTOR = K(UY)
026812,004446: 26,3564           15711                                    OFFSTFAC                              #  LOS VECTOR + OFFSET VECTOR DEFINES
026813,004447: 26,3565           03712                                    LOSDESRD                              #  DESIRED POINT IN SEARCH PATTERN
026814,004448: 26,3566           64256                           UNIT     MXV                                   
026815,004449: 26,3567           01732                                    REFSMMAT                              #  CONVERT TO STABLE MEMBER COORDINATES
026816,004450: 26,3570           77772                           VSL1                                           
026817,004451: 26,3571           25101        CONTDESG           STOVL    RRTARGET                              
026818,004452: 26,3572           03740                                    SAVLEMV                               
026819,004453: 26,3573           01757                           STORE    LOSVEL                                
026820,004454: 26,3574           77776                           EXIT                                           
026821,004455: 26,3575           00004                           INHINT                                         
026822,004456: 26,3576           06032                           TC       KILLTASK                              #  KILL ANY PRESENTLY WAITLISTED TASK
026823,004457: 26,3577           52573                           CADR     DESLOOP    +2                         #  WHICH WOULD DESIGNATE TO THE LAST
026824,004458:                                                                                                  #  POINT IN THE PATTERN
026825,004459: 26,3600           44735        CONTDES2           CS       CDESBIT                               
026826,004460: 26,3601           70110                           MASK     RADMODES                              #  SET BIT 15 OF RADMODES TO INDICATE
026827,004461: 26,3602           64735                           AD       CDESBIT                               #  A CONTINUOUS DESIGNATE WANTED.
026828,004462: 26,3603           54110                           TS       RADMODES                              
026829,004463: 26,3604           06051                           TC       INTPRET                               
026830,004464: 
026831,004465: 26,3605           77624                           CALL                                           

Page 603

026833,004467: 26,3606           52364                                    RRDESSM                               #  DESIGNATE RADAR TO RRTARGET VECTOR
026834,004468: 
026835,004469: 26,3607           77776                           EXIT                                           
026836,004470: 26,3610           03677                           TC       LIMALARM                              #  LOS NOT IN MODE 2 COVERAGE (P22)
026837,004471: 26,3611           03677                           TC       LIMALARM                              #  VEHICLE MANEUVER REQUIRED (P20)
026838,004472: 
026839,004473: 
026840,004474:                                                                                                  #  COMPUTE OMEGA,ANGLE  BETWEEN RR LOS AND
026841,004475:                                                                                                  #  SPACECRAFT +Z AXIS
026842,004476: 26,3612           00006        OMEGCALC           EXTEND                                         
026843,004477: 26,3613           30036                           DCA      CDUT                                  
026844,004478: 26,3614           53753                           DXCH     TANGNB                                
026845,004479: 26,3615           06051                           TC       INTPRET                               
026846,004480: 26,3616           77624                           CALL                                           
026847,004481: 26,3617           46041                                    RRNB                                  
026848,004482: 26,3620           65545                           DLOAD    ACOS                                  #  OMEGA IS ARCCOSINE OF Z-COMPONENT OF
026849,004483: 26,3621           00045                                    36D                                   #  VECTOR COMPUTED BY RRNB (LEFT AT 32D)
026850,004484: 26,3622           03735                           STORE    OMEGDISP                              #  STORE FOR DISPLAY IN R2
026851,004485: 26,3623           77776                           EXIT                                           
026852,004486: 26,3624           05155                           TC       ENDOFJOB                              
026853,004487: 

Page 604

026855,004489:                                                                                                  #  CALCULATE X AND Y VECTORS FOR SEARCH PATTERN COORDINATE SYSTEM
026856,004490: 
026857,004491: 
026858,004492: 26,3625           47375        CALCXY             VLOAD    VXV                                   
026859,004493: 26,3626           03704                                    VXRCM                                 
026860,004494: 26,3627           03712                                    LOSDESRD                              
026861,004495: 26,3630           77656                           UNIT                                           
026862,004496: 26,3631           27720                           STOVL    UXVECT                                #  UX = (VLM X RLM)X LOS
026863,004497: 26,3632           03712                                    LOSDESRD                              
026864,004498: 26,3633           53435                           VXV      UNIT                                  
026865,004499: 26,3634           03720                                    UXVECT                                
026866,004500: 26,3635           03726                           STORE    UYVECT                                #  UY = LOS X UX
026867,004501: 26,3636           77650                           GOTO                                           
026868,004502: 26,3637           55563                                    OFFCALC                               
026869,004503: 
026870,004504: 
026871,004505: 26,3640           64375        DESGLOS            VLOAD    MXV                                   #  WHEN N= 0,DESIGNATE ALONG LOS
026872,004506: 26,3641           03712                                    LOSDESRD                              
026873,004507: 26,3642           01732                                    REFSMMAT                              #  CONVERT LOS FROM REFERENCE TO SM COORDS
026874,004508: 26,3643           52172                           VSL1     GOTO                                  
026875,004509: 26,3644           55571                                    CONTDESG                              
026876,004510: 
026877,004511: 
026878,004512: 26,3645           30074        CALLDGCH           CAE      FLAGWRD0                              #  IS RENDEZVOUS FLAG SET
026879,004513: 26,3646           74745                           MASK     RNDVZBIT                              
026880,004514: 26,3647           00006                           EXTEND                                         
026881,004515: 26,3650           15272                           BZF      TASKOVER                              #  NO-EXIT R24
026882,004516: 26,3651           37725                           CAF      PRIO25                                #  YES -SCHEDULE JOB TO DRIVE RADAR TO NEXT
026883,004517: 26,3652           05105                           TC       FINDVAC                               #  POINT IN SEARCH PATTERN
026884,004518: 26,3653  E7,1675                                  EBANK=   RLMSRCH                               
026885,004519: 26,3653           03656 54067                     2CADR    DATGDCHK                              
026886,004520: 
026887,004521: 26,3655           05272                           TC       TASKOVER                              
026888,004522: 
026889,004523: 
026890,004524: 26,3656           34750        DATGDCHK           CAF      BIT4                                  
026891,004525: 26,3657           00006                           EXTEND                                         #  CHECK IF DATA GOOD DISCRETE PRESENT
026892,004526: 26,3660           02033                           RAND     CHAN33                                
026893,004527: 26,3661           00006                           EXTEND                                         
026894,004528: 26,3662           13671                           BZF      STORE1S                               #  YES- GO TO STORE 11111 FOR DISPLAY IN R1
026895,004529: 26,3663           46254                           CS       SIX                                   
026896,004530: 26,3664           61736                           AD       NSRCHPNT                              #  IS N GREATER THAN 6
026897,004531: 26,3665           00006                           EXTEND                                         
026898,004532: 26,3666           13444                           BZF      LRS24.1                               #  YES - RESET N = 0 AND START AROUND AGAIN
026899,004533: 26,3667           25736                           INCR     NSRCHPNT                              #  NO-SET N = N+1 AN GO TO
026900,004534: 26,3670           13446                           TCF      CHKSRCH                               #  NEXT POINT IN PATTERN
026901,004535: 
026902,004536: 
026903,004537: 26,3671           33705        STORE1S            CAF      ALL1S                                 #  STORE 11111 FOR DISPLAY IN R1
026904,004538: 26,3672           55733                           TS       DATAGOOD                              

Page 605

026906,004540: 26,3673           00004                           INHINT                                         
026907,004541: 26,3674           06032                           TC       KILLTASK                              #  DELETE DESIGNATE TASK FROM
026908,004542: 26,3675           52573                           CADR     DESLOOP    +2                         #  WAITLIST USING KILLTASK
026909,004543: 26,3676           05155                           TC       ENDOFJOB                              
026910,004544: 
026911,004545: 26,3677           05600        LIMALARM           TC       ALARM                                 #  ISSUE ALARM 527-LOS NOT IN MODE2
026912,004546: 26,3700           00527                           OCT      527                                   #  COVERAGE IN P22 OR VEHICLE MANEUVER
026913,004547: 26,3701           00004                           INHINT                                         #  REQUIRED IN P20
026914,004548: 26,3702           06032                           TC       KILLTASK                              #  KILL WAITLIST CALL FOR NEXT
026915,004549: 26,3703           55645                           CADR     CALLDGCH                              #  POINT IN SEARCH PATTERN
026916,004550: 26,3704           05155                           TC       ENDOFJOB                              
026917,004551: 
026918,004552: 
026919,004553: 26,3705           25547        ALL1S              DEC      11111      B-14                       
026920,004554: 26,3706           33555 01106  SIN60DEG           2DEC     .86603                                
026921,004555: 
026922,004556: 26,3710  23,2515               COS60DEG           =        DPHALF                                #  (2DEC   .50)
026923,004557: 26,3710                        UXVECTPR           EQUALS   12D                                   #  PREVIOUS
026924,004558: 26,3710                        UYVECTPR           EQUALS   18D                                   
026925,004559: 26,3710                        RLMUNIT            EQUALS   12D                                   
026926,004560: 26,3710           01642 11045  OFFSTFAC           2DEC     0.05678                               #  TANGENT OF 3.25 DEGREES
026927,004561: 
026928,004562: 26,3712           00001        ONEOCT             OCT      00001                                 #  **** NOTE-THESE TWO CONSTANTS MUST ****
026929,004563: 26,3713           00000 00454  3SECONDS           2DEC     300        B-28                       #  **** BE IN THIS ORDER BECAUSE      ****
026930,004564: 
026931,004565:                                                                                                  #  **** ONEOCT NEEDS A LOWER ORDER    ****
026932,004566:                                                                                                  #  **** WORD OF ZEROES                ****
026933,004567: 26,3715           01130        6SECONDS           DEC      600        B-14                       
026934,004568: 26,3716           00000 00226  1.5SECS            2DEC     150        B-28                       
026935,004569: 
026936,004570: 26,3720  23,2517               ZERO/SP            EQUALS   HI6ZEROS                              
026937,004571:    4616                                           BLOCK    02                                    
026938,004572:    6000                                           SETLOC   FFTAG5                                
026939,004573:    6000                                           BANK                                           
026940,004574:    6025                                           COUNT*   $$/P20                                
026941,004575:    6025           00006        GOTOV56            EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF
026942,004576:    6026           36031                           DCA      VB56CADR                              #  GOTOPOOH
026943,004577:    6027           15176                           TCF      SUPDXCHZ                              
026944,004578:    6030  E7,1471                                  EBANK=   WHOCARES                              
026945,004579:    6030           03013 66107  VB56CADR           2CADR    TRMTRACK                              
026946,004580: 

Page 606

026948,004582:                                                                                                  #  W-MATRIX MONITOR
026949,004583: 
026950,004584: 31,2007                                           BANK     31                                    
026951,004585: 31,2000                                           SETLOC   VB67                                  
026952,004586: 31,2000                                           BANK                                           
026953,004587: 31,2007                                           COUNT*   $$/EXTVB                              
026954,004588: 
026955,004589: 31,2007  E4,1571                                  EBANK=   WWPOS                                 
026956,004590: 
026957,004591: 31,2007           06051        V67CALL            TC       INTPRET                               
026958,004592: 31,2010           77624                           CALL                                           
026959,004593: 31,2011           62120                                    V67WW                                 
026960,004594: 31,2012           77776                           EXIT                                           
026961,004595: 31,2013           00006                           EXTEND                                         #  SAVE THE PRESENT N99 VALUES FOR
026962,004596: 31,2014           31572                           DCA      WWPOS                                 #  COMPARISON AFTER THE DISPLAY
026963,004597: 31,2015           53600                           DXCH     WWBIAS     +2                         
026964,004598: 31,2016           00006                           EXTEND                                         
026965,004599: 31,2017           31574                           DCA      WWVEL                                 
026966,004600: 31,2020           53602                           DXCH     WWBIAS     +4                         
026967,004601: 31,2021           00006                           EXTEND                                         
026968,004602: 31,2022           31576                           DCA      WWBIAS                                
026969,004603: 31,2023           53604                           DXCH     WWBIAS     +6                         
026970,004604: 31,2024           32143        V06N99DS           CAF      V06N99                                
026971,004605: 31,2025           04616                           TC       BANKCALL                              
026972,004606: 31,2026           20334                           CADR     GOXDSPF                               
026973,004607: 31,2027           15503                           TCF      ENDEXT                                
026974,004608: 31,2030           12032                           TCF      V6N99PRO                              
026975,004609: 31,2031           12024                           TCF      V06N99DS                              
026976,004610: 31,2032           22007        V6N99PRO           ZL                                             
026977,004611: 31,2033           34756                           CA       FIVE                                  
026978,004612: 31,2034           54002        N99LOOP            TS       Q                                     
026979,004613: 31,2035           50002                           INDEX    Q                                     
026980,004614: 31,2036           41571                           CS       WWPOS                                 
026981,004615: 31,2037           50002                           INDEX    Q                                     
026982,004616: 31,2040           61577                           AD       WWPOS      +6                         
026983,004617: 31,2041           26001                           ADS      L                                     
026984,004618: 31,2042           10002                           CCS      Q                                     #  THE SUM OF ALL DIFFERENCES MUST BE ZERO.
026985,004619: 31,2043           12034                           TCF      N99LOOP                               
026986,004620: 31,2044           22000                           LXCH     A                                     
026987,004621: 31,2045           00006                           EXTEND                                         
026988,004622: 31,2046           12051                           BZF      V06N9933                              
026989,004623: 31,2047           05515                           TC       UPFLAG                                
026990,004624: 31,2050           00160                           ADRES    V67FLAG                               
026991,004625: 
026992,004626: 31,2051           06051        V06N9933           TC       INTPRET                               
026993,004627: 31,2052           77414                           BON      EXIT                                  
026994,004628: 31,2053           03707                                    V67FLAG                               
026995,004629: 31,2054           62056                                    +2                                    
026996,004630: 31,2055           15503                           TCF      ENDEXT                                
026997,004631: 31,2056           77745                           DLOAD                                          

Page 607

026999,004633: 31,2057           02172                                    WWPOS                                 
027000,004634: 31,2060           72412                           SL4      SL1                                   
027001,004635: 31,2061           14001                           STODL    0D                                    
027002,004636: 31,2062           02174                                    WWVEL                                 
027003,004637: 31,2063           14003                           STODL    2D                                    
027004,004638: 31,2064           02176                                    WWBIAS                                
027005,004639: 31,2065           77661                           SL                                             #  SHIFT FROM NOUN SCALING (B-5) TO
027006,004640: 31,2066           20213                                    10D                                   #  INTERNAL SCALING (B+5)
027007,004641: 31,2067           00005                           STORE    4D                                    
027008,004642: 31,2070           72014                           BON      LXA,1                                 
027009,004643: 31,2071           04307                                    SURFFLAG                              
027010,004644: 31,2072           62102                                    V67SURF                               
027011,004645: 31,2073           00000                                    0D                                    
027012,004646: 31,2074           72130                           SXA,1    LXA,1                                 
027013,004647: 31,2075           02000                                    WRENDPOS                              
027014,004648: 31,2076           00002                                    2D                                    
027015,004649: 31,2077           52130                           SXA,1    GOTO                                  
027016,004650: 31,2100           02001                                    WRENDVEL                              
027017,004651: 31,2101           62110                                    V67CLRF                               
027018,004652: 31,2102           66150        V67SURF            LXA,1    SXA,1                                 
027019,004653: 31,2103           00000                                    0D                                    
027020,004654: 31,2104           02006                                    WSURFPOS                              
027021,004655: 31,2105           66150                           LXA,1    SXA,1                                 
027022,004656: 31,2106           00002                                    2D                                    
027023,004657: 31,2107           02007                                    WSURFVEL                              
027024,004658: 31,2110           66150        V67CLRF            LXA,1    SXA,1                                 
027025,004659: 31,2111           00004                                    4D                                    
027026,004660: 31,2112           02003                                    WTRUN                                 
027027,004661: 31,2113           77730                           SXA,1                                          
027028,004662: 31,2114           02002                                    WSHAFT                                
027029,004663: 31,2115           77414                           CLEAR    EXIT                                  
027030,004664: 31,2116           02676                                    RENDWFLG                              
027031,004665: 31,2117           15503                           TCF      ENDEXT                                
027032,004666: 31,2120           40020        V67WW              STQ      BOV                                   
027033,004667: 31,2121           00051                                    S2                                    
027034,004668: 31,2122           62123                                    +1                                    
027035,004669: 31,2123           45014                           CLEAR    CALL                                  
027036,004670: 31,2124           03667                                    V67FLAG                               
027037,004671: 31,2125           27410                                    INTSTALL                              
027038,004672: 31,2126           71331                           SSP      DLOAD                                 
027039,004673: 31,2127           00051                                    S1                                    
027040,004674: 31,2130           00006                           DEC      6          B-14                       
027041,004675: 31,2131           06520                                    ZEROVECS                              
027042,004676: 31,2132           02172                           STORE    WWPOS                                 
027043,004677: 31,2133           02174                           STORE    WWVEL                                 
027044,004678: 31,2134           02176                           STORE    WWBIAS                                
027045,004679: 31,2135           77770                           AXT,1                                          
027046,004680: 31,2136           00066                           DEC      54         B-14                       
027047,004681: 31,2137           47573        NXPOSVEL           VLOAD*   VSQ                                   
027048,004682: 31,2140           02467                                    W          +54D,1                     

Page 608

027050,004684: 31,2141           77650                           GOTO                                           
027051,004685: 31,2142           60002                                    ADDPOS                                
027052,004686: 31,2143           01543        V06N99             VN       0699                                  
027053,004687: 
027054,004688: 30,2000                                           SETLOC   VB67A                                 
027055,004689: 30,2000                                           BANK                                           
027056,004690: 30,2002                                           COUNT*   $$/EXTVB                              
027057,004691: 
027058,004692: 30,2002           77615        ADDPOS             DAD                                            
027059,004693: 30,2003           02172                                    WWPOS                                 
027060,004694: 30,2004           02172                           STORE    WWPOS                                 
027061,004695: 30,2005           47573                           VLOAD*   VSQ                                   
027062,004696: 30,2006           02555                                    W          +108D,1                    
027063,004697: 30,2007           77615                           DAD                                            
027064,004698: 30,2010           02174                                    WWVEL                                 
027065,004699: 30,2011           02174                           STORE    WWVEL                                 
027066,004700: 30,2012           47573                           VLOAD*   VSQ                                   
027067,004701: 30,2013           02643                                    W          +162D,1                    
027068,004702: 30,2014           77615                           DAD                                            
027069,004703: 30,2015           02176                                    WWBIAS                                
027070,004704: 30,2016           02176                           STORE    WWBIAS                                
027071,004705: 30,2017           75500                           TIX,1    SQRT                                  
027072,004706: 30,2020           62137                                    NXPOSVEL                              
027073,004707: 30,2021           77661                           SR                                             #  SHIFT FROM INTERNAL SCALING (B+5) TO
027074,004708: 30,2022           20613                                    10D                                   #  NOUN SCALING (B-5)
027075,004709: 30,2023           16176                           STODL    WWBIAS                                
027076,004710: 30,2024           02174                                    WWVEL                                 
027077,004711: 30,2025           77766                           SQRT                                           
027078,004712: 30,2026           16174                           STODL    WWVEL                                 
027079,004713: 30,2027           02172                                    WWPOS                                 
027080,004714: 30,2030           77766                           SQRT                                           
027081,004715: 30,2031           02172                           STORE    WWPOS                                 
027082,004716: 30,2032           52000                           BOV      GOTO                                  
027083,004717: 30,2033           60035                                    +2                                    
027084,004718: 30,2034           60042                                    V67XXX                                
027085,004719: 30,2035           77745                           DLOAD                                          
027086,004720: 30,2036           06526                                    DPPOSMAX                              
027087,004721: 30,2037           02172                           STORE    WWPOS                                 
027088,004722: 30,2040           02174                           STORE    WWVEL                                 
027089,004723: 30,2041           02176                           STORE    WWBIAS                                
027090,004724: 30,2042           45345        V67XXX             DLOAD    DSU                                   
027091,004725: 30,2043           02172                                    WWPOS                                 
027092,004726: 30,2044           20060                                    FT99999                               
027093,004727: 30,2045           71240                           BMN      DLOAD                                 
027094,004728: 30,2046           60051                                    +3                                    
027095,004729: 30,2047           20060                                    FT99999                               
027096,004730: 30,2050           02172                           STORE    WWPOS                                 
027097,004731: 30,2051           66150                           LXA,1    SXA,1                                 
027098,004732: 30,2052           00051                                    S2                                    
027099,004733: 30,2053           00052                                    QPRET                                 

Page 609

027101,004735: 30,2054           77776                           EXIT                                           
027102,004736: 30,2055           04635                           TC       POSTJUMP                              
027103,004737: 30,2056           27421                           CADR     INTWAKE                               
027104,004738: 
027105,004739: 30,2057           01670 17000  FT99999            2DEC     30479      B-19                       
027106,004740: 

Page 610

027108,004742: 25,3647                                           BANK     25                                    
027109,004743: 25,2000                                           SETLOC   RADARUPT                              
027110,004744: 25,2000                                           BANK                                           
027111,004745: 25,3647                                           COUNT*   $$/RRUPT                              
027112,004746: 
027113,004747: 25,3647  E7,1456                                  EBANK=   LOSCOUNT                              
027114,004748: 
027115,004749: 25,3647           44747        RADLITES           CS       BIT5                                  
027116,004750: 25,3650           60061                           AD       ITEMP1                                
027117,004751: 25,3651           10000                           CCS      A                                     
027118,004752: 25,3652           44753                           CS       ONE                                   
027119,004753: 25,3653           13703                           TCF      VLIGHT                                
027120,004754: 
027121,004755: 25,3654           14570                           TCF      RRTRKF                                
027122,004756: 
027123,004757: 25,3655           54065        HLIGHT             TS       ITEMP5                                #  ZERO ITEMP5 FOR H INDEX
027124,004758: 
027125,004759: 25,3656           34747                           CA       HLITE                                 
027126,004760: 25,3657           54001                           TS       L                                     
027127,004761: 
027128,004762: 25,3660           34747                           CA       LRALTBIT                              
027129,004763: 25,3661           70110        BOTHLITS           MASK     RADMODES                              
027130,004764: 25,3662           10000                           CCS      A                                     
027131,004765: 25,3663           13675                           TCF      ONLITES                               
027132,004766: 
027133,004767: 25,3664           30107                           CA       FLGWRD11                              
027134,004768: 25,3665           50065                           INDEX    ITEMP5                                
027135,004769: 25,3666           74753                           MASK     HFLSHBIT                              
027136,004770: 25,3667           10000                           CCS      A                                     
027137,004771: 25,3670           14570                           TCF      RRTRKF                                
027138,004772: 
027139,004773: 25,3671           00006        LITIT              EXTEND                                         
027140,004774: 25,3672           22066                           QXCH     ITEMP6                                
027141,004775: 25,3673           04602                           TC       TRKFLON    +1                         
027142,004776: 
027143,004777: 25,3674           00066                           TC       ITEMP6                                
027144,004778: 
027145,004779: 25,3675           50065        ONLITES            INDEX    ITEMP5                                
027146,004780: 25,3676           44753                           CS       HFLSHBIT                              
027147,004781: 25,3677           70107                           MASK     FLGWRD11                              
027148,004782: 25,3700           54107                           TS       FLGWRD11                              
027149,004783: 
027150,004784: 25,3701           30001                           CA       L                                     
027151,004785: 25,3702           13671                           TCF      LITIT                                 
027152,004786: 25,3703           54065        VLIGHT             TS       ITEMP5                                
027153,004787: 25,3704           34751                           CA       VLITE                                 
027154,004788: 25,3705           54001                           TS       L                                     
027155,004789: 25,3706           34744                           CA       BIT8                                  
027156,004790: 25,3707           13661                           TCF      BOTHLITS                              
027157,004791: 

Page 611

027159,004793: 25,3710     4747               HLITE              EQUALS   BIT5                                  
027160,004794: 25,3710     4751               VLITE              EQUALS   BIT3                                  

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