Source Code
021066,000001: # Copyright: Public domain.
021067,000002: # Filename: P20-P25.agc
021068,000003: # Purpose: Part of the source code for Luminary 1A build 099.
021069,000004: # It is part of the source code for the Lunar Module's (LM)
021070,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
021071,000006: # Assembler: yaYUL
021072,000007: # Contact: Onno Hommes <ohommes@cmu.edu>.
021073,000008: # Website: www.ibiblio.org/apollo.
021074,000009: # Pages: 0492-0613
021075,000010: # Mod history: 2009-05-26 OH Transcribed from page images.
021076,000011: # 2009-06-05 RSB Corrected a typos.
021077,000012: # 2009-06-06 RSB Added a missing instruction, and a block
021078,000013: # of 3 missing instructions.
021079,000014: # 2009-06-07 RSB Fixed a misprint.
021080,000015: # 2009-06-07 RSB Changed the construct "2DEC E-6 B12"
021081,000016: # (which isn't legal in yaYUL) to
021082,000017: # "2DEC 1.0 E-6 B12".
021083,000018:
021084,000019: # This source code has been transcribed or otherwise adapted from
021085,000020: # digitized images of a hardcopy from the MIT Museum. The digitization
021086,000021: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
021087,000022: # the Museum. Many thanks to both. The images (with suitable reduction
021088,000023: # in storage size and consequent reduction in image quality as well) are
021089,000024: # available online at www.ibiblio.org/apollo. If for some reason you
021090,000025: # find that the images are illegible, contact me at info@sandroid.org
021091,000026: # about getting access to the (much) higher-quality images which Paul
021092,000027: # actually created.
021093,000028:
021094,000029: # Notations on the hardcopy document read, in part:
021095,000030:
021096,000031: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
021097,000032: # 16:27 JULY 14, 1969
021098,000033:
021099,000034: # Page 492
021100,000035: # RENDEZVOUS NAVIGATION PROGRAM 20
021101,000036:
021102,000037: # PROGRAM DESCRIPTION
021103,000038:
021104,000039: # MOD NO -- 2
021105,000040: # BY P. VOLANTE
021106,000041:
021107,000042: # FUNCTIONAL DESCRIPTION
021108,000043:
021109,000044: # THE PURPOSE OF THIS PROGRAM IS TO CONTROL THE RENDEZVOUS RADAR FROM
021110,000045: # STARTUP THROUGH ACQUISITION AND LOCKON TO THE CSM AND TO UPDATE EITHER
021111,000046: # THE LM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY DSKY ENTRY)
021112,000047: # ON THE BASIS OF THE RR TRACKING DATA.
021113,000048:
021114,000049: # CALLING SEQUENCE --
021115,000050:
021116,000051: # ASTRONAUT REQUEST THROUGH DSKY V37E20E
021117,000052:
021118,000053: # SUBROUTINES CALLED
021119,000054:
021120,000055: # R02BOTH (IMU STATUS CHECK) FLAGUP
021121,000056: # GOFLASH (PINBALL-DISPLAY) FLAGDOWN
021122,000057: # R23LEM (MANUAL ACQUISITION) BANKCALL
021123,000058: # LS201 (LOS DETERMINATION) TASKOVER
021124,000059: # LS202 (RANGE LIMIT TEST)
021125,000060: # R61LEM (PREFERRED TRACKING ATTITUDE)
021126,000061: # R21LEM (RR DESIGNATE) ENDOFJOB
021127,000062: # R22LEM (DATA READ) GOPERF1
021128,000063: # R31LEM (RENDEZVOUS PARAMETER DISPLAY)
021129,000064: # PRIOLARM (PRIORITY DISPLAY)
021130,000065:
021131,000066: # NORMAL EXIT MODES --
021132,000067:
021133,000068: # P20 MAY BE TERMINATED IN TWO WAYS -- ASTRONAUT SELECTION OF IDLING
021134,000069: # PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
021135,000070:
021136,000071: # ALARM OR ABORT EXIT MODES --
021137,000072:
021138,000073: # RANGE GREATER THAN 400 NM DISPLAY
021139,000074:
021140,000075: # OUTPUT
021141,000076:
021142,000077: # TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
021143,000078:
021144,000079: # ERASABLE INITIALIZATION REQUIRED
021145,000080:
021146,000081: # FLAGS SET + RESET
021147,000082:
021148,000083: # SRCHOPT, RNDVZFLG, ACMODFLG, VEHUPFLG, UPDATFLG, TRACKFLG
021149,000084:
021150,000085: # DEBRIS
021151,000086:
021152,000087: # CENTRALS -- A,Q,L
021153,000088:
021154,000089: 25,2062 30,2000 SBANK= LOWSUPER # FOR LOW 2CADR'S.
021155,000090:
021156,000091: 33,2045 BANK 33
021157,000092: 24,2000 SETLOC P20S
021158,000093: 24,2000 BANK
021159,000094:
021160,000095: 24,2000 E7,1456 EBANK= LOSCOUNT
021161,000096: 24,2000 COUNT* $$/P20
021162,000097: 24,2000 24,2000 PROG22 = PROG20
021163,000098: 24,2000 05327 PROG20 TC 2PHSCHNG
021164,000099: 24,2001 00004 OCT 4
021165,000100: 24,2002 05022 OCT 05022
021166,000101: 24,2003 26000 OCT 26000 # PRIORITY 26
021167,000102: 24,2004 02667 TC LUNSFCHK # CHECK IF ON LUNAR SURFACE
021168,000103: # Page 493
021169,000104: 24,2005 02007 TC ORBCHGO # YES
021170,000105: 24,2006 02036 TC PROG20A -2 # NO -- CONTINUE WITH P20
021171,000106: 24,2007 05504 ORBCHGO TC UPFLAG # SET VEHUPFLG -- CSM STATE
021172,000107: 24,2010 00026 ADRES VEHUPFLG # VECTOR TO BE UPDATED
021173,000108: 24,2011 34753 CAF ONE # SET R2 FOR OPTION CSM WILL NOT
021174,000109: 24,2012 55145 TS OPTION2 # CHANGE PRESENT ORBIT
021175,000110: 24,2013 32311 CAF OCT00012
021176,000111: 24,2014 04616 TC BANKCALL # DISPLAY ASSUMED CSM ORBIT OPTION
021177,000112: 24,2015 20633 CADR GOPERF4
021178,000113: 24,2016 06001 TC GOTOP00H # TERMINATE
021179,000114: 24,2017 02021 TC ORBCHG1 # PROCEED VALUE OF ASSUMED OPTION OK
021180,000115: 24,2020 02013 TC -5 # R2 LOADED THRU DSKY
021181,000116: 24,2021 42312 ORBCHG1 CS P22ONE
021182,000117: 24,2022 61145 AD OPTION2
021183,000118: 24,2023 00006 EXTEND
021184,000119: 24,2024 12040 BZF PROG20A
021185,000120: 24,2025 32315 CAF V06N33*
021186,000121: 24,2026 04616 TC BANKCALL # FLASH VERB-NOUN TO REQUEST ESTIMATED
021187,000122: 24,2027 20476 CADR GOFLASH # TIME OF LAUNCH
021188,000123: 24,2030 06001 TC GOTOP00H # TERMINATE
021189,000124: 24,2031 02033 TC ORBCHG2 # PROCEED VALUES OK
021190,000125: 24,2032 02025 TC -5 # TIME LOADED THRU DSKY
021191,000126: 24,2033 06037 ORBCHG2 TC INTPRET
021192,000127: 24,2034 77650 GOTO
021193,000128: 24,2035 64217 ORBCHG3
021194,000129: 32,2217 BANK 32
021195,000130: 32,2000 SETLOC P20S4
021196,000131: 32,2000 BANK
021197,000132: 32,2217 COUNT* $$/P20
021198,000133:
021199,000134: 32,2217 77624 ORBCHG3 CALL
021200,000135: 32,2220 27414 INTSTALL
021201,000136: 32,2221 77745 DLOAD
021202,000137: 32,2222 03442 TIG
021203,000138: 32,2223 03661 STORE LNCHTM
021204,000139: 32,2224 00041 STORE TDEC1 # ESTIMATED LAUNCH TIME
021205,000140: 32,2225 43014 CLEAR CLEAR
021206,000141: 32,2226 01674 VINTFLAG # LM INTEGRATION
021207,000142: 32,2227 01673 INTYPFLG # PRECISION -- ENCKE
021208,000143: 32,2230 43014 CLEAR CLEAR
021209,000144: 32,2231 01676 DIM0FLAG # NO W-MATRIX
021210,000145: 32,2232 01675 D6OR9FLG
021211,000146: 32,2233 77624 CALL
021212,000147: 32,2234 27134 INTEGRV # PLANETARY INERTIAL ORIENTATION
021213,000148: 32,2235 77624 CALL
021214,000149: 32,2236 11244 GRP2PC
021215,000150: 32,2237 77775 VLOAD
021216,000151: 32,2240 00017 RATT1
021217,000152: 32,2241 17631 STODL RSUBL # SAVE LM POSITION
021218,000153: 32,2242 00015 TAT
021219,000154: # Page 494
021220,000155: 32,2243 34041 STCALL TDEC1
021221,000156: 32,2244 27414 INTSTALL
021222,000157: 32,2245 43014 SET CLEAR
021223,000158: 32,2246 01474 VINTFLAG # CSM INTEGRATION
021224,000159: 32,2247 01673 INTYPFLG
021225,000160: 32,2250 43014 CLEAR BOFF
021226,000161: 32,2251 01676 DIM0FLAG
021227,000162: 32,2252 02756 RENDWFLG # W MATRIX VALID
021228,000163: 32,2253 64257 NOWMATX # NO
021229,000164: 32,2254 43014 SET SET # YES -- SET FOR W MATRIX
021230,000165: 32,2255 01476 DIM0FLAG
021231,000166: 32,2256 01475 D6OR9FLG
021232,000167: 32,2257 77624 NOWMATX CALL
021233,000168: 32,2260 27134 INTEGRV # CSM INTEGRATION
021234,000169: 32,2261 77624 CALL
021235,000170: 32,2262 11244 GRP2PC
021236,000171: 32,2263 77775 VLOAD
021237,000172: 32,2264 00025 VATT1
021238,000173: 32,2265 25761 STOVL VSUBC # SAVE CSM POSITION
021239,000174: 32,2266 00017 RATT1
021240,000175: 32,2267 01102 STORE RSUBC # SAVE CSM POSITION
021241,000176: 32,2270 53435 VXV UNIT # COMPUTE NORMAL TO CSM ORBITAL PLANE
021242,000177: 32,2271 01761 VSUBC # NSUB1=UNIT(R(CM) CROSS V(CM))
021243,000178: 32,2272 24025 STOVL 20D # SAVE NSUB1
021244,000179: 32,2273 03631 RSUBL # COMPUTE ESTIMATED ORBITAL
021245,000180: 32,2274 53435 VXV UNIT # PLANE CHANGE
021246,000181: 32,2275 00025 20D # UCSM = UNIT(R(LM) CROSS NSUB1)
021247,000182: 32,2276 27637 STOVL UCSM
021248,000183: 32,2277 01102 RSUBC # COMPUTE ANGLE BETWEEN UCSM
021249,000184: 32,2300 50256 UNIT DOT # AND RSUBC
021250,000185: 32,2301 03637 UCSM # COS A = UCSM DOT UNIT (R(CM))
021251,000186: 32,2302 77752 SL1
021252,000187: 32,2303 02732 STORE CSTH # SAVE DOE TIME-THETA SUBROUTINE
021253,000188: 32,2304 44316 DSQ BDSU # COMPUTE SINE A
021254,000189: 32,2305 10314 ONEB-2
021255,000190: 32,2306 77766 SQRT
021256,000191: 32,2307 26730 STOVL SNTH # SAVE FOR TIME-THETA SUBROUTINE
021257,000192: 32,2310 01102 RSUBC # POSITION OF CSM AT EST. LAUNCH
021258,000193: 32,2311 26655 STOVL RVEC # TIME FOR TIME-THETHA B-27
021259,000194: 32,2312 01761 VSUBC # VELOCITY OF CSM AT EST. LAUNCH.
021260,000195: 32,2313 77676 VCOMP
021261,000196: 32,2314 02744 STORE VVEC # TIME FOR TIME THETA B-5
021262,000197: 32,2315 45014 CLEAR CALL
021263,000198: 32,2316 03666 RVSW
021264,000199: 32,2317 24732 TIMETHET
021265,000200: 32,2320 77676 VCOMP
021266,000201: 32,2321 03645 STORE NEWVEL # TERMINAL VELOCITY OF CSM
021267,000202: 32,2322 77745 DLOAD
021268,000203: 32,2323 00037 T
021269,000204: 32,2324 27663 STOVL TRANSTM # TRANSFER TIME
021270,000205: # Page 495
021271,000206: 32,2325 03645 NEWVEL
021272,000207: 32,2326 77646 ABVAL
021273,000208: 32,2327 24025 STOVL 20D
021274,000209: 32,2330 00001 0D
021275,000210: 32,2331 03653 STORE NEWPOS # TERMINAL POSITION OF CSM
021276,000211: 32,2332 53435 VXV UNIT # COMPUTE NORMAL TO SCM ORBITAL PLANE
021277,000212: 32,2333 03631 RSUBL # NSUB2 = UNIT(NEWPOS CROSS R(LM))
021278,000213: 32,2334 53435 VXV UNIT # ROTATE TERMINAL VEL INTO DESIRED
021279,000214: 32,2335 03653 NEWPOS # ORBITAL PLANE
021280,000215: 32,2336 76561 VXSC VSL1 # VSUBC = ABVAL(NEWVEL) $ UNIT (NSUB2
021281,000216: 32,2337 00025 20D
021282,000217: 32,2340 37665 STCALL NCSMVEL # NEW CSM VELOCITY
021283,000218: 32,2341 11244 GRP2PC
021284,000219: 32,2342 77624 CALL
021285,000220: 32,2343 27414 INTSTALL
021286,000221: 32,2344 44345 DLOAD BDSU
021287,000222: 32,2345 03663 TRANSTM # LAUNCH TIME -- TRANSFER TIME
021288,000223: 32,2346 03661 LNCHTM
021289,000224: 32,2347 25517 STOVL TET
021290,000225: 32,2350 03653 NEWPOS
021291,000226: 32,2351 01535 STORE RCV
021292,000227: 32,2352 25503 STOVL RRECT
021293,000228: 32,2353 03665 NCSMVEL
021294,000229: 32,2354 35511 STCALL VRECT
021295,000230: 32,2355 23455 MINIRECT
021296,000231: 32,2356 45174 AXT,2 CALL
021297,000232: 32,2357 00002 2
021298,000233: 32,2360 26661 ATOPCSM
021299,000234: 32,2361 77624 CALL
021300,000235: 32,2362 27423 INTWAKE0
021301,000236: 32,2363 77776 EXIT
021302,000237: 32,2364 04616 TC BANKCALL
021303,000238: 32,2365 50040 CADR PROG20A
021304,000239:
021305,000240: 24,2036 BANK 24
021306,000241: 24,2000 SETLOC P20S
021307,000242: 24,2000 BANK
021308,000243: 24,2036 COUNT* $$/P20
021309,000244:
021310,000245: 24,2036 05516 TC DOWNFLAG # RESET VEHUPFLG -- LM STATE VECTOR
021311,000246: 24,2037 00026 ADRES VEHUPFLG # TO BE UPDATED
021312,000247: 24,2040 04616 PROG20A TC BANKCALL
021313,000248: 24,2041 11254 CADR R02BOTH
021314,000249: 24,2042 05504 TC UPFLAG
021315,000250: 24,2043 00027 ADRES UPDATFLG # SET UPDATE FLAG
021316,000251: 24,2044 05504 TC UPFLAG
021317,000252: 24,2045 00031 ADRES TRACKFLG # SET TRACK FLAG
021318,000253: 24,2046 05504 TC UPFLAG
021319,000254: 24,2047 00010 ADRES RNDVZFLG # SET RENDEZVOUS FLAG
021320,000255: 24,2050 05516 TC DOWNFLAG
021321,000256: 24,2051 00037 ADRES SRCHOPTN # INSURE SEARCH OPTION OFF
021322,000257: # Page 496
021323,000258: 24,2052 05516 TC DOWNFLAG # ALSO MANUAL ACQUISITION FLAG RESET
021324,000259: 24,2053 00040 ADRES ACMODFLG
021325,000260: 24,2054 05516 TC DOWNFLAG # TURN OFF R04FLAG TO ENSURE GETTING
021326,000261: 24,2055 00063 ADRES R04FLAG # ALARM 521 IF CAN'T READ RADAR
021327,000262: 24,2056 05516 TC DOWNFLAG # ENSURE R25 GIMBAL MONITOR IS ENABLED
021328,000263: 24,2057 00126 ADRES NORRMON # (RESET NORRMON FLAG)
021329,000264: 24,2060 05516 TC DOWNFLAG # RESET LOS BEING COMPUTED FLAG
021330,000265: 24,2061 00041 ADRES LOSCMFLG
021331,000266: 24,2062 06011 TC CLRADMOD
021332,000267: 24,2063 05353 P20LEM1 TC PHASCHNG
021333,000268: 24,2064 04022 OCT 04022
021334,000269: 24,2065 34755 CAF ZERO # ZERO MARK COUNTER
021335,000270: 24,2066 55462 TS MARKCTR
021336,000271: 24,2067 06037 TC INTPRET # LOS DETERMINATION ROUTINE
021337,000272: 24,2070 77634 RTB
021338,000273: 24,2071 21573 LOADTIME
021339,000274: 24,2072 34041 STCALL TDEC1
021340,000275: 24,2073 51255 LPS20.1
021341,000276: 24,2074 77624 CALL
021342,000277: 24,2075 53565 LPS20.2 # TEST RANGE R/UTINE
021343,000278: 24,2076 77776 EXIT
021344,000279: 24,2077 50154 INDEX MPAC
021345,000280: 24,2100 02101 TC +1
021346,000281: 24,2101 02111 TC P20LEMA # NORMAL RETURN WITHIN 400 N M
021347,000282: 24,2102 32305 526ALARM CAF ALRM526 # ERROR EXIT -- RANGE > 400 N. MI.
021348,000283: 24,2103 04616 TC BANKCALL
021349,000284: 24,2104 21562 CADR PRIOLARM
021350,000285: 24,2105 06022 TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
021351,000286: 24,2106 02102 TC -4 # PROC (ILLEGAL)
021352,000287: 24,2107 02063 TC P20LEM1 # ENTER RECYCLE
021353,000288: 24,2110 05155 TC ENDOFJOB
021354,000289:
021355,000290: 24,2111 05353 P20LEMA TC PHASCHNG
021356,000291: 24,2112 04022 OCT 04022
021357,000292: 24,2113 02667 TC LUNSFCHK # CHECK LUNAR SURFACE FLAG (P22 FLAG)
021358,000293: 24,2114 02117 TC P20LEMB
021359,000294: 24,2115 04616 TC BANKCALL
021360,000295: 24,2116 46116 CADR R61LEM # PREFERRED TRACKING ATTITUDE ROUTINE
021361,000296: 24,2117 05353 P20LEMB TC PHASCHNG
021362,000297: 24,2120 05022 OCT 05022 # RESTART AT PRIORITY 10 TO ALLOW V37
021363,000298: 24,2121 10000 OCT 10000 # REQUESTED PROGRAM TO RUN FIRST
021364,000299: 24,2122 37714 CAF PRIO26 # RESTORE PRIORITY 26
021365,000300: 24,2123 05146 TC PRIOCHNG
021366,000301: 24,2124 30075 CA FLAGWRD1 # IS THE TRACK FLAG SET
021367,000302: 24,2125 74747 MASK TRACKBIT
021368,000303: 24,2126 00006 EXTEND
021369,000304: 24,2127 12232 BZF P20LEMWT # BRANCH -- NO -- WAIT FOR IT TO BE SET
021370,000305: 24,2130 34752 P20LEMB7 CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
021371,000306: 24,2131 00006 EXTEND
021372,000307: # Page 497
021373,000308: 24,2132 02033 RAND CHAN33
021374,000309: 24,2133 00006 EXTEND
021375,000310: 24,2134 12170 BZF P20LEMB3 # YES -- DO AUTOMATIC ACQUISITION (R21)
021376,000311:
021377,000312: 24,2135 46007 P20LEMB5 CS OCT24 # RADAR NOT IN AUTO CHECK IF
021378,000313: 24,2136 61011 AD MODREG # MAJOR MODE IS 20
021379,000314: 24,2137 00006 EXTEND
021380,000315: 24,2140 12153 BZF P20LEMB6 # BRANCH -- YES -- OKAY TO DO PLEASE PERFORM
021381,000316:
021382,000317: 24,2141 67746 AD NEG2 # ALSO CHECK FOR P22
021383,000318: 24,2142 00006 EXTEND
021384,000319: 24,2143 12153 BZF P20LEMB6 # BRANCH -- YES OK TO DO PLEASE PERFORM
021385,000320: 24,2144 32307 CAF ALRM514 # TRACK FLAG SET -- FLASH PRIORITY ALARM 514 --
021386,000321: 24,2145 04616 TC BANKCALL # RADAR GOES OUT OF AUTO MODE WHILE IN USE
021387,000322: 24,2146 21562 CADR PRIOLARM
021388,000323: 24,2147 06022 TC GOTOV56 # TERMINATE EXITS VIA V56
021389,000324: 24,2150 02117 TC P20LEMB # PROCEED AND ENTER BOTH GO BACK
021390,000325: 24,2151 02117 TC P20LEMB # TO CHECK AUTO MODE AGAIN
021391,000326: 24,2152 05155 TC ENDOFJOB
021392,000327: 24,2153 32306 P20LEMB6 CAF OCT201 # REQUEST RR AUTO MODE SELECTION
021393,000328: 24,2154 04616 TC BANKCALL
021394,000329: 24,2155 20623 CADR GOPERF1
021395,000330: 24,2156 06022 TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
021396,000331: 24,2157 02117 TC P20LEMB # PROCEED CHECKS AUTO MODE DISCRETE AGAIN
021397,000332: 24,2160 02667 TC LUNSFCHK # ENTER INDICATES MANUAL ACQUISITION (R23)
021398,000333: 24,2161 02166 TC P20LEMB2 # YES -- R23 NOT ALLOWED -- TURN ON OPR ERROR
021399,000334: 24,2162 03135 TC R23LEM # NO -- DO MANUAL ACQUISITION
021400,000335:
021401,000336: 24,2163 05504 P20LEMB1 TC UPFLAG # RETURN FROM R23 -- LOCKON ACHIEVED
021402,000337: 24,2164 00040 ADRES ACMODFLG # SET MANUAL FLAG AND GO BACK TO CHECK
021403,000338: 24,2165 02117 TC P20LEMB # RR AUTO MODE
021404,000339:
021405,000340: 24,2166 04364 P20LEMB2 TC FALTON # TURNS ON OPERATOR ERROR LIGHT ON DSKY
021406,000341: 24,2167 02117 TC P20LEMB # AND GOES BACK TO CHECK AUTO MODE
021407,000342:
021408,000343: 24,2170 40110 P20LEMB3 CS RADMODES # ARE RR CDUS BEING ZEROED
021409,000344: 24,2171 74737 MASK RCDU0BIT
021410,000345: 24,2172 00006 EXTEND
021411,000346: 24,2173 12205 BZF P20LEMB4 # BRANCH -- YES -- WAIT
021412,000347: 24,2174 34355 CAF BIT13-14 # IS SEARCH OR MANUAL ACQUISITION FLAG SET
021413,000348: 24,2175 70076 MASK FLAGWRD2
021414,000349: 24,2176 00006 EXTEND
021415,000350: 24,2177 12211 BZF P20LEMC3 # ZERO MEANS AUTOMATIC RR ACQUISITION
021416,000351: 24,2200 05516 TC DOWNFLAG # RESET TO AUTO MODE
021417,000352: 24,2201 00037 ADRES SRCHOPTN
021418,000353: # Page 498
021419,000354: 24,2202 05516 TC DOWNFLAG
021420,000355: 24,2203 00040 ADRES ACMODFLG
021421,000356: 24,2204 02232 TC P20LEMWT # WAIT 2.5 SECONDS THEN GO TO RR DATA READ
021422,000357:
021423,000358: 24,2205 32304 P20LEMB4 CAF 250DEC
021424,000359: 24,2206 04616 TC BANKCALL # WAIT 2.5 SECONDS WHILE RR CDUS ARE BEING
021425,000360: 24,2207 01735 CADR DELAYJOB # ZEROED -- THEN GO BACK AND CHECK AGAIN
021426,000361: 24,2210 02170 TC P20LEMB3
021427,000362:
021428,000363: 24,2211 06037 P20LEMC3 TC INTPRET
021429,000364: 24,2212 77634 RTB
021430,000365: 24,2213 21573 LOADTIME
021431,000366: 24,2214 34041 STCALL TDEC1
021432,000367: 24,2215 50316 UPPSV
021433,000368: 24,2216 77776 P20LEMC4 EXIT
021434,000369: 24,2217 05353 P20LEMC TC PHASCHNG
021435,000370: 24,2220 04022 OCT 04022
021436,000371: 24,2221 30074 CAE FLAGWRD0 # IS THE RENDEZVOUS FLAG SET
021437,000372: 24,2222 74745 MASK RNDVZBIT
021438,000373: 24,2223 00006 EXTEND
021439,000374: 24,2224 15155 BZF ENDOFJOB # NO -- EXIT P20
021440,000375: 24,2225 30075 CAE FLAGWRD1 # IS TRACK FLAG SET (BIT 5 FLAGWORD 1)
021441,000376: 24,2226 74747 MASK TRACKBIT
021442,000377: 24,2227 00006 EXTEND
021443,000378: 24,2230 12264 BZF P20LEMD # BRANCH -- TRACK FLAG NOT ON -- WAIT 15 SECONDS
021444,000379: 24,2231 02674 P20LEMF TC R21LEM
021445,000380:
021446,000381: 24,2232 32304 P20LEMWT CAF 250DEC
021447,000382: 24,2233 05173 TC TWIDDLE # USE INSTEAD OF WAITLIST SINCE SAME BANK
021448,000383: 24,2234 02244 ADRES P20LEMC1 # WAIT 2.5 SECONDS
021449,000384: 24,2235 30075 CAE FLAGWRD1 # IS TRACK FLAG SET
021450,000385: 24,2236 74747 MASK TRACKBIT
021451,000386: 24,2237 00006 EXTEND
021452,000387: 24,2240 15155 BZF ENDOFJOB # NO -- EXIT WITHOUT DOING 2.7 PHASE CHANGE
021453,000388: 24,2241 05353 P20LMWT1 TC PHASCHNG
021454,000389: 24,2242 40072 OCT 40072
021455,000390: 24,2243 05155 TC ENDOFJOB
021456,000391:
021457,000392: 24,2244 30074 P20LEMC1 CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET
021458,000393: 24,2245 74745 MASK RNDVZBIT
021459,000394: 24,2246 00006 EXTEND
021460,000395: 24,2247 15261 BZF TASKOVER # NO -- EXIT P20/R22
021461,000396: 24,2250 30075 CAE FLAGWRD1 # IS TRACK FLAG SET
021462,000397: 24,2251 74747 MASK TRACKBIT
021463,000398: 24,2252 00006 EXTEND
021464,000399: 24,2253 12261 BZF P20LEMC2 # NO -- DON'T SCHEDULE R22 JOB
021465,000400: # Page 499
021466,000401: 24,2254 37714 CAF PRIO26 # YES -- SCHEDULE R22 JOB (RR DATA READ)
021467,000402: 24,2255 05105 TC FINDVAC
021468,000403: 24,2256 E7,1456 EBANK= LOSCOUNT
021469,000404: 24,2256 02627 50067 2CADR R22LEM42
021470,000405:
021471,000406: 24,2260 05261 TC TASKOVER
021472,000407:
021473,000408: 24,2261 05221 P20LEMC2 TC FIXDELAY # TRACK FLAG NOT SET, WAIT 15 SECONDS
021474,000409: 24,2262 02734 DEC 1500 B-14 # AND CHECK AGAIN
021475,000410:
021476,000411: 24,2263 02244 TC P20LEMC1
021477,000412:
021478,000413: 24,2264 32666 P20LEMD CAF 1500DEC
021479,000414: 24,2265 05173 TC TWIDDLE # WAITLIST FOR 15 SECONDS
021480,000415: 24,2266 02270 ADRES P20LEMD1
021481,000416: 24,2267 05155 TC ENDOFJOB
021482,000417:
021483,000418: 24,2270 30075 P20LEMD1 CAE FLAGWRD1 # IS TRACK FLAG SET
021484,000419: 24,2271 74747 MASK TRACKBIT
021485,000420: 24,2272 10000 CCS A
021486,000421: 24,2273 12277 TCF P20LEMD2 # YES -- SCHEDULE DESIGNATE JOB
021487,000422: 24,2274 05221 TC FIXDELAY # NO -- WAIT 15 SECONDS
021488,000423: 24,2275 02734 DEC 1500 B-14
021489,000424: 24,2276 02270 TC P20LEMD1
021490,000425:
021491,000426: 24,2277 37714 P20LEMD2 CAF PRIO26 # SCHEDULE JOB TO DO R21
021492,000427: 24,2300 05105 TC FINDVAC
021493,000428: 24,2301 E7,1456 EBANK= LOSCOUNT
021494,000429: 24,2301 02211 50067 2CADR P20LEMC3 # START AT PERM. MEMORY INTEGRATION
021495,000430:
021496,000431: 24,2303 05261 TC TASKOVER
021497,000432:
021498,000433: 24,2304 00372 250DEC DEC 250 B-14
021499,000434: 24,2305 00526 ALRM526 OCT 00526
021500,000435: 24,2306 00201 OCT201 OCT 00201
021501,000436: 24,2307 00514 ALRM514 OCT 514
021502,000437: 24,2310 00074 MAXTRIES DEC 60 B-14
021503,000438: 24,2311 00012 OCT00012 OCT 00012
021504,000439: 24,2312 00001 P22ONE OCT 00001
021505,000440: 24,2313 10000 00000 ONEB-2 2DEC 1.0 B-2
021506,000441:
021507,000442: 24,2315 01441 V06N33* VN 0633
021508,000443: 24,2316 45020 UPPSV STQ CALL # UPDATES PERMANENT STATE VECTORS
021509,000444: 24,2317 01757 LS21X # TO PRESENT TIME
021510,000445: 24,2320 27414 INTSTALL
021511,000446: 24,2321 77624 CALL
021512,000447: # Page 500
021513,000448: 24,2322 26644 SETIFLGS
021514,000449: 24,2323 43014 BOF SET # IF W-MATRIX INVALID, DON'T INTEGRATE IT
021515,000450: 24,2324 02756 RENDWFLG
021516,000451: 24,2325 50336 UPPSV1
021517,000452: 24,2326 01476 DIM0FLAG # SET DIM0FLAG TO INTEGRATE W-MATRIX
021518,000453: 24,2327 43014 BON SET
021519,000454: 24,2330 04307 SURFFLAG # IF ON LUNAR SURFACE W IS 6X6
021520,000455: 24,2331 50333 UPPSV5
021521,000456: 24,2332 01475 D6OR9FLG # OTHERWISE 9X9
021522,000457: 24,2333 77614 UPPSV5 BOF
021523,000458: 24,2334 00747 VEHUPFLG
021524,000459: 24,2335 50370 UPPSV3
021525,000460: 24,2336 77614 UPPSV1 SET
021526,000461: 24,2337 01474 VINTFLAG
021527,000462: 24,2340 77624 CALL
021528,000463: 24,2341 27134 INTEGRV
021529,000464: 24,2342 77624 CALL # GROUP 2 PHASE CHANGE
021530,000465: 24,2343 11244 GRP2PC # TO PROTECT INTEGRATION
021531,000466: 24,2344 77624 CALL
021532,000467: 24,2345 27414 INTSTALL
021533,000468: 24,2346 43145 DLOAD CLEAR # GET TETCSM TO STORE IN TDEC FOR LM INT.
021534,000469: 24,2347 01571 TETCSM
021535,000470: 24,2350 01674 VINTFLAG
021536,000471: 24,2351 77624 UPPSV4 CALL # INTEGRATE OTHER VEHICLE
021537,000472: 24,2352 26644 SETIFLGS # WITHOUT W-MATRIX
021538,000473: 24,2353 34041 STCALL TDEC1
021539,000474: 24,2354 27134 INTEGRV
021540,000475: 24,2355 77214 BOFF VLOAD
021541,000476: 24,2356 04347 SURFFLAG
021542,000477: 24,2357 50216 P20LEMC4
021543,000478: 24,2360 01661 RCVLEM
021544,000479: 24,2361 77742 VSR2
021545,000480: 24,2362 26352 STOVL LMPOS
021546,000481: 24,2363 01667 VCVLEM
021547,000482: 24,2364 77742 VSR2
021548,000483: 24,2365 02360 STORE LMVEL
021549,000484: 24,2366 77650 GOTO
021550,000485: 24,2367 01757 LS21X
021551,000486:
021552,000487: 24,2370 45014 UPPSV3 CLEAR CALL
021553,000488: 24,2371 01674 VINTFLAG
021554,000489: 24,2372 27134 INTEGRV
021555,000490: 24,2373 77624 CALL
021556,000491: 24,2374 11244 GRP2PC
021557,000492: 24,2375 77624 CALL
021558,000493: 24,2376 27414 INTSTALL
021559,000494: 24,2377 71214 SET DLOAD
021560,000495: 24,2400 01474 VINTFLAG
021561,000496: 24,2401 01643 TETLEM # GET TETLEM TO STORE IN TDEC FOR CSM INT.
021562,000497: # Page 501
021563,000498: 24,2402 77650 GOTO
021564,000499: 24,2403 50351 UPPSV4
021565,000500: 24,2404 E7,1456 EBANK= LOSCOUNT
021566,000501: 24,2404 COUNT* $$/P22
021567,000502:
021568,000503: # Page 502
021569,000504: # PROGRAM DESCRIPTION
021570,000505:
021571,000506: # PREFERRED TRACKING ATTITUDE PROGRAM P25
021572,000507: # MOD NO -- 3
021573,000508: # BY P. VOLANTE
021574,000509:
021575,000510: # FUNCTIONAL DESCRIPTION
021576,000511:
021577,000512: # THE PURPOSE OF THIS PROGRAM IS TO COMPUTE THE PREFERRED TRACKING
021578,000513: # ATTITUDE OF THE LM TO CONTINUOUSLY POINT THE LM TRTACKING BEACON AT THE
021579,000514: # CSM AND TO PERFORM THE MANEUVER TO THE PREFERRED TRACKING ATTITUDE AND
021580,000515: # CONTINUOUSLY MAINTAIN THIS ATTITUDE WITHIN PRESCRIBED LIMITS.
021581,000516:
021582,000517: # CALLING SEQUENCE --
021583,000518:
021584,000519: # ASTRONAUT REQUEST THROUGH DSKY V37E25E
021585,000520:
021586,000521: # SUBROUTINES CALLED --
021587,000522:
021588,000523: # BANKCALL FLAGUP
021589,000524: # R02BOTH (IMU STATUS CHECK) ENDOFJOB
021590,000525: # R61LEM (PREF TRK ATT ROUT) WAITLIST
021591,000526: # TASKOVER FINDVAC
021592,000527:
021593,000528: # NORMAL EXIT MODES --
021594,000529:
021595,000530: # P25 MAY BE TERMINATED IN TWO WAYS -- ASTRONAUT SELECTION OF IDLING
021596,000531: # PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
021597,000532:
021598,000533: # ALARM OR ABORT EXIT MODES --
021599,000534:
021600,000535: # NONE
021601,000536:
021602,000537: # OUTPUT
021603,000538:
021604,000539: # ERASABLE INITIALIZATION REQUIRED
021605,000540:
021606,000541: # FLAGS SET + RESET
021607,000542:
021608,000543: # TRACKFLG, P25FLAG
021609,000544:
021610,000545: # DEBRIS
021611,000546:
021612,000547: # NONE
021613,000548:
021614,000549: 24,2404 E7,1456 EBANK= LOSCOUNT
021615,000550: 24,2404 COUNT* $$/P25
021616,000551: 24,2404 05327 PROG25 TC 2PHSCHNG
021617,000552: 24,2405 00004 OCT 4 # MAKE GROUP 4 INACTIVE (VERB 37)
021618,000553: 24,2406 05022 OCT 05022
021619,000554: 24,2407 26000 OCT 26000 # PRIORITY 26
021620,000555:
021621,000556: 24,2410 04616 TC BANKCALL
021622,000557: 24,2411 11254 CADR R02BOTH # IMU STATUS CHECK
021623,000558: 24,2412 05504 TC UPFLAG
021624,000559: 24,2413 00031 ADRES TRACKFLG # SET TRACK FLAG
021625,000560: 24,2414 05504 TC UPFLAG
021626,000561: 24,2415 00006 ADRES P25FLAG # SET P25FLAG
021627,000562: 24,2416 05353 P25LEM1 TC PHASCHNG
021628,000563: 24,2417 04022 OCT 04022
021629,000564: 24,2420 34743 CAF P25FLBIT
021630,000565: 24,2421 70074 MASK STATE # IS P25FLAG SET
021631,000566: 24,2422 00006 EXTEND
021632,000567: 24,2423 15155 BZF ENDOFJOB
021633,000568: 24,2424 34747 CAF TRACKBIT # IS TRACKFLAG SET?
021634,000569: 24,2425 70075 MASK STATE +1
021635,000570: 24,2426 00006 EXTEND
021636,000571: # Page 503
021637,000572: 24,2427 12437 BZF P25LMWT1 # NO -- SKIP PHASE CHANGE AND WAIT 1 MINUTE
021638,000573: 24,2430 34757 CAF SEVEN # CALL R65 -- FINE PREFERRED
021639,000574: 24,2431 55745 TS R65CNTR
021640,000575: 24,2432 04616 TC BANKCALL # TRACKING ATTITUDE ROUTINE
021641,000576: 24,2433 46123 CADR R65LEM
021642,000577: 24,2434 02416 TC P25LEM1 # THEN GO CHECK FLAGS
021643,000578: 24,2435 05353 P25LEMWT TC PHASCHNG
021644,000579: 24,2436 00112 OCT 00112
021645,000580: 24,2437 32450 P25LMWT1 CAF 60SCNDS
021646,000581: 24,2440 05173 TC TWIDDLE # WAIT ONE MINUTE THEN CHECK AGAIN
021647,000582: 24,2441 02443 ADRES P25LEM2
021648,000583: 24,2442 05155 TC ENDOFJOB
021649,000584: 24,2443 35024 P25LEM2 CAF PRIO14
021650,000585: 24,2444 05105 TC FINDVAC
021651,000586: 24,2445 E7,1456 EBANK= LOSCOUNT
021652,000587: 24,2445 02416 50067 2CADR P25LEM1
021653,000588:
021654,000589: 24,2447 05261 TC TASKOVER
021655,000590: 24,2450 13560 60SCNDS DEC 6000 B-14
021656,000591:
021657,000592: # Page 504
021658,000593: # DATA READ ROUTINE 22 (LEM)
021659,000594: # PROGRAM DESCRIPTION
021660,000595:
021661,000596: # MOD NO -- 2
021662,000597: # BY P. VOLANTE
021663,000598:
021664,000599: # FUNCTIONAL DESCRIPTION
021665,000600:
021666,000601: # TO PROCESS AUTOMATIC RR MARK DATA TO UPDATE THE STATE VECTOR OF EITHER
021667,000602: # LM OR CSM AS DEFINED IN THE RENDEZVOUS NAVIGATION PROGRAM (P20)
021668,000603:
021669,000604: # CALLING SEQUENCE --
021670,000605:
021671,000606: # TC BANKCALL
021672,000607: # CADR R22LEM
021673,000608:
021674,000609: # SUBROUTINES CALLED --
021675,000610:
021676,000611: # LSR22.1 GOFLASH WAITLIST
021677,000612: # LSR22.2 PRIOLARM BANKCALL
021678,000613: # LSR22.3 R61LEM
021679,000614:
021680,000615: # NORMAL EXIT MODES --
021681,000616:
021682,000617: # R22 WILL CONTINUE TO RECYCLE, UPDATING STATE VECTORS WITH RADAR DATA
021683,000618: # UNTIL P20 CEASES TO OPERATE (RENDEZVOUS FLAG SET TO ZERO) AT WHICH TIME
021684,000619: # R22 WILL TERMINATE SELF.
021685,000620:
021686,000621: # ALARM OR ABORT EXIT MODES --
021687,000622:
021688,000623: # PRIORITY ALARM
021689,000624: # PRIORITY ALARM 525 LOS NOT WITHIN 3 DEGREE LIMIT
021690,000625:
021691,000626: # OUTPUT
021692,000627:
021693,000628: # SEE OUTPUT FROM LSR22.3
021694,000629:
021695,000630: # ERASABLE INITIALIZATION REQUIRED
021696,000631:
021697,000632: # SEE LSR22.1, LSR22.2, LSR22.3
021698,000633:
021699,000634: # FLAGS SET + RESET
021700,000635:
021701,000636: # NOANGFLG
021702,000637:
021703,000638: # DEBRIS
021704,000639:
021705,000640: # SEE LSR22.1, LSR22.2, LSR22.3
021706,000641:
021707,000642: 24,2451 E7,1737 EBANK= LRS22.1X
021708,000643: 24,2451 COUNT* $$/R22
021709,000644: 24,2451 05353 R22LEM TC PHASCHNG
021710,000645: 24,2452 04022 OCT 04022
021711,000646: 24,2453 34745 CAF RNDVZBIT # IS RENDEZVOUS FLAG SET?
021712,000647: 24,2454 70074 MASK STATE
021713,000648: 24,2455 00006 EXTEND
021714,000649: 24,2456 15155 BZF ENDOFJOB # NO -- EXIT R22 AND P20
021715,000650: 24,2457 34747 CAF TRACKBIT # IS TRACKFLAG SET?
021716,000651: 24,2460 70075 MASK STATE +1
021717,000652: 24,2461 00006 EXTEND
021718,000653: 24,2462 12636 BZF R22WAIT # NO WAIT
021719,000654: 24,2463 34736 R22LEM12 CAF BIT14 # IS RR AUTO TRACK ENABLE DISCRETE STILL
021720,000655: 24,2464 00006 EXTEND # ON (A MONITOR REPOSITION BY R25 CLEARS IT)
021721,000656: 24,2465 02012 RAND CHAN12
021722,000657: 24,2466 00006 EXTEND
021723,000658: 24,2467 12111 BZF P20LEMA # NO -- RETURN TO P20
021724,000659: 24,2470 34752 CAF BIT2 # YES
021725,000660: 24,2471 00006 EXTEND # IS RR AUTO MODE DISCRETE PRESENT
021726,000661: 24,2472 02033 RAND CHAN33
021727,000662: # Page 505
021728,000663: 24,2473 00006 EXTEND
021729,000664: 24,2474 12476 BZF +2 # YES CONTINUE
021730,000665: 24,2475 02135 TC P20LEMB5 # NO -- SET IT
021731,000666: 24,2476 40110 CS RADMODES # ARE RR CDUS BEING ZEROED
021732,000667: 24,2477 74737 MASK RCDU0BIT
021733,000668: 24,2500 00006 EXTEND
021734,000669: 24,2501 12627 BZF R22LEM42 # CDUS BEING ZEROED
021735,000670: 24,2502 05353 TC PHASCHNG # IF A RESTART OCCURS, AND EXTRA RADAR
021736,000671: 24,2503 00152 OCT 00152 # READING IS TAKEN, SO BAD DATA ISN'T USED
021737,000672: 24,2504 04616 TC BANKCALL # YES READ DATA + CALCULATE LOS
021738,000673: 24,2505 64366 CADR LRS22.1 # DATA READ SUBROUTINE
021739,000674: 24,2506 50154 INDEX MPAC
021740,000675: 24,2507 02510 TC +1
021741,000676: 24,2510 02531 TC R22LEM2 # NORMAL RETURN (GOOD DATA)
021742,000677: 24,2511 02217 TC P20LEMC # COULD NOT READ RADAR -- TRY TO REDESIGNATE
021743,000678: 24,2512 32663 CAF ALRM525 # RR LOS NOT WITHIN 3 DEGREES (ALARM)
021744,000679: 24,2513 04616 TC BANKCALL
021745,000680: 24,2514 21562 CADR PRIOLARM
021746,000681: 24,2515 06022 TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
021747,000682: 24,2516 02521 TC R22LEM1 # PROC (DISPLAY DELTA THETA)
021748,000683: 24,2517 02512 TC -5 # ENTER (ILLEGAL OPTION)
021749,000684: 24,2520 05155 TC ENDOFJOB
021750,000685:
021751,000686: 24,2521 05353 R22LEM1 TC PHASCHNG
021752,000687: 24,2522 04022 OCT 04022
021753,000688: 24,2523 32664 CAF V06N05 # DISPLAY DELTA THETA
021754,000689: 24,2524 04616 TC BANKCALL
021755,000690: 24,2525 20507 CADR PRIODSP
021756,000691: 24,2526 06022 TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
021757,000692: 24,2527 02531 TC R22LEM2 # PROC (OK CONTINUE)
021758,000693: 24,2530 02217 TC P20LEMC # ENTER (RECYCLE)
021759,000694: 24,2531 05353 R22LEM2 TC PHASCHNG
021760,000695: 24,2532 04022 OCT 04022
021761,000696: 24,2533 02667 TC LUNSFCHK # CHECK IF ON LUNAR SURFACE (P22FLAG SET)
021762,000697: 24,2534 02551 TC R22LEM3 # YES -- BYPASS FLAG CHECKS AND LRS22.2
021763,000698: 24,2535 30075 CA FLAGWRD1 # IS TRACK FLAG SET
021764,000699: 24,2536 74747 MASK TRACKBIT
021765,000700: 24,2537 00006 EXTEND
021766,000701: 24,2540 12636 BZF R22WAIT # NO -- WAIT
021767,000702: 24,2541 04616 TC BANKCALL # YES
021768,000703: 24,2542 51333 CADR LRS22.2 # CHECKS RR BORESIGHT WITHIN 30 DEG OF +Z
021769,000704: 24,2543 50154 INDEX MPAC
021770,000705: 24,2544 02545 TC +1
021771,000706: 24,2545 02551 TC R22LEM3 # NORMAL RETURN (LOS WITHIN 30 OF Z-AXIS)
021772,000707: 24,2546 04616 TC BANKCALL
021773,000708: 24,2547 46116 CADR R61LEM
021774,000709: 24,2550 02636 TC R22WAIT # NOT WITHIN 30 DEG OF Z-AXIS
021775,000710: 24,2551 40075 R22LEM3 CS FLAGWRD1 # SHOULD WE BYPASS STATE VECTOR UPDATE
021776,000711: 24,2552 74746 MASK NOUPFBIT # (IS NO UPDATE FLAG SET?)
021777,000712: # Page 506
021778,000713: 24,2553 00006 EXTEND
021779,000714: 24,2554 12627 BZF R22LEM42 # BRANCH -- YES
021780,000715: 24,2555 30075 CA FLAGWRD1 # IS UPDATE FLAG SET
021781,000716: 24,2556 74745 MASK UPDATBIT
021782,000717: 24,2557 00006 EXTEND
021783,000718: 24,2560 12627 BZF R22LEM42 # UPDATE FLAG NOT SET
021784,000719: 24,2561 37714 CAF PRIO26 # INSURE HIGH PRIO IN RESTART
021785,000720: 24,2562 55056 TS PHSPRDT2
021786,000721:
021787,000722: 24,2563 06037 TC INTPRET
021788,000723: 24,2564 77650 GOTO
021789,000724: 24,2565 54412 LSR22.3
021790,000725: 24,2566 77776 R22LEM93 EXIT # NORMAL EXIT FROM LSR22.3
021791,000726: 24,2567 05353 TC PHASCHNG # PHASE CHANGE TO PROTECT AGAINST
021792,000727: 24,2570 04022 OCT 04022 # CONFLICT WITH GRP2PC ERASEABLE
021793,000728: 24,2571 12622 TCF R22LEM44
021794,000729: 24,2572 77776 R22LEM96 EXIT
021795,000730: 24,2573 34755 CAF ZERO # SET N49FLAG = ZERO TO INDICATE
021796,000731: 24,2574 55746 TS N49FLAG # V06 N49 DISPLAY HASN'T BEEN ANSWERED
021797,000732: 24,2575 05353 TC PHASCHNG
021798,000733: 24,2576 04022 OCT 04022 # TO PROTECT DISPLAY
021799,000734: 24,2577 37715 CAF PRIO27 # PROTECT DISPLAY
021800,000735: 24,2600 05072 TC NOVAC
021801,000736: 24,2601 E7,1746 EBANK= N49FLAG
021802,000737: 24,2601 02644 50067 2CADR N49DSP
021803,000738:
021804,000739: 24,2603 06037 TC INTPRET
021805,000740: 24,2604 77735 SLOAD
021806,000741: 24,2605 03747 N49FLAG
021807,000742: 24,2606 50054 BZE BMN # LOOP TO CHECK IF FLAG
021808,000743: 24,2607 50604 -3 # SETTING CHANGED -- BRANCH -- NO
021809,000744: 24,2610 50616 R22LEM7 # PROCEED
021810,000745: 24,2611 77776 EXIT # DISPLAY ANSERED BY RECYCLE
021811,000746: 24,2612 02667 TC LUNSFCHK # ARE WE ON LUNAR SURFACE
021812,000747: 24,2613 02636 TC R22WAIT # YES -- 15 SECOND DELAY
021813,000748: 24,2614 34755 CA ZERO # NO -- SET R65COUNTER = 0, DO FINE
021814,000749: 24,2615 02632 TC R22LEM45 # TRACKING TAKE ANOTHER RADAR READING
021815,000750: 24,2616 77624 R22LEM7 CALL # PROCEED
021816,000751: 24,2617 11244 GRP2PC # PHASE CHANGE AND
021817,000752: 24,2620 77650 GOTO # GO TO INCOPORATE DATA.
021818,000753: 24,2621 55431 ASTOK
021819,000754: 24,2622 25462 R22LEM44 INCR MARKCTR # INCREMENT COUNT OF MARKS INCORPORATED.
021820,000755: 24,2623 02667 TC LUNSFCHK # ARE WE ON LUNAR SURFACE
021821,000756: 24,2624 02640 TC R22LEM46 # YES -- WAIT 2 SECONDS
021822,000757: 24,2625 34756 CA FIVE # NOT ON LUNAR SURFACE
021823,000758: 24,2626 02632 TC R22LEM45 # R65COUNTER = 5
021824,000759: 24,2627 02667 R22LEM42 TC LUNSFCHK # CHECK IF ON LUNAR SURFACE (P22FLAG SET)
021825,000760: 24,2630 02640 TC R22LEM46 # YES -- WAIT 2 SECONDS
021826,000761: 24,2631 34752 CA TWO # NO -- SET R65COUNTER = 2
021827,000762: 24,2632 55745 R22LEM45 TS R65CNTR
021828,000763: # Page 507
021829,000764: 24,2633 04616 TC BANKCALL
021830,000765: 24,2634 46123 CADR R65LEM # FINE PREFERRED TRACKING ATTITUDE
021831,000766: 24,2635 02451 TC R22LEM
021832,000767: 24,2636 32666 R22WAIT CAF 1500DEC
021833,000768: 24,2637 02233 TC P20LEMWT +1
021834,000769:
021835,000770: 24,2640 35000 R22LEM46 CAF 2SECS
021836,000771: 24,2641 04616 TC BANKCALL # WAIT 2 SECONDS AND TAKE ANOTHER MARK
021837,000772: 24,2642 01735 CADR DELAYJOB
021838,000773: 24,2643 02451 TC R22LEM
021839,000774:
021840,000775: 24,2644 32665 N49DSP CAF V06N49NB
021841,000776: 24,2645 04616 TC BANKCALL # EXCESSIVE STATE VECTOR UPDATE -- FLASH
021842,000777: 24,2646 20507 CADR PRIODSP # VERB 06 NOUN 49 R1=DELTA R, R2=DELTA V
021843,000778: 24,2647 06022 TC GOTOV56 # TERMINATE -- EXIT R22 AND P20
021844,000779: 24,2650 44753 CS ONE # PROCEED -- N49FLAG = -1
021845,000780: 24,2651 55746 TS N49FLAG # RECYCLE -- N49FLAG = + VALUE
021846,000781: 24,2652 05155 TC ENDOFJOB
021847,000782: 24,2653 05353 R22RSTRT TC PHASCHNG # IF A RESTART OCCURS WHILE READING RADAR
021848,000783: 24,2654 00152 OCT 00152 # COME HERE TO TAKE A RANGE-RATE READING
021849,000784: 24,2655 04616 TC BANKCALL # WHICH ISN'T USED TO PREVENT TAKING A BAD
021850,000785: 24,2656 53103 CADR RRRDOT # READING AND TRYING TO INCORPORATE THE
021851,000786: 24,2657 04616 TC BANKCALL # BAD DATA
021852,000787: 24,2660 17714 CADR RADSTALL # WAIT FOR READ COMPLETE
021853,000788: 24,2661 02217 TC P20LEMC # COULD NOT READ RADAR -- TRY TO REDISGNATE
021854,000789: 24,2662 02451 TC R22LEM # READ SUCCESSFUL -- CONTINUE AT R22
021855,000790:
021856,000791: 24,2663 00525 ALRM525 OCT 00525
021857,000792: 24,2664 01405 V06N05 VN 00605
021858,000793: 24,2665 01461 V06N49NB VN 00649
021859,000794: 24,2666 02734 1500DEC DEC 1500 B-14
021860,000795:
021861,000796: # LUNSFCHECK -- CLOSED SUBROUTINE TO CHECK IF ON LUNAR SURFACE (P22FLAG)
021862,000797: # RETURNS TO CALLER +1 IF P22FLAG SET
021863,000798: # TO CALLER +2 IF P22FLAG NOT SET
021864,000799:
021865,000800: 24,2667 COUNT* $$/P22
021866,000801: 24,2667 40104 LUNSFCHK CS FLAGWRD8 # CHECK IF ON LUNAR SURFACE
021867,000802: 24,2670 74744 MASK SURFFBIT # IS SURFFLAG SET?
021868,000803: 24,2671 10000 CCS A # BRANCH -- P22FLAG SET
021869,000804: 24,2672 24002 INCR Q # NOT SET
021870,000805: 24,2673 00002 TC Q # RETURN
021871,000806:
021872,000807: # Page 508
021873,000808: # RR DESIGNATE ROUTINE (R21LEM)
021874,000809: # PROGRAM DESCRIPTION
021875,000810:
021876,000811: # MOD NO -- 2
021877,000812: # BY P. VOLANTE
021878,000813:
021879,000814: # FUNCTIONAL DESCRIPTION
021880,000815:
021881,000816: # TO POINT THE RENDEZVOUS RADAR AT THE CSM UNTIL AUTOMATIC ACQUISITION
021882,000817: # OF THE CSM IS ACCOMPLISHED BY THE RADAR. ROUTINE IS CALLED BY P20.
021883,000818:
021884,000819: # CALLING SEQUENCE --
021885,000820:
021886,000821: # TC BANKCALL
021887,000822: # CADR R21LEM
021888,000823:
021889,000824: # SUBROUTINES CALLED --
021890,000825:
021891,000826: # FINDVAC FLAGUP ENDOFJOB PRIOLARM
021892,000827: # NOVAC INTPRET LPS20.1 PHASCHNG
021893,000828: # WAITLIST JOBSLEEP JOBWAKE FLAGDOWN
021894,000829: # TASKOVER BANKCALL RADSTALL RRDESSM
021895,000830:
021896,000831: # NORMAL EXIT MODES
021897,000832: #
021898,000833: # WHEN LOCK-ON IS ACHIEVED, BRANCH WILL BE TO P20 WHERE R22 (DATA READ
021899,000834: # WILL BE SELECTED OR A NEED FOR A MANEUVER (BRANCH TO P20LEMA)
021900,000835:
021901,000836: # ALARM OR ABORT EXIT MODES --
021902,000837:
021903,000838: # PRIORITY ALARM 503 WHEN LOCK-ON HASN'T BEEN ACHIEVED AFTER 30SECS --
021904,000839: # THIS REQUIRES ASTRONAUT INTERFACE: SELECTION OF SEARCH OPTION OF
021905,000840: # ACQUISITION
021906,000841:
021907,000842: # OUTPUT
021908,000843:
021909,000844: # SEE LPS20.1, RRDESSM
021910,000845:
021911,000846: # ERASABLE INITIALIZATION REQUIRED
021912,000847:
021913,000848: # RRTARGET, RADMODES ARE USED BY LPS20.1 AND RRDESSM
021914,000849:
021915,000850: # FLAGS SET + RESET
021916,000851:
021917,000852: # LOSCMFLG LOKONSW
021918,000853:
021919,000854: # DEBRIS
021920,000855:
021921,000856: # SEE LPS20.1, RRSESSM
021922,000857:
021923,000858: 24,2674 E7,1456 EBANK= LOSCOUNT
021924,000859: 24,2674 COUNT* $$/R21
021925,000860: 24,2674 44736 R21LEM CS BIT14 # REMOVE RR SELF TRACK ENABLE
021926,000861: 24,2675 00006 EXTEND
021927,000862: 24,2676 03012 WAND CHAN12
021928,000863: 24,2677 02667 TC LUNSFCHK
021929,000864: 24,2700 02705 TC R21LEM5
021930,000865: 24,2701 34755 CAF ZERO # COMMAND ANTENNA TO MODE CENTER
021931,000866: 24,2702 55107 TS TANG # IF NOT ON SURFACE -- MODE 1 -- (T=0,S=0)
021932,000867: 24,2703 55110 TS TANG +1
021933,000868: 24,2704 02715 TC R21LEM6
021934,000869: 24,2705 34740 R21LEM5 CAF BIT12
021935,000870: 24,2706 70110 MASK RADMODES
021936,000871: 24,2707 10000 CCS A
021937,000872: 24,2710 02725 TC R21LEM10
021938,000873: 24,2711 34735 CAF BIT15
021939,000874: 24,2712 55107 TS TANG
021940,000875: 24,2713 44736 CS HALF
021941,000876: 24,2714 55110 TS TANG +1
021942,000877:
021943,000878: # Page 509
021944,000879: 24,2715 05516 R21LEM6 TC DOWNFLAG
021945,000880: 24,2716 00012 ADRES LOKONSW
021946,000881: 24,2717 04616 TC BANKCALL
021947,000882: 24,2720 52475 CADR RRDESNB
021948,000883: 24,2721 02722 TC +1
021949,000884: 24,2722 04616 TC BANKCALL
021950,000885: 24,2723 17714 CADR RADSTALL
021951,000886: 24,2724 02760 TC R21-503 # BAD RETURN FROM DESIGNATE -- ISSUE ALARM
021952,000887: 24,2725 05504 R21LEM10 TC UPFLAG
021953,000888: 24,2726 00041 ADRES LOSCMFLG # EVERY FOURTH PASS THRU DODES
021954,000889: 24,2727 32310 CAF MAXTRIES # ALLOW 60 PASSES (APPROX 45 SECONDS)
021955,000890: 24,2730 55114 TS DESCOUNT # TO DESIGNATE AND LOCK ON
021956,000891: 24,2731 36245 R21LEM2 CAF THREE
021957,000892: 24,2732 55456 TS LOSCOUNT
021958,000893: 24,2733 06037 R21LEM1 TC INTPRET
021959,000894: 24,2734 43234 RTB DAD
021960,000895: 24,2735 21573 LOADTIME
021961,000896: 24,2736 11120 HALFSEC # EXTRAPOLATE TO PRESENT TIME + .5 SEC.
021962,000897: 24,2737 34041 STCALL TDEC1 # LOS DETERMINATION ROUTINE
021963,000898: 24,2740 51255 LPS20.1
021964,000899: 24,2741 77776 EXIT
021965,000900: 24,2742 05504 R21LEM3 TC UPFLAG # SET LOKONSW TO RADAR -- ON DESIRED
021966,000901: 24,2743 00012 ADRES LOKONSW
021967,000902: 24,2744 05516 TC DOWNFLAG
021968,000903: 24,2745 00126 ADRES NORRMON
021969,000904: 24,2746 06037 TC INTPRET
021970,000905: 24,2747 77624 CALL # INPUT (RRTARGET UPDATED BY LPS20.1)
021971,000906: 24,2750 52373 RRDESSM # DESIGNATE ROUTINE
021972,000907: 24,2751 77776 EXIT
021973,000908: 24,2752 02777 TC R21LEM4 # LOS NOT IN MODE 2 COVERAGE
021974,000909: # ON LUNAR SURFACE
021975,000910: 24,2753 02111 TC P20LEMA # VEHICLE MANEUVER REQUIRED.
021976,000911: 24,2754 04616 TC BANKCALL # NO VEHICLE MANEUVER REQUIRED
021977,000912: 24,2755 17714 CADR RADSTALL # WAIT FOR DESIGNATE COMPLETE -- LOCKON OR
021978,000913: 24,2756 02760 TC +2 # BAD END -- LOCKON NOT ACHIEVED IN 60 TRIES
021979,000914: 24,2757 02767 TC R21END # EXIT ROUTINE RETURN TO P20 (LOCK-ON)
021980,000915: 24,2760 32775 R21-503 CAF ALRM503 # ISSUE ALARM 503
021981,000916: 24,2761 04616 TC BANKCALL
021982,000917: 24,2762 21562 CADR PRIOLARM
021983,000918: 24,2763 06022 TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
021984,000919: 24,2764 02772 TC R21SRCH # PROC
021985,000920: 24,2765 02211 TC P20LEMC3
021986,000921: 24,2766 05155 TC ENDOFJOB
021987,000922: 24,2767 05516 R21END TC DOWNFLAG
021988,000923: 24,2770 00041 ADRES LOSCMFLG # RESET LOSCMFLG
021989,000924: 24,2771 03121 TC R21DISP # PUT UP VERIFY MAIN LOBE LOCKON DISPLAY
021990,000925: 24,2772 05353 R21SRCH TC PHASCHNG
021991,000926: 24,2773 04022 OCT 04022
021992,000927: 24,2774 03206 TC R24LEM # SEARCH ROUTINE
021993,000928: 24,2775 00503 ALRM503 OCT 00503
021994,000929: # Page 510
021995,000930: 24,2776 00527 ALRM527 OCT 527
021996,000931:
021997,000932: 24,2777 32310 R21LEM4 CAF MAXTRIES # SET UP COUNTER FOR
021998,000933: 24,3000 55423 TS REPOSCNT # 60 PASSES (APPROX 600 SECS.)
021999,000934: 24,3001 05504 TC UPFLAG
022000,000935: 24,3002 00005 ADRES FSPASFLG # SET FIRST PASS FLAG
022001,000936: 24,3003 05516 TC DOWNFLAG # RESET LOS BEING
022002,000937: 24,3004 00041 ADRES LOSCMFLG # COMPUTED FLAG
022003,000938: 24,3005 06037 TC INTPRET
022004,000939: 24,3006 77634 R21LEM12 RTB
022005,000940: 24,3007 21573 LOADTIME
022006,000941: 24,3010 77615 DAD
022007,000942: 24,3011 11116 TENSEC # TIME T = T + 10 SECS.
022008,000943: 24,3012 03425 STORE REPOSTM # SAVE FOR LONGCALL AND UPPSV
022009,000944: 24,3013 34041 STCALL TDEC1
022010,000945: 24,3014 51255 LPS20.1 # COMPUTE LOS AT TIME T
022011,000946: 24,3015 77624 CALL
022012,000947: 24,3016 52373 RRDESSM
022013,000948: 24,3017 77776 EXIT
022014,000949: 24,3020 03033 TC R21LEM13 # LOS NOT IN MODE 2 COVERAGE
022015,000950: 24,3021 05155 TC ENDOFJOB # VEHICLE MANEUVER REQUIRED
022016,000951: 24,3022 06027 TC KILLTASK
022017,000952: 24,3023 52573 CADR BEGDES
022018,000953: 24,3024 06037 TC INTPRET
022019,000954: 24,3025 77614 BOF
022020,000955: 24,3026 00345 FSPASFLG # FIRST PASS THRU REPOSITION
022021,000956: 24,3027 51043 R21LEMB # NO -- GO TO CONTINUOUS DESIGNATE
022022,000957: 24,3030 77614 CLRGO
022023,000958: 24,3031 00225 FSPASFLG # YES -- RESET FIRST PASS FLAG
022024,000959: 24,3032 51037 R21LEM7 +1
022025,000960: 24,3033 11423 R21LEM13 CCS REPOSCNT # HAVE WE TRIED 60 TIMES?
022026,000961: 24,3034 03036 TC R21LEM7 # NO -- ADD 10 SECS. RECOMPUTE LOS
022027,000962: 24,3035 03105 TC R21LEM11 # YES -- PUT OUT ALARM 530
022028,000963: 24,3036 55423 R21LEM7 TS REPOSCNT
022029,000964: 24,3037 06037 TC INTPRET
022030,000965: 24,3040 52145 DLOAD GOTO
022031,000966: 24,3041 03425 REPOSTM
022032,000967: 24,3042 51010 R21LEM12 +2
022033,000968: 24,3043 77745 R21LEMB DLOAD
022034,000969: 24,3044 03425 REPOSTM
022035,000970: 24,3045 34041 STCALL TDEC1
022036,000971: 24,3046 50316 UPPSV
022037,000972: 24,3047 77776 EXIT
022038,000973: 24,3050 05504 TC UPFLAG # SET RADMODES BIT 15 FOR
022039,000974: 24,3051 00264 ADRES CDESFLAG # CONTINUOUS DESIGNATION
022040,000975: 24,3052 05516 TC DOWNFLAG
022041,000976: 24,3053 00012 ADRES LOKONSW
022042,000977: 24,3054 05504 TC UPFLAG
022043,000978: 24,3055 00126 ADRES NORRMON
022044,000979: # Page 511
022045,000980: 24,3056 04616 TC BANKCALL
022046,000981: 24,3057 52475 CADR RRDESNB
022047,000982: 24,3060 03061 TC +1
022048,000983: 24,3061 06037 TC INTPRET
022049,000984: 24,3062 44234 RTB BDSU
022050,000985: 24,3063 21573 LOADTIME # COMPUTE DELTA TIME
022051,000986: 24,3064 03425 REPOSTM # FOR LONGCALL
022052,000987: 24,3065 03427 STORE DELTATM
022053,000988: 24,3066 77776 EXIT
022054,000989: 24,3067 00006 EXTEND
022055,000990: 24,3070 31427 DCA DELTATM
022056,000991: 24,3071 05277 TC LONGCALL
022057,000992: 24,3072 E7,1456 EBANK= LOSCOUNT
022058,000993: 24,3072 03075 50067 2CADR R21LEM9
022059,000994:
022060,000995: 24,3074 05155 TC ENDOFJOB
022061,000996: 24,3075 06027 R21LEM9 TC KILLTASK
022062,000997: 24,3076 52602 CADR STDESIG
022063,000998: 24,3077 06011 TC CLRADMOD
022064,000999: 24,3100 37714 CAF PRIO26
022065,001000: 24,3101 05105 TC FINDVAC
022066,001001: 24,3102 E7,1456 EBANK= LOSCOUNT
022067,001002: 24,3102 02725 50067 2CADR R21LEM10
022068,001003:
022069,001004: 24,3104 05261 TC TASKOVER
022070,001005: 24,3105 33114 R21LEM11 CAF ALRM530 # ALARM 530 -- LOS NOT IN COVERAGE
022071,001006: 24,3106 04616 TC BANKCALL # AFTER TRYING TO DESIGNATE FOR
022072,001007: 24,3107 21562 CADR PRIOLARM # 600 SECS.
022073,001008: 24,3110 06022 TC GOTOV56
022074,001009: 24,3111 06022 TC GOTOV56
022075,001010: 24,3112 06022 TC GOTOV56
022076,001011: 24,3113 05155 TC ENDOFJOB
022077,001012: 24,3114 00530 ALRM530 OCT 00530
022078,001013: 24,3115 00000 01750 TENSEC 2DEC 1000 B-28
022079,001014:
022080,001015: 24,3117 00000 00062 HALFSEC 2DEC 50 B-28
022081,001016:
022082,001017: 24,3121 05353 R21DISP TC PHASCHNG
022083,001018: 24,3122 04022 OCT 04022
022084,001019: 24,3123 33134 CAF V06N72PV # FLASH V 50 N 72 -- PLEASE PERFORM RR
022085,001020: 24,3124 04616 TC BANKCALL # MAIN LOBE LOCKON VERIFICATION
022086,001021: 24,3125 20710 CADR GOPERF2R
022087,001022: 24,3126 06022 TC GOTOV56 # TERMINATE EXITS VIA V 56
022088,001023: 24,3127 02232 TC P20LEMWT # PROCEED CONTINUES TO R22
022089,001024: 24,3130 03123 TC -5 # ENTER ILLEGAL
022090,001025: 24,3131 34745 CAF BIT7
022091,001026: 24,3132 05464 TC LINUS # SET BITS TO MAKE THIS A PRIORITY DISPLAY
022092,001027: 24,3133 05155 TC ENDOFJOB
022093,001028:
022094,001029: # Page 512
022095,001030: 24,3134 01510 V06N72PV VN 00672
022096,001031:
022097,001032: # Page 513
022098,001033: # MANUAL ACQUISITION ROUTINE R23LEM
022099,001034: # PROGRAM DESCRIPTION
022100,001035:
022101,001036: # MOD NO -- 2
022102,001037: # BY P. VOLANTE
022103,001038:
022104,001039: # FUNCTIONAL DESCRIPTION
022105,001040:
022106,001041: # TO ACQUIRE THE CSM BY MANUAL OPERATION OF THE RENDEZVOUS RADAR
022107,001042:
022108,001043: # CALLING SEQUENCE --
022109,001044:
022110,001045: # TC R23LEM
022111,001046:
022112,001047: # SUBROUTINES CALLED
022113,001048:
022114,001049: # BANKCALL R61LEM
022115,001050: # SETMINDB GOPERF1
022116,001051:
022117,001052: # NORMAL EXIT MODES --
022118,001053:
022119,001054: # IN RESPONSE TO THE GOPERF1, SELECTION OF ENTER WILL RECYCLE R23
022120,001055: # SELECTION OF PROC WILL CONTINUE R23
022121,001056: # SELECTION OF TERM WILL TERMINATE R23 + P20
022122,001057:
022123,001058: # ALARM OR ABORT EXIT MODES --
022124,001059:
022125,001060: # SEE NORMAL EXIT MODES ABOVE
022126,001061:
022127,001062: # OUTPUT
022128,001063:
022129,001064: # N.A.
022130,001065:
022131,001066: # ERASABLE INITIALIZATION REQUIRED --
022132,001067:
022133,001068: # ACMODFLG MUST BE SET TO 1 (MANUAL MODE)
022134,001069:
022135,001070: 24,3135 1143 EBANK= GENRET
022136,001071: 24,3135 COUNT* $$/R23
022137,001072: 24,3135 05504 R23LEM TC UPFLAG # SET NO ANGLE MONITOR FLAG
022138,001073: 24,3136 00126 ADRES NORRMON
022139,001074: 24,3137 00004 INHINT
022140,001075: 24,3140 04674 TC IBNKCALL # SELECT MINIMUM DEADBAND
022141,001076: 24,3141 40140 CADR SETMINDB
022142,001077: 24,3142 00003 RELINT
022143,001078: 24,3143 34736 R23LEM1 CAF BIT14 # ENABLE TRACKER
022144,001079: 24,3144 00006 EXTEND
022145,001080: 24,3145 05012 WOR CHAN12
022146,001081: 24,3146 33205 CAF OCT205
022147,001082: 24,3147 04616 TC BANKCALL
022148,001083: 24,3150 20623 CADR GOPERF1
022149,001084: 24,3151 03176 TC R23LEM2 # TERMINATE
022150,001085: 24,3152 03154 TC R23LEM11 # PROCEDE
022151,001086: 24,3153 03201 TC R23LEM3 # ENTER -- DO ANOTHER MANEUVER
022152,001087: 24,3154 00004 R23LEM11 INHINT
022153,001088: 24,3155 04523 TC RRLIMCHK # YES -- CHECK IF ANTENNA IS WITHIN LIMITS
022154,001089: 24,3156 00035 ADRES CDUT
022155,001090: 24,3157 03166 TC OUTOFLIM # NOT WITHIN LIMITS
022156,001091: 24,3160 04674 TC IBNKCALL # RESTORE DEADBAND TO
022157,001092: 24,3161 40123 CADR RESTORDB # ASTRONAUT SELECTED VALUE
022158,001093: 24,3162 00003 RELINT
022159,001094: 24,3163 05516 TC DOWNFLAG # CLEAR NO ANGLE MONITOR FLAG
022160,001095: 24,3164 00126 ADRES NORRMON
022161,001096: 24,3165 02163 TC P20LEMB1 # RADAR IS LOCKED ON CONTINUE IN P20
022162,001097: 24,3166 00003 OUTOFLIM RELINT
022163,001098: # Page 514
022164,001099: 24,3167 33204 CAF OCT501PV
022165,001100: 24,3170 04616 TC BANKCALL # ISSUE ALARM -- RR ANTENNA NOT WITHIN
022166,001101: 24,3171 21562 CADR PRIOLARM # LIMITS
022167,001102: 24,3172 03176 TC R23LEM2 # TERMINATE -- EXIT R23 TO R00 (GO TO P00H)
022168,001103: 24,3173 03167 TC OUTOFLIM +1 # PROCEED ILLEGAL
022169,001104: 24,3174 03201 TC R23LEM3 # RECYCLE -- TO ANOTHER MANEUVER
022170,001105: 24,3175 05155 TC ENDOFJOB
022171,001106: 24,3176 05516 R23LEM2 TC DOWNFLAG # CLEAR NO ANGLE MONITOR FLAG
022172,001107: 24,3177 00126 ADRES NORRMON
022173,001108: 24,3200 06022 TC GOTOV56 # AND EXIT VIA V56
022174,001109: 24,3201 04616 R23LEM3 TC BANKCALL
022175,001110: 24,3202 46116 CADR R61LEM
022176,001111: 24,3203 03143 TC R23LEM1
022177,001112:
022178,001113: 24,3204 00501 OCT501PV OCT 501
022179,001114: 24,3205 00205 OCT205 OCT 205
022180,001115:
022181,001116: # Page 515
022182,001117: # SEARCH ROUTINE R24LEM
022183,001118: # PROGRAM DESCRIPTION
022184,001119:
022185,001120: # MOD NO -- 2
022186,001121: # BY P. VOLANTE
022187,001122:
022188,001123: # FUNCTIONAL DESCRIPTION
022189,001124:
022190,001125: # TO ACQUIRE THE CSM BY A SEARCH PATTERN WHEN THE RENDEZVOUS RADAR HAS
022191,001126: # FAILED TO ACQUIRE TEH CSM IN THE AUTOMATIC TRACKING MODE AND TO ALLOW
022192,001127: # THE ASTRONAUT TO CONFIRM THAT REACQUISITION HAS NOT BEEN IN SIDELOBE.
022193,001128:
022194,001129: # CALLING SEQUENCE
022195,001130:
022196,001131: # CAF PRIONN
022197,001132: # TC FINDVAC
022198,001133: # EBANK= DATAGOOD
022199,001134: # 2CADR R24LEM
022200,001135:
022201,001136: # SUBROUTINES CALLED
022202,001137:
022203,001138: # FLAGUP FLAGDOWN BANKCALL
022204,001139: # R61LEM GOFLASHR FINDVAC
022205,001140: # ENDOFJOB NOVAC LSR24.1
022206,001141:
022207,001142: # NORMAL EXIT MODES --
022208,001143:
022209,001144: # ASTRONAUT RESPONSE TO DISPLAY OF OMEGA AND DATAGOOD. HE CAN EITHER
022210,001145: # REJECT BY TERMINATING (SEARCH OPTION AND RESELECTING P20) OR ACCEPT BY
022211,001146: # PROCEEDING (EXIT ROUTINE AND RETURN TO AUTO MODE IN P20)
022212,001147:
022213,001148: # ALARM OR ABORT EXIT MODES --
022214,001149:
022215,001150: # SEE NORMAL EXIT MODES ABOVE
022216,001151:
022217,001152: # OUTPUT --
022218,001153:
022219,001154: # SEE OUTPUT FROM LSR24.1 + R61LEM
022220,001155:
022221,001156: # ERASABLE INITIALIZATION REQUIRED
022222,001157:
022223,001158: # SET INPUT FOR LSR24.1
022224,001159:
022225,001160: # FLAGS SET + RESET
022226,001161:
022227,001162: # SRCHOPT, ACMODFLG
022228,001163:
022229,001164: 24,3206 E7,1733 EBANK= DATAGOOD
022230,001165: 24,3206 COUNT* $$/R24
022231,001166: 24,3206 05504 R24LEM TC UPFLAG
022232,001167: 24,3207 00037 ADRES SRCHOPTN # SET SRCHOPT FLAG
022233,001168: 24,3210 05516 TC DOWNFLAG # RESET LOS BEING COMPUTED FLAG TO MAKE
022234,001169: 24,3211 00041 ADRES LOSCMFLG # SURE DODES DOESN'T GO TO R21
022235,001170: 24,3212 34755 R24LEM1 CAF ZERO
022236,001171: 24,3213 55733 TS DATAGOOD # ZERO OUT DATA INDICATOR
022237,001172: 24,3214 55734 TS OMEGAD # ZERO OMEGA DISPLAY REGS
022238,001173: 24,3215 55735 TS OMEGAD +1 # ZERO OMEGA DISPLAY REGS
022239,001174: 24,3216 05353 R24LEM2 TC PHASCHNG
022240,001175: 24,3217 04022 OCT 04022
022241,001176: 24,3220 33254 CAF V16N80
022242,001177: 24,3221 04616 TC BANKCALL
022243,001178: 24,3222 20504 CADR PRIODSPR
022244,001179: 24,3223 06022 TC GOTOV56
022245,001180: 24,3224 03230 TC R24END # PROCEED EXIT R24 TO P20LEM1
022246,001181:
022247,001182: 24,3225 03234 TC R24LEM3 # RECYCLE -- CALL R61 TO MANEUVER S/C
022248,001183: # Page 516
022249,001184: 24,3226 04616 TC BANKCALL
022250,001185: 24,3227 55442 CADR LRS24.1
022251,001186: 24,3230 06027 R24END TC KILLTASK
022252,001187: 24,3231 55643 CADR CALLDGCH
022253,001188: 24,3232 06011 TC CLRADMOD # CLEAR BITS 10 & 15 OF RADMODES.
022254,001189: 24,3233 12063 TCF P20LEM1 # AND GO TO 400 MI. RANGE CHECK IN P20
022255,001190:
022256,001191: 6011 BLOCK 3
022257,001192: 6000 SETLOC FFTAG6
022258,001193: 6000 BANK
022259,001194: 6011 COUNT* $$/R24
022260,001195:
022261,001196: 6011 46021 CLRADMOD CS BIT10+15
022262,001197: 6012 00004 INHINT
022263,001198: 6013 70110 MASK RADMODES
022264,001199: 6014 54110 TS RADMODES
022265,001200: 6015 44752 CS BIT2 # DISABLE RR ERROR COUNTERS
022266,001201: 6016 00006 EXTEND
022267,001202: 6017 03012 WAND CHAN12 # USER WILL RELINT
022268,001203:
022269,001204: 6020 00002 TC Q
022270,001205:
022271,001206: 6021 41000 BIT10+15 OCT 41000
022272,001207: 24,3234 BANK 24
022273,001208: 24,2000 SETLOC P20S
022274,001209: 24,2000 BANK
022275,001210: 24,3234 COUNT* $$/R24
022276,001211:
022277,001212: 24,3234 05353 R24LEM3 TC PHASCHNG
022278,001213: 24,3235 04022 OCT 04022
022279,001214: 24,3236 06027 TC KILLTASK
022280,001215: 24,3237 55643 CADR CALLDGCH # KILL WAITLIST FOR NEXT POINT IN PATTERN
022281,001216: 24,3240 06011 TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES TO KILL
022282,001217: 24,3241 00003 RELINT # HALF SECOND DESIGNATE LOOP
022283,001218: 24,3242 34774 CAF .5SEC
022284,001219: 24,3243 04616 TC BANKCALL # WAIT FOR DESIGNATE LOOP TO DIE
022285,001220: 24,3244 01735 CADR DELAYJOB
022286,001221: 24,3245 02667 TC LUNSFCHK # CHECK IF ON LUNAR SURFACE
022287,001222: 24,3246 03251 TC R24LEM4 # YES -- DON'T DO ATTITUDE MANEUVER
022288,001223: 24,3247 04616 TC BANKCALL # CALL R61 TO DO PREFERRED TRACKING
022289,001224: 24,3250 46116 CADR R61LEM # ATTITUDE MANEUVER
022290,001225: 24,3251 34755 R24LEM4 CAF ZERO # ZERO OUT RADCADR (WHICH WAS SET BY
022291,001226: 24,3252 55306 TS RADCADR # ENDRADAR WHEN DESIGNATE STOPPED) SO THAT
022292,001227: # RRDESSM WILL RETURN TO CALLER
022293,001228: 24,3253 03216 TC R24LEM2 # AND GO BACK TO PUT UP V16 N80 DISPLAY
022294,001229:
022295,001230: 24,3254 04120 V16N80 VN 01680
022296,001231:
022297,001232: # Page 517
022298,001233: # PREFERRED TRACKING ATTITUDE ROUTINE R61LEM
022299,001234: # PROGRAM DESCRIPTION
022300,001235:
022301,001236: # MOD NO: 3 DATE: 4-11-67
022302,001237: # MOD BY: P. VOLANTE, SDC
022303,001238:
022304,001239: # FUNCTIONAL DESCRIPTION --
022305,001240:
022306,001241: # TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE LM TO ENABLE RR
022307,001242: # TRACKING OF THE CSM AND TO PERFORM THE MANEUVER TO THE PREFERRED
022308,001243: # ATTITUDE.
022309,001244:
022310,001245: # CALLING SEQUENCE --
022311,001246:
022312,001247: # TC BANKCALL
022313,001248: # CADR R61LEM
022314,001249:
022315,001250: # SUBROUTINES CALLED
022316,001251:
022317,001252: # LPS20.1 VECPOINT
022318,001253: # KALCMAN3
022319,001254:
022320,001255: # NORMAL EXIT MODES --
022321,001256:
022322,001257: # NORMAL RETURN IS TO CALLER + 1
022323,001258:
022324,001259: # ALARM OR ABORT EXIT MODES --
022325,001260:
022326,001261: # TERMINATE P20 + R61 BY BRANCHING TO P20END IF BOTH TRACKFLAG +
022327,001262: # RENDEZVOUS FLAG ARE NOT SET.
022328,001263:
022329,001264: # OUTPUT --
022330,001265:
022331,001266: # SEE OUTPUT FOR LPS20.1 + ATTITUDE MANEUVER ROUTINE (R60)
022332,001267:
022333,001268: # ERASABLE INITIALIZATION REQUIRED
022334,001269:
022335,001270: # GENRET USED TO SAVE Q FOR RETURN
022336,001271:
022337,001272: # FLAGS SET + RESET
022338,001273:
022339,001274: # 3AXISFLG
022340,001275:
022341,001276: # DEBRIS
022342,001277:
022343,001278: # SEE SUBROUTINES
022344,001279:
022345,001280: 23,2000 SETLOC R61
022346,001281: 23,2000 BANK
022347,001282: 23,2116 E7,1456 EBANK= LOSCOUNT
022348,001283: 23,2116 COUNT* $$/R61
022349,001284: 23,2116 04645 R61LEM TC MAKECADR
022350,001285: 23,2117 55143 TS GENRET
022351,001286: 23,2120 05504 TC UPFLAG # SET R61 FLAG
022352,001287: 23,2121 00024 ADRES R61FLAG
022353,001288: 23,2122 02127 TC R61C+L01
022354,001289: 23,2123 04645 R65LEM TC MAKECADR
022355,001290: 23,2124 55143 TS GENRET
022356,001291: 23,2125 05516 TC DOWNFLAG # RESET R61 FLAG
022357,001292: 23,2126 00024 ADRES R61FLAG
022358,001293: 23,2127 34747 R61C+L01 CAF TRACKBIT # TRACKFLAG
022359,001294: 23,2130 70075 MASK STATE +1
022360,001295: 23,2131 00006 EXTEND
022361,001296: 23,2132 12271 BZF R65WAIT # NOT SET
022362,001297: 23,2133 06037 R61C+L03 TC INTPRET
022363,001298: 23,2134 77775 VLOAD
022364,001299: # Page 518
022365,001300: 23,2135 06514 HIUNITZ
022366,001301: 23,2136 03765 STORE SCAXIS # TRACK AXIS UNIT VECTOR
022367,001302: 23,2137 43234 R61LEM1 RTB DAD
022368,001303: 23,2140 21573 LOADTIME # EXTRAPOLATE FORWARD TO CENTER
022369,001304: 23,2141 15712 3SECONDS # SIX SECOND PERIOD.
022370,001305: 23,2142 34041 STCALL TDEC1
022371,001306: 23,2143 51255 LPS20.1 # LOS DETERMINATION + VEH ATTITUDE
022372,001307: 23,2144 77775 VLOAD
022373,001308: 23,2145 01102 RRTARGET
022374,001309: 23,2146 03773 STORE POINTVSM
022375,001310: 23,2147 45034 RTB CALL # GET DESIRED CDU'S FOR VECPNT1
022376,001311: 23,2150 46277 READCDUD
022377,001312: 23,2151 56032 VECPNT1 # COMPUTES FINAL ANGLES FROM PRESENT CDUDS
022378,001313: 23,2152 00322 STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI
022379,001314: 23,2153 77776 EXIT
022380,001315: 23,2154 05353 TC PHASCHNG
022381,001316: 23,2155 04022 OCT 04022
022382,001317: 23,2156 34747 CAF TRACKBIT # IS TRACK FLAG SET
022383,001318: 23,2157 70075 MASK FLAGWRD1
022384,001319: 23,2160 00006 EXTEND
022385,001320: 23,2161 12271 BZF R65WAIT
022386,001321: 23,2162 04616 TC BANKCALL
022387,001322: 23,2163 54255 CADR G+N,AUTO # CHECK FOR AUTO MODE
022388,001323: 23,2164 10000 CCS A
022389,001324: 23,2165 02257 TC R61C+L04 # NOT IN AUTO
022390,001325: 23,2166 06037 TC INTPRET
022391,001326: 23,2167 45175 VLOAD CALL
022392,001327: 23,2170 01102 RRTARGET
022393,001328: 23,2171 47646 CDU*SMNB
022394,001329: 23,2172 45345 DLOAD DSU # GET PHI -- ARCCOS OF Z-COMPONENT OF LOS
022395,001330: 23,2173 00162 MPAC +5
022396,001331: 23,2174 06275 COS15DEG
022397,001332: 23,2175 77440 R61LEM2 BMN EXIT # BRANCH -- PHI > 15 DEGREES
022398,001333: 23,2176 46213 R61C+L05 # PHI GRE 10DEG
022399,001334: 23,2177 E6,1635 EBANK= CDUXD
022400,001335: 23,2177 35015 CAF EBANK6
022401,001336: 23,2200 54003 TS EBANK
022402,001337: 23,2201 00004 INHINT
022403,001338: 23,2202 00006 EXTEND
022404,001339: 23,2203 30322 DCA CPHI
022405,001340: 23,2204 53636 DXCH CDUXD
022406,001341: 23,2205 30323 CA CPSI
022407,001342: 23,2206 55637 TS CDUZD
022408,001343: 23,2207 00003 RELINT
022409,001344: 23,2210 E7,1456 EBANK= LOSCOUNT
022410,001345: 23,2210 35016 CAF EBANK7
022411,001346: 23,2211 54003 TS EBANK
022412,001347: 23,2212 02236 TC R61C+L06
022413,001348: 23,2213 77776 R61C+L05 EXIT
022414,001349: 23,2214 00004 INHINT
022415,001350: # Page 519
022416,001351: 23,2215 04674 TC IBNKCALL
022417,001352: 23,2216 40153 FCADR ZATTEROR
022418,001353: 23,2217 04674 TC IBNKCALL
022419,001354: 23,2220 40140 FCADR SETMINDB # REDUCE ATTITUDE ERROR
022420,001355: 23,2221 05516 TC DOWNFLAG
022421,001356: 23,2222 00124 ADRES 3AXISFLG
022422,001357: 23,2223 05504 TC UPFLAG
022423,001358: 23,2224 00077 ADRES PDSPFLAG # SET PRIORITY DISPLAY FLAG
022424,001359: 23,2225 04616 TC BANKCALL
022425,001360: 23,2226 54123 CADR R60LEM
022426,001361: 23,2227 00004 INHINT
022427,001362: 23,2230 04674 TC IBNKCALL
022428,001363: 23,2231 40123 FCADR RESTORDB
022429,001364: 23,2232 05353 TC PHASCHNG
022430,001365: 23,2233 04022 OCT 04022
022431,001366: 23,2234 05516 TC DOWNFLAG
022432,001367: 23,2235 00077 ADRES PDSPFLAG # RESET PRIORITY DISPLAY FLAG
022433,001368: 23,2236 30075 R61C+L06 CA FLAGWRD1
022434,001369: 23,2237 74742 MASK R61FLBIT
022435,001370: 23,2240 10000 CCS A
022436,001371: 23,2241 02262 TC R61C+L4
022437,001372: 23,2242 11745 CCS R65CNTR
022438,001373: 23,2243 02245 TC +2
022439,001374: 23,2244 02262 TC R61C+L4 # R65CNTR = 0 - EXIT ROUTINE
022440,001375: 23,2245 55745 TS R65CNTR
022441,001376: 23,2246 32276 CAF 06SEC
022442,001377: 23,2247 05173 TC TWIDDLE
022443,001378: 23,2250 02252 ADRES R61C+L2
022444,001379: 23,2251 05155 TC ENDOFJOB
022445,001380: 23,2252 37714 R61C+L2 CAF PRIO26
022446,001381: 23,2253 05105 TC FINDVAC
022447,001382: 23,2254 E7,1456 EBANK= LOSCOUNT
022448,001383: 23,2254 02127 46067 2CADR R61C+L01
022449,001384:
022450,001385: 23,2256 05261 TC TASKOVER
022451,001386: 23,2257 04616 R61C+L04 TC BANKCALL # TO CONVERT ANGLES TO FDAI
022452,001387: 23,2260 54266 CADR BALLANGS
022453,001388: 23,2261 02236 TC R61C+L06
022454,001389: 23,2262 31143 R61C+L4 CAE GENRET
022455,001390: 23,2263 14640 TCF BANKJUMP # EXIT R61
022456,001391: 23,2264 32273 R61C+L1 CAF BIT7+9PV # IS RENDEZVOUS OR P25FLAG SET
022457,001392: 23,2265 70074 MASK STATE
022458,001393: 23,2266 00006 EXTEND
022459,001394: 23,2267 15155 BZF ENDOFJOB # NO -- EXIT ROUTINE AND PROGRAM.
022460,001395: 23,2270 02236 TC R61C+L06 # YES EXIT ROUTINE
022461,001396: 23,2271 04635 R65WAIT TC POSTJUMP
022462,001397: 23,2272 50232 CADR P20LEMWT
022463,001398:
022464,001399: 23,2273 00500 BIT7+9PV OCT 00500
022465,001400: # Page 520
022466,001401: 23,2274 17350 34602 COS15DEG 2DEC 0.96593 B-1
022467,001402:
022468,001403: 23,2276 01130 06SEC DEC 600 B-14
022469,001404: 23,2277 PHI EQUALS 20D
022470,001405: 23,2277 00004 READCDUD INHINT # READS DESIRED CDU'S AND STORES IN
022471,001406: 23,2300 35015 CAF EBANK6 # MPAC TP EXITS WITH MODE SET TO TP
022472,001407: 23,2301 56003 XCH EBANK
022473,001408: 23,2302 54070 TS RUPTREG1
022474,001409: 23,2303 E6,1635 EBANK= CDUXD
022475,001410: 23,2303 31635 CA CDUXD
022476,001411: 23,2304 54154 TS MPAC
022477,001412: 23,2305 00006 EXTEND
022478,001413: 23,2306 31637 DCA CDUYD
022479,001414: 23,2307 52156 DXCH MPAC +1
022480,001415: 23,2310 30070 CA RUPTREG1
022481,001416: 23,2311 54003 TS EBANK
022482,001417: 23,2312 00003 RELINT
022483,001418: 23,2313 16477 TCF TMODE
022484,001419: 4512 BLOCK 02
022485,001420: 4000 SETLOC RADARFF
022486,001421: 4000 BANK
022487,001422:
022488,001423: 4512 E7,1456 EBANK= LOSCOUNT
022489,001424: 4512 COUNT* $$/RRSUB
022490,001425:
022491,001426: # Page 521
022492,001427: # THE FOLLOWING SUBROUTINE RETURNS TO CALLER +2 IF THE ABSOLUTE VALUE OF VALUE OF C(A) IS GREATER THAN THE
022493,001428: # NEGATIVE OF THE NUMBER AT CALLER +1. OTHERWISE IT RETURNS TO CALLER +3. MAY BE CALLED IN RUPT OR UNDER EXEC.
022494,001429:
022495,001430: 4512 00006 MAGSUB EXTEND
022496,001431: 4513 64515 BZMF +2
022497,001432: 4514 14516 TCF +2
022498,001433: 4515 40000 COM
022499,001434:
022500,001435: 4516 50002 INDEX Q
022501,001436: 4517 60000 AD 0
022502,001437: 4520 00006 EXTEND
022503,001438: 4521 66741 BZMF Q+2 # ABS(A) <= CONST GO TO L+3
022504,001439: 4522 16737 TCF Q+1 # ABS(A) > CONST GO TO L+2
022505,001440:
022506,001441: # Page 522
022507,001442: # PROGRAM NAME: RRLIMCHK
022508,001443:
022509,001444: # FUNCTIONAL DESCRIPTION:
022510,001445:
022511,001446: # RRLIMCHK CHECKS RR DESIRED GIMBAL ANGLES TO SEE IF THEY ARE WITHIN
022512,001447: # THE LIMITS OF THE CURRENT MODE. INITIALLY THE DESIRED TRUNNION AND
022513,001448: # SHAFT ANGLES ARE STORED IN ITEMP1 AND ITEMP2. THE CURRENT RR
022514,001449: # ANTENNAE MODE (RADMODES BIT 12) IS CHECKED WHICH IS = 0 FOR
022515,001450: # MODE 1 AND =1 FOR MODE 2.
022516,001451:
022517,001452: # MODE 1 -- THE TRUNNION ANGLE IS CHECKED AT MAGSUB TO SEE IF IT IS
022518,001453: # BETWEEN -55 AND +55 DEGREES. IF NOT, RETURN TO L +2. IF WITHIN LIMITS,
022519,001454: # THE SHAFT ANGLE IS CHECKED TO SEE IF IT IS BETWEEN -70 AND +59 DEGREES.
022520,001455: # IF NOT, RETURN TO L +2. IF IN LIMITS, RETURN TO L +3.
022521,001456:
022522,001457: # MODE 2 -- THE SHAFT ANGLE IS CHECKED AT MAGSUB TO SEE IF IT IS
022523,001458: # BETWEEN -139 AND -25 DEGREES. IF NOT, RETURN TO L +2. IF WITHIN
022524,001459: # LIMITS, THE TRUNNION ANGLE IS CHECKED TO SEE IF IT IS BETWEEN +125
022525,001460: # AND -125 (+235) DEGREES. IF NOT, RETURN TO L +2. IF IN LIMITS, RETURN
022526,001461: # TO L +3.
022527,001462:
022528,001463: # CALLING SEQUENCE:
022529,001464:
022530,001465: # L TC RLIMCHK (WITH INTERRUPT INHIBITED)
022531,001466: # L +1 ADRES T,S (DESIRED TRUNNION ANGLE ADDRESS)
022532,001467:
022533,001468: # ERASABLE INITIALIZATION REQUIRED:
022534,001469:
022535,001470: # RADMODES, MODEA, MODEB (OR DESIRED TRUNNION AND SHAFT
022536,001471: # ANGLES ELSEWHERE IN CONSECUTIVE LOCATIONS -- UNSWITCHED ERASABLE OR
022537,001472: # CURRENT EBANK).
022538,001473:
022539,001474: # SUBROUTINES CALLED: MAGSUB
022540,001475:
022541,001476: # JOBS OR TASKS INITIATED: NONE
022542,001477:
022543,001478: # ALARMS: NONE
022544,001479:
022545,001480: # EXIT: L + 2 (EITHER OR BOTH ANGLES NOT WITHIN LIMITS OF CURRENT MODE)
022546,001481: # L + 3 (BOTH ANGLES WITHIN LIMITS OF CURRENT MODE)
022547,001482:
022548,001483: 4523 00006 RRLIMCHK EXTEND
022549,001484: 4524 50002 INDEX Q
022550,001485: 4525 50000 INDEX 0
022551,001486: 4526 30001 DCA 0
022552,001487: 4527 24002 INCR Q
022553,001488: 4530 52062 DXCH ITEMP1
022554,001489: 4531 22002 LXCH Q # L(CALLER +2) TO L.
022555,001490:
022556,001491: 4532 34740 CAF ANTENBIT # SEE WHICH MODE RR IS IN.
022557,001492: 4533 70110 MASK RADMODES
022558,001493: 4534 10000 CCS A
022559,001494: 4535 14550 TCF MODE2CHK
022560,001495:
022561,001496: 4536 30061 CA ITEMP1 # MODE 1 IS DEFINED AS
022562,001497: # Page 523
022563,001498: 4537 04512 TC MAGSUB # 1. ABS(T) L 55 DEGS.
022564,001499: 4540 66161 DEC -.30555 # 2. ABS(S + 5.5 DEGS) L 64.5 DEGS
022565,001500: 4541 00001 TC L # (SHAFT LIMITS AT +59, -70 DEGS)
022566,001501:
022567,001502: 4542 34562 CAF 5.5DEGS
022568,001503: 4543 60062 AD ITEMP2
022569,001504: 4544 04512 TC MAGSUB
022570,001505: 4545 64420 DEC -.35833 # 64.5 DEGS
022571,001506: 4546 00001 TC L
022572,001507: 4547 04560 TC RRLIMOK # IN LIMITS.
022573,001508:
022574,001509: 4550 34563 MODE2CHK CAF 82DEGS # MODE 2 IS DEFINED AS
022575,001510: 4551 60062 AD ITEMP2 # 1. ABS(T) G 125 DEGS.
022576,001511: 4552 04512 TC MAGSUB # 2. ABS(S + 82 DEGS) L 57 DEGS
022577,001512: 4553 65673 DEC -.31667 # (SHAFT LIMITS AT -25, -139 DEGS)
022578,001513: 4554 00001 TC L
022579,001514:
022580,001515: 4555 30061 CA ITEMP1
022581,001516: 4556 04512 TC MAGSUB
022582,001517: 4557 51615 DEC -.69444 # 125 DEGS
022583,001518:
022584,001519: 4560 50001 RRLIMOK INDEX L
022585,001520: 4561 00001 TC L # ( = TC 1 )
022586,001521:
022587,001522: 4562 00765 5.5DEGS DEC .03056
022588,001523: 4563 16450 82DEGS DEC .45556
022589,001524:
022590,001525: # Page 524
022591,001526: # PROGRAM NAME: SETTRKF
022592,001527:
022593,001528: # FUNCTIONAL DESCRIPTION:
022594,001529:
022595,001530: # SETTRKF UPDATES THE TRACKER FAIL LAMP ON THE DSKY.
022596,001531: # INITIALLY THE LAMP TEST FLAG (IMODES33 BIT 1) IS CHECKED.
022597,001532: # IF A LAMP TEST IS IN PROGRESS, THE PROGRAM EXITS TO L +1.
022598,001533: # IF NO LAMP TEST THE FOLLOWING IS CHECKED SEQUENTIALLY:
022599,001534: # 1) RR CDU'S BEING ZEROED, RR CDU OK, AND RR NOT IN
022600,001535: # AUTO MODE (RADMODES BITS 13, 7, 2).
022601,001536: # 2) LR VEL DATA FAIL AND NO LR POS DATA (RADMODES BITS
022602,001537: # 8,5)
022603,001538: # 3) NO RR DATA (RADMODES BIT 4)
022604,001539: # THE ABSENCE OF ALL THREE SIMULTANEOUSLY IN (1), THE PRESENCE OF BOTH
022605,001540: # IN (2), AND THE PRESENCE OF (3) RESULTS IN EITHER THE TRACKER FAIL
022606,001541: # LAMP (DSPTAB +11D BIT 8) BEING TURNED OFF OR IS LEFT OFF. THEREFORE, THE
022607,001542: # TRACKER FAIL LAMP IS TURN ON IF:
022608,001543: # A) RR CDU FAILED WITH RR IN AUTO MODE AND RR CDU'S NOT BEING ZEROED
022609,001544: # B) N SAMPLES OF LR DATA COULD NOT BE TAKEN IN 2N TRIES WITH
022610,001545: # EITHER THE ALT OR VEL INFORMATION
022611,001546: # C) N SAMPLES OF RR DATA COULD NOT BE OBTAINED FROM 2N TRIES
022612,001547: # WITH EITHER THE AL
022613,001548:
022614,001549: # CALLING SEQUENCE:
022615,001550:
022616,001551: # L TC SETTRKF
022617,001552:
022618,001553: # ERASABLE INITIALIZATION REQUIRED: IMODES33, RADMODES, DSPTAB +11D
022619,001554:
022620,001555: # SUBROUTINES CALLED: NONE
022621,001556:
022622,001557: # JOBS OR TASKS INITIATED: NONE
022623,001558:
022624,001559: # ALARMS: TRACKER FAIL LAMP
022625,001560:
022626,001561: # EXIT: L +1 (ALWAYS)
022627,001562:
022628,001563: 4564 34753 SETTRKF CAF BIT1 # NO ACTION IF DURING LAMP TEST
022629,001564: 4565 71303 MASK IMODES33
022630,001565: 4566 10000 CCS A
022631,001566: 4567 00002 TC Q
022632,001567:
022633,001568: 4570 34744 RRTRKF CA BIT8
022634,001569: 4571 54001 TS L
022635,001570:
022636,001571: 4572 34615 CAF 13,7,2 # SEE IF CDU FAILED.
022637,001572: 4573 70110 MASK RADMODES
022638,001573: 4574 00006 EXTEND
022639,001574: 4575 14601 BZF TRKFLON # CONDITION 3 ABOVE.
022640,001575:
022641,001576: 4576 34750 RRCHECK CAF RRDATABT # SEE IF RR DATA FAILED.
022642,001577: 4577 70110 MASK RADMODES
022643,001578: # Page 525
022644,001579: 4600 10000 CCS A
022645,001580: 4601 30001 TRKFLON CA L
022646,001581: 4602 61036 AD DSPTAB +11D # HALF ADD DESIRED AND PRESENT STATES.
022647,001582: 4603 70001 MASK L
022648,001583: 4604 00006 EXTEND
022649,001584: 4605 16742 BZF TCQ # NO CHANGE.
022650,001585:
022651,001586: 4606 31036 FLIP CA DSPTAB +11D # CAN'T USE LXCH DSPTAB +11D (RESTART PROB)
022652,001587: 4607 00006 EXTEND
022653,001588: 4610 06001 RXOR LCHAN
022654,001589: 4611 74733 MASK POSMAX
022655,001590: 4612 64735 AD BIT15
022656,001591: 4613 55036 TS DSPTAB +11D
022657,001592: 4614 00002 TC Q
022658,001593:
022659,001594: 4615 10102 13,7,2 OCT 10102
022660,001595: 4616 ENDRMODF EQUALS
022661,001596:
022662,001597: # Page 526
022663,001598: # PROGRAM NAME: RRTURNON
022664,001599:
022665,001600: # FUNCTIONAL DESCRIPTION:
022666,001601:
022667,001602: # RRTURNON IS THE TURN-ON SEQUENCE WHICH, ALONG WTIH
022668,001603: # RRZEROSB, ZEROES THE CDU'S AND DETERMINES THE RR MODE.
022669,001604: # INITIALLY, CONTROL IS TRANSFERRED TO RRZEROSB FOR THE
022670,001605: # ACTUAL TURN-ON SEQUENCE. UPON RETURN THE PROGRAM
022671,001606: # WAITS 1 SECOND BEFORE REMOVING THE TURN-ON FLAG
022672,001607: # (RADMODES BIT1) SO THE REPOSITION ROUTINE WON'T
022673,001608: # INITIATE PROGRAM ALARM 00501. A CHECK IS THEN MADE
022674,001609: # TO SEE IF A PROGRAM IS USING THE RR (STATE BIT 7). IF
022675,001610: # SO, THE PROGRAM EXITS TO ENDRADAR SO THAT THE RR CDU
022676,001611: # FAIL FLAG (RADMODES BIT 7) CAN BE CHECKED BEFORE
022677,001612: # RETURNING TO THE WAITING PROGRAM. IF NOT, THE PROGRAM EXITS
022678,001613: # TO TASKOVER.
022679,001614:
022680,001615: # CALLING SEQUENCE: WAITLIST TASK FROM RRAUTCHK IF THE RR POWER-ON AUTO
022681,001616: # BIT (CHAN 33 BIT 2) CHANGES TO 0 AND NO PROGRAM WAS USING
022682,001617: # THE RR (STATE BIT 7).
022683,001618:
022684,001619: # ERASABLE INITIALIZATION REQUIRED:
022685,001620:
022686,001621: # RADMODES, STATE
022687,001622:
022688,001623: # SUBROUTINES CALLED: RRZEROSB, FIXDELAY, TASKOVER, ENDRADAR
022689,001624:
022690,001625: # JOBS OR TASKS INITIATED:
022691,001626: #
022692,001627: # NONE
022693,001628:
022694,001629: # ALARMS: NONE (SEE RRZEROSB)
022695,001630:
022696,001631: # EXIT: TASKOVER, ENDRADAR (WAITING PROGRAM)
022697,001632:
022698,001633: 24,3255 BANK 24
022699,001634: 25,2000 SETLOC P20S1
022700,001635: 25,2000 BANK
022701,001636:
022702,001637: 25,2062 E7,1456 EBANK= LOSCOUNT
022703,001638: 25,2062 COUNT* $$/RSUB
022704,001639: 25,2062 02071 RRTURNON TC RRZEROSB
022705,001640: 25,2063 05221 TC FIXDELAY # WAIT 1 SEC BEFORE REMOVING TURN ON FLAG
022706,001641: 25,2064 00144 DEC 100 B-14 # SO A MONITOR REPOSITION WON'T ALARM.
022707,001642: 25,2065 44753 CS TURNONBT
022708,001643: 25,2066 70110 MASK RADMODES
022709,001644: 25,2067 54110 TS RADMODES
022710,001645: 25,2070 15261 TCF TASKOVER
022711,001646: # Page 527
022712,001647: # PROGRAM NAME: RRZEROSB
022713,001648:
022714,001649: # FUNCTIONAL DESCRIPTION:
022715,001650:
022716,001651: # RRZEROSB IS A CLOSED SUBROUTINE TO ZERO THE RR CDU'S,
022717,001652: # DETERMINE THE RR MODE, AND TURN ON THE TRACKER FAIL
022718,001653: # LAMP IF REQUIRED. INITIALLY THE RR CDU ZERO BIT (CHAN 12
022719,001654: # BIT 1) IS SET. FOLLOWING A 20 MILLISECOND WAIT, THE LGC
022720,001655: # RR CDU COUNTERS (OPTY, OPTX) ARE SET = 0 AFTER
022721,001656: # WHICH THE RR CDU ZERO DISCRETE (CHAN 12 BIT 1) IS
022722,001657: # REMOVED. A 4 SECOND WAIT IS SET TO ALL THE RR CDU'S
022723,001658: # TO REPEAT THE ACTUAL TRUNNION AND SHAFT ANGLES. THE
022724,001659: # RR CDU ZERO FLAG (RADMODES BIT 13) IS REMOVED. THE
022725,001660: # CONTENTS OF OPTY IS THEN CHECKED TO SEE IF THE TRUNNION
022726,001661: # ANGLE IS LESS THAN 90 DEGREES. IF NOT, BIT 12 OF
022727,001662: # RADMODES IS SET = 1 TO INDICATE RR ANTENNA MODE 2.
022728,001663: # IF LESS THAN 90 DEGREES, BIT 12 OF RADMODES IS SET = 0 TO
022729,001664: # INDICATE RR ANTENNA MODE 1. SETTRKF IS THEN CALLED TO
022730,001665: # SEE IF THE TRACKER FAIL LAMP SHOULD BE TURNED ON.
022731,001666:
022732,001667: # CALLING SEQUENCE: L TC RRZEROSB (FROM RRTURNON AND RRZERO)
022733,001668:
022734,001669: # ERASABLE INITIALIZATION REQUIRED:
022735,001670:
022736,001671: # RADMODES (BIT 13 SET), DSPTAB +11D
022737,001672:
022738,001673: # SUBROUTINES CALLED: FIXDELAY, MAGSUB, SETTRKF
022739,001674:
022740,001675: # JOBS OR TASKS INITIATED:
022741,001676:
022742,001677: # NONE
022743,001678:
022744,001679: # ALARMS: TRAKCER FAIL
022745,001680:
022746,001681: # EXIT: L +1 (ALWAYS)
022747,001682:
022748,001683: 25,2071 00006 RRZEROSB EXTEND
022749,001684: 25,2072 23315 QXCH RRRET
022750,001685: 25,2073 34753 CAF BIT1 # BIT 13 OF RADMODES MUST BE SET BEFORE
022751,001686: 25,2074 00006 EXTEND # COMING HERE.
022752,001687: 25,2075 05012 WOR CHAN12 # TURN ON ZERO RR CDU
022753,001688: 25,2076 05221 TC FIXDELAY
022754,001689: 25,2077 00002 DEC 2 B-14
022755,001690:
022756,001691: 25,2100 34755 CAF ZERO
022757,001692: 25,2101 54035 TS CDUT
022758,001693: 25,2102 54036 TS CDUS
022759,001694: 25,2103 44753 CS ONE # REMOVE ZEROING BIT.
022760,001695: 25,2104 00006 EXTEND
022761,001696: 25,2105 03012 WAND CHAN12
022762,001697: 25,2106 05221 TC FIXDELAY
022763,001698: 25,2107 01750 DEC 1000 B-14 # RESET FAIL INHIBIT IN 10 SECS. -- D.281
022764,001699:
022765,001700: 25,2110 44737 CS RCDU0BIT # REMOVE ZEROING IN PROCESS BIT
022766,001701: # Page 528
022767,001702: 25,2111 70110 MASK RADMODES
022768,001703: 25,2112 54110 TS RADMODES
022769,001704:
022770,001705: 25,2113 30035 CA CDUT
022771,001706: 25,2114 04512 TC MAGSUB
022772,001707: 25,2115 57777 DEC -.5
022773,001708: 25,2116 12121 TCF +3 # IF MODE 2.
022774,001709:
022775,001710: 25,2117 34755 CAF ZERO
022776,001711: 25,2120 12122 TCF +2
022777,001712: 25,2121 34740 CAF ANTENBIT
022778,001713: 25,2122 56110 XCH RADMODES
022779,001714: 25,2123 77741 MASK -BIT12
022780,001715: 25,2124 26110 ADS RADMODES
022781,001716:
022782,001717: 25,2125 04564 TC SETTRKF # TRACKER LAMP MIGHT GO ON NOW.
022783,001718:
022784,001719: 25,2126 01315 TC RRRET # DONE.
022785,001720:
022786,001721: 25,2127 7741 -BIT12 EQUALS -1/8 # IN SPROOT
022787,001722:
022788,001723: # Page 529
022789,001724: # PROGRAM NAME: DORREPOS
022790,001725:
022791,001726: # FUNCTIONAL DESCRIPTION:
022792,001727:
022793,001728: # DORREPOS IS A SEQUENCE OF TASKS TO DRIVE THE RENDEZVOUS RADAR
022794,001729: # TO A SAFE POSITION. INIITALLY SETRRECR IS CALLED WHERE THE RR
022795,001730: # ERROR COUNTERS (CHAN 12 BIT 2) ARE ENABLED AND LASTYCMD
022796,001731: # AND LASTXCMD SET = 0 TO INDICATE THE DIFFERENCE BETWEEN THE
022797,001732: # DESIRED STATE AND PRESENT STATE OF THE COMMANDS. THE RR
022798,001733: # TURN-ON FLAG (RADMODES BIT 1) IS CHECKED AND IF NOT PRESENT,
022799,001734: # PROGRAM ALARM 00501 IS REQUESTED BEFORE CONTINUING. IN EITHER
022800,001735: # CASE, FOLLOWING A 20 MILLISECOND WAIT THE PROGRAM CHECKS THE CURRENT
022801,001736: # RR ANTENNA MODE (RADMODES BIT 12). RRTONLY IS THEN CALLED
022802,001737: # TO DRIVE THE TRUNNION ANGLE TO 0 DEGREES IF IN MODE 1 AND TO 180
022803,001738: # DEGREES IF IN MODE 2. UPON RETURN, THE CURRENT RR ANTENNA
022804,001739: # MODE (RADMODES BIT 12) IS AGAIN CHECKED. RRSONLY IS THEN
022805,001740: # CALLED TO DRIVE THE SHAFT ANGLE TO 0 DEGREES IF IN MODE 1 AND TO
022806,001741: # -90 DEGREES IF IN MODE 2. IF DURING RRTONLY OR RRSONLY A
022807,001742: # REMODE HAS BEEN REQUESTED (RADMODES BIT 14), AND ALWAYS
022808,001743: # FOLLOWING COMPLETION OF RRSONLY, CONTROL IS TRANFERRED TO
022809,001744: # REPOSRPT. HERE THE REPOSITION FLAG (RADMODES BIT 11) IS
022810,001745: # REMOVED. A CHECK IS THEN MADE ON THE DESIGNATE FLAG (RADMODES
022811,001746: # BIT 10). IF PRESENT, CONTROL IS TRANSFERRED TO BEGDES. IF NOT PRESENT
022812,001747: # INDICATING NO FURTHER ANTENNA CONTROL REQUIRED, THE RR ERROR
022813,001748: # COUNTER BIT (CHAN 12 BIT 2) IS REMOVED AND THE ROUTINE EXITS TO
022814,001749: # TASKOVER.
022815,001750:
022816,001751: # CALLING SEQUENCE:
022817,001752:
022818,001753: # WAITLIST CALL FROM RRGIMON IF TRUNNION AND SHAFT CDU ANGLES
022819,001754: # NOT WITHIN LIMITS OF CURRENT MODE.
022820,001755:
022821,001756: # ERASABLE INITIALIZATION REQUIRED:
022822,001757:
022823,001758: # RADMODES
022824,001759:
022825,001760: # SUBROUTINES CALLED
022826,001761:
022827,001762: # RRTONLY, RRSONLY, BEGDES (EXIT)
022828,001763:
022829,001764: # JOBS OR TASKS INITIATED:
022830,001765:
022831,001766: # NONE
022832,001767:
022833,001768: # ALARMS: NONE
022834,001769:
022835,001770: # EXIT: TASKOVER, BEGDES
022836,001771:
022837,001772: 25,2127 02156 DORREPOS TC SETRRECR # SET UP RR CDU ERROR COUNTERS.
022838,001773:
022839,001774: # ALARM 501 DELETED IN DANCE 279 PER PCR 97.
022840,001775:
022841,001776: 25,2130 05221 TC FIXDELAY
022842,001777: 25,2131 00002 DEC 2 B-14
022843,001778:
022844,001779: 25,2132 34740 CAF ANTENBIT # MANEUVER TRUNNION ANGLE TO NOMINAL POS.
022845,001780: # Page 530
022846,001781: 25,2133 70110 MASK RADMODES
022847,001782: 25,2134 10000 CCS A
022848,001783: 25,2135 34735 CAF BIT15 # 0 FOR MODE 1 AND 180 FOR MODE 2.
022849,001784: 25,2136 02241 TC RRTONLY
022850,001785:
022851,001786: 25,2137 34740 CAF ANTENBIT # NOT PUT SHAFT IN RIGHT POSITION
022852,001787: 25,2140 70110 MASK RADMODES
022853,001788: 25,2141 10000 CCS A
022854,001789: 25,2142 44736 CS HALF # -90 FOR MODE 2.
022855,001790: 25,2143 02244 TC RRSONLY
022856,001791:
022857,001792: 25,2144 44741 REPOSRPT CS REPOSBIT # RETURNS HERE FROM RR1AXIS IN REMODE
022858,001793: # REQUESTED DURING REPOSITION.
022859,001794: 25,2145 70110 MASK RADMODES # REMOVE REPOSITION BIT.
022860,001795: 25,2146 54110 TS RADMODES
022861,001796: 25,2147 74742 MASK DESIGBIT # SEE IF SOMEONE IS WAITING TO DESIGNATE.
022862,001797: 25,2150 10000 CCS A
022863,001798: 25,2151 12573 TCF BEGDES
022864,001799: 25,2152 44752 CS BIT2 # IF NO FURTHER ANTENNA CONTROL REQUIRED,
022865,001800: 25,2153 00006 EXTEND # REMOVE ERROR COUNTER ENABLE.
022866,001801: 25,2154 03012 WAND CHAN12
022867,001802: 25,2155 15261 TCF TASKOVER
022868,001803:
022869,001804: 25,2156 34752 SETRRECR CAF BIT2 # SET UP RR ERROR COUNTERS
022870,001805: 25,2157 00006 EXTEND
022871,001806: 25,2160 02012 RAND CHAN12
022872,001807: 25,2161 10000 CCS A # DO NOT CLEAR LAST COMMAND IF
022873,001808: 25,2162 00002 TC Q # ERROR COUNTERS ARE ENABLED
022874,001809:
022875,001810: 25,2163 54112 TS LASTYCMD
022876,001811: 25,2164 54113 TS LASTXCMD
022877,001812: 25,2165 34752 CAF BIT2
022878,001813: 25,2166 00006 EXTEND
022879,001814: 25,2167 05012 WOR CHAN12 # ENABLE RR CDU ERROR COUNTERS.
022880,001815: 25,2170 00002 TC Q
022881,001816: # Page 531
022882,001817: # PROGRAM NAME: REMODE
022883,001818:
022884,001819: # FUNCTIONAL DESCRIPTION
022885,001820:
022886,001821: # REMODE IS THE GENERAL REMODING SUBROUTINE. IT DRIVES THE
022887,001822: # TRUNNION ANGLE TO 0 DEGREES IF THE CURRENT MODE IS MODE 1,
022888,001823: # 180 DEGREES FOR MODE 2, THEN DRIVES THE SHAFT ANGLE TO -45
022889,001824: # DEGREES, AND FINALLY DRIVES THE TRUNNION ANGLE TO -130 DEGREES,
022890,001825: # TO PLACE THE RR IN MODE 2, -50 DEGREES FOR MODE 1, BEFORE
022891,001826: # INITIATING 2-AXIS CONTROL. ALL REMODING IS DONE WITH SINGLE
022892,001827: # AXIS ROTATIONS (RR1AXIS). INITIALLY THE RR ANTENNA MODE FLAG
022893,001828: # (RADMODES BIT 12) IS CHECKED. CONTROL IS THEN TRANSFERRED TO
022894,001829: # RRTONLY TO DRIVE THR TRUNNION ANGLE TO 0 DEGREES IF IN MODE 1
022895,001830: # OR 180 DEGREES IF IN MODE 2. RRSONLY IS THEN CALLED TO DRIVE
022896,001831: # THE SHAFT ANGLE TO -45 DEGREES. THE RR ANTENNA MODE FLAG
022897,001832: # (RADMODES BIT 12) IS CHECKED AGAIN. CONTROL IS AGAIN
022898,001833: # TRANSFERRED TO RRTONLY TO DRIVE THE TRUNNION ANGLE TO -130
022899,001834: # DEGREES TO PLACE THE RR IN MODE 2 IF CURRENTLY IN MODE 1 OR TO
022900,001835: # -50 DEGREES IF IN MODE 2 TO PLACE THE RR IN MODE 1. RMODINV
022901,001836: # IS THEN CALLED TO SET RADMODES BIT 12 TO INDICATE THE NEW
022902,001837: # RR ANTENNA MODE. THE REMODE FLAG (RADMODES BIT 14)
022903,001838: # IS REMOVED TO INDICATE THAT REMODING IS COMPLETE. THE PROGRAM
022904,001839: # THEN EXITS TO STDESIG TO BEGIN 2-AXIS CONTROL.
022905,001840:
022906,001841: # CALLIN SEQUENCE:
022907,001842:
022908,001843: # FROM BEGDES WHEN REMODE FLAG (RADMODES BIT 14) IS SET.
022909,001844: # THIS FLAG MAY BE SET IN RRDESSM AND RRDESNB IF RRLIMCHK
022910,001845: # DETERMINES THAT THE DESIRED ANGLES ARE WITHIN THE LIMITS OF THE
022911,001846: # OTHER MODE.
022912,001847:
022913,001848: # ERASABLE INIITIALIZATION REQUIRED:
022914,001849:
022915,001850: # RADMODES
022916,001851:
022917,001852: # SUBROUTINES CALLED:
022918,001853:
022919,001854: # RRTONLY, RRSONL, RMODINV (ACTUALLY PART OF)
022920,001855:
022921,001856: # JOBS OR TASKS INITIATED:
022922,001857:
022923,001858: # NONE
022924,001859:
022925,001860: # ALARMS: NONE
022926,001861:
022927,001862: # EXIT: STDESIG
022928,001863:
022929,001864: 25,2171 34740 REMODE CAF ANTENBIT # DRIVE TRUNNION TO 0 (180)
022930,001865: 25,2172 70110 MASK RADMODES # (ERROR COUNTER ALREADY ENABLED)
022931,001866: 25,2173 10000 CCS A
022932,001867: 25,2174 34735 CAF BIT15
022933,001868: 25,2175 02241 TC RRTONLY
022934,001869:
022935,001870: 25,2176 37740 CAF -45DEGSR
022936,001871: 25,2177 02244 TC RRSONLY
022937,001872: # Page 532
022938,001873: 25,2200 40110 CS RADMODES
022939,001874: 25,2201 74740 MASK ANTENBIT
022940,001875: 25,2202 10000 CCS A
022941,001876: 25,2203 32232 CAF -80DEGSR # GO TO T = -130 (-50).
022942,001877: 25,2204 62231 AD -50DEGSR
022943,001878: 25,2205 02241 TC RRTONLY
022944,001879:
022945,001880: 25,2206 40110 CS RADMODES
022946,001881: 25,2207 74740 MASK ANTENBIT
022947,001882: 25,2210 10000 CCS A
022948,001883: 25,2211 34735 CAF BIT15 # GO TO T = -180 (+0).
022949,001884: 25,2212 02241 TC RRTONLY
022950,001885:
022951,001886: 25,2213 40110 CS RADMODES # GO TO S = -90 (+0).
022952,001887: 25,2214 74740 MASK ANTENBIT
022953,001888: 25,2215 10000 CCS A
022954,001889: 25,2216 44736 CS HALF
022955,001890: 25,2217 02244 TC RRSONLY
022956,001891:
022957,001892: 25,2220 02233 TC RMODINV
022958,001893:
022959,001894: 25,2221 44736 CS REMODBIT # END OF REMODE.
022960,001895: 25,2222 70110 MASK RADMODES
022961,001896: 25,2223 54110 TS RADMODES
022962,001897:
022963,001898: 25,2224 34742 CAF DESIGBIT # WAS REMODE CALLED DURING DESIGNATE?
022964,001899: 25,2225 70110 MASK RADMODES # (BIT10 RADMODES = 1)
022965,001900: 25,2226 00006 EXTEND
022966,001901: 25,2227 13555 BZF RGOODEND # NO -- RETURN TO CALLER WAITING IN RADSTALL
022967,001902: 25,2230 02602 TC STDESIG # YES -- RETURN TO DESIGNATE
022968,001903: 25,2231 7740 -45DEGSR = 13,14,15
022969,001904: 25,2231 67070 -50DEGSR DEC -.27778
022970,001905: 25,2232 61615 -80DEGSR DEC -.44444
022971,001906:
022972,001907: 25,2233 22110 RMODINV LXCH RADMODES # INVERT THE MODE STATUS.
022973,001908: 25,2234 34740 CAF ANTENBIT
022974,001909: 25,2235 00006 EXTEND
022975,001910: 25,2236 06001 RXOR LCHAN
022976,001911: 25,2237 54110 TS RADMODES
022977,001912: 25,2240 00002 TC Q
022978,001913:
022979,001914: # Page 533
022980,001915: # PROGRAM NAMES: RRTONLY, RRSONLY
022981,001916:
022982,001917: # FUNCTIONAL DESCRIPTION:
022983,001918:
022984,001919: # RRTONLY AND RRSONLY ARE SUBROUTINES FOR DOING SINGLE AXIS
022985,001920: # RR MANEUVERS FOR REMODE AND REPOSITION. IT DRIVES TO
022986,001921: # WITHIN 1 DEGREE. INITIALLY, AT RR1AX2, THE REMODE AND REPOSITION
022987,001922: # FLAGS (RADMODES BITS 14, 11) ARE CHECKED. IF BOTH EXIST,
022988,001923: # THE PROGRAM EXITS TO REPOSRPT (SEE DORREPOS). THIS INDICATES
022989,001924: # THAT SOMEONE POSSIBLY REQUESTED A DESIGNATE (RADMODES BIT 10)
022990,001925: # WHICH REQUIRES A REMODE (RADMODES BIT 14) AND THAT A
022991,001926: # REPOSITION IS IN PROGRESS (RADMODES BIT 11). IF NONE
022992,001927: # OR ONLY ONE OF THE FLAGS EXIST, REMODE OR REPOSITION, MAGSUB
022993,001928: # IS CALLED TO SEE IF THE APPROPRIATE ANGLE IS WITHIN 1 DEGREE. IF YES,
022994,001929: # CONTROL RETURNS TO THE CALLING ROUTINE. IF NOT, CONTROL IS
022995,001930: # TRANSFERRED TO RROUT FOR SINGLE AXIS MANEUVERS WITH THE OTHER
022996,001931: # ANGLE SET = 0. FOLLOWING A .5 SECOND WAIT, THE ABOVE PROCEDURE IS
022997,001932: # REPEATED.
022998,001933:
022999,001934: # CALLING SEQUENCE: L-1 CAF *ANGLE* (DESIRED ANGLE SCALED PI)
023000,001935: # L TC RRTONLY (TRUNNION ONLY)
023001,001936: # RRSONLY (SHAFT ONLY)
023002,001937: # RRTONLY IS CALLED BY PREPOS29;
023003,001938: # RRTONLY AND RRSONLY ARE CALLED BY DORREPOS AND REMODE
023004,001939:
023005,001940: # ERASABLE INITIALIZATION REQUIRED:
023006,001941:
023007,001942: # C(A) = DESIRED ANGLE, RADMODES
023008,001943:
023009,001944: # SUBROUTINES CALLED:
023010,001945:
023011,001946: # FIXDELAY, REPOSRPT, MAGSUB, RROUT
023012,001947:
023013,001948: # JOBS OR TASKS INITIATED:
023014,001949:
023015,001950: # NONE
023016,001951:
023017,001952: # ALARMS: NONE
023018,001953:
023019,001954: # EXIT: REPOSRPT (REMODE AND REPOSITION FLAGS PRESENT -- RADMODES
023020,001955: # BITS 14, 11)
023021,001956: # L+1 (ANGLE WITHIN ONE DEGREE OR RR OUT OF AUTO MODE)
023022,001957:
023023,001958: 25,2241 55316 RRTONLY TS RDES # DESIRED TRUNNION ANGLE.
023024,001959: 25,2242 34755 CAF ZERO
023025,001960: 25,2243 12246 TCF RR1AXIS
023026,001961:
023027,001962: 25,2244 55316 RRSONLY TS RDES # SHAFT COMMANDS ARE UNRESOLVED SINCE THIS
023028,001963: 25,2245 34753 CAF ONE # ROUTINE ENTERED ONLY WHEN T = 0 OR 180.
023029,001964:
023030,001965: 25,2246 55317 RR1AXIS TS RRINDEX
023031,001966: 25,2247 00006 EXTEND
023032,001967: 25,2250 23315 QXCH RRRET
023033,001968: 25,2251 12254 TCF RR1AX2
023034,001969:
023035,001970: # Page 534
023036,001971: 25,2252 05221 NXTRR1AX TC FIXDELAY
023037,001972: 25,2253 00062 DEC 50 B-14 # 2 SAMPLES PER SECOND.
023038,001973:
023039,001974: 25,2254 40110 RR1AX2 CS RADMODES # IF SOMEONE REQUESTS A DESIGNATE WHICH
023040,001975: 25,2255 77710 MASK PRIO22 # REQUIRES A REMODE AND A REPOSITION IS IN
023041,001976: 25,2256 00006 EXTEND # PROGRESS, INTERRUPT IT AND START THE
023042,001977: 25,2257 12144 BZF REPOSRPT # REMODE IMMEDIATELY.
023043,001978:
023044,001979: 25,2260 31316 CA RDES
023045,001980: 25,2261 00006 EXTEND
023046,001981: 25,2262 51317 INDEX RRINDEX
023047,001982: 25,2263 20035 MSU CDUT
023048,001983: 25,2264 54061 TS ITEMP1 # SAVE ERROR SIGNAL.
023049,001984: 25,2265 00006 EXTEND
023050,001985: 25,2266 72305 MP RRSPGAIN # TRIES TO NULL .7 OF ERROR OVER NEXT .5
023051,001986: 25,2267 54001 TS L
023052,001987: 25,2270 30110 CA RADMODES
023053,001988: 25,2271 74752 MASK AUTOMBIT
023054,001989: 25,2272 56061 XCH ITEMP1 # STORE RR-OUT-OF-AUTO-MODE BIT.
023055,001990: 25,2273 04512 TC MAGSUB # SEE IF WITHIN ONE DEGREE.
023056,001991: 25,2274 77644 DEC -.00555 # SCALED IN HALF-REVS.
023057,001992:
023058,001993: 25,2275 10061 CCS ITEMP1 # NO. IF RR OUT OF AUTO MODE, EXIT.
023059,001994: 25,2276 01315 TC RRRET # RETURN TO CALLER.
023060,001995:
023061,001996: 25,2277 11317 CCS RRINDEX # COMMAND FOR OTHER AXIS IS ZERO.
023062,001997: 25,2300 12302 TCF +2 # SETTING A TO 0.
023063,001998: 25,2301 56001 XCH L
023064,001999: 25,2302 53110 DXCH TANG
023065,002000:
023066,002001: 25,2303 02306 TC RROUT
023067,002002:
023068,002003: 25,2304 12252 TCF NXTRR1AX # COME BACK IN .5 SECONDS.
023069,002004:
023070,002005: 25,2305 22715 RRSPGAIN DEC .59062 # NULL .7 ERROR IN .5 SEC.
023071,002006:
023072,002007: # Page 535
023073,002008: # PROGRAM NAME: RROUT
023074,002009:
023075,002010: # FUNCTIONAL DESCRIPTION:
023076,002011:
023077,002012: # RROUT RECEIVES RR GYRO COMMANDS IN TANG, TANG +1 IN RR
023078,002013: # ERROR COUNTER SCALING. RROUT THEN LIMITS THEM AND
023079,002014: # GENERATES COMMANDS TO THE CDU TO ADJUST THE ERROR COUNTERS
023080,002015: # TO THE DESIRED VALUES. INITIALLY MAGSUB CHECKS THE MAGNITUDE OF
023081,002016: # THE COMMAND (SHAFT ON 1ST PASS) TO SEE IF IT IS GREATER THAN
023082,002017: # 384 PULSES. IF NOT, CONTROL IS TRANFERRED TO RROUTLIM TO
023083,002018: # LIMIT THE COMMAND TO +384 OR -384 PULSES. THE DIFFERENCE IS
023084,002019: # THEN CALCULATED BETWEEN THE DESIRED STATE AND TEH PRESENT STATE OF
023085,002020: # THE ERROR COUNTER AS RECORDED IN LASTYCMD AND LASTXCMD.
023086,002021: # THE RESULT IS STORED IN OPTXCMD (1ST PASS) AND OPTYCMD (2ND
023087,002022: # PASS). FOLLOWING THE SECOND PASS, FOR THE TRUNNION COMMAND, THE
023088,002023: # OCDUT AND OCDUS ERROR COUNTER DRIVE BITS (CHAN 14 BITS 12, 11)
023089,002024: # ARE SET. THIS PROGRAM THEN EXITS TO THE CALLING PROGRAM.
023090,002025:
023091,002026: # CALLING SEQUENCE:
023092,002027: #
023093,002028: # L TC RROUT (WITH RUPT INHIBITED) RROUT IS CALLED BY
023094,002029: # RRTONLY, RRSONLY, AND DODES
023095,002030:
023096,002031: # ERASABLE INITIALIZATION REQURIED:
023097,002032:
023098,002033: # TANG, TANG +1 (DESIRED COMMANDS), LASTYCMD, LASTXCMD
023099,002034: # (1ST PASS = 0), RR ERROR COUNTER ENAGLE SET (CHAN 12 BIT 2).
023100,002035:
023101,002036: # SUBROUTINES CALLED:
023102,002037:
023103,002038: # MAGSUB
023104,002039:
023105,002040: # JOBS OR TASKS INITIATED:
023106,002041:
023107,002042: # NONE
023108,002043:
023109,002044: # ALARMS: NONE
023110,002045:
023111,002046: # EXIT: L+1 (ALWAYS)
023112,002047:
023113,002048: 25,2306 22002 RROUT LXCH Q # SAVE RETURN
023114,002049: 25,2307 34753 CAF ONE # LOOP TWICE.
023115,002050: 25,2310 54062 RROUT2 TS ITEMP2
023116,002051: 25,2311 50000 INDEX A
023117,002052: 25,2312 31107 CA TANG
023118,002053: 25,2313 54061 TS ITEMP1 # SAVE SIGN COMMAND FOR LIMITING.
023119,002054:
023120,002055: 25,2314 04512 TC MAGSUB # SEE IF WITHIN LIMITS.
023121,002056: 25,2315 77177 -RRLIMIT DEC -384 B-14
023122,002057: 25,2316 12335 TCF RROUTLIM # LIMIT COMMAND TO MAG OF 384.
023123,002058:
023124,002059: 25,2317 30061 SETRRCTR CA ITEMP1 # COUNT OUT DIFFERENCE BETWEEN DESIRED
023125,002060: 25,2320 50062 INDEX ITEMP2 # STATE AND PRESENT STATE AS RECORDED IN
023126,002061: 25,2321 56112 XCH LASTYCMD # LASTYCMD AND LASTXCMD
023127,002062: 25,2322 40000 COM
023128,002063: # Page 536
023129,002064: 25,2323 60061 AD ITEMP1
023130,002065: 25,2324 64754 AD NEG0 # PREVENT +0 IN OUTCOUNTER
023131,002066: 25,2325 50062 INDEX ITEMP2
023132,002067: 25,2326 54053 TS CDUTCMD
023133,002068:
023134,002069: 25,2327 10062 CCS ITEMP2 # PROCESS BOTH INPUTS.
023135,002070: 25,2330 12310 TCF RROUT2
023136,002071:
023137,002072: 25,2331 35020 CAF PRIO6 # ENABLE COUNTERS.
023138,002073: 25,2332 00006 EXTEND
023139,002074: 25,2333 05014 WOR CHAN14 # PUT ON CDU DRIVES S AND T
023140,002075: 25,2334 00001 TC L # RETURN.
023141,002076:
023142,002077: 25,2335 10061 RROUTLIM CCS ITEMP1 # LIMIT COMMAND TO ABS VAL OF 384.
023143,002078: 25,2336 42315 CS -RRLIMIT
023144,002079: 25,2337 12341 TCF +2
023145,002080: 25,2340 32315 CA -RRLIMIT
023146,002081: 25,2341 54061 TS ITEMP1
023147,002082: 25,2342 12320 TCF SETRRCTR +1
023148,002083:
023149,002084: # Page 537
023150,002085: # ROUTINE TO ZERO THE RR CDUS AND DETERMINE THE ANTENNA MODE.
023151,002086:
023152,002087: 25,2343 32372 RRZERO CAF BIT11+1 # SEE IF MONITOR REPOSITION OR NOT IN AUTO
023153,002088: 25,2344 70110 MASK RADMODES # IF SO, DON'T RE-ZERO CDUS.
023154,002089: 25,2345 10000 CCS A
023155,002090: 25,2346 13530 TCF RADNOOP # (IMMEDIATE TASK TO RGOODEND).
023156,002091:
023157,002092: 25,2347 00004 INHINT
023158,002093: 25,2350 44737 CS RCDU0BIT # SET FLAG TO SHOW ZEROING IN PROGRESS.
023159,002094: 25,2351 70110 MASK RADMODES
023160,002095: 25,2352 64737 AD RCDU0BIT
023161,002096: 25,2353 54110 TS RADMODES
023162,002097:
023163,002098: 25,2354 34753 CAF ONE
023164,002099: 25,2355 05203 TC WAITLIST
023165,002100: 25,2356 E7,1456 EBANK= LOSCOUNT
023166,002101: 25,2356 02370 52067 2CADR RRZ2
023167,002102:
023168,002103: 25,2360 40110 CS RADMODES # SEE IF IN AUTO MODE.
023169,002104: 25,2361 74752 MASK AUTOMBIT
023170,002105: 25,2362 10000 CCS A
023171,002106: 25,2363 12366 TCF ROADBACK
023172,002107: 25,2364 05567 TC ALARM # AUTO DISCRETE NOT PRESENT -- TRYING
023173,002108: 25,2365 00510 OCT 510
023174,002109: 25,2366 00003 ROADBACK RELINT
023175,002110: 25,2367 14631 TCF SWRETURN
023176,002111:
023177,002112: 25,2370 02071 RRZ2 TC RRZEROSB # COMMON TO TURNON AND RRZERO.
023178,002113: 25,2371 13546 TCF ENDRADAR
023179,002114:
023180,002115: 25,2372 02001 BIT11+1 OCT 02001
023181,002116:
023182,002117: # Page 538
023183,002118: # PROGRAM NAME: RRDESSM
023184,002119:
023185,002120: # FUNCTIONAL DESCRIPTION:
023186,002121:
023187,002122: # THIS INTERPRETIVE ROUTINE WILL DESIGNATE, IF DESIRED ANGLES ARE
023188,002123: # WITHIN THE LIMITS OF EITHER MODE, TO A LINE-OF-SIGHT (LOS) VECTOR
023189,002124: # (HALF-UNIT) KNOWN WITH RESPECT TO THE STABLE MEMBER PRESENT
023190,002125: # ORIENTATION. INITIALLY THE IMU CDU'S ARE READ AND CONTROL
023191,002126: # TRANSFERRED TO SMNB TO TRANSFORM THE LOS VECTOR FROM STABLE
023192,002127: # MEMBER TO NAVIGATION BASE COORDINATES (SEE STG MEMO 699)
023193,002128: # RRANGLES IS THEN CALLED TO CALCULATE THE RR GIMBAL ANGLES,
023194,002129: # TRUNNION AND SHAFT, FOR BOT THE PRESENT AND ALTERNATE MODE.
023195,002130: # RRLIMCHK IS CALLED TO SEE IF THE ANGLES CALCULATED FOR THE
023196,002131: # PRESENT MODE ARE WITHIN LIMITS. IF WITHIN LIMITS, THE RETUREN
023197,002132: # LOCATION IS INCREMENTED, INASMUCH AS NO VEHICLE MANEUVER IS
023198,002133: # REQUIRED, BEFORE EXITING TO STARTDES. IF NOT WITHIN THE LIMITS OF THE
023199,002134: # CURRENT MODE, TRYSWS IS CALLED. FOLLOWING INVERTING OF THE RR
023200,002135: # ANTENNA MODE FLAG (RADMODES BIT 12), RRLIMCHK IS CALLED
023201,002136: # TO SEE IF THE ANGLES CALCULATED FOR THE ALTERNATE MODE ARE WITHIN
023202,002137: # LIMITS. IF YES, THE RR ANTENNA MODE FLAG IS AGAIN INVERTED,
023203,002138: # THE REMODE FLAG (RADMODES BIT 14) SET, AND THE RETURN LOCATION
023204,002139: # INCREMENTED, TO INDICATE NO VEHICLE MANEUVER IS REQUIRED, BEFORE
023205,002140: # EXITING TO STARTDES. IF THESE ANGLES ARE NOT WITHIN LIMITS
023206,002141: # OF THE ALTERNATE MODE, THE RR ANTENNA MODE FLAG (RADMODES
023207,002142: # BIT 12) IS INVERTED BEFORE RETURNING DIRECTLY TO THE CALLING PROGRAM
023208,002143: # TO INDICATE THAT A VEHICLE MANEUVER IS REQUIRED.
023209,002144:
023210,002145: # CALLING SEQUENCE:
023211,002146:
023212,002147: # L STCALL RRTARGET (LOS HALF-UNIT VECTOR IN SM COORDINATES)
023213,002148: # L+1 RRDESM
023214,002149: # L+2 BASIC (VEHICLE MANEUVER REQUIRED)
023215,002150: # L+3 BASIC (NO VEHICLE MANEUVER REQUIRED)
023216,002151:
023217,002152: # ERASABLE INITIALIZATION REQUIRED:
023218,002153:
023219,002154: # RRTARGET, RADMODES
023220,002155:
023221,002156: # SUBROUTINES CALLED:
023222,002157:
023223,002158: # READCDUS, SMNB, RRANGLES, RRLIMCHK, TRYSWS (ACTUALLY
023224,002159: # PART OF), RMODINV
023225,002160:
023226,002161: # JOBS OR TASKS INITIATED:
023227,002162:
023228,002163: # NONE
023229,002164:
023230,002165: # ALARMS: NONE
023231,002166:
023232,002167: # EXIT: L+2 (NEITHER SET OF ANGLES ARE WITHIN LIMITS OF RELATED MODE)
023233,002168: # STARTDES (DESIGNATE POSSIBLE AT PRESENT VEHICLES ATTITUDE -- RETURNS
023234,002169: # TO L+3 FROM STARTDES)
023235,002170:
023236,002171: 25,2373 43020 RRDESSM STQ CLEAR
023237,002172: 25,2374 01113 DESRET
023238,002173: # Page 539
023239,002174: 25,2375 00271 RRNBSW
023240,002175: 25,2376 77624 CALL # COMPUTES SINES AND COSINES, ORDER Y Z X
023241,002176: 25,2377 47537 CDUTRIG
023242,002177: 25,2400 45175 VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
023243,002178: 25,2401 01102 RRTARGET
023244,002179: 25,2402 47671 *SMNB*
023245,002180:
023246,002181: 25,2403 77624 CALL # GET RR GIMBAL ANGLES IN PRESENT AND
023247,002182: 25,2404 26133 RRANGLES # ALTERNATE MODE.
023248,002183: 25,2405 77776 EXIT
023249,002184:
023250,002185: 25,2406 00004 INHINT
023251,002186: 25,2407 04523 TC RRLIMCHK
023252,002187: 25,2410 01107 ADRES MODEA # CONFIGURATION FOR CURRENT MODE.
023253,002188: 25,2411 02414 TC +3 # NOT IN CURRENT MODE
023254,002189: 25,2412 25113 OKDESSM INCR DESRET # INCREMENT SAYS NO VEHICLE MANEUVER REQ.
023255,002190: 25,2413 02432 TC STARTDES # SHOW DESIGNATE REQUIRED
023256,002191: 25,2414 40104 CS FLAGWRD8
023257,002192: 25,2415 74744 MASK SURFFBIT # CHECK IF ON LUNAR SURFACE (SURFFLAG=P22F)
023258,002193: 25,2416 00006 EXTEND
023259,002194: 25,2417 12456 BZF NORDSTAL # BRANCH -- YES -- CANNOT DESIGNATE IN MODE 2
023260,002195: 25,2420 02461 TC TRYSWS
023261,002196:
023262,002197: 25,2421 40104 LUNDESCH CS FLAGWRD8 # OVERFLOW RETURN FROM RRANGLES
023263,002198: 25,2422 74744 MASK SURFFBIT # CHECK IF ON LUNAR SURFACE
023264,002199: 25,2423 00006 EXTEND
023265,002200: 25,2424 12456 BZF NORDSTAL # BRANCH -- YES -- RETURN TO CALLER -- ALARM 527
023266,002201: 25,2425 30074 CA STATE
023267,002202: 25,2426 74745 MASK RNDVZBIT
023268,002203: 25,2427 10000 CCS A # TEST RNDVZFLG
023269,002204: 25,2430 02471 TC NODESSM # NOT ON MOON -- CALL FOR ATTITUDE MANEUVER
023270,002205: 25,2431 15155 TCF ENDOFJOB # ... BUT NOT IN R29.
023271,002206:
023272,002207: # Page 540
023273,002208: # PROGRAM NAME: STARTDES
023274,002209:
023275,002210: # FUNCTIONAL DESCRIPTION:
023276,002211:
023277,002212: # STARTDES IS ENTERED WHEN WE ARE READY TO BEGIN DESIGNATION.
023278,002213: # BIT 14 OF RADMODES IS ALREADY SET IF A REMODE IS REQUIRED.
023279,002214: # AT THIS TIME, THE RR ANTENNA MAY BE IN A REPOSITON
023280,002215: # OPERATION. IN THIS CASE, IF A REMODE IS REQUIRED IT MAY HAVE
023281,002216: # ALREADY BEGUN BUT IN ANY CASE THE REPOSITION WILL BE INTERRUPTED.
023282,002217: # OTHERWISE, THE REPOSITION WILL BE COMPLETED BEFORE 2-AXIS
023283,002218: # DESIGNATION BEGINS. INITIALLY DESCOUNT IS SET = 60 TO INDICATE
023284,002219: # THAT 30 SECONDS WILL BE ALLOWED FOR THE RR DATA GOOD INBIT
023285,002220: # (CHAN 33 BIT 4) IF LOCK-ON IS DESIRED (STATE BIT 5). BIT 10
023286,002221: # OF RADMODES IS SET TO SHOW THAT A DESIGNATE IS REQUIRED.
023287,002222: # THE REPOSITON FLAG (RADMODES BIT 11) IS CHECKED. IF SET,
023288,002223: # THE PROGRAM EXITS TO L+3 OF THE CALLING PROGRAM (SEE RRDESSM
023289,002224: # AND RRDESNB). THE PROGRAM WILL BEGIN DESIGNATING TO THE DESIRED
023290,002225: # ANGLES FOLLOWING THE REPOSITON OR REMODE IF ONE WAS
023291,002226: # REQUESTED. IF THE REPOSITON FLAG IS NOT SET, SETRRECR IS CALLED
023292,002227: # WITH SETS THE RR ERROR COUNTER ENABLE BIT (CHAN 12 BIT 2)
023293,002228: # AND SETS LASTYCMD AND LASTXCMD = 0 TO INDICATE THE
023294,002229: # DIFFERENCE BETWEEN THE PRESENT AND DESIRED STATE OF THE ERROR
023295,002230: # COUNTERS. A 20 MILLISECOND WAITLIST CALL IS SET FOR BEGDES
023296,002231: # AFTER WHICH THE PROGRAM EXITS TO L+3 OF TEH CALLING PROGRAM.
023297,002232:
023298,002233: # CALLING SEQUENCE:
023299,002234:
023300,002235: # FROM RRDESSM AND RRDESNB WHEN ANGLES WITHIN LIMITS.
023301,002236:
023302,002237: # ERASABLE INITIALIZATION REQUIRED:
023303,002238:
023304,002239: # RADMODES, (SEE DODES)
023305,002240:
023306,002241: # SUBROUTINES CALLED
023307,002242:
023308,002243: # SETRRECR, WAITLIST
023309,002244:
023310,002245: # JOBS OR TASKS INITIATED:
023311,002246:
023312,002247: # BEGDES
023313,002248:
023314,002249: # ALARMS: NONE
023315,002250:
023316,002251: # EXIT: L+3 OF CALLING PROGRAM (SEE RRDESSM)
023317,002252: # L+2 OF CALLING PROGRAM (SEE RRDESNB)
023318,002253:
023319,002254: 25,2432 25113 STARTDES INCR DESRET
023320,002255: 25,2433 40110 CS RADMODES
023321,002256: 25,2434 74742 MASK DESIGBIT
023322,002257: 25,2435 26110 ADS RADMODES
023323,002258: 25,2436 74741 MASK REPOSBIT # SEE IF REPOSITIONING IN PROGRESS.
023324,002259: 25,2437 10000 CCS A
023325,002260: 25,2440 12446 TCF DESRETRN # ECTR ALREADY SET UP.
023326,002261:
023327,002262: 25,2441 02156 TC SETRRECR # SET UP ERROR COUNTERS.
023328,002263: # Page 541
023329,002264: 25,2442 34752 CAF TWO
023330,002265: 25,2443 05203 TC WAITLIST
023331,002266: 25,2444 E7,1456 EBANK= LOSCOUNT
023332,002267: 25,2444 02573 52067 2CADR BEGDES
023333,002268:
023334,002269: 25,2446 31306 DESRETRN CA RADCADR # FIRST PASS THRU DESIGNATE
023335,002270: 25,2447 00006 EXTEND
023336,002271: 25,2450 12452 BZF DESRTRN # YES SET EXIT
023337,002272: 25,2451 05155 TC ENDOFJOB # NO
023338,002273: 25,2452 00003 DESRTRN RELINT
023339,002274: 25,2453 25113 INCR DESRET
023340,002275: 25,2454 31113 CA DESRET
023341,002276: 25,2455 14640 TCF BANKJUMP
023342,002277:
023343,002278: 25,2456 34755 NORDSTAL CAF ZERO # ZERO RADCADR TO WIPE OUT ANYONE
023344,002279: 25,2457 55306 TS RADCADR # WAITING IN RADSTALL SINCE WE ARE NOW
023345,002280: 25,2460 12452 TCF DESRTRN # RETURNING TO P20 AND MAY DO NEW RADSTALL
023346,002281:
023347,002282: # Page 542
023348,002283: # SEE IF RRDESSM CAN BE ACCOMPLISHED AFTER A REMODE.
023349,002284:
023350,002285: 25,2461 02233 TRYSWS TC RMODINV # (NOTE RUPT INHIBIT)
023351,002286: 25,2462 04523 TC RRLIMCHK # TRY DIFFERENT MODE.
023352,002287: 25,2463 01111 ADRES MODEB
023353,002288: 25,2464 12471 TCF NODESSM # VEHICLE MANEUVER REQUIRED
023354,002289:
023355,002290: 25,2465 02233 TC RMODINV # RESET BIT12
023356,002291: 25,2466 34736 CAF REMODBIT # SET FLAG FOR REMODE.
023357,002292: 25,2467 26110 ADS RADMODES
023358,002293:
023359,002294: 25,2470 12412 TCF OKDESSM
023360,002295:
023361,002296: 25,2471 02233 NODESSM TC RMODINV # RE-INVERT MODE AND RETURN
023362,002297: 25,2472 25113 INCR DESRET # TO CALLER +2
023363,002298: 25,2473 12456 TCF NORDSTAL
023364,002299:
023365,002300: 25,2474 00074 MAXTRYS DEC 60 B-14
023366,002301:
023367,002302: # Page 543
023368,002303: # DESIGNATE TO SPECIFIC RR GIMBAL ANGLES (INDEPENDENT OF VEHICLE MOTION). ENTER WITH DESIRED ANGLES IN
023369,002304: # TANG AND TANG +1.
023370,002305:
023371,002306: 25,2475 04645 RRDESNB TC MAKECADR
023372,002307: 25,2476 55113 TS DESRET
023373,002308:
023374,002309: 25,2477 05516 TC DOWNFLAG # RESET FLAG TO PREVENT DODES FROM GOING
023375,002310: 25,2500 00041 ADRES LOSCMFLG # BACK TO R21
023376,002311: 25,2501 32474 CA MAXTRYS # SET TIME LIMIT COUNTER
023377,002312: 25,2502 55114 TS DESCOUNT # FOR DESIGNATE
023378,002313: 25,2503 00004 INHINT # SEE IF CURRENT MODE OK.
023379,002314: 25,2504 02540 TC RRLIMNB # DO SPECIAL V41 LIMIT CHECK
023380,002315: 25,2505 01107 ADRES TANG
023381,002316: 25,2506 12523 TCF TRYSWN # SEE IF IN OTHER MODE.
023382,002317:
023383,002318: 25,2507 00003 OKDESNB RELINT
023384,002319: 25,2510 00006 EXTEND
023385,002320: 25,2511 31110 DCA TANG
023386,002321: 25,2512 53753 DXCH TANGNB
023387,002322: 25,2513 06037 TC INTPRET
023388,002323:
023389,002324: 25,2514 77624 CALL # GET LOS IN NB COORDS.
023390,002325: 25,2515 46041 RRNB
023391,002326: 25,2516 01102 STORE RRTARGET
023392,002327:
023393,002328: 25,2517 77414 SET EXIT
023394,002329: 25,2520 00071 RRNBSW
023395,002330:
023396,002331: 25,2521 00004 INHINT
023397,002332: 25,2522 12433 TCF STARTDES +1
023398,002333: 25,2523 02233 TRYSWN TC RMODINV # SEE IF OTHER MODE WILL DO.
023399,002334: 25,2524 02540 TC RRLIMNB # DO SPECIAL V41 LIMIT CHECK
023400,002335: 25,2525 01107 ADRES TANG
023401,002336: 25,2526 12533 TCF NODESNB # NOT POSSIBLE.
023402,002337:
023403,002338: 25,2527 02233 TC RMODINV
023404,002339: 25,2530 34736 CAF REMODBIT # CALL FOR REMODE.
023405,002340: 25,2531 26110 ADS RADMODES
023406,002341: 25,2532 12507 TCF OKDESNB
023407,002342:
023408,002343: 25,2533 02233 NODESNB TC RMODINV # REINVERT MODE BIT.
023409,002344: 25,2534 05567 TC ALARM # BAD INPUT ANGLES.
023410,002345: 25,2535 00502 OCT 502
023411,002346: 25,2536 06011 TC CLRADMOD
023412,002347: 25,2537 05155 TC ENDOFJOB # AVOID 503 ALARM.
023413,002348:
023414,002349: 25,2540 50002 RRLIMNB INDEX Q # THIS ROUTINE IS IDENTICAL TO RRLIMCHK
023415,002350: # Was CAF --- RSB 2004, Also CAF in Comanche OH 2009
023416,002351: 25,2541 30000 CA 0 # EXCEPT THAT THE MODE 1 SHAFT LOWER
023417,002352: 25,2542 24002 INCR Q # LIMIT IS -85 INSTEAD OF -70 DEGREES
023418,002353: 25,2543 00006 EXTEND
023419,002354: # Page 544
023420,002355: 25,2544 50000 INDEX A # READ GIMBAL ANGLES INTO ITEMP STORAGE
023421,002356: 25,2545 30001 DCA 0
023422,002357: 25,2546 52062 DXCH ITEMP1
023423,002358: 25,2547 22002 LXCH Q # L(CALLER +2) TO L
023424,002359:
023425,002360: 25,2550 34740 CAF ANTENBIT # SEE WHICH MODE RR IS IN
023426,002361: 25,2551 70110 MASK RADMODES
023427,002362: 25,2552 10000 CCS A
023428,002363: 25,2553 14550 TCF MODE2CHK # MODE 2 CAN USE RRLIMCHK CODING
023429,002364: 25,2554 30061 CA ITEMP1
023430,002365: 25,2555 04512 TC MAGSUB # MODE 1 IS DEFINED AS
023431,002366: 25,2556 66161 DEC -.30555 # 1 ABS(T) L 55 DEGS
023432,002367: 25,2557 00001 TC L # 2 SHAFT LIMITS AT +59, -85 DEGS
023433,002368:
023434,002369: 25,2560 30062 CA ITEMP2 # LOAD SHAFT ANGLE
023435,002370: 25,2561 00006 EXTEND
023436,002371: 25,2562 62570 BZMF NEGSHAFT # IF NEGATIVE SHAFT ANGLE, ADD 20.5 DEGS
023437,002372: 25,2563 64562 AD 5.5DEGS
023438,002373: 25,2564 04512 SHAFTLIM TC MAGSUB
023439,002374: 25,2565 64420 DEC -.35833 # 64.5 DEGREES
023440,002375: 25,2566 00001 TC L # NOT IN LIMITS
023441,002376: 25,2567 04560 TC RRLIMOK # IN LIMITS
023442,002377: 25,2570 62572 NEGSHAFT AD 20.5DEGS # MAKE NEGATIVE SHAFT LIMIT -85 DEGREES
023443,002378: 25,2571 12564 TCF SHAFTLIM
023444,002379:
023445,002380: 25,2572 03512 20.5DEGS DEC .11389
023446,002381:
023447,002382: # Page 545
023448,002383: # PROGRAM NAME: BEGDES
023449,002384:
023450,002385: # FUNCTIONAL DESCRIPTION:
023451,002386:
023452,002387: # BEGDES CHECKS VARIOUS DESIGNATE REQUESTS AND REQUESTS THE
023453,002388: # ACTUAL RR DESIGNATION. INITIALLY A CHECK IS MADE TO SEE IF A
023454,002389: # REMODE (RADMODES BIT 14) IS REQUESTED OR IN PROGRESS. IF SO,
023455,002390: # CONTROL IS TRANFERRED TO STDESIG AFTER ROUTINE REMODE IS
023456,002391: # EXECUTED. IF NO REMODE, STDESIG IS IMMEDIATELY CALLED WHERE
023457,002392: # FIRST THE REPOSITION FLAG (RADMODES BIT 11) IS CHECKED. IF
023458,002393: # PRESENT, THE DESIGNATE FLAG (RADMODES BIT 10) IS REMOVED
023459,002394: # AFTER WHICH THE PROGRAM EXITS TO RDBADEND. IF THE REPOSITION
023460,002395: # FLAG IS NOT PRESET, THE CONTINUOUS DESIGNATE FLAG (RADMODES
023461,002396: # BIT 15) IS CHECKED. IF PRESENT, AN EXECUTIVE CALL IS IMMEDIATELY
023462,002397: # MADE FOR DODES AFTER WHICH A .5 SECOND WAIT IS INITIATED BEFORE
023463,002398: # REPEATING AT STDESIG. IF THE RR SEARCH ROUTINE (LRS24.1) IS DESIGNATING
023464,002399: # TO A NEW POINT (NEWPTFLG SET) THE CURRENT DESIGNATE TASK IS TERMINATED.
023465,002400: # IF CONTINUOUS DESIGNATE IS NOT WANTED, THE DESIGNATE FLAG (RADMODES
023466,002401: # BIT 10) IS CHECKED. IF NOT PRESENT, THE PROGRAM EXITS TO ENDRADAR TO
023467,002402: # CHECK RR CDU FAIL BEFORE RETURNING TO THE CALLING PROGRAM. IF DESIGNATE
023468,002403: # IS STILL REQUIRED, DESCOUNT IS CHECKED TO SEE IF THE 30 SECONDS HAS
023469,002404: # EXPIRED BEFORE RECEIVING THE RR DATA GOOD (CHAN 33 BIT 4)
023470,002405: # SIGNAL. IF OUT OF TIME, PROGRAM ALARM 00503 IS REQUESTED, THE
023471,002406: # RR AUTO TRACKER ENABLE AND RR ERROR COUNTER ENABLE
023472,002407: # (CHAN 12 BITS 14,2) BITS REMOVED, AND THE DESIGNATE FLAG
023473,002408: # (RADMODES BIT 10) REMOVED BEFORE EEXITING TO RDBADEND. IF
023474,002409: # TIME HAS NOT EXPIRED, DESCOUNT IS DECREMENTED, THE
023475,002410: # EXECUTIVE CALL MADE FOR DODES, AND A .5 SECOND WAIT INITIATED
023476,002411: # BEFORE REPEATING THIS PROCEDURE AT STDESIG.
023477,002412:
023478,002413: # CALLING SEQUENCE:
023479,002414:
023480,002415: # WAITLIST CALL FROM STARTDES
023481,002416: # TCF BEGDES FROM DORREPOS
023482,002417: # TC STDESIG RETURNING, FROM REMODE
023483,002418:
023484,002419: # ERASABLE INITIALIZATION REQUIRED:
023485,002420:
023486,002421: # DESCOUNT, FINDVAC
023487,002422:
023488,002423: # JOBS OR TASKS INITIATED: DODES
023489,002424:
023490,002425: # ALARMS: PROGRAM ALARM 00503 (30 SECONDS HAVE EXPIRED) WITH NO RR DATA
023491,002426: # GOOD (CHAN 33 BIT 4) RECEIVED WHEN LOCK-ON (STATE BIT 5) WAS REQUESTED.
023492,002427:
023493,002428: # EXIT: TASKOVER (SEARCH PATTERN DESIGNATING TO NEW POINT)
023494,002429: # ENDRADAR (NO DESIGNATE -- RADMODES BIT 10)
023495,002430: # RDBADEND (REPOSITION OR 30 SECONDS EXPIRED)
023496,002431:
023497,002432: 25,2573 40110 BEGDES CS RADMODES
023498,002433: # Page 546
023499,002434: 25,2574 74736 MASK REMODBIT
023500,002435: 25,2575 10000 CCS A
023501,002436: 25,2576 02602 TC STDESIG
023502,002437: 25,2577 02171 TC REMODE
023503,002438: 25,2600 05221 DESLOOP TC FIXDELAY # 2 SAMPLES PER SECOND.
023504,002439: 25,2601 00062 DEC 50 B-14
023505,002440:
023506,002441: 25,2602 34741 STDESIG CAF REPOSBIT
023507,002442: 25,2603 70110 MASK RADMODES # SEE IF GIMBAL LIMIT MONITOR HAS FOUND US
023508,002443: 25,2604 10000 CCS A # OUT OF BOUNDS. IF SO, THIS BIT SHOWS A
023509,002444: 25,2605 12623 TCF BADDES # REPOSITION TO BE IN PROGRESS.
023510,002445:
023511,002446: 25,2606 10110 CCS RADMODES # SEE IF CONTINUOUS DESIGNATE WANTED.
023512,002447: 25,2607 12612 TCF +3 # IF SO, DON'T CHECK BIT 10 TO SEE IF IN
023513,002448: 25,2610 12612 TCF +2 # LIMITS BUT GO RIGHT TO FINDVAC ENTRY.
023514,002449: 25,2611 12630 TCF MOREDES +1
023515,002450:
023516,002451: 25,2612 40110 CS RADMODES # IF NON-CONTINUOUS, SEE IF END OF
023517,002452: 25,2613 74742 MASK DESIGBIT # PROBLEM (DATA GOOD IF LOCK-ON WANTED OR
023518,002453: 25,2614 10000 CCS A # WITHIN LIMITS IF NOT). IF SO, EXIT AFTER
023519,002454: 25,2615 13546 TCF ENDRADAR # CHECKING RR CDU FAIL.
023520,002455:
023521,002456: 25,2616 11114 STDESIG1 CCS DESCOUNT # SEE IF THE TIME LIMIT HAS EXPIRED
023522,002457: 25,2617 12627 TCF MOREDES
023523,002458:
023524,002459: 25,2620 42635 CS B14+B2 # IF OUT OF TIME, REMOVE ECR ENABLE + TRKR
023525,002460: 25,2621 00006 EXTEND
023526,002461: 25,2622 03012 WAND CHAN12
023527,002462: 25,2623 44742 BADDES CS DESIGBIT # REMOVE DESIGNATE FLAG
023528,002463: 25,2624 70110 MASK RADMODES
023529,002464: 25,2625 54110 TS RADMODES
023530,002465: 25,2626 13562 TCF RDBADEND
023531,002466:
023532,002467: 25,2627 55114 MOREDES TS DESCOUNT
023533,002468: 25,2630 37714 CAF PRIO26 # UPDATE GYRO TORQUE COMMANDS.
023534,002469: 25,2631 05105 TC FINDVAC
023535,002470: 25,2632 E7,1456 EBANK= LOSCOUNT
023536,002471: 25,2632 02636 52067 2CADR DODES
023537,002472:
023538,002473: 25,2634 12600 TCF DESLOOP
023539,002474:
023540,002475: 25,2635 20002 B14+B2 OCT 20002
023541,002476:
023542,002477: # Page 547
023543,002478: # PROGRAM NAME: DODES
023544,002479:
023545,002480: # FUNCTIONAL DESCRIPTION:
023546,002481:
023547,002482: # DODES CALCULATES AND REQUESTS ISSUANCE OF RR GYRO TORQUE
023548,002483: # COMMANDS. INITIALLY THE CURRENT RR CDU ANGLES ARE STORED AND
023549,002484: # THE LOS HALF-UNIT VECTOR TRANSFORMED FROM STABLE MEMBER TO
023550,002485: # NAVIGATION BASE COORDINATES VIA SMNB IF NECESSARY. THE
023551,002486: # SHAFT AND TRUNNION COMMANDS ARE THEN CALCULATED AS FOLLOWS:
023552,002487: # + SHAFT = LOS . (COS(S), 0, -SIN(S)) (DOT PRODUCT)
023553,002488: # - TRUNNION = LOS . (SIN(T)SIN(S), COS(T), SIN(T)COS(S))
023554,002489: # THE SIGN OF THE SHAFT COMMAND IS THEN REVERSED IF IN MODE 2
023555,002490: # (RADMODES BIT 12) BECAUSE A RELAY IN THE RR REVERSES THE
023556,002491: # POLARITY OF THE COMMAND. AT RRSCALUP EACH COMMAND IS
023557,002492: # SCALED AND IF EITHER, OR BOTH, OF THE COMMANDS IS GREATER THAN
023558,002493: # .5 DEGREES, MPAC +1 IS SET POSITIVE. IF A CONTINUOUS DESIGNATE
023559,002494: # (RADMODES BIT 15) IS DESIRED AND THE SEARCH ROUTINE IS NOT OPERATING,
023560,002495: # THE RR AUTO TRACKER ENABLE BIT (CHAN 12 BIT 14) IS CLEARED AND RROUT
023561,002496: # CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION (RADMODES BIT 11)
023562,002497: # IS IN PROGRESS. IF A CONTINUOUS DESIGNATE AND THE SEARCH ROUTINE IS
023563,002498: # OPERATING (SRCHOPT FLAT SET) THE TRACK ENABLE IS NOT CLEARED. IF NO
023564,002499: # CONTINUOUS DESIGNATE AND BOTH COMMANDS ARE NOT LESS THAN .5 DEGREES AS
023565,002500: # INDICATED BY MPAC +1, THE RR AUTO TRACKER ENABLE BIT (CHAN 12 BIT 14) IS
023566,002501: # CLEARED AND RROUT CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITON
023567,002502: # (RADMODES BIT 11) IS IN PROGRESS. IF BOTH COMMANDS ARE LESS THAN .5
023568,002503: # DEGREES AS INDICATED BY MPAC+1, THE RR AUTO TRACKER ENABLE BIT
023569,002504: # (CHAN 12 BIT 14) IS CLEARED AND RROUT CALLED TO PUT OUT THE
023570,002505: # COMMANDS PROVIDED NO REPOSITION (RADMODES BIT 11) IS IN
023571,002506: # PROGRESS. IF BOTH COMMANDS ARE LESS THAN .5 DEGREES, THE
023572,002507: # LOCK-ON FLAG (STATE BIT 5) IS CHECKED. IF NOT PRESETN, THE
023573,002508: # DESIGNATE FLAG (RADMODES BIT 10) IS CLEARED, AND ENDOFJOB
023574,002509: # CALLED. IF LOCK-ON IS DESIRED, THE RR AUTO TRACKER (CHAN 12
023575,002510: # BIT 14) IS ENABLED FOLLOWED BY A CHECK OF THE RECEIPT OF THE
023576,002511: # RR DATA GOOD (CHAN 33 BIT 4) SIGNAL. IF RR DATA GOOD
023577,002512: # PRESENT, THE DESIGNATE FLAG (RADMODES BIT 10) IS CLEARED,
023578,002513: # THE RR ERROR COUNTER ENABLE BIT (CHAN 12 BIT 2) IS CLEARED,
023579,002514: # AND ENDOFJOB CALLED. IF RR DATA GOOD IS NOT PRESENT, RROUT
023580,002515: # IS CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION
023581,002516: # (RADMODES BIT 11) IS IN PROGRESS AFTER WHICH THE JOB IS TERMINATED
023582,002517: # VIA ENDOFJOB.
023583,002518:
023584,002519: # CALLING SEQUENCE:
023585,002520:
023586,002521: # EXECUTIVE CALL EVERY .5 SECONDS FROM BEGDES.
023587,002522:
023588,002523: # ERASABLE INITIALIZATION REQUIRED:
023589,002524:
023590,002525: # RRTARGET (HALF-UNIT LOS VECTOR IN EITHER SM OR NB COORDINATES),
023591,002526: # LOKONSW (STATE BIT 5), RRNBSW (STATE BIT 6), RADMODES
023592,002527:
023593,002528: # SUBROUTINES CALLED:
023594,002529:
023595,002530: # READCDUS, SMNB, CDULOGIC, MAGSUB, RROUT
023596,002531: # Page 548
023597,002532:
023598,002533: # JOBS OR TASKS INITIATED:
023599,002534:
023600,002535: # NONE
023601,002536:
023602,002537: # ALARMS: NONE
023603,002538:
023604,002539: # EXIT: ENDOFJOB (ALWAYS)
023605,002540:
023606,002541: 25,2636 00006 DODES EXTEND
023607,002542: 25,2637 30036 DCA CDUT
023608,002543: 25,2640 53110 DXCH TANG
023609,002544:
023610,002545: 25,2641 06037 TC INTPRET
023611,002546:
023612,002547: 25,2642 77201 SETPD VLOAD
023613,002548: 25,2643 00001 0
023614,002549: 25,2644 01102 RRTARGET
023615,002550: 25,2645 74214 BON VXSC
023616,002551: 25,2646 00311 RRNBSW
023617,002552: 25,2647 52661 DONBRD # TARGET IN NAV-BASE COORDINATES
023618,002553: 25,2650 01767 MLOSV # MULTIPLY UNIT LOS BY MAGNITUDE
023619,002554: 25,2651 63372 VSL1 PDVL
023620,002555: 25,2652 01761 LOSVEL
023621,002556: 25,2653 53361 VXSC VAD # ADD ONE SECOND RELATIVE VELOCITY TO LOS
023622,002557: 25,2654 13072 MCTOMS
023623,002558: 25,2655 45056 UNIT CALL
023624,002559: 25,2656 47537 CDUTRIG
023625,002560: 25,2657 77624 CALL
023626,002561: 25,2660 47671 *SMNB*
023627,002562:
023628,002563: 25,2661 14041 DONBRD STODL 32D
023629,002564: 25,2662 01111 TANG +1
023630,002565: 25,2663 41434 RTB PUSH # SHAFT COMMAND = V(32D).(COS(S), 0,
023631,002566: 25,2664 21576 CDULOGIC # -SIN(S)).
023632,002567: 25,2665 65356 SIN PDDL # SIN(S) TO 0 AND COS(S) TO 2.
023633,002568: 25,2666 41546 COS PUSH
023634,002569: 25,2667 65205 DMP PDDL
023635,002570: 25,2670 00041 32D
023636,002571: 25,2671 00045 36D
023637,002572: 25,2672 44205 DMP BDSU
023638,002573: 25,2673 00001 0
023639,002574: 25,2674 77626 STADR
023640,002575: 25,2675 76666 STORE TANG +1 # SHAFT COMMAND
023641,002576:
023642,002577: 25,2676 47135 SLOAD RTB
023643,002578: 25,2677 01110 TANG
023644,002579: 25,2700 21576 CDULOGIC
023645,002580: 25,2701 71406 PUSH COS # COS(T) TO 4.
023646,002581: 25,2702 73525 PDDL SIN
023647,002582: 25,2703 41206 PUSH DMP # SIN(T) TO 6.
023648,002583: 25,2704 00003 2
023649,002584: # Page 549
023650,002585: 25,2705 65352 SL1 PDDL # DEFINE VECTOR U = [SIN(T)SIN(S)]
023651,002586: 25,2706 00005 4 # [ COS(T) ]
023652,002587: 25,2707 41325 PDDL DMP # [SIN(T)COS(S)]
023653,002588: 25,2710 00007 6
023654,002589: 25,2711 00001 0
023655,002590: 25,2712 55552 SL1 VDEF
023656,002591: 25,2713 77441 DOT EXIT # DOT U WITH LOS TO GET TRUNNION COMMAND.
023657,002592: 25,2714 00041 32D
023658,002593:
023659,002594: # Page 550
023660,002595: # AT THIS POINT WE HAVE A ROTATION VECTOR IN DISH AXES LYING IN THE TS PLANE. CONVERT THIS TO A
023661,002596: # COMMANDED RATE AND ENABLE THE TRACKER IF WE ARE WITHIN .5 DEGREES OF THE TARGET.
023662,002597:
023663,002598: 25,2715 40154 CS MPAC # DOT WAS NEGATIVE OF DESREG ANGLE.
023664,002599: 25,2716 00006 EXTEND
023665,002600: 25,2717 73066 MP RDESGAIN # SCALING ON INPUT ANGLE WAS 4 RADIANS.
023666,002601: 25,2720 55107 TS TANG # TRUNNION COMMAND.
023667,002602: 25,2721 40110 CS RADMODES # A RELAY IN THE RR REVERSES POLARITY OF
023668,002603: 25,2722 74740 MASK BIT12 # THE SHAFT COMMANDS IN MODE 2 SO THAT A
023669,002604: 25,2723 00006 EXTEND # POSITIVE TORQUE APPLIED TO THE SHAFT
023670,002605: 25,2724 12727 BZF +3 # GYRO CAUSES A POSITIVE CHANGE IN THE
023671,002606: 25,2725 31110 CA TANG +1 # SHAFT ANGLE. COMPENSATE FOR THIS SWITCH
023672,002607: 25,2726 12730 TCF +2 # BY CHANGING THE POLARITY OF OUR COMMAND.
023673,002608: 25,2727 41110 +3 CS TANG +1
023674,002609: 25,2730 00006 EXTEND
023675,002610: 25,2731 73066 MP RDESGAIN # SCALING ON INPUT ANGLE WAS 4 RADIANS.
023676,002611: 25,2732 55110 TS TANG +1 # SHAFT COMMAND FOR RROUT
023677,002612: 25,2733 06037 TC INTPRET
023678,002613:
023679,002614: 25,2734 41345 DLOAD DMP
023680,002615: 25,2735 00003 2 # COS(S).
023681,002616: 25,2736 00005 4 # COS(T).
023682,002617: 25,2737 65352 SL1 PDDL # Z COMPONENT OF URR.
023683,002618: 25,2740 65276 DCOMP PDDL # Y COMPONENT = -SIN(T)
023684,002619: 25,2741 00001 0 # SIN(S).
023685,002620: 25,2742 72405 DMP SL1
023686,002621: 25,2743 00005 4 # COS(T).
023687,002622: 25,2744 43066 VDEF BON # FORM URR IN NB AXES.
023688,002623: 25,2745 00311 RRNBSW # BYPASS NBSM CONVERSION IN VERB 41
023689,002624: 25,2746 52751 +3
023690,002625: 25,2747 77624 CALL
023691,002626: 25,2750 47673 *NBSM* # GET URR IN SM AXES.
023692,002627: 25,2751 77441 DOT EXIT
023693,002628: 25,2752 01102 RRTARGET # GET COSIN OF ANGLE BETWEEN RR AND LOS
023694,002629:
023695,002630: 25,2753 00006 EXTEND
023696,002631: 25,2754 43070 DCS COS1/2DG
023697,002632: 25,2755 20155 DAS MPAC # DIFFERENCE OF COSINES, SCALED B-2.
023698,002633: 25,2756 10154 CCS MPAC
023699,002634: 25,2757 34755 CA ZERO # IF COS ERROR BIGGER, ERROR IS SMALLER
023700,002635: 25,2760 12762 TCF +2
023701,002636: 25,2761 34753 CA ONE
023702,002637: 25,2762 54155 TS MPAC +1 # ZERO IF RR IS POINTED OK, ONE IF NOT.
023703,002638: # Page 551
023704,002639: # SEE IF TRACKER SHOULD BE ENABLED OR DISABLED.
023705,002640:
023706,002641: 25,2763 10110 CCS RADMODES # IF CONTINUOUS DESIGNATE WANTED, PUT OUT
023707,002642: 25,2764 12767 TCF SIGNLCHK # COMMANDS WITHOUT CHECKING MAGNITUDE OF
023708,002643: 25,2765 12767 TCF SIGNLCHK # ERROR SIGNALS
023709,002644: 25,2766 13017 TCF DORROUT
023710,002645: 25,2767 10155 SIGNLCHK CCS MPAC +1 # SEE IF BOTH AXES WERE WITHIN .5 DEGS.
023711,002646: 25,2770 13000 TCF DGOODCHK
023712,002647: 25,2771 40074 CS STATE # IF WITHIN LIMITS AND NO LOCK-ON WANTED,
023713,002648: 25,2772 74747 MASK LOKONBIT # PROBLEM IS FINISHED.
023714,002649: 25,2773 10000 CCS A
023715,002650: 25,2774 13005 TCF RRDESDUN
023716,002651:
023717,002652: 25,2775 34736 CAF BIT14 # ENABLE THE TRACKER
023718,002653: 25,2776 00006 EXTEND
023719,002654: 25,2777 05012 WOR CHAN12
023720,002655:
023721,002656: 25,3000 34750 DGOODCHK CAF BIT4 # SEE IF DATA GOOD RECEIVED YET
023722,002657: 25,3001 00006 EXTEND
023723,002658: 25,3002 02033 RAND CHAN33
023724,002659: 25,3003 10000 CCS A
023725,002660: 25,3004 13017 TCF DORROUT
023726,002661:
023727,002662: 25,3005 44742 RRDESDUN CS BIT10 # WHEN PROBLEM DONE, REMOVE BIT 10 SO NEXT
023728,002663: 25,3006 70110 MASK RADMODES # WAITLIST TASK WE WILL GO TO RGOODEND.
023729,002664: 25,3007 00004 INHINT
023730,002665: 25,3010 54110 TS RADMODES
023731,002666:
023732,002667: 25,3011 05516 TC DOWNFLAG # RESET LOSCMFLG TO PREENT A
023733,002668: 25,3012 00041 ADRES LOSCMFLG # RECOMPUTATION OF LOS AFTER DATA GOOD
023734,002669: 25,3013 44752 CS BIT2 # TURN OFF ENABLE RR ERROR COUNTER
023735,002670: 25,3014 00006 EXTEND
023736,002671: 25,3015 03012 WAND CHAN12
023737,002672: 25,3016 15155 TCF ENDOFJOB # WITH ECTR DISABLED.
023738,002673:
023739,002674: 25,3017 30076 DORROUT CA FLAGWRD2 # IF BOTH LOSCMFLAG AND SEARCH FLAG ARE
023740,002675: 25,3020 77712 MASK BIT12,14 # ZERO, BYPASS VELOCITY ADJUSTMENT TO LOS
023741,002676: 25,3021 00006 EXTEND
023742,002677: 25,3022 13041 BZF NOTP20
023743,002678: 25,3023 06037 TC INTPRET
023744,002679: 25,3024 74375 VLOAD VXSC # MULTIPLY UNIT LOS BY MAGNITUDE
023745,002680: 25,3025 01102 RRTARGET
023746,002681: 25,3026 01767 MLOSV
023747,002682: 25,3027 41572 VSL1 PUSH
023748,002683: 25,3030 74375 VLOAD VXSC # ADD .5 SEC. OF VELOCITY
023749,002684: 25,3031 01761 LOSVEL # TO LOS VECTOR
023750,002685: 25,3032 13072 MCTOMS
023751,002686: 25,3033 53362 VSR1 VAD
023752,002687: 25,3034 77656 UNIT
023753,002688: 25,3035 15102 STODL RRTARGET # STORE VELOCITY-CORRECTED LOS (UNIT)
023754,002689: # Page 552
023755,002690: 25,3036 00045 36D
023756,002691: 25,3037 01767 STORE MLOSV # AND STORE MAGNITUDE
023757,002692: 25,3040 77776 EXIT
023758,002693: 25,3041 00004 NOTP20 INHINT
023759,002694: 25,3042 40110 CS RADMODES # PUT OUT COMMAND UNLESS MONITOR
023760,002695: 25,3043 74741 MASK REPOSBIT # REPOSITION HAS TAKEN OVER
023761,002696: 25,3044 10000 CCS A
023762,002697: 25,3045 02306 TC RROUT
023763,002698:
023764,002699: 25,3046 30076 CA FLAGWRD2
023765,002700: 25,3047 74740 MASK LOSCMBIT # IF LOSCMFLG NOT SET, DON'T TEST
023766,002701: 25,3050 00006 EXTEND # LOS COUNTER
023767,002702: 25,3051 15155 BZF ENDOFJOB
023768,002703: 25,3052 11456 CCS LOSCOUNT # TEST LOS COUNTER TO SEE IF TIME TO GET
023769,002704: 25,3053 03064 TC DODESEND # A NEW LOS
023770,002705: 25,3054 00004 INHINT
023771,002706: 25,3055 06027 TC KILLTASK # YES -- KILL TASK WHICH SCHEDULES DODES
023772,002707: 25,3056 52602 CADR DESLOOP +2
023773,002708: 25,3057 00003 RELINT
023774,002709: 25,3060 10067 CCS NEWJOB
023775,002710: 25,3061 05122 TC CHANG1
023776,002711: 25,3062 04616 TC BANKCALL
023777,002712: 25,3063 50731 CADR R21LEM2
023778,002713:
023779,002714: 25,3064 55456 DODESEND TS LOSCOUNT
023780,002715: 25,3065 05155 TC ENDOFJOB
023781,002716:
023782,002717: 25,3066 21122 RDESGAIN DEC .53624 # TRIES TO NULL .5 ERROR IN .5 SEC.
023783,002718: 25,3067 7712 BIT12,14 EQUALS PRIO24 # OCT 24000
023784,002719: 25,3067 07777 33005 COS1/2DG 2DEC .999961923 B-2 # COSINE OF 0.5 DEGREES.
023785,002720: 25,3071 00310 00000 MCTOMS 2DEC 100 B-13
023786,002721:
023787,002722: # Page 553
023788,002723: # RADAR READ INITIALIZATION
023789,002724:
023790,002725: # RADAR DATA READ BY A BANKCALL FOR THE APPROPRIATE LEAD-IN BELOW.
023791,002726:
023792,002727: 25,3073 03113 LRALT TC INITREAD -1 # ONE SAMPLE PER READING.
023793,002728: 25,3074 00017 ALLREAD OCT 17
023794,002729:
023795,002730: 25,3075 03114 LRVELZ TC INITREAD
023796,002731: 25,3076 00016 OCT 16
023797,002732:
023798,002733: 25,3077 03114 LRVELY TC INITREAD
023799,002734: 25,3100 00015 OCT 15
023800,002735:
023801,002736: 25,3101 03114 LRVELX TC INITREAD
023802,002737: 25,3102 00014 OCT 14
023803,002738:
023804,002739: 25,3103 03113 RRRDOT TC INITREAD -1
023805,002740: 25,3104 00012 OCT 12
023806,002741:
023807,002742: 25,3105 03113 RRRANGE TC INITREAD -1
023808,002743: 25,3106 00011 OCT 11
023809,002744:
023810,002745: # LRVEL IS THE ENTRY TO THE LR VELOCITY READ ROUTINE WHEN 5 SAMPLES ARE
023811,002746: # WANTED. ENTER WITH C(A)= 0,2,4 FOR LRVELZ,LRVELY,LRVELX RESP.
023812,002747:
023813,002748: 25,3107 55105 LRVEL TS TIMEHOLD # STORE VBEAM INDEX HERE MOMENTARILY
023814,002749: 25,3110 34756 CAF FIVE # SPECIFY FIVE SAMPLES
023815,002750: 25,3111 51105 INDEX TIMEHOLD
023816,002751: 25,3112 13075 TCF LRVELZ
023817,002752:
023818,002753: # Page 554
023819,002754: 25,3113 34753 -1 CAF ONE # ENTRY TO TAKE ONLY 1 SAMPLE
023820,002755: 25,3114 00004 INITREAD INHINT
023821,002756:
023822,002757: 25,3115 55105 TS TIMEHOLD # GET DT OF MIDPOINT OF NOMINAL SAMPLING
023823,002758: 25,3116 00006 EXTEND # INTERVAL (ASSUMES NO BAD SAMPLES WILL BE
023824,002759: 25,3117 74751 MP BIT3 # ENCOUNTERED).
023825,002760: 25,3120 53106 DXCH TIMEHOLD
023826,002761:
023827,002762: 25,3121 10000 CCS A
023828,002763: 25,3122 55111 TS NSAMP
023829,002764: 25,3123 64753 AD ONE
023830,002765: # INSERT FOLLOWING INSTRUCTION TO GET 2N TRIES FOR N SAMPLES.
023831,002766: # DOUBLE
023832,002767: 25,3124 55100 TS SAMPLIM
023833,002768:
023834,002769: 25,3125 33147 CAF DGBITS # READ CURRENT VALUE OF DATA GOOD BITS.
023835,002770: 25,3126 00006 EXTEND
023836,002771: 25,3127 02033 RAND CHAN33
023837,002772: 25,3130 55113 TS OLDATAGD
023838,002773:
023839,002774: 25,3131 43074 CS ALLREAD
023840,002775: 25,3132 00006 EXTEND
023841,002776: 25,3133 03013 WAND CHAN13 # REMOVE ALL RADAR BITS
023842,002777:
023843,002778: 25,3134 50002 INDEX Q
023844,002779: # Was CAF --- RSB 2004.Also CAF in Comanche OH 2009
023845,002780: 25,3135 30000 CA 0
023846,002781: 25,3136 00006 EXTEND
023847,002782: 25,3137 05013 WOR CHAN13 # SET NEW RADAR BITS
023848,002783:
023849,002784: 25,3140 00006 EXTEND
023850,002785: 25,3141 30025 DCA TIME2
023851,002786: 25,3142 21106 DAS TIMEHOLD # TIME OF NOMINAL MIDPOINT
023852,002787:
023853,002788: 25,3143 34755 CAF ZERO
023854,002789: 25,3144 54001 TS L
023855,002790: 25,3145 53102 DXCH SAMPLSUM
023856,002791: 25,3146 12366 TCF ROADBACK
023857,002792:
023858,002793: 25,3147 00230 DGBITS OCT 230
023859,002794:
023860,002795: # Page 555
023861,002796: # RADAR RUPT READER
023862,002797:
023863,002798: # THIS ROUTINE STARTS FROM A RADARUPT. IT READS THE DATA & LOTS MORE.
023864,002799:
023865,002800: 25,2000 SETLOC RADARUPT
023866,002801: 25,2000 BANK
023867,002802:
023868,002803: 25,3150 COUNT* $$/RRUPT
023869,002804: 25,3150 00006 RADAREAD EXTEND # MUST SAVE SBANK BECAUSE OF RUPT EXITS
023870,002805: 25,3151 04007 ROR SUPERBNK # VIA TASKOVER (BADEND OR GOODEND).
023871,002806: 25,3152 54016 TS BANKRUPT
023872,002807: 25,3153 00006 EXTEND
023873,002808: 25,3154 22012 QXCH QRUPT
023874,002809:
023875,002810: 25,3155 34757 CAF SEVEN
023876,002811: 25,3156 00006 EXTEND
023877,002812: 25,3157 02013 RAND CHAN13
023878,002813: 25,3160 55335 TS DNINDEX
023879,002814: 25,3161 00006 EXTEND # IF RADAR SELECT BITS ZERO, DO NOT STORE
023880,002815: 25,3162 13166 BZF TRYCOUNT # DATA FOR DOWNLIST (ERASABLE PROBLEMS)
023881,002816: 25,3163 30046 CA RNRAD
023882,002817: 25,3164 51335 INDEX DNINDEX
023883,002818: 25,3165 55332 TS DNRRANGE -1
023884,002819: 25,3166 11100 TRYCOUNT CCS SAMPLIM
023885,002820: 25,3167 13211 TCF PLENTY
023886,002821: 25,3170 13174 TCF NOMORE
023887,002822: 25,3171 05567 TC ALARM
023888,002823: 25,3172 00520 OCT 520
023889,002824: 25,3173 05270 TC RESUME
023890,002825:
023891,002826: 25,3174 30107 NOMORE CA FLGWRD11 # IS LRBYPASS SET?
023892,002827: 25,3175 74735 MASK LRBYBIT
023893,002828: 25,3176 00006 EXTEND
023894,002829: 25,3177 13206 BZF BADRAD # NO. R12 IS ON -- BYPASS 521 ALARM.
023895,002830:
023896,002831: 25,3200 40077 CS FLAGWRD3 # CHECK R04FLAG.
023897,002832: 25,3201 74743 MASK R04FLBIT # IF 1, R04 IS RUNNING. DO NOT ALARM
023898,002833: 25,3202 00006 EXTEND
023899,002834: 25,3203 13206 BZF BADRAD
023900,002835:
023901,002836: 25,3204 05567 TC ALARM # P20 WANTS THE ALARM.
023902,002837: 25,3205 00521 OCT 521
023903,002838: 25,3206 44753 BADRAD CS ONE
023904,002839: 25,3207 55100 TS SAMPLIM
023905,002840: 25,3210 03560 TC RDBADEND -2
023906,002841: 25,3211 55100 PLENTY TS SAMPLIM
023907,002842: 25,3212 34751 CAF BIT3
023908,002843: 25,3213 00006 EXTEND
023909,002844: 25,3214 02013 RAND CHAN13 # TO FIND OUT WHICH RADAR
023910,002845: 25,3215 00006 EXTEND
023911,002846: # Page 556
023912,002847: 25,3216 13276 BZF RENDRAD
023913,002848:
023914,002849: 25,3217 03364 TC R77CHECK # R77 QUITS HERE.
023915,002850: 25,3220 30110 LRPOSCHK CA RADMODES # SEE IF LR IN DESIRED POSITION
023916,002851: 25,3221 00006 EXTEND
023917,002852: 25,3222 06033 RXOR CHAN33
023918,002853: 25,3223 74746 MASK BIT6
023919,002854: 25,3224 00006 EXTEND
023920,002855: 25,3225 13231 BZF VELCHK
023921,002856:
023922,002857: 25,3226 05567 TC ALARM
023923,002858: 25,3227 00522 OCT 522
023924,002859: 25,3230 03206 TC BADRAD
023925,002860:
023926,002861: 25,3231 36245 VELCHK CAF BIN3 # = 00003 OCT
023927,002862: 25,3232 00006 EXTEND
023928,002863: 25,3233 06013 RXOR CHAN13 # RESET ACTIVITY BIT
023929,002864: 25,3234 76245 MASK BIN3
023930,002865: 25,3235 00006 EXTEND
023931,002866: 25,3236 13272 BZF LRHEIGHT # TAKE A LR RANGE READING
023932,002867:
023933,002868: 25,3237 34733 CAF POSMAX
023934,002869: 25,3240 70046 MASK RNRAD
023935,002870: 25,3241 62000 AD LVELBIAS
023936,002871: 25,3242 54001 TS L
023937,002872: 25,3243 30046 CAE RNRAD
023938,002873: 25,3244 60000 DOUBLE
023939,002874: 25,3245 74753 MASK BIT1
023940,002875: 25,3246 52064 DXCH ITEMP3
023941,002876:
023942,002877: 25,3247 34744 CAF BIT8 # DATA GOOD ISN'T CHECKED UNTIL AFTER READ-
023943,002878: 25,3250 03442 TC DGCHECK # ING DATA SO SOME RADAR TESTS WILL WORK
023944,002879: # INDEPENDENT OF DATA GOOD.
023945,002880:
023946,002881: 25,3251 11111 CCS NSAMP
023947,002882: 25,3252 03262 TC NOEND
023948,002883: 25,3253 44753 GOODRAD CS ONE
023949,002884: 25,3254 55100 TS SAMPLIM
023950,002885: 25,3255 40061 CS ITEMP1 # WHEN ENOUGH GOOD DATA HAS BEEN GATHERED,
023951,002886: 25,3256 70110 MASK RADMODES # RESET DATA FAIL FLAGS FOR SETTRKF.
023952,002887: 25,3257 54110 TS RADMODES
023953,002888: 25,3260 03616 TC RADLITES # LAMPS MAY GO OFF IF DATA JUST GOOD.
023954,002889: 25,3261 03553 TC RGOODEND -2
023955,002890:
023956,002891: 25,3262 55111 NOEND TS NSAMP
023957,002892: 25,3263 11100 RESAMPLE CCS SAMPLIM # SEE IF ANY MORE TRIES SHOULD BE MADE.
023958,002893: 25,3264 13266 TCF +2
023959,002894: 25,3265 13461 TCF DATAFAIL # N SAMPLES NOT AVAILABLE.
023960,002895: 25,3266 34750 CAF BIT4 # RESET ACTIVITY BIT.
023961,002896: 25,3267 00006 EXTEND
023962,002897: # Page 557
023963,002898: 25,3270 05013 WOR CHAN13 # RESET ACTIVITY BIT
023964,002899: 25,3271 05270 TC RESUME
023965,002900:
023966,002901:
023967,002902: 25,3272 34747 LRHEIGHT CAF BIT5
023968,002903: 25,3273 54061 TS ITEMP1 # (POSITION OF DATA GOOD BIT IN CHAN 33)
023969,002904:
023970,002905: 25,3274 34743 CAF BIT9
023971,002906: 25,3275 03320 TC SCALECHK -1
023972,002907:
023973,002908: 25,3276 34741 RENDRAD CAF REPOSBIT # MAKE SURE ANTENNA HAS NOT GONE OUT OF
023974,002909: 25,3277 70110 MASK RADMODES # LIMITS.
023975,002910: 25,3300 10000 CCS A
023976,002911: 25,3301 13206 TCF BADRAD
023977,002912:
023978,002913: 25,3302 40110 CS RADMODES # BE SURE RR CDU HASN'T FAILED.
023979,002914: 25,3303 74745 MASK RCDUFBIT
023980,002915: 25,3304 10000 CCS A
023981,002916: 25,3305 13206 TCF BADRAD
023982,002917:
023983,002918: 25,3306 34750 CAF BIT4 # SEE IF DATA HAS BEEN GOOD.
023984,002919: 25,3307 54061 TS ITEMP1 # (POSITION OF DATA GOOD BIT IN CHAN 33)
023985,002920:
023986,002921: 25,3310 34753 CAF BIT1 # SEE IF RR RDOT.
023987,002922: 25,3311 00006 EXTEND
023988,002923: 25,3312 02013 RAND CHAN13
023989,002924: 25,3313 54002 TS Q # FOR LATER TESTING.
023990,002925: 25,3314 10000 CCS A
023991,002926: 25,3315 13317 TCF +2
023992,002927: 25,3316 13331 TCF RADIN # NO SCALE CHECK FOR RR RDOT.
023993,002928: 25,3317 34751 CAF BIT3
023994,002929: 25,3320 54001 TS L
023995,002930:
023996,002931: 25,3321 00006 SCALECHK EXTEND
023997,002932: 25,3322 02033 RAND CHAN33 # SCALE STATUS NOW
023998,002933: 25,3323 56001 XCH L
023999,002934: 25,3324 70110 MASK RADMODES # SCALE STATUS BEFORE
024000,002935: 25,3325 00006 EXTEND
024001,002936: 25,3326 06001 RXOR LCHAN # SEE IF THEY DIFFER
024002,002937: 25,3327 10000 CCS A
024003,002938: 25,3330 03350 TC SCALCHNG # THEY DIFFER.
024004,002939:
024005,002940: 25,3331 34733 RADIN CAF POSMAX
024006,002941: 25,3332 70046 MASK RNRAD
024007,002942: 25,3333 54064 TS ITEMP4
024008,002943:
024009,002944: 25,3334 30046 CAE RNRAD
024010,002945: 25,3335 60000 DOUBLE
024011,002946: 25,3336 74753 MASK BIT1
024012,002947: 25,3337 54063 TS ITEMP3
024013,002948: # Page 558
024014,002949: 25,3340 10002 CCS Q # SEE IF RR RDOT.
024015,002950: 25,3341 13402 TCF SCALADJ # NO, BUT SCALE CHANGING MAY BE NEEDED.
024016,002951:
024017,002952: 25,3342 00006 EXTEND # IF RR RANGE RATE, THROW OUT BIAS
024018,002953: 25,3343 42002 DCS RDOTBIAS
024019,002954: 25,3344 20064 DASAMPL DAS ITEMP3
024020,002955: 25,3345 30061 DGCHECK2 CA ITEMP1 # SEE THAT DATA HAS BEEN GOOD BEFORE AND
024021,002956: 25,3346 03443 TC DGCHECK +1 # AFTER TAKING SAMPLE.
024022,002957: 25,3347 03253 TC GOODRAD
024023,002958:
024024,002959: 25,3350 22110 SCALCHNG LXCH RADMODES
024025,002960: 25,3351 64753 AD BIT1
024026,002961: 25,3352 00006 EXTEND
024027,002962: 25,3353 06001 RXOR LCHAN
024028,002963: 25,3354 54110 TS RADMODES
024029,002964: 25,3355 33147 CAF DGBITS # UPDATE LAST VALUE OF DATA GOOD BITS.
024030,002965: 25,3356 00006 EXTEND
024031,002966: 25,3357 02033 RAND CHAN33
024032,002967: 25,3360 55113 TS OLDATAGD
024033,002968: 25,3361 05504 TC UPFLAG # SET RNGSCFLG
024034,002969: 25,3362 00120 ADRES RNGSCFLG # FOR LRS24.1
024035,002970: 25,3363 13206 TCF BADRAD
024036,002971:
024037,002972: # R77 MUST IGNORE DATA FAILS SO AS NOT TO DISTURB THE ASTRONAUT.
024038,002973:
024039,002974: 25,3364 40101 R77CHECK CS FLAGWRD5
024040,002975: 25,3365 74741 MASK R77FLBIT
024041,002976: 25,3366 10000 CCS A
024042,002977: 25,3367 00002 TC Q # NOT R77
024043,002978: 25,3370 43401 CS BITS5,8 # UPDATE LR DATA GOOD BITS IN RADMODES
024044,002979: 25,3371 70110 MASK RADMODES
024045,002980: 25,3372 54001 TS L
024046,002981: 25,3373 33401 CA BITS5,8
024047,002982: 25,3374 00006 EXTEND
024048,002983: 25,3375 02033 RAND CHAN33
024049,002984: 25,3376 60001 AD L
024050,002985: 25,3377 54110 TS RADMODES
024051,002986: 25,3400 03553 TC RGOODEND -2
024052,002987: 25,3401 00220 BITS5,8 OCT 220
024053,002988:
024054,002989: # Page 559
024055,002990: # THE FOLLOWING ROUTINE INCORPORATES RR RANGE AND LR ALT SCALE INFORMATION AND LEAVES DATA AT LO SCALE.
024056,002991:
024057,002992: 25,3402 10001 SCALADJ CCS L # L HAS SCALE INBIT FOR THIS RADAR.
024058,002993: 25,3403 13405 TCF +2 # ON HIGH SCALE.
024059,002994: 25,3404 13345 TCF DGCHECK2
024060,002995:
024061,002996: 25,3405 31335 CA DNINDEX
024062,002997: 25,3406 74751 MASK BIT3
024063,002998: 25,3407 10000 CCS A
024064,002999: 25,3410 13417 TCF LRSCK
024065,003000:
024066,003001: 25,3411 52064 DXCH ITEMP3
024067,003002: 25,3412 20001 DDOUBL
024068,003003: 25,3413 20001 DDOUBL
024069,003004: 25,3414 20001 DDOUBL
024070,003005: 25,3415 52064 DXCH ITEMP3
024071,003006:
024072,003007: 25,3416 13345 TCF DGCHECK2
024073,003008:
024074,003009: 25,3417 10063 LRSCK CCS ITEMP3
024075,003010: 25,3420 13431 TCF +11
024076,003011: 25,3421 40064 CS ITEMP4
024077,003012: 25,3422 63441 AD HISCALIM
024078,003013: 25,3423 00006 EXTEND
024079,003014: 25,3424 63431 BZMF +5
024080,003015:
024081,003016: 25,3425 40107 CS FLGWRD11
024082,003017: 25,3426 74751 MASK SCABBIT
024083,003018: 25,3427 26107 ADS FLGWRD11
024084,003019: 25,3430 13434 TCF +4
024085,003020:
024086,003021: 25,3431 44751 CS SCABBIT
024087,003022: 25,3432 70107 MASK FLGWRD11
024088,003023: 25,3433 54107 TS FLGWRD11
024089,003024:
024090,003025: 25,3434 00006 EXTEND
024091,003026: 25,3435 30064 DCA ITEMP3
024092,003027: 25,3436 20001 DDOUBL
024093,003028: 25,3437 20001 DDOUBL
024094,003029: 25,3440 13344 TCF DASAMPL
024095,003030:
024096,003031: 25,3441 00714 HISCALIM DEC 460 B-14 # 2481.7 FT ******************************
024097,003032: # Page 560
024098,003033: 25,3442 54061 DGCHECK TS ITEMP1 # UPDATE DATA GOOD BIT IN OLDATAGD AND
024099,003034: 25,3443 00006 EXTEND # MAKE SURE IT WAS ON BEFORE AND AFTER THE
024100,003035: 25,3444 02033 RAND CHAN33 # SAMPLE WAS TAKEN BEFORE RETURNING. IF
024101,003036: 25,3445 54001 TS L # NOT, GOES TO RESAMPLE TO TRY AGAIN. IF
024102,003037: 25,3446 40061 CS ITEMP1 # MAX NUMBER OF TRIES HAS BEEN REACHED,
024103,003038: 25,3447 71113 MASK OLDATAGD # THE BIT CORRESPONDING TO THE DATA GOOD
024104,003039: 25,3450 60001 AD L # WHICH FAILED TO APPEAR IS IN ITEMP1 AND
024105,003040: 25,3451 57113 XCH OLDATAGD # CAN BE USED TO SET RADMODES WHICH VIA
024106,003041: 25,3452 70061 MASK ITEMP1 # SETTRKF SETS THE TRACKER FAIL LAMP.
024107,003042: 25,3453 60001 AD L
024108,003043: 25,3454 10000 CCS A # SHOULD BOTH BE ZERO.
024109,003044: 25,3455 03263 TC RESAMPLE
024110,003045: 25,3456 52064 DXCH ITEMP3 # IF DATA GOOD BEFORE AND AFTER, ADD TO
024111,003046: 25,3457 21102 DAS SAMPLSUM # ACCUMULATION.
024112,003047: 25,3460 00002 TC Q
024113,003048:
024114,003049: 25,3461 40061 DATAFAIL CS ITEMP1 # IN THE ABOVE CASE, SET RADMODES BIT
024115,003050: 25,3462 70110 MASK RADMODES # SHOWING SOME RADAR DATA FAILED.
024116,003051: 25,3463 60061 AD ITEMP1
024117,003052: 25,3464 54110 TS RADMODES
024118,003053:
024119,003054: 25,3465 52064 DXCH ITEMP3 # IF WE HAVE BEEN UNABLE TO GATHER N
024120,003055: 25,3466 53102 DXCH SAMPLSUM # SAMPLES, USE LAST ONE ONLY.
024121,003056: 25,3467 03616 TC RADLITES
024122,003057: 25,3470 13174 TCF NOMORE
024123,003058: # Page 561
024124,003059: # THIS ROUTINE CHANGES THE LR POSITION, AND CHECKS THAT IT GOT THERE.
024125,003060:
024126,003061: 25,2000 SETLOC P20S1
024127,003062: 25,2000 BANK
024128,003063:
024129,003064: 25,3471 COUNT* $$/RSUB
024130,003065: 25,3471 00004 LRPOS2 INHINT
024131,003066:
024132,003067: 25,3472 40110 CS RADMODES
024133,003068: 25,3473 74746 MASK LRPOSBIT # SHOW DESIRED LR POSITION IS 2
024134,003069: 25,3474 26110 ADS RADMODES
024135,003070:
024136,003071: 25,3475 34745 CAF BIT7
024137,003072: 25,3476 00006 EXTEND
024138,003073: 25,3477 02033 RAND CHAN33 # SEE IF ALREADY THERE.
024139,003074: 25,3500 00006 EXTEND
024140,003075: 25,3501 13530 BZF RADNOOP
024141,003076:
024142,003077: 25,3502 34737 CAF BIT13
024143,003078: 25,3503 00006 EXTEND
024144,003079: 25,3504 05012 WOR CHAN12 # COMMAND TO POSITION 2
024145,003080: 25,3505 33545 CAF 6SECS # START SCANNING FOR INBIT AFTER 7 SECS.
024146,003081: 25,3506 05203 TC WAITLIST
024147,003082: 25,3507 E7,1456 EBANK= LOSCOUNT
024148,003083: 25,3507 03543 52067 2CADR LRPOSCAN
024149,003084:
024150,003085: 25,3511 02366 TC ROADBACK
024151,003086:
024152,003087: 25,3512 55100 LRPOSNXT TS SAMPLIM
024153,003088: 25,3513 05221 TC FIXDELAY # SCAN ONCE PER SECOND 15 TIMES MAX AFTER
024154,003089: 25,3514 00144 DEC 100 B-14 # INITIAL DELAY OF 7 SECONDS.
024155,003090:
024156,003091: 25,3515 34745 CAF BIT7 # SEE IF LR POS2 IS ON
024157,003092: 25,3516 00006 EXTEND
024158,003093: 25,3517 02033 RAND CHAN33
024159,003094: 25,3520 00006 EXTEND
024160,003095: 25,3521 13535 BZF LASTLRDT # IF THERE, WAIT FINAL SECOND FOR BOUNCE.
024161,003096:
024162,003097: 25,3522 11100 CCS SAMPLIM # SEE IF MAX TIME UP.
024163,003098: 25,3523 13512 TCF LRPOSNXT
024164,003099:
024165,003100: 25,3524 44737 CS BIT13 # IF TIME UP, DISABLE COMMAND AND ALARM.
024166,003101: 25,3525 00006 EXTEND
024167,003102: 25,3526 03012 WAND CHAN12
024168,003103: 25,3527 13562 TCF RDBADEND
024169,003104:
024170,003105: 25,3530 34753 RADNOOP CAF ONE # NO FURTHER ACTION REQUESTED.
024171,003106: 25,3531 05203 TC WAITLIST
024172,003107: 25,3532 E7,1456 EBANK= LOSCOUNT
024173,003108: 25,3532 03555 52067 2CADR RGOODEND
024174,003109: # Page 562
024175,003110: 25,3534 02366 TC ROADBACK
024176,003111:
024177,003112: 25,3535 35000 LASTLRDT CA 2SECS # WAIT TWO SECONDS AFTER RECEIPT OF INBIT
024178,003113: 25,3536 05224 TC VARDELAY # TO WAIT FOR ANTENNA BOUNCE TO DIE OUT.
024179,003114:
024180,003115: 25,3537 44737 CS BIT13 # REMOVE COMMAND
024181,003116: 25,3540 00006 EXTEND
024182,003117: 25,3541 03012 WAND CHAN12
024183,003118: 25,3542 13555 TCF RGOODEND
024184,003119:
024185,003120: 25,3543 34317 LRPOSCAN CAF FOURTEEN # SET UP FOR 15 SAMPLES.
024186,003121: 25,3544 13512 TCF LRPOSNXT
024187,003122: 25,3545 01130 6SECS DEC 600 B-14
024188,003123: # Page 563
024189,003124: # SEQUENCES TO TERMINATE RR OPERATIONS.
024190,003125:
024191,003126: 25,3546 34745 ENDRADAR CAF RCDUFBIT # PROLOG TO CHECK RR CDU FAIL BEFORE END.
024192,003127: 25,3547 70110 MASK RADMODES
024193,003128: 25,3550 10000 CCS A
024194,003129: 25,3551 13555 TCF RGOODEND
024195,003130: 25,3552 13562 TCF RDBADEND
024196,003131: 25,3553 44755 -2 CS ZERO # RGOODEND WHEN NOT UNDER WAITLIST CONTROL
024197,003132: 25,3554 54734 TS RUPTAGN
024198,003133:
024199,003134: 25,3555 34752 RGOODEND CAF TWO
024200,003135: 25,3556 04635 TC POSTJUMP
024201,003136: 25,3557 17665 CADR GOODEND
024202,003137:
024203,003138: 25,3560 44755 -2 CS ZERO # RDBADEND WHEN NOT UNDER WIATLIST.
024204,003139: 25,3561 54734 TS RUPTAGN
024205,003140: 25,3562 34752 RDBADEND CAF TWO
024206,003141: 25,3563 04635 TC POSTJUMP
024207,003142: 25,3564 17662 CADR BADEND
024208,003143:
024209,003144: 25,3565 6245 BIN3 EQUALS THREE
024210,003145:
024211,003146: # Page 564
024212,003147: # PROGRAM NAME: LPS20.1 VECTOR EXTRAPOLATION AND LOS COMPUTATION
024213,003148: # MOD. NO. 2 BY J.D. COYNE SDC DATE 12-7-66
024214,003149:
024215,003150: # FUNCTIONAL DESCRPIPTION:
024216,003151: # 1) EXTRAPOLATE THE LEM AND CSM VECTORS IN ACCORDANCE WITH THE TIME REFERRED TO IN CALLER + 1.
024217,003152: # 2) COMPUTES THE LOS VECTOR TO THE CSM, CONVERTS IT TO STABLE MEMBER COORDINATES AND STORES IT IN RRTARGET.
024218,003153: # 3) COMPUTES THE MAGNITUDE OF TEH LOS VECTOR AND STORES IT IN MLOSV
024219,003154:
024220,003155: # CALLING SEQUENCE: CALL
024221,003156: # LPS20.1
024222,003157:
024223,003158: # SUBROUTINES CALLED:
024224,003159: # LEMPREC, CSMPREC
024225,003160:
024226,003161: # NORMAL EXIT: RETURN TO CALLER + 2.
024227,003162:
024228,003163: # ERROR EXITS: NONE
024229,003164:
024230,003165: # ALARMS: NONE
024231,003166:
024232,003167: # OUTPUT:
024233,003168: # LOS VECTOR (HALF UNIT) IN SM COORDINATES STORED IN RRTARGET
024234,003169: # MAGNITUDE OF TEH LOS VECTOR (METERS SCALED B-29) STORED IN MSLOV
024235,003170: # RRNBSW CLEARED.
024236,003171:
024237,003172: # INITIALIZED ERASABLE
024238,003173: # TDEC1 MUST CONTAIN THE TIME FOR EXTRAPOLATION
024239,003174: # SEE ORBITAL INTEGRATION ROUTINE
024240,003175:
024241,003176: # DEBRIS:
024242,003177: # MPAC DESTROYED BY THE ROUTINE
024243,003178:
024244,003179: 23,2314 BANK 23
024245,003180: 24,2000 SETLOC P20S
024246,003181: 24,2000 BANK
024247,003182: # Page 565
024248,003183: 24,3255 COUNT* $$/LPS20
024249,003184:
024250,003185: 24,3255 43020 LPS20.1 STQ BOFF
024251,003186: 24,3256 01757 LS21X
024252,003187: 24,3257 01343 LOSCMFLG # LOSCMFLG = 0 MEANS NOT CALLED BY R21
024253,003188: 24,3260 51264 LMINT # SO CALL LEMCONIC TO GET LM STATE
024254,003189: 24,3261 77614 BON # IF IN R21 AND ON LUNAR SURFACE
024255,003190: 24,3262 04307 SURFFLAG # DON'T CALL LEMCONIC
024256,003191: 24,3263 51274 CSMINT
024257,003192: 24,3264 77624 LMINT CALL
024258,003193: 24,3265 27100 LEMCONIC # EXTRAPOLATE LEM
024259,003194: 24,3266 77775 VLOAD
024260,003195: 24,3267 00001 RATT
024261,003196: 24,3270 26352 STOVL LMPOS # SAVE LM POSITION B-29
024262,003197: 24,3271 00007 VATT
024263,003198: 24,3272 16360 STODL LMVEL # SAVE LM VELOCITY B-7
024264,003199: 24,3273 00015 TAT
024265,003200: 24,3274 34041 CSMINT STCALL TDEC1
024266,003201: 24,3275 27066 CSMCONIC # EXTRAPOLATE CSM
024267,003202: 24,3276 52375 VLOAD VSU # COMPUTE RELATIVE VELOCITY V(CSM) - V(LM)
024268,003203: 24,3277 00007 VATT
024269,003204: 24,3300 02360 LMVEL
024270,003205: 24,3301 76521 MXV VSL1
024271,003206: 24,3302 01734 REFSMMAT
024272,003207: 24,3303 77776 EXIT
024273,003208: 24,3304 06027 TC KILLTASK # KILL THE TASK WHICH CALLS DODES SINCE
024274,003209: 24,3305 52602 CADR DESLOOP +2 # STORING INTO ERASEABLES DODES USES
024275,003210: 24,3306 06037 TC INTPRET
024276,003211: 24,3307 25761 STOVL LOSVEL
024277,003212: 24,3310 00001 RATT
024278,003213: 24,3311 43051 VSU BOFF
024279,003214: 24,3312 02352 LMPOS
024280,003215: 24,3313 00350 RNDVZFLG
024281,003216: 24,3314 51321 NOTSHIFT
024282,003217: 24,3315 77604 BOVB
024283,003218: 24,3316 57753 TCDANZIG
024284,003219: 24,3317 77661 VSL
024285,003220: 24,3320 20212 9D
024286,003221: 24,3321 41056 NOTSHIFT UNIT BOVB # IF OVERFLOW, RANGE MUST BE GREATER
024287,003222: 24,3322 50102 526ALARM # THAN 400 N. M.
024288,003223: 24,3323 76521 MXV VSL1
024289,003224: 24,3324 01734 REFSMMAT # CONVERT TO STABLE MEMBER
024290,003225: 24,3325 15102 STODL RRTARGET
024291,003226: 24,3326 00045 36D # SAVE MAGNITUDE OF LOS VECTOR FOR
024292,003227: 24,3327 01767 STORE MLOSV # VELOCITY CORRECTION IN DESIGNATE
024293,003228: 24,3330 77614 CLRGO
024294,003229: 24,3331 00231 RRNBSW
024295,003230: 24,3332 01757 LS21X
024296,003231:
024297,003232: # Page 566
024298,003233: # PROGRAM NAME: LPS20.2 400 NM RANGE CHECK
024299,003234: # MOD. NO. 2 BY J.D. COYNE SDC DATE 12-7-66
024300,003235:
024301,003236: # FUNCTIONAL DESCRIPTION:
024302,003237: # COMPARES THE MAGNITUDE OF THE LOS VECTOR TO 400 NM.
024303,003238:
024304,003239: # CALLING SEQUENCE: CALL
024305,003240: # LPS20.2
024306,003241:
024307,003242: # SUBROUTINES CALLED: NONE
024308,003243:
024309,003244: # NORMAL EXIT: RETURN TO CALLER +1, MPAC EQ 0 (RANGE 400NM OR LESS.)
024310,003245:
024311,003246: # ERROR EXITS: RETURN TO CALLER +1, MPAC EQ 1 (RANGE GREATER THAN 400NM)
024312,003247:
024313,003248: # ALARMS: NONE
024314,003249:
024315,003250: # OUTPUT: NONE
024316,003251:
024317,003252: # INITIALIZED ERASEABLE:
024318,003253: # PDL 36D MUST CONTAIN THE MAGNITUDE OF THE VECTOR
024319,003254:
024320,003255: # DEBRIS:
024321,003256: # MPAC DESTROYED BY THIS ROUTINE
024322,003257:
024323,003258: 25,2000 SETLOC P20S1
024324,003259: 25,2000 BANK
024325,003260: 25,3565 COUNT* $$/LPS20
024326,003261:
024327,003262: 25,3565 45345 LPS20.2 DLOAD DSU
024328,003263: 25,3566 01767 MLOSV # MAGNITUDE OF LOS
024329,003264: 25,3567 13600 FHNM # OVER 400NM
024330,003265: 25,3570 77644 BPL
024331,003266: 25,3571 53574 TOFAR
024332,003267: 25,3572 43535 SLOAD RVQ
024333,003268: 25,3573 06522 ZERO/SP
024334,003269: 25,3574 43535 TOFAR SLOAD RVQ
024335,003270: 25,3575 13577 ONE/SP
024336,003271: 25,3576 00001 ONE/SP DEC 1 B-14
024337,003272: # Page 567
024338,003273: 25,3577 26467 00000 FHNM 2DEC 740800 B-20 # 400 NAUTICAL MILES IN METERS B-20
024339,003274:
024340,003275: # Page 568
024341,003276: # PROGRAM NAME: LRS22.1 (DATA READ SUBROUTINE 1)
024342,003277: # MOD. NO.: 1 BY: P. VOLANTE SDC DATE: 11-15-66
024343,003278:
024344,003279: # FUNCTIONAL DESCRIPTION:
024345,003280: # 1) READS RENDEZVOUS RADAR RANGE AND RANGE-RATE, TRUNNION AND SHAFT ANGLES, THREE CDU VALUES AND TIME. CONVERTS THIS
024346,003281: # DATA AND LEAVES IT FOR THE MEASUREMENT INCORPORATION ROUTINE (LSR22.3). CHECKS FOR THE RR DATA GOOD DISCRETE, FOR
024347,003282: # RR REPOSITION AND RR CDU FAIL
024348,003283: # 2) COMPARES RADAR LOS WITH LOS COMPUTED FROM STATE VECTORS TO SEE IF THEY ARE WITHIN THREE DEGREES
024349,003284:
024350,003285: # CALLING SEQUENCE: BANKCALL FOR LRS22.1
024351,003286:
024352,003287: # SUBROUTINES CALLED:
024353,003288: # RRDOT LPS20.1
024354,003289: # RRRANGE BANKCALL
024355,003290: # RADSTALL CDULOGIC
024356,003291: # RRNB SMNB
024357,003292:
024358,003293: # NORMAL EXIT: RETURN TO CALLER+1 WITH MPAC SET TO +0
024359,003294:
024360,003295: # ERROR EXITS: RETURN TO CALLER+1 WITH ERROR CODE STORED IN MPAC AS FOLLOWS:
024361,003296: # 00001 -- ERROR EXIT 1 -- RR DATA NO GOOD (NO RR DATA GOOD DISCRETE OR RR CDU FAIL OR RR REPOSITION)
024362,003297: # 00002 -- ERROR EXIT 2 -- RR LOS NOT WITHIN THREE DEGREES OF LOS COMPUTED FROM STATE VECTORS
024363,003298:
024364,003299: # ALARMS: 521 -- COULD NOT READ RADAR DATA (RR DATA GOOD DISCRETE NOT PRESENT BEFORE AND AFTER READING THE RADAR)
024365,003300: # (THIS ALARM IS ISSUED BY RADARREAD SUBROUTINE WHICH IS ENTERED FROM A RADARUPT)
024366,003301:
024367,003302: # OUTPUT: RRLOSVEC -- THE RR LINE-OF-SIGHT VECTOR (USED BY LRS22.2) -- A HALF-UNIT VECTOR
024368,003303: # RM -- THE RR RANGE READING (TO THE CSM) DP, IN METERS SCALED BY B-29 (USED BY LRS22.2 AND LRS22.3)
024369,003304:
024370,003305: # ALL OF THE FOLLOWING OUTPUTS ARE USED BY LRS22.3:
024371,003306: # RDOTM -- THE RR RANGE-RATE READING, DP, IN METERS PER CENTISECOND, SCALED BY B-7
024372,003307: # RRTRUN -- THE RR TRUNNION ANGLE, DP, IN REVOLUTIONS, SCALED B0
024373,003308: # RRSHAFT -- RR SHAFT ANGLE, DP, IN REVOLUTIONS, SCALED B0
024374,003309: # AIG,AMG,AOG -- THE CDU ANGLES, THREE SP WORDS
024375,003310: # MKTIME -- THE TIME OF THE RR READING, DP, IN CENTISECONDS
024376,003311:
024377,003312: # ERASABLE INITIALIZATION REQUIRED:
024378,003313: # RNRAD, THE RADAR READ COUNTER FROM WHICH IS OBTAINED:
024379,003314: # Page 569
024380,003315: # 1) RR RANGE SCALED 9.38 FT. PER BIT ON THE LOW SCALE AND 75.04 FT. PER BIT ON THE HIGH SCALE
024381,003316: # 2) RR RANGE RATE, SCALED .6278 FT./SEC. PER BIT
024382,003317: # THE CDU ANGLES FROM CDUX, CDUY, CDUZ, AND TIME1 AND TIME2
024383,003318:
024384,003319: # DEBRIS: LRS22.1X, A, L, Q, PUSHLIST
024385,003320:
024386,003321: 32,2366 BANK 32
024387,003322: 32,2000 SETLOC LRS22
024388,003323: 32,2000 BANK
024389,003324: 32,2366 COUNT* $$/LRS22
024390,003325:
024391,003326: 32,2366 04645 LRS22.1 TC MAKECADR
024392,003327: 32,2367 55737 TS LRS22.1X
024393,003328: 32,2370 05516 TC DOWNFLAG
024394,003329: 32,2371 00120 ADRES RNGSCFLG
024395,003330: 32,2372 00004 INHINT
024396,003331: 32,2373 34751 CAF BIT3
024397,003332: 32,2374 00006 EXTEND # GET RR RANGE SCALE
024398,003333: 32,2375 02033 RAND CHAN33 # FROM CHANNEL 33 BIT 3
024399,003334: 32,2376 54001 TS L
024400,003335: 32,2377 44751 CS RRRSBIT
024401,003336: 32,2400 70110 MASK RADMODES
024402,003337: 32,2401 60001 AD L
024403,003338: 32,2402 54110 TS RADMODES
024404,003339: 32,2403 00003 RELINT
024405,003340: 32,2404 04616 READRDOT TC BANKCALL
024406,003341: 32,2405 53103 CADR RRRDOT # READ RANGE-RATE (ONE SAMPLE)
024407,003342: 32,2406 04616 TC BANKCALL
024408,003343: 32,2407 17714 CADR RADSTALL # WAIT FOR DATA READ COMPLETION
024409,003344: 32,2410 12542 TCF EREXIT1 # COULD NOT READ RADAR-ERROR EXIT 1
024410,003345:
024411,003346: 32,2411 00004 INHINT # NO INTERRUPTS WHILE READING TIME AND CDU
024412,003347: 32,2412 53106 DXCH TIMEHOLD # SET MARK TIME EQUAL TO THE MID-POINT
024413,003348: 32,2413 52162 DXCH MPAC +5 # TEMP BUFFER FOR DOWNLINK
024414,003349: 32,2414 53102 DXCH SAMPLSUM # SAVE RANGE-RATE READING
024415,003350: 32,2415 53747 DXCH RDOTMSAV
024416,003351: 32,2416 00006 EXTEND
024417,003352: 32,2417 30034 DCA CDUY # SAVE ICDU ANGLES
024418,003353: 32,2420 52160 DXCH MPAC +3 # TEMP BUFFER FOR DOWNLINK
024419,003354: 32,2421 30032 CA CDUX
024420,003355: 32,2422 54156 TS MPAC +2 # TEMP BUFFER FOR DOWNLINK
024421,003356: 32,2423 00006 EXTEND
024422,003357: 32,2424 30025 DCA TIME2 # SAVE TIME
024423,003358: 32,2425 52155 DXCH MPAC # SAVE TIME OF CDUY READINGS IN MPAC
024424,003359: 32,2426 00006 EXTEND
024425,003360: 32,2427 30036 DCA CDUT # SAVE TRUNNION AND SHAFT ANGLES FOR RRNB
024426,003361: 32,2430 53110 DXCH TANG
024427,003362: # Page 570
024428,003363: 32,2431 00003 RELINT
024429,003364: 32,2432 04616 TC BANKCALL
024430,003365: 32,2433 53105 CADR RRRANGE # READ RR RANGE (ONE SAMPLE)
024431,003366: 32,2434 04616 TC BANKCALL
024432,003367: 32,2435 17714 CADR RADSTALL # WAIT FOR READ COMPLETE
024433,003368: 32,2436 02536 TC CHEXERR # CHECK FOR ERRORS DURING READ
024434,003369: 32,2437 00004 INHINT # COPY CYCLE FOR MARK DATA ON DOWNLINK
024435,003370: 32,2440 53334 DXCH DNRRANGE # RANGE, RANGE RATE (RAW DATA)
024436,003371: 32,2441 53761 DXCH RANGRDOT
024437,003372: 32,2442 52162 DXCH MPAC +5
024438,003373: 32,2443 53755 DXCH MKTIME # MARK TIME
024439,003374: 32,2444 52160 DXCH MPAC +3
024440,003375: 32,2445 53460 DXCH AIG # CDUY, CDUZ
024441,003376: 32,2446 00006 EXTEND
024442,003377: 32,2447 31110 DCA TANG # PRESERVE TANG
024443,003378: 32,2450 53753 DXCH TANGNB # TRUNNION AND SHAFT ANGLES
024444,003379: 32,2451 30156 CA MPAC +2
024445,003380: 32,2452 55461 TS AOG # CDUX
024446,003381: 32,2453 06037 TC INTPRET
024447,003382: 32,2454 14025 STODL 20D # SAVE TIME OF CDU READINGS IN 20D
024448,003383: 32,2455 03747 RDOTMSAV # CONVERT RDOT UNITS AND SCALING
024449,003384: 32,2456 57261 SL DMPR # START WITH READING SCALED B-28, -.6278
024450,003385: 32,2457 20217 14D # FT./SECOND PER BIT
024451,003386: 32,2460 24002 RDOTCONV # END WITH METERS/CENTISECOND, B-7
024452,003387: 32,2461 03751 STORE RDOTM
024453,003388: 32,2462 47135 SLOAD RTB
024454,003389: 32,2463 01110 TANG # GET TRUNNION ANGLE
024455,003390: 32,2464 21576 CDULOGIC # CONVERT TO DP ONES COMP. IN REVOLUTIOINS
024456,003391: 32,2465 03734 STORE RRTRUN # AND SAVE FOR TMI ROUTINE (LSR22.3)
024457,003392: 32,2466 47135 SLOAD RTB
024458,003393: 32,2467 01111 TANG +1 # DITTO FOR SHAFT ANGLE
024459,003394: 32,2470 21576 CDULOGIC
024460,003395: 32,2471 17736 STODL RRSHAFT
024461,003396: 32,2472 01102 SAMPLSUM
024462,003397: 32,2473 66405 DMP SL2R # CONVERT UNITS AND SCALING DP RANGE
024463,003398: 32,2474 24004 RANGCONV # PER BIT, END WITH METERS, SCALED -29
024464,003399: 32,2475 37757 STCALL RM
024465,003400: 32,2476 46041 RRNB # COMPUTE RADAR LOS USING RRNB
024466,003401: 32,2477 17741 STODL RRBORSIT # AND SAVE
024467,003402: 32,2500 00025 20D
024468,003403: 32,2501 34041 STCALL TDEC1 # GET STATE VECTOR LOS AT TIME OF CDU READ
024469,003404: 32,2502 51255 LPS20.1
024470,003405: 32,2503 77776 EXIT
024471,003406: 32,2504 31457 CA AIG # STORE IMU CDU ANGLES AT MARKTIME
024472,003407: 32,2505 54766 TS CDUSPOT # IN CDUSPOT FOR TRG*SMNB
024473,003408: 32,2506 31460 CA AMG
024474,003409: 32,2507 54770 TS CDUSPOT +2
024475,003410: 32,2510 31461 CA AOG
024476,003411: 32,2511 54772 TS CDUSPOT +4
024477,003412: 32,2512 06037 TC INTPRET
024478,003413: # Page 571
024479,003414: 32,2513 45175 VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
024480,003415: 32,2514 01102 RRTARGET
024481,003416: 32,2515 47651 TRG*SMNB # ROTATE LOS AT MARKTIME FROM SM TO NB.
024482,003417: 32,2516 77641 DOT # DOT WITH RADAR LOS TO GET ANGLE
024483,003418: 32,2517 03741 RRBORSIT
024484,003419: 32,2520 65552 SL1 ACOS # BETWEEN THEM
024485,003420: 32,2521 01046 STORE DSPTEM1 # STORE FOR POSSIBLE DISPLAY
024486,003421: 32,2522 50025 DSU BMN # IS IT LESS THAN 3 DEGREES
024487,003422: 32,2523 24546 THREEDEG
024488,003423: 32,2524 64531 NORMEXIT # YES -- NORMAL EXIT
024489,003424:
024490,003425: 32,2525 77776 EXIT # ERROR EXIT 2
024491,003426: 32,2526 34752 CAF BIT2 # SET ERROR CODE
024492,003427: 32,2527 54154 TS MPAC
024493,003428: 32,2530 12534 TCF OUT22.1
024494,003429:
024495,003430: 32,2531 77776 NORMEXIT EXIT # NORMAL EXIT -- SET MPAC EQUAL ZERO
024496,003431: 32,2532 34755 CAF ZERO
024497,003432: 32,2533 54154 TS MPAC
024498,003433: 32,2534 31737 OUT22.1 CAE LRS22.1X # EXIT FROM LRS22.1
024499,003434: 32,2535 04640 TC BANKJUMP
024500,003435: 32,2536 30101 CHEXERR CAE FLAGWRD5
024501,003436: 32,2537 74742 MASK RNGSCBIT
024502,003437: 32,2540 10000 CCS A # CHECK IF RANGE SCALE CHANGED
024503,003438: 32,2541 12404 TCF READRDOT # YES -- TAKE ANOTHER READING
024504,003439:
024505,003440: 32,2542 34753 EREXIT1 CA BIT1 # SET ERROR CODE
024506,003441: 32,2543 54154 TS MPAC
024507,003442: 32,2544 02534 TC OUT22.1
024508,003443: 32,2545 00210 21042 THREEDEG 2DEC .008333333 # THREE DEGREES, SCALED REVS, B0
024509,003444:
024510,003445: 32,2547 1101 RRLOSVEC EQUALS RRTARGET
024511,003446:
024512,003447: # Page 572
024513,003448: # PROGRAM NAME -- LRS22.2 (DATA READ SUBROUTINE 2)
024514,003449: # MOD. NO.: 1 BY: P. VOLANTE SDC DATE: 4-11-67
024515,003450:
024516,003451: # FUNCTIONAL DESCRIPTION:
024517,003452: # (Yes, I know point #1 is missing. It is missing from the program listing -- RSB 2003)
024518,003453: # 2) CHECKS IF THE RR LOS (I.E., THE RADAR BORESIGHT VECTOR) IS WITHIN 30 DEGREES OF THE LM +Z AXIS
024519,003454:
024520,003455: # CALLING SEQUENCE: BANKCALL FOR LRS22.2
024521,003456:
024522,003457: # SUBROUTINES CALLED: G+N, AUTO, SETMAXDB
024523,003458:
024524,003459: # NORMAL EXIT: RETURN TO CALLER WITH MPAC SET TO +0 (VIA SWRETURN)
024525,003460:
024526,003461: # ERROR EXIT: RETURN TO CALLER WITH MPAC SET TO 00001 -- RADAR LOS NOT WITHIN 30 DEGREES OF LM +Z AXIS.
024527,003462:
024528,003463: # ALARMS: NONE
024529,003464:
024530,003465: # ERASABLE INITIALIZATION REQUIRED:
024531,003466: # RRLOSVEC -- THE RR LINE-OF-SIGHT VECTOR -- A HALF UNIT VECTOR COMPUTED BY LRS22.1
024532,003467: # RM -- RR RANGE, METERS B-29, FROM LRS22.1
024533,003468: # BIT 14 CHANNEL 31 -- INDICATES AUTOPILOT IS IN AUTO MODE
024534,003469:
024535,003470: # DEBRIS -- A,L,Q,MPAC -- PUSHLIST AND PUSHLOC ARE NOT CHANGED BY THIS ROUTINE
024536,003471:
024537,003472: 24,2000 SETLOC P20S
024538,003473: 24,2000 BANK
024539,003474: 24,3333 04645 LRS22.2 TC MAKECADR
024540,003475: 24,3334 55737 TS LRS22.1X
024541,003476: 24,3335 06037 TC INTPRET
024542,003477: # CHECK IF RR LOS IS WITHIN 30 DEG OF
024543,003478: 24,3336 65545 30DEGCHK DLOAD ACOS # THE SPACECRAFT +Z AXIT
024544,003479: 24,3337 03745 RRBORSIT +4 # BY TAKING ARCCOS OF Z-COMP. OF THE RR
024545,003480: # LOS VECTOR, A HALF UNIT VECTOR
024546,003481: # IN NAV BASE AXES)
024547,003482: 24,3340 50025 DSU BMN
024548,003483: 24,3341 11355 30DEG
024549,003484: 24,3342 51347 OKEXIT # NORMAL EXIT -- WITHIN 30 DEG.
024550,003485: 24,3343 77776 EXIT # ERROR EXIT -- NOT WITHIN 30 DEG.
024551,003486: 24,3344 34753 CAF BIT1 # SETS ERROR CODE IN MPAC
024552,003487: 24,3345 54154 TS MPAC
024553,003488: 24,3346 13352 TCF OUT22.2
024554,003489: 24,3347 77776 OKEXIT EXIT # NORMAL EXIT -- SET MPAC = ZERO
024555,003490:
024556,003491: # Page 573
024557,003492: 24,3350 34755 CAF ZERO
024558,003493: 24,3351 54154 TS MPAC
024559,003494: 24,3352 31737 OUT22.2 CAE LRS22.1X
024560,003495: 24,3353 04640 TC BANKJUMP
024561,003496:
024562,003497: 24,3354 02525 12525 30DEG 2DEC .083333333 # THIRTY DEGREES, SCALED REVS, B0
024563,003498:
024564,003499: # Page 574
024565,003500: # PROGRAM NAME -- LSR22.3 DATE -- 29 MAY 1967
024566,003501: # MOD. NO 3 LOG SECTION -- P20-P25
024567,003502: # MOD. BY -- DANFORTH ASSEMBLY LEMP20S REV 10
024568,003503:
024569,003504: # FUNCTIONAL DESCRIPTION:
024570,003505: # THIS ROUTINE COMPUTES THE B-VECTORS ADN DELTA Q FOR EACH OF THE QUANTITIES MEASURED BY THE RENDEZVOUS
024571,003506: # RADAR. (RANGE, RANGE RATE, SHAFT AND TRUNNION ANGLES). THE ROUTINE CALLS THE INCORP1 AND INCORP2 ROUTINES
024572,003507: # WHICH COMPUTE THE DEVIATIONS AND CORRECT THE STATE VECTOR.
024573,003508:
024574,003509: # CALLING SEQUENCE:
024575,003510: # THIS ROUTINE IS PART OF P20 RENDEZVOUS NAVIGATION FOR THE LM COMPUTER ONLY. THE ROUTINE IS ENTERED FROM
024576,003511: # R22 LEM ONLY AND RETURNS DIRECTLY TO R22LEM FOLLOWING SUCCESSFUL INCORPORATION OF MEASURED DATA. IF THE
024577,003512: # COMPUTED STATE VECTOR DEVATIONS EXCEED THE MAXIMUM PERMITTED. THE ROUTINE RETURNS TO R22LEM TO DISPLAY
024578,003513: # THE DEVIATIONS. IF THE ASTRONAUT ACCEPTS THE DATA R22LEM RETURNS TO LSR22.3 TO INCORPORATE THE
024579,003514: # DEVIATIONS INTO THE STATE VECTOR. IF THE ASTRONAUT REJECTS THE DEVIATIONS, NO MORE MEASUREMENTS ARE
024580,003515: # PROCESSED FOR THIS MARK, I.E., R22LEM GETS THE NEXT MARK.
024581,003516:
024582,003517: # SUBROUTINES CALLED:
024583,003518: # WLINIT LGCUPDTE INTEGRV INCORP1 ARCTAN
024584,003519: # GETULC RADARANG INCORP2 NBSM INTSTALL
024585,003520:
024586,003521: # OUTPUT:
024587,003522: # CORRECTED LM OR CSM STATE VECTOR (PERMANENT)
024588,003523: # NUMBER OF MARKS INCORPORATED IN MARKCTR
024589,003524: # MAGNITUDE OF POSITION DEVIATION (FOR DISPLAY) IN R22DISP METERS B-29
024590,003525: # MAGNITUDE OF VELOCITY DEVIATION (FOR DISPLAY) IN R22DISP +2 M/CSEC B-7
024591,003526: # UPDATED W-MATRIX
024592,003527:
024593,003528: # ERASABLE INITIALIZATION REQUIRED:
024594,003529: # LM AND CSM STATE VECTORS
024595,003530: # W-MATRIX
024596,003531: # MARK TIME IN MKTIME
024597,003532: # RADAR RANGE IN RM METERS B-29
024598,003533: # RANGE RATE IN RDOTM METERS/CSES B-7
024599,003534: # SHAFT ANGLE IN RRSHAFT REVS. B0
024600,003535: # TRUNNION ANGLE IN RRTRUN REVS. B0
024601,003536: # GIMBAL ANGLES INNER IN AIG
024602,003537: # MIDDLE IN AMG
024603,003538: # OUTER IN ACG
024604,003539: # REFSMMAT
024605,003540: # RENDWFLG
024606,003541: # NOANGFLG
024607,003542: # VEHUPFLG
024608,003543:
024609,003544: # DEBRIS:
024610,003545: # PUSHLIST -- ALL
024611,003546: # MX, MY, MZ (VECTORS)
024612,003547: # Page 575
024613,003548: # ULC, RXZ, SINTHETA, LGRET, RDRET, BVECTOR, W.IND, X78T
024614,003549:
024615,003550: 13,2207 BANK 13
024616,003551: 26,2000 SETLOC P20S3
024617,003552: 26,2000 BANK
024618,003553:
024619,003554: 26,2412 E7,1456 EBANK= LOSCOUNT
024620,003555: 26,2412 COUNT* $$/LSR22
024621,003556: 26,2412 77624 LSR22.3 CALL
024622,003557: 26,2413 11244 GRP2PC
024623,003558: 26,2414 43014 BON SET
024624,003559: 26,2415 04307 SURFFLAG # ARE WE ON LUNAR SURFACE
024625,003560: 26,2416 55200 LSR22.4 # YES
024626,003561: 26,2417 02466 DMENFLG
024627,003562: 26,2420 45014 BOFF CALL
024628,003563: 26,2421 00747 VEHUPFLG
024629,003564: 26,2422 54454 DOLEM
024630,003565: 26,2423 27414 INTSTALL
024631,003566: 26,2424 45014 CLEAR CALL # LM PRECISION INTEGRATION
024632,003567: 26,2425 01674 VINTFLAG
024633,003568: 26,2426 26644 SETIFLGS
024634,003569: 26,2427 77624 CALL
024635,003570: 26,2430 55242 INTGRCAL
024636,003571: 26,2431 77624 CALL
024637,003572: 26,2432 11244 GRP2PC
024638,003573: 26,2433 77624 CALL
024639,003574: 26,2434 27414 INTSTALL
024640,003575: 26,2435 43014 CLEAR BOFF
024641,003576: 26,2436 01676 DIM0FLAG
024642,003577: 26,2437 02756 RENDWFLG
024643,003578: 26,2440 54444 NOTWCSM
024644,003579: 26,2441 43014 SET SET # CSM WITH W-MATRIX INTEGRATION
024645,003580: 26,2442 01476 DIM0FLAG
024646,003581: 26,2443 01475 D6OR9FLG
024647,003582: 26,2444 43014 NOTWCSM SET CLEAR
024648,003583: 26,2445 01474 VINTFLAG
024649,003584: 26,2446 01673 INTYPFLG
024650,003585: 26,2447 45014 SET CALL
024651,003586: 26,2450 01472 STATEFLG
024652,003587: 26,2451 55242 INTGRCAL
024653,003588: 26,2452 77650 GOTO
024654,003589: 26,2453 54504 MARKTEST
024655,003590: 26,2454 77624 DOLEM CALL
024656,003591: 26,2455 27414 INTSTALL
024657,003592: 26,2456 45014 SET CALL
024658,003593: 26,2457 01474 VINTFLAG
024659,003594: 26,2460 26644 SETIFLGS
024660,003595: 26,2461 77624 CALL
024661,003596: 26,2462 55242 INTGRCAL
024662,003597: # Page 576
024663,003598: 26,2463 77624 CALL
024664,003599: 26,2464 11244 GRP2PC
024665,003600: 26,2465 77624 CALL
024666,003601: 26,2466 27414 INTSTALL
024667,003602: 26,2467 43014 CLEAR BOFF
024668,003603: 26,2470 01676 DIM0FLAG
024669,003604: 26,2471 02756 RENDWFLG
024670,003605: 26,2472 54476 NOTWLEM
024671,003606: 26,2473 43014 SET SET # LM WITH W-MATRIX INTEGRATION
024672,003607: 26,2474 01476 DIM0FLAG
024673,003608: 26,2475 01475 D6OR9FLG
024674,003609: 26,2476 43014 NOTWLEM CLEAR CLEAR
024675,003610: 26,2477 01673 INTYPFLG
024676,003611: 26,2500 01674 VINTFLAG
024677,003612: 26,2501 45014 SET CALL
024678,003613: 26,2502 01472 STATEFLG
024679,003614: 26,2503 55242 INTGRCAL
024680,003615: 26,2504 45014 MARKTEST BON CALL # HAS W-MATRIX BEEN INVALIDATED
024681,003616: 26,2505 02716 RENDWFLG # HAS W-MATRIX BEEN INVALIDATED
024682,003617: 26,2506 54510 RANGEBQ
024683,003618: 26,2507 55251 WLINIT # YES -- REINITIALIZE
024684,003619: 26,2510 77414 RANGEBQ BON EXIT # DON'T CALL R65 IF ON SURFACE
024685,003620: 26,2511 04307 SURFFLAG
024686,003621: 26,2512 54520 RANGEBQ1
024687,003622: 26,2513 34755 CA ZERO
024688,003623: 26,2514 55745 TS R65CNTR
024689,003624: 26,2515 04616 TC BANKCALL
024690,003625: 26,2516 46123 CADR R65LEM
024691,003626: 26,2517 06037 TC INTPRET
024692,003627: 26,2520 43174 RANGEBQ1 AXT,2 BON # CLEAR X2
024693,003628: 26,2521 00000 0
024694,003629: 26,2522 04304 LMOONFLG # IS MOON SPHERE OF INFLUENCE
024695,003630: 26,2523 54526 SETX2 # YES. STORE ZERO IN SCALSHFT REGISTER
024696,003631: 26,2524 77714 INCR,2
024697,003632: 26,2525 00002 2
024698,003633: 26,2526 45134 SETX2 SXA,2 CALL
024699,003634: 26,2527 03720 SCALSHFT # 0 -- MOON. 2 -- EARTH.
024700,003635: 26,2530 11244 GRP2PC
024701,003636: 26,2531 66170 AXT,1 SXA,1 # STORE RANGE CODE (1) FOR R3 IN NOUN 49
024702,003637: 26,2532 00001 1
024703,003638: 26,2533 03745 WHCHREAD
024704,003639: 26,2534 54335 SLOAD SR # GET SINGLE PRECISION RVARMIN (B-12)
024705,003640: 26,2535 01775 RVARMIN # SHIFT TO TRIPLE PRECISION (B-40)
024706,003641: 26,2536 20635 28D
024707,003642: 26,2537 77634 RTB
024708,003643: 26,2540 21633 TPMODE # AND SAVE IN 20D
024709,003644: 26,2541 00025 STORE 20D
024710,003645: 26,2542 77624 CALL # BEGIN COMPUTING THE B-VECTORS, DELTAQ
024711,003646: 26,2543 55333 GETULC # B-VECTORS FOR RANGE
024712,003647: 26,2544 57414 BON VCOMP # B0, COMP. IF LM BEING CORRECTED
024713,003648: # Page 577
024714,003649: 26,2545 00707 VEHUPFLG
024715,003650: 26,2546 54547 +1
024716,003651: 26,2547 27525 STOVL BVECTOR
024717,003652: 26,2550 06522 ZEROVECS
024718,003653: 26,2551 03533 STORE BVECTOR +6 # B1
024719,003654: 26,2552 17541 STODL BVECTOR +12D # B2
024720,003655: 26,2553 00045 36D
024721,003656: 26,2554 44257 SRR* BDSU
024722,003657: 26,2555 56174 2,2 # SHIFT FROM EARTH/MOON SPHERE TO B-29
024723,003658: 26,2556 03757 RM # RM - (MAGNITUDE RCSM-RLM)
024724,003659: 26,2557 77657 SLR*
024725,003660: 26,2560 56574 2,2 # SHIFT TO EARTH/MOON SPHERE
024726,003661: 26,2561 17547 STODL DELTAQ # EARTH B-29. MOON B-27
024727,003662: 26,2562 00045 36D # RLC B-29/B-27
024728,003663: 26,2563 63501 NORM DSQ # NORMALIZE AND SQUARE
024729,003664: 26,2564 00047 X1
024730,003665: 26,2565 53605 DMP SR*
024731,003666: 26,2566 01771 RANGEVAR # MULTIPLY BY RANGEVAR (B12) THEN
024732,003667: 26,2567 20577 0 -2,1 # UNNORMALIZE
024733,003668: 26,2570 53657 SR* SR*
024734,003669: 26,2571 20601 0,1
024735,003670: 26,2572 57176 0,2
024736,003671: 26,2573 47057 SR* RTB
024737,003672: 26,2574 57176 0,2
024738,003673: 26,2575 21633 TPMODE
024739,003674: 26,2576 02707 STORE VARIANCE # B-40
024740,003675: 26,2577 76276 DCOMP TAD
024741,003676: 26,2600 00025 20D # B-40
024742,003677: 26,2601 72240 BMN TLOAD
024743,003678: 26,2602 54605 QOK
024744,003679: 26,2603 00025 20D # B-40
024745,003680: 26,2604 02707 STORE VARIANCE
024746,003681: 26,2605 77624 QOK CALL
024747,003682: 26,2606 55401 LGCUPDTE
024748,003683:
024749,003684: 26,2607 45131 SSP CALL
024750,003685: 26,2610 03746 WHCHREAD
024751,003686: 26,2611 00002 DEC 2 B-14 # STORE R-RATE CODE (2) FOR R3 IN NOUN 49
024752,003687: 26,2612 11244 GRP2PC
024753,003688: 26,2613 77624 CALL # B-VECTOR, DELTAQ FOR RANGE RATE
024754,003689: 26,2614 55333 GETULC
024755,003690: 26,2615 53725 PDDL SR* # GET RLC SCALED B-29/B-27
024756,003691: 26,2616 00045 36D # AND SHIFT TO B-23
024757,003692: 26,2617 57202 0 -4,2
024758,003693: 26,2620 24045 STOVL 36D # THEN STORE BACK IN 36D
024759,003694: 26,2621 57414 BON VCOMP # B1, COMP. IF LM BEING CORRECTED
024760,003695: 26,2622 00707 VEHUPFLG
024761,003696: 26,2623 54624 +1
024762,003697: 26,2624 77761 VXSC
024763,003698: 26,2625 00045 36D # B1 = RLC (B-24/B-22)
024764,003699: # Page 578
024765,003700: 26,2626 27533 STOVL BVECTOR +6
024766,003701: 26,2627 01653 NUVLEM
024767,003702: 26,2630 53257 VSR* VAD
024768,003703: 26,2631 57170 6,2 # SHIFT FOR EARTH/MOON SPHERE
024769,003704: 26,2632 01667 VCVLEM # EARTH B-7. MOON B-5
024770,003705: 26,2633 53715 PDVL VSR* # VL TO PD6
024771,003706: 26,2634 01601 NUVCSM
024772,003707: 26,2635 57170 6,2 # SHIFT FOR EARTH/MOON SPHERE
024773,003708: 26,2636 52255 VAD VSU
024774,003709: 26,2637 01615 VCVCSM
024775,003710: 26,2640 50315 PDVL DOT # VC - VL = VLC TO PD6
024776,003711: 26,2641 00001 0
024777,003712: 26,2642 00007 6
024778,003713: 26,2643 53606 PUSH SRR* # RDOT B-8/B-6 TO PD12
024779,003714: 26,2644 56174 2,2 # SHIFT FROM EARTH/MOON SPHERE TO B-8
024780,003715: 26,2645 57316 DSQ DMPR # RDOT**2 B-16 X RATEVAR B12
024781,003716: 26,2646 01773 RATEVAR
024782,003717: 26,2647 02707 STORE VARIANCE
024783,003718: 26,2650 54335 SLOAD SR
024784,003719: 26,2651 01776 VVARMIN # GET SINGLE PRECISION VVARMIN (B+12)
024785,003720: 26,2652 20621 16D # SHIFT TO DP (B-4)
024786,003721: 26,2653 00031 STORE 24D # AND SAVE IN 24D
024787,003722: 26,2654 50025 DSU BMN # IS MIN. VARIANCE > COMPUTED VARIANCE
024788,003723: 26,2655 02707 VARIANCE
024789,003724: 26,2656 54662 VOK # BRANCH -- NO
024790,003725: 26,2657 77745 DLOAD # YES -- USE MINIMUM VARIANCE
024791,003726: 26,2660 00031 24D
024792,003727: 26,2661 02707 STORE VARIANCE
024793,003728: 26,2662 60545 VOK DLOAD SR2 # RDOT (PD12) FROM B-8/B-6
024794,003729: 26,2663 53725 PDDL SLR* # TO B-10/B-8
024795,003730: 26,2664 03751 RDOTM # SHIFT TO EARTH/MOON SPHERE
024796,003731: 26,2665 56577 0 -1,2 # B-7 TO B-10/B-8
024797,003732: 26,2666 77625 DSU
024798,003733: 26,2667 77675 DMPR
024799,003734: 26,2670 00045 36D
024800,003735: 26,2671 27547 STOVL DELTAQ # B-33
024801,003736: 26,2672 00001 0 # NOW GET B0
024802,003737: 26,2673 47235 VXV VXV # (ULC X VLC) X ULC
024803,003738: 26,2674 57414 BON VCOMP # B0, COMP. IF LM BEING CORRECTED
024804,003739: 26,2675 00707 VEHUPFLG
024805,003740: 26,2676 54677 +1
024806,003741: 26,2677 77657 VSR*
024807,003742: 26,2700 57200 0 -2,2 # SCALED B-5
024808,003743: 26,2701 27525 STOVL BVECTOR
024809,003744: 26,2702 06522 ZEROVECS
024810,003745: 26,2703 00025 STORE 20D # ZERO OUT 20 TO 25 IN PUSHLIST
024811,003746: 26,2704 27541 STOVL BVECTOR +12D
024812,003747: 26,2705 03525 BVECTOR
024813,003748: 26,2706 60246 ABVAL NORM # LOAD B0, GET MAGNITUDE AND NORMALIZE
024814,003749: 26,2707 00025 20D # SHIFT COUNT IN 20D
024815,003750: # Page 579
024816,003751: 26,2710 51575 VLOAD ABVAL
024817,003752: 26,2711 03533 BVECTOR +6D # LOAD B1, GET MAGNITUDE AND NORMALIZE
024818,003753: 26,2712 71301 NORM DLOAD
024819,003754: 26,2713 00027 22D # SHIFT COUNT IN 22D
024820,003755: 26,2714 00027 22D # FIND WHICH SHIFT IS SMALLER
024821,003756: 26,2715 50025 DSU BMN # BRANCH -- B0 HAS A SMALLER SHIFT COUNT
024822,003757: 26,2716 00025 20D
024823,003758: 26,2717 54723 VOK1
024824,003759: 26,2720 52150 LXA,1 GOTO
024825,003760: 26,2721 00026 22D # LOAD X2 WITH THE SMALLER SHIFT COUNT
024826,003761: 26,2722 54725 VOK2
024827,003762: 26,2723 77750 VOK1 LXA,1
024828,003763: 26,2724 00024 20D
024829,003764: 26,2725 53775 VOK2 VLOAD VSL* # THEN ADJUST B0, B1, DELTAQ AND VARIANCE
024830,003765: 26,2726 03525 BVECTOR # WITH THI SSHIFT COUNT
024831,003766: 26,2727 20201 0,1
024832,003767: 26,2730 27525 STOVL BVECTOR
024833,003768: 26,2731 03533 BVECTOR +6
024834,003769: 26,2732 77657 VSL*
024835,003770: 26,2733 20201 0,1
024836,003771: 26,2734 17533 STODL BVECTOR +6
024837,003772: 26,2735 03547 DELTAQ
024838,003773: 26,2736 77657 SL*
024839,003774: 26,2737 20201 0,1
024840,003775: 26,2740 03547 STORE DELTAQ
024841,003776: 26,2741 53745 DLOAD SL* # GET RLC AND ADJUST FOR SCALE SHIFT
024842,003777: 26,2742 00045 36D
024843,003778: 26,2743 20200 0 -1,1
024844,003779: 26,2744 41316 DSQ DMP # MULTIPLY RLC**2 BY VARIANCE
024845,003780: 26,2745 02707 VARIANCE
024846,003781: 26,2746 47012 SL4 RTB # SHIFT TO CONFORM TO BVECTORS AND DELTAQ
024847,003782: 26,2747 21633 TPMODE
024848,003783: 26,2750 36707 STCALL VARIANCE # AND STORE TP VARIANCE
024849,003784: 26,2751 55401 LGCUPDTE
024850,003785:
024851,003786: 26,2752 77624 CALL
024852,003787: 26,2753 11244 GRP2PC
024853,003788: 26,2754 77414 BON EXIT # ARE ANGLES TO BE DONE
024854,003789: 26,2755 04307 SURFFLAG
024855,003790: 26,2756 55176 RENDEND # NO
024856,003791: 26,2757 E7,1457 EBANK= AIG
024857,003792: 26,2757 33332 MXMYMZ CAF AIGBANK
024858,003793: 26,2760 54006 TS BBANK
024859,003794: 26,2761 31457 CA AIG # YES, COMPUTE MX, MY, MZ
024860,003795: 26,2762 54766 TS CDUSPOT
024861,003796: 26,2763 31460 CA AMG
024862,003797: 26,2764 54770 TS CDUSPOT +2
024863,003798: 26,2765 31461 CA AOG
024864,003799: 26,2766 54772 TS CDUSPOT +4 # GIMBAL ANGLES NOW IN CDUSPOT FOR TRG*NBSM
024865,003800: 26,2767 06037 TC INTPRET
024866,003801: # Page 580
024867,003802: 26,2770 45175 VLOAD CALL
024868,003803: 26,2771 06520 UNITX
024869,003804: 26,2772 47664 TRG*NBSM
024870,003805: 26,2773 76505 VXM VSL1
024871,003806: 26,2774 01734 REFSMMAT
024872,003807: 26,2775 27677 STOVL MX
024873,003808: 26,2776 06516 UNITY
024874,003809: 26,2777 77624 CALL
024875,003810: 26,3000 47673 *NBSM*
024876,003811: 26,3001 76505 VXM VSL1
024877,003812: 26,3002 01734 REFSMMAT
024878,003813: 26,3003 27705 STOVL MY
024879,003814: 26,3004 06514 UNITZ
024880,003815: 26,3005 77624 CALL
024881,003816: 26,3006 47673 *NBSM*
024882,003817: 26,3007 76505 VXM VSL1
024883,003818: 26,3010 01734 REFSMMAT
024884,003819: 26,3011 37713 SHAFTBQ STCALL MZ
024885,003820: 26,3012 55361 RADARANG
024886,003821: 26,3013 45131 SSP CALL # STORE SHAFT CODE (3) FOR R3 IN NOUN 49
024887,003822: 26,3014 03746 WHCHREAD
024888,003823: 26,3015 00003 DEC 3 B-14
024889,003824: 26,3016 11244 GRP2PC
024890,003825: 26,3017 50375 VLOAD DOT # COMPUTE DELTAQ,B VECTORS FOR SHAFT ANG.
024891,003826: 26,3020 03724 ULC
024892,003827: 26,3021 03677 MX
024893,003828: 26,3022 77752 SL1
024894,003829: 26,3023 24023 STOVL SINTH # 18D
024895,003830: 26,3024 03724 ULC
024896,003831: 26,3025 72441 DOT SL1
024897,003832: 26,3026 03713 MZ
024898,003833: 26,3027 34021 STCALL COSTH # 16D
024899,003834: 26,3030 26510 ARCTAN
024900,003835: 26,3031 41221 BDSU DMP
024901,003836: 26,3032 03736 RRSHAFT
024902,003837: 26,3033 15441 2PI/8
024903,003838: 26,3034 41472 SL3R PUSH
024904,003839: 26,3035 52545 DLOAD SL3
024905,003840: 26,3036 01701 X789
024906,003841: 26,3037 44257 SRR* BDSU # SHIFT FROM -5/-3 TO B0
024907,003842: 26,3040 56176 0,2
024908,003843: 26,3041 53605 DMP SRR*
024909,003844: 26,3042 03722 RXZ
024910,003845: 26,3043 21601 0,1 # SHIFT TO EARTH/MOON SPHERE
024911,003846: 26,3044 27547 STOVL DELTAQ # EARTH B-29. MOON B-27
024912,003847: 26,3045 03724 ULC
024913,003848: 26,3046 76435 VXV VSL1
024914,003849: 26,3047 03705 MY
024915,003850: 26,3050 77656 UNIT
024916,003851: 26,3051 57414 BOFF VCOMP # B0, COMP. IF CSM BEING CORRECTED
024917,003852: # Page 581
024918,003853: 26,3052 00747 VEHUPFLG
024919,003854: 26,3053 55054 +1
024920,003855: 26,3054 27525 STOVL BVECTOR
024921,003856: 26,3055 06522 ZEROVECS
024922,003857: 26,3056 03533 STORE BVECTOR +6
024923,003858: 26,3057 17541 STODL BVECTOR +12D
024924,003859: 26,3060 03722 RXZ
024925,003860: 26,3061 53657 SR* SRR* # SHIFT FROM EARTH/MOON SPHERE TO B-25
024926,003861: 26,3062 20577 0 -2,1
024927,003862: 26,3063 56176 0,2
024928,003863: 26,3064 03541 STORE BVECTOR +12D
024929,003864: 26,3065 77735 SLOAD
024930,003865: 26,3066 02011 SHAFTVAR
024931,003866: 26,3067 41215 DAD DMP
024932,003867: 26,3070 15436 IMUVAR # RAD**2 B12
024933,003868: 26,3071 03722 RXZ
024934,003869: 26,3072 41257 SRR* DMP
024935,003870: 26,3073 21601 0,1 # SHIFT TO EARTH/MOON SPHERE
024936,003871: 26,3074 03722 RXZ
024937,003872: 26,3075 53657 SR* SR*
024938,003873: 26,3076 20577 0 -2,1
024939,003874: 26,3077 57176 0,2
024940,003875: 26,3100 47057 SR* RTB
024941,003876: 26,3101 57176 0,2
024942,003877: 26,3102 21633 TPMODE # STORE VARIANCE TRIPLE PRECISION
024943,003878: 26,3103 36707 STCALL VARIANCE # B-40
024944,003879: 26,3104 55401 LGCUPDTE
024945,003880:
024946,003881: 26,3105 77624 CALL
024947,003882: 26,3106 11244 GRP2PC
024948,003883: 26,3107 77624 TRUNBQ CALL
024949,003884: 26,3110 55361 RADARANG
024950,003885: 26,3111 45131 SSP CALL # STORE TRUNNION CODE (4) FOR R3 IN N49
024951,003886: 26,3112 03746 WHCHREAD
024952,003887: 26,3113 00004 DEC 4 B-14
024953,003888: 26,3114 11244 GRP2PC
024954,003889: 26,3115 47375 VLOAD VXV
024955,003890: 26,3116 03724 ULC
024956,003891: 26,3117 03705 MY
024957,003892: 26,3120 47372 VSL1 VXV
024958,003893: 26,3121 03724 ULC
024959,003894: 26,3122 77772 VSL1 # (ULC X MY) X ULC
024960,003895: 26,3123 57414 BOFF VCOMP # B0, COMP. IF CSM BEING CORRECTED
024961,003896: 26,3124 00747 VEHUPFLG
024962,003897: 26,3125 55126 +1
024963,003898: 26,3126 27525 STOVL BVECTOR
024964,003899: 26,3127 06522 ZEROVECS
024965,003900: 26,3130 03533 STORE BVECTOR +6
024966,003901: 26,3131 17541 STODL BVECTOR +12D
024967,003902: 26,3132 03722 RXZ
024968,003903: # Page 582
024969,003904: 26,3133 53657 SR* SRR* # SHIFT FROM EARTH/MOON SPHERE TO B-25
024970,003905: 26,3134 20577 0 -2,1
024971,003906: 26,3135 56176 0,2
024972,003907: 26,3136 03543 STORE BVECTOR +14D
024973,003908: 26,3137 77735 SLOAD
024974,003909: 26,3140 02012 TRUNVAR
024975,003910: 26,3141 41215 DAD DMP
024976,003911: 26,3142 15436 IMUVAR
024977,003912: 26,3143 03722 RXZ
024978,003913: 26,3144 41257 SRR* DMP
024979,003914: 26,3145 21601 0,1 # SHIFT TO EARTH/MOON SPHERE
024980,003915: 26,3146 03722 RXZ
024981,003916: 26,3147 53657 SR* SR*
024982,003917: 26,3150 20577 0 -2,1
024983,003918: 26,3151 57176 0,2
024984,003919: 26,3152 47057 SR* RTB
024985,003920: 26,3153 57176 0,2
024986,003921: 26,3154 21633 TPMODE # STORE VARIANCE TRIPLE PRECISION
024987,003922: 26,3155 16707 STODL VARIANCE
024988,003923: 26,3156 03732 SINTHETA
024989,003924: 26,3157 44336 ASIN BDSU # SIN THETA IN PD6
024990,003925: 26,3160 03734 RRTRUN
024991,003926: 26,3161 56405 DMP SL3R
024992,003927: 26,3162 15441 2PI/8
024993,003928: 26,3163 52525 PDDL SL3
024994,003929: 26,3164 01703 X789 +2
024995,003930: 26,3165 44257 SRR* BDSU # SHIFT FROM -5/-3 TO B0
024996,003931: 26,3166 56176 0,2
024997,003932: 26,3167 53605 DMP SRR*
024998,003933: 26,3170 03722 RXZ
024999,003934: 26,3171 21601 0,1
025000,003935: 26,3172 37547 STCALL DELTAQ # EARTH B-29. MOON B-27
025001,003936: 26,3173 55401 LGCUPDTE
025002,003937: 26,3174 77624 CALL
025003,003938: 26,3175 11244 GRP2PC
025004,003939: 26,3176 77650 RENDEND GOTO
025005,003940: 26,3177 50566 R22LEM93
025006,003941:
025007,003942: # FUNCTIONAL DESCRIPTION:
025008,003943: # LSR22.4 IS THE ENTRY TO PERFORM LUNAR SURFACE NAVIGATION FOR THE LM
025009,003944: # COMPUTER ONLY. THIS ROUTINE COMPUTES THE BE-VECTORS AND DELTA Q FOR RANGE
025010,003945: # AND RANGE RATE MEASURED BY THE RENDEZVOUS RADAR
025011,003946:
025012,003947: # SUBROUTINES CALLED:
025013,003948: # INTSTALL LGCUPDTE INCORP1 RP-TO-R
025014,003949: # INTEGRV GETULC INCORP2
025015,003950:
025016,003951: # OUTPUT
025017,003952: # CORRECTED CSM STATE VECTOR (PERMANENT)
025018,003953: # NUMBER OF MARKS INCORPORATED IN MARKCTR
025019,003954: # Page 583
025020,003955: # MAGNITUDE OF POSITION DEVIATION (FOR DISPLAY) IN R22 DISP METERS B-29
025021,003956: # MAGNITUDE OF VELOCITY DEVIATION (FOR DISPLAY) IN R22DISP +2 M/CSEC B-7
025022,003957: # UPDATED W-MATRIX
025023,003958:
025024,003959: # ERASABLE INITIALIZATION REQUIRED
025025,003960: # LM AND CSM STATE VECTORS
025026,003961: # W-MATRIX
025027,003962: # MARK TIME IN MKTIME
025028,003963: # RADAR RANGE IN RM METERS B-29
025029,003964: # RANGE RATE IN RDOTM METERS/CSEC B-7
025030,003965: # VEHUPFLG
025031,003966:
025032,003967: 26,3200 77624 LSR22.4 CALL
025033,003968: 26,3201 27414 INTSTALL
025034,003969: 26,3202 43014 SET CLEAR
025035,003970: 26,3203 01472 STATEFLG
025036,003971: 26,3204 01674 VINTFLAG # CALL TO GET LM POS + VEL IN REF COORD.
025037,003972: 26,3205 77624 CALL
025038,003973: 26,3206 55242 INTGRCAL
025039,003974: 26,3207 77624 CALL
025040,003975: 26,3210 11244 GRP2PC
025041,003976: 26,3211 45014 CLEAR CALL
025042,003977: 26,3212 02666 DMENFLG # SET MATRIX SIZE TO 6X6 FOR INCORP
025043,003978: 26,3213 27414 INTSTALL
025044,003979: 26,3214 46145 DLOAD BHIZ # IS THIS FIRST TIME THROUGH
025045,003980: 26,3215 03463 MARKCTR
025046,003981: 26,3216 55231 INITWMX6 # YES, INITIALIZE 6X6 W-MATRIX
025047,003982: 26,3217 43014 CLEAR SET
025048,003983: 26,3220 01675 D6OR9FLG
025049,003984: 26,3221 01476 DIM0FLAG
025050,003985: 26,3222 43014 SET CLEAR
025051,003986: 26,3223 01474 VINTFLAG
025052,003987: 26,3224 01673 INTYPFLG
025053,003988: 26,3225 77624 CALL
025054,003989: 26,3226 55242 INTGRCAL
025055,003990: 26,3227 77650 GOTO
025056,003991: 26,3230 54510 RANGEBQ
025057,003992:
025058,003993: 26,3231 77624 INITWMX6 CALL
025059,003994: 26,3232 55251 WLINIT # INITIALIZE W-MATRIX
025060,003995: 26,3233 45014 SET CALL
025061,003996: 26,3234 01474 VINTFLAG
025062,003997: 26,3235 26644 SETIFLGS
025063,003998: 26,3236 77624 CALL
025064,003999: 26,3237 55242 INTGRCAL
025065,004000: 26,3240 77650 GOTO
025066,004001: 26,3241 54510 RANGEBQ
025067,004002:
025068,004003: # THIS ROUTINE CLEARS RFINAL (DP) AND CALLS INTEGRV
025069,004004: # Page 584
025070,004005: 26,3242 71220 INTGRCAL STQ DLOAD
025071,004006: 26,3243 03675 IGRET
025072,004007: 26,3244 03755 MKTIME
025073,004008: 26,3245 34041 STCALL TDEC1
025074,004009: 26,3246 27134 INTEGRV
025075,004010: 26,3247 77650 GOTO
025076,004011: 26,3250 03675 IGRET
025077,004012:
025078,004013: # THIS ROUTINE INITIALIZES THE W-MATRIX BY ZEROING ALL W THEN SETTING
025079,004014: # DIAGONAL ELEMENTS TO INITIAL STORED VALUES.
025080,004015:
025081,004016: 26,3251 E5,1400 EBANK= W
025082,004017: 26,3251 77776 WLINIT EXIT
025083,004018: 26,3252 33331 CAF WBANK
025084,004019: 26,3253 54006 TS BBANK
025085,004020: 26,3254 33437 CAF WSIZE
025086,004021: 26,3255 55257 TS W.IND
025087,004022: 26,3256 34755 CAF ZERO
025088,004023: 26,3257 51257 INDEX W.IND
025089,004024: 26,3260 55400 TS W
025090,004025: 26,3261 11257 CCS W.IND
025091,004026: 26,3262 03255 TC -5
025092,004027: 26,3263 33332 CAF AIGBANK # RESTORE EBANK 7
025093,004028: 26,3264 54006 TS BBANK
025094,004029: 26,3265 06037 TC INTPRET
025095,004030: 26,3266 67214 BON SLOAD # IF ON LUNAR SURFACE, INITIALIZE WITH
025096,004031: 26,3267 04307 SURFFLAG # WSURFPOS AND WSURFVEL INSTEAD OF
025097,004032: 26,3270 55274 WLSRFPOS # WRENDPOS AND WRENDVEL
025098,004033: 26,3271 02001 WRENDPOS
025099,004034: 26,3272 77650 GOTO
025100,004035: 26,3273 55276 WPOSTORE
025101,004036: 26,3274 77735 WLSRFPOS SLOAD
025102,004037: 26,3275 02007 WSURFPOS
025103,004038: 26,3276 77661 WPOSTORE SR # SHIFT TO B-19 SCALE
025104,004039: 26,3277 20606 5
025105,004040: 26,3300 02401 STORE W
025106,004041: 26,3301 02411 STORE W +8D
025107,004042: 26,3302 02421 STORE W +16D
025108,004043: 26,3303 67214 BON SLOAD
025109,004044: 26,3304 04307 SURFFLAG
025110,004045: 26,3305 55311 WLSRFVEL
025111,004046: 26,3306 02002 WRENDVEL
025112,004047: 26,3307 77650 GOTO
025113,004048: 26,3310 55313 WVELSTOR
025114,004049: 26,3311 77735 WLSRFVEL SLOAD
025115,004050: 26,3312 02010 WSURFVEL
025116,004051: 26,3313 02511 WVELSTOR STORE W +72D
025117,004052: 26,3314 02521 STORE W +80D
025118,004053: 26,3315 02531 STORE W +88D
025119,004054: 26,3316 77735 SLOAD
025120,004055: # Page 585
025121,004056: 26,3317 02003 WSHAFT
025122,004057: 26,3320 02621 STORE W +144D
025123,004058: 26,3321 77735 SLOAD
025124,004059: 26,3322 02004 WTRUN
025125,004060: 26,3323 02631 STORE W +152D
025126,004061: 26,3324 66214 SET SSP # SET RENDWFLG -- W-MATRIX VALID
025127,004062: 26,3325 02476 RENDWFLG
025128,004063: 26,3326 03463 MARKCTR # SET MARK COUNTER EQUAL ZERO
025129,004064: 26,3327 00000 0
025130,004065: 26,3330 77616 RVQ
025131,004066:
025132,004067: 26,3331 E5,1400 EBANK= W
025133,004068: 26,3331 54065 WBANK BBCON WLINIT
025134,004069: 26,3332 E7,1457 EBANK= AIG
025135,004070: 26,3332 54067 AIGBANK BBCON LSR22.3
025136,004071:
025137,004072: # GETULC
025138,004073:
025139,004074: # THIS SUBROUTINE COMPUTES THE RELATIVE POSITION VECTOR BETWEEN THE CSM
025140,004075: # AND THE LM, LEAVING THE UNIT VECTOR IN THE PUSHLIST AND MPAC AND THE
025141,004076: # MAGNITUDE IN 36D.
025142,004077:
025143,004078: 26,3333 77201 GETULC SETPD VLOAD
025144,004079: 26,3334 00001 0
025145,004080: 26,3335 01645 DELTALEM
025146,004081: 26,3336 77754 LXA,2
025147,004082: 26,3337 03720 SCALSHFT # LOAD X2 WITH SCALE SHIFT
025148,004083: 26,3340 53257 VSR* VAD
025149,004084: 26,3341 57165 9D,2 # SHIFT FOR EARTH/MOON SPHERE
025150,004085: 26,3342 01661 RCVLEM
025151,004086: 26,3343 53715 PDVL VSR*
025152,004087: 26,3344 01573 DELTACSM
025153,004088: 26,3345 57165 9D,2 # SHIFT FOR EARTH/MOON SPHERE
025154,004089: 26,3346 52255 VAD VSU
025155,004090: 26,3347 01607 RCVCSM
025156,004091: 26,3350 41434 RTB PUSH # USE NORMUNIT TO PRESERVE ACCURACY
025157,004092: 26,3351 21724 NORMUNX1
025158,004093: 26,3352 17724 STODL ULC
025159,004094: 26,3353 00045 36D
025160,004095: 26,3354 77657 SL* # ADJUST MAGNITUDE FROM NORMUNIT
025161,004096: 26,3355 20201 0,1
025162,004097: 26,3356 24045 STOVL 36D # ULC IN PD0 AND MPAC,RLC IN 36D
025163,004098: 26,3357 03724 ULC
025164,004099: 26,3360 77616 RVQ
025165,004100:
025166,004101: # RADARANG
025167,004102:
025168,004103: # THIS SUBROUTINE COMPUTS SINTHETA = -ULC DOT MY
025169,004104: # RXZ = (SQRT (1-SINTHETA**2))RLC
025170,004105: # OUTPUT
025171,004106: # ULC IN ULC, PD0
025172,004107: # Page 586
025173,004108: # RLC IN PD36D
025174,004109: # SIN THETA IN SINTHETA AND PD6
025175,004110: # RXZ NORM IN RXZ (N IN X1)
025176,004111:
025177,004112: 26,3361 45020 RADARANG STQ CALL
025178,004113: 26,3362 03675 RDRET
025179,004114: 26,3363 55333 GETULC
025180,004115: 26,3364 50276 VCOMP DOT
025181,004116: 26,3365 03705 MY
025182,004117: 26,3366 41572 SL1R PUSH # SIN THETA TO PD6
025183,004118: 26,3367 03732 STORE SINTHETA
025184,004119: 26,3370 44316 DSQ BDSU
025185,004120: 26,3371 06512 DP1/4TH # 1-(SIN THETA)**2
025186,004121: 26,3372 41366 SQRT DMP
025187,004122: 26,3373 00045 36D
025188,004123: 26,3374 60352 SL1 NORM
025189,004124: 26,3375 00047 X1 # SET SHIFT COUNTER IN X1
025190,004125: 26,3376 03722 STORE RXZ
025191,004126: 26,3377 77650 GOTO # EXIT
025192,004127: 26,3400 03675 RDRET
025193,004128: 26,3401 45020 LGCUPDTE STQ CALL
025194,004129: 26,3402 03675 LGRET
025195,004130: 26,3403 46531 INCORP1
025196,004131: 26,3404 51575 VLOAD ABVAL
025197,004132: 26,3405 02673 DELTAX +6
025198,004133: 26,3406 53754 LXA,2 SRR*
025199,004134: 26,3407 03720 SCALSHFT # 0 -- MOON. 2 -- EARTH
025200,004135: 26,3410 56174 2,2 # SET VEL DISPLAY TO B-7
025201,004136: 26,3411 24317 STOVL R22DISP +2
025202,004137: 26,3412 02665 DELTAX
025203,004138: 26,3413 53646 ABVAL SRR*
025204,004139: 26,3414 56174 2,2 # SET POS DISPLAY TO B-29
025205,004140: 26,3415 00315 STORE R22DISP
025206,004141: 26,3416 54335 SLOAD SR
025207,004142: 26,3417 02005 RMAX
025208,004143: 26,3420 20613 10D
025209,004144: 26,3421 50025 DSU BMN
025210,004145: 26,3422 00315 R22DISP
025211,004146: 26,3423 50572 R22LEM96 # GO DISPLAY
025212,004147: 26,3424 45335 SLOAD DSU
025213,004148: 26,3425 02006 VMAX
025214,004149: 26,3426 00317 R22DISP +2 # VMAX MINUS VEL. DEVIATION
025215,004150: 26,3427 77640 BMN
025216,004151: 26,3430 50572 R22LEM96 # GO DISPLAY
025217,004152: 26,3431 77624 ASTOK CALL
025218,004153: 26,3432 46743 INCORP2
025219,004154: 26,3433 77650 GOTO
025220,004155: 26,3434 03675 LGRET
025221,004156: 26,3435 00103 03370 IMUVAR 2DEC 1.0 E-6 B12 # RAD**2
025222,004157:
025223,004158: 26,3437 00241 WSIZE DEC 161 B-14
025224,004159: # Page 587
025225,004160: 26,3440 31103 36652 2PI/8 2DEC 3.141592653 B-2
025226,004161:
025227,004162: 26,3442 E7,1456 EBANK= LOSCOUNT
025228,004163: # Page 588
025229,004164:
025230,004165: # PROGRAM NAME LRS24.1 RR SEARCH ROUTINE
025231,004166: # MCD NO. 0 BY P. VOLANTE, SDC DATE 1-15-67
025232,004167:
025233,004168: # FUNCTIONAL DESCRIPTION
025234,004169:
025235,004170: # DRIVES THE RENDEZVOUS RADAR IN A HEXAGONAL SEARCH PATTERN ABOUT THE LOS TO THE CSM (COMPUTED FROM THE CSM AND LM
025236,004171: # STATE VECTORS) CHECKING FOR THE DATA GOOD DISCRETE AND MONITORING THE ANGLE BETWEEN THE RADAR BORESIGHT AND THE
025237,004172: # LM +Z AXIS. IF THIS ANGLE EXCEEDS 30 DEGREES THE PREFERRED TRACKING ATTITUDE ROUTINE IS CALLED TO PERFORM AN
025238,004173: # ATTITUDE MANEUVER.
025239,004174:
025240,004175: # CALLING SEQUENCE -- BANKCALL FOR LRS24.1
025241,004176:
025242,004177: # SUBROUTINES CALLED
025243,004178:
025244,004179: # LEMCONIC R61LEM
025245,004180: # CSMCONIC RRDESSM
025246,004181: # JOBDELAY FLAGDOWN
025247,004182: # WAITLIST FLAGUP
025248,004183: # RRNB BANKCALL
025249,004184:
025250,004185: # EXIT -- TO ENDOFJOB WHEN THE SEARCH FLAG (SRCHOPT) IS NOT SET
025251,004186:
025252,004187: # OUTPUT
025253,004188:
025254,004189: # DATAGOOD (SP) -- FOR DISPLAY IN R1 -- 00000 INDICATES NO LOCKON
025255,004190: # 11111 INDICATES LOCKON ACHIEVED
025256,004191: # OMEGAD (SP) -- FOR DISPLAY IN R2 -- ANGLE BETWEEN RR BORESIGNT VECTOR AND THE SPACECRAFT +Z AXIS
025257,004192:
025258,004193: # ERASABLE INITIALIZATION REQUIRED:
025259,004194:
025260,004195: # SEARCH FLAG MUST BE SET
025261,004196: # LM AND CSM STATE VECTORS AND REFSMMAT MATRIX
025262,004197:
025263,004198: # DEBRIS
025264,004199:
025265,004200: # RLMSRCH UXVECT
025266,004201: # VXRLM UYVECT
025267,004202: # LOSDESRD NSRCHPNT
025268,004203: # DATAGOOD OMEGAD
025269,004204: # MPAC PUSHLIST
025270,004205:
025271,004206: 26,3442 COUNT* $$/LRS24
025272,004207: 26,3442 34755 LRS24.1 CAF ZERO
025273,004208: 26,3443 55736 TS NSRCHPNT # SET SEARCH PATTERN POINT COUNTER TO ZERO
025274,004209: 26,3444 34736 CHKSRCH CAF BIT14 # ISSUE AUTO TRACK ENABLE TO RADAR
025275,004210: 26,3445 00006 EXTEND
025276,004211: # Page 589
025277,004212: 26,3446 05012 WOR CHAN12
025278,004213: 26,3447 34736 CAF SRCHOBIT # CHECK IF SEARCH STILL REQUESTED
025279,004214: 26,3450 70076 MASK FLAGWRD2 # (SRCHOPT FLAG SET)
025280,004215: 26,3451 00006 EXTEND
025281,004216: 26,3452 15155 BZF ENDOFJOB # NO-TERMINATE JOB
025282,004217:
025283,004218: 26,3453 33713 CAF 6SECONDS # SCHEDULE TASK TO DRIVE RADAR TO NEXT PT.
025284,004219: 26,3454 00004 INHINT
025285,004220: 26,3455 05203 TC WAITLIST # IN 6 SECONDS
025286,004221: 26,3456 E7,1456 EBANK= LOSCOUNT
025287,004222: 26,3456 03643 54067 2CADR CALLDGCH
025288,004223:
025289,004224: 26,3460 00003 RELINT
025290,004225: 26,3461 40110 CS RADMODES # IS REMODE IN PROGRESS
025291,004226: 26,3462 74736 MASK REMODBIT
025292,004227: 26,3463 00006 EXTEND
025293,004228: 26,3464 15155 BZF ENDOFJOB # YES -- WAIT SIX SECONDS
025294,004229: 26,3465 06037 TC INTPRET
025295,004230:
025296,004231: 26,3466 43234 RTB DAD # COMPUTE LOS AT PRESENT TIME + 1.5 SEC.
025297,004232: 26,3467 21573 LOADTIME
025298,004233: 26,3470 15715 1.5SECS
025299,004234: 26,3471 34041 LRS24.11 STCALL TDEC1
025300,004235: 26,3472 27100 LEMCONIC # EXTRAPOLATE LM STATE VECTOR
025301,004236: 26,3473 77775 VLOAD
025302,004237: 26,3474 00001 RATT
025303,004238: 26,3475 27676 STOVL RLMSRCH # SAVE LEM POSITION
025304,004239: 26,3476 00007 VATT
025305,004240: 26,3477 17740 STODL SAVLEMV # SAVE LEM VELOCITY
025306,004241: 26,3500 00015 TAT
025307,004242: 26,3501 34041 STCALL TDEC1 # EXTRAPOLATE CSM STATE VECTOR
025308,004243: 26,3502 27066 CSMCONIC # EXTRAPOLATE CSM STATE VECTOR
025309,004244: 26,3503 52375 VLOAD VSU # LOS VECTOR = R(CSM) - R(LM)
025310,004245: 26,3504 00001 RATT
025311,004246: 26,3505 03676 RLMSRCH
025312,004247: 26,3506 77656 UNIT
025313,004248: 26,3507 27712 STOVL LOSDESRD # STORE DESIRED LOS
025314,004249: 26,3510 00007 VATT # COMPUTE UNIT(V(CM) CROSS R(CM))
025315,004250: 26,3511 47256 UNIT VXV
025316,004251: 26,3512 00001 RATT
025317,004252: 26,3513 77656 UNIT
025318,004253: 26,3514 03704 STORE VXRCM
025319,004254: 26,3515 52375 VLOAD VSU
025320,004255: 26,3516 00007 VATT
025321,004256: 26,3517 03740 SAVLEMV
025322,004257: 26,3520 76521 MXV VSL1 # CONVERT FROM REFERENCE TO STABLE MEMBER
025323,004258: 26,3521 01734 REFSMMAT
025324,004259: 26,3522 03740 STORE SAVLEMV # VLC = V(CSM) - V(LM)
025325,004260: 26,3523 53135 SLOAD BZE # CHECK IF N=0
025326,004261: # Page 590
025327,004262: 26,3524 03737 NSRCHPNT
025328,004263: 26,3525 55636 DESGLOS # YES -- DESIGNATE ALONG LOS
025329,004264: 26,3526 53025 DSU BZE # IS N=1
025330,004265: 26,3527 15711 ONEOCT # YES -- CALCULATE X AND Y AXES OF
025331,004266: 26,3530 55623 CALCXY # SEARCH PATTERN COORDINATE SYSTEM
025332,004267: 26,3531 77775 VLOAD # NO -- ROTATE X-Y AXES TO NEXT SEARCH POINT
025333,004268: 26,3532 03720 UXVECT
025334,004269: 26,3533 24015 STOVL UXVECTPR # SAVE ORIGINAL X AND Y VECTORS
025335,004270: 26,3534 03726 UYVECT # UXPRIME = ORIGINAL UX
025336,004271: 26,3535 00023 STORE UYVECTPR # UYPRIME = ORIGINAL UY
025337,004272: 26,3536 77761 VXSC
025338,004273: 26,3537 15705 SIN60DEG # UX = (COS 60)UXPR + (SIN 60)UYPR
025339,004274: 26,3540 27720 STOVL UXVECT
025340,004275: 26,3541 00015 UXVECTPR
025341,004276: 26,3542 53361 VXSC VAD
025342,004277: 26,3543 06520 COS60DEG
025343,004278: 26,3544 03720 UXVECT
025344,004279: 26,3545 77656 UNIT
025345,004280: 26,3546 27720 STOVL UXVECT
025346,004281: 26,3547 00015 UXVECTPR # UY = (-SIN 60)UXPR + (COS 60)UYPR
025347,004282: 26,3550 77761 VXSC
025348,004283: 26,3551 15705 SIN60DEG
025349,004284: 26,3552 27726 STOVL UYVECT
025350,004285: 26,3553 00023 UYVECTPR
025351,004286: 26,3554 52361 VXSC VSU
025352,004287: 26,3555 06520 COS60DEG
025353,004288: 26,3556 03726 UYVECT
025354,004289: 26,3557 77656 UNIT
025355,004290: 26,3560 03726 STORE UYVECT
025356,004291: 26,3561 53361 OFFCALC VXSC VAD # OFFSET VECTOR = K(UY)
025357,004292: 26,3562 15707 OFFSTFAC # LOS VECTOR + OFFSET VECTOR DEFINES
025358,004293: 26,3563 03712 LOSDESRD # DESIRED POINT IN SEARCH PATTERN
025359,004294: 26,3564 64256 UNIT MXV
025360,004295: 26,3565 01734 REFSMMAT # CONVERT TO STABLE MEMBER COORDINATES
025361,004296: 26,3566 77772 VSL1
025362,004297: 26,3567 25102 CONTDESG STOVL RRTARGET
025363,004298: 26,3570 03740 SAVLEMV
025364,004299: 26,3571 01761 STORE LOSVEL
025365,004300: 26,3572 77776 EXIT
025366,004301: 26,3573 00004 INHINT
025367,004302: 26,3574 06027 TC KILLTASK # KILL ANY PRESENTLY WAITLISTED TASK
025368,004303: 26,3575 52602 CADR DESLOOP +2 # WHICH WOULD DESIGNATE TO THE LAST
025369,004304: # POINT IN THE PATTERN
025370,004305: 26,3576 44735 CONTDES2 CS CDESBIT
025371,004306: 26,3577 70110 MASK RADMODES # SET BIT 15 OF RADMODES TO INDICATE
025372,004307: 26,3600 64735 AD CDESBIT # A CONTINUOUS DESIGNATE WANTED.
025373,004308: 26,3601 54110 TS RADMODES
025374,004309: 26,3602 06037 TC INTPRET
025375,004310:
025376,004311: 26,3603 77624 CALL
025377,004312: # Page 591
025378,004313: 26,3604 52373 RRDESSM # DESIGNATE RADAR TO RRTARGET VECTOR
025379,004314:
025380,004315: 26,3605 77776 EXIT
025381,004316: 26,3606 03675 TC LIMALARM # LOS NOT IN MODE 2 COVERAGE (P22)
025382,004317: 26,3607 03675 TC LIMALARM # VEHICLE MANEUVER REQUIRED (P20)
025383,004318:
025384,004319: # COMPUTE OMEGA,ANGLE BETWEEN RR LOS AND
025385,004320: # SPACECRAFT +Z AXIS
025386,004321: 26,3610 00006 OMEGCALC EXTEND
025387,004322: 26,3611 30036 DCA CDUT
025388,004323: 26,3612 53753 DXCH TANGNB
025389,004324: 26,3613 06037 TC INTPRET
025390,004325: 26,3614 77624 CALL
025391,004326: 26,3615 46041 RRNB
025392,004327: 26,3616 65545 DLOAD ACOS # OMEGA IS ARCCOSINE OF Z-COMPONENT OF
025393,004328: 26,3617 00045 36D # VECTOR COMPUTED BY RRNB (LEFT AT 32D)
025394,004329: 26,3620 03735 STORE OMEGDISP # STORE FOR DISPLAY IN R2
025395,004330: 26,3621 77776 EXIT
025396,004331: 26,3622 05155 TC ENDOFJOB
025397,004332: # Page 592
025398,004333: # CALCULATE X AND Y VECTORS FOR SEARCH PATTERN COORDINATE SYSTEM.
025399,004334:
025400,004335: 26,3623 47375 CALCXY VLOAD VXV
025401,004336: 26,3624 03704 VXRCM
025402,004337: 26,3625 03712 LOSDESRD
025403,004338: 26,3626 77656 UNIT
025404,004339: 26,3627 27720 STOVL UXVECT # UX = (VLM X RLM) X LOS
025405,004340: 26,3630 03712 LOSDESRD
025406,004341: 26,3631 53435 VXV UNIT
025407,004342: 26,3632 03720 UXVECT
025408,004343: 26,3633 03726 STORE UYVECT # UY = LOS X UX
025409,004344: 26,3634 77650 GOTO
025410,004345: 26,3635 55561 OFFCALC
025411,004346:
025412,004347: 26,3636 64375 DESGLOS VLOAD MXV # WHEN N= 0,DESIGNATE ALONG LOS
025413,004348: 26,3637 03712 LOSDESRD
025414,004349: 26,3640 01734 REFSMMAT # CONVERT LOS FROM REFERENCE TO SM COORDS
025415,004350: 26,3641 52172 VSL1 GOTO
025416,004351: 26,3642 55567 CONTDESG
025417,004352:
025418,004353: 26,3643 30074 CALLDGCH CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET
025419,004354: 26,3644 74745 MASK RNDVZBIT
025420,004355: 26,3645 00006 EXTEND
025421,004356: 26,3646 15261 BZF TASKOVER # NO -- EXIT R24
025422,004357: 26,3647 37713 CAF PRIO25 # YES -- SCHEDULE JOB TO DRIVE RADAR TO NEXT
025423,004358: 26,3650 05105 TC FINDVAC # PONT IN SEARCH PATTERN
025424,004359: 26,3651 E7,1675 EBANK= RLMSRCH
025425,004360: 26,3651 03654 54067 2CADR DATGDCHK
025426,004361:
025427,004362: 26,3653 05261 TC TASKOVER
025428,004363:
025429,004364: 26,3654 34750 DATGDCHK CAF BIT4
025430,004365: 26,3655 00006 EXTEND # CHECK IF DATA GOOD DISCRETE PRESENT
025431,004366: 26,3656 02033 RAND CHAN33
025432,004367: 26,3657 00006 EXTEND
025433,004368: 26,3660 13667 BZF STORE1S # YES -- GO TO STORE 11111 FOR DISPLAY IN R1
025434,004369: 26,3661 46242 CS SIX
025435,004370: 26,3662 61736 AD NSRCHPNT # IS N GREATER THAN 6
025436,004371: 26,3663 00006 EXTEND
025437,004372: 26,3664 13442 BZF LRS24.1 # YES -- RESET N = 0 AND START AROUND AGAIN
025438,004373: 26,3665 25736 INCR NSRCHPNT # NO -- SET N = N+1 AND GO TO
025439,004374: 26,3666 13444 TCF CHKSRCH # NEXT POINT IN PATTERN
025440,004375:
025441,004376: 26,3667 33703 STORE1S CAF ALL1S # STORE 11111 FOR DISPLAY IN R1
025442,004377: 26,3670 55733 TS DATAGOOD
025443,004378: # Page 593
025444,004379: 26,3671 00004 INHINT
025445,004380: 26,3672 06027 TC KILLTASK # DELETE DESIGNATE TASK FROM
025446,004381: 26,3673 52602 CADR DESLOOP +2 # WAITLIST USING KILLTASK
025447,004382: 26,3674 05155 TC ENDOFJOB
025448,004383:
025449,004384: 26,3675 05567 LIMALARM TC ALARM # ISSUE ALARM 527 -- LOS NOT IN MODE2
025450,004385: 26,3676 00527 OCT 527 # COVERAGE IN P22 OR VEHICLE MANEUVER
025451,004386: 26,3677 00004 INHINT # REQUIRED IN P20
025452,004387: 26,3700 06027 TC KILLTASK # KILL WAITLIST CALL FOR NEXT
025453,004388: 26,3701 55643 CADR CALLDGCH # POINT IN SEARCH PATTERN
025454,004389: 26,3702 05155 TC ENDOFJOB
025455,004390:
025456,004391: 26,3703 25547 ALL1S DEC 11111 B-14
025457,004392: 26,3704 33555 01106 SIN60DEG 2DEC .86603
025458,004393: 26,3706 23,2517 COS60DEG = DPHALF # (2DEC .50)
025459,004394: 26,3706 UXVECTPR EQUALS 12D # PREVIOUS
025460,004395: 26,3706 UYVECTPR EQUALS 18D
025461,004396: 26,3706 RLMUNIT EQUALS 12D
025462,004397: 26,3706 01642 11045 OFFSTFAC 2DEC 0.05678 # TANGENT OF 3.25 DEGREES
025463,004398:
025464,004399: 26,3710 00001 ONEOCT OCT 00001 # **** NOTE -- THESE TWO CONSTANTS MUST ****
025465,004400: 26,3711 00000 00454 3SECONDS 2DEC 300 B-28 # **** BE IN THIS ORDER BECAUSE ****
025466,004401:
025467,004402: # **** ONEOCT NEEDS A LOWER ORDER ****
025468,004403: # **** WORD OF ZEROES ****
025469,004404: 26,3713 01130 6SECONDS DEC 600 B-14
025470,004405: 26,3714 00000 00226 1.5SECS 2DEC 150 B-28
025471,004406:
025472,004407: 26,3716 23,2521 ZERO/SP EQUALS HI6ZEROS
025473,004408:
025474,004409: 4616 BLOCK 02
025475,004410: 6000 SETLOC FFTAG5
025476,004411: 6000 BANK
025477,004412: 6022 COUNT* $$/P20
025478,004413: 6022 00006 GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF
025479,004414: 6023 36026 DCA VB56CADR # GOTOP00H
025480,004415: 6024 15165 TCF SUPDXCHZ
025481,004416: 6025 E7,1471 EBANK= WHOCARES
025482,004417: 6025 03024 66107 VB56CADR 2CADR TRMTRACK
025483,004418:
025484,004419: # Page 594
025485,004420: # PROGRAM NAME: R29 (RENDEZVOUS RADAR DESIGNATE DURING POWERED FLIGHT)
025486,004421: # MOD NO. 2 BY H. BLAIR-SMITH JULY 2, 1968
025487,004422:
025488,004423: # FUNCTIONAL DESCRIPTION:
025489,004424:
025490,004425: # DESIGNATES THE RENDEZVOUS RADAR TOWARD THE COMPUTES LOS TO THE CSM, WITH THE CHIEF OBJECTIVE OF OBTAINING RANGE
025491,004426: # AND RANGE RATE DATA AT 2-SECOND INTERVALS FOR TRANSMISSION TO THE GROUND. WHEN THE RR IS WITHIN .5 DEGREE OF
025492,004427: # THE COMPUTED LOS, TRACKING IS ENABLED, AND DESIGNATION CONTINUES UNTIL THE DATA-GOOD DISCRETE IS RECEIVED. AT
025493,004428: # THAT POINT, DESIGNATION CEASES AND A RADAR-READING ROUTINE TAKES OVER, PREPARING A CONSISTENT SET OF DATA FOR
025494,004429: # DOWN TELEMETRY. THE SET INCLUDES RANGE, RANGE RATE, MARK TIME, TWO RR CDU ANGLES, THREE IMUCDU ANGLES, AND AN
025495,004430: # INDICATOR WHICH IS 1 WHEN THE SET IS CONSISTENT AND 0 OTHERWISE. THE INDICATOR IS IN TRKMKCNT.
025496,004431:
025497,004432: # CALLING SEQUENCE: BEGUN EVERY 2 SECONDS AS AN INTEGRAL PART OF SERVICER
025498,004433:
025499,004434: # SUBROUTINES CALLED:
025500,004435:
025501,004436: # REMODE RRPONLY
025502,004437: # UNIT MPACVBUF
025503,004438: # QUICTRIG AX*SR*T
025504,004439: # SPSIN SPCOS
025505,004440: # SETRRECR RROUT
025506,004441: # RRRDOT RRRANGE
025507,004442:
025508,004443: # EXIT: TO NOR29NOW, IN SERVICER.
025509,004444:
025510,004445: # OUTPUT: (ALL FOR DOWNLINK)
025511,004446:
025512,004447: # RM RDOTM (RAW)
025513,004448: # AIG AMG
025514,004449: # AOG TRKMKCNT TRKMKCNT = 00001 IF SET IS CONSISTENT,
025515,004450: # TANGNB TANGNB +1 OTHERWISE TRKMKCNT = 00000.
025516,004451: # MKTIME
025517,004452: # Page 595
025518,004453:
025519,004454: # ERASABLE INITIALIZATION REQUIRED:
025520,004455:
025521,004456: # NOR29FLG READRFLG (TO 1 AND 0 BY FRESH START) (RESET NOR29FLG TO LET SERVICER RUN R29)
025522,004457: # PIPTIME RADMODES (BIT 10) (BIT SET TO 0 BY FRESH START)
025523,004458: # R(CSM) V(CSM)
025524,004459: # R V (PIPTIME THRU V BY AVE G IN SERVICER)
025525,004460:
025526,004461: # DEBRIS:
025527,004462:
025528,004463: # RADMODES (BIT 10)
025529,004464: # LOSSM LOSVDT/4 (= RRTARGET & LOSVEL)
025530,004465: # SAVECDUT OLDESFLG (SAVECDUT = MLOSV)
025531,004466: # LOSCMFLG READRFLG
025532,004467:
025533,004468: # ALARMS: NONE.
025534,004469:
025535,004470: # COMPONENT JOBS AND TASKS:
025536,004471:
025537,004472: # INITIALIZING, IF RR IS FOUND TO BE IN MODE 1: JOB R29REMOJ AND TASK REMODE: ALWAYS: TASK PREPOS29.
025538,004473: # DESIGNATING: TASK BEGDES29 & JOB R29DODES.
025539,004474: # RADAR READING: TASK R29READ AND JOB R29RDJOB. ALL JOBS ARE NOVAC TYPE.
025540,004475:
025541,004476: 33,2045 BANK 33
025542,004477: 33,2000 SETLOC R29/SERV
025543,004478: 33,2000 BANK
025544,004479:
025545,004480: 33,2045 COUNT* $$/r29
025546,004481:
025547,004482: 33,2045 5014 NR29&RDR EQUALS EBANK5
025548,004483:
025549,004484: # Page 596
025550,004485: # SERVICER COMES TO R29 FROM "R29?" IF NOR29FLG, READRFLG, RRREMODE, RRCDUZRO, RRREPOS, AND DISPLAY-INERTIAL-DATA
025551,004486: # ARE ALL RESET, AND THE RR IS IN LGC MODE (OFTEN CONFUSINGLY CALLED AUTO MODE).
025552,004487:
025553,004488: 33,2045 40110 R29 CS RADMODES
025554,004489: 33,2046 74742 MASK DESIGBIT
025555,004490: 33,2047 00006 EXTEND
025556,004491: 33,2050 12123 BZF R29.LOS # BRANCH IF DESIGNATION IS ALREADY ON.
025557,004492:
025558,004493: 33,2051 00004 INHINT
025559,004494: 33,2052 26110 ADS RADMODES # SHOW THAT DESIGNATION IS NOW ON.
025560,004495: 33,2053 44736 CS BIT14
025561,004496: 33,2054 00006 EXTEND
025562,004497: 33,2055 03012 WAND CHAN12 # REMOVE RR TRACK ENABLE DISCRETE.
025563,004498: 33,2056 44740 CS LOSCMBIT
025564,004499: 33,2057 70076 MASK FLAGWRD2
025565,004500: 33,2060 54076 TS FLAGWRD2 # CLEAR LOSCMFLG TO SHOW DES. LOOP IS OFF.
025566,004501: 33,2061 44753 CS OLDESBIT
025567,004502: 33,2062 70074 MASK STATE
025568,004503: 33,2063 54074 TS STATE # SHOW THAT DES. LOOP IS NOT REQUESTED.
025569,004504: 33,2064 04616 TC BANKCALL
025570,004505: 33,2065 52156 CADR SETRRECR # ENABLE RR ERROR COUNTERS.
025571,004506: 33,2066 34740 CA ANTENBIT
025572,004507: 33,2067 70110 MASK RADMODES
025573,004508: 33,2070 10000 CCS A # TEST RR MODE BIT.
025574,004509: 33,2071 12104 TCF SETPRPOS # MODE 2.
025575,004510:
025576,004511: 33,2072 35031 CA PRIO21 # MODE 1: MUST REMODE.
025577,004512: 33,2073 05072 TC NOVAC
025578,004513: 33,2074 E7,1456 EBANK= LOSCOUNT
025579,004514: 33,2074 02113 66067 2CADR R29REM0J # NEEDS OWN JOB TO RADSTALL IN.
025580,004515:
025581,004516: 33,2076 44742 CS DESIGBIT
025582,004517: 33,2077 70110 MASK RADMODES # CLEAR DESIGNATE FLAG IN RADMODES
025583,004518: 33,2100 54110 TS RADMODES # BEFORE CALLING REMODE
025584,004519: 33,2101 34736 CA REMODBIT
025585,004520: 33,2102 26110 ADS RADMODES # SHOW THAT REMODING IS ON.
025586,004521: 33,2103 12570 TCF NOR29NOW # CONTINUE SERVICER FUNCTIONS.
025587,004522:
025588,004523: 33,2104 34753 SETPRPOS CA ONE
025589,004524: 33,2105 05203 TC WAITLIST
025590,004525: 33,2106 E7,1456 EBANK= LOSCOUNT
025591,004526: 33,2106 03601 52067 2CADR PREPOS29 # TASK TO SET TRUNNION ANGLE TO 180 DEG.
025592,004527:
025593,004528: 33,2110 34741 CA REPOSBIT
025594,004529: 33,2111 26110 ADS RADMODES # SHOW THAT REPOSITIONING IS ON.
025595,004530: 33,2112 12570 TCF NOR29NOW
025596,004531:
025597,004532: # Page 597
025598,004533: # FORCE RENDEZVOUS RADAR INTO MODE 2.
025599,004534:
025600,004535: 33,2113 34753 R29REM0J CA ONE
025601,004536: 33,2114 05203 TC WAITLIST
025602,004537: 33,2115 E7,1456 EBANK= LOSCOUNT
025603,004538: 33,2115 02171 52067 2CADR REMODE # REMODE MUST RUN AS A TASK.
025604,004539:
025605,004540: 33,2117 04616 TC BANKCALL # WAIT FOR END OF REMODING
025606,004541: 33,2120 17714 CADR RADSTALL
025607,004542:
025608,004543: 33,2121 15155 TCF ENDOFJOB # BAD EXIT CAN'T HAPPEN.
025609,004544: 33,2122 15155 TCF ENDOFJOB
025610,004545:
025611,004546: # TASK TO PREPOSITION THE RR TRUNNION ANGLE TO -180 DEG.
025612,004547:
025613,004548: 25,2000 SETLOC R29S1
025614,004549: 25,2000 BANK
025615,004550:
025616,004551: 25,3601 34735 PREPOS29 CA NEGMAX # -180 DEG.
025617,004552: 25,3602 02241 TC RRTONLY # DRIVE TRUNNION CDU.
025618,004553: 25,3603 44741 CS REPOSBIT # SHOW THAT REPOSITIONING IS OFF.
025619,004554: 25,3604 70110 MASK RADMODES
025620,004555: 25,3605 54110 TS RADMODES
025621,004556: 25,3606 15261 TCF TASKOVER
025622,004557:
025623,004558: # COMPUTE THE LINE-OF-SIGHT AND LOS VELOCITY, AND PASS THEM TO THE R29DODES LOOP.
025624,004559:
025625,004560: 33,2045 SETLOC R29
025626,004561: 33,2045 BANK
025627,004562:
025628,004563: 33,2123 00006 R29.LOS EXTEND
025629,004564: 33,2124 41235 DCS PIPTIME
025630,004565: 33,2125 52155 DXCH MPAC
025631,004566: 33,2126 00006 EXTEND
025632,004567: 33,2127 30025 DCA TIME2
025633,004568: 33,2130 20155 DAS MPAC # (MPAC) = T-PIPTIME, SCALED B-28.
025634,004569: 33,2131 54163 TS MODE # SET MODE TO DOUBLE PRECISION.
025635,004570: 33,2132 30155 CA MPAC +1
025636,004571: 33,2133 00006 EXTEND
025637,004572: 33,2134 74740 MP BIT12
025638,004573: 33,2135 52155 DXCH MPAC # T-PIPTIME NOW SCALED B-17.
025639,004574: 33,2136 06037 TC INTPRET
025640,004575: # Page 598
025641,004576: # LOSCMFLG = 0 MEANS THAT THE DESIGNATION IS READY FOR NEW DATA. SETTING LOSCMFLG MAKES IT GO AWAY SO SETUP29D CAN
025642,004577: # START IT UP WHEN THE DATA IS IN PLACE.
025643,004578:
025644,004579: 33,2137 52315 PDVL VSU # PUSH DOWN T-PIPTIME
025645,004580: 33,2140 01726 V(CSM)
025646,004581: 33,2141 03527 V # LOSVEL = V(CSM) - V
025647,004582: 33,2142 74325 PDDL VXSC # SWAP LOSVEL FOR T-PIPTIME, MULTIPLY THEM
025648,004583: 33,2143 52255 VAD VSU # AND ADD THE RESULT TO R(CSM) - R TO GET
025649,004584: 33,2144 01720 R(CSM) # AN UP-TO-DATE LOS VECTOR IN SM AXES.
025650,004585: 33,2145 03521 R
025651,004586: 33,2146 77414 BOFSET EXIT # (BOFSET DOES ITS THING INHINTED.)
025652,004587: 33,2147 01043 LOSCMFLG # IF DESIGNATE LOOP IS OFF, CHANGE LOSCM-
025653,004588: 33,2150 66152 SETUP29D # FLG TO ON AND GO TO SET UP NEW DATA.
025654,004589: 33,2151 12570 TCF NOR29NOW # IF DES. LOOP IS ON, LET IT USE OLD DATA.
025655,004590:
025656,004591: 33,2152 25102 SETUP29D STOVL LOSSM # LINE-OF-SIGHT VECTOR, STABLE MEMBER AXES
025657,004592: 33,2153 00001 0
025658,004593: 33,2154 77761 VXSC
025659,004594: 33,2155 26177 .5SECB17
025660,004595: 33,2156 01761 STORE LOSVDT/4 # 1/2 SECOND'S WORTH OF LOS VELOCITY.
025661,004596: 33,2157 77414 CLEAR EXIT
025662,004597: 33,2160 01263 LOSCMFLG # LET R29DLOOP USE NEW DATA.
025663,004598:
025664,004599: 33,2161 40074 CS STATE
025665,004600: 33,2162 74753 MASK OLDESBIT
025666,004601: 33,2163 00006 EXTEND
025667,004602: 33,2164 12570 BZF NOR29NOW # BRANCH IF R29 DES. LOOP IS REQUESTED.
025668,004603: 33,2165 00004 INHINT
025669,004604: 33,2166 26074 ADS STATE # OTHERWISE REQUEST IT NOW.
025670,004605:
025671,004606: 33,2167 11056 CCS PIPCTR # SEE IF TASK SHOULD BE OFFSET ONE SECOND.
025672,004607: 33,2170 44776 CS SUPER110 # -96D +100D = 4.
025673,004608: 33,2171 64777 AD 1SEC # 0 +100D = 100D.
025674,004609: 33,2172 05203 TC WAITLIST
025675,004610: 33,2173 E7,1456 EBANK= LOSCOUNT
025676,004611: 33,2173 03356 50067 2CADR BEGDES29 # START BEGDES29 TASK ASAP.
025677,004612:
025678,004613: 33,2175 12570 TCF NOR29NOW # RELINT AND CONTINUE SERVICER FUNCTIONS.
025679,004614:
025680,004615: 33,2176 00006 10000 .5SECB17 2DEC 50 B-17
025681,004616:
025682,004617: # Page 599
025683,004618: # R29 DESIGNATE JOB AND TASK MACHINERY. TASK RECURS EVERY .5 SEC UNTIL DESIGNATE IS CALLED OFF; IT MAY WAIT FOR A
025684,004619: # CENTISECOND OR TWO IF IT COMES UP WHILE SETUP29D IS SUPPLYING NEW DATA.
025685,004620:
025686,004621: 24,3356 BANK 24
025687,004622: 24,2000 SETLOC P20S
025688,004623: 24,2000 BANK
025689,004624:
025690,004625: 24,3356 COUNT* $$/R29
025691,004626:
025692,004627: 24,3356 35031 BEGDES29 CAF PRIO21
025693,004628: 24,3357 05072 TC NOVAC
025694,004629: 24,3360 E3,1760 EBANK= LOSVDT/4
025695,004630: 24,3360 02547 64063 2CADR R29DODES # START R29DODES JOB TWICE A SECOND.
025696,004631:
025697,004632: 24,3362 34774 R29DLOOP CAF .5SEC
025698,004633: 24,3363 05224 TC VARDELAY
025699,004634:
025700,004635: 24,3364 40110 CS RADMODES
025701,004636: 24,3365 74742 MASK DESIGBIT
025702,004637: 24,3366 10000 CCS A
025703,004638: 24,3367 15261 TCF TASKOVER # QUIT IF DESIGNATION IS CALLED OFF.
025704,004639:
025705,004640: 24,3370 40076 CS FLAGWRD2
025706,004641: 24,3371 74740 MASK LOSCMBIT
025707,004642: 24,3372 00006 EXTEND
025708,004643: 24,3373 13376 BZF +3 # BRANCH IF SETUP29D'S SUPPLYING NEW DATA.
025709,004644: 24,3374 26076 ADS FLAGWRD2 # SET LOSCMFLG: SHOW THAT DES. LOOP IS ON.
025710,004645: 24,3375 13356 TCF BEGDES29
025711,004646:
025712,004647: 24,3376 34753 CA ONE
025713,004648: 24,3377 13363 TCF R29DLOOP +1 # WAIT A CENTISECOND FOR NEW DATA.
025714,004649: # Page 600
025715,004650: # R29DODES: RR DESIGNATION LOOP FOR R29
025716,004651:
025717,004652: # THIS ROUTINE DOES MUCH THE SAME THING AS DODES, BUT A GREAT DEAL FASTER. IT TAKES THE NON-UNITIZED LOS VECTOR
025718,004653: # IN STABLE MEMBER COORDINATES (LOSSM) AND A DELTA-LOS IN SM AXES (LOSVDT/4) WHICH IS 1/2 SEC TIMES LOS VELOCITY,
025719,004654: # AND DEVELOPS THE SHAFT AND TRUNNION COMMANDS USING SINGLE PRECISION AS MUCH AS POSSIBLE, AND INTERPRETIVE NOT AT
025720,004655: # ALL. THE UNIT(LOSM + LOSVEL * 1 SEC) IS COMPUTED IN DP AND TRANSFORMED TO NAV BASE COORDINATES IN DOUBLE PRE-
025721,004656: # CISION (USING SP SINES AND COSINES OF CDU ANGLES), AND THE REST IS DONE IN SP.
025722,004657:
025723,004658: # THE FUNCTIONAL DIFFERENCE IS THAT R29DODES ALWAYS CLEARS LOSCMFLG WHEN IT ENDS, AND IT STARTS UP THE R29READ
025724,004659: # TASK WHEN LOCK-ON IS ACHIEVED.
025725,004660:
025726,004661: 32,2547 BANK 32
025727,004662: 32,2000 SETLOC F2DPS*32
025728,004663: 32,2000 BANK
025729,004664:
025730,004665: 32,2547 COUNT* $$/R29
025731,004666: 32,2547 E3,1760 EBANK= LOSVDT/4
025732,004667:
025733,004668: 32,2547 34753 R29DODES CA ONE
025734,004669: 32,2550 55107 TS TANG # INDICATE 1ST PASS THRU VECTOR LOOP.
025735,004670: 32,2551 34756 CA FIVE
025736,004671:
025737,004672: 32,2552 10000 R29DVBEG CCS A # COUNT DOWN BY TWO'S IN VECTOR LOOP.
025738,004673: 32,2553 54002 TS Q
025739,004674: 32,2554 11107 CCS TANG
025740,004675: 32,2555 12563 TCF R29DPAS1 # DO THIS ON 1ST PASS THRU LOOP.
025741,004676:
025742,004677: 32,2556 00006 EXTEND # (A "PASS" HERE MEANS 3 TIMES AROUND).
025743,004678: 32,2557 50002 INDEX Q
025744,004679: 32,2560 31761 DCA LOSVDT/4
025745,004680: 32,2561 50002 INDEX Q
025746,004681: 32,2562 21102 DAS LOSSM # ADVANCE LOS VECTOR 1/2 SECOND.
025747,004682:
025748,004683: 32,2563 00006 R29DPAS1 EXTEND
025749,004684: 32,2564 50002 INDEX Q
025750,004685: 32,2565 31102 DCA LOSSM
025751,004686: 32,2566 50002 INDEX Q # MOVE CURRENT LOS (1ST PASS) OR LOS PRO-
025752,004687: 32,2567 52156 DXCH MPAC +1 # JECTED 1/2 SEC AHEAD (2ND PASS).
025753,004688: 32,2570 11107 CCS TANG
025754,004689: 32,2571 12577 TCF R29DVEND # BUG OUT HERE IN 1ST PASS.
025755,004690:
025756,004691: 32,2572 00006 EXTEND
025757,004692: 32,2573 50002 INDEX Q
025758,004693: 32,2574 31761 DCA LOSVDT/4
025759,004694: 32,2575 50002 INDEX Q
025760,004695: 32,2576 20156 DAS MPAC +1 # PROJECT LOS 1 SECOND AHEAD (2ND PASS).
025761,004696:
025762,004697: 32,2577 10002 R29DVEND CCS Q
025763,004698: 32,2600 12552 TCF R29DVBEG # BRANCH TO CONTINUE VECTOR LOOP.
025764,004699:
025765,004700: # Page 601
025766,004701: # UNITIZE AND TRANSFORM TO NAV BASE AXES THE PRESENT LOS (1ST PASS) OR THE 1-SEC PROJECTED LOS (2ND PASS).
025767,004702:
025768,004703: 32,2601 52156 DXCH MPAC +1
025769,004704: 32,2602 52155 DXCH MPAC
025770,004705: 32,2603 32774 CA R29FXLOC # = ADRES INTB15 + -34D
025771,004706: 32,2604 54120 TS FIXLOC
025772,004707: 32,2605 04713 TC USPRCADR # WITH FIXLOC ARMED FOR LENGTH AND LENGTH
025773,004708: 32,2606 01023 CADR UNIT # SQUARED, BORROW UNITIZING ROUTINE.
025774,004709: 32,2607 07532 TC MPACVBUF # MOVE UNIT(LOS) TO AX*SR*T ARG AREA.
025775,004710:
025776,004711: 32,2610 11107 CCS TANG
025777,004712: 32,2611 12613 TCF +2
025778,004713: 32,2612 12627 TCF GOTANGLS # GET CDU ANGLES ONLY AFTER 1ST PASS.
025779,004714: 32,2613 00004 INHINT # ENSURE CONSISTENT CDU READINGS.
025780,004715: 32,2614 00006 EXTEND
025781,004716: 32,2615 30036 DCA CDUT
025782,004717: 32,2616 53767 DXCH SAVECDUT # TRUNNION AND SHAFT ANGLES.
025783,004718: 32,2617 30033 CA CDUY
025784,004719: 32,2620 54766 TS CDUSPOT
025785,004720: 32,2621 30034 CA CDUZ
025786,004721: 32,2622 54770 TS CDUSPOT +2
025787,004722: 32,2623 30032 CA CDUX
025788,004723: 32,2624 54772 TS CDUSPOT +4 # CDU ANGLES IN FUNNY ORDER FOR AX*SR*T.
025789,004724: 32,2625 04616 TC BANKCALL
025790,004725: 32,2626 47615 CADR QUICTRIG # GET SINES AND COSINES OF CDU ANGLES.
025791,004726:
025792,004727: 32,2627 46245 GOTANGLS CS THREE
025793,004728: 32,2630 04616 TC BANKCALL
025794,004729: 32,2631 47675 CADR AX*SR*T # TRANSFORM UNIT LOS TO NB AXES (ULOSNB).
025795,004730:
025796,004731: 32,2632 11107 CCS TANG
025797,004732: 32,2633 12635 TCF +2
025798,004733: 32,2634 12702 TCF R29DPAS2 # GO TO RR COMMAND COMP. AFTER 2ND PASS.
025799,004734:
025800,004735: # Page 602
025801,004736: # COMPUTE COSINE OF THE ANGLE BETWEEN THE PRESENT LOS AND THE RR BORESIGHT VECTOR, AND SET THE SELFTRACK ENABLE IF
025802,004737: # THE COSINE IS APPROXIMATELY COS(.5 DEG) OR GREATER (I.E., SMALLER ANGLE).
025803,004738:
025804,004739: 32,2635 00004 INHINT
025805,004740: 32,2636 55107 TS TANG # INDICATE 2ND PASS THRU VECTOR LOOP.
025806,004741: 32,2637 31766 CA SAVECDUT
025807,004742: 32,2640 05032 TC SPCOS
025808,004743: 32,2641 54166 TS PUSHLOC # PUSHLOC = COS T.
025809,004744: 32,2642 41766 CS SAVECDUT
025810,004745: 32,2643 05033 TC SPSIN
025811,004746: 32,2644 54163 TS MODE # MODE = -SIN T.
025812,004747: 32,2645 00006 EXTEND
025813,004748: 32,2646 70124 MP VBUF +2 # FORM - SIN T ULOSNBY.
025814,004749: 32,2647 52155 DXCH MPAC
025815,004750: 32,2650 31767 CA SAVECDUT +1
025816,004751: 32,2651 05033 TC SPSIN
025817,004752: 32,2652 55766 TS SAVECDUT # SAVECDUT NOW = SIN S.
025818,004753: 32,2653 00006 EXTEND
025819,004754: 32,2654 70166 MP PUSHLOC
025820,004755: 32,2655 00006 EXTEND
025821,004756: 32,2656 70122 MP VBUF # FORM SIN S COS T ULOSNBX.
025822,004757: 32,2657 20155 DAS MPAC
025823,004758: 32,2660 31767 CA SAVECDUT +1
025824,004759: 32,2661 05032 TC SPCOS
025825,004760: 32,2662 55767 TS SAVECDUT +1 # SAVECDUT +1 NOW = COS S.
025826,004761: 32,2663 00006 EXTEND
025827,004762: 32,2664 70166 MP PUSHLOC
025828,004763: 32,2665 00006 EXTEND
025829,004764: 32,2666 70126 MP VBUF +4 # FORM COS S COS T ULOSNBZ.
025830,004765: 32,2667 20155 DAS MPAC # COS(ERROR) = ULOSNB . (SIN S COS T,
025831,004766: 32,2670 00006 EXTEND # -SIN T, COS S COS T).
025832,004767: 32,2671 30155 DCA MPAC
025833,004768: 32,2672 20155 TESTCOS DAS MPAC # (ULOSNB IN VBUF WAS A HALF-UNIT VECTOR).
025834,004769: 32,2673 10000 CCS A # TEST FOR + OVERFLOW, NONE, OR MINUS.
025835,004770: 32,2674 34736 CA BIT14
025836,004771: 32,2675 12676 NOOP
025837,004772: 32,2676 00006 EXTEND
025838,004773: 32,2677 05012 WOR CHAN12 # IF PLUS OVERFLOW, SET SELFTRACK ENABLE.
025839,004774: 32,2700 00003 RELINT
025840,004775: 32,2701 12551 TCF R29DVBEG -1 # MAKE 2ND PASS THRU VECTOR LOOP.
025841,004776:
025842,004777: # Page 603
025843,004778: # COMPUTE SHAFT AND TRUNNION COMMANDS TO NULL HAVE THE ERROR IN HALF A SECOND.
025844,004779:
025845,004780: 32,2702 31767 R29DPAS2 CA SAVECDUT +1
025846,004781: 32,2703 00006 EXTEND
025847,004782: 32,2704 70122 MP VBUF # FORM COS S ULOSNB'X.
025848,004783: 32,2705 53110 DXCH TANG
025849,004784: 32,2706 41766 CS SAVECDUT
025850,004785: 32,2707 00006 EXTEND
025851,004786: 32,2710 70126 MP VBUF +4 # FORM - SIN S ULOSNB'Z.
025852,004787: 32,2711 21110 DAS TANG # RAW SHAFT CMD = ULOSNB' . (COS S, 0,
025853,004788: 32,2712 40163 CS MODE # - SIN S)
025854,004789: 32,2713 00006 EXTEND
025855,004790: 32,2714 71766 MP SAVECDUT
025856,004791: 32,2715 00006 EXTEND
025857,004792: 32,2716 70122 MP VBUF # FORM SIN T SIN S ULOSNB'X.
025858,004793: 32,2717 52155 DXCH MPAC
025859,004794: 32,2720 30166 CA PUSHLOC
025860,004795: 32,2721 00006 EXTEND
025861,004796: 32,2722 70124 MP VBUF +2 # FORM COS T ULOSNB'Y.
025862,004797: 32,2723 20155 DAS MPAC
025863,004798: 32,2724 40163 CS MODE
025864,004799: 32,2725 00006 EXTEND
025865,004800: 32,2726 71767 MP SAVECDUT +1
025866,004801: 32,2727 00006 EXTEND
025867,004802: 32,2730 70126 MP VBUF +4 # FORM SIN T COS S ULOSNB'Z.
025868,004803: 32,2731 20155 DAS MPAC # RAW TRUNNION CMD = ULOSNB'.
025869,004804: 32,2732 30154 CA MPAC # (SIN S SIN T, COS T, SIN S COS T).
025870,004805: 32,2733 00006 EXTEND
025871,004806: 32,2734 72775 MP RR29GAIN
025872,004807: 32,2735 57107 XCH TANG # STORE REFINED T CMD, GET RAW S CMD.
025873,004808: 32,2736 00006 EXTEND
025874,004809: 32,2737 72775 MP RR29GAIN
025875,004810: 32,2740 55110 TS TANG +1 # STORE REFINED S CMD.
025876,004811:
025877,004812: # Page 604
025878,004813: # WHETHER OR NOT TRACKING WAS ENABLED THIS TIME, CHECK ON RR DATA-GOOD. IF PRESENT, STOP DESIGNATING AND START
025879,004814: # READING DATA FROM THE RENDEZVOUS RADAR.
025880,004815:
025881,004816: 32,2741 34750 DGOOD? CAF BIT4
025882,004817: 32,2742 00006 EXTEND
025883,004818: 32,2743 02033 RAND CHAN33 # GET RR DATA-GOOD BIT.
025884,004819: 32,2744 00004 INHINT # (MAINLY FOR RROUT).
025885,004820: 32,2745 00006 EXTEND
025886,004821: 32,2746 12752 BZF R29LOKON # BRANCH IF DATA-GOOD IS PRESENT.
025887,004822:
025888,004823: 32,2747 04616 TC BANKCALL
025889,004824: 32,2750 52306 CADR RROUT # DATA-GOOD IS ABSENT, SO SEND COMMANDS.
025890,004825: 32,2751 12770 TCF END29DOD
025891,004826:
025892,004827: 32,2752 44742 R29LOKON CS DESIGBIT
025893,004828: 32,2753 70110 MASK RADMODES
025894,004829: 32,2754 54110 TS RADMODES # SHOW THAT DESIGNATION IS OVER.
025895,004830: 32,2755 44752 CS BIT2
025896,004831: 32,2756 00006 EXTEND
025897,004832: 32,2757 03012 WAND CHAN12 # DISABLE RR ERROR COUNTERS.
025898,004833: 32,2760 34743 CA READRBIT
025899,004834: 32,2761 26077 ADS FLAGWRD3 # SHOW THAT READING HAS BEEN REQUESTED.
025900,004835: 32,2762 11056 CCS PIPCTR # SEE IF TASK SHOULD BE OFFSET 1 SEC.
025901,004836: 32,2763 44776 CS SUPER110 # -96D + 100D = 4.
025902,004837: 32,2764 64777 AD 1SEC # 0 + 100D = 100D.
025903,004838: 32,2765 05203 TC WAITLIST
025904,004839: 32,2766 E7,1456 EBANK= LOSCOUNT
025905,004840: 32,2766 03400 50067 2CADR R29READ # START READING TASK AND JOB.
025906,004841:
025907,004842: 32,2770 44740 END29DOD CS LOSCMBIT
025908,004843: 32,2771 70076 MASK FLAGWRD2
025909,004844: 32,2772 54076 TS FLAGWRD2 # ALWAYS CLEAR LOSCMFLG.
025910,004845: 32,2773 15155 TCF ENDOFJOB
025911,004846:
025912,004847: 32,2774 00052 R29FXLOC ADRES INTB15+ -34D
025913,004848: 32,2775 56655 RR29GAIN DEC -.53624
025914,004849: 32,2776 E3,1760 LOSVDT/4 EQUALS LOSVEL
025915,004850: 32,2776 1101 LOSSM EQUALS RRTARGET
025916,004851: 32,2776 E3,1766 SAVECDUT EQUALS MLOSV
025917,004852:
025918,004853: # Page 605
025919,004854: # RR READING IS SET UP BY R29DODES WHEN IT DETECTS RR LOCK-ON
025920,004855:
025921,004856: 24,3400 BANK 24
025922,004857: 24,2000 SETLOC P20S
025923,004858: 24,2000 BANK
025924,004859:
025925,004860: 24,3400 COUNT* $$/R29
025926,004861:
025927,004862: 24,3400 E7,1456 EBANK= LOSCOUNT
025928,004863:
025929,004864: 24,3400 37714 R29READ CAF PRIO26 # CALLED BY WAITLIST
025930,004865: 24,3401 05072 TC NOVAC
025931,004866: 24,3402 E7,1456 EBANK= LOSCOUNT
025932,004867: 24,3402 03413 50067 2CADR R29RDJOB # START JOB TO READ AND DOWNLINK FOR R29.
025933,004868:
025934,004869: 24,3404 35000 CA 2SECS
025935,004870: 24,3405 05224 TC VARDELAY
025936,004871:
025937,004872: 24,3406 30077 CA FLAGWRD3 # 2 SECONDS LATER, SEE IF READING IS STILL
025938,004873: 24,3407 74743 MASK READRBIT # ALLOWED (NO TRACKER FAIL ETC.)
025939,004874: 24,3410 10000 CCS A
025940,004875: 24,3411 13400 TCF R29READ # IT'S OK: CALL IT AGAIN.
025941,004876: 24,3412 15261 TCF TASKOVER # IT AIN'T: WAIT FOR REDESIGNATE.
025942,004877:
025943,004878: 24,3413 30077 R29RDJOB CA FLAGWRD3 # CALLED VIA NOVAC.
025944,004879: 24,3414 74741 MASK NR29FBIT
025945,004880: 24,3415 10000 CCS A # TEST "NOR29FLG".
025946,004881: 24,3416 13475 TCF ENDRRD29 # R29 IS NOW OVER, STOP AT ONCE.
025947,004882:
025948,004883: 24,3417 30110 CA RADMODES
025949,004884: 24,3420 74752 MASK AUTOMBIT
025950,004885: 24,3421 10000 CCS A # TEST RR-NOT-IN-AUTO-MODE BIT.
025951,004886: 24,3422 13475 TCF ENDRRD29 # ASTRO TOOK RR OUT OF AUTO MODE.
025952,004887:
025953,004888: 24,3423 04616 TC BANKCALL
025954,004889: 24,3424 53103 CADR RRRDOT # INITIATE READING OF RANGE RATE.
025955,004890: 24,3425 04616 TC BANKCALL
025956,004891: 24,3426 17714 CADR RADSTALL # GOT TO SLEEP UNTIL IT'S READY.
025957,004892: 24,3427 13475 TCF ENDRRD29 # BAD READ; REDESIGNATE.
025958,004893:
025959,004894: # Page 606
025960,004895: # R29 RADAR READING CONTINUED.
025961,004896:
025962,004897: 24,3430 53106 DXCH TIMEHOLD
025963,004898: 24,3431 52155 DXCH MPAC # TIME OF RR READING, FOR DOWNLINK.
025964,004899: 24,3432 00004 INHINT # BE SURE OF 5 CONSISTENT CDU ANGLES.
025965,004900: 24,3433 00006 EXTEND
025966,004901: 24,3434 30036 DCA CDUT
025967,004902: 24,3435 52157 DXCH MPAC +2 # RRCDU ANGLES AT RR READ, FOR DOWNLINK.
025968,004903: 24,3436 00006 EXTEND
025969,004904: 24,3437 30034 DCA CDUY
025970,004905: 24,3440 52161 DXCH MPAC +4 # MPAC'S 7 WORDS ARE BUFFERED FOR COPYCYCLE.
025971,004906: 24,3441 30032 CA CDUX
025972,004907: 24,3442 54162 TS MPAC +6 # IMUCDU ANGLES AT RR READ, FOR DOWNLINK.
025973,004908:
025974,004909: 24,3443 04616 R29RANGE TC BANKCALL
025975,004910: 24,3444 53105 CADR RRRANGE # INITIATE READING OF RR RANGE.
025976,004911: 24,3445 04616 TC BANKCALL
025977,004912: 24,3446 17714 CADR RADSTALL # GO TO SLEEP UNTIL IT'S READY.
025978,004913: 24,3447 13466 TCF R29RRR? # BAD READ OR SCALE CHANGE ... WHICH?
025979,004914:
025980,004915: 24,3450 00004 INHINT
025981,004916: 24,3451 53334 DXCH DNRRANGE # COPYCYCLE TO LAY OUT NEW R29 DOWNLINK.
025982,004917: 24,3452 53757 DXCH RM
025983,004918: 24,3453 52155 DXCH MPAC
025984,004919: 24,3454 53755 DXCH MKTIME
025985,004920: 24,3455 52157 DXCH MPAC +2
025986,004921: 24,3456 53753 DXCH TANGNB
025987,004922: 24,3457 52161 DXCH MPAC +4
025988,004923: 24,3460 53460 DXCH AIG
025989,004924: 24,3461 30162 CA MPAC +6
025990,004925: 24,3462 55461 TS AOG
025991,004926: 24,3463 34753 CA ONE
025992,004927: 24,3464 55462 TS TRKMKCNT # SHOW THAT DOWNLINK DATA IS CONSISTENT.
025993,004928: 24,3465 15155 TCF ENDOFJOB
025994,004929:
025995,004930: 24,3466 40101 R29RRR? CS FLAGWRD5
025996,004931: 24,3467 74742 MASK BIT10
025997,004932: 24,3470 10000 CCS A # WAS IT A SCALE CHANGE (REAL OR PHONY)?
025998,004933: 24,3471 13475 TCF ENDRRD29 # NO, A BAD READ; REDESIGNATE.
025999,004934: 24,3472 05516 TC DOWNFLAG
026000,004935: 24,3473 00120 ADRES RNGSCFLG
026001,004936: 24,3474 13443 TCF R29RANGE # YES; CLEAR FLAG AND READ AGAIN.
026002,004937:
026003,004938: 24,3475 34755 ENDRRD29 CA ZERO # TROUBLE MADE US COME HERE TO LEAVE THE
026004,004939: 24,3476 55462 TS TRKMKCNT # RR-READING MODE. DISCREDIT DOWNTEL.
026005,004940: 24,3477 05516 TC DOWNFLAG
026006,004941: 24,3500 00063 ADRES READRFLG
026007,004942: 24,3501 44736 CS BIT14
026008,004943: 24,3502 00006 EXTEND
026009,004944: # Page 607
026010,004945: 24,3503 03012 WAND CHAN12 # REMOVE TRACK-ENABLE DISCRETE.
026011,004946: 24,3504 15155 TCF ENDOFJOB
026012,004947:
026013,004948: # Page 608
026014,004949: # W-MATRIX MONITOR
026015,004950:
026016,004951: 31,2007 BANK 31
026017,004952: 31,2000 SETLOC VB67
026018,004953: 31,2000 BANK
026019,004954: 31,2007 COUNT* $$/EXTVB
026020,004955:
026021,004956: 31,2007 E4,1600 EBANK= WWPOS
026022,004957:
026023,004958: 31,2007 06037 V67CALL TC INTPRET
026024,004959: 31,2010 77624 CALL
026025,004960: 31,2011 62120 V67WW
026026,004961: 31,2012 77776 EXIT
026027,004962: 31,2013 00006 EXTEND # SAVE THE PRESENT N99 VALUES FOR
026028,004963: 31,2014 31601 DCA WWPOS # COMPARISON AFTER THE DISPLAY
026029,004964: 31,2015 53607 DXCH WWBIAS +2
026030,004965: 31,2016 00006 EXTEND
026031,004966: 31,2017 31603 DCA WWVEL
026032,004967: 31,2020 53611 DXCH WWBIAS +4
026033,004968: 31,2021 00006 EXTEND
026034,004969: 31,2022 31605 DCA WWBIAS
026035,004970: 31,2023 53613 DXCH WWBIAS +6
026036,004971: 31,2024 32143 V06N99DS CAF V06N99
026037,004972: 31,2025 04616 TC BANKCALL
026038,004973: 31,2026 20334 CADR GOXDSPF
026039,004974: 31,2027 15472 TCF ENDEXT
026040,004975: 31,2030 12032 TCF V6N99PRO
026041,004976: 31,2031 12024 TCF V06N99DS
026042,004977: 31,2032 22007 V6N99PRO ZL
026043,004978: 31,2033 34756 CA FIVE
026044,004979: 31,2034 54002 N99LOOP TS Q
026045,004980: 31,2035 50002 INDEX Q
026046,004981: 31,2036 41600 CS WWPOS
026047,004982: 31,2037 50002 INDEX Q
026048,004983: 31,2040 61606 AD WWPOS +6
026049,004984: 31,2041 26001 ADS L
026050,004985: 31,2042 10002 CCS Q # THE SUM OF ALL DIFFERENCES MUST BE ZERO.
026051,004986: 31,2043 12034 TCF N99LOOP
026052,004987: 31,2044 22000 LXCH A
026053,004988: 31,2045 00006 EXTEND
026054,004989: 31,2046 12051 BZF V06N9933
026055,004990: 31,2047 05504 TC UPFLAG
026056,004991: 31,2050 00160 ADRES V67FLAG
026057,004992:
026058,004993: 31,2051 06037 V06N9933 TC INTPRET
026059,004994: 31,2052 77414 BON EXIT
026060,004995: 31,2053 03707 V67FLAG
026061,004996: 31,2054 62056 +2
026062,004997: 31,2055 15472 TCF ENDEXT
026063,004998: 31,2056 77745 DLOAD
026064,004999: # Page 609
026065,005000: 31,2057 02201 WWPOS
026066,005001: 31,2060 72412 SL4 SL1
026067,005002: 31,2061 14001 STODL 0D
026068,005003: 31,2062 02203 WWVEL
026069,005004: 31,2063 14003 STODL 2D
026070,005005: 31,2064 02205 WWBIAS
026071,005006: 31,2065 77661 SL # SHIFT FROM NOUN SCALING (B-5) TO
026072,005007: 31,2066 20213 10D # INTERNAL SCALING (B+5)
026073,005008: 31,2067 00005 STORE 4D
026074,005009: 31,2070 72014 BON LXA,1
026075,005010: 31,2071 04307 SURFFLAG
026076,005011: 31,2072 62102 V67SURF
026077,005012: 31,2073 00000 0D
026078,005013: 31,2074 72130 SXA,1 LXA,1
026079,005014: 31,2075 02000 WRENDPOS
026080,005015: 31,2076 00002 2D
026081,005016: 31,2077 52130 SXA,1 GOTO
026082,005017: 31,2100 02001 WRENDVEL
026083,005018: 31,2101 62110 V67CLRF
026084,005019: 31,2102 66150 V67SURF LXA,1 SXA,1
026085,005020: 31,2103 00000 0D
026086,005021: 31,2104 02006 WSURFPOS
026087,005022: 31,2105 66150 LXA,1 SXA,1
026088,005023: 31,2106 00002 2D
026089,005024: 31,2107 02007 WSURFVEL
026090,005025: 31,2110 66150 V67CLRF LXA,1 SXA,1
026091,005026: 31,2111 00004 4D
026092,005027: 31,2112 02003 WTRUN
026093,005028: 31,2113 77730 SXA,1
026094,005029: 31,2114 02002 WSHAFT
026095,005030: 31,2115 77414 CLEAR EXIT
026096,005031: 31,2116 02676 RENDWFLG
026097,005032: 31,2117 15472 TCF ENDEXT
026098,005033: 31,2120 40020 V67WW STQ BOV
026099,005034: 31,2121 00051 S2
026100,005035: 31,2122 62123 +1
026101,005036: 31,2123 45014 CLEAR CALL
026102,005037: 31,2124 03667 V67FLAG
026103,005038: 31,2125 27414 INTSTALL
026104,005039: 31,2126 71331 SSP DLOAD
026105,005040: 31,2127 00051 S1
026106,005041: 31,2130 00006 DEC 6 B-14
026107,005042: 31,2131 06522 ZEROVECS
026108,005043: 31,2132 02201 STORE WWPOS
026109,005044: 31,2133 02203 STORE WWVEL
026110,005045: 31,2134 02205 STORE WWBIAS
026111,005046: 31,2135 77770 AXT,1
026112,005047: 31,2136 00066 DEC 54 B-14
026113,005048: 31,2137 47573 NXPOSVEL VLOAD* VSQ
026114,005049: 31,2140 02467 W +54D,1
026115,005050: # Page 610
026116,005051: 31,2141 77650 GOTO
026117,005052: 31,2142 60002 ADDPOS
026118,005053: 31,2143 01543 V06N99 VN 0699
026119,005054:
026120,005055: 30,2000 SETLOC VB67A
026121,005056: 30,2000 BANK
026122,005057: 30,2002 COUNT* $$/EXTVB
026123,005058:
026124,005059: 30,2002 77615 ADDPOS DAD
026125,005060: 30,2003 02201 WWPOS
026126,005061: 30,2004 02201 STORE WWPOS
026127,005062: 30,2005 47573 VLOAD* VSQ
026128,005063: 30,2006 02555 W +108D,1
026129,005064: 30,2007 77615 DAD
026130,005065: 30,2010 02203 WWVEL
026131,005066: 30,2011 02203 STORE WWVEL
026132,005067: 30,2012 47573 VLOAD* VSQ
026133,005068: 30,2013 02643 W +162D,1
026134,005069: 30,2014 77615 DAD
026135,005070: 30,2015 02205 WWBIAS
026136,005071: 30,2016 02205 STORE WWBIAS
026137,005072: 30,2017 75500 TIX,1 SQRT
026138,005073: 30,2020 62137 NXPOSVEL
026139,005074: 30,2021 77661 SR # SHIFT FROM INTERNAL SCALING (B+5) TO
026140,005075: 30,2022 20613 10D # NOUN SCALING (B-5)
026141,005076: 30,2023 16205 STODL WWBIAS
026142,005077: 30,2024 02203 WWVEL
026143,005078: 30,2025 77766 SQRT
026144,005079: 30,2026 16203 STODL WWVEL
026145,005080: 30,2027 02201 WWPOS
026146,005081: 30,2030 77766 SQRT
026147,005082: 30,2031 02201 STORE WWPOS
026148,005083: 30,2032 52000 BOV GOTO
026149,005084: 30,2033 60035 +2
026150,005085: 30,2034 60042 V67XXX
026151,005086: 30,2035 77745 DLOAD
026152,005087: 30,2036 06530 DPPOSMAX
026153,005088: 30,2037 02201 STORE WWPOS
026154,005089: 30,2040 02203 STORE WWVEL
026155,005090: 30,2041 02205 STORE WWBIAS
026156,005091: 30,2042 45345 V67XXX DLOAD DSU
026157,005092: 30,2043 02201 WWPOS
026158,005093: 30,2044 20060 FT99999
026159,005094: 30,2045 71240 BMN DLOAD
026160,005095: 30,2046 60051 +3
026161,005096: 30,2047 20060 FT99999
026162,005097: 30,2050 02201 STORE WWPOS
026163,005098: 30,2051 66150 LXA,1 SXA,1
026164,005099: 30,2052 00051 S2
026165,005100: 30,2053 00052 QPRET
026166,005101: # Page 611
026167,005102: 30,2054 77776 EXIT
026168,005103: 30,2055 04635 TC POSTJUMP
026169,005104: 30,2056 27425 CADR INTWAKE
026170,005105:
026171,005106: 30,2057 01670 17000 FT99999 2DEC 30479 B-19
026172,005107:
026173,005108: # Page 612
026174,005109: 25,3607 BANK 25
026175,005110: 25,2000 SETLOC RADARUPT
026176,005111: 25,2000 BANK
026177,005112: 25,3607 COUNT* $$/RRUPT
026178,005113:
026179,005114: 25,3607 E7,1456 EBANK= LOSCOUNT
026180,005115:
026181,005116: 25,3607 34753 R12LITES CA ONE
026182,005117: 25,3610 71303 MASK IMODES33
026183,005118: 25,3611 10000 CCS A
026184,005119: 25,3612 14707 TCF ISWRETRN
026185,005120:
026186,005121: 25,3613 03630 TC HLIGHT
026187,005122: 25,3614 03625 TC HLIGHT -3
026188,005123: 25,3615 14707 TCF ISWRETRN
026189,005124:
026190,005125: 25,3616 34753 RADLITES CA BIT1
026191,005126: 25,3617 71303 MASK IMODES33
026192,005127: 25,3620 10000 CCS A
026193,005128: 25,3621 00002 TC Q
026194,005129:
026195,005130: 25,3622 44747 CS BIT5
026196,005131: 25,3623 60061 AD ITEMP1
026197,005132: 25,3624 10000 CCS A
026198,005133: 25,3625 44753 CS ONE
026199,005134: 25,3626 13664 TCF VLIGHT
026200,005135:
026201,005136: 25,3627 14570 TCF RRTRKF
026202,005137:
026203,005138: 25,3630 54065 HLIGHT TS ITEMP5 # ZERO ITEMP5 FOR H INDEX
026204,005139:
026205,005140: 25,3631 34747 CA HLITE
026206,005141: 25,3632 54001 TS L
026207,005142:
026208,005143: 25,3633 30107 CA FLGWRD11
026209,005144: 25,3634 74751 MASK SCABBIT
026210,005145: 25,3635 10000 CCS A
026211,005146: 25,3636 13656 TCF ONLITES
026212,005147: 25,3637 34747 CA LRALTBIT
026213,005148: 25,3640 70110 BOTHLITS MASK RADMODES
026214,005149: 25,3641 10000 CCS A
026215,005150: 25,3642 13656 TCF ONLITES
026216,005151:
026217,005152: 25,3643 30107 CA FLGWRD11
026218,005153: 25,3644 50065 INDEX ITEMP5
026219,005154: 25,3645 74753 MASK HFLSHBIT
026220,005155: 25,3646 10000 CCS A
026221,005156: 25,3647 14570 TCF RRTRKF
026222,005157: # Page 613
026223,005158: 25,3650 00006 LITIT EXTEND
026224,005159: 25,3651 22066 QXCH ITEMP6
026225,005160: 25,3652 04602 TC TRKFLON +1
026226,005161:
026227,005162: 25,3653 00006 EXTEND
026228,005163: 25,3654 22066 QXCH ITEMP6
026229,005164: 25,3655 14570 TCF RRTRKF
026230,005165:
026231,005166:
026232,005167: 25,3656 50065 ONLITES INDEX ITEMP5
026233,005168: 25,3657 44753 CS HFLSHBIT
026234,005169: 25,3660 70107 MASK FLGWRD11
026235,005170: 25,3661 54107 TS FLGWRD11
026236,005171:
026237,005172: 25,3662 30001 CA L
026238,005173: 25,3663 13650 TCF LITIT
026239,005174: 25,3664 54065 VLIGHT TS ITEMP5
026240,005175: 25,3665 34751 CA VLITE
026241,005176: 25,3666 54001 TS L
026242,005177: 25,3667 34744 CA BIT8
026243,005178: 25,3670 13640 TCF BOTHLITS
026244,005179:
026245,005180: 25,3671 4747 HLITE EQUALS BIT5
026246,005181: 25,3671 4751 VLITE EQUALS BIT3
026247,005182:
026248,005183: # *** END OF LEMP20S .127 ***
End of include-file P20-P25.agc. Parent file is MAIN.agc