Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
022422,000002: ## Copyright: Public domain.
022423,000003: ## Filename: P20-P25.agc
022424,000004: ## Filename: P20-P25.agc
022425,000005: ## Purpose: A section of Luminary revision 210.
022426,000006: ## It is part of the source code for the Lunar Module's (LM)
022427,000007: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
022428,000008: ## This file is intended to be a faithful transcription, except
022429,000009: ## that the code format has been changed to conform to the
022430,000010: ## requirements of the yaYUL assembler rather than the
022431,000011: ## original YUL assembler.
022432,000012: ## Reference: pp. 507-619
022433,000013: ## Assembler: yaYUL
022434,000014: ## Contact: Ron Burkey <info@sandroid.org>.
022435,000015: ## Website: www.ibiblio.org/apollo/index.html
022436,000016: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
022437,000017: ## 2016-11-23 MAS Began transcription.
022438,000018: ## 2016-11-27 MAS Completed transcription. Largely the same, but RR handling was
022439,000019: ## rewritten, and there are other small changes here and there.
022440,000020: ## 2016-11-28 HG Fix operand P20S23 --> P20S3
022441,000021: ## RENRAD --> RENDRAD
022442,000022: ## 2016-12-07 HG Fix P00 -> POO
022443,000023: ## Change POO -> P00 in some comments
022444,000024: ## 2016-12-11 HG fix operator BZF -> BZMF
022445,000025: ## 2016-12-12 MAS Corrected a TCF that should have been a BZF.
022446,000026: ## 2016-12-25 RSB Comment-text proofed using ProoferComments
022447,000027: ## and corrected errors found.
022448,000028: ## 2017-01-28 RSB WTIH -> WITH.
022449,000029: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
022450,000030:
|
|
Page 507 |
022452,000032: # RENDEZVOUS NAVIGATION PROGRAM 20
022453,000033: # PROGRAM DESCRIPTION
022454,000034: # MOD NO - 2
022455,000035: # BY P. VOLANTE
022456,000036: # FUNCTIONAL DESCRIPTION
022457,000037:
022458,000038: # THE PURPOSE OF THIS PROGRAM IS TO CONTROL THE RENDEZVOUS RADAR FROM
022459,000039: # STARTUP THROUGH ACQUISITION AND LOCKON TO THE CSM AND TO UPDATE EITHER
022460,000040: # THE LM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY DSKY ENTRY)
022461,000041: # ON THE BASIS OF THE RR TRACKING DATA.
022462,000042: # CALLING SEQUENCE -
022463,000043:
022464,000044: # ASTRONAUT REQUEST THROUGH DSKY V37E20E
022465,000045: # SUBROUTINES CALLED
022466,000046: # R02BOTH (IMU STATUS CHECK) FLAGUP
022467,000047: # GOFLASH (PINBALL-DISPLAY) FLAGDOWN
022468,000048: # R23LEM (MANUAL ACQUISITION) BANKCALL
022469,000049: # LS201 (LOS DETERMINATION) TASKOVER
022470,000050: # LS202 (RANGE LIMIT TEST)
022471,000051: # R61LEM (PREFERRED TRACKING ATTITUDE)
022472,000052: # R21LEM (RR DESIGNATE) ENDOFJOB
022473,000053: # R22LEM (DATA READ) GOPERF1
022474,000054: # R31LEM (RENDEZVOUS PARAMETER DISPLAY)
022475,000055: # PRIOLARM (PRIORITY DISPLAY)
022476,000056: # NORMAL EXIT MODES-
022477,000057: # P20 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
022478,000058: # PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
022479,000059: # ALARM OR ABORT EXIT MODES-
022480,000060: # RANGE GREATER THAN 400 NM DISPLAY
022481,000061: # OUTPUT
022482,000062: # TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
022483,000063: # ERASABLE INITIALIZATION REQUIRED
022484,000064: # FLAGS SET + RESET
022485,000065: # SRCHOPT,RNDVZFLG,ACMODFLG,VEHUPFLG,UPDATFLG,TRACKFLG,
022486,000066: # DEBRIS
022487,000067: # CENTRALS-A,Q,L
022488,000068: 25,2053 30,2000 SBANK= LOWSUPER # FOR LOW 2CADR'S.
022489,000069:
022490,000070: 33,2113 BANK 33
022491,000071: 24,2000 SETLOC P20S
022492,000072: 24,2000 BANK
022493,000073:
022494,000074: 24,2000 E7,1456 EBANK= LOSCOUNT
022495,000075: 24,2000 COUNT* $$/P20
022496,000076: 24,2000 24,2000 PROG22 = PROG20
022497,000077: 24,2000 05331 PROG20 TC 2PHSCHNG
022498,000078: 24,2001 00004 OCT 4
022499,000079: 24,2002 05022 OCT 05022
022500,000080: 24,2003 26000 OCT 26000 # PRIORITY 26
022501,000081: 24,2004 02751 TC LUNSFCHK # CHECK IF ON LUNAR SURFACE
|
|
Page 508 |
022503,000083: 24,2005 02007 TC ORBCHGO # YES
022504,000084: 24,2006 02036 TC PROG20A -2 # NO - CONTINUE WITH P20
022505,000085: 24,2007 05506 ORBCHGO TC UPFLAG # SET VEHUPFLG - CSM STATE
022506,000086: 24,2010 00026 ADRES VEHUPFLG # VECTOR TO BE UPDATED
022507,000087: 24,2011 34744 CAF ONE # SET R2 FOR OPTION CSM WILL NOT
022508,000088: 24,2012 55144 TS OPTION2 # CHANGE PRESENT ORBIT
022509,000089: 24,2013 34354 CAF OCT00012
022510,000090: 24,2014 04607 TC BANKCALL # DISPLAY ASSUMED CSM ORBIT OPTION
022511,000091: 24,2015 20645 CADR GOPERF4
022512,000092: 24,2016 06001 TC GOTOPOOH # TERMINATE
022513,000093: 24,2017 02021 TC ORBCHG1 # PROCEED VALUE OF ASSUMED OPTION OK
022514,000094: 24,2020 02013 TC -5 # R2 LOADED THRU DSKY
022515,000095: 24,2021 44744 ORBCHG1 CS ONE
022516,000096: 24,2022 61144 AD OPTION2
022517,000097: 24,2023 00006 EXTEND
022518,000098: 24,2024 12040 BZF PROG20A
022519,000099: 24,2025 32367 CAF V06N33*
022520,000100: 24,2026 04607 TC BANKCALL # FLASH VERB-NOUN TO REQUEST ESTIMATED
022521,000101: 24,2027 20471 CADR GOFLASH # TIME OF LAUNCH
022522,000102: 24,2030 06001 TC GOTOPOOH # TERMINATE
022523,000103: 24,2031 02033 TC ORBCHG2 # PROCEED VALUES OK
022524,000104: 24,2032 02025 TC -5 # TIME LOADED THRU DSKY
022525,000105: 24,2033 06060 ORBCHG2 TC INTPRET
022526,000106: 24,2034 77650 GOTO
022527,000107: 24,2035 64213 ORBCHG3
022528,000108: 32,2213 BANK 32
022529,000109: 32,2000 SETLOC P20S4
022530,000110: 32,2000 BANK
022531,000111: 32,2213 COUNT* $$/P20
022532,000112:
022533,000113: 32,2213 77624 ORBCHG3 CALL
022534,000114: 32,2214 27447 INTSTALL
022535,000115: 32,2215 77745 DLOAD
022536,000116: 32,2216 03442 TIG
022537,000117: 32,2217 03661 STORE LNCHTM
022538,000118: 32,2220 00041 STORE TDEC1 # ESTIMATED LAUNCH TIME
022539,000119: 32,2221 43014 CLEAR CLEAR
022540,000120: 32,2222 01674 VINTFLAG # LM INTEGRATION
022541,000121: 32,2223 01673 INTYPFLG # PRECISION - ENCKE
022542,000122: 32,2224 43014 CLEAR CLEAR
022543,000123: 32,2225 01676 DIM0FLAG # NO W-MATRIX
022544,000124: 32,2226 01675 D6OR9FLG
022545,000125: 32,2227 77624 CALL
022546,000126: 32,2230 27172 INTEGRV # PLANETARY INERTIAL ORIENTATION
022547,000127: 32,2231 77624 CALL
022548,000128: 32,2232 51770 GRP2PC
022549,000129: 32,2233 77775 VLOAD
022550,000130: 32,2234 00017 RATT1
022551,000131: 32,2235 17631 STODL RSUBL # SAVE LM POSITION
022552,000132: 32,2236 00015 TAT
|
|
Page 509 |
022554,000134: 32,2237 34041 STCALL TDEC1
022555,000135: 32,2240 27447 INTSTALL
022556,000136: 32,2241 43014 SET CLEAR
022557,000137: 32,2242 01474 VINTFLAG # CSM INTEGRATION
022558,000138: 32,2243 01673 INTYPFLG
022559,000139: 32,2244 43014 CLEAR BOFF
022560,000140: 32,2245 01676 DIM0FLAG
022561,000141: 32,2246 02756 RENDWFLG # W MATRIX VALID
022562,000142: 32,2247 64253 NOWMATX # NO
022563,000143: 32,2250 43014 SET SET # YES - SET FOR W MATRIX
022564,000144: 32,2251 01476 DIM0FLAG
022565,000145: 32,2252 01475 D6OR9FLG
022566,000146: 32,2253 77624 NOWMATX CALL
022567,000147: 32,2254 27172 INTEGRV # CSM INTEGRATION
022568,000148: 32,2255 77624 CALL
022569,000149: 32,2256 51770 GRP2PC
022570,000150: 32,2257 77775 VLOAD
022571,000151: 32,2260 00025 VATT1
022572,000152: 32,2261 25757 STOVL VSUBC # SAVE CSM VELOCITY
022573,000153: 32,2262 00017 RATT1
022574,000154: 32,2263 01101 STORE RSUBC # SAVE CSM POSITION
022575,000155: 32,2264 53435 VXV UNIT # COMPUTE NORMAL TO CSM ORBITAL PLANE
022576,000156: 32,2265 01757 VSUBC # NSUB1=UNIT(R(CM) CROSS V(CM)
022577,000157: 32,2266 24025 STOVL 20D # SAVE NSUB1
022578,000158: 32,2267 03631 RSUBL # COMPUTE ESTIMATED ORBITAL
022579,000159: 32,2270 53435 VXV UNIT # PLANE CHANGE
022580,000160: 32,2271 00025 20D # UCSM = UNIT(R(LM) CROSS NSUB1)
022581,000161: 32,2272 27637 STOVL UCSM
022582,000162: 32,2273 01101 RSUBC # COMPUTE ANGLE BETWEEN UCSM
022583,000163: 32,2274 50256 UNIT DOT # AND RSUBC
022584,000164: 32,2275 03637 UCSM # COS A = UCSM DOT UNIT (R(CM))
022585,000165: 32,2276 77752 SL1
022586,000166: 32,2277 02732 STORE CSTH # SAVE DOE TIME-THETA SUBROUTINE
022587,000167: 32,2300 44316 DSQ BDSU # COMPUTE SINE A
022588,000168: 32,2301 06475 ONEB-2
022589,000169: 32,2302 77766 SQRT
022590,000170: 32,2303 26730 STOVL SNTH # SAVE FOR TIME-THETA SUBROUTINE
022591,000171: 32,2304 01101 RSUBC # POSITION OF CSM AT EST. LAUNCH
022592,000172: 32,2305 26655 STOVL RVEC # TIME FOR TIME-THETA B-27
022593,000173: 32,2306 01757 VSUBC # VELOCITY OF CSM AT EST. LAUNCH
022594,000174: 32,2307 77676 VCOMP
022595,000175: 32,2310 02744 STORE VVEC # TIME FOR TIME THETA B-5
022596,000176: 32,2311 45014 CLEAR CALL
022597,000177: 32,2312 03666 RVSW
022598,000178: 32,2313 24732 TIMETHET
022599,000179: 32,2314 77676 VCOMP
022600,000180: 32,2315 03645 STORE NEWVEL # TERMINAL VELOCITY OF CSM
022601,000181: 32,2316 77745 DLOAD
022602,000182: 32,2317 00037 T
022603,000183: 32,2320 27663 STOVL TRANSTM # TRANSFER TIME
|
|
Page 510 |
022605,000185: 32,2321 03645 NEWVEL
022606,000186: 32,2322 77646 ABVAL
022607,000187: 32,2323 24025 STOVL 20D
022608,000188: 32,2324 00001 0D
022609,000189: 32,2325 03653 STORE NEWPOS # TERMINAL POSITION OF CSM
022610,000190: 32,2326 53435 VXV UNIT # COMPUTE NORMAL TO CSM ORBITAL PLANE
022611,000191: 32,2327 03631 RSUBL # NSUB2 = UNIT(NEWPOS CROSS R(LM))
022612,000192: 32,2330 53435 VXV UNIT # ROTATE TERMINAL VEL INTO DESIRED
022613,000193: 32,2331 03653 NEWPOS # ORBITAL PLANE
022614,000194: 32,2332 76561 VXSC VSL1 # VSUBC = ABVAL(NEWVEL) $ UNIT( NSUB2
022615,000195: 32,2333 00025 20D
022616,000196: 32,2334 37665 STCALL NCSMVEL # NEW CSM VELOCITY
022617,000197: 32,2335 51770 GRP2PC
022618,000198: 32,2336 77624 CALL
022619,000199: 32,2337 27447 INTSTALL
022620,000200: 32,2340 44345 DLOAD BDSU
022621,000201: 32,2341 03663 TRANSTM # LAUNCH TIME - TRANSFER TIME
022622,000202: 32,2342 03661 LNCHTM
022623,000203: 32,2343 25517 STOVL TET
022624,000204: 32,2344 03653 NEWPOS
022625,000205: 32,2345 01535 STORE RCV
022626,000206: 32,2346 25503 STOVL RRECT
022627,000207: 32,2347 03665 NCSMVEL
022628,000208: 32,2350 35511 STCALL VRECT
022629,000209: 32,2351 27734 MINIRECT
022630,000210: 32,2352 45174 AXT,2 CALL
022631,000211: 32,2353 00002 2
022632,000212: 32,2354 26717 ATOPCSM
022633,000213: 32,2355 77624 CALL
022634,000214: 32,2356 27456 INTWAKE0
022635,000215: 32,2357 77776 EXIT
022636,000216: 32,2360 04607 TC BANKCALL
022637,000217: 32,2361 50040 CADR PROG20A
022638,000218: 24,2036 BANK 24
022639,000219: 24,2000 SETLOC P20S
022640,000220: 24,2000 BANK
022641,000221: 24,2036 COUNT* $$/P20
022642,000222:
022643,000223: 24,2036 05520 TC DOWNFLAG # RESET VEHUPFLG- LM STATE VECTOR
022644,000224: 24,2037 00026 ADRES VEHUPFLG # TO BE UPDATED
022645,000225: 24,2040 04607 PROG20A TC BANKCALL
022646,000226: 24,2041 33757 CADR R02BOTH
022647,000227: 24,2042 05506 TC UPFLAG
022648,000228: 24,2043 00027 ADRES UPDATFLG # SET UPDATE FLAG
022649,000229: 24,2044 05506 TC UPFLAG
022650,000230: 24,2045 00031 ADRES TRACKFLG # SET TRACK FLAG
022651,000231: 24,2046 05506 TC UPFLAG
022652,000232: 24,2047 00010 ADRES RNDVZFLG # SET RENDEZVOUS FLAG
022653,000233: 24,2050 05520 TC DOWNFLAG
022654,000234: 24,2051 00037 ADRES SRCHOPTN # INSURE SEARCH OPTION OFF
|
|
Page 511 |
022656,000236: 24,2052 05520 TC DOWNFLAG # ALSO MANUAL ACQUISITION FLAG RESET
022657,000237: 24,2053 00040 ADRES ACMODFLG
022658,000238: 24,2054 05520 TC DOWNFLAG # TURN OFF R04FLAG TO ENSURE GETTING
022659,000239: 24,2055 00063 ADRES R04FLAG # ALARM 521 IF CANT READ RADAR
022660,000240: 24,2056 05520 TC DOWNFLAG # ENSURE R25 GIMBAL MONITOR IS ENABLED
022661,000241: 24,2057 00126 ADRES NORRMON # (RESET NORRMON FLAG)
022662,000242: 24,2060 05520 TC DOWNFLAG # RESET LOS BEING COMPUTED FLAG
022663,000243: 24,2061 00041 ADRES LOSCMFLG
022664,000244: 24,2062 06032 TC CLRADMD1
022665,000245: 24,2063 05506 TC UPFLAG
022666,000246: 24,2064 00005 ADRES FSPASFLG # SET FIRST PASS FLAG FOR ALARM
022667,000247: 24,2065 05355 P20LEM1 TC PHASCHNG
022668,000248: 24,2066 04022 OCT 04022
022669,000249: 24,2067 34746 CAF ZERO # ZERO MARK COUNTER
022670,000250: 24,2070 55462 TS MARKCTR
022671,000251: 24,2071 06060 P20LEM2 TC INTPRET # LOS DETERMINATION ROUTINE
022672,000252: 24,2072 77634 RTB
022673,000253: 24,2073 21603 LOADTIME
022674,000254: 24,2074 34041 STCALL TDEC1
022675,000255: 24,2075 51337 LPS20.1
022676,000256: 24,2076 77624 CALL
022677,000257: 24,2077 53626 LPS20.2 # TEST RANGE R/UTINE
022678,000258: 24,2100 77776 EXIT
022679,000259: 24,2101 50154 INDEX MPAC
022680,000260: 24,2102 02103 TC +1
022681,000261: 24,2103 02167 TC P20LEMA # NORMAL RETURN WITHIN 400 N M
022682,000262: 24,2104 06060 526ALARM TC INTPRET
022683,000263: 24,2105 53575 VLOAD UNIT
022684,000264: 24,2106 00025 RRANGE
022685,000265: 24,2107 72441 DOT SL1
022686,000266: 24,2110 00017 VELLOS
022687,000267: 24,2111 16216 STODL RRATE # RANGE RATE FOR NOUN 54 B-7
022688,000268: 24,2112 00045 36D
022689,000269: 24,2113 51025 DSU BPL # IF RANGE>999.99,DISPLAY 999.99
022690,000270: 24,2114 10372 999.99NM
022691,000271: 24,2115 50142 TOOBIG
022692,000272: 24,2116 77745 DLOAD
022693,000273: 24,2117 00045 36D
022694,000274: 24,2120 16214 526ALRM1 STODL RANGE # RANGE FOR NOUN 54 B-29
022695,000275: 24,2121 06505 ZEROVECS
022696,000276: 24,2122 02220 STORE RTHETA # ZERO THETA FOR NOUN 54
022697,000277: 24,2123 43014 BOFF BOFF
022698,000278: 24,2124 00345 FSPASFLG # FIRST PASS
022699,000279: 24,2125 50155 P20LEMC5 # NO
022700,000280: 24,2126 04347 SURFFLAG # ON LUNAR SURFACE
022701,000281: 24,2127 50147 ALRMLT # NO
022702,000282: 24,2130 51145 DLOAD BPL
022703,000283: 24,2131 02216 RRATE
022704,000284: 24,2132 50145 ENDRN
022705,000285: 24,2133 77776 EXIT # YES
022706,000286:
|
|
Page 512 |
022708,000288: 24,2134 05355 TC PHASCHNG # IN CASE OF RESTART
022709,000289: 24,2135 04022 OCT 04022 # REACTIVATE DISPLAY
022710,000290: 24,2136 32373 CAF V16N5420
022711,000291: 24,2137 04607 TC BANKCALL # TURN ON V16N54 - DISPLAY
022712,000292: 24,2140 20444 CADR GODSPR # RANGE AND RANGE RATE
022713,000293: 24,2141 02156 TC P20LEM5
022714,000294:
022715,000295:
022716,000296: 24,2142 52145 TOOBIG DLOAD GOTO
022717,000297: 24,2143 10372 999.99NM
022718,000298: 24,2144 50120 526ALRM1
022719,000299:
022720,000300: 24,2145 77776 ENDRN EXIT
022721,000301: 24,2146 06043 TC GOTOV56
022722,000302:
022723,000303: 24,2147 77776 ALRMLT EXIT
022724,000304: 24,2150 05355 TC PHASCHNG
022725,000305: 24,2151 04022 OCT 04022
022726,000306: 24,2152 05571 TC ALARM # TURN ON ALARM LIGHT P20
022727,000307: 24,2153 00526 OCT 526
022728,000308: 24,2154 02156 TC P20LEM5
022729,000309: 24,2155 77776 P20LEMC5 EXIT
022730,000310: 24,2156 05520 P20LEM5 TC DOWNFLAG
022731,000311: 24,2157 00005 ADRES FSPASFLG
022732,000312: 24,2160 32370 CAF 500DEC # WAIT 5SECS
022733,000313: 24,2161 04607 TC BANKCALL
022734,000314: 24,2162 01736 CADR DELAYJOB
022735,000315: 24,2163 02071 TC P20LEM2
022736,000316:
022737,000317:
022738,000318: 24,2164 04607 P20LEM3 TC BANKCALL
022739,000319: 24,2165 20451 CADR CLEANDSP
022740,000320:
022741,000321:
022742,000322: 24,2166 02175 TC P20LEMB
022743,000323: 24,2167 05355 P20LEMA TC PHASCHNG
022744,000324: 24,2170 04022 OCT 04022
022745,000325: 24,2171 02751 TC LUNSFCHK # CHECK LUNAR SURFACE FLAG (P22 FLAG)
022746,000326: 24,2172 02164 TC P20LEM3
022747,000327: 24,2173 04607 TC BANKCALL
022748,000328: 24,2174 46116 CADR R61LEM # PREFERRED TRACKING ATTITUDE ROUTINE
022749,000329: 24,2175 05355 P20LEMB TC PHASCHNG
022750,000330: 24,2176 05022 OCT 05022 # RESTART AT PRIORITY 10 TO ALLOW V37
022751,000331: 24,2177 10000 OCT 10000 # REQUESTED PROGRAM TO RUN FIRST
022752,000332: 24,2200 37735 CAF PRIO26 # RESTORE PRIORITY 26
022753,000333: 24,2201 05137 TC PRIOCHNG
022754,000334: 24,2202 30075 CA FLAGWRD1 # IS THE TRACK FLAG SET
022755,000335: 24,2203 74740 MASK TRACKBIT
022756,000336: 24,2204 00006 EXTEND
022757,000337: 24,2205 12310 BZF P20LEMWT # BRANCH - NO - WAIT FOR IT TO BE SET
022758,000338:
|
|
Page 513 |
022760,000340: 24,2206 34743 P20LEMB7 CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
022761,000341: 24,2207 00006 EXTEND
022762,000342: 24,2210 02033 RAND CHAN33
022763,000343: 24,2211 00006 EXTEND
022764,000344: 24,2212 12246 BZF P20LEMB3 # YES - DO AUTOMATIC ACQUISITION (R21)
022765,000345:
022766,000346: 24,2213 46007 P20LEMB5 CS OCT24 # RADAR NOT IN AUTO CHECK IF
022767,000347: 24,2214 61010 AD MODREG # MAJOR MODE IS 20
022768,000348: 24,2215 00006 EXTEND
022769,000349: 24,2216 12231 BZF P20LEMB6 # BRANCH - YES-OK TO DO PLEASE PERFORM
022770,000350:
022771,000351:
022772,000352: 24,2217 67767 AD NEG2 # ALSO CHECK FOR P22
022773,000353: 24,2220 00006 EXTEND
022774,000354: 24,2221 12231 BZF P20LEMB6 # BRANCH - YES OK TO DO PLEASE PERFORM
022775,000355: 24,2222 32365 CAF ALRM514 # TRACK FLAG SET-FLASH PRIORITY ALARM 514-
022776,000356: 24,2223 04607 TC BANKCALL # RADAR GOES OUT OF AUTO MODE WHILE IN USE
022777,000357: 24,2224 21572 CADR PRIOLARM
022778,000358: 24,2225 06043 TC GOTOV56 # TERMINATE EXITS VIA V56
022779,000359: 24,2226 02175 TC P20LEMB # PROCEED AND ENTER BOTH GO BACK
022780,000360: 24,2227 02175 TC P20LEMB # TO CHECK AUTO MODE AGAIN
022781,000361: 24,2230 05146 TC ENDOFJOB
022782,000362: 24,2231 32364 P20LEMB6 CAF OCT201 # REQUEST RR AUTO MODE SELECTION
022783,000363: 24,2232 04607 TC BANKCALL
022784,000364: 24,2233 20635 CADR GOPERF1
022785,000365: 24,2234 06043 TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
022786,000366: 24,2235 02175 TC P20LEMB # PROCEED CHECKS AUTO MODE DISCRETE AGAIN
022787,000367: 24,2236 02751 TC LUNSFCHK # ENTER INDICATES MANUAL ACQUISITION (R23)
022788,000368: 24,2237 02244 TC P20LEMB2 # YES - R23 NOT ALLOWED-TURN ON OPR ERROR
022789,000369: 24,2240 03220 TC R23LEM # NO - DO MANUAL ACQUISITION
022790,000370:
022791,000371:
022792,000372: 24,2241 05506 P20LEMB1 TC UPFLAG # RETURN FROM R23 - LOCKON ACHIEVED
022793,000373: 24,2242 00040 ADRES ACMODFLG # SET MANUAL FLAG AND GO BACK TO CHECK
022794,000374: 24,2243 02175 TC P20LEMB # RR AUTO MODE
022795,000375:
022796,000376:
022797,000377: 24,2244 04355 P20LEMB2 TC FALTON # TURNS ON OPERATOR ERROR LIGHT ON DSKY
022798,000378: 24,2245 02175 TC P20LEMB # AND GOES BACK TO CHECK AUTO MODE
022799,000379:
022800,000380:
022801,000381: 24,2246 40110 P20LEMB3 CS RADMODES # ARE RR CDUS BEING ZEROED
022802,000382: 24,2247 74730 MASK RCDU0BIT
022803,000383: 24,2250 00006 EXTEND
022804,000384: 24,2251 12263 BZF P20LEMB4 # BRANCH - YES - WAIT
022805,000385: 24,2252 34346 CAF BIT13-14 # IS SEARCH OR MANUAL ACQUISITION FLAG SET
022806,000386: 24,2253 70076 MASK FLAGWRD2
022807,000387: 24,2254 00006 EXTEND
022808,000388: 24,2255 12267 BZF P20LEMC3 # ZERO MEANS AUTOMATIC RR ACQUISTION
|
|
Page 514 |
022810,000390: 24,2256 05520 TC DOWNFLAG # RESET TO AUTO MODE
022811,000391: 24,2257 00037 ADRES SRCHOPTN
022812,000392: 24,2260 05520 TC DOWNFLAG
022813,000393: 24,2261 00040 ADRES ACMODFLG
022814,000394: 24,2262 02310 TC P20LEMWT # WAIT 2.5 SECONDS THEN GO TO RR DATA READ
022815,000395:
022816,000396:
022817,000397: 24,2263 32362 P20LEMB4 CAF 250DEC
022818,000398: 24,2264 04607 TC BANKCALL # WAIT 2.5 SECONDS WHILE RR CDUS ARE BEING
022819,000399: 24,2265 01736 CADR DELAYJOB # ZEROED-THEN GO BACK AND CHECK AGAIN
022820,000400: 24,2266 02246 TC P20LEMB3
022821,000401:
022822,000402:
022823,000403: 24,2267 06060 P20LEMC3 TC INTPRET
022824,000404: 24,2270 77634 RTB
022825,000405: 24,2271 21603 LOADTIME
022826,000406: 24,2272 34041 STCALL TDEC1
022827,000407: 24,2273 50374 UPPSV
022828,000408: 24,2274 77776 P20LEMC4 EXIT
022829,000409: 24,2275 05355 P20LEMC TC PHASCHNG
022830,000410: 24,2276 04022 OCT 04022
022831,000411: 24,2277 30074 CAE FLAGWRD0 # IS THE RENDEZVOUS FLAG SET
022832,000412: 24,2300 74736 MASK RNDVZBIT
022833,000413: 24,2301 00006 EXTEND
022834,000414: 24,2302 15146 BZF ENDOFJOB # NO - EXIT P20
022835,000415: 24,2303 30075 CAE FLAGWRD1 # IS TRACK FLAG SET (BIT 5 FLAGWORD 1)
022836,000416: 24,2304 74740 MASK TRACKBIT
022837,000417: 24,2305 00006 EXTEND
022838,000418: 24,2306 12342 BZF P20LEMD # BRANCH-TRACK FLAG NOT ON-WAIT 15 SECONDS
022839,000419: 24,2307 02756 P20LEMF TC R21LEM
022840,000420:
022841,000421:
022842,000422: 24,2310 32362 P20LEMWT CAF 250DEC
022843,000423: 24,2311 05175 TC TWIDDLE # USE INSTEAD OF WAITLIST SINCE SAME BANK
022844,000424: 24,2312 02322 ADRES P20LEMC1 # WAIT 2.5 SECONDS
022845,000425: 24,2313 30075 CAE FLAGWRD1 # IS TRACK FLAG SET
022846,000426: 24,2314 74740 MASK TRACKBIT
022847,000427: 24,2315 00006 EXTEND
022848,000428: 24,2316 15146 BZF ENDOFJOB # NO-EXIT WITHOUT DOING 2.7 PHASE CHANGE
022849,000429: 24,2317 05355 P20LMWT1 TC PHASCHNG
022850,000430: 24,2320 40072 OCT 40072
022851,000431: 24,2321 05146 TC ENDOFJOB
022852,000432:
022853,000433:
022854,000434: 24,2322 30074 P20LEMC1 CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET
022855,000435: 24,2323 74736 MASK RNDVZBIT
022856,000436: 24,2324 00006 EXTEND
022857,000437: 24,2325 15263 BZF TASKOVER # NO - EXIT P20/R22
022858,000438: 24,2326 30075 CAE FLAGWRD1 # IS TRACK FLAG SET
022859,000439: 24,2327 74740 MASK TRACKBIT
|
|
Page 515 |
022861,000441: 24,2330 00006 EXTEND
022862,000442: 24,2331 12337 BZF P20LEMC2 # NO-DONT SCHEDULE R22 JOB
022863,000443: 24,2332 37735 CAF PRIO26 # YES-SCHEDULE R22 JOB (RR DATA READ)
022864,000444: 24,2333 05076 TC FINDVAC
022865,000445: 24,2334 E7,1456 EBANK= LOSCOUNT
022866,000446: 24,2334 02713 50067 2CADR R22LEM42
022867,000447:
022868,000448: 24,2336 05263 TC TASKOVER
022869,000449:
022870,000450:
022871,000451: 24,2337 05223 P20LEMC2 TC FIXDELAY # TRACK FLAG NOT SET ,WAIT 15 SECONDS
022872,000452: 24,2340 02734 DEC 1500 B-14 # AND CHECK AGAIN
022873,000453:
022874,000454: 24,2341 02322 TC P20LEMC1
022875,000455:
022876,000456: 24,2342 32750 P20LEMD CAF 1500DEC
022877,000457: 24,2343 05175 TC TWIDDLE # WAITLIST FOR 15 SECONDS
022878,000458: 24,2344 02346 ADRES P20LEMD1
022879,000459: 24,2345 05146 TC ENDOFJOB
022880,000460:
022881,000461:
022882,000462: 24,2346 30075 P20LEMD1 CAE FLAGWRD1 # IS TRACK FLAG SET
022883,000463: 24,2347 74740 MASK TRACKBIT
022884,000464: 24,2350 10000 CCS A
022885,000465: 24,2351 12355 TCF P20LEMD2 # YES-SCHEDULE DESIGNATE JOB
022886,000466: 24,2352 05223 TC FIXDELAY # NO-WAIT 15 SECONDS
022887,000467: 24,2353 02734 DEC 1500 B-14
022888,000468: 24,2354 02346 TC P20LEMD1
022889,000469:
022890,000470:
022891,000471: 24,2355 37735 P20LEMD2 CAF PRIO26 # SCHEDULE JOB TO DO R21
022892,000472: 24,2356 05076 TC FINDVAC
022893,000473: 24,2357 E7,1456 EBANK= LOSCOUNT
022894,000474: 24,2357 02267 50067 2CADR P20LEMC3 # START AT PERM. MEMORY INTEGRATION
022895,000475:
022896,000476: 24,2361 05263 TC TASKOVER
022897,000477:
022898,000478:
022899,000479: 24,2362 00372 250DEC DEC 250 B-14
022900,000480: 24,2363 00526 ALRM526 OCT 00526
022901,000481: 24,2364 00201 OCT201 OCT 00201
022902,000482: 24,2365 00514 ALRM514 OCT 514
022903,000483: 24,2366 00074 MAXTRIES DEC 60 B-14
022904,000484: 24,2367 4354 OCT00012 EQUALS BINCON
022905,000485: 24,2367 23,2474 ONEB-2 EQUALS DP1/4TH
022906,000486: 24,2367 01441 V06N33* VN 0633
022907,000487: 24,2370 00764 500DEC DEC 500 B-14
022908,000488: 24,2371 00070 20447 999.99NM 2DEC 1851982 B-29
022909,000489:
022910,000490: 24,2373 04066 V16N5420 VN 1654
022911,000491:
|
|
Page 516 |
022913,000493: 24,2374 45020 UPPSV STQ CALL # UPDATES PERMANENT STATE VECTORS
022914,000494: 24,2375 01755 LS21X # TO PRESENT TIME
022915,000495: 24,2376 27447 INTSTALL
022916,000496: 24,2377 77624 CALL
022917,000497: 24,2400 26702 SETIFLGS
022918,000498: 24,2401 43014 BOF SET # IF W-MATRIX INVALID,DONT INTEGRATE IT
022919,000499: 24,2402 02756 RENDWFLG
022920,000500: 24,2403 50414 UPPSV1
022921,000501: 24,2404 01476 DIM0FLAG # SET DIMOFLAG TO INTEGRATE W-MATRIX
022922,000502: 24,2405 43014 BON SET
022923,000503: 24,2406 04307 SURFFLAG # IF ON LUNAR SURFACE W IS 6X6
022924,000504: 24,2407 50411 UPPSV5
022925,000505: 24,2410 01475 D6OR9FLG # OTHERWISE 9X9
022926,000506: 24,2411 77614 UPPSV5 BOF
022927,000507: 24,2412 00747 VEHUPFLG
022928,000508: 24,2413 50446 UPPSV3
022929,000509: 24,2414 77614 UPPSV1 SET
022930,000510: 24,2415 01474 VINTFLAG
022931,000511: 24,2416 77624 CALL
022932,000512: 24,2417 27172 INTEGRV
022933,000513: 24,2420 77624 CALL # GROUP 2 PHASE CHANGE
022934,000514: 24,2421 51770 GRP2PC # TO PROTECT INTEGRATION
022935,000515: 24,2422 77624 CALL
022936,000516: 24,2423 27447 INTSTALL
022937,000517: 24,2424 43145 DLOAD CLEAR # GET TETCSM TO STORE IN TDEC FOR LM INT.
022938,000518: 24,2425 01571 TETCSM
022939,000519: 24,2426 01674 VINTFLAG
022940,000520: 24,2427 77624 UPPSV4 CALL # INTEGRATE OTHER VEHICLE
022941,000521: 24,2430 26702 SETIFLGS # WITHOUT W-MATRIX
022942,000522: 24,2431 34041 STCALL TDEC1
022943,000523: 24,2432 27172 INTEGRV
022944,000524: 24,2433 77214 BOFF VLOAD
022945,000525: 24,2434 04347 SURFFLAG
022946,000526: 24,2435 50274 P20LEMC4
022947,000527: 24,2436 01661 RCVLEM
022948,000528: 24,2437 77742 VSR2
022949,000529: 24,2440 26343 STOVL LMPOS
022950,000530: 24,2441 01667 VCVLEM
022951,000531: 24,2442 77742 VSR2
022952,000532: 24,2443 02351 STORE LMVEL
022953,000533: 24,2444 77650 GOTO
022954,000534: 24,2445 01755 LS21X
022955,000535:
022956,000536:
022957,000537: 24,2446 45014 UPPSV3 CLEAR CALL
022958,000538: 24,2447 01674 VINTFLAG
022959,000539: 24,2450 27172 INTEGRV
022960,000540: 24,2451 77624 CALL
022961,000541: 24,2452 51770 GRP2PC
022962,000542: 24,2453 77624 CALL
|
|
Page 517 |
022964,000544: 24,2454 27447 INTSTALL
022965,000545: 24,2455 71214 SET DLOAD
022966,000546: 24,2456 01474 VINTFLAG
022967,000547: 24,2457 01643 TETLEM # GET TETLEM TO STORE IN TDEC FOR CSM INT.
022968,000548: 24,2460 77650 GOTO
022969,000549: 24,2461 50427 UPPSV4
022970,000550:
022971,000551:
022972,000552: 24,2462 E7,1456 EBANK= LOSCOUNT
022973,000553: 24,2462 COUNT* $$/P22
022974,000554:
|
|
Page 518 |
022976,000556: # PROGRAM DESCRIPTION
022977,000557: # PREFERRED TRACKING ATTITUDE PROGRAM P25
022978,000558: # MOD NO - 3
022979,000559: # BY P. VOLANTE
022980,000560: # FUNCTIONAL DESCRIPTION
022981,000561:
022982,000562: # THE PURPOSE OF THIS PROGRAM IS TO COMPUTE THE PREFERRED TRACKING
022983,000563: # ATTITUDE OF THE LM TO CONTINUOUSLY POINT THE LM TRACKING BEACON AT THE
022984,000564: # CSM AND TO PERFORM THE MANEUVER TO THE PREFERRED TRACKING ATTITUDE AND
022985,000565: # CONTINUOUSLY MAINTAIN THIS ATTITUDE WITHIN PRESCRIBED LIMITS
022986,000566: # CALLING SEQUENCE -
022987,000567: # ASTRONAUT REQUEST THROUGH DSKY V37E25E
022988,000568: # SUBROUTINES CALLED -
022989,000569: # BANKCALL FLAGUP
022990,000570: # R02BOTH (IMU STATUS CHECK) ENDOFJOB
022991,000571: # R61LEM (PREF TRK ATT ROUT) WAITLIST
022992,000572: # TASKOVER FINDVAC
022993,000573: # NORMAL EXIT MODES -
022994,000574: # P25 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
022995,000575: # PROGRAM(P00) BY KEYING V37E00E OR BY KEYING IN V56E
022996,000576: # ALARM OR ABORT EXIT MODES -
022997,000577: # NONE
022998,000578: # OUTPUT
022999,000579: # ERASABLE INITIALIZATION REQUIRED
023000,000580: # FLAGS SET + RESET
023001,000581: # TRACKFLG,P25FLAG
023002,000582: # DEBRIS
023003,000583: # NONE
023004,000584: 24,2462 E7,1456 EBANK= LOSCOUNT
023005,000585: 24,2462 COUNT* $$/P25
023006,000586: 24,2462 05331 PROG25 TC 2PHSCHNG
023007,000587: 24,2463 00004 OCT 4 # MAKE GROUP 4 INACTIVE (VERB 37)
023008,000588: 24,2464 05022 OCT 05022
023009,000589: 24,2465 26000 OCT 26000 # PRIORITY 26
023010,000590:
023011,000591: 24,2466 04607 TC BANKCALL
023012,000592: 24,2467 33757 CADR R02BOTH # IMU STATUS CHECK
023013,000593: 24,2470 05506 TC UPFLAG
023014,000594: 24,2471 00031 ADRES TRACKFLG # SET TRACK FLAG
023015,000595: 24,2472 05506 TC UPFLAG
023016,000596: 24,2473 00006 ADRES P25FLAG # SET P25FLAG
023017,000597: 24,2474 05520 TC DOWNFLAG
023018,000598: 24,2475 00010 ADRES RNDVZFLG
023019,000599: 24,2476 05355 P25LEM1 TC PHASCHNG
023020,000600: 24,2477 04022 OCT 04022
023021,000601: 24,2500 34734 CAF P25FLBIT
023022,000602: 24,2501 70074 MASK STATE # IS P25FLAG SET
023023,000603: 24,2502 00006 EXTEND
023024,000604: 24,2503 15146 BZF ENDOFJOB
023025,000605: 24,2504 34740 CAF TRACKBIT # IS TRACKFLAG SET?
|
|
Page 519 |
023027,000607: 24,2505 70075 MASK STATE +1
023028,000608: 24,2506 00006 EXTEND
023029,000609: 24,2507 12515 BZF P25LMWT1 # NO-SKIP PHASE CHANGE AND WAIT 1 MINUTE
023030,000610: 24,2510 34750 CAF SEVEN # CALL R65 - FINE PREFERRED
023031,000611: 24,2511 55745 TS R65CNTR
023032,000612: 24,2512 04607 TC BANKCALL # TRACKING ATTITUDE ROUTINE
023033,000613: 24,2513 46123 CADR R65LEM
023034,000614: 24,2514 02476 TC P25LEM1 # THEN GO CHECK FLAGS
023035,000615: 24,2515 32526 P25LMWT1 CAF 60SCNDS
023036,000616: 24,2516 05175 TC TWIDDLE # WAIT ONE MINUTE THEN CHECK AGAIN
023037,000617: 24,2517 02521 ADRES P25LEM2
023038,000618: 24,2520 05146 TC ENDOFJOB
023039,000619: 24,2521 35015 P25LEM2 CAF PRIO14
023040,000620: 24,2522 05076 TC FINDVAC
023041,000621: 24,2523 E7,1456 EBANK= LOSCOUNT
023042,000622: 24,2523 02476 50067 2CADR P25LEM1
023043,000623:
023044,000624: 24,2525 05263 TC TASKOVER
023045,000625: 24,2526 13560 60SCNDS DEC 6000 B-14
023046,000626:
|
|
Page 520 |
023048,000628: # DATA READ ROUTINE 22 (LEM)
023049,000629: # PROGRAM DESCRIPTION
023050,000630: # MOD NO - 2
023051,000631: # BY P VOLANTE
023052,000632: # FUNCTIONAL DESCRIPTION
023053,000633:
023054,000634: # TO PROCESS AUTOMATIC RR MARK DATA TO UPDATE THE STATE VECTOR OF EITHER
023055,000635: # LM OR CSM AS DEFINED IN THE RENDEZVOUS NAVIGATION PROGRAM (P20)
023056,000636: # CALLING SEQUENCE -
023057,000637: # TC BANKCALL
023058,000638: # CADR R22LEM
023059,000639: # SUBROUTINES CALLED -
023060,000640: # LSR22.1 GOFLASH WAITLIST
023061,000641: # LSR22.2 PRIOLARM BANKCALL
023062,000642: # LSR22.3 R61LEM
023063,000643: # NORMAL EXIT MODES-
023064,000644: # R22 WILL CONTINUE TO RECYCLE,UPDATING STATE VECTORS WITH RADAR DATA
023065,000645: # UNTIL P20 CEASES TO OPERATE (RENDEZVOUS FLAG SET TO ZERO) AT WHICH TIME
023066,000646: # R22 WILL TERMINATE SELF.
023067,000647: # ALARM OR ABORT EXIT MODES-
023068,000648: # PRIORITY ALARM
023069,000649: # PRIORITY ALARM 525 LOS NOT WITHIN 3 DEGREE LIMIT
023070,000650: # OUTPUT
023071,000651: # SEE OUTPUT FROM LSR22.3
023072,000652: # ERASABLE INITIALIZATION REQUIRED
023073,000653: # SEE LSR22.1,LSR22.2,LSR22.3
023074,000654: # FLAGS SET + RESET
023075,000655: # NOANGFLG
023076,000656: # DEBRIS
023077,000657: # SEE LSR22.1,LSR22.2,LSR22.3
023078,000658: 24,2527 E7,1737 EBANK= LRS22.1X
023079,000659: 24,2527 COUNT* $$/R22
023080,000660: 24,2527 05355 R22LEM TC PHASCHNG
023081,000661: 24,2530 04022 OCT 04022
023082,000662: 24,2531 34736 CAF RNDVZBIT # IS RENDESVOUS FLAG SET?
023083,000663: 24,2532 70074 MASK STATE
023084,000664: 24,2533 00006 EXTEND
023085,000665: 24,2534 15146 BZF ENDOFJOB # NO-EXIT R22 AND P20
023086,000666: 24,2535 34740 CAF TRACKBIT # IS TRACKFLAG SET?
023087,000667: 24,2536 70075 MASK STATE +1
023088,000668: 24,2537 00006 EXTEND
023089,000669: 24,2540 12724 BZF R22WAIT # NO WAIT
023090,000670: 24,2541 34727 R22LEM12 CAF BIT14 # IS RR AUTO TRACK ENABLE DISCRETE STILL
023091,000671: 24,2542 00006 EXTEND # ON (A MONITOR REPOSITION BY R25 CLEARSIT
023092,000672: 24,2543 02012 RAND CHAN12
023093,000673: 24,2544 00006 EXTEND
023094,000674: 24,2545 12167 BZF P20LEMA # NO - RETURN TO P20
023095,000675: 24,2546 34743 CAF BIT2 # YES
023096,000676: 24,2547 00006 EXTEND # IS RR AUTO MODE DISCRETE PRESENT
023097,000677: 24,2550 02033 RAND CHAN33
|
|
Page 521 |
023099,000679: 24,2551 00006 EXTEND
023100,000680: 24,2552 12554 BZF +2 # YES CONTINUE
023101,000681: 24,2553 02213 TC P20LEMB5 # NO - SET IT
023102,000682: 24,2554 40110 CS RADMODES # ARE RR CDUS BEING ZEROED
023103,000683: 24,2555 74730 MASK RCDU0BIT
023104,000684: 24,2556 00006 EXTEND
023105,000685: 24,2557 12713 BZF R22LEM42 # CDUS BEING ZEROED
023106,000686: 24,2560 05355 TC PHASCHNG # IF A RESTART OCCURS,AN EXTRA RADAR
023107,000687: 24,2561 00152 OCT 00152 # READING IS TAKEN,SO BAD DATA ISN'T USED
023108,000688: 24,2562 04607 TC BANKCALL # YES READ DATA + CALCULATE LOS
023109,000689: 24,2563 64362 CADR LRS22.1 # DATA READ SUBROUTINE
023110,000690: 24,2564 50154 INDEX MPAC
023111,000691: 24,2565 02566 TC +1
023112,000692: 24,2566 02607 TC R22LEM2 # NORMAL RETURN (GOOD DATA)
023113,000693: 24,2567 02275 TC P20LEMC # COULD NOT READ RADAR-TRY TO REDESIGNATE
023114,000694: 24,2570 32745 CAF ALRM525 # RR LOS NOT WITHIN 3 DEGREES (ALARM)
023115,000695: 24,2571 04607 TC BANKCALL
023116,000696: 24,2572 21572 CADR PRIOLARM
023117,000697: 24,2573 06043 TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
023118,000698: 24,2574 02577 TC R22LEM1 # PROC (DISPLAY DELTA THETA)
023119,000699: 24,2575 02570 TC -5 # ENTER(ILLEGAL OPTION)
023120,000700: 24,2576 05146 TC ENDOFJOB
023121,000701:
023122,000702:
023123,000703: 24,2577 05355 R22LEM1 TC PHASCHNG
023124,000704: 24,2600 04022 OCT 04022
023125,000705: 24,2601 32746 CAF V06N05 # DISPLAY DELTA THETA
023126,000706: 24,2602 04607 TC BANKCALL
023127,000707: 24,2603 20502 CADR PRIODSP
023128,000708: 24,2604 06043 TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
023129,000709: 24,2605 02607 TC R22LEM2 # PROC (OK CONTINUE)
023130,000710: 24,2606 02275 TC P20LEMC # ENTER(RECYCLE)
023131,000711: 24,2607 05355 R22LEM2 TC PHASCHNG
023132,000712: 24,2610 04022 OCT 04022
023133,000713: 24,2611 02751 TC LUNSFCHK # CHECK IF ON LUNAR SURFACE (P22FLAG SET)
023134,000714: 24,2612 02627 TC R22LEM3 # YES-BYPASS FLAG CHECKS AND LRS22.2
023135,000715: 24,2613 30075 CA FLAGWRD1 # IS TRACK FLAG SET
023136,000716: 24,2614 74740 MASK TRACKBIT
023137,000717: 24,2615 00006 EXTEND
023138,000718: 24,2616 12724 BZF R22WAIT # NO - WAIT
023139,000719: 24,2617 04607 TC BANKCALL # YES
023140,000720: 24,2620 51416 CADR LRS22.2 # CHECKS RR BORESIGHT WITHIN 30 DEG OF +Z
023141,000721: 24,2621 50154 INDEX MPAC
023142,000722: 24,2622 02623 TC +1
023143,000723: 24,2623 02627 TC R22LEM3 # NORMAL RETURN(LOS WITHIN 30 OF Z-AXIS)
023144,000724: 24,2624 04607 TC BANKCALL
023145,000725: 24,2625 46116 CADR R61LEM
023146,000726: 24,2626 02724 TC R22WAIT # NOT WITHIN 30 DEG OF Z-AXIS
023147,000727: 24,2627 40075 R22LEM3 CS FLAGWRD1 # SHOULD WE BYPASS STATE VECTOR UPDATE
023148,000728: 24,2630 74737 MASK NOUPFBIT # (IS NOUPDATE FLAG SET?)
|
|
Page 522 |
023150,000730: 24,2631 00006 EXTEND
023151,000731: 24,2632 12713 BZF R22LEM42 # BRANCH-YES
023152,000732: 24,2633 30075 CA FLAGWRD1 # IS UPDATE FLAG SET
023153,000733: 24,2634 74736 MASK UPDATBIT
023154,000734: 24,2635 00006 EXTEND
023155,000735: 24,2636 12713 BZF R22LEM42 # UPDATE FLAG NOT SET
023156,000736: 24,2637 37735 CAF PRIO26 # INSURE HIGH PRIO IN RESTART
023157,000737: 24,2640 55055 TS PHSPRDT2
023158,000738:
023159,000739: 24,2641 06060 TC INTPRET
023160,000740: 24,2642 77650 GOTO
023161,000741: 24,2643 54424 LSR22.3
023162,000742: 24,2644 77776 R22LEM93 EXIT # NORMAL EXIT FROM LSR22.3
023163,000743: 24,2645 05355 TC PHASCHNG # PHASE CHANGE TO PROTECT AGAINST
023164,000744: 24,2646 04022 OCT 04022 # CONFLICT WITH GRP2PC ERASEABLE
023165,000745: 24,2647 12706 TCF R22LEM44
023166,000746: 24,2650 77776 R22LEM96 EXIT
023167,000747: 24,2651 34746 CAF ZERO # SET N49FLAG = ZERO TO INDICATE
023168,000748: 24,2652 55746 TS N49FLAG # V06 N49 DISPLAY HASNT BEEN ANSWERED
023169,000749: 24,2653 05355 TC PHASCHNG
023170,000750: 24,2654 04022 OCT 04022 # TO PROTECT DISPLAY
023171,000751: 24,2655 37736 CAF PRIO27 # PROTECT DISPLAY
023172,000752: 24,2656 05063 TC NOVAC
023173,000753: 24,2657 E7,1746 EBANK= N49FLAG
023174,000754: 24,2657 02726 50067 2CADR N49DSP
023175,000755:
023176,000756: 24,2661 06060 TC INTPRET
023177,000757: 24,2662 77735 SLOAD
023178,000758: 24,2663 03747 N49FLAG
023179,000759: 24,2664 50054 BZE BMN # LOOP TO CHECK IF FLAG
023180,000760: 24,2665 50662 -3 # SETTING CHANGED-BRANCH - NO
023181,000761: 24,2666 50674 R22LEM7 # PROCEED
023182,000762: 24,2667 77650 GOTO # DISPLAY ANSWERED BY RECYCLE-INCORPORATE
023183,000763: 24,2670 03675 LGRET # NEXT MEASUREMENT
023184,000764: 24,2671 44743 V34TON49 CS TWO
023185,000765: 24,2672 55746 TS N49FLAG
023186,000766: 24,2673 05146 TC ENDOFJOB
023187,000767: 24,2674 77776 R22LEM7 EXIT
023188,000768: 24,2675 31746 CA N49FLAG # WAS ANSWER TO DISPLAY PRO OR TERM
023189,000769: 24,2676 64743 AD TWO
023190,000770: 24,2677 00006 EXTEND
023191,000771: 24,2700 12527 BZF R22LEM # BRANCH - TERM - TAKE ANOTHER RR READING
023192,000772: 24,2701 06060 TC INTPRET
023193,000773: 24,2702 77624 CALL
023194,000774: 24,2703 51770 GRP2PC # PHASE CHANGE AND
023195,000775: 24,2704 77650 GOTO # GO TO INCORPORATE DATA.
023196,000776: 24,2705 55430 ASTOK
023197,000777: 24,2706 25462 R22LEM44 INCR MARKCTR # INCREMENT COUNT OF MARKS INCORPORATED.
023198,000778: 24,2707 02751 TC LUNSFCHK # ARE WE ON LUNAR SURFACE
023199,000779: 24,2710 02713 TC R22LEM42
|
|
Page 523 |
023201,000781: 24,2711 34747 CA FIVE # NOT ON LUNAR SURFACE
023202,000782: 24,2712 02720 TC R22LEM45 # R65COUNTER = 5
023203,000783: 24,2713 04607 R22LEM42 TC BANKCALL
023204,000784: 24,2714 01735 CADR 2SECDELY
023205,000785: 24,2715 02751 TC LUNSFCHK
023206,000786: 24,2716 02527 TC R22LEM
023207,000787:
023208,000788: 24,2717 34743 CA TWO # NO-SET R65COUNTER = 2
023209,000789: 24,2720 55745 R22LEM45 TS R65CNTR
023210,000790: 24,2721 04607 TC BANKCALL
023211,000791: 24,2722 46123 CADR R65LEM # FINE PREFERRED TRACKING ATTITUDE
023212,000792: 24,2723 02527 TC R22LEM
023213,000793: 24,2724 32750 R22WAIT CAF 1500DEC
023214,000794: 24,2725 02311 TC P20LEMWT +1
023215,000795:
023216,000796:
023217,000797: 24,2726 32747 N49DSP CAF V06N49NB
023218,000798: 24,2727 04607 TC BANKCALL # EXCESSIVE STATE VECTOR UPDATE - FLASH
023219,000799: 24,2730 20502 CADR PRIODSP # VERB 06 NOUN 49 R1=DELTA R, R2=DELTA V
023220,000800: 24,2731 02671 TC V34TON49 # TERMINATE - SET N49FLAG = -2
023221,000801: 24,2732 44744 CS ONE # PROCEED - N49FLAG = -1
023222,000802: 24,2733 55746 TS N49FLAG # RECYCLE - N49FLAG = + VALUE
023223,000803: 24,2734 05146 TC ENDOFJOB
023224,000804: 24,2735 05355 R22RSTRT TC PHASCHNG # IF A RESTART OCCURS WHILE READING RADAR
023225,000805: 24,2736 00152 OCT 00152 # COME HERE TO TAKE A RANGE-RATE READING
023226,000806: 24,2737 04607 TC BANKCALL # WHICH ISNT USED TO PREVENT TAKING A BAD
023227,000807: 24,2740 53072 CADR RRRDOT # READING AND TRYING TO INCORPORATE THE
023228,000808: 24,2741 04607 TC BANKCALL # BAD DATA
023229,000809: 24,2742 17733 CADR RADSTALL # WAIT FOR READ COMPLETE
023230,000810: 24,2743 02275 TC P20LEMC # COULD NOT READ RADAR-TRY TO REDESIGNATE
023231,000811: 24,2744 02527 TC R22LEM # READ SUCCESSFUL-CONTINUE AT R22
023232,000812:
023233,000813:
023234,000814: 24,2745 00525 ALRM525 OCT 00525
023235,000815: 24,2746 01405 V06N05 VN 00605
023236,000816: 24,2747 01461 V06N49NB VN 00649
023237,000817: 24,2750 02734 1500DEC DEC 1500 B-14
023238,000818: # LUNSFCHK-CLOSED SUBROUTINE TO CHECK IF ON LUNAR SURFACE (P22FLAG)
023239,000819: # RETURNS TO CALLER +1 IF P22FLAG SET
023240,000820: # TO CALLER +2 IF P22FLAG NOT SET
023241,000821:
023242,000822:
023243,000823: 24,2751 COUNT* $$/P22
023244,000824: 24,2751 40104 LUNSFCHK CS FLAGWRD8 # CHECK IF ON LUNAR SURFACE
023245,000825: 24,2752 74735 MASK SURFFBIT # IS SURFFLAG SET?
023246,000826: 24,2753 10000 CCS A # BRANCH - P22FLAG SET
023247,000827: 24,2754 24002 INCR Q # NOT SET
023248,000828: 24,2755 00002 TC Q # RETURN
023249,000829:
|
|
Page 524 |
023251,000831: # RR DESIGNATE ROUTINE (R21LEM)
023252,000832: # PROGRAM DESCRIPTION
023253,000833: # MOD NO - 2
023254,000834: # BY P VOLANTE
023255,000835: # FUNCTIONAL DESCRIPTION
023256,000836:
023257,000837: # TO POINT THE RENDEZVOUS RADAR AT THE CSM UNTIL AUTOMATIC ACQUISITION
023258,000838: # OF THE CSM IS ACCOMPLISHED BY THE RADAR. ROUTINE IS CALLED BY P20.
023259,000839: # CALLING SEQUENCE -
023260,000840: # TC BANKCALL
023261,000841: # CADR R21LEM
023262,000842: # SUBROUTINES CALLED -
023263,000843: # FINDVAC FLAGUP ENDOFJOB PRIOLARM
023264,000844: # NOVAC INTPRET LPS20.1 PHASCHNG
023265,000845: # WAITLIST JOBSLEEP JOBWAKE FLAGDOWN
023266,000846: # TASKOVER BANKCALL RADSTALL RRDESSM
023267,000847: # NORMAL EXIT MODES
023268,000848: # WHEN LOCK-ON IS ACHIEVED,BRANCH WILL BE TO P20 WHERE R22 (DATA READ
023269,000849: # WILL BE SELECTED OR A NEED FOR A MANEUVER(BRANCH TO P20LEMA)
023270,000850: # ALARM OR ABORT EXIT MODES-
023271,000851: # PRIORITY ALARM 503 WHEN LOCK-ON HASN:T BEEN ACHIEVED AFTER 30SECS -
023272,000852: # THIS REQUIRES ASTRONAUT INTERFACE- SELECTION OF SEARCH OPTION OF
023273,000853: # ACQUISITION
023274,000854: # OUTPUT
023275,000855: # SEE LPS20.1,RRDESSM
023276,000856: # ERASABLE INITIALIZATION REQUIRED
023277,000857: # RRTARGET,RADMODES ARE USED BY LPS20.1 AND RRDESSM
023278,000858: # FLAGS SET + RESET
023279,000859: # LOSCMFLG LOKONSW
023280,000860: # DEBRIS
023281,000861: # SEE LPS20.1,RRDESSM
023282,000862: 24,2756 E7,1456 EBANK= LOSCOUNT
023283,000863: 24,2756 COUNT* $$/R21
023284,000864: 24,2756 44727 R21LEM CS BIT14 # REMOVE RR SELF TRACK ENABLE
023285,000865: 24,2757 00006 EXTEND
023286,000866: 24,2760 03012 WAND CHAN12
023287,000867: 24,2761 34727 CAF BIT14 # RESET AGSCODE SINCE R21
023288,000868: 24,2762 55073 TS AGSCODE # CLOBBERS DOWNLINK MARK DATA
023289,000869: 24,2763 02751 TC LUNSFCHK
023290,000870: 24,2764 02771 TC R21LEM5
023291,000871: 24,2765 34746 CAF ZERO # COMMAND ANTENNA TO MODE CENTER
023292,000872: 24,2766 55106 TS TANG # IF NOT ON SURFACE-MODE 1-(T=0,S=0)
023293,000873: 24,2767 55107 TS TANG +1
023294,000874: 24,2770 03001 TC R21LEM6
023295,000875: 24,2771 34731 R21LEM5 CAF BIT12
023296,000876: 24,2772 70110 MASK RADMODES
023297,000877: 24,2773 10000 CCS A
023298,000878: 24,2774 03011 TC R21LEM10
023299,000879: 24,2775 34726 CAF BIT15
023300,000880: 24,2776 55106 TS TANG
|
|
Page 525 |
023302,000882: 24,2777 44727 CS HALF
023303,000883: 24,3000 55107 TS TANG +1
023304,000884: 24,3001 05520 R21LEM6 TC DOWNFLAG
023305,000885: 24,3002 00012 ADRES LOKONSW
023306,000886: 24,3003 04607 TC BANKCALL
023307,000887: 24,3004 52466 CADR RRDESNB
023308,000888: 24,3005 03006 TC +1
023309,000889: 24,3006 04607 TC BANKCALL
023310,000890: 24,3007 17733 CADR RADSTALL
023311,000891: 24,3010 03044 TC R21-503 # BAD RETURN FROM DESIGNATE -ISSUE ALARM
023312,000892: 24,3011 05506 R21LEM10 TC UPFLAG
023313,000893: 24,3012 00041 ADRES LOSCMFLG # EVERY FOURTH PASS THRU DODES
023314,000894: 24,3013 32366 CAF MAXTRIES # ALLOW 60 PASSES (APPROX 45 SECONDS)
023315,000895: 24,3014 55113 TS DESCOUNT # TO DESIGNATE AND LOCK ON
023316,000896: 24,3015 36266 R21LEM2 CAF THREE
023317,000897: 24,3016 55456 TS LOSCOUNT
023318,000898: 24,3017 06060 R21LEM1 TC INTPRET
023319,000899: 24,3020 43234 RTB DAD
023320,000900: 24,3021 21603 LOADTIME
023321,000901: 24,3022 11206 HALFSEC # EXTRAPOLATE TO PRESENT TIME + .5 SEC.
023322,000902: 24,3023 34041 STCALL TDEC1 # LOS DETERMINATION ROUTINE
023323,000903: 24,3024 51337 LPS20.1
023324,000904: 24,3025 77776 EXIT
023325,000905: 24,3026 05506 R21LEM3 TC UPFLAG # SET LOKONSW TO RADAR-ON DESIRED
023326,000906: 24,3027 00012 ADRES LOKONSW
023327,000907: 24,3030 05520 TC DOWNFLAG
023328,000908: 24,3031 00126 ADRES NORRMON
023329,000909: 24,3032 06060 TC INTPRET
023330,000910: 24,3033 77624 CALL # INPUT (RRTARGET UPDATED BY LPS20.1)
023331,000911: 24,3034 52364 RRDESSM # DESIGNATE ROUTINE
023332,000912: 24,3035 77776 EXIT
023333,000913: 24,3036 03065 TC R21LEM4 # LOS NOT IN MODE 2 COVERAGE
023334,000914: # ON LUNAR SURFACE
023335,000915: 24,3037 02167 TC P20LEMA # VEHICLE MANEUVER REQUIRED.
023336,000916: 24,3040 04607 TC BANKCALL # NO VEHICLE MANEUVER REQUIRED
023337,000917: 24,3041 17733 CADR RADSTALL # WAIT FOR DESIGNATE COMPLETE - LOCKON OR
023338,000918: 24,3042 03044 TC +2 # BADEND-LOCKON NOT ACHIEVED IN 60 TRIES
023339,000919: 24,3043 03053 TC R21END # EXIT ROUTINE RETURN TO P20 (LOCK-ON)
023340,000920: 24,3044 33063 R21-503 CAF ALRM503 # ISSUE ALARM 503
023341,000921: 24,3045 04607 TC BANKCALL
023342,000922: 24,3046 21572 CADR PRIOLARM
023343,000923: 24,3047 06043 TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
023344,000924: 24,3050 03060 TC R21SRCH # PROC
023345,000925: 24,3051 02267 TC P20LEMC3
023346,000926: 24,3052 05146 TC ENDOFJOB
023347,000927: 24,3053 05520 R21END TC DOWNFLAG
023348,000928: 24,3054 00041 ADRES LOSCMFLG # RESET LOSCMFLG
023349,000929: 24,3055 02751 TC LUNSFCHK # ARE WE ON LUNAR SURFACE
023350,000930: 24,3056 02310 TC P20LEMWT # YES - BYPASS V 50 N 72 DISPLAY
023351,000931: 24,3057 03207 TC R21DISP # PUT UP VERIFY MAIN LOBE LOCKON DISPLAY
|
|
Page 526 |
023353,000933: 24,3060 05355 R21SRCH TC PHASCHNG
023354,000934: 24,3061 04022 OCT 04022
023355,000935: 24,3062 03271 TC R24LEM # SEARCH ROUTINE
023356,000936: 24,3063 00503 ALRM503 OCT 00503
023357,000937: 24,3064 00527 ALRM527 OCT 527
023358,000938:
023359,000939:
023360,000940: 24,3065 06032 R21LEM4 TC CLRADMD1 # CLEAR BITS 10 & 15 IN RADMODES
023361,000941: 24,3066 32366 CAF MAXTRIES # SET UP COUNTER FOR
023362,000942: 24,3067 55423 TS REPOSCNT # 60 PASSES (APPROX 600 SECS.)
023363,000943: 24,3070 05506 TC UPFLAG
023364,000944: 24,3071 00032 ADRES FRSTIME # SET FIRST TIME FLAG
023365,000945: 24,3072 05520 TC DOWNFLAG # RESET LOS BEING
023366,000946: 24,3073 00041 ADRES LOSCMFLG # COMPUTED FLAG
023367,000947: 24,3074 06060 TC INTPRET
023368,000948: 24,3075 77634 R21LEM12 RTB
023369,000949: 24,3076 21603 LOADTIME
023370,000950: 24,3077 77615 R21LEM00 DAD
023371,000951: 24,3100 11204 TENSEC # TIME T = T + 10 SECS.
023372,000952: 24,3101 03425 STORE REPOSTM # SAVE FOR LONGCALL AND UPPSV
023373,000953: 24,3102 34041 STCALL TDEC1
023374,000954: 24,3103 51337 LPS20.1 # COMPUTE LOS AT TIME T
023375,000955: 24,3104 77624 CALL
023376,000956: 24,3105 52364 RRDESSM
023377,000957: 24,3106 77776 EXIT
023378,000958: 24,3107 03121 TC R21LEM13 # LOS NOT IN MODE 2 COVERAGE
023379,000959: 24,3110 05146 TC ENDOFJOB # VEHICLE MANEUVER REQUIRED
023380,000960: 24,3111 06050 TC KILLTASK
023381,000961: 24,3112 52564 CADR BEGDES
023382,000962: 24,3113 06060 TC INTPRET
023383,000963: 24,3114 43014 BOF CLRGO
023384,000964: 24,3115 00753 FRSTIME # FIRST TIME THRU PREPOSITION
023385,000965: 24,3116 51131 R21LEM8 # NO-GO TO CONTINUOUS DESIGNATE
023386,000966: 24,3117 00633 FRSTIME # YES - RESET FIRST TIME FLAG
023387,000967: 24,3120 51126 R21LEM50
023388,000968: 24,3121 11423 R21LEM13 CCS REPOSCNT # HAVE WE TRIED 60 TIMES?
023389,000969: 24,3122 03124 TC R21LEM7 # NO-ADD 10 SECS. RECOMPUTE LOS
023390,000970: 24,3123 03173 TC R21LEM11 # YES-PUT OUT ALARM 530
023391,000971: 24,3124 55423 R21LEM7 TS REPOSCNT
023392,000972: 24,3125 06060 TC INTPRET
023393,000973: 24,3126 52145 R21LEM50 DLOAD GOTO
023394,000974: 24,3127 03425 REPOSTM
023395,000975: 24,3130 51077 R21LEM00
023396,000976: 24,3131 77745 R21LEM8 DLOAD
023397,000977: 24,3132 03425 REPOSTM
023398,000978: 24,3133 34041 STCALL TDEC1
023399,000979: 24,3134 50374 UPPSV
023400,000980: 24,3135 77776 EXIT
023401,000981: 24,3136 05506 TC UPFLAG # SET RADMODES BIT 15 FOR
023402,000982: 24,3137 00264 ADRES CDESFLAG # CONTINUOUS DESIGNATION
|
|
Page 527 |
023404,000984: 24,3140 05520 TC DOWNFLAG
023405,000985: 24,3141 00012 ADRES LOKONSW
023406,000986: 24,3142 05506 TC UPFLAG
023407,000987: 24,3143 00126 ADRES NORRMON
023408,000988: 24,3144 04607 TC BANKCALL
023409,000989: 24,3145 52466 CADR RRDESNB
023410,000990: 24,3146 03147 TC +1
023411,000991: 24,3147 06060 TC INTPRET
023412,000992: 24,3150 44234 RTB BDSU
023413,000993: 24,3151 21603 LOADTIME # COMPUTE DELTA TIME
023414,000994: 24,3152 03425 REPOSTM # FOR LONGCALL
023415,000995: 24,3153 03427 STORE DELTATM
023416,000996: 24,3154 77776 EXIT
023417,000997: 24,3155 00006 EXTEND
023418,000998: 24,3156 31427 DCA DELTATM
023419,000999: 24,3157 05301 TC LONGCALL
023420,001000: 24,3160 E7,1456 EBANK= LOSCOUNT
023421,001001: 24,3160 03163 50067 2CADR R21LEM9
023422,001002:
023423,001003: 24,3162 05146 TC ENDOFJOB
023424,001004: 24,3163 06050 R21LEM9 TC KILLTASK
023425,001005: 24,3164 52573 CADR STDESIG
023426,001006: 24,3165 06027 TC CLRADMOD
023427,001007: 24,3166 37735 CAF PRIO26
023428,001008: 24,3167 05076 TC FINDVAC
023429,001009: 24,3170 E7,1456 EBANK= LOSCOUNT
023430,001010: 24,3170 03011 50067 2CADR R21LEM10
023431,001011:
023432,001012: 24,3172 05263 TC TASKOVER
023433,001013: 24,3173 33202 R21LEM11 CAF ALRM530 # ALARM 530-LOS NOT IN COVERAGE
023434,001014: 24,3174 04607 TC BANKCALL # AFTER TRYING TO DESIGNATE FOR
023435,001015: 24,3175 21572 CADR PRIOLARM # 600 SECS.
023436,001016: 24,3176 06043 TC GOTOV56
023437,001017: 24,3177 06043 TC GOTOV56
023438,001018: 24,3200 06043 TC GOTOV56
023439,001019: 24,3201 05146 TC ENDOFJOB
023440,001020: 24,3202 00530 ALRM530 OCT 00530
023441,001021: 24,3203 00000 01750 TENSEC 2DEC 1000 B-28
023442,001022:
023443,001023: 24,3205 00000 00062 HALFSEC 2DEC 50 B-28
023444,001024:
023445,001025: 24,3207 05355 R21DISP TC PHASCHNG
023446,001026: 24,3210 04022 OCT 04022
023447,001027: 24,3211 33217 CAF V50N72 # FLASH V50N72 MONITOR -PLEASE PERFORM RR
023448,001028: 24,3212 04607 TC BANKCALL # MAIN LOBE LOCKON VERIFICATION
023449,001029: 24,3213 20326 CADR PRIOMONR # THIS IS A PRIORITY DISPLAY
023450,001030: 24,3214 06043 TC GOTOV56 # TERMINATE EXITS VIA V 56
023451,001031: 24,3215 02310 TC P20LEMWT # PROCEED CONTINUES TO R22
023452,001032: 24,3216 03211 TC -5 # ENTER ILLEGAL
023453,001033: 24,3217 14510 V50N72 VN 05072
023454,001034:
|
|
Page 528 |
023456,001036: # MANUAL ACQUISITION ROUTINE R23LEM
023457,001037: # PROGRAM DESCRIPTION
023458,001038: # MOD NO - 2
023459,001039: # BY P VOLANTE
023460,001040: # FUNCTIONAL DESCRIPTION
023461,001041:
023462,001042: # TO ACQUIRE THE CSM BY MANUAL OPERATION OF THE RENDEZVOUS RADAR
023463,001043: # CALLING SEQUENCE -
023464,001044: # TC R23LEM
023465,001045: # SUBROUTINES CALLED
023466,001046: # BANKCALL R61LEM
023467,001047: # SETMINDB GOPERF1
023468,001048: # NORMAL EXIT MODES -
023469,001049: # IN RESPONSE TO THE GOPERF1 ,SELECTION OF ENTER WILL RECYCLE R23
023470,001050: # ,SELECTION OF PROC WILL CONTINUE R23
023471,001051: # ,SELECTION OF TERM WILL TERMINATE R23 +P20
023472,001052: # ALARM OR ABORT EXIT MODES -
023473,001053: # SEE NORMAL EXIT MODES ABOVE
023474,001054: # OUTPUT
023475,001055: # N.A.
023476,001056: # ERASABLE INITIALIZATION REQUIRED-
023477,001057: # ACMODFLG MUST BE SET TO 1 (MANUAL MODE)
023478,001058: 24,3220 1142 EBANK= GENRET
023479,001059: 24,3220 COUNT* $$/R23
023480,001060: 24,3220 05506 R23LEM TC UPFLAG # SET NO ANGLE MONITOR FLAG
023481,001061: 24,3221 00126 ADRES NORRMON
023482,001062: 24,3222 00004 INHINT
023483,001063: 24,3223 04665 TC IBNKCALL # SELECT MINIMUM DEADBAND
023484,001064: 24,3224 40141 CADR SETMINDB
023485,001065: 24,3225 00003 RELINT
023486,001066: 24,3226 34727 R23LEM1 CAF BIT14 # ENABLE TRACKER
023487,001067: 24,3227 00006 EXTEND
023488,001068: 24,3230 05012 WOR CHAN12
023489,001069: 24,3231 33270 CAF OCT205
023490,001070: 24,3232 04607 TC BANKCALL
023491,001071: 24,3233 20635 CADR GOPERF1
023492,001072: 24,3234 03261 TC R23LEM2 # TERMINATE
023493,001073: 24,3235 03237 TC R23LEM11 # PROCEDE
023494,001074: 24,3236 03264 TC R23LEM3 # ENTER- DO ANOTHER MANUVER
023495,001075: 24,3237 00004 R23LEM11 INHINT
023496,001076: 24,3240 04514 TC RRLIMCHK # YES - CHECK IF ANTENNA IS WITHIN LIMITS
023497,001077: 24,3241 00035 ADRES CDUT
023498,001078: 24,3242 03251 TC OUTOFLIM # NOT WITHIN LIMITS
023499,001079: 24,3243 04665 TC IBNKCALL # RESTORE DEADBAND TO
023500,001080: 24,3244 40115 CADR RESTORDB # ASTRONAUT SELECTED VALUE
023501,001081: 24,3245 00003 RELINT
023502,001082: 24,3246 05520 TC DOWNFLAG # CLEAR NO ANGLE MONITOR FLAG
023503,001083: 24,3247 00126 ADRES NORRMON
023504,001084: 24,3250 02241 TC P20LEMB1 # RADAR IS LOCKED ON CONTINUE IN P20
023505,001085: 24,3251 00003 OUTOFLIM RELINT
|
|
Page 529 |
023507,001087: 24,3252 33267 CAF OCT501PV
023508,001088: 24,3253 04607 TC BANKCALL # ISSUE ALARM - RR ANTENNA NOT WITHIN
023509,001089: 24,3254 21572 CADR PRIOLARM # LIMITS
023510,001090: 24,3255 03261 TC R23LEM2 # TERMINATE - EXIT R23 TO R00 (GO TO POOH)
023511,001091: 24,3256 03252 TC OUTOFLIM +1 # PROCEED ILLEGAL
023512,001092: 24,3257 03264 TC R23LEM3 # RECYCLE- DO ANOTHER MANUVER
023513,001093: 24,3260 05146 TC ENDOFJOB
023514,001094: 24,3261 05520 R23LEM2 TC DOWNFLAG # CLEAR NO ANGLE MONITOR FLAG
023515,001095: 24,3262 00126 ADRES NORRMON
023516,001096: 24,3263 06043 TC GOTOV56 # AND EXIT VIA V56
023517,001097: 24,3264 04607 R23LEM3 TC BANKCALL
023518,001098: 24,3265 46116 CADR R61LEM
023519,001099: 24,3266 03226 TC R23LEM1
023520,001100:
023521,001101:
023522,001102: 24,3267 00501 OCT501PV OCT 501
023523,001103: 24,3270 00205 OCT205 OCT 205
023524,001104:
|
|
Page 530 |
023526,001106: # SEARCH ROUTINE R24LEM
023527,001107: # PROGRAM DESCRIPTION
023528,001108: # MOD NO - 2
023529,001109: # BY P. VOLANTE
023530,001110: # FUNCTIONAL DESCRIPTION
023531,001111:
023532,001112: # TO ACQUIRE THE CSM BY A SEARCH PATTERN WHEN THE RENDEZVOUS RADAR HAS
023533,001113: # FAILED TO ACQUIRE THE CSM IN THE AUTOMATIC TRACKING MODE AND TO ALLOW
023534,001114: # THE ASTRONAUT TO CONFIRM THAT REACQUISITION HAS NOT BEEN BY SIDELOBE.
023535,001115: # CALLING SEQUENCE
023536,001116: # CAF PRIONN
023537,001117: # TC FINDVAC
023538,001118: # EBANK= DATAGOOD
023539,001119: # 2CADR R24LEM
023540,001120: # SUBROUTINES CALLED
023541,001121: # FLAGUP FLAGDOWN BANKCALL
023542,001122: # R61LEM GOFLASHR FINDVAC
023543,001123: # ENDOFJOB NOVAC LSR24.1
023544,001124: # NORMAL EXIT MODES-
023545,001125: # ASTRONAUT RESPONSE TO DISPLAY OF OMEGA AND DATAGOOD.HE CAN EITHER
023546,001126: # REJECT BY TERMINATING (SEARCH OPTION AND RESELECTING P20) OR ACCEPT BY
023547,001127: # PROCEEDING (EXIT ROUTINE AND RETURN TO AUTO MODE IN P20)
023548,001128: # ALARM OR ABORT EXIT MODES-
023549,001129: # SEE NORMAL EXIT MODES ABOVE
023550,001130: # OUTPUT -
023551,001131: # SEE OUTPUT FROM LSR24.1 + R61LEM
023552,001132: # ERASABLE INITIALIZATION REQUIRED
023553,001133: # SEE INPUT FOR LSR24.1
023554,001134: # FLAGS SET + RESET
023555,001135: # SRCHOPT,ACMODFLG
023556,001136: 24,3271 E7,1733 EBANK= DATAGOOD
023557,001137: 24,3271 COUNT* $$/R24
023558,001138: 24,3271 05506 R24LEM TC UPFLAG
023559,001139: 24,3272 00037 ADRES SRCHOPTN # SET SRCHOPT FLAG
023560,001140: 24,3273 05520 TC DOWNFLAG # RESET LOS BEING COMPUTED FLAG TO MAKE
023561,001141: 24,3274 00041 ADRES LOSCMFLG # SURE DODES DOESN'T GO TO R21
023562,001142: 24,3275 34746 R24LEM1 CAF ZERO
023563,001143: 24,3276 55733 TS DATAGOOD # ZERO OUT DATA INDICATOR
023564,001144: 24,3277 55734 TS OMEGAD # ZERO OMEGA DISPLAY REGS
023565,001145: 24,3300 55735 TS OMEGAD +1 # ZERO OMEGA DISPLAY REGS
023566,001146: 24,3301 05355 R24LEM2 TC PHASCHNG
023567,001147: 24,3302 04022 OCT 04022
023568,001148: 24,3303 33336 CAF V16N80
023569,001149: 24,3304 04607 TC BANKCALL
023570,001150: 24,3305 20477 CADR PRIODSPR
023571,001151: 24,3306 06043 TC GOTOV56
023572,001152: 24,3307 03313 TC R24END # PROCEED EXIT R24 TO P20LEM1
023573,001153:
023574,001154: 24,3310 03317 TC R24LEM3 # RECYCLE - CALL R61 TO MANEUVER S/C
|
|
Page 531 |
023576,001156: 24,3311 04607 TC BANKCALL
023577,001157: 24,3312 55441 CADR LRS24.1
023578,001158: 24,3313 06050 R24END TC KILLTASK
023579,001159: 24,3314 55642 CADR CALLDGCH
023580,001160: 24,3315 06027 TC CLRADMOD # CLEAR BITS 10 & 15 OF RADMODES.
023581,001161: 24,3316 12065 TCF P20LEM1 # AND GO TO 400 MI. RANGE CHECK IN P20.
023582,001162:
023583,001163: 6027 BLOCK 3
023584,001164: 6000 SETLOC FFTAG6
023585,001165: 6000 BANK
023586,001166: 6027 COUNT* $$/R24
023587,001167:
023588,001168: 6027 44743 CLRADMOD CS BIT2 # DISABLE RR ERROR CNTRS
023589,001169: 6030 00006 EXTEND
023590,001170: 6031 03012 WAND CHAN12
023591,001171: 6032 46037 CLRADMD1 CS BIT10+15 # KNOCK DOWN DESIGNATE AND
023592,001172:
023593,001173: 6033 4733 REFTAG3 = DESIGBIT
023594,001174: 6033 4726 REFTAG4 = CDESBIT
023595,001175: 6033 00004 INHINT # CONTINUOUS DESIGNATE FLAGS
023596,001176: 6034 70110 MASK RADMODES
023597,001177: 6035 54110 TS RADMODES
023598,001178: 6036 00002 TC Q
023599,001179:
023600,001180:
023601,001181: 6037 41000 BIT10+15 OCT 41000
023602,001182:
023603,001183:
023604,001184: 24,3317 BANK 24
023605,001185: 24,2000 SETLOC P20S
023606,001186: 24,2000 BANK
023607,001187: 24,3317 COUNT* $$/R24
023608,001188:
023609,001189: 24,3317 05355 R24LEM3 TC PHASCHNG
023610,001190: 24,3320 04022 OCT 04022
023611,001191: 24,3321 06050 TC KILLTASK
023612,001192: 24,3322 55642 CADR CALLDGCH # KILL WAITLIST FOR NEXT POINT IN PATTERN
023613,001193: 24,3323 06027 TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES
023614,001194: 24,3324 34765 CAF .5SEC
023615,001195: 24,3325 04607 TC BANKCALL # WAIT FOR DESIGNATE LOOP TO DIE
023616,001196: 24,3326 01736 CADR DELAYJOB
023617,001197: 24,3327 02751 TC LUNSFCHK # CHECK IF ON LUNAR SURFACE
023618,001198: 24,3330 03333 TC R24LEM4 # YES-DONT DO ATTITUDE MANEUVER
023619,001199: 24,3331 04607 TC BANKCALL # CALL R61 TO DO PREFERRED TRACKING
023620,001200: 24,3332 46116 CADR R61LEM # ATTITUDE MANEUVER
023621,001201: 24,3333 34746 R24LEM4 CAF ZERO # ZERO OUT RADCADR (WHICH WAS SET BY
023622,001202: 24,3334 55303 TS RADCADR # ENDRADAR WHEN DESIGNATE STOPPED) SO THAT
023623,001203: # RRDESSM WILL RETURN TO CALLER
023624,001204: 24,3335 03301 TC R24LEM2 # AND GO BACK TO PUT UP V16 N80 DISPLAY
023625,001205:
|
|
Page 532 |
023627,001207: 24,3336 04120 V16N80 VN 01680
023628,001208:
|
|
Page 533 |
023630,001210: # PREFERRED TRACKING ATTITUDE ROUTINE R61LEM
023631,001211: # PROGRAM DESCRIPTION
023632,001212: # MOD NO : 3 DATE : 4-11-67
023633,001213: # MOD BY : P VOLANTE SDC
023634,001214:
023635,001215:
023636,001216: # FUNCTIONAL DESCRIPTION-
023637,001217: # TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE LM TO ENABLE RR
023638,001218: # TRACKING OF THE CSM AND TO PERFORM THE MANEUVER TO THE PREFERRED
023639,001219: # ATTITUDE.
023640,001220: # CALLING SEQUENCE-
023641,001221: # TC BANKCALL
023642,001222: # CADR R61LEM
023643,001223: # SUBROUTINES CALLED
023644,001224: # LPS20.1 VECPOINT
023645,001225: # KALCMAN3
023646,001226:
023647,001227:
023648,001228: # NORMAL EXIT MODES-
023649,001229: # NORMAL RETURN IS TO CALLER + 1
023650,001230: # ALARM OR ABORT EXIT MODES-
023651,001231: # TERMINATE P20 + R61 BY BRANCHING TO P20END IF BOTH TRACKFLAG +
023652,001232: # RENDEZVOUS FLAG ARE NOT SET.
023653,001233: # OUTPUT -
023654,001234: # SEE OUTPUT FOR LPS20.1 + ATTITUDE MANEUVER ROUTINE (R60)
023655,001235: # ERASABLE INITIALIZATION REQUIRED
023656,001236: # GENRET USED TO SAVE Q FOR RETURN
023657,001237: # FLAGS SET + RESET
023658,001238: # 3AXISFLG
023659,001239: # DEBRIS
023660,001240: # SEE SUBROUTINES
023661,001241: 23,2000 SETLOC R61
023662,001242: 23,2000 BANK
023663,001243: 23,2116 E7,1456 EBANK= LOSCOUNT
023664,001244: 23,2116 COUNT* $$/R61
023665,001245: 23,2116 04636 R61LEM TC MAKECADR
023666,001246: 23,2117 55142 TS GENRET
023667,001247: 23,2120 05506 TC UPFLAG # SET R61 FLAG
023668,001248: 23,2121 00024 ADRES R61FLAG
023669,001249: 23,2122 02152 TC R61C+L02
023670,001250: 23,2123 04636 R65LEM TC MAKECADR
023671,001251: 23,2124 55142 TS GENRET
023672,001252: 23,2125 05520 TC DOWNFLAG # RESET R61 FLAG
023673,001253: 23,2126 00024 ADRES R61FLAG
023674,001254: 23,2127 34727 CA BIT14 # RESET AGS CODE WORD (=20000). DON'T USE
023675,001255: 23,2130 55073 TS AGSCODE # PGNCS DOWNLINKED RADAR DATA.
023676,001256: 23,2131 05355 R61C+L01 TC PHASCHNG # RESTARTS DURING OR AFTER R65 WILL
023677,001257: 23,2132 04022 OCT 04022 # RETURN HERE.
023678,001258: 23,2133 34741 CAF BIT4 # BYPASS RADAR READING IF DATA
023679,001259: 23,2134 00006 EXTEND # GOOD NOT PRESENT
|
|
Page 534 |
023681,001261: 23,2135 02033 RAND CHAN33
023682,001262: 23,2136 10000 CCS A
023683,001263: 23,2137 12152 TCF R61C+L02 # NO DATA GOOD
023684,001264: 23,2140 04607 TC BANKCALL # READ RR RANGE AND RDOT
023685,001265: 23,2141 53072 CADR RRRDOT # EVERY R65 PASS (3 TIMES
023686,001266: 23,2142 04607 TC BANKCALL # BEFORE FIRST MARK, ONCE
023687,001267: 23,2143 17733 CADR RADSTALL # DURING ANY MARK PROCESSING,
023688,001268: 23,2144 12145 NOOP
023689,001269: 23,2145 04607 TC BANKCALL
023690,001270: 23,2146 53074 CADR RRRANGE
023691,001271: 23,2147 04607 TC BANKCALL
023692,001272: 23,2150 17733 CADR RADSTALL
023693,001273: 23,2151 12152 NOOP
023694,001274: 23,2152 34740 R61C+L02 CAF TRACKBIT # TRACKFLAG
023695,001275: 23,2153 70075 MASK STATE +1
023696,001276: 23,2154 00006 EXTEND
023697,001277: 23,2155 12312 BZF R65WAIT # NOT SET
023698,001278: 23,2156 06060 R61C+L03 TC INTPRET
023699,001279: 23,2157 77775 VLOAD
023700,001280: 23,2160 06477 HIUNITZ
023701,001281: 23,2161 03765 STORE SCAXIS # TRACK AXIS UNIT VECTOR
023702,001282: 23,2162 43234 R61LEM1 RTB DAD
023703,001283: 23,2163 21603 LOADTIME # EXTRAPOLATE FORWARD TO CENTER
023704,001284: 23,2164 15712 3SECONDS # SIX SECOND PERIOD.
023705,001285: 23,2165 34041 STCALL TDEC1
023706,001286: 23,2166 51337 LPS20.1 # LOS DETERMINATION + VEH ATTITUDE
023707,001287: 23,2167 77775 VLOAD
023708,001288: 23,2170 01101 RRTARGET
023709,001289: 23,2171 03773 STORE POINTVSM
023710,001290: 23,2172 45034 RTB CALL # GET DESIRED CDU'S FOR VECPNT1
023711,001291: 23,2173 46320 READCDUD
023712,001292: 23,2174 56032 VECPNT1 # COMPUTES FINAL ANGLES FROM PRESENT CDUDS
023713,001293: 23,2175 00322 STORE CPHI # STORE FINAL ANGLES - CPHI,CTHETA,CPSI
023714,001294: 23,2176 77776 EXIT
023715,001295: 23,2177 34740 CAF TRACKBIT # IS TRACK FLAG SET
023716,001296: 23,2200 70075 MASK FLAGWRD1
023717,001297: 23,2201 00006 EXTEND
023718,001298: 23,2202 12312 BZF R65WAIT
023719,001299: 23,2203 04607 TC BANKCALL
023720,001300: 23,2204 54267 CADR G+N,AUTO # CHECK FOR AUTO MODE
023721,001301: 23,2205 10000 CCS A
023722,001302: 23,2206 02300 TC R61C+L04 # NOT IN AUTO
023723,001303: 23,2207 06060 TC INTPRET
023724,001304: 23,2210 45175 VLOAD CALL
023725,001305: 23,2211 01101 RRTARGET
023726,001306: 23,2212 47640 CDU*SMNB
023727,001307: 23,2213 45345 DLOAD DSU # GET PHI - ARCCOS OF Z-COMPONENT OF LOS
023728,001308: 23,2214 00162 MPAC +5
023729,001309: 23,2215 06316 COS15DEG
023730,001310: 23,2216 77440 R61LEM2 BMN EXIT # BRANCH - PHI > 15 DEGREES
|
|
Page 535 |
023732,001312: 23,2217 46234 R61C+L05 # PHI GRE 10DEG
023733,001313: 23,2220 E6,1634 EBANK= CDUXD
023734,001314: 23,2220 35006 CAF EBANK6
023735,001315: 23,2221 54003 TS EBANK
023736,001316: 23,2222 00004 INHINT
023737,001317: 23,2223 00006 EXTEND
023738,001318: 23,2224 30322 DCA CPHI
023739,001319: 23,2225 53635 DXCH CDUXD
023740,001320: 23,2226 30323 CA CPSI
023741,001321: 23,2227 55636 TS CDUZD
023742,001322: 23,2230 00003 RELINT
023743,001323: 23,2231 E7,1456 EBANK= LOSCOUNT
023744,001324: 23,2231 35007 CAF EBANK7
023745,001325: 23,2232 54003 TS EBANK
023746,001326: 23,2233 02257 TC R61C+L06
023747,001327: 23,2234 77776 R61C+L05 EXIT
023748,001328: 23,2235 00004 INHINT
023749,001329: 23,2236 04665 TC IBNKCALL
023750,001330: 23,2237 40154 FCADR ZATTEROR
023751,001331: 23,2240 04665 TC IBNKCALL
023752,001332: 23,2241 40141 FCADR SETMINDB # REDUCE ATTITUDE ERROR
023753,001333: 23,2242 05520 TC DOWNFLAG
023754,001334: 23,2243 00124 ADRES 3AXISFLG
023755,001335: 23,2244 05506 TC UPFLAG
023756,001336: 23,2245 00114 ADRES PDSPFLAG # SET PRIORITY DISPLAY FLAG
023757,001337: 23,2246 04607 TC BANKCALL
023758,001338: 23,2247 54125 CADR R60LEM
023759,001339: 23,2250 00004 INHINT
023760,001340: 23,2251 04665 TC IBNKCALL
023761,001341: 23,2252 40115 FCADR RESTORDB
023762,001342: 23,2253 05355 TC PHASCHNG
023763,001343: 23,2254 04022 OCT 04022
023764,001344: 23,2255 05520 TC DOWNFLAG
023765,001345: 23,2256 00114 ADRES PDSPFLAG # RESET PRIORITY DISPLAY FLAG
023766,001346: 23,2257 30075 R61C+L06 CA FLAGWRD1
023767,001347: 23,2260 74733 MASK R61FLBIT
023768,001348: 23,2261 10000 CCS A
023769,001349: 23,2262 02303 TC R61C+L4
023770,001350: 23,2263 11745 CCS R65CNTR
023771,001351: 23,2264 02266 TC +2
023772,001352: 23,2265 02303 TC R61C+L4 # R65CNTR = 0 - EXIT ROUTINE
023773,001353: 23,2266 55745 TS R65CNTR
023774,001354: 23,2267 32317 CAF 06SEC
023775,001355: 23,2270 05175 TC TWIDDLE
023776,001356: 23,2271 02273 ADRES R61C+L2
023777,001357: 23,2272 05146 TC ENDOFJOB
023778,001358: 23,2273 37735 R61C+L2 CAF PRIO26
023779,001359: 23,2274 05076 TC FINDVAC
023780,001360: 23,2275 E7,1456 EBANK= LOSCOUNT
023781,001361: 23,2275 02131 46067 2CADR R61C+L01
023782,001362:
|
|
Page 536 |
023784,001364: 23,2277 05263 TC TASKOVER
023785,001365: 23,2300 04607 R61C+L04 TC BANKCALL # TO CONVERT ANGLES TO FDAI
023786,001366: 23,2301 54300 CADR BALLANGS
023787,001367: 23,2302 02257 TC R61C+L06
023788,001368: 23,2303 31142 R61C+L4 CAE GENRET
023789,001369: 23,2304 14631 TCF BANKJUMP # EXIT R61
023790,001370: 23,2305 32314 R61C+L1 CAF BIT7+9PV # IS RENDEZVOUS OR P25FLAG SET
023791,001371: 23,2306 70074 MASK STATE
023792,001372: 23,2307 00006 EXTEND
023793,001373: 23,2310 15146 BZF ENDOFJOB # NO-EXIT ROUTINE AND PROGRAM.
023794,001374: 23,2311 02257 TC R61C+L06 # YES EXIT ROUTINE
023795,001375: 23,2312 04626 R65WAIT TC POSTJUMP
023796,001376: 23,2313 50310 CADR P20LEMWT
023797,001377:
023798,001378:
023799,001379: 23,2314 00500 BIT7+9PV OCT 00500
023800,001380: 23,2315 17350 34602 COS15DEG 2DEC 0.96593 B-1
023801,001381:
023802,001382: 23,2317 01130 06SEC DEC 600 B-14
023803,001383: 23,2320 PHI EQUALS 20D
023804,001384: 23,2320 00004 READCDUD INHINT # READS DESIRED CDU'S AND STORES IN
023805,001385: 23,2321 35006 CAF EBANK6 # MPAC TP EXITS WITH MODE SET TO TP
023806,001386: 23,2322 56003 XCH EBANK
023807,001387: 23,2323 54070 TS RUPTREG1
023808,001388: 23,2324 E6,1634 EBANK= CDUXD
023809,001389: 23,2324 31634 CA CDUXD
023810,001390: 23,2325 54154 TS MPAC
023811,001391: 23,2326 00006 EXTEND
023812,001392: 23,2327 31636 DCA CDUYD
023813,001393: 23,2330 52156 DXCH MPAC +1
023814,001394: 23,2331 30070 CA RUPTREG1
023815,001395: 23,2332 54003 TS EBANK
023816,001396: 23,2333 00003 RELINT
023817,001397: 23,2334 16520 TCF TMODE
023818,001398: 4503 BLOCK 02
023819,001399: 4000 SETLOC RADARFF
023820,001400: 4000 BANK
023821,001401:
023822,001402: 4503 E7,1456 EBANK= LOSCOUNT
023823,001403: 4503 COUNT* $$/RRSUB
023824,001404:
|
|
Page 537 |
023826,001406: # THE FOLLOWING SUBROUTINE RETURNS TO CALLER + 2 IF THE ABSOLUTE VALUE OF VALUE OF C(A) IS GREATER THAN THE
023827,001407: # NEGATIVE OF THE NUMBER AT CALLER +1. OTHERWISE IT RETURNS TO CALLER +3. MAY BE CALLED IN RUPT OR UNDER EXEC.
023828,001408:
023829,001409: 4503 00006 MAGSUB EXTEND
023830,001410: 4504 64506 BZMF +2
023831,001411: 4505 14507 TCF +2
023832,001412: 4506 40000 COM
023833,001413:
023834,001414: 4507 50002 INDEX Q
023835,001415: 4510 60000 AD 0
023836,001416: 4511 00006 EXTEND
023837,001417: 4512 66762 BZMF Q+2 # ABS(A) <= CONST GO TO L+3
023838,001418: 4513 16760 TCF Q+1 # ABS(A) > CONST GO TO L+2
023839,001419:
|
|
Page 538 |
023841,001421: # PROGRAM NAME_ RRLIMCHK ARE IN THE LIMITS OF THE CURRENT MODE.
023842,001422:
023843,001423: # FUNCTIONAL DESCRIPTION_
023844,001424: # RRLIMCHK CHECKS RR DESIRED GIMBAL ANGLES TO SEE IF THEY ARE WITHIN
023845,001425: # THE LIMITS OF THE CURRENT MODE. INITIALLY THE DESIRED TRUNNION AND
023846,001426: # SHAFT ANGLES ARE STORED IN ITEMP1 AND ITEMP2. THE CURRENT RR
023847,001427: # ANTENNAE MODE (RADMODES BIT 12) IS CHECKED WHICH IS = 0 FOR
023848,001428: # MODE 1 AND =1 FOR MODE 2.
023849,001429: # MODE 1 - THE TRUNNION ANGLE IS CHECKED AT MAGSUB TO SEE IF IT IS
023850,001430: # BETWEEN -55 AND +55 DEGREES. IF NOT, RETURN TO L +2. IF WITHIN LIMITS,
023851,001431: # THE SHAFT ANGLE IS CHECKED TO SEE IF IT IS BETWEEN -70 AND +59 DEGREES.
023852,001432: # IF NOT, RETURN TO L +2. IF IN LIMITS, RETURN TO L +3.
023853,001433: # MODE 2 - THE SHAFT ANGLE IS CHECKED AT MAGSUB TO SEE IF IT IS
023854,001434: # BETWEEN -139 AND -25 DEGREES. IF NOT, RETURN TO L +2. IF WITHIN
023855,001435: # LIMITS, THE TRUNNION ANGLE IS CHECKED TO SEE IF IT IS BETWEEN +125
023856,001436: # AND -125 (+235) DEGREES. IF NOT, RETURN TO L +2. IF IN LIMITS, RETURN
023857,001437: # TO L +3.
023858,001438:
023859,001439: # CALLING SEQUENCE:
023860,001440: # L TC RRLIMCHK (WITH INTERRUPT INHIBITED)
023861,001441: # L +1 ADRES T,S (DESIRED TRUNNION ANGLE ADDRESS)
023862,001442:
023863,001443: # ERASABLE INITIALIZATION REQUIRED:
023864,001444: # RADMODES, MODEA, MODEB (OR DESIRED TRUNNION AND SHAFT
023865,001445: # ANGLES ELSEWHERE IN CONSECUTIVE LOCATIONS - UNSWITCHED ERASABLE OR
023866,001446: # CURRENT EBANK).
023867,001447:
023868,001448: # SUBROUTINES CALLED_ MAGSUB
023869,001449:
023870,001450: # JOBS OR TASKS INITIATED_ NONE
023871,001451:
023872,001452: # ALARMS_ NONE
023873,001453:
023874,001454: # EXIT_ L + 2 (EITHER OR BOTH ANGLES NOT WITHIN LIMITS OF CURRENT MODE)
023875,001455: # L + 3 (BOTH ANGLES WITHIN LIMITS OF CURRENT MODE)
023876,001456:
023877,001457: 4514 00006 RRLIMCHK EXTEND
023878,001458: 4515 50002 INDEX Q
023879,001459: 4516 50000 INDEX 0
023880,001460: 4517 30001 DCA 0
023881,001461: 4520 24002 INCR Q
023882,001462: 4521 52062 DXCH ITEMP1
023883,001463: 4522 22002 LXCH Q # L(CALLER +2) TO L.
023884,001464:
023885,001465: 4523 34731 CAF ANTENBIT # SEE WHICH MODE RR IS IN.
023886,001466: 4524 70110 MASK RADMODES
023887,001467: 4525 10000 CCS A
023888,001468: 4526 14541 TCF MODE2CHK
023889,001469:
023890,001470: 4527 30061 CA ITEMP1 # MODE 1 IS DEFINED AS
|
|
Page 539 |
023892,001472: 4530 04503 TC MAGSUB # 1. ABS(T) L 55 DEGS.
023893,001473: 4531 66161 DEC -.30555 # 2. ABS(S + 5.5 DEGS) L 64.5 DEGS
023894,001474: 4532 00001 TC L # (SHAFT LIMITS AT +59, -70 DEGS)
023895,001475:
023896,001476: 4533 34553 CAF 5.5DEGS
023897,001477: 4534 60062 AD ITEMP2 # S
023898,001478: 4535 04503 TC MAGSUB
023899,001479: 4536 64420 DEC -.35833 # 64.5 DEGS
023900,001480: 4537 00001 TC L
023901,001481: 4540 04551 TC RRLIMOK # IN LIMITS.
023902,001482:
023903,001483: 4541 34554 MODE2CHK CAF 82DEGS # MODE 2 IS DEFINED AS
023904,001484: 4542 60062 AD ITEMP2 # 1. ABS(T) G 125 DEGS.
023905,001485: 4543 04503 TC MAGSUB # 2. ABS(S + 82 DEGS) L 57 DEGS
023906,001486: 4544 65673 DEC -.31667 # (SHAFT LIMITS AT -25, -139 DEGS)
023907,001487: 4545 00001 TC L
023908,001488:
023909,001489: 4546 30061 CA ITEMP1
023910,001490: 4547 04503 TC MAGSUB
023911,001491: 4550 51615 DEC -.69444 # 125 DEGS
023912,001492:
023913,001493: 4551 50001 RRLIMOK INDEX L
023914,001494: 4552 00001 TC L # ( = TC 1)
023915,001495:
023916,001496: 4553 00765 5.5DEGS DEC .03056
023917,001497: 4554 16450 82DEGS DEC .45556
023918,001498:
|
|
Page 540 |
023920,001500: # PROGRAM NAME_ SETTRKF . IF EITHER:
023921,001501:
023922,001502: # FUNCTIONAL DESCRIPTION_
023923,001503: # SETTRKF UPDATES THE TRACKER FAIL LAMP ON THE DSKY. HER THE ALT OR VEL INFORMATION.
023924,001504: # INITIALLY THE LAMP TEST FLAG (IMODES33 BIT 1) IS CHECKED.
023925,001505: # IF A LAMP TEST IS IN PROGRESS, THE PROGRAM EXITS TO L +1.
023926,001506: # IF NO LAMP TEST THE FOLLOWING IS CHECKED SEQUENTIALLY_
023927,001507: # 1) RR CDU:S BEING ZEROED, RR CDU OK, AND RR NOT IN
023928,001508: # AUTO MODE (RADMODES BITS 13, 7, 2).
023929,001509: # 2) LR VEL DATA FAIL AND NO LR POS DATA (RADMODES BITS
023930,001510: # 8,5)
023931,001511: # 3) NO RR DATA (RADMODES BIT 4)
023932,001512: # THE ABSENCE OF ALL THREE SIMULTANEOUSLY IN (1), THE PRESENCE OF BOTH
023933,001513: # IN (2), AND THE PRESENCE OF (3) RESULTS IN EITHER THE TRACKER FAIL
023934,001514: # LAMP (DSPTAB +11D BIT 8) BEING TURNED ON OR LEFT ON. OTHERWISE,
023935,001515: # THE TRACKER FAIL LAMP IS TURNED OFF OR IS LEFT OFF. THEREFORE, THE
023936,001516: # TRACKER FAIL LAMP IS TURNED ON IF_
023937,001517: # A ) RR CDU FAILED WITH RR IN AUTO MODE AND RR CDU:S NOT BEING ZEROED.
023938,001518: # B) N SAMPLES OF LR DATA COULD NOT BE TAKEN IN 2N TRIES WITH
023939,001519: # EITHER THE ALT OR VEL INFORMATION
023940,001520: # C) N SAMPLES OF RR DATA COULD NOT BE OBTAINED FROM 2N TRIES
023941,001521: # WITH EITHER THE AL
023942,001522:
023943,001523: # CALLING SEQUENCE:
023944,001524: # L TC SETTRKF
023945,001525:
023946,001526: # ERASABLE INITIALIZATION REQUIRED: IMODES33, RADMODES, DSPTAB +11D
023947,001527: # SUBROUTINES CALLED_ NONE
023948,001528:
023949,001529: # JOBS OR TASKS INITIATED_ NONE
023950,001530:
023951,001531: # ALARMS_ TRACKER FAIL LAMP
023952,001532:
023953,001533: # EXIT_ L +1 (ALWAYS) ED.
023954,001534:
023955,001535: 4555 34744 SETTRKF CAF BIT1 # NO ACTION IF DURING LAMP TEST.
023956,001536: 4556 71300 MASK IMODES33
023957,001537: 4557 10000 CCS A
023958,001538: 4560 00002 TC Q
023959,001539:
023960,001540: 4561 34735 RRTRKF CA BIT8
023961,001541: 4562 54001 TS L
023962,001542:
023963,001543: 4563 34606 CAF 13,7,2 # SEE IF CDU FAILED.
023964,001544: 4564 70110 MASK RADMODES
023965,001545: 4565 00006 EXTEND
023966,001546: 4566 14572 BZF TRKFLON # CONDITION 3 ABOVE.
023967,001547:
023968,001548: 4567 34741 RRCHECK CAF RRDATABT # SEE IF RR DATA FAILED.
023969,001549: 4570 70110 MASK RADMODES
|
|
Page 541 |
023971,001551: 4571 10000 CCS A
023972,001552: 4572 30001 TRKFLON CA L
023973,001553: 4573 61035 AD DSPTAB +11D # HALF ADD DESIRED AND PRESENT STATES.
023974,001554: 4574 70001 MASK L
023975,001555: 4575 00006 EXTEND
023976,001556: 4576 16763 BZF TCQ # NO CHANGE.
023977,001557:
023978,001558: 4577 31035 FLIP CA DSPTAB +11D # CANT USE LXCH DSPTAB +11D (RESTART PROB)
023979,001559: 4600 00006 EXTEND
023980,001560: 4601 06001 RXOR LCHAN
023981,001561: 4602 74724 MASK POSMAX
023982,001562: 4603 64726 AD BIT15
023983,001563: 4604 55035 TS DSPTAB +11D
023984,001564: 4605 00002 TC Q
023985,001565:
023986,001566: 4606 10102 13,7,2 OCT 10102
023987,001567: 4607 ENDRMODF EQUALS
023988,001568:
|
|
Page 542 |
023990,001570: # PROGRAM NAME_ RRTURNON
|
|
A vertical line is drawn next to the log section name and program name. |
023992,001572:
023993,001573: # FUNCTIONAL DESCRIPTION_
023994,001574:
023995,001575: # RRTURNON IS THE TURN-ON SEQUENCE WHICH, ALONG WITH
023996,001576: # RRZEROSB, ZEROS THE CDU:S AND DETERMINES THE RR MODE.
023997,001577: # INITIALLY, CONTROL IS TRANSFERRED TO RRZEROSB FOR THE
023998,001578: # ACTUAL TURN-ON SEQUENCE. UPON RETURN THE PROGRAM
023999,001579: # WAITS 1 SECOND BEFORE REMOVING THE TURN-ON FLAG
024000,001580: # (RADMODES BIT1) SO THE REPOSITION ROUTINE WON:T
024001,001581: # INITIATE PROGRAM ALARM 00501. A CHECK IS THEN MADE
024002,001582: # TO SEE IF A PROGRAM IS USING THE RR (STATE BIT 7). IF
024003,001583: # SO, THE PROGRAM EXITS TO ENDRADAR SO THAT THE RR CDU
024004,001584: # FAIL FLAG (RADMODES BIT 7) CAN BE CHECKED BEFORE
024005,001585: # RETURNING TO THE WAITING PROGRAM. IF NOT, THE PROGRAM EXITS
024006,001586: # TO TASKOVER.
024007,001587:
024008,001588: # CALLING SEQUENCE: WAITLIST TASK FROM RRAUTCHK IF THE RR POWER ON AUTO
024009,001589: # BIT (CHAN 33 BIT 2) CHANGES TO 0 AND NO PROGRAM WAS USING
024010,001590: # THE RR (STATE BIT 7).
024011,001591:
024012,001592: # ERASABLE INITIALIZATION REQUIRED:
024013,001593: # RADMODES, STATE
024014,001594:
024015,001595: # SUBROUTINES CALLED_ RRZEROSB, FIXDELAY, TASKOVER, ENDRADAR
024016,001596:
024017,001597: # JOBS OR TASKS INITIATED_
024018,001598: # NONE
024019,001599:
024020,001600: # ALARMS_ NONE (SEE RRZEROSB)
024021,001601:
024022,001602: # EXIT_ TASKOVER, ENDRADAR (WAITING PROGRAM)
024023,001603:
024024,001604: 24,3337 BANK 24
024025,001605: 25,2000 SETLOC P20S1
024026,001606: 25,2000 BANK
024027,001607:
024028,001608: 25,2053 E7,1456 EBANK= LOSCOUNT
024029,001609: 25,2053 COUNT* $$/RSUB
024030,001610: 25,2053 02062 RRTURNON TC RRZEROSB
024031,001611: 25,2054 05223 TC FIXDELAY # WAIT 1 SEC BEFORE REMOVING TURN ON FLAG
024032,001612: 25,2055 00144 DEC 100 B-14 # SO A MONITOR REPOSITION WONT ALARM.
024033,001613: 25,2056 44744 CS TURNONBT
024034,001614: 25,2057 70110 MASK RADMODES
024035,001615: 25,2060 54110 TS RADMODES
024036,001616: 25,2061 15263 TCF TASKOVER
024037,001617:
|
|
Page 543 |
024039,001619: # PROGRAM NAME_ RRZEROSB
024040,001620:
024041,001621: # FUNCTIONAL DESCRIPTION_
024042,001622: # RRZEROSB IS A CLOSED SUBROUTINE TO ZERO THE RR CDU:S,
024043,001623: # DETERMINE THE RR MODE, AND TURNS ON THE TRACKER FAIL
024044,001624: # LAMP IF REQUIRED. INITIALLY THE RR CDU ZERO BIT (CHAN 12
024045,001625: # BIT 1) IS SET. FOLLOWING A 20 MILLISECOND WAIT, THE LGC
024046,001626: # RR CDU COUNTERS (OPTY, OPTX) ARE SET = 0 AFTER
024047,001627: # WHICH THE RR CDU ZERO DISCRETE (CHAN 12 BIT 1) IS
024048,001628: # REMOVED. A 4 SECOND WAIT IS SET TO ALL THE RR CDU:S
024049,001629: # TO REPEAT THE ACTUAL TRUNNION AND SHAFT ANGLES. THE
024050,001630: # RR CDU ZERO FLAG (RADMODES BIT 13) IS REMOVED. THE
024051,001631: # CONTENTS OF OPTY IS THEN CHECKED TO SEE IF THE TRUNNION
024052,001632: # ANGLE IS LESS THAN 90 DEGREES. IF NOT, BIT 12 OF
024053,001633: # RADMODES IS SET = 1 TO INDICATE RR ANTENNA MODE 2.
024054,001634: # IF LESS THAN 90 DEGREES, BIT 12 OF RADMODES IS SET = 0 TO
024055,001635: # INDICATE RR ANTENNA MODE 1. SETTRKF IS THEN CALLED TO
024056,001636: # SEE IF THE TRACKER FAIL LAMP SHOULD BE TURNED ON.
024057,001637:
024058,001638: # CALLING SEQUENCE: L TC RRZEROSB (FROM RRTURNON AND RRZERO)
024059,001639: # ERASABLE INITIALIZATION REQUIRED:
024060,001640: # RADMODES (BIT 13 SET), DSPTAB +11D
024061,001641:
024062,001642: # SUBROUTINES CALLED_ FIXDELAY, MAGSUB, SETTRKF
024063,001643:
024064,001644: # JOBS OR TASKS INITIATED_
024065,001645: # NONE
024066,001646:
024067,001647: # ALARMS_ TRACKER FAIL
024068,001648:
024069,001649: # EXIT_ L +1 (ALWAYS)
024070,001650:
024071,001651: 25,2062 00006 RRZEROSB EXTEND
024072,001652: 25,2063 23312 QXCH RRRET
024073,001653: 25,2064 34744 CAF BIT1 # BIT 13 OF RADMODES MUST BE SET BEFORE
024074,001654: 25,2065 00006 EXTEND # COMING HERE.
024075,001655: 25,2066 05012 WOR CHAN12 # TURN ON ZERO RR CDU
024076,001656: 25,2067 05223 TC FIXDELAY
024077,001657: 25,2070 00002 DEC 2 B-14
024078,001658:
024079,001659: 25,2071 34746 CAF ZERO
024080,001660: 25,2072 54035 TS CDUT
024081,001661: 25,2073 54036 TS CDUS
024082,001662: 25,2074 44744 CS ONE # REMOVE ZEROING BIT.
024083,001663: 25,2075 00006 EXTEND
024084,001664: 25,2076 03012 WAND CHAN12
024085,001665: 25,2077 05223 TC FIXDELAY
024086,001666: 25,2100 01750 DEC 1000 B-14 # RESET FAIL INHIBIT IN 10 SECS - D.281
024087,001667:
024088,001668: 25,2101 44730 CS RCDU0BIT # REMOVE ZEROING IN PROCESS BIT.
|
|
Page 544 |
024090,001670: 25,2102 70110 MASK RADMODES
024091,001671: 25,2103 54110 TS RADMODES
024092,001672:
024093,001673: 25,2104 30035 CA CDUT
024094,001674: 25,2105 04503 TC MAGSUB
024095,001675: 25,2106 57777 DEC -.5
024096,001676: 25,2107 12112 TCF +3 # IF MODE 2.
024097,001677:
024098,001678: 25,2110 34746 CAF ZERO
024099,001679: 25,2111 12113 TCF +2
024100,001680: 25,2112 34731 CAF ANTENBIT
024101,001681: 25,2113 56110 XCH RADMODES
024102,001682: 25,2114 77762 MASK -BIT12
024103,001683: 25,2115 26110 ADS RADMODES
024104,001684:
024105,001685: 25,2116 04555 TC SETTRKF # TRACKER LAMP MIGHT GO ON NOW.
024106,001686:
024107,001687: 25,2117 01312 TC RRRET # DONE.
024108,001688:
024109,001689: 25,2120 7762 -BIT12 EQUALS -1/8 # IN SPROOT
024110,001690:
|
|
Page 545 |
024112,001692: # PROGRAM NAME_ DORREPOS
024113,001693: # FUNCTIONAL DESCRIPTION_
024114,001694: # DORREPOS IS A SEQUENCE OF TASKS TO DRIVE THE RENDEZVOUS RADAR
024115,001695: # TO A SAFE POSITION. INITIALLY SETRRECR IS CALLED WHERE THE RR
024116,001696: # ERROR COUNTERS (CHAN 12 BIT 2) ARE ENABLED AND LASTYCMD
024117,001697: # AND LASTXCMD SET = 0 TO INDICATE THE DIFFERENCE BETWEEN THE
024118,001698: # DESIRED STATE AND PRESENT STATE OF THE COMMANDS. THE RR
024119,001699: # TURN-ON FLAG (RADMODES BIT 1) IS CHECKED AND IF NOT PRESENT,
024120,001700: # PROGRAM ALARM 00501 IS REQUESTED BEFORE CONTINUING. IN EITHER
024121,001701: # CASE, FOLLOWING A 20 MILLISECOND WAIT THE PROGRAM CHECKS THE CURRENT
024122,001702: # RR ANTENNA MODE (RADMODES BIT 12). RRTONLY IS THEN CALLED
024123,001703: # TO DRIVE THE TRUNNION ANGLE TO 0 DEGREES IF IN MODE 1 AND TO 180
024124,001704: # DEGREES IF IN MODE 2. UPON RETURN, THE CURRENT RR ANTENNA
024125,001705: # MODE (RADMODES BIT 12) IS AGAIN CHECKED. RRSONLY IS THEN
024126,001706: # CALLED TO DRIVE THE SHAFT ANGLE TO 0 DEGREES IF IN MODE 1 AND TO
024127,001707: # -90 DEGREES IF IN MODE 2. IF DURING RRTONLY OR RRSONLY A
024128,001708: # REMODE HAS BEEN REQUESTED (RADMODES BIT 14), AND ALWAYS
024129,001709: # FOLLOWING COMPLETION OF RRSONLY, CONTROL IS TRANSFERRED TO
024130,001710: # REPOSRPT. HERE THE REPOSITION FLAG (RADMODES BIT 11) IS
024131,001711: # REMOVED. A CHECK IS THEN MADE ON THE DESIGNATE FLAG (RADMODES
024132,001712: # BIT 10). IF PRESENT, CONTROL IS TRANSFERRED TO BEGDES. IF NOT PRESENT
024133,001713: # INDICATING NO FURTHER ANTENNA CONTROL REQUIRED, THE RR ERROR
024134,001714: # COUNTER BIT (CHAN 12 BIT 2) IS REMOVED AND THE ROUTINE EXITS TO
024135,001715: # TASKOVER.
024136,001716:
024137,001717: # CALLING SEQUENCE:
024138,001718: # WAITLIST CALL FROM RRGIMON IF TRUNNION AND SHAFT CDU ANGLES
024139,001719: # NOT WITHIN LIMITS OF CURRENT MODE.
024140,001720:
024141,001721: # ERASABLE INITIALIZATION REQUIRED:
024142,001722: # RADMODES
024143,001723:
024144,001724: # SUBROUTINES CALLED_
024145,001725: # RRTONLY, RRSONLY, BEGDES (EXIT)
024146,001726:
024147,001727: # JOBS OR TASKS INITIATED_
024148,001728: # NONE
024149,001729:
024150,001730: # ALARMS- NONE
024151,001731:
024152,001732: # EXIT_ TASKOVER, BEGDES
024153,001733:
024154,001734: 25,2120 02147 DORREPOS TC SETRRECR # SET UP RR CDU ERROR COUNTERS.
024155,001735:
024156,001736: # ALARM 501 DELETED IN DANCE 279 PER PCR 97.
024157,001737:
024158,001738: 25,2121 05223 TC FIXDELAY
024159,001739: 25,2122 00002 DEC 2 B-14
024160,001740:
024161,001741: 25,2123 34731 CAF ANTENBIT # MANEUVER TRUNNION ANGLE TO NOMINAL POS.
|
|
Page 546 |
024163,001743: 25,2124 70110 MASK RADMODES
024164,001744: 25,2125 10000 CCS A
024165,001745: 25,2126 34726 CAF BIT15 # 0 FOR MODE 1 AND 180 FOR MODE 2.
024166,001746: 25,2127 02232 TC RRTONLY
024167,001747:
024168,001748: 25,2130 34731 CAF ANTENBIT # NOW PUT SHAFT IN RIGHT POSITION
024169,001749: 25,2131 70110 MASK RADMODES
024170,001750: 25,2132 10000 CCS A
024171,001751: 25,2133 44727 CS HALF # -90 FOR MODE 2.
024172,001752: 25,2134 02235 TC RRSONLY
024173,001753:
024174,001754: 25,2135 44732 REPOSRPT CS REPOSBIT # RETURNS HERE FROM RR1AXIS IF REMODE
024175,001755: # REQUESTED DURING REPOSITION.
024176,001756: 25,2136 70110 MASK RADMODES # REMOVE REPOSITION BIT.
024177,001757: 25,2137 54110 TS RADMODES
024178,001758: 25,2140 74733 MASK DESIGBIT # SEE IF SOMEONE IS WAITING TO DESIGNATE.
024179,001759: 25,2141 10000 CCS A
024180,001760: 25,2142 12564 TCF BEGDES
024181,001761: 25,2143 44743 CS BIT2 # IF NO FURTHER ANTENNA CONTROL REQUIRED,
024182,001762: 25,2144 00006 EXTEND # REMOVE ERROR COUNTER ENABLE.
024183,001763: 25,2145 03012 WAND CHAN12
024184,001764: 25,2146 15263 TCF TASKOVER
024185,001765:
024186,001766: 25,2147 34743 SETRRECR CAF BIT2 # SET UP RR ERROR COUNTERS.
024187,001767: 25,2150 00006 EXTEND
024188,001768: 25,2151 02012 RAND CHAN12
024189,001769: 25,2152 10000 CCS A # DO NOT CLEAR LAST COMMAND IF
024190,001770: 25,2153 00002 TC Q # ERROR COUNTERS ARE ENABLED.
024191,001771:
024192,001772: 25,2154 54112 TS LASTYCMD
024193,001773: 25,2155 54113 TS LASTXCMD
024194,001774: 25,2156 34743 CAF BIT2
024195,001775: 25,2157 00006 EXTEND
024196,001776: 25,2160 05012 WOR CHAN12 # ENABLE RR CDU ERROR COUNTERS.
024197,001777: 25,2161 00002 TC Q
|
|
Page 547 |
024199,001779: # PROGRAM NAME_ REMODE IVES SHAFT TO -45, AND FINALLY DRIVES
024200,001780:
024201,001781: # FUNCTIONAL DESCRIPTION_ S DONE WITH SINGLE AXIS ROTATIONS (SEE
024202,001782: # REMODE IS THE GENERAL REMODING SUBROUTINE. IT DRIVES THE
024203,001783: # TRUNNION ANGLE TO 0 DEGREES IF THE CURRENT MODE IS MODE 1,
024204,001784: # 180 DEGREES FOR MODE 2, THEN DRIVES THE SHAFT ANGLE TO -45
024205,001785: # DEGREES, AND FINALLY DRIVES THE TRUNNION ANGLE TO -130 DEGREES,
024206,001786: # TO PLACE THE RR IN MODE 2, -50 DEGREES FOR MODE 1, BEFORE
024207,001787: # INITIATING 2-AXIS CONTROL. ALL REMODING IS DONE WITH SINGLE
024208,001788: # AXIS ROTATIONS (RR1AXIS). INITIALLY THE RR ANTENNA MODE FLAG
024209,001789: # (RADMODES BIT 12) IS CHECKED. CONTROL IS THEN TRANSFERRED TO
024210,001790: # RRTONLY TO DRIVE THR TRUNNION ANGLE TO 0 DEGREES IF IN MODE 1
024211,001791: # OR 180 DEGREES IF IN MODE 2. RRSONLY IS THEN CALLED TO DRIVE
024212,001792: # THE SHAFT ANGLE TO -45 DEGREES. THE RR ANTENNA MODE FLAG
024213,001793: # (RADMODES BIT 12) IS CHECKED AGAIN. CONTROL IS AGAIN
024214,001794: # TRANSFERRED TO RRTONLY TO DRIVE THE TRUNNION ANGLE TO -130
024215,001795: # DEGREES TO PLACE THE RR IN MODE 2 IF CURRENTLY IN MODE 1 OR TO
024216,001796: # -50 DEGREES IF IN MODE 2 TO PLACE THE RR IN MODE 1. RMODINV
024217,001797: # IS THEN CALLED TO SET RADMODES BIT 12 TO INDICATE THE NEW
024218,001798: # RR ANTENNA MODE. THE REMODE FLAG (RADMODES BIT 14)
024219,001799: # IS REMOVED TO INDICATE THAT REMODING IS COMPLETE. THE PROGRAM
024220,001800: # THEN EXITS TO STDESIG TO BEGIN 2-AXIS CONTROL.
024221,001801:
024222,001802: # CALLING SEQUENCE:
024223,001803: # FROM BEGDES WHEN REMODE FLAG (RADMODES BIT 14) IS SET.
024224,001804: # THIS FLAG MAY BE SET IN RRDESSM AND RRDESNB IF RRLIMCHK
024225,001805: # DETERMINES THAT THE DESIRED ANGLES ARE WITHIN THE LIMITS OF THE
024226,001806: # OTHER MODE.
024227,001807:
024228,001808: # ERASABLE INITIALIZATION REQUIRED:
024229,001809: # RADMODES
024230,001810:
024231,001811: # SUBROUTINES CALLED_
024232,001812: # RRTONLY, RRSONLY, RMODINV (ACTUALLY PART OF)
024233,001813:
024234,001814: # JOBS OR TASKS INITIATED_
024235,001815: # NONE
024236,001816:
024237,001817: # ALARMS_ NONE
024238,001818:
024239,001819: # EXIT_ STDESIG
024240,001820:
024241,001821: 25,2162 34731 REMODE CAF ANTENBIT # DRIVE TRUNNION TO 0 (180)
024242,001822: 25,2163 70110 MASK RADMODES # (ERROR COUNTER ALREADY ENABLED)
024243,001823: 25,2164 10000 CCS A
024244,001824: 25,2165 34726 CAF BIT15
024245,001825: 25,2166 02232 TC RRTONLY
024246,001826:
024247,001827: 25,2167 37761 CAF -45DEGSR
024248,001828: 25,2170 02235 TC RRSONLY
|
|
Page 548 |
024250,001830: 25,2171 40110 CS RADMODES
024251,001831: 25,2172 74731 MASK ANTENBIT
024252,001832: 25,2173 10000 CCS A
024253,001833: 25,2174 32223 CAF -80DEGSR # GO TO T = -130 (-50).
024254,001834: 25,2175 62222 AD -50DEGSR
024255,001835: 25,2176 02232 TC RRTONLY
024256,001836:
024257,001837: 25,2177 40110 CS RADMODES
024258,001838: 25,2200 74731 MASK ANTENBIT
024259,001839: 25,2201 10000 CCS A
024260,001840: 25,2202 34726 CAF BIT15 # GO TO T = -180 (+0).
024261,001841: 25,2203 02232 TC RRTONLY
024262,001842:
024263,001843: 25,2204 40110 CS RADMODES # GO TO S = -90 (+0).
024264,001844: 25,2205 74731 MASK ANTENBIT
024265,001845: 25,2206 10000 CCS A
024266,001846: 25,2207 44727 CS HALF
024267,001847: 25,2210 02235 TC RRSONLY
024268,001848:
024269,001849: 25,2211 02224 TC RMODINV
024270,001850: 25,2212 44727 CS REMODBIT # END OF REMODE.
024271,001851: 25,2213 70110 MASK RADMODES
024272,001852: 25,2214 54110 TS RADMODES
024273,001853:
024274,001854: 25,2215 34733 CAF DESIGBIT # WAS REMODE CALLED DURING DESIGNATE?
024275,001855: 25,2216 70110 MASK RADMODES # (BIT10 RADMODES = 1)
024276,001856: 25,2217 00006 EXTEND
024277,001857: 25,2220 13616 BZF RGOODEND # NO-RETURN TO CALLER WAITING IN RADSTALL
024278,001858: 25,2221 02573 TC STDESIG # YES - RETURN TO DESIGNATE
024279,001859: 25,2222 7761 -45DEGSR = 13,14,15
024280,001860: 25,2222 67070 -50DEGSR DEC -.27778
024281,001861: 25,2223 61615 -80DEGSR DEC -.44444
024282,001862:
024283,001863: 25,2224 22110 RMODINV LXCH RADMODES # INVERT THE MODE STATUS.
024284,001864: 25,2225 34731 CAF ANTENBIT
024285,001865: 25,2226 00006 EXTEND
024286,001866: 25,2227 06001 RXOR LCHAN
024287,001867: 25,2230 54110 TS RADMODES
024288,001868: 25,2231 00002 TC Q
024289,001869:
|
|
Page 549 |
024291,001871: # PROGRAM NAMES_ RRTONLY, RRSONLY
024292,001872:
024293,001873: # FUNCTIONAL DESCRIPTION_
024294,001874: # RRTONLY AND RRSONLY ARE SUBROUTINES FOR DOING SINGLE AXIS
024295,001875: # RR MANEUVERS FOR REMODE AND REPOSITION. IT DRIVES TO
024296,001876: # WITHIN 1 DEGREE. INITIALLY, AT RR1AX2, THE REMODE AND REPOSITION
024297,001877: # FLAGS (RADMODES BITS 14, 11) ARE CHECKED. IF BOTH EXIST,
024298,001878: # THE PROGRAM EXITS TO REPOSRPT (SEE DORREPOS). THIS INDICATES
024299,001879: # THAT SOMEONE POSSIBLY REQUESTED A DESIGNATE (RADMODES BIT 10)
024300,001880: # WHICH REQUIRES A REMODE (RADMODES BIT 14) AND THAT A
024301,001881: # REPOSITION IS IN PROGRESS (RADMODES BIT 11). IF NONE
024302,001882: # OR ONLY ONE OF THE FLAGS EXIST, REMODE OR REPOSITION, MAGSUB
024303,001883: # IS CALLED TO SEE IF THE APPROPRIATE ANGLE IS WITHIN 1 DEGREE. IF YES,
024304,001884: # CONTROL RETURNS TO THE CALLING ROUTINE. IF NOT, CONTROL IS
024305,001885: # TRANSFERRED TO RROUT FOR SINGLE AXIS MANEUVERS WITH THE OTHER
024306,001886: # ANGLE SET = 0. FOLLOWING A .5 SECOND WAIT, THE ABOVE PROCEDURE IS
024307,001887: # REPEATED.
024308,001888:
024309,001889: # CALLING SEQUENCE: L-1 CAF *ANGLE* (DESIRED ANGLE SCALED PI)
024310,001890: # L TC RRTONLY (TRUNNION ONLY)
024311,001891: # RRSONLY (SHAFT ONLY)
024312,001892: # RRTONLY IS CALLED BY PREPOS29;
024313,001893: # RRTONLY AND RRSONLY ARE CALLED BY DORREPOS AND REMODE
024314,001894:
024315,001895: # ERASABLE INITIALIZATION REQUIRED:
024316,001896: # C(A) = DESIRED ANGLE, RADMODES
024317,001897:
024318,001898: # SUBROUTINES CALLED_
024319,001899: # FIXDELAY, REPOSRPT, MAGSUB, RROUT
024320,001900:
024321,001901: # JOBS OR TASKS INITIATED_
024322,001902: # NONE
024323,001903:
024324,001904: # ALARMS_ NONE
024325,001905:
024326,001906: # EXIT_ REPOSRPT (REMODE AND REPOSITION FLAGS PRESENT - RADMODES
024327,001907: # BITS 14, 11)
024328,001908: # L+1 (ANGLE WITHIN ONE DEGREE OR RR OUT OF AUTO MODE)
024329,001909:
024330,001910: 25,2232 55313 RRTONLY TS RDES # DESIRED TRUNION ANGLE.
024331,001911: 25,2233 34746 CAF ZERO
024332,001912: 25,2234 12237 TCF RR1AXIS
024333,001913:
024334,001914: 25,2235 55313 RRSONLY TS RDES # SHAFT COMMANDS ARE UNRESOLVED SINCE THIS
024335,001915: 25,2236 34744 CAF ONE # ROUTINE ENTERED ONLY WHEN T = 0 OR 180.
024336,001916:
024337,001917: 25,2237 55314 RR1AXIS TS RRINDEX
024338,001918: 25,2240 00006 EXTEND
024339,001919: 25,2241 23312 QXCH RRRET
024340,001920: 25,2242 12245 TCF RR1AX2
024341,001921:
|
|
Page 550 |
024343,001923: 25,2243 05223 NXTRR1AX TC FIXDELAY
024344,001924: 25,2244 00062 DEC 50 B-14 # 2 SAMPLES PER SECOND.
024345,001925:
024346,001926: 25,2245 40110 RR1AX2 CS RADMODES # IF SOMEONE REQUESTES AS DESIGNATE WHICH
024347,001927: 25,2246 77731 MASK PRIO22 # REQUIRES A REMODE AND A REPOSITION IS IN
024348,001928: 25,2247 00006 EXTEND # PROGRESS, INTERRUPT IT AND START THE
024349,001929: 25,2250 12135 BZF REPOSRPT # REMODE IMMEDIATELY.
024350,001930:
024351,001931: 25,2251 31313 CA RDES
024352,001932: 25,2252 00006 EXTEND
024353,001933: 25,2253 51314 INDEX RRINDEX
024354,001934: 25,2254 20035 MSU CDUT
024355,001935: 25,2255 54061 TS ITEMP1 # SAVE ERROR SIGNAL.
024356,001936: 25,2256 00006 EXTEND
024357,001937: 25,2257 72276 MP RRSPGAIN # TRIES TO NULL .7 OF ERROR OVER NEXT .5
024358,001938: 25,2260 54001 TS L
024359,001939: 25,2261 30110 CA RADMODES
024360,001940: 25,2262 74743 MASK AUTOMBIT
024361,001941: 25,2263 56061 XCH ITEMP1 # STORE RR-OUT-OF-AUTO-MODE BIT.
024362,001942: 25,2264 04503 TC MAGSUB # SEE IF WITHIN ONE DEGREE.
024363,001943: 25,2265 77644 DEC -.00555 # SCALED IN HALF-REVS.
024364,001944:
024365,001945: 25,2266 10061 CCS ITEMP1 # NO. IF RR OUT OF AUTO MODE, EXIT.
024366,001946: 25,2267 01312 TC RRRET # RETURN TO CALLER.
024367,001947:
024368,001948: 25,2270 11314 CCS RRINDEX # COMMAND FOR OTHER AXIS IS ZERO.
024369,001949: 25,2271 12273 TCF +2 # SETTING A TO 0.
024370,001950: 25,2272 56001 XCH L
024371,001951: 25,2273 53352 DXCH TRUNNCMD
024372,001952: 25,2274 02277 TC RROUT
024373,001953:
024374,001954: 25,2275 12243 TCF NXTRR1AX # COME BACK IN .5 SECONDS.
024375,001955:
024376,001956: 25,2276 22715 RRSPGAIN DEC .59062 # NULL .7 ERROR IN .5 SEC.
024377,001957:
|
|
Page 551 |
024379,001959: # PROGRAM NAME_ RROUT RROR COUNTER SCALING. RROUT LIMITS THEM
024380,001960:
024381,001961: # FUNCTIONAL DESCRIPTION_
024382,001962: # RROUT RECEIVES RR GYRO COMMANDS IN TANG, TANG +1 IN RR
024383,001963: # ERROR COUNTER SCALING. RROUT THEN LIMITS THEM AND
024384,001964: # GENERATES COMMANDS TO THE CDU TO ADJUST THE ERROR COUNTERS
024385,001965: # TO THE DESIRED VALUES. INITIALLY MAGSUB CHECKS THE MAGNITUDE OF
024386,001966: # THE COMMAND (SHAFT ON 1ST PASS) TO SEE IF IT IS GREATER THAN
024387,001967: # 384 PULSES. IF NOT, CONTROL IS TRANSFERRED TO RROUTLIM TO
024388,001968: # LIMIT THE COMMAND TO +384 OR -384 PULSES. THE DIFFERENCE IS
024389,001969: # THEN CALCULATED BETWEEN THE DESIRED STATE AND THE PRESENT STATE OF
024390,001970: # THE ERROR COUNTER AS RECORDED IN LASTYCMD AND LASTXCMD.
024391,001971: # THE RESULT IS STORED IN OPTXCMD (1ST PASS) AND OPTYCMD (2ND
024392,001972: # PASS). FOLLOWING THE SECOND PASS, FOR THE TRUNNION COMMAND, THE
024393,001973: # OCDUT AND OCDUS ERROR COUNTER DRIVE BITS (CHAN 14 BITS 12, 11)
024394,001974: # ARE SET. THIS PROGRAM THEN EXITS TO THE CALLING PROGRAM.
024395,001975:
024396,001976: # CALLING SEQUENCE:
024397,001977: # L TC RROUT (WITH RUPT INHIBITED) RROUT IS CALLED BY
024398,001978: # RRTONLY, RRSONLY, AND DODES
024399,001979:
024400,001980: # ERASABLE INITIALIZATION REQUIRED:
024401,001981: # TANG, TANG +1 (DESIRED COMMANDS), LASTYCMD, LASTXCMD
024402,001982: # (1ST PASS = 0), RR ERROR COUNTER ENABLE SET (CHAN 12 BIT 2).
024403,001983:
024404,001984: # SUBROUTINES CALLED_
024405,001985: # MAGSUB
024406,001986:
024407,001987: # JOBS OR TASKS INITIATED_
024408,001988: # NONE
024409,001989:
024410,001990: # ALARMS_ NONE
024411,001991:
024412,001992: # EXIT_ L+1 (ALWAYS) SIRED VALUES. RUPT MUST BE INHIBITED.
024413,001993:
024414,001994: 25,2277 22002 RROUT LXCH Q # SAVE RETURN.
024415,001995: 25,2300 34744 CAF ONE # LOOP TWICE.
024416,001996: 25,2301 54062 RROUT2 TS ITEMP2
024417,001997: 25,2302 50000 INDEX A
024418,001998: 25,2303 31351 CA TRUNNCMD
024419,001999: 25,2304 54061 TS ITEMP1 # SAVE SIGN OF COMMAND FOR LIMITING.
024420,002000:
024421,002001: 25,2305 04503 TC MAGSUB # SEE IF WITHIN LMITS.
024422,002002: 25,2306 77177 -RRLIMIT DEC -384 B-14
024423,002003: 25,2307 12326 TCF RROUTLIM # LIMIT COMMAND TO MAG OF 384.
024424,002004:
024425,002005: 25,2310 30061 SETRRCTR CA ITEMP1 # COUNT OUT DIFFERENCE BETWEEN DESIRED
024426,002006: 25,2311 50062 INDEX ITEMP2 # STATE AND PRESENT STATE AS RECORDED IN
024427,002007: 25,2312 56112 XCH LASTYCMD # LASTYCMD AND LASTXCMD
024428,002008: 25,2313 40000 COM
|
|
Page 552 |
024430,002010: 25,2314 60061 AD ITEMP1
024431,002011: 25,2315 64745 AD NEG0 # PREVENT +0 IN OUTCOUNTER
024432,002012: 25,2316 50062 INDEX ITEMP2
024433,002013: 25,2317 54053 TS CDUTCMD
024434,002014:
024435,002015: 25,2320 10062 CCS ITEMP2 # PROCESS BOTH INPUTS.
024436,002016: 25,2321 12301 TCF RROUT2
024437,002017:
024438,002018: 25,2322 35011 CAF PRIO6 # ENABLE COUNTERS.
024439,002019: 25,2323 00006 EXTEND
024440,002020: 25,2324 05014 WOR CHAN14 # PUT ON CDU DRIVES S AND T
024441,002021: 25,2325 00001 TC L # RETURN.
024442,002022:
024443,002023: 25,2326 10061 RROUTLIM CCS ITEMP1 # LIMIT COMMAND TO ABS VAL OF 384.
024444,002024: 25,2327 42306 CS -RRLIMIT
024445,002025: 25,2330 12332 TCF +2
024446,002026: 25,2331 32306 CA -RRLIMIT
024447,002027: 25,2332 54061 TS ITEMP1
024448,002028: 25,2333 12311 TCF SETRRCTR +1
024449,002029:
|
|
Page 553 |
024451,002031: # ROUTINE TO ZERO THE RR CDUS AND DETERMINE THE ANTENNA MODE.
024452,002032:
024453,002033: 25,2334 32363 RRZERO CAF BIT11+1 # SEE IF MONITOR REPOSITION OR NOT IN AUTO
024454,002034: 25,2335 70110 MASK RADMODES # IF SO, DONT RE-ZERO CDUS.
024455,002035: 25,2336 10000 CCS A
024456,002036: 25,2337 13532 TCF RADNOOP # (IMMEDIATE TASK TO RGOODEND).
024457,002037:
024458,002038: 25,2340 00004 INHINT
024459,002039: 25,2341 44730 CS RCDU0BIT # SET FLAG TO SHOW ZEROING IN PROGRESS.
024460,002040: 25,2342 70110 MASK RADMODES
024461,002041: 25,2343 64730 AD RCDU0BIT
024462,002042: 25,2344 54110 TS RADMODES
024463,002043:
024464,002044: 25,2345 34744 CAF ONE
024465,002045: 25,2346 05205 TC WAITLIST
024466,002046: 25,2347 E7,1456 EBANK= LOSCOUNT
024467,002047: 25,2347 02361 52067 2CADR RRZ2
024468,002048:
024469,002049:
024470,002050: 25,2351 40110 CS RADMODES # SEE IF IN AUTO MODE.
024471,002051: 25,2352 74743 MASK AUTOMBIT
024472,002052: 25,2353 10000 CCS A
024473,002053: 25,2354 12357 TCF ROADBACK
024474,002054: 25,2355 05571 TC ALARM # AUTO DISCRETE NOT PRESENT - TRYING
024475,002055: 25,2356 00510 OCT 510
024476,002056: 25,2357 00003 ROADBACK RELINT
024477,002057: 25,2360 14622 TCF SWRETURN
024478,002058:
024479,002059: 25,2361 02062 RRZ2 TC RRZEROSB # COMMON TO TURNON AND RRZERO.
024480,002060: 25,2362 13607 TCF ENDRADAR
024481,002061:
024482,002062: 25,2363 02001 BIT11+1 OCT 02001
024483,002063:
|
|
Page 554 |
024485,002065: # PROGRAM NAME_ RRDESSM R (HALF-UNIT) IN RRTARGET. REMODES IF
024486,002066:
024487,002067: # FUNCTIONAL DESCRIPTION_
024488,002068: # THIS INTERPRETIVE ROUTINE WILL DESIGNATE, IF DESIRED ANGLES ARE
024489,002069: # WITHIN THE LIMITS OF EITHER MODE, TO A LINE-OF SIGHT (LOS) VECTOR
024490,002070: # (HALF-UNIT) KNOWN WITH RESPECT TO THE STABLE MEMBER PRESENT
024491,002071: # ORIENTATION. INITIALLY THE IMU CDU:S ARE READ AND CONTROL
024492,002072: # TRANSFERRED TO SMNB TO TRANSFORM THE LOS VECTOR FROM STABLE
024493,002073: # MEMBER TO NAVIGATION BASE COORDINATES (SEE STG MEMO -699)
024494,002074: # RRANGLES IS THEN CALLED TO CALCULATE THE RR GIMBAL ANGLES,
024495,002075: # TRUNNION AND SHAFT, FOR BOTH THE PRESENT AND ALTERNATE MODE.
024496,002076: # RRLIMCHK IS CALLED TO SEE IF THE ANGLES CALCULATED FOR THE
024497,002077: # PRESENT MODE ARE WITHIN LIMITS. IF WITHIN LIMITS, THE RETURN
024498,002078: # LOCATION IS INCREMENTED, INASMUCH AS NO VEHICLE MANEUVER IS
024499,002079: # REQUIRED, BEFORE EXITING TO STARTDES. IF NOT WITHIN LIMITS OF THE
024500,002080: # CURRENT MODE, TRYSWS IS CALLED. FOLLOWING INVERTING OF THE RR
024501,002081: # ANTENNA MODE FLAG (RADMODES BIT 12), RRLIMCHK IS CALLED
024502,002082: # TO SEE IF THE ANGLES CALCULATED FOR THE ALTERNATE MODE ARE WITHIN
024503,002083: # LIMITS. IF YES, THE RR ANTENNA MODE FLAG IS AGAIN INVERTED,
024504,002084: # THE REMODE FLAG (RADMODES BIT 14) SET, AND THE RETURN LOCATION
024505,002085: # INCREMENTED, TO INDICATE NO VEHICLE MANEUVER IS REQUIRED, BEFORE
024506,002086: # EXITING TO STARTDES. IF THESE ANGLES ARE NOT WITHIN LIMITS
024507,002087: # OF THE ALTERNATE MODE, THE RR ANTENNA MODE FLAG (RADMODES
024508,002088: # BIT 12) IS INVERTED BEFORE RETURNING DIRECTLY TO THE CALLING PROGRAM
024509,002089: # TO INDICATE THAT A VEHICLE MANEUVER IS REQUIRED.
024510,002090:
024511,002091: # CALLING SEQUENCE:
024512,002092: # L STCALL RRTARGET (LOS HALF-UNIT VECTOR IN SM COORDINATES)
024513,002093: # L+1 RRDESSM
024514,002094: # L+2 BASIC (VEHICLE MANEUVER REQUIRED)
024515,002095: # L+3 BASIC (NO VEHICLE MANEUVER REQUIRED)
024516,002096:
024517,002097: # ERASABLE INITIALIZATION REQUIRED:
024518,002098: # RRTARGET, RADMODES
024519,002099:
024520,002100: # SUBROUTINES CALLED_
024521,002101: # READCDUS, SMNB, RRANGLES, RRLIMCHK, TRYSWS (ACTUALLY
024522,002102: # PART OF), RMODINV
024523,002103:
024524,002104: # JOBS OR TASKS INITIATED_
024525,002105: # NONE
024526,002106:
024527,002107: # ALARMS_ NONE
024528,002108:
024529,002109: # EXIT_ L+2 (NEITHER SET OF ANGLES ARE WITHIN LIMITS OF RELATED MODE)
024530,002110: # STARTDES (DESIGNATE POSSIBLE AT PRESENT VEHICLE ATTITUDE-RETURNS
024531,002111: # TO L+3 FROM STARTDES) CAN BE DONE IN PRESENT VEH ATTITUDE.
024532,002112:
024533,002113: 25,2364 43020 RRDESSM STQ CLEAR
024534,002114: 25,2365 01112 DESRET
|
|
Page 555 |
024536,002116: 25,2366 00271 RRNBSW
024537,002117: 25,2367 77624 CALL # COMPUTES SINES AND COSINES, ORDER Y Z X
024538,002118: 25,2370 47522 CDUTRIG
024539,002119: 25,2371 45175 VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
024540,002120: 25,2372 01101 RRTARGET
024541,002121: 25,2373 47663 *SMNB*
024542,002122:
024543,002123: 25,2374 77624 CALL # GET RR GIMBAL ANGLES IN PRESENT AND
024544,002124: 25,2375 26133 RRANGLES # ALTERNATE MODE.
024545,002125: 25,2376 77776 EXIT
024546,002126:
024547,002127: 25,2377 00004 INHINT
024548,002128: 25,2400 04514 TC RRLIMCHK
024549,002129: 25,2401 01106 ADRES MODEA # CONFIGURATION FOR CURRENT MODE.
024550,002130: 25,2402 02405 TC +3 # NOT IN CURRENT MODE
024551,002131: 25,2403 25112 OKDESSM INCR DESRET # INCREMENT SAYS NO VEHICLE MANEUVER REQ.
024552,002132: 25,2404 02423 TC STARTDES # SHOW DESIGNATE REQUIRED
024553,002133: 25,2405 40104 CS FLAGWRD8
024554,002134: 25,2406 74735 MASK SURFFBIT # CHECK IF ON LUNAR SURFACE (SURFFLAG=P22F
024555,002135: 25,2407 00006 EXTEND
024556,002136: 25,2410 12447 BZF NORDSTAL # BRANCH-YES-CANNOT DESIGNATE IN MODE 2
024557,002137: 25,2411 02452 TC TRYSWS
024558,002138:
024559,002139:
024560,002140: 25,2412 40104 LUNDESCH CS FLAGWRD8 # OVERFLOW RETURN FROM RRANGLES
024561,002141: 25,2413 74735 MASK SURFFBIT # CHECK IF ON LUNAR SURFACE
024562,002142: 25,2414 00006 EXTEND
024563,002143: 25,2415 12447 BZF NORDSTAL # BRANCH-YES-RETURN TO CALLER - ALARM 527
024564,002144: 25,2416 30074 CA STATE
024565,002145: 25,2417 74736 MASK RNDVZBIT
024566,002146: 25,2420 10000 CCS A # TEST RNDVZFLG.
024567,002147: 25,2421 02462 TC NODESSM # NOT ON MOON-CALL FOR ATTITUDE MANEUVER
024568,002148: 25,2422 15146 TCF ENDOFJOB # ...BUT NOT IN R29.
024569,002149:
|
|
Page 556 |
024571,002151: # PROGRAM NAME_ STARTDES STORED AS A HALF-UNIT VECTOR IN RRTARGET
024572,002152:
024573,002153: # FUNCTIONAL DESCRIPTION_ CKON IS DESIRED. BIT14 OF RADMODES IS
024574,002154: # STARTDES IS ENTERED WHEN WE ARE READY TO BEGIN DESIGNATION. OR REPOSITION OPERATION. IN THIS
024575,002155: # BIT 14 OF RADMODES IS ALREADY SET IF A REMODE IS REQUIRED. THE REPOSITION WILL BE INTERRUPTED.
024576,002156: # AT THIS TIME, THE RR ANTENNA MAY BE IN A REPOSITION GINS.
024577,002157: # OPERATION. IN THIS CASE, IF A REMODE IS REQUIRED IT MAY HAVE
024578,002158: # ALREADY BEGUN BUT IN ANY CASE THE REPOSITION WILL BE INTERRUPTED.
024579,002159: # OTHERWISE, THE REPOSITION WILL BE COMPLETED BEFORE 2-AXIS
024580,002160: # DESIGNATION BEGINS. INITIALLY DESCOUNT IS SET = 60 TO INDICATE
024581,002161: # THAT 30 SECONDS WILL BE ALLOWED FOR THE RR DATA GOOD INBIT
024582,002162: # (CHAN 33 BIT 4) IF LOCK-ON IS DESIRED (STATE BIT 5). BIT 10
024583,002163: # OF RADMODES IS SET TO SHOW THAT A DESIGNATE IS REQUIRED.
024584,002164: # THE REPOSITION FLAG (RADMODES BIT 11) IS CHECKED. IF SET,
024585,002165: # THE PROGRAM EXITS TO L+3 OF THE CALLING PROGRAM (SEE RRDESSM
024586,002166: # AND RRDESNB). THE PROGRAM WILL BEGIN DESIGNATING TO THE DESIRED
024587,002167: # ANGLES FOLLOWING THE REPOSITION OR REMODE IF ONE WAS
024588,002168: # REQUESTED. IF THE REPOSITION FLAG IS NOT SET, SETRRECR IS CALLED
024589,002169: # WHICH SETS THE RR ERROR COUNTER ENABLE BIT (CHAN 12 BIT 2)
024590,002170: # AND SETS LASTYCMD AND LASTXCMD = 0 TO INDICATE THE
024591,002171: # DIFFERENCE BETWEEN THE PRESENT AND DESIRED STATE OF THE ERROR
024592,002172: # COUNTERS. A 20 MILLISECOND WAITLIST CALL IS SET FOR BEGDES
024593,002173: # AFTER WHICH THE PROGRAM EXITS TO L+3 OF THE CALLING PROGRAM.
024594,002174:
024595,002175: # CALLING SEQUENCE:
024596,002176: # FROM RRDESSM AND RRDESNB WHEN ANGLES WITHIN LIMITS.
024597,002177:
024598,002178: # ERASABLE INITIALIZATION REQUIRED:
024599,002179: # RADMODES, (SEE DODES)
024600,002180:
024601,002181: # SUBROUTINES CALLED_
024602,002182: # SETRRECR, WAITLIST
024603,002183:
024604,002184: # JOBS OR TASKS INITIATED_
024605,002185: # BEGDES
024606,002186:
024607,002187: # ALARMS_ NONE
024608,002188:
024609,002189: # EXIT_ L+3 OF CALLING PROGRAM (SEE RRDESSM)
024610,002190: # L+2 OF CALLING PROGRAM (SEE RRDESNB)
024611,002191:
024612,002192: 25,2423 25112 STARTDES INCR DESRET
024613,002193: 25,2424 40110 CS RADMODES
024614,002194: 25,2425 74733 MASK DESIGBIT
024615,002195: 25,2426 26110 ADS RADMODES
024616,002196: 25,2427 74732 MASK REPOSBIT # SEE IF REPOSITIONING IN PROGRESS.
024617,002197: 25,2430 10000 CCS A
024618,002198: 25,2431 12437 TCF DESRETRN # ECTR ALREADY SET UP.
024619,002199:
024620,002200: 25,2432 02147 TC SETRRECR # SET UP ERROR COUNTERS.
|
|
Page 557 |
024622,002202: 25,2433 34743 CAF TWO
024623,002203: 25,2434 05205 TC WAITLIST
024624,002204: 25,2435 E7,1456 EBANK= LOSCOUNT
024625,002205: 25,2435 02564 52067 2CADR BEGDES
024626,002206:
024627,002207:
024628,002208: 25,2437 31303 DESRETRN CA RADCADR # FIRST PASS THRU DESIGNATE
024629,002209: 25,2440 00006 EXTEND
024630,002210: 25,2441 12443 BZF DESRTRN # YES SET EXIT
024631,002211: 25,2442 05146 TC ENDOFJOB # NO
024632,002212: 25,2443 00003 DESRTRN RELINT
024633,002213: 25,2444 25112 INCR DESRET
024634,002214: 25,2445 31112 CA DESRET
024635,002215: 25,2446 14631 TCF BANKJUMP
024636,002216:
024637,002217:
024638,002218: 25,2447 34746 NORDSTAL CAF ZERO # ZERO RADCADR TO WIPE OUT ANYONE
024639,002219: 25,2450 55303 TS RADCADR # WAITING IN RADSTALL SINCE WE ARE NOW
024640,002220: 25,2451 12443 TCF DESRTRN # RETURNING TO P20 AND MAY DO NEW RADSTALL
024641,002221:
|
|
Page 558 |
024643,002223: # SEE IF RRDESSM CAN BE ACCOMPLISHED AFTER A REMODE.
024644,002224:
024645,002225: 25,2452 02224 TRYSWS TC RMODINV # (NOTE RUPT INHIBIT)
024646,002226: 25,2453 04514 TC RRLIMCHK # TRY DIFFERENT MODE.
024647,002227: 25,2454 01110 ADRES MODEB
024648,002228: 25,2455 12462 TCF NODESSM # VEHICLE MANEUVER REQUIRED.
024649,002229:
024650,002230: 25,2456 02224 TC RMODINV # RESET BIT12
024651,002231: 25,2457 34727 CAF REMODBIT # SET FLAG FOR REMODE.
024652,002232: 25,2460 26110 ADS RADMODES
024653,002233:
024654,002234: 25,2461 12403 TCF OKDESSM
024655,002235:
024656,002236: 25,2462 02224 NODESSM TC RMODINV # RE-INVERT MODE AND RETURN
024657,002237: 25,2463 25112 INCR DESRET # TO CALLER +2
024658,002238: 25,2464 12447 TCF NORDSTAL
024659,002239:
024660,002240: 25,2465 00074 MAXTRYS DEC 60 B-14
024661,002241:
|
|
Page 559 |
024663,002243: # DESIGNATE TO SPECIFIC RR GIMBAL ANGLES (INDEPENDENT OF VEHICLE MOTION). ENTER WITH DESIRED ANGLES IN
024664,002244: # TANG AND TANG +1.
024665,002245:
024666,002246: 25,2466 04636 RRDESNB TC MAKECADR
024667,002247: 25,2467 55112 TS DESRET
024668,002248:
024669,002249: 25,2470 05520 TC DOWNFLAG # RESET FLAG TO PREVENT DODES FROM GOING
024670,002250: 25,2471 00041 ADRES LOSCMFLG # BACK TO R21
024671,002251: 25,2472 32465 CA MAXTRYS # SET TIME LIMIT COUNTER
024672,002252: 25,2473 55113 TS DESCOUNT # FOR DESIGNATE
024673,002253: 25,2474 00004 INHINT # SEE IF CURRENT MODE OK.
024674,002254: 25,2475 02531 TC RRLIMNB # DO SPECIAL V41 LIMIT CHECK
024675,002255: 25,2476 01106 ADRES TANG
024676,002256: 25,2477 12514 TCF TRYSWN # SEE IF IN OTHER MODE.
024677,002257:
024678,002258: 25,2500 00003 OKDESNB RELINT
024679,002259: 25,2501 00006 EXTEND
024680,002260: 25,2502 31107 DCA TANG
024681,002261: 25,2503 53753 DXCH TANGNB
024682,002262: 25,2504 06060 TC INTPRET
024683,002263:
024684,002264: 25,2505 77624 CALL # GET LOS IN NB COORDS.
024685,002265: 25,2506 46041 RRNB
024686,002266: 25,2507 01101 STORE RRTARGET
024687,002267:
024688,002268: 25,2510 77414 SET EXIT
024689,002269: 25,2511 00071 RRNBSW
024690,002270:
024691,002271: 25,2512 00004 INHINT
024692,002272: 25,2513 12424 TCF STARTDES +1
024693,002273: 25,2514 02224 TRYSWN TC RMODINV # SEE IF OTHER MODE WILL DO.
024694,002274: 25,2515 02531 TC RRLIMNB # DO SPECIAL V41 LIMIT CHECK
024695,002275: 25,2516 01106 ADRES TANG
024696,002276: 25,2517 12524 TCF NODESNB # NOT POSSIBLE.
024697,002277:
024698,002278: 25,2520 02224 TC RMODINV
024699,002279: 25,2521 34727 CAF REMODBIT # CALL FOR REMODE.
024700,002280: 25,2522 26110 ADS RADMODES
024701,002281: 25,2523 12500 TCF OKDESNB
024702,002282:
024703,002283: 25,2524 02224 NODESNB TC RMODINV # REINVERT MODE BIT.
024704,002284: 25,2525 05571 TC ALARM # BAD INPUT ANGLES.
024705,002285: 25,2526 00502 OCT 502
024706,002286: 25,2527 06027 TC CLRADMOD
024707,002287: 25,2530 05146 TC ENDOFJOB # AVOID 503 ALARM.
024708,002288:
024709,002289: 25,2531 50002 RRLIMNB INDEX Q # THIS ROUTINE IS IDENTICAL TO RRLIMCHK
024710,002290: 25,2532 30000 CAF 0 # EXCEPT THAT THE MODE 1 SHAFT LOWER
024711,002291: 25,2533 24002 INCR Q # LIMIT IS -85 INSTEAD OF -70 DEGREES
024712,002292: 25,2534 00006 EXTEND
|
|
Page 560 |
024714,002294: 25,2535 50000 INDEX A # READ GIMBAL ANGLES INTO ITEMP STORAGE
024715,002295: 25,2536 30001 DCA 0
024716,002296: 25,2537 52062 DXCH ITEMP1
024717,002297: 25,2540 22002 LXCH Q # L(CALLER +2) TO L
024718,002298:
024719,002299: 25,2541 34731 CAF ANTENBIT # SEE WHICH MODE RR IS IN.
024720,002300: 25,2542 70110 MASK RADMODES
024721,002301: 25,2543 10000 CCS A
024722,002302: 25,2544 14541 TCF MODE2CHK # MODE 2 CAN USE RRLIMCHK CODING
024723,002303: 25,2545 30061 CA ITEMP1
024724,002304: 25,2546 04503 TC MAGSUB # MODE 1 IS DEFINED AS
024725,002305: 25,2547 66161 DEC -.30555 # 1. ABS(T) L 55 DEGS
024726,002306: 25,2550 00001 TC L # 2 SHAFT LIMITS AT +59, -85 DEGS
024727,002307:
024728,002308: 25,2551 30062 CA ITEMP2 # LOAD SHAFT ANGLE
024729,002309: 25,2552 00006 EXTEND
024730,002310: 25,2553 62561 BZMF NEGSHAFT # IF NEGATIVE SHAFT ANGLE, ADD 20.5 DEGS
024731,002311: 25,2554 64553 AD 5.5DEGS
024732,002312: 25,2555 04503 SHAFTLIM TC MAGSUB
024733,002313: 25,2556 64420 DEC -.35833 # 64.5 DEGREES
024734,002314: 25,2557 00001 TC L # NOT IN LIMITS
024735,002315: 25,2560 04551 TC RRLIMOK # IN LIMITS
024736,002316: 25,2561 62563 NEGSHAFT AD 20.5DEGS # MAKE NEGATIVE SHAFT LIMIT -85 DEGREES
024737,002317: 25,2562 12555 TCF SHAFTLIM
024738,002318:
024739,002319:
024740,002320: 25,2563 03512 20.5DEGS DEC .11389
024741,002321:
|
|
Page 561 |
024743,002323: # PROGRAM NAME_ BEGDES
024744,002324:
024745,002325: # FUNCTIONAL DESCRIPTION_
024746,002326: # BEGDES CHECKS VARIOUS DESIGNATE REQUESTS AND REQUESTS THE
024747,002327: # ACTUAL RR DESIGNATION. INITIALLY A CHECK IS MADE TO SEE IF A
024748,002328: # REMODE (RADMODES BIT 14) IS REQUESTED OR IN PROGRESS. IF SO,
024749,002329: # CONTROL IS TRANSFERRED TO STDESIG AFTER ROUTINE REMODE IS
024750,002330: # EXECUTED. IF NO REMODE, STDESIG IS IMMEDIATELY CALLED WHERE
024751,002331: # FIRST THE REPOSITION FLAG (RADMODES BIT 11) IS CHECKED. IF
024752,002332: # PRESENT, THE DESIGNATE FLAG (RADMODES BIT 10) IS REMOVED
024753,002333: # AFTER WHICH THE PROGRAM EXITS TO RDBADEND. IF THE REPOSITION
024754,002334: # FLAG IS NOT PRESENT, THE CONTINUOUS DESIGNATE FLAG (RADMODES
024755,002335: # BIT 15) IS CHECKED. IF PRESENT, ON EXECUTIVE CALL IS IMMEDIATELY
024756,002336: # MADE FOR DODES AFTER WHICH A .5 SECOND WAIT IS INITIATED BEFORE
024757,002337: # REPEATING AT STDESIG. IF THE RR SEARCH ROUTINE (LRS24.1) IS DESIGNATING
024758,002338: # TO A NEW POINT (NEWPTFLG SET) THE CURRENT DESIGNATE TASK IS TERMINATED.
024759,002339: # IF CONTINUOUS DESIGNATE IS NOT WANTED, THE DESIGNATE FLAG (RADMODES
024760,002340: # BIT 10) IS CHECKED. IF NOT PRESENT, THE PROGRAM EXITS TO ENDRADAR TO
024761,002341: # CHECK RR CDU FAIL BEFORE RETURNING TO THE CALLING PROGRAM. IF DESIGNATE
024762,002342: # IS STILL REQUIRED, DESCOUNT IS CHECKED TO SEE IF THE 30 SECONDS HAS
024763,002343: # EXPIRED BEFORE RECEIVING THE RR DATA GOOD (CHAN 33 BIT 4)
024764,002344: # SIGNAL. IF OUT OF TIME, PROGRAM ALARM 00503 IS REQUESTED, THE
024765,002345: # RR AUTO TRACKER ENABLE AND RR ERROR COUNTER ENABLE
024766,002346: # (CHAN 12 BITS 14,2) BITS REMOVED, AND THE DESIGNATE FLAG
024767,002347: # (RADMODES BIT 10) REMOVED BEFORE EXITING TO RDBADEND. IF
024768,002348: # TIME HAS NOT EXPIRED, DESCOUNT IS DECREMENTED, THE
024769,002349: # EXECUTIVE CALL MADE FOR DODES, AND A .5 SECOND WAIT INITIATED
024770,002350: # BEFORE REPEATING THIS PROCEDURE AT STDESIG.
024771,002351:
024772,002352: # CALLING SEQUENCE:
024773,002353: # WAITLIST CALL FROM STARTDES
024774,002354: # TCF BEGDES FROM DORREPOS
024775,002355: # TC STDESIG RETURNING, FROM REMODE
024776,002356:
024777,002357: # ERASABLE INITIALIZATION REQUIRED:
024778,002358: # DESCOUNT, RADMODES
024779,002359:
024780,002360: # SUBROUTINES CALLED_
024781,002361: # ENDRADAR, FINDVAC
024782,002362:
024783,002363: # JOBS OR TASKS INITIATED_ DODES
024784,002364:
024785,002365: # ALARMS_ PROGRAM ALARM 00503 (30 SECONDS HAVE EXPIRED) WITH NO RR DATA
024786,002366: # GOOD (CHAN 33 BIT 4) RECEIVED WHEN LOCK-ON (STATE BIT 5) WAS REQUESTED.
024787,002367:
024788,002368: # EXIT_ TASKOVER (SEARCH PATTERN DESIGNATING TO NEW POINT)
024789,002369: # ENDRADAR (NO DESIGNATE - RADMODES BIT 10)
024790,002370: # RDBADEND (REPOSITION OR 30 SECONDS EXPIRED)
024791,002371:
024792,002372: 25,2564 40110 BEGDES CS RADMODES
|
|
Page 562 |
024794,002374: 25,2565 74727 MASK REMODBIT
024795,002375: 25,2566 10000 CCS A
024796,002376: 25,2567 02573 TC STDESIG
024797,002377: 25,2570 02162 TC REMODE
024798,002378: 25,2571 05223 DESLOOP TC FIXDELAY # 2 SAMPLES PER SECOND.
024799,002379: 25,2572 00062 DEC 50 B-14
024800,002380:
024801,002381: 25,2573 34732 STDESIG CAF REPOSBIT
024802,002382: 25,2574 70110 MASK RADMODES # SEE IF GIMBAL LIMIT MONITOR HAS FOUND US
024803,002383: 25,2575 10000 CCS A # OUT OF BOUNDS. IF SO, THIS BIT SHOWS A
024804,002384: 25,2576 12614 TCF BADDES # REPOSITION TO BE IN PROGRESS.
024805,002385:
024806,002386: 25,2577 10110 CCS RADMODES # SEE IF CONTINUOUS DESIGNATE WANTED.
024807,002387: 25,2600 12603 TCF +3 # IF SO, DONT CHECK BIT 10 TO SEE IF IN
024808,002388: 25,2601 12603 TCF +2 # LIMITS BUT GO RIGHT TO FINDVAC ENTRY.
024809,002389: 25,2602 12620 TCF MOREDES +1
024810,002390:
024811,002391: 25,2603 40110 CS RADMODES # IF NON-CONTINUOUS, SEE IF END OF
024812,002392: 25,2604 74733 MASK DESIGBIT # PROBLEM (DATA GOOD IF LOCK-ON WANTED OR
024813,002393: 25,2605 10000 CCS A # WITHIN LIMITS IF NOT). IF SO, EXIT AFTER
024814,002394: 25,2606 13607 TCF ENDRADAR # CHECKING RR CDU FAIL.
024815,002395:
024816,002396: 25,2607 11113 STDESIG1 CCS DESCOUNT # SEE IF THE TINE LIMIT HAS EXPIRED
024817,002397: 25,2610 12617 TCF MOREDES
024818,002398:
024819,002399: 25,2611 42625 CS B14+B2 # IF OUT OF TIME, REMOVE ECR ENABLE + TRKR
024820,002400: 25,2612 00006 EXTEND
024821,002401: 25,2613 03012 WAND CHAN12
024822,002402: 25,2614 05520 BADDES TC DOWNFLAG
024823,002403: 25,2615 00271 ADRES DESIGFLG
024824,002404: 25,2616 13623 TCF RDBADEND
024825,002405:
024826,002406: 25,2617 55113 MOREDES TS DESCOUNT
024827,002407: 25,2620 37735 CAF PRIO26 # UPDATE GYRO TORQUE COMMANDS.
024828,002408: 25,2621 05076 TC FINDVAC
024829,002409: 25,2622 E7,1456 EBANK= LOSCOUNT
024830,002410: 25,2622 02626 52067 2CADR DODES
024831,002411:
024832,002412:
024833,002413: 25,2624 12571 TCF DESLOOP
024834,002414:
024835,002415: 25,2625 20002 B14+B2 OCT 20002
024836,002416:
|
|
Page 563 |
024838,002418: # PROGRAM NAME_ DODES
024839,002419:
024840,002420: # FUNCTIONAL DESCRIPTION_
024841,002421: # DODES CALCULATES AND REQUESTS ISSUANCE OF RR GYRO TORQUE
024842,002422: # COMMANDS. INITIALLY THE CURRENT RR CDU ANGLES ARE STORED AND
024843,002423: # THE LOS HALF-UNIT VECTOR TRANSFORMED FROM STABLE MEMBER TO
024844,002424: # NAVIGATION BASE COORDINATES VIA SMNB IF NECESSARY. THE
024845,002425: # SHAFT AND TRUNNION COMMANDS ARE THEN CALCULATED AS FOLLOWS_
024846,002426: # + SHAFT = LOS . (COS(S), 0, -SIN (S)) (DOT PRODUCT)
024847,002427: # -TRUNNION = LOS . (SIN (T) SIN (S), COS (T), SIN (T) COS (S) )
024848,002428: # THE SIGN OF THE SHAFT COMMAND IS THEN REVERSED IF IN MODE 2
024849,002429: # (RADMODES BIT 12) BECAUSE A RELAY IN THE RR REVERSES THE
024850,002430: # POLARITY OF THE COMMAND. AT RRSCALUP EACH COMMAND IS
024851,002431: # SCALED AND IF EITHER, OR BOTH, OF THE COMMANDS IS GREATER THAN
024852,002432: # .5 DEGREES, MPAC +1 IS SET POSITIVE. IF A CONTINUOUS DESIGNATE
024853,002433: # (RADMODES BIT 15) IS DESIRED AND THE SEARCH ROUTINE IS NOT OPERATING,
024854,002434: # THE RR AUTO TRACKER ENABLE BIT (CHAN 12 BIT 14) IS CLEARED AND RROUT
024855,002435: # CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION (RADMODES BIT 11)
024856,002436: # IS IN PROGRESS. IF A CONTINUOUS DESIGNATE AND THE SEARCH ROUTINE IS
024857,002437: # OPERATING (SRCHOPT FLAG SET) THE TRACK ENABLE IS NOT CLEARED. IF NO
024858,002438: # CONTINUOUS DESIGNATE AND BOTH COMMANDS ARE NOT LESS THAN .5 DEGREES AS
024859,002439: # INDICATED BY MPAC +1, THE RR AUTO TRACKER ENABLE BIT (CHAN 12 BIT 14) IS
024860,002440: # CLEARED AND RROUT CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION
024861,002441: # (RADMODES BIT 11) IS IN PROGRESS. IF BOTH COMMANDS ARE LESS THAN .5
024862,002442: # DEGREES AS INDICATED BY MPAC+1, THE RR AUTO TRACKER ENABLE BIT
024863,002443: # (CHAN 12 BIT 14) IS CLEARED AND RROUT CALLED TO PUT OUT THE
024864,002444: # COMMANDS PROVIDED NO REPOSITION (RADMODES BIT 11) IS IN
024865,002445: # PROGRESS. IF BOTH COMMANDS ARE LESS THAN .5 DEGREES, THE
024866,002446: # LOCK-ON FLAG (STATE BIT 5) IS CHECKED. IF NOT PRESENT, THE
024867,002447: # DESIGNATE FLAG (RADMODES BIT 10) IS CLEARED, THE RR ERROR
024868,002448: # COUNTER ENABLE BIT (CHAN 12 BIT 2) IS CLEARED, AND ENDOFJOB
024869,002449: # CALLED. IF LOCK-ON IS DESIRED, THE RR AUTO TRACKER (CHAN 12
024870,002450: # BIT 14) IS ENABLED FOLLOWED BY A CHECK OF THE RECEIPT OF THE
024871,002451: # RR DATA GOOD (CHAN 33 BIT 4) SIGNAL. IF RR DATA GOOD
024872,002452: # PRESENT, THE DESIGNATE FLAG (RADMODES BIT 10) IS CLEARED,
024873,002453: # THE RR ERROR COUNTER ENABLE BIT (CHAN 12 BIT 2) IS CLEARED,
024874,002454: # AND ENDOFJOB CALLED. IF RR DATA GOOD IS NOT PRESENT, RROUT
024875,002455: # IS CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION
024876,002456: # (RADMODES BIT 11) IS IN PROGRESS AFTER WHICH THE JOB IS TERMINATED
024877,002457: # VIA ENDOFJOB.
024878,002458:
024879,002459: # CALLING SEQUENCE:
024880,002460: # EXECUTIVE CALL EVERY .5 SECONDS FROM BEGDES.
024881,002461:
024882,002462: # ERASABLE INITIALIZATION REQUIRED:
024883,002463: # RRTARGET (HALF-UNIT LOS VECTOR IN EITHER SM OR NB COORDINATES),
024884,002464: # LOKONSW (STATE BIT 5), RRNBSW (STATE BIT 6), RADMODES
024885,002465:
024886,002466: # SUBROUTINES CALLED_
024887,002467: # READCDUS, SMNB, CDULOGIC, MAGSUB, RROUT
024888,002468:
|
|
Page 564 |
024890,002470: # JOBS OR TASKS INITIATED_
024891,002471: # NONE
024892,002472:
024893,002473: # ALARMS_ NONE
024894,002474:
024895,002475: # EXIT_ ENDOFJOB (ALWAYS)
024896,002476:
024897,002477: 25,2626 00006 DODES EXTEND
024898,002478: 25,2627 30036 DCA CDUT
024899,002479: 25,2630 53107 DXCH TANG
024900,002480:
024901,002481: 25,2631 06060 TC INTPRET
024902,002482:
024903,002483: 25,2632 77201 SETPD VLOAD
024904,002484: 25,2633 00001 0
024905,002485: 25,2634 01101 RRTARGET
024906,002486: 25,2635 74214 BON VXSC
024907,002487: 25,2636 00311 RRNBSW
024908,002488: 25,2637 52651 DONBRD # TARGET IN NAV-BASE COORDINATES
024909,002489: 25,2640 01765 MLOSV # MULTIPLY UNIT LOS BY MAGNITUDE
024910,002490: 25,2641 63372 VSL1 PDVL
024911,002491: 25,2642 01757 LOSVEL
024912,002492: 25,2643 53361 VXSC VAD # ADD ONE SECOND RELATIVE VELOCITY TO LOS
024913,002493: 25,2644 13061 MCTOMS
024914,002494: 25,2645 45056 UNIT CALL
024915,002495: 25,2646 47522 CDUTRIG
024916,002496: 25,2647 77624 CALL
024917,002497: 25,2650 47663 *SMNB*
024918,002498:
024919,002499: 25,2651 14041 DONBRD STODL 32D
024920,002500: 25,2652 01110 TANG +1
024921,002501: 25,2653 41434 RTB PUSH # SHAFT COMMAND = V(32D).(COS(S), 0,
024922,002502: 25,2654 21606 CDULOGIC # (-SIN(S)).
024923,002503: 25,2655 65356 SIN PDDL # SIN(S) TO 0 AND COS(S) TO 2.
024924,002504: 25,2656 41546 COS PUSH
024925,002505: 25,2657 65205 DMP PDDL
024926,002506: 25,2660 00041 32D
024927,002507: 25,2661 00045 36D
024928,002508: 25,2662 44205 DMP BDSU
024929,002509: 25,2663 00001 0
024930,002510: 25,2664 77626 STADR
024931,002511: 25,2665 76667 STORE TANG +1 # SHAFT COMMAND
024932,002512:
024933,002513: 25,2666 47135 SLOAD RTB
024934,002514: 25,2667 01107 TANG
024935,002515: 25,2670 21606 CDULOGIC
024936,002516: 25,2671 71406 PUSH COS # COS(T) TO 4.
024937,002517: 25,2672 73525 PDDL SIN
024938,002518: 25,2673 41206 PUSH DMP # SIN(T) TO 6.
024939,002519: 25,2674 00003 2
|
|
Page 565 |
024941,002521: 25,2675 65352 SL1 PDDL # DEFINE VECTOR U = (SIN(T)SIN(S))
024942,002522: 25,2676 00005 4 # (COS(T) )
024943,002523: 25,2677 41325 PDDL DMP # (SIN(T)COS(S))
024944,002524: 25,2700 00007 6
024945,002525: 25,2701 00001 0
024946,002526: 25,2702 55552 SL1 VDEF
024947,002527: 25,2703 77441 DOT EXIT # DOT U WITH LOS TO GET TRUNNION COMMAND.
024948,002528: 25,2704 00041 32D
024949,002529:
|
|
Page 566 |
024951,002531: # AT THIS POINT WE HAVE A ROTATION VECTOR IN DISH AXES LYING IN THE TS PLANE. CONVERT THIS TO A
024952,002532: # COMMANDED RATE AND ENABLE THE TRACKER IF WE ARE WITHIN .5 DEGREES OF THE TARGET.
024953,002533:
024954,002534: 25,2705 40154 CS MPAC # DOT WAS NEGATIVE OF DESIRED ANGLE.
024955,002535: 25,2706 00006 EXTEND
024956,002536: 25,2707 73055 MP RDESGAIN # SCALING ON INPUT ANGLE WAS 4 RADIANS.
024957,002537: 25,2710 55351 TS TRUNNCMD # TRUNNION COMMAND FOR RROUT
024958,002538: 25,2711 40110 CS RADMODES # A RELAY IN THE RR REVERSES POLARITY OF
024959,002539: 25,2712 74731 MASK BIT12 # THE SHAFT COMMANDS IN MODE 2 SO THAT A
024960,002540: 25,2713 00006 EXTEND # POSITIVE TORQUE APPLIED TO THE SHAFT
024961,002541: 25,2714 12717 BZF +3 # GYRO CAUSES A POSITIVE CHANGE IN THE
024962,002542: 25,2715 31107 CA TANG +1 # SHAFT ANGLE. COMPENSATE FOR THIS SWITCH
024963,002543: 25,2716 12720 TCF +2 # BY CHANGING THE POLARITY OF OUR COMMAND.
024964,002544: 25,2717 41107 +3 CS TANG +1
024965,002545: 25,2720 00006 EXTEND
024966,002546: 25,2721 73055 MP RDESGAIN # SCALING ON INPUT ANGLE WAS 4 RADIANS.
024967,002547: 25,2722 55352 TS SHAFTCMD # SHAFT COMMAND FOR RROUT
024968,002548: 25,2723 06060 TC INTPRET
024969,002549:
024970,002550: 25,2724 41345 DLOAD DMP
024971,002551: 25,2725 00003 2 # COS(S).
024972,002552: 25,2726 00005 4 # COS(T).
024973,002553: 25,2727 65352 SL1 PDDL # Z COMPONENT OF URR.
024974,002554: 25,2730 65276 DCOMP PDDL # Y COMPONENT = -SIN(T).
024975,002555: 25,2731 00001 0 # SIN(S).
024976,002556: 25,2732 72405 DMP SL1
024977,002557: 25,2733 00005 4 # COS(T).
024978,002558: 25,2734 43066 VDEF BON # FORM URR IN NB AXES.
024979,002559: 25,2735 00311 RRNBSW # BYPASS NBSM CONVERSION IN VERB 41.
024980,002560: 25,2736 52741 +3
024981,002561: 25,2737 77624 CALL
024982,002562: 25,2740 47665 *NBSM* # GET URR IN SM AXES.
024983,002563: 25,2741 77441 DOT EXIT
024984,002564: 25,2742 01101 RRTARGET # GET COSINE OF ANGLE BETWEEN RR AND LOS.
024985,002565:
024986,002566: 25,2743 00006 EXTEND
024987,002567: 25,2744 43057 DCS COS1/2DG
024988,002568: 25,2745 20155 DAS MPAC # DIFFERENCE OF COSINES, SCALED B-2.
024989,002569: 25,2746 10154 CCS MPAC
024990,002570: 25,2747 34746 CA ZERO # IF COS ERROR BIGGER, ERROR IS SMALLER.
024991,002571: 25,2750 12752 TCF +2
024992,002572: 25,2751 34744 CA ONE
024993,002573: 25,2752 54155 TS MPAC +1 # ZERO IF RR IS POINTED OK, ONE IF NOT.
|
|
Page 567 |
024995,002575: # SEE IF TRACKER SHOULD BE ENABLED OR DISABLED.
024996,002576:
024997,002577: 25,2753 10110 CCS RADMODES # IF CONTINUOUS DESIGNATE WANTED, PUT OUT
024998,002578: 25,2754 12757 TCF SIGNLCHK # COMMANDS WITHOUT CHECKING MAGNITUDE OF
024999,002579: 25,2755 12757 TCF SIGNLCHK # ERROR SIGNALS
025000,002580: 25,2756 13007 TCF DORROUT
025001,002581: 25,2757 10155 SIGNLCHK CCS MPAC +1 # SEE IF BOTH AXES WERE WITHIN .5 DEGS.
025002,002582: 25,2760 12770 TCF DGOODCHK
025003,002583: 25,2761 40074 CS STATE # IF WITHIN LIMITS AND NO LOCK-ON WANTED,
025004,002584: 25,2762 74740 MASK LOKONBIT # PROBLEM IS FINISHED.
025005,002585: 25,2763 10000 CCS A
025006,002586: 25,2764 12775 TCF RRDESDUN
025007,002587:
025008,002588: 25,2765 34727 CAF BIT14 # ENABLE THE TRACKER.
025009,002589: 25,2766 00006 EXTEND
025010,002590: 25,2767 05012 WOR CHAN12
025011,002591:
025012,002592: 25,2770 34741 DGOODCHK CAF BIT4 # SEE IF DATA GOOD RECEIVED YET
025013,002593: 25,2771 00006 EXTEND
025014,002594: 25,2772 02033 RAND CHAN33
025015,002595: 25,2773 10000 CCS A
025016,002596: 25,2774 13007 TCF DORROUT
025017,002597:
025018,002598: 25,2775 44733 RRDESDUN CS BIT10 # WHEN PROBLEM DONE, REMOVE BIT 10 SO NEXT
025019,002599: 25,2776 70110 MASK RADMODES # WAITLIST TASK WE WILL GO TO RGOODEND.
025020,002600: 25,2777 00004 INHINT
025021,002601: 25,3000 54110 TS RADMODES
025022,002602:
025023,002603: 25,3001 05520 TC DOWNFLAG # RESET LOSCMFLG TO PREVENT A
025024,002604: 25,3002 00041 ADRES LOSCMFLG # RECOMPUTATION OF LOS AFTER DATA GOOD
025025,002605: 25,3003 44743 CS BIT2 # TURN OFF ENABLE RR ERROR COUNTER
025026,002606: 25,3004 00006 EXTEND
025027,002607: 25,3005 03012 WAND CHAN12
025028,002608: 25,3006 15146 TCF ENDOFJOB # WITH ECTR DISABLED.
025029,002609:
025030,002610: 25,3007 30076 DORROUT CA FLAGWRD2 # IF BOTH LOSCMFLAG AND SEARCH FLAG ARE
025031,002611: 25,3010 77733 MASK BIT12,14 # ZERO, BYPASS VELOCITY ADJUSTMENT TO LOS
025032,002612: 25,3011 00006 EXTEND
025033,002613: 25,3012 13031 BZF NOTP20
025034,002614: 25,3013 06060 TC INTPRET
025035,002615: 25,3014 74375 VLOAD VXSC # MULTIPLY UNIT LOS BY MAGNITUDE
025036,002616: 25,3015 01101 RRTARGET
025037,002617: 25,3016 01765 MLOSV
025038,002618: 25,3017 41572 VSL1 PUSH
025039,002619: 25,3020 74375 VLOAD VXSC # ADD .5 SEC. OF VELOCITY
025040,002620: 25,3021 01757 LOSVEL # TO LOS VECTOR
025041,002621: 25,3022 13061 MCTOMS
025042,002622: 25,3023 53362 VSR1 VAD
025043,002623: 25,3024 77656 UNIT
025044,002624: 25,3025 15101 STODL RRTARGET # STORE VELOCITY-CORRECTED LOS (UNIT)
|
|
Page 568 |
025046,002626: 25,3026 00045 36D
025047,002627: 25,3027 01765 STORE MLOSV # AND STORE MAGNITUDE
025048,002628: 25,3030 77776 EXIT
025049,002629: 25,3031 00004 NOTP20 INHINT
025050,002630: 25,3032 40110 CS RADMODES # PUT OUT COMMAND UNLESS MONITOR
025051,002631: 25,3033 74732 MASK REPOSBIT # REPOSITION HAS TAKEN OVER.
025052,002632: 25,3034 10000 CCS A
025053,002633: 25,3035 02277 TC RROUT
025054,002634:
025055,002635: 25,3036 30076 CA FLAGWRD2
025056,002636: 25,3037 74731 MASK LOSCMBIT # IF LOSCMFLG NOT SET, DON'T TEST
025057,002637: 25,3040 00006 EXTEND # LOS COUNTER
025058,002638: 25,3041 15146 BZF ENDOFJOB
025059,002639: 25,3042 11456 CCS LOSCOUNT # TEST LOS COUNTER TO SEE IF TIME TO GET
025060,002640: 25,3043 03053 TC DODESEND # A NEW LOS
025061,002641: 25,3044 06050 TC KILLTASK # YES - KILL TASK WHICH SCHEDULES DODES
025062,002642: 25,3045 52573 CADR DESLOOP +2
025063,002643: 25,3046 00003 RELINT
025064,002644: 25,3047 10067 CCS NEWJOB
025065,002645: 25,3050 05113 TC CHANG1
025066,002646: 25,3051 04607 TC BANKCALL
025067,002647: 25,3052 51015 CADR R21LEM2
025068,002648:
025069,002649:
025070,002650: 25,3053 55456 DODESEND TS LOSCOUNT
025071,002651: 25,3054 05146 TC ENDOFJOB
025072,002652:
025073,002653:
025074,002654: 25,3055 21122 RDESGAIN DEC .53624 # TRIES TO NULL .5 ERROR IN .5 SEC.
025075,002655: 25,3056 7733 BIT12,14 EQUALS PRIO24 # OCT 24000
025076,002656: 25,3056 07777 33005 COS1/2DG 2DEC .999961923 B-2 # COSINE OF 0.5 DEGREES.
025077,002657:
025078,002658: 25,3060 00310 00000 MCTOMS 2DEC 100 B-13
025079,002659:
|
|
Page 569 |
025081,002661: # RADAR READ INITIALIZATION
025082,002662:
025083,002663: # THE FOLLOWING ROUTINES MUST BE CALLED BY BANKCALL
025084,002664:
025085,002665: 25,3062 03076 LRALT TC INITREAD
025086,002666: 25,3063 00017 ALLREAD OCT 17
025087,002667:
025088,002668: 25,3064 03076 LRVELZ TC INITREAD
025089,002669: 25,3065 00016 OCT 16
025090,002670:
025091,002671: 25,3066 03076 LRVELY TC INITREAD
025092,002672: 25,3067 00015 OCT 15
025093,002673:
025094,002674: 25,3070 03076 LRVELX TC INITREAD
025095,002675: 25,3071 00014 OCT 14
025096,002676:
025097,002677: 25,3072 03076 RRRDOT TC INITREAD
025098,002678: 25,3073 00012 OCT 12
025099,002679:
025100,002680: 25,3074 03076 RRRANGE TC INITREAD
025101,002681: 25,3075 00011 OCT 11
025102,002682:
025103,002683:
025104,002684: 25,3076 00004 INITREAD INHINT
025105,002685: 25,3077 50002 INDEX Q
025106,002686: 25,3100 30000 CA 0
025107,002687: 25,3101 03110 TC PRERADAR
025108,002688: 25,3102 34742 CA BIT3
025109,002689: 25,3103 55105 TS TIMEHOLD +1 # MIDPOINT OF READ IS ABOUT 40 MS AFTER
025110,002690: 25,3104 00006 EXTEND # START OF READ
025111,002691: 25,3105 30025 DCA TIME2
025112,002692: 25,3106 21105 DAS TIMEHOLD
025113,002693:
025114,002694: 25,3107 12357 TCF ROADBACK
025115,002695:
025116,002696:
025117,002697: 25,3110 55077 PRERADAR TS RADUSE # INDICATE RADAR READ ROUTINES IN USE.
025118,002698: 25,3111 34746 CA ZERO
025119,002699: 25,3112 55110 TS NSAMP
025120,002700: 25,3113 55100 TS SAMPLSUM
025121,002701: 25,3114 55101 TS SAMPLSUM +1
025122,002702: 25,3115 55104 TS TIMEHOLD
025123,002703:
025124,002704: 25,3116 33136 CA DGBITS
025125,002705: 25,3117 00006 EXTEND
025126,002706: 25,3120 02033 RAND CHAN33
025127,002707: 25,3121 55112 TS OLDATAGD
025128,002708:
025129,002709: 25,3122 43136 CS DGBITS # RESET DATA GOOD BITS OF RADMODES
025130,002710: 25,3123 70110 MASK RADMODES
|
|
Page 570 |
025132,002712: 25,3124 54110 TS RADMODES
025133,002713:
025134,002714: 25,3125 43063 CS ALLREAD
025135,002715: 25,3126 00006 EXTEND
025136,002716: 25,3127 03013 WAND CHAN13 # CLEAR ALL RADAR BITS PRIOR TO READ
025137,002717:
025138,002718: 25,3130 00006 EXTEND
025139,002719: 25,3131 22070 QXCH RUPTREG1
025140,002720:
025141,002721: 25,3132 31077 CA RADUSE
025142,002722: 25,3133 04665 TC IBNKCALL
025143,002723: 25,3134 36000 CADR RADSTART
025144,002724: 25,3135 00070 TC RUPTREG1
025145,002725:
025146,002726:
025147,002727: 25,3136 00230 DGBITS OCT 230 # POSITION OF DATA GOOD BITS IN CHANNEL 33
025148,002728: 25,3137 00014 VBITS OCT 14 # VSELECT = 0 BEFORE X READ
025149,002729: 25,3140 00016 OCT 16 # VSELECT = 1 BEFORE Z READ
025150,002730: 25,3141 00015 OCT 15 # VSELECT = 2 BEFORE Y READ
025151,002731:
025152,002732:
025153,002733: 25,3142 40107 R12READ CS FLGWRD11
025154,002734: 25,3143 74733 MASK NOLRRBIT # IF NOLRREAD FLAG IS SET , BYPASS R12
025155,002735: 25,3144 00006 EXTEND
025156,002736: 25,3145 15263 BZF TASKOVER
025157,002737:
025158,002738: 25,3146 40107 R12RDSET CS FLGWRD11 # STOP R12 FROM
025159,002739: 25,3147 74742 MASK R12RDBIT # ATTEMPTING UPDATE
025160,002740: 25,3150 26107 ADS FLGWRD11 # BEFORE R12 READS ARE DONE
025161,002741:
025162,002742: 25,3151 51462 INDEX VSELECT
025163,002743: 25,3152 33137 CA VBITS
025164,002744: 25,3153 03110 TC PRERADAR
025165,002745: 25,3154 36263 CA SIX # RADAR RUPT USES THIS FOR R12 READ
025166,002746: 25,3155 55110 TS NSAMP
025167,002747: 25,3156 05263 TC TASKOVER
025168,002748:
|
|
Page 571 |
025170,002750: # RADAR RUPT READER (R20)
025171,002751:
025172,002752: # THIS ROUTINE, WHICH IS INITIATED BY A RADAR RUPT, PROCESSES THE RADAR DATA AND UPDATES THE APPROPRIATE
025173,002753: # DSKY LIGHTS.
025174,002754:
025175,002755: 25,2000 SETLOC RADARUPT
025176,002756: 25,2000 BANK
025177,002757:
025178,002758: 25,3157 COUNT* $$/RRUPT
025179,002759:
025180,002760: 25,3157 E7,1453 EBANK= TTOGO
025181,002761:
025182,002762: 25,3157 00006 RADAREAD EXTEND # CONTINUATION OF INTERRUPT LEAD-IN.
025183,002763: 25,3160 04007 ROR SUPERBNK # SUPERBNK MUST BE SAVED BECAUSE RUPT
025184,002764: 25,3161 54016 TS BANKRUPT # MAY EXIT VIA TASKOVER.
025185,002765: 25,3162 00006 EXTEND
025186,002766: 25,3163 22012 QXCH QRUPT
025187,002767:
025188,002768:
025189,002769: 25,3164 34750 CA SEVEN # READ AND STORE RADAR SELECT BITS
025190,002770: 25,3165 00006 EXTEND
025191,002771: 25,3166 02013 RAND CHAN13
025192,002772: 25,3167 55332 TS RADBITS
025193,002773:
025194,002774: 25,3170 00006 EXTEND # IF RADAR SELECT BITS ARE ZERO, ALARM
025195,002775: 25,3171 13177 BZF BADRUPT # WITHOUT READING DATA
025196,002776:
025197,002777: 25,3172 30046 CA RNRAD # STORE RAW DATA FOR DOWNLINK.
025198,002778: 25,3173 51332 INDEX RADBITS
025199,002779: 25,3174 55327 TS DNRRANGE -1
025200,002780:
025201,002781: 25,3175 11077 CCS RADUSE # IF RADUSE IS ZERO, THIS IS A BAD RUPT
025202,002782: 25,3176 13203 TCF WHICHRAD
025203,002783:
025204,002784: 25,3177 55077 BADRUPT TS RADUSE
025205,002785: 25,3200 05571 TC ALARM
025206,002786: 25,3201 00520 OCT 520
025207,002787: 25,3202 05272 TC RESUME
025208,002788:
025209,002789: 25,3203 46266 WHICHRAD CS THREE # IF RADBITS IS LESS THAN THREE,
025210,002790: 25,3204 61332 AD RADBITS # THE RENDEZVOUS RADAR IS BEING READ.
025211,002791: 25,3205 00006 EXTEND
025212,002792: 25,3206 63273 BZMF RENDRAD
025213,002793:
025214,002794: 25,3207 40101 LANDRAD CS FLAGWRD5 # THE LANDING RADAR IS BEING READ
025215,002795: 25,3210 74732 MASK R77FLBIT
025216,002796: 25,3211 00006 EXTEND # IF R77 IS RUNNING, EXIT HERE
025217,002797: 25,3212 13253 BZF R77EXIT
025218,002798:
025219,002799: 25,3213 44750 CS SEVEN # IF RADBITS IS SEVEN, THE LANDING
|
|
Page 572 |
025221,002801: 25,3214 61332 AD RADBITS # RADAR ALITUDE IS BEING READ
025222,002802: 25,3215 00006 EXTEND
025223,002803: 25,3216 13267 BZF LRHEIGHT
025224,002804:
025225,002805: 25,3217 34724 LRSPEED CA POSMAX # DECODE THE 15 BIT READING AND
025226,002806: 25,3220 70046 MASK RNRAD # SUBTRACT THE BIAS.
025227,002807: 25,3221 62000 AD LVELBIAS
025228,002808: 25,3222 54064 TS ITEMP4
025229,002809: 25,3223 54001 TS L
025230,002810: 25,3224 30046 CA RNRAD
025231,002811: 25,3225 60000 DOUBLE
025232,002812: 25,3226 74744 MASK BIT1
025233,002813: 25,3227 54063 TS ITEMP3
025234,002814: 25,3230 21101 DAS SAMPLSUM # ACCUMULATE THE READING
025235,002815:
025236,002816: 25,3231 34735 CA BIT8 # VOLOCITY DATA GOOD BIT
025237,002817: 25,3232 54061 DGCHECK TS ITEMP1
025238,002818: 25,3233 33136 DGCHECK2 CA DGBITS # UPDATE THE STATUS OF THE DATA GOOD BITS
025239,002819: 25,3234 00006 EXTEND
025240,002820: 25,3235 02033 RAND CHAN33
025241,002821: 25,3236 57112 XCH OLDATAGD
025242,002822: 25,3237 70061 MASK ITEMP1
025243,002823: 25,3240 54001 TS L # OLD STATUS
025244,002824: 25,3241 30061 CA ITEMP1
025245,002825: 25,3242 71112 MASK OLDATAGD # CURRENT STATUS
025246,002826: 25,3243 60001 AD L
025247,002827: 25,3244 10000 CCS A # BOTH SHOULD BE ZERO
025248,002828: 25,3245 13256 TCF BADRAD # DATA GOOD NOT PRESENT
025249,002829:
025250,002830: 25,3246 11110 GOODRAD CCS NSAMP # TEST FOR R12
025251,002831: 25,3247 13403 TCF R12EXIT
025252,002832:
025253,002833: 25,3250 52064 DXCH ITEMP3 # STORE DATA FOR CALLING ROUTINE
025254,002834: 25,3251 53101 DXCH SAMPLSUM
025255,002835: 25,3252 03651 TC RADLITES # UPDATE DSKY LIGHTS.
|
|
The above instruction is circled. |
025257,002837:
025258,002838: 25,3253 34746 R77EXIT CA ZERO # ZERO RADUSE
025259,002839: 25,3254 55077 TS RADUSE
025260,002840: 25,3255 03614 TC RGOODEND -2
025261,002841:
025262,002842:
025263,002843: 25,3256 40110 BADRAD CS RADMODES # UPDATE RADMODES BIT ONLY IF DATA BAD
025264,002844: 25,3257 70061 MASK ITEMP1
025265,002845: 25,3260 26110 ADS RADMODES
025266,002846:
025267,002847: 25,3261 11110 CCS NSAMP # TEST FOR R12
025268,002848: 25,3262 13403 TCF R12EXIT
025269,002849:
025270,002850: 25,3263 03651 TC RADLITES # UPDATE DSKY LIGHTS
|
|
The above instruction is circled. |
025272,002852: 25,3264 34746 RRBADEND CA ZERO # ZERO RADUSE
|
|
Page 573 |
025274,002854: 25,3265 55077 TS RADUSE
025275,002855: 25,3266 03621 TC RDBADEND -2
025276,002856:
025277,002857:
025278,002858: 25,3267 34740 LRHEIGHT CA BIT5 # DATA GOOD BIT FOR ALTITUDE
025279,002859: 25,3270 54061 TS ITEMP1
025280,002860: 25,3271 34734 CA BIT9 # LO SCALE BIT FOR LR
025281,002861: 25,3272 03316 TC SCALECHK
025282,002862:
025283,002863: 25,3273 00006 RENDRAD EXTEND
025284,002864: 25,3274 31454 DCA TTOGO # LOAD TIME TO TIG
025285,002865: 25,3275 53272 DXCH TTOTIG # FOR R65 RADAR READING.
025286,002866:
025287,002867: 25,3276 34732 CA REPOSBIT # MAKE SURE ANTENNA HAS NOT
025288,002868: 25,3277 70110 MASK RADMODES # GONE OUT OF LIMITS.
025289,002869: 25,3300 10000 CCS A
025290,002870: 25,3301 13264 TCF RRBADEND
025291,002871:
025292,002872: 25,3302 40110 CS RADMODES # BE SURE RR CDU HASN'T FAILED.
025293,002873: 25,3303 74736 MASK RCDUFBIT
025294,002874: 25,3304 10000 CCS A
025295,002875: 25,3305 13264 TCF RRBADEND
025296,002876:
025297,002877: 25,3306 34741 CA BIT4 # DATA GOOD BIT FOR RR
025298,002878: 25,3307 54061 TS ITEMP1
025299,002879:
025300,002880: 25,3310 34744 CA BIT1 # TEST FOR RANGE OR RANGE RATE
025301,002881: 25,3311 71332 MASK RADBITS
025302,002882: 25,3312 54002 TS Q # SAVE FOR LATER TESTING
025303,002883: 25,3313 00006 EXTEND
025304,002884: 25,3314 13325 BZF RADIN # IF ROOT, READ DATA
025305,002885:
025306,002886: 25,3315 34742 CA BIT3 # LO SCALE BIT FOR RR.
025307,002887: 25,3316 54001 SCALECHK TS L
025308,002888: 25,3317 30110 CA RADMODES # TEST THE SCALE BIT SPECIFIED IN L
025309,002889: 25,3320 00006 EXTEND # TO SEE IF IT IS THE SMAE AS LAST
025310,002890: 25,3321 06033 RXOR CHAN33 # TIME.
025311,002891: 25,3322 70001 MASK L # IF BIT IS THE SMAE IN RADMODES AND
025312,002892: 25,3323 10000 CCS A # CHAN33, THEN A WILL BE ZERO
025313,002893: 25,3324 03364 TC SCALCHNG # SCALE CHANGED
025314,002894:
025315,002895: 25,3325 34724 RADIN CA POSMAX # UNPACK 15 BIT RADAR READING
025316,002896: 25,3326 70046 MASK RNRAD
025317,002897: 25,3327 54064 TS ITEMP4
025318,002898:
025319,002899: 25,3330 30046 CA RNRAD
025320,002900: 25,3331 60000 DOUBLE
025321,002901: 25,3332 74744 MASK BIT1
025322,002902: 25,3333 54063 TS ITEMP3
025323,002903:
|
|
Page 574 |
025325,002905: 25,3334 10002 CCS Q # TEST FOR RR RANGE RATE (Q = 0)
025326,002906: 25,3335 13342 TCF SCALADJ # RANGE OR LR HEIGHT . TEST SCALE
025327,002907:
025328,002908: 25,3336 00006 EXTEND # RR RANGE RATE - SUBTRACT BIAS
025329,002909: 25,3337 42002 DCS RDOTBIAS
025330,002910: 25,3340 20064 DASAMPL DAS ITEMP3
025331,002911: 25,3341 13233 TCF DGCHECK2 # TEST DATA GOOD
025332,002912:
025333,002913: 25,3342 30110 SCALADJ CA RADMODES # TEST SCALE BIT
025334,002914: 25,3343 70001 MASK L
025335,002915: 25,3344 00006 EXTEND
025336,002916: 25,3345 13233 BZF DGCHECK2 # LO SCALE
025337,002917:
025338,002918: 25,3346 74742 MASK BIT3 # HI SCALE - TEST FOR LR
025339,002919: 25,3347 00006 EXTEND # IF BIT3 = 0,THEN IT IS LR
025340,002920: 25,3350 13357 BZF LRSCK
025341,002921:
025342,002922: 25,3351 52064 DXCH ITEMP3 # RESCALE RR DATA TO LO SCALING
025343,002923: 25,3352 20001 DDOUBL # MULTIPLY BY 8.
025344,002924: 25,3353 20001 DDOUBL
025345,002925: 25,3354 20001 DDOUBL
025346,002926: 25,3355 52064 DXCH ITEMP3
025347,002927: 25,3356 13233 TCF DGCHECK2
025348,002928:
025349,002929: 25,3357 00006 LRSCK EXTEND # RESCALE LR DATA TO LO SCALING
025350,002930: 25,3360 30064 DCA ITEMP3 # MULTIPLY BY 5.
025351,002931: 25,3361 20001 DDOUBL
025352,002932: 25,3362 20001 DDOUBL
025353,002933: 25,3363 13340 TCF DASAMPL
025354,002934:
025355,002935:
025356,002936: 25,3364 30110 SCALCHNG CA RADMODES
025357,002937: 25,3365 00006 EXTEND # INVERT SCALE BIT IN RADMODES
025358,002938: 25,3366 06001 RXOR LCHAN
025359,002939: 25,3367 54110 TS RADMODES
025360,002940:
025361,002941: 25,3370 11110 CCS NSAMP # TEST FOR R12
025362,002942: 25,3371 13401 TCF R12SCHNG
|
|
The above two instructions are surrounded by drawn-in curly braces. |
025364,002944:
025365,002945: 25,3372 05506 TC UPFLAG # SET RNGSCFLG FOR LRS24.1
025366,002946: 25,3373 00120 ADRES RNGSCFLG
025367,002947:
025368,002948: 25,3374 33136 CA DGBITS # UPDATE DATA GOOD BITS
025369,002949: 25,3375 00006 EXTEND
025370,002950: 25,3376 02033 RAND CHAN33
025371,002951: 25,3377 55112 TS OLDATAGD
025372,002952: 25,3400 13264 TCF RRBADEND
025373,002953:
025374,002954:
025375,002955: 25,3401 55110 R12SCHNG TS NSAMP # UPDATE NSAMP AND IGNORE READING.
|
|
Page 575 |
025377,002957: 25,3402 13414 TCF READVEL
025378,002958:
025379,002959: 25,3403 55110 R12EXIT TS NSAMP # UPDATE NSAMP
025380,002960: 25,3404 00006 EXTEND
025381,002961: 25,3405 13445 BZF STORVEL
025382,002962:
025383,002963: 25,3406 67766 AD NEG3
025384,002964: 25,3407 00006 EXTEND
025385,002965: 25,3410 13425 BZF STORALT
025386,002966:
025387,002967: 25,3411 67770 AD NEGONE
025388,002968: 25,3412 00006 EXTEND
025389,002969: 25,3413 13423 BZF READALT
025390,002970: 25,3414 44750 READVEL CS SEVEN
025391,002971: 25,3415 00006 EXTEND
025392,002972: 25,3416 03013 WAND CHAN13
025393,002973: 25,3417 31077 CA RADUSE
025394,002974: 25,3420 04665 READALT2 TC IBNKCALL
025395,002975: 25,3421 36000 CADR RADSTART
|
|
The above two lines are circled. |
025397,002977: 25,3422 05272 TC RESUME
025398,002978:
025399,002979:
025400,002980: 25,3423 33063 READALT CA ALLREAD # SET UP LR ALTITUDE READ
025401,002981: 25,3424 13420 TCF READALT2
025402,002982:
025403,002983: 25,3425 52064 STORALT DXCH ITEMP3
025404,002984: 25,3426 53655 DXCH HMEAS # STORE ALT IN HMEAS
025405,002985:
025406,002986: 25,3427 40110 CS RADMODES # TEST DATA GOOD
025407,002987: 25,3430 74740 MASK BIT5
025408,002988: 25,3431 00006 EXTEND
025409,002989: 25,3432 13442 BZF HBAD # DATA GOOD NOT PRESENT
025410,002990:
025411,002991: 25,3433 11674 CCS STILBADH # IF DATA JUST GOOD,OR IG RESTART JUST
025412,002992: 25,3434 13443 TCF HSTILBAD # OCCURRED,WAIT
025413,002993:
025414,002994: 25,3435 40107 CS FLGWRD11 # SET FLAG FORR12.
025415,002995: 25,3436 74741 MASK RNGEDBIT # (CANNOT USE UPFLAG BECAUSE ITEMP1 IS
025416,002996: 25,3437 26107 ADS FLGWRD11 # DESTROYED)
025417,002997: 25,3440 03651 ALTEXIT TC RADLITES
|
|
The above instruction is circled. |
025419,002999: 25,3441 13414 TCF READVEL
025420,003000:
025421,003001: 25,3442 34743 HBAD CA TWO # SET STILBADH FOR FOUR SECOND DELAY
025422,003002: 25,3443 55674 HSTILBAD TS STILBADH
025423,003003: 25,3444 13440 TCF ALTEXIT
025424,003004:
025425,003005: 25,3445 40110 STORVEL CS RADMODES # TEST DATA GOOD
025426,003006: 25,3446 74735 MASK BIT8
025427,003007: 25,3447 00006 EXTEND
025428,003008: 25,3450 13506 BZF VBAD # DATA GOOD NOT PRESENT
025429,003009:
|
|
Page 576 |
025431,003011: 25,3451 11675 CCS STILBADV
025432,003012: 25,3452 13507 TCF VSTILBAD
025433,003013:
025434,003014: 25,3453 40107 CS FLGWRD11 # DATA IS GOOD, SET FLAG FOR R12
025435,003015: 25,3454 74736 MASK VELDABIT # (CANNOT USE UPFLAG BECAUSE ITEMP1 IS
025436,003016: 25,3455 26107 ADS FLGWRD11 # DESTROYED)
025437,003017: 25,3456 11462 R12DL CCS VSELECT # UPDATE VSELECT
025438,003018: 25,3457 13461 TCF +2
025439,003019: 25,3460 34743 CA TWO
025440,003020: 25,3461 55462 TS VSELECT
025441,003021:
025442,003022: 25,3462 53101 DXCH SAMPLSUM # STORE VEL DATA IN VMEAS
025443,003023: 25,3463 53653 DXCH VMEAS
025444,003024:
025445,003025: 25,3464 00006 EXTEND
025446,003026: 25,3465 31655 DCA HMEAS # STORE HMEAS FOR DOWNLINK
025447,003027: 25,3466 53777 DXCH HMEASDL
025448,003028:
025449,003029: 25,3467 00006 EXTEND
025450,003030: 25,3470 31561 DCA PIPTIME1 # STORE TIME FOR DOWNLINK
025451,003031: 25,3471 53755 DXCH MKTIME
025452,003032:
025453,003033: 25,3472 00006 EXTEND
025454,003034: 25,3473 31156 DCA CDUTEMPY # STORE CDUY,CDUZ FOR DOWNLINK
025455,003035: 25,3474 53460 DXCH AIG
025456,003036:
025457,003037: 25,3475 31154 CA CDUTEMPX # STORE CDUX FOR LINK
025458,003038: 25,3476 55461 TS AOG
025459,003039:
025460,003040: 25,3477 03651 TC RADLITES # UPDATE DSKY VEL LIGHT
|
|
The above instruction is circled. |
025462,003042: 25,3500 34746 CA ZERO
025463,003043: 25,3501 55077 TS RADUSE
025464,003044:
025465,003045: 25,3502 44742 OKUPDATE CS R12RDBIT # R12 READ IS DONE SO ALLOW R12 UPDATE
025466,003046: 25,3503 70107 MASK FLGWRD11
025467,003047: 25,3504 54107 TS FLGWRD11
025468,003048:
025469,003049: 25,3505 05272 TC RESUME
025470,003050:
025471,003051: 25,3506 34743 VBAD CA TWO
025472,003052: 25,3507 55675 VSTILBAD TS STILBADV
025473,003053: 25,3510 13456 TCF R12DL
025474,003054:
|
|
Page 577 |
025476,003056: # CODING TO PROTECT CHANNEL 13 WILL RADAR READ IS IN CRITICAL PERIOD
025477,003057:
025478,003058: 17,2000 SETLOC C13BANK
025479,003059: 17,2000 BANK
025480,003060:
025481,003061: 17,2000 54002 RADSTART TS Q
025482,003062: 17,2001 00006 +1 EXTEND
025483,003063: 17,2002 00004 READ LOSCALAR # READ PRESENT TIME
025484,003064: 17,2003 54001 TS L
025485,003065:
025486,003066: 17,2004 74337 MASK LOW5 # ONLY THE LOW 5 BITS MATTER
025487,003067: 17,2005 40000 COM
025488,003068: 17,2006 64737 AD BIT6 # COMPUTE DELTA TIME TO NEXT T5 TICK
025489,003069: 17,2007 74337 MASK LOW5
025490,003070: 17,2010 55270 TS RADDEL
025491,003071:
025492,003072: 17,2011 67767 AD NEG2 # IF A TICKING OF T5 IS NEAR, WAIT UNTIL
025493,003073: 17,2012 00006 EXTEND # IT HAS TICKED. THE MAX DELAY HERE WILL
025494,003074: 17,2013 62001 BZMF RADSTART +1 # BE 937.5 MICROSECONDS
025495,003075:
025496,003076: 17,2014 30002 CA Q
025497,003077: 17,2015 00006 EXTEND # IT IS SAFE TO SET THE ACTIVITY BIT NOW
025498,003078: 17,2016 05013 WOR CHAN13 # BECAUSE OF THE ABOVE LOOP
025499,003079:
025500,003080: 17,2017 40001 CS L
025501,003081: 17,2020 55267 TS RADTIME # SAVE NEGATIVE TIME OF READ
025502,003082: 17,2021 04700 TC ISWRETRN
025503,003083:
025504,003084:
025505,003085: 17,2022 55266 C13STAL1 TS C13FSAV
025506,003086:
025507,003087: 17,2023 34741 CA BIT4
025508,003088: 17,2024 00006 EXTEND
025509,003089: 17,2025 02013 RAND CHAN13
025510,003090: 17,2026 00006 EXTEND
025511,003091: 17,2027 12050 BZF TCQSTAL # IF NO RADAR ACTIVITY, RETURN
025512,003092:
025513,003093: 17,2030 12031 C13SLOOP NOOP # *** NECESSARY TO PREVENT A TC TRAP ***
025514,003094: 17,2031 00006 EXTEND
025515,003095: 17,2032 00004 READ LOSCALAR
025516,003096: 17,2033 61267 AD RADTIME # COMPUTE DELTA T SINCE LAST RADAR READ
025517,003097: 17,2034 64727 AD HALF
025518,003098: 17,2035 64727 AD HALF # CORRECT FOR TIME OVERFLOW
025519,003099: 17,2036 56001 XCH L
025520,003100:
025521,003101: 17,2037 32053 CA 90MSCALR
025522,003102: 17,2040 61270 AD RADDEL
025523,003103: 17,2041 00006 EXTEND
025524,003104: 17,2042 60001 SU L
|
|
Page 578 |
025526,003106: 17,2043 00006 EXTEND
025527,003107: 17,2044 62050 BZMF TCQSTAL # FORBIDDEN ZONE IS PAST, RETURN
025528,003108:
025529,003109: 17,2045 62054 AD -DTSCALR
025530,003110: 17,2046 00006 EXTEND
025531,003111: 17,2047 62030 BZMF C13SLOOP # IN THE FORBIDDEN PERIOD, LOOP UNTIL O.K.
025532,003112:
025533,003113: 17,2050 22002 TCQSTAL LXCH Q # ALL IS WELL, RETURN
025534,003114: 17,2051 31266 CA C13FSAV
025535,003115: 17,2052 52005 DTCF
025536,003116:
025537,003117: 17,2053 00440 90MSCALR OCT 440 # 90 MILLISEC IN SCALAR
025538,003118: 17,2054 77754 -DTSCALR OCT 77754 # -5.9375 MS IN SCALAR
025539,003119:
025540,003120: 6000 SETLOC FFTAG6
025541,003121: 6000 BANK
025542,003122:
025543,003123: 6040 37745 C13STALL CAF PRIO36 # PRIO36 = 36000 = FCADR (17,2000)
025544,003124: 6041 56004 XCH FBANK
025545,003125: 6042 12022 TCF C13STAL1
025546,003126:
|
|
Page 579 |
025548,003128: # THIS ROUTINE CHANGES THE LR POSITION, AND CHECKS THAT IT GOT THERE.
025549,003129:
025550,003130: 25,3511 BANK 25
025551,003131: 25,2000 SETLOC P20S1
025552,003132: 25,2000 BANK
025553,003133: 25,3511 COUNT* $$/RSUB
025554,003134: 25,3511 00004 LRPOS2 INHINT
025555,003135:
025556,003136: 25,3512 40110 CS RADMODES
025557,003137: 25,3513 74737 MASK LRPOSBIT # SHOW DESIRED LR POSITION IS 2
025558,003138: 25,3514 26110 ADS RADMODES
025559,003139:
025560,003140: 25,3515 34736 CAF BIT7
025561,003141: 25,3516 00006 EXTEND
025562,003142: 25,3517 02033 RAND CHAN33 # SEE IF ALREADY THERE.
025563,003143: 25,3520 00006 EXTEND
025564,003144: 25,3521 13532 BZF RADNOOP
025565,003145:
025566,003146: 25,3522 34730 CAF BIT13
025567,003147: 25,3523 00006 EXTEND
025568,003148: 25,3524 05012 WOR CHAN12 # COMMAND TO POSITION 2
025569,003149: 25,3525 33565 CAF 6SECS # START SCANNING FOR INBIT AFTER 7 SECS.
025570,003150: 25,3526 05205 TC WAITLIST
025571,003151: 25,3527 E7,1456 EBANK= LOSCOUNT
025572,003152: 25,3527 03563 52067 2CADR LRPOSCAN
025573,003153:
025574,003154: 25,3531 02357 TC ROADBACK
025575,003155:
025576,003156: 25,3532 34744 RADNOOP CAF ONE # NO FURTHER ACTION REQUESTED
025577,003157: 25,3533 05205 TC WAITLIST
025578,003158: 25,3534 E7,1456 EBANK= LOSCOUNT
025579,003159: 25,3534 03616 52067 2CADR RGOODEND
025580,003160:
025581,003161: 25,3536 02357 TC ROADBACK
025582,003162:
025583,003163: 25,3537 55077 LRPOSNXT TS SAMPLIM
025584,003164: 25,3540 05223 TC FIXDELAY # SCAN ONCE PER SECOND 5 TIMES MAX AFTER
025585,003165: 25,3541 00144 DEC 100 B-14 # INITIAL DELAY OF 7 SECONDS.
025586,003166:
025587,003167: 25,3542 34736 CAF BIT7 # SEE IF LR POS2 IS ON
025588,003168: 25,3543 00006 EXTEND
025589,003169: 25,3544 02033 RAND CHAN33
025590,003170: 25,3545 00006 EXTEND
025591,003171: 25,3546 13555 BZF LASTLRDT # IF THERE, WAIT FINAL SECOND FOR BOUNCE.
025592,003172:
025593,003173: 25,3547 11077 CCS SAMPLIM # SEE IF MAX TIME UP.
025594,003174: 25,3550 13537 TCF LRPOSNXT
025595,003175:
025596,003176: 25,3551 44730 CS BIT13 # IF TIME UP, DISABLE COMMAND AND ALARM.
025597,003177: 25,3552 00006 EXTEND
|
|
Page 580 |
025599,003179: 25,3553 03012 WAND CHAN12
025600,003180: 25,3554 13623 TCF RDBADEND
025601,003181:
025602,003182: 25,3555 34771 LASTLRDT CA 2SECS # WAIT TWO SECONDS AFTER RECEIPT OF INBIT
025603,003183: 25,3556 05226 TC VARDELAY # TO WAIT FOR ANTENNA BOUNCE TO DIE OUT.
025604,003184:
025605,003185: 25,3557 44730 CS BIT13 # REMOVE COMMAND
025606,003186: 25,3560 00006 EXTEND
025607,003187: 25,3561 03012 WAND CHAN12
025608,003188: 25,3562 13616 TCF RGOODEND
025609,003189:
025610,003190: 25,3563 34742 LRPOSCAN CAF FOUR
025611,003191: 25,3564 13537 TCF LRPOSNXT
025612,003192: 25,3565 01130 6SECS DEC 600 B-14
025613,003193:
025614,003194: 25,3566 04607 LRP2COMM TC BANKCALL
025615,003195: 25,3567 53511 CADR LRPOS2
025616,003196: 25,3570 04607 TC BANKCALL
025617,003197: 25,3571 17733 CADR RADSTALL
025618,003198: 25,3572 03574 TC LP2ALM
025619,003199: 25,3573 13605 TCF GOPINNER
025620,003200:
025621,003201: 25,3574 05571 LP2ALM TC ALARM
025622,003202: 25,3575 00523 OCT 523
025623,003203: 25,3576 13605 TCF GOPINNER
025624,003204:
025625,003205: 25,3577 35007 V59GP63 CA EBANK7
025626,003206: 25,3600 54003 TS EBANK
025627,003207: 25,3601 E7,1427 EBANK= RPCRTIME
025628,003208: 25,3601 34724 CA POSMAX
025629,003209: 25,3602 55427 TS RPCRTIME
025630,003210: 25,3603 44727 CS BIT14
025631,003211: 25,3604 55430 TS RPCRTQSW
025632,003212: 25,3605 04626 GOPINNER TC POSTJUMP
025633,003213: 25,3606 21062 CADR PINBRNCH
025634,003214:
|
|
Page 581 |
025636,003216: # SEQUENCES TO TERMINATE RR OPERATIONS.
025637,003217:
025638,003218: 25,3607 34736 ENDRADAR CAF RCDUFBIT # PROLOG TO CHECK RR CDU FAIL BEFORE END.
025639,003219: 25,3610 70110 MASK RADMODES
025640,003220: 25,3611 10000 CCS A
025641,003221: 25,3612 13616 TCF RGOODEND
025642,003222: 25,3613 13623 TCF RDBADEND
025643,003223: 25,3614 44746 -2 CS ZERO # RGOODEND WHEN NOT UNDER WAITLIST CONTROL
025644,003224: 25,3615 54332 TS RUPTAGN
025645,003225:
025646,003226: 25,3616 34743 RGOODEND CAF TWO
025647,003227: 25,3617 04626 TC POSTJUMP
025648,003228: 25,3620 17704 CADR GOODEND
025649,003229:
025650,003230: 25,3621 44746 -2 CS ZERO # RDBADEND WHEN NOT UNDER WAITLIST.
025651,003231: 25,3622 54332 TS RUPTAGN
025652,003232: 25,3623 34743 RDBADEND CAF TWO
025653,003233: 25,3624 04626 TC POSTJUMP
025654,003234: 25,3625 17701 CADR BADEND
025655,003235:
025656,003236: 25,3626 6266 BIN3 EQUALS THREE
025657,003237:
|
|
Page 582 |
025659,003239: # PROGRAM NAME_ LPS20.1 VECTOR EXTRAPOLATION AND LOS COMPUTATION
025660,003240: # MOD. NO. 2 BY J.D. COYNE SDC DATE 12-7-66
025661,003241:
025662,003242:
025663,003243: # FUNCTIONAL DESCRIPTION_
025664,003244:
025665,003245: # 1) EXTRAPOLATE THE LEM AND CSM VECTORS IN ACCORDANCE WITH THE TIME REFERED TO IN CALLER + 1.
025666,003246: # 2) COMPUTES THE LOS VECTOR TO THE CSM, CONVERTS IT TO STABLE MEMBER COORDINATES AND STORES IT IN RRTARGET.
025667,003247: # 3) COMPUTES THE MAGNITUDE OF THE LOS VECTOR AND STORES IT IN MLOSV
025668,003248:
025669,003249:
025670,003250: # CALLING SEQUENCE CALL
025671,003251: # LPS20.1
025672,003252:
025673,003253: # SUBROUTINES CALLED_
025674,003254:
025675,003255: # LEMPREC,CSMPREC
025676,003256:
025677,003257:
025678,003258: # NORMAL EXIT_ RETURN TO CALLER + 2
025679,003259:
025680,003260:
025681,003261: # ERROR EXITS_ NONE
025682,003262:
025683,003263:
025684,003264: # ALARMS_ NONE
025685,003265:
025686,003266:
025687,003267: # OUTPUT_
025688,003268:
025689,003269: # LOS VECTOR (HALF UNIT) IN SM COORDINATES STORED IN RRTARGET
025690,003270: # MAGNITUDE OF THE LOS VECTOR (METERS SCALED B-29) STORED IN MSLOV
025691,003271: # RRNBSW CLEARED
025692,003272:
025693,003273:
025694,003274: # INITIALIZED ERASEABLE
025695,003275:
025696,003276: # TDEC1 MUST CONTAIN THE TIME FOR EXTRAPOLATION
025697,003277: # SEE ORBITAL INTEGRATION ROUTINE
025698,003278:
025699,003279:
025700,003280: # DEBRIS_
025701,003281:
025702,003282: # MPAC DESTROYED BY THIS ROUTINE
025703,003283:
025704,003284: 23,2335 BANK 23
025705,003285: 24,2000 SETLOC P20S
025706,003286: 24,2000 BANK
|
|
Page 583 |
025708,003288: 24,3337 COUNT* $$/LPS20
025709,003289:
025710,003290: 24,3337 43020 LPS20.1 STQ BOFF
025711,003291: 24,3340 01755 LS21X
025712,003292: 24,3341 01343 LOSCMFLG # LOSCMFLG = 0 MEANS NOT CALLED BY R21
025713,003293: 24,3342 51346 LMINT # SO CALL LEMCONIC TO GET LM STATE
025714,003294: 24,3343 77614 BON # IF IN R21 AND ON LUNAR SURFACE
025715,003295: 24,3344 04307 SURFFLAG # DON'T CALL LEMCONIC
025716,003296: 24,3345 51356 CSMINT
025717,003297: 24,3346 77624 LMINT CALL
025718,003298: 24,3347 27136 LEMCONIC # EXTRAPOLATE LEM
025719,003299: 24,3350 77775 VLOAD
025720,003300: 24,3351 00001 RATT
025721,003301: 24,3352 26343 STOVL LMPOS # SAVE LM POSITION B-29
025722,003302: 24,3353 00007 VATT
025723,003303: 24,3354 16351 STODL LMVEL # SAVE LM VELOCITY B-7
025724,003304: 24,3355 00015 TAT
025725,003305: 24,3356 34041 CSMINT STCALL TDEC1
025726,003306: 24,3357 27124 CSMCONIC # EXTRAPOLATE CSM
025727,003307: 24,3360 52375 VLOAD VSU # COMPUTE RELATIVE VELOCITY V(CSM) - V(LM)
025728,003308: 24,3361 00007 VATT
025729,003309: 24,3362 02351 LMVEL
025730,003310: 24,3363 00017 STORE VELLOS
025731,003311: 24,3364 76521 MXV VSL1
025732,003312: 24,3365 01732 REFSMMAT
025733,003313: 24,3366 77776 EXIT
025734,003314: 24,3367 06050 TC KILLTASK # KILL THE TASK WHICH CALLS DODES SINCE
025735,003315: 24,3370 52573 CADR DESLOOP +2 # STORING INTO ERASEABLES DODES USES
025736,003316: 24,3371 06060 TC INTPRET
025737,003317: 24,3372 25757 STOVL LOSVEL
025738,003318: 24,3373 00001 RATT
025739,003319: 24,3374 43051 VSU BOFF
025740,003320: 24,3375 02343 LMPOS
025741,003321: 24,3376 00350 RNDVZFLG
025742,003322: 24,3377 51404 NOTSHIFT
025743,003323: 24,3400 00025 STORE RRANGE # RANGE FOR POSSIBLE ALARM B-29
025744,003324: 24,3401 54204 BOVB VSL
025745,003325: 24,3402 57756 TCDANZIG
025746,003326: 24,3403 20212 9D
025747,003327: 24,3404 41056 NOTSHIFT UNIT BOVB # IF OVERFLOW , RANGE MUST BE GREATER
025748,003328: 24,3405 50104 526ALARM # THAN 400 N. M.
025749,003329: 24,3406 76521 MXV VSL1
025750,003330: 24,3407 01732 REFSMMAT # CONVERT TO STABLE MEMBER
025751,003331: 24,3410 15101 STODL RRTARGET
025752,003332: 24,3411 00045 36D # SAVE MAGNITUDE OF LOS VECTOR FOR
025753,003333: 24,3412 01765 STORE MLOSV # VELOCITY CORRECTION IN DESIGNATE
025754,003334: 24,3413 77614 CLRGO
025755,003335: 24,3414 00231 RRNBSW
025756,003336: 24,3415 01755 LS21X
025757,003337: 24,3416 RRANGE EQUALS 20D
|
|
Page 584 |
025759,003339: 24,3416 VELLOS EQUALS 14D
025760,003340:
|
|
Page 585 |
025762,003342: # PROGRAM NAME : LPS20.2 400 N. MI. RANGE CHECK
025763,003343: # MOD. NO. 2 BY J.D. COYNE SDC DATE 12-7-66
025764,003344:
025765,003345:
025766,003346: # FUNCTIONAL DESCRIPTION_
025767,003347:
025768,003348: # COMPARES THE MAGNITUDE OF THE LOS VECTOR TO 400 NM
025769,003349:
025770,003350:
025771,003351: # CALLING SEQUENCE CALL
025772,003352: # LPS20.2
025773,003353:
025774,003354:
025775,003355: # SUBROUTINES CALLED_ NONE
025776,003356:
025777,003357:
025778,003358: # NORMAL EXIT _ RETURN TO CALLER +1, MPAC EQ 0 (RANGE 400NM OR LESS.)
025779,003359:
025780,003360:
025781,003361: # ERROR EXITS _ RETURN TO CALLER +1, MPAC EQ 1 (RANGE GREATER THAN 400NM)
025782,003362:
025783,003363:
025784,003364: # ALARMS_ NONE
025785,003365:
025786,003366:
025787,003367: # OUTPUT_ NONE
025788,003368:
025789,003369:
025790,003370: # INITIALIZED ERASEABLE_
025791,003371:
025792,003372: # PDL 36D MUST CONTAIN THE MAGNITUDE OF THE VECTOR
025793,003373: # DEBRIS
025794,003374:
025795,003375: # MPAC DESTROYED BY THIS ROUTINE
025796,003376:
025797,003377: 25,2000 SETLOC P20S1
025798,003378: 25,2000 BANK
025799,003379: 25,3626 COUNT* $$/LPS20
025800,003380:
025801,003381: 25,3626 45345 LPS20.2 DLOAD DSU
025802,003382: 25,3627 01765 MLOSV # MAGNITUDE OF LOS
025803,003383: 25,3630 13641 FHNM # OVER 400NM _
025804,003384: 25,3631 77644 BPL
025805,003385: 25,3632 53635 TOFAR
025806,003386: 25,3633 43535 SLOAD RVQ
025807,003387: 25,3634 06505 ZERO/SP
025808,003388: 25,3635 43535 TOFAR SLOAD RVQ
025809,003389: 25,3636 13640 ONE/SP
025810,003390: 25,3637 00001 ONE/SP DEC 1 B-14
|
|
Page 586 |
025812,003392: 25,3640 26467 00000 FHNM 2DEC 740800 B-20 # 400 NAUTICAL MILES IN METERS B-20
025813,003393:
|
|
Page 587 |
025815,003395: # PROGRAM NAME: LRS22.1 (DATA READ SUBROUTINE 1)
025816,003396: # MOD. NO.: 1 BY: P. VOLANTE SDC DATE: 11-15-66
025817,003397:
025818,003398:
025819,003399: # FUNCTIONAL DESCRIPTION
025820,003400:
025821,003401: # 1) READS RENDEZVOUS RADAR RANGE AND RANGE-RATE,TRUNION AND SHAFT ANGLES,THREE CDU VALUES AND TIME. CONVERTS THIS
025822,003402: # DATA AND LEAVES IT FOR THE MEASUREMENT INCORPORATION ROUTINE (LSR22.3). CHECKS FOR THE RR DATA GOOD DISCRETE,FOR
025823,003403: # RR REPOSITION AND RR CDU FAIL
025824,003404:
025825,003405: # 2) COMPARES RADAR LOS WITH LOS COMPUTED FROM STATE VECTORS TO SEE IF THEY ARE WITHIN THREE DEGREES
025826,003406:
025827,003407:
025828,003408: # CALLING SEQUENCE: BANKCALL FOR LRS22.1
025829,003409:
025830,003410:
025831,003411: # SUBROUTINES CALLED:
025832,003412:
025833,003413: # RRRDOT LPS20.1
025834,003414: # RRRANGE BANKCALL
025835,003415: # RADSTALL CDULOGIC
025836,003416: # RRNB SMNB
025837,003417: # NORMAL EXIT: RETURN TO CALLER+1 WITH MPAC SET TO +0
025838,003418:
025839,003419:
025840,003420: # ERROR EXITS: RETURN TO CALLER+1 WITH ERROR CODE STORED IN MPAC AS FOLLOWS:
025841,003421:
025842,003422: # 00001-ERROR EXIT 1-RR DATA NO GOOD (NO RR DATA GOOD DISCRETE OR RR CDU FAIL OR RR REPOSITION)
025843,003423: # 00002-ERROR EXIT 2-RR LOS NOT WITHIN THREE DEGREES OF LOS COMPUTED FROM STATE VECTORS
025844,003424:
025845,003425:
025846,003426: # ALARMS: 521-COULD NOT READ RADAR DATA (RR DATA GOOD DISCRETE NOT PRESENT BEFORE AND AFTER READING THE RADAR)
025847,003427: # (THIS ALARM IS ISSUED BY THE RADAREAD SUBROUTINE WHICH IS ENTERED FROM A RADARUPT)
025848,003428:
025849,003429:
025850,003430: # OUTPUT: RRLOSVEC- THE RR LINE-OF-SIGHT VECTOR(USED BY LRS22.2)-A HALF-UNIT VECTOR
025851,003431: # RM- THE RR RANGE READING(TO THE CSM) DP, IN METERS SCALED B-29(USED BY LRS22.2 AND LRS22.3)
025852,003432:
025853,003433: # ALL OF THE FOLLOWING OUTPUTS ARE USED BY LRS22.3:
025854,003434:
025855,003435: # RDOTM- THE RR RANGE-RATE READING,DP, IN METERS PER CENTISECOND, SCALED B-7
025856,003436: # RRTRUN-RR TRUNION ANGLE,DP,IN REVOLUTIONS,SCALED B0
025857,003437: # RRSHAFT-RR SHAFT ANGLE,DP,IN REVOLUTIONS,SCALED B0
025858,003438: # AIG,AMG,AOG-THE CDU ANGLES,THREE SP WORDS
025859,003439: # MKTIME-THE TIME OF THE RR READING,DP,IN CENTISECONDS
025860,003440:
025861,003441:
025862,003442: # ERASABLE INITIALIZATION REQUIRED:
025863,003443:
025864,003444: # RNRAD,THE RADAR READ COUNTER FROM WHICH IS OBTAINED:
|
|
Page 588 |
025866,003446: # 1)RR RANGE SCALED 9.38 FT. PER BIT ON THE LOW SCALE AND 75.04 FT. PER BIT ON THE HIGH SCALE
025867,003447: # 2)RR RANGE RATE,SCALED .6278 FT./SEC. PER BIT
025868,003448:
025869,003449: # THE CDU ANGLES FROM CDUX,CDUY,CDUZ AND TIME1 AND TIME2
025870,003450:
025871,003451:
025872,003452: # DEBRIS: LRS22.1X,A,L,Q,PUSHLIST
025873,003453:
025874,003454:
025875,003455: 32,2362 BANK 32
025876,003456: 32,2000 SETLOC LRS22
025877,003457: 32,2000 BANK
025878,003458: 32,2362 COUNT* $$/LRS22
025879,003459:
025880,003460: 32,2362 04636 LRS22.1 TC MAKECADR
025881,003461: 32,2363 55737 TS LRS22.1X
025882,003462: 32,2364 05520 TC DOWNFLAG
025883,003463: 32,2365 00120 ADRES RNGSCFLG
025884,003464: 32,2366 00004 INHINT
025885,003465: 32,2367 34742 CAF BIT3
025886,003466: 32,2370 00006 EXTEND # GET RR RANGE SCALE
025887,003467: 32,2371 02033 RAND CHAN33 # FROM CHANNEL 33 BIT 3
025888,003468: 32,2372 54001 TS L
025889,003469: 32,2373 44742 CS RRRSBIT
025890,003470: 32,2374 70110 MASK RADMODES
025891,003471: 32,2375 60001 AD L
025892,003472: 32,2376 54110 TS RADMODES
025893,003473: 32,2377 00003 RELINT
025894,003474: 32,2400 04607 READRDOT TC BANKCALL
025895,003475: 32,2401 53072 CADR RRRDOT # READ RANGE-RATE (ONE SAMPLE)
025896,003476: 32,2402 04607 TC BANKCALL
025897,003477: 32,2403 17733 CADR RADSTALL # WAIT FOR DATA READ COMPLETION
025898,003478: 32,2404 12560 TCF EREXIT1 # COULD NOT READ RADAR-ERROR EXIT 1
025899,003479:
025900,003480: 32,2405 00004 INHINT # NO INTERRUPTS WHILE READING TIME AND CDU
025901,003481: 32,2406 53105 DXCH TIMEHOLD # SET MARK TIME EQUAL TO THE MID-POINT
025902,003482: 32,2407 52162 DXCH MPAC +5 # TEMP BUFFER FOR DOWNLINK
025903,003483: 32,2410 53101 DXCH SAMPLSUM # SAVE RANGE-RATE READING
025904,003484: 32,2411 53747 DXCH RDOTMSAV
025905,003485: 32,2412 00006 EXTEND
025906,003486: 32,2413 30034 DCA CDUY # SAVE ICDU ANGLES
025907,003487: 32,2414 52160 DXCH MPAC +3 # TEMP BUFFER FOR DOWNLINK
025908,003488: 32,2415 30032 CA CDUX
025909,003489: 32,2416 54156 TS MPAC +2 # TEMP BUFFER FOR DOWNLINK
025910,003490: 32,2417 00006 EXTEND
025911,003491: 32,2420 30025 DCA TIME2 # SAVE TIME
025912,003492: 32,2421 52155 DXCH MPAC # SAVE TIME OF CDY READINGS IN MPAC
025913,003493: 32,2422 00006 EXTEND
025914,003494: 32,2423 30036 DCA CDUT # SAVE TRUNION AND SHAFT ANGLES FOR RRNB
025915,003495: 32,2424 53107 DXCH TANG
|
|
Page 589 |
025917,003497: 32,2425 00003 RELINT
025918,003498: 32,2426 04607 TC BANKCALL
025919,003499: 32,2427 53074 CADR RRRANGE # READ RR RANGE (ONE SAMPLE)
025920,003500: 32,2430 04607 TC BANKCALL
025921,003501: 32,2431 17733 CADR RADSTALL # WAIT FOR READ COMPLETE
025922,003502: 32,2432 02554 TC CHEXERR # CHECK FOR ERRORS DURING READ
025923,003503: 32,2433 00004 INHINT # COPY CYCLE FOR MARK DATA ON DOWNLINK
025924,003504: 32,2434 00006 EXTEND
025925,003505: 32,2435 31331 DCA DNRRANGE # RANGE,RANGE RATE (RAW DATA)
025926,003506: 32,2436 53761 DXCH RANGRDOT
025927,003507: 32,2437 52162 DXCH MPAC +5
025928,003508: 32,2440 53755 DXCH MKTIME # MARK TIME
025929,003509: 32,2441 52160 DXCH MPAC +3
025930,003510: 32,2442 53460 DXCH AIG # CDUY, CDUZ
025931,003511: 32,2443 00006 EXTEND
025932,003512: 32,2444 31107 DCA TANG # PRESERVE TANG
025933,003513: 32,2445 53753 DXCH TANGNB # TRUNNION AND SHAFT ANGLES
025934,003514: 32,2446 30156 CA MPAC +2
025935,003515: 32,2447 55461 TS AOG # CDUX
025936,003516: 32,2450 06060 TC INTPRET
025937,003517: 32,2451 14025 STODL 20D # SAVE TIME OF CDU READINGS IN 20D
025938,003518: 32,2452 03755 MKTIME
025939,003519: 32,2453 45225 DSU DSU
025940,003520: 32,2454 01777 OLDAGS
025941,003521: 32,2455 24567 50SECS # 50 SECS SINCE LAST AGS DOWNLIST?
025942,003522: 32,2456 77440 BMN EXIT
025943,003523: 32,2457 64472 NOAGS # NO
025944,003524:
025945,003525: 32,2460 40110 CS FLGWRD12 # IS RR READING HIGH SCALE
025946,003526: 32,2461 74742 MASK RRRSBIT
025947,003527: 32,2462 10000 CCS A
025948,003528: 32,2463 34724 CA POSMAX # NO- LOW SCALE (SET CONFIG) AGSCODE=17776
025949,003529: 32,2464 62565 AD OCT57776 # YES- HI SCALE (SET CONFIG) AGSCODE=57776
025950,003530: 32,2465 55073 TS AGSCODE # SET AGS CODE WORD
025951,003531: 32,2466 06060 TC INTPRET
025952,003532: 32,2467 77745 DLOAD
025953,003533: 32,2470 03755 MKTIME
025954,003534: 32,2471 01777 STORE OLDAGS # SAVE AGS DOWNLINK TIME
025955,003535:
025956,003536: 32,2472 77745 NOAGS DLOAD
025957,003537: 32,2473 03747 RDOTMSAV # CONVERT RDOT UNITS AND SCALING
025958,003538: 32,2474 57261 SL DMPR # START WITH READING SCALED B-28, -.6278
025959,003539: 32,2475 20217 14D # FT./SECOND PER BIT
025960,003540: 32,2476 24002 RDOTCONV # END WITH METERS/CENTISECOND, B-7
025961,003541: 32,2477 03751 STORE RDOTM
025962,003542: 32,2500 47135 SLOAD RTB
025963,003543: 32,2501 01107 TANG # GET TRUNION ANGLE
025964,003544: 32,2502 21606 CDULOGIC # CONVERT TO DP ONES COMP. IN REVOLUTIONS
025965,003545: 32,2503 03734 STORE RRTRUN # AND SAVE FOR TMI ROUTINE (LSR22.3)
025966,003546: 32,2504 47135 SLOAD RTB
|
|
Page 590 |
025968,003548: 32,2505 01110 TANG +1 # DITTO FOR SHAFT ANGLE
025969,003549: 32,2506 21606 CDULOGIC
025970,003550: 32,2507 17736 STODL RRSHAFT
025971,003551: 32,2510 01101 SAMPLSUM
025972,003552: 32,2511 66405 DMP SL2R # CONVERT UNITS AND SCALING OF RANGE
025973,003553: 32,2512 24004 RANGCONV # PER BIT, END WITH METERS,SCALED -29
025974,003554: 32,2513 37757 STCALL RM
025975,003555: 32,2514 46041 RRNB # COMPUTE RADAR LOS USING RRNB
025976,003556: 32,2515 17741 STODL RRBORSIT # AND SAVE
025977,003557: 32,2516 00025 20D
025978,003558: 32,2517 34041 STCALL TDEC1 # GET STATE VECTOR LOS AT TIME OF CDU READ
025979,003559: 32,2520 51337 LPS20.1
025980,003560: 32,2521 77776 EXIT
025981,003561: 32,2522 31457 CA AIG # STORE IMU CDU ANGLES AT MARKTIME
025982,003562: 32,2523 54765 TS CDUSPOT # IN CDUSPOT FOR TRG*SMNB
025983,003563: 32,2524 31460 CA AMG
025984,003564: 32,2525 54767 TS CDUSPOT +2
025985,003565: 32,2526 31461 CA AOG
025986,003566: 32,2527 54771 TS CDUSPOT +4
025987,003567: 32,2530 06060 TC INTPRET
025988,003568: 32,2531 45175 VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
025989,003569: 32,2532 01101 RRTARGET
025990,003570: 32,2533 47643 TRG*SMNB # ROTATE LOS AT MARKTIME FROM SM TO NB.
025991,003571: 32,2534 77641 DOT # DOT WITH RADAR LOS TO GET ANGLE
025992,003572: 32,2535 03741 RRBORSIT
025993,003573: 32,2536 65552 SL1 ACOS # BETWEEN THEM
025994,003574: 32,2537 01045 STORE DSPTEM1 # STORE FOR POSSIBLE DISPLAY
025995,003575: 32,2540 50025 DSU BMN # IS IT LESS THAN 3 DEGREES
025996,003576: 32,2541 24564 THREEDEG
025997,003577: 32,2542 64547 NORMEXIT # YES-NORMAL EXIT
025998,003578:
025999,003579: 32,2543 77776 EXIT # ERROR EXIT 2
026000,003580: 32,2544 34743 CAF BIT2 # SET ERROR CODE
026001,003581: 32,2545 54154 TS MPAC
026002,003582: 32,2546 12552 TCF OUT22.1
026003,003583:
026004,003584: 32,2547 77776 NORMEXIT EXIT # NORMAL EXIT-SET MPAC EQUAL ZERO
026005,003585: 32,2550 34746 CAF ZERO
026006,003586: 32,2551 54154 TS MPAC
026007,003587: 32,2552 31737 OUT22.1 CAE LRS22.1X # EXIT FROM LRS22.1
026008,003588: 32,2553 04631 TC BANKJUMP
026009,003589: 32,2554 30101 CHEXERR CAE FLAGWRD5
026010,003590: 32,2555 74733 MASK RNGSCBIT
026011,003591: 32,2556 10000 CCS A # CHECK IF RANGE SCALE CHANGED
026012,003592: 32,2557 12400 TCF READRDOT # YES-TAKE ANOTHER READING
026013,003593:
026014,003594: 32,2560 34744 EREXIT1 CA BIT1 # SET ERROR CODE
026015,003595: 32,2561 54154 TS MPAC
026016,003596: 32,2562 02552 TC OUT22.1
026017,003597: 32,2563 00210 21042 THREEDEG 2DEC .008333333 # THREE DEGREES,SCALED REVS,B0
026018,003598:
|
|
Page 591 |
026020,003600: 32,2565 57776 OCT57776 OCT 57776 # AGS CODE WORD - HIGH RANGE SCALE - SET
026021,003601: 32,2566 00000 11610 50SECS 2DEC 5000 B-28
026022,003602:
|
|
Page 592 |
026024,003604: # PROGRAM NAME - LRS22.2 (DATA READ SUBROUTINE 2)
026025,003605:
026026,003606:
026027,003607: # MOD. NO. : 1 BY: P VOLANTE SDC DATE 4-11-67
026028,003608:
026029,003609: # FUNCTIONAL DESCRIPTION-
|
|
(Yes, I know point #1 is missing. It is missing from the program listing -- RSB 2003) |
026031,003611: # 2) CHECKS IF THE RR LOS (I.E. THE RADAR BORESIGHT VECTOR) IS WITHIN 30 DEGREES OF THE LM +Z AXIS
026032,003612:
026033,003613:
026034,003614: # CALLING SEQUENCE- BANKCALL FOR LRS22.2
026035,003615:
026036,003616:
026037,003617: # SUBROUTINES CALLED: G+N,AUTO SETMAXDB
026038,003618: # NORMAL EXIT - RETURN TO CALLER WITH MPAC SET TO +0 (VIA SWRETURN)
026039,003619:
026040,003620:
026041,003621: # ERROR EXIT - RETURN TO CALLER WITH MPAC SET TO 00001 -RADAR LOS NOT WITHIN 30 DEGREES OF LM +Z AXIS
026042,003622:
026043,003623:
026044,003624: # ALARMS - NONE IN THE AUTO MODE
026045,003625:
026046,003626:
026047,003627: # ERASABLE INITIALIZATION REQUIRED -
026048,003628: # RRLOSVEC - THE RR LINE-OF-SIGHT VECTOR-A HALF UNIT VECTOR COMPUTED BY LRS22.1
026049,003629: # RM - RR RANGE, METERS B-29, FROM LRS22.1
026050,003630: # BIT 14 CHANNEL 31 -INDICATES AUTOPILOT IS IN AUTO MODE
026051,003631:
026052,003632:
026053,003633: # DEBRIS - A,L,Q MPAC -PUSHLIST AND PUSHLOC ARE NOT CHANGED BY THIS ROUTINE
026054,003634:
026055,003635: 24,2000 SETLOC P20S
026056,003636: 24,2000 BANK
026057,003637: 24,3416 04636 LRS22.2 TC MAKECADR
026058,003638: 24,3417 55737 TS LRS22.1X
026059,003639: 24,3420 06060 TC INTPRET
026060,003640: # CHECK IF RR LOS IS WITHIN 30 DEG OF
026061,003641: 24,3421 65545 30DEGCHK DLOAD ACOS # THE SPACECRAFT +Z AXIS
026062,003642: 24,3422 03745 RRBORSIT +4 # BY TAKING ARCCOS OF Z-COMP. OF THE RR
026063,003643: # LOS VECTOR,A HALF UNIT VECTOR
026064,003644: # IN NAV BASE AXES)
026065,003645: 24,3423 50025 DSU BMN
026066,003646: 24,3424 11440 30DEG
026067,003647: 24,3425 51432 OKEXIT # NORMAL EXIT-WITHIN 30 DEG.
026068,003648: 24,3426 77776 EXIT # ERROR EXIT-NOT WITHIN 30 DEG.
026069,003649: 24,3427 34744 CAF BIT1 # SET ERROR CODE IN MPAC
026070,003650: 24,3430 54154 TS MPAC
026071,003651: 24,3431 13435 TCF OUT22.2
026072,003652: 24,3432 77776 OKEXIT EXIT # NORMAL EXIT-SET MPAC = ZERO
026073,003653:
|
|
Page 593 |
026075,003655: 24,3433 34746 CAF ZERO
026076,003656: 24,3434 54154 TS MPAC
026077,003657: 24,3435 31737 OUT22.2 CAE LRS22.1X
026078,003658: 24,3436 04631 TC BANKJUMP
026079,003659:
026080,003660: 24,3437 02525 12525 30DEG 2DEC .083333333 # THIRTY DEGREES,SCALED REVS,B0
026081,003661:
|
|
Page 594 |
026083,003663: # PROGRAM NAME - LSR22.3 DATE - 29 MAY 1967
026084,003664: # MOD. NO 3 LOG SECTION - P20-25
026085,003665: # MOD. BY - DANFORTH ASSEMBLY LEMP20S REV 10
026086,003666:
026087,003667: # FUNCTIONAL DESCRIPTION
026088,003668:
026089,003669: # THIS ROUTINE COMPUTES THE B-VECTORS AND DELTA Q FOR EACH OF THE QUANTITIES MEASURED BY THE RENDEZVOUS
026090,003670: # RADAR.(RANGE,RANGE RATE,SHAFT AND TRUNNION ANGLES). THE ROUTINE CALLS THE INCORP1 AND INCORP2 ROUTINES
026091,003671: # WHICH COMPUTE THE DEVIATIONS AND CORRECT THE STATE VECTOR.
026092,003672:
026093,003673: # CALLING SEQUENCE
026094,003674: # THIS ROUTINE IS PART OF P20 RENDEZVOUS NAVIGATION FOR THE LM COMPUTER O NLY. THE ROUTINE IS ENTERED FROM
026095,003675: # R22LEM ONLY AND RETURNS DIRECTLY TO R22LEM FOLLOWING SUCCESSFUL INCORPORATION OF MEASURED DATA. IF THE
026096,003676: # COMPUTED STATE VECTOR DEVIATIONS EXCEED THE MAXIMUM PERMITTED. THE ROUTINE RETURNS TO R22LEM TO DISPLAY
026097,003677: # THE DEVIATIONS. IF THE ASTRONAUT ACCEPTS THE DATA R22LEM RETURNS TO LSR22.3 TO INCORPORATE THE
026098,003678: # DEVIATIONS INTO THE STATE VECTOR. IF THE ASTRONAUT REJECTS THE DEVIATIONS, NO MORE MEASUREMENTS ARE
026099,003679: # PROCESSED FOR THIS MARK,I.E.,R22LEM GETS THE NEXT MARK.
026100,003680:
026101,003681:
026102,003682: # SUBROUTINES CALLED
026103,003683: # WLINIT LGCUPDTE INTEGRV INCORP1 ARCTAN
026104,003684: # GETULC RARARANG INCORP2 NBSM INTSTALL
026105,003685:
026106,003686: # OUTPUT
026107,003687: # CORRECTED LM OR CSM STATE VECTOR (PERMANENT)
026108,003688: # NUMBER OF MARKS INCORPORATED IN MARKCTR
026109,003689: # MAGNITUDE OF POSITION DEVIATION (FOR DISPLAY) IN R22DISP METERS B-29
026110,003690: # MAGNITUDE OF VELOCITY DEVIATION (FOR DISPLAY) IN R22DISP +2 M/CSEC B-7
026111,003691: # UPDATED W-MATRIX
026112,003692:
026113,003693:
026114,003694: # ERASABLE INITIALIZATION REQUIRED
026115,003695: # LM AND CSM STATE VECTORS
026116,003696: # W-MATRIX
026117,003697: # MARK TIME IN MKTIME
026118,003698: # RADAR RANGE IN RM METERS B-29
026119,003699: # RANGE RATE IN RDOTM METERS/CSES B-7
026120,003700: # SHAFT ANGLE IN RRSHAFT REVS.B0
026121,003701: # TRUNNION ANGLE IN RRTRUN REVS. B0
026122,003702: # GIMBAL ANGLES INNER IN AIG
026123,003703: # MIDDLE IN AMG
026124,003704: # OUTER IN AOG
026125,003705: # REFSMMAT
026126,003706: # RENDWFLG
026127,003707: # NOANGFLG
026128,003708: # VEHUPFLG
026129,003709:
026130,003710: # DEBRIS
026131,003711: # PUSHLIST--ALL
026132,003712: # MX, MY, MZ (VECTORS)
|
|
Page 595 |
026134,003714: # ULC,RXZ,SINTHETA,LGRET,RDRET,BVECTOR,W.IND,X78T
026135,003715:
026136,003716:
026137,003717: 13,2207 BANK 13
026138,003718: 26,2000 SETLOC P20S3
026139,003719: 26,2000 BANK
026140,003720:
026141,003721: 26,2424 E7,1456 EBANK= LOSCOUNT
026142,003722: 26,2424 COUNT* $$/LSR22
026143,003723: 26,2424 77624 LSR22.3 CALL
026144,003724: 26,2425 51770 GRP2PC
026145,003725: 26,2426 43014 BON SET
026146,003726: 26,2427 04307 SURFFLAG # ARE WE ON LUNAR SURFACE
026147,003727: 26,2430 55206 LSR22.4 # YES
026148,003728: 26,2431 02466 DMENFLG
026149,003729: 26,2432 45014 BOFF CALL
026150,003730: 26,2433 00747 VEHUPFLG
026151,003731: 26,2434 54466 DOLEM
026152,003732: 26,2435 27447 INTSTALL
026153,003733: 26,2436 45014 CLEAR CALL # LM PRECISION INTEGRATION
026154,003734: 26,2437 01674 VINTFLAG
026155,003735: 26,2440 26702 SETIFLGS
026156,003736: 26,2441 77624 CALL
026157,003737: 26,2442 53642 INTGRCAL
026158,003738: 26,2443 77624 CALL
026159,003739: 26,2444 51770 GRP2PC
026160,003740: 26,2445 77624 CALL
026161,003741: 26,2446 27447 INTSTALL
026162,003742: 26,2447 43014 CLEAR BOFF
026163,003743: 26,2450 01676 DIM0FLAG
026164,003744: 26,2451 02756 RENDWFLG
026165,003745: 26,2452 54456 NOTWCSM
026166,003746: 26,2453 43014 SET SET # CSM WITH W-MATRIX INTEGRATION
026167,003747: 26,2454 01476 DIM0FLAG
026168,003748: 26,2455 01475 D6OR9FLG
026169,003749: 26,2456 43014 NOTWCSM SET CLEAR
026170,003750: 26,2457 01474 VINTFLAG
026171,003751: 26,2460 01673 INTYPFLG
026172,003752: 26,2461 45014 SET CALL
026173,003753: 26,2462 01472 STATEFLG
026174,003754: 26,2463 53642 INTGRCAL
026175,003755: 26,2464 77650 GOTO
026176,003756: 26,2465 54516 MARKTEST
026177,003757: 26,2466 77624 DOLEM CALL
026178,003758: 26,2467 27447 INTSTALL
026179,003759: 26,2470 45014 SET CALL
026180,003760: 26,2471 01474 VINTFLAG
026181,003761: 26,2472 26702 SETIFLGS
026182,003762: 26,2473 77624 CALL
026183,003763: 26,2474 53642 INTGRCAL
|
|
Page 596 |
026185,003765: 26,2475 77624 CALL
026186,003766: 26,2476 51770 GRP2PC
026187,003767: 26,2477 77624 CALL
026188,003768: 26,2500 27447 INTSTALL
026189,003769: 26,2501 43014 CLEAR BOFF
026190,003770: 26,2502 01676 DIM0FLAG
026191,003771: 26,2503 02756 RENDWFLG
026192,003772: 26,2504 54510 NOTWLEM
026193,003773: 26,2505 43014 SET SET # LM WITH W-MATRIX INTEGRATION
026194,003774: 26,2506 01476 DIM0FLAG
026195,003775: 26,2507 01475 D6OR9FLG
026196,003776: 26,2510 43014 NOTWLEM CLEAR CLEAR
026197,003777: 26,2511 01673 INTYPFLG
026198,003778: 26,2512 01674 VINTFLAG
026199,003779: 26,2513 45014 SET CALL
026200,003780: 26,2514 01472 STATEFLG
026201,003781: 26,2515 53642 INTGRCAL
026202,003782: 26,2516 45014 MARKTEST BON CALL # HAS W-MATRIX BEEN INVALIDATED
026203,003783: 26,2517 02716 RENDWFLG # HAS W-MATRIX BEEN INVALIDATED
026204,003784: 26,2520 54522 RANGEBQ
026205,003785: 26,2521 55250 WLINIT # YES-REINITIALIZE
026206,003786: 26,2522 77414 RANGEBQ BON EXIT # DON'T CALL R65 IF ON SURFACE
026207,003787: 26,2523 04307 SURFFLAG
026208,003788: 26,2524 54532 RANGEBQ1
026209,003789: 26,2525 34746 CA ZERO
026210,003790: 26,2526 55745 TS R65CNTR
026211,003791: 26,2527 04607 TC BANKCALL
026212,003792: 26,2530 46123 CADR R65LEM
026213,003793: 26,2531 06060 TC INTPRET
026214,003794: 26,2532 43174 RANGEBQ1 AXT,2 BON # CLEAR X2
026215,003795: 26,2533 00000 0
026216,003796: 26,2534 04304 LMOONFLG # IS MOON SPHERE OF INFLUENCE
026217,003797: 26,2535 54540 SETX2 # YES. STORE ZERO IN SCALSHFT REGISTER
026218,003798: 26,2536 77714 INCR,2
026219,003799: 26,2537 00002 2
026220,003800: 26,2540 45134 SETX2 SXA,2 CALL
026221,003801: 26,2541 03720 SCALSHFT # 0-MOON. 2-EARTH
026222,003802: 26,2542 51770 GRP2PC
026223,003803: 26,2543 66170 AXT,1 SXA,1 # STORE RANGE CODE (1) FOR R3 IN NOUN 49
026224,003804: 26,2544 00001 1
026225,003805: 26,2545 01353 WHCHREAD
026226,003806: 26,2546 54335 SLOAD SR # GET SINGLE PRECISION RVARMIN (B-12)
026227,003807: 26,2547 01773 RVARMIN # SHIFT TO TRIPLE PRECISION (B-40)
026228,003808: 26,2550 20635 28D
026229,003809: 26,2551 77634 RTB
026230,003810: 26,2552 21643 TPMODE # AND SAVE IN 20D
026231,003811: 26,2553 00025 STORE 20D
026232,003812: 26,2554 77624 CALL # BEGIN COMPUTING THE B-VECTORS,DELTAQ
026233,003813: 26,2555 55332 GETULC # B-VECTORS FOR RANGE
026234,003814: 26,2556 57414 BON VCOMP # B0, COMP. IF LM BEING CORRECTED
|
|
Page 597 |
026236,003816: 26,2557 00707 VEHUPFLG
026237,003817: 26,2560 54561 +1
026238,003818: 26,2561 27525 STOVL BVECTOR
026239,003819: 26,2562 06505 ZEROVECS
026240,003820: 26,2563 03533 STORE BVECTOR +6 # B1
026241,003821: 26,2564 17541 STODL BVECTOR +12D # B2
026242,003822: 26,2565 00045 36D
026243,003823: 26,2566 44257 SRR* BDSU
026244,003824: 26,2567 56174 2,2 # SHIFT FROM EARTH/MOON SPHERE TO B-29
026245,003825: 26,2570 03757 RM # RM - (MAGNITUDE RCSM-RLM)
026246,003826: 26,2571 77657 SLR*
026247,003827: 26,2572 56574 2,2 # SHIFT TO EARTH/MOON SPHERE
026248,003828: 26,2573 17547 STODL DELTAQ # EARTH B-29. MOON B-27
026249,003829: 26,2574 00045 36D # RLC B-29/B-27
026250,003830: 26,2575 63501 NORM DSQ # NORMALIZE AND SQUARE
026251,003831: 26,2576 00047 X1
026252,003832: 26,2577 53605 DMP SR*
026253,003833: 26,2600 01767 RANGEVAR # MULTIPLY BY RANGEVAR(B12) THEN
026254,003834: 26,2601 20577 0 -2,1 # UNNORMALIZE
026255,003835: 26,2602 53657 SR* SR*
026256,003836: 26,2603 20601 0,1
026257,003837: 26,2604 57176 0,2
026258,003838: 26,2605 47057 SR* RTB
026259,003839: 26,2606 57176 0,2
026260,003840: 26,2607 21643 TPMODE
026261,003841: 26,2610 02707 STORE VARIANCE # B-40
026262,003842: 26,2611 76276 DCOMP TAD
026263,003843: 26,2612 00025 20D # B-40
026264,003844: 26,2613 72240 BMN TLOAD
026265,003845: 26,2614 54617 QOK
026266,003846: 26,2615 00025 20D # B-40
026267,003847: 26,2616 02707 STORE VARIANCE
026268,003848: 26,2617 77624 QOK CALL
026269,003849: 26,2620 55400 LGCUPDTE
026270,003850:
026271,003851: 26,2621 45131 SSP CALL
026272,003852: 26,2622 01354 WHCHREAD
026273,003853: 26,2623 00002 DEC 2 B-14 # STORE R-RATE CODE (2) FOR R3 IN NOUN 49
026274,003854: 26,2624 51770 GRP2PC
026275,003855: 26,2625 77624 CALL # B-VECTOR,DELTAQ FOR RANGE RATE
026276,003856: 26,2626 55332 GETULC
026277,003857: 26,2627 53725 PDDL SR* # GET RLC SCALED B-29/B-27
026278,003858: 26,2630 00045 36D # AND SHIFT TO B-23
026279,003859: 26,2631 57202 0 -4,2
026280,003860: 26,2632 24045 STOVL 36D # THEN STORE BACK IN 36D
026281,003861: 26,2633 57414 BON VCOMP # B1, COMP. IF LM BEING CORRECTED
026282,003862: 26,2634 00707 VEHUPFLG
026283,003863: 26,2635 54636 +1
026284,003864: 26,2636 77761 VXSC
026285,003865: 26,2637 00045 36D # B1 = RLC (B-24/B-22)
|
|
Page 598 |
026287,003867: 26,2640 27533 STOVL BVECTOR +6
026288,003868: 26,2641 01653 NUVLEM
026289,003869: 26,2642 53257 VSR* VAD
026290,003870: 26,2643 57170 6,2 # SHIFT FOR EARTH/MOON SPHERE
026291,003871: 26,2644 01667 VCVLEM # EARTH B-7. MOON B-5
026292,003872: 26,2645 53715 PDVL VSR* # VL TO PD6
026293,003873: 26,2646 01601 NUVCSM
026294,003874: 26,2647 57170 6,2 # SHIFT FOR EARTH/MOON SPHERE
026295,003875: 26,2650 52255 VAD VSU
026296,003876: 26,2651 01615 VCVCSM
026297,003877: 26,2652 50315 PDVL DOT # VC - VL = VLC TO PD6
026298,003878: 26,2653 00001 0
026299,003879: 26,2654 00007 6
026300,003880: 26,2655 53606 PUSH SRR* # RDOT B-8/B-6 TO PD12
026301,003881: 26,2656 56174 2,2 # SHIFT FROM EARTH/MOON SPHERE TO B-8
026302,003882: 26,2657 57316 DSQ DMPR # RDOT**2 B-16 X RATEVAR B12
026303,003883: 26,2660 01771 RATEVAR
026304,003884: 26,2661 02707 STORE VARIANCE
026305,003885: 26,2662 54335 SLOAD SR
026306,003886: 26,2663 01774 VVARMIN # GET SINGLE PRECISION VVARMIN (B+12)
026307,003887: 26,2664 20621 16D # SHIFT TO DP (B -4)
026308,003888: 26,2665 00031 STORE 24D # AND SAVE IN 24D
026309,003889: 26,2666 50025 DSU BMN # IS MIN. VARIANCE > COMPUTED VARIANCE
026310,003890: 26,2667 02707 VARIANCE
026311,003891: 26,2670 54674 VOK # BRANCH - NO
026312,003892: 26,2671 77745 DLOAD # YES - USE MINIMUM VARIANCE
026313,003893: 26,2672 00031 24D
026314,003894: 26,2673 02707 STORE VARIANCE
026315,003895: 26,2674 60545 VOK DLOAD SR2 # RDOT(PD12) FROM B-8/B-6
026316,003896: 26,2675 53725 PDDL SLR* # TO B-10/B-8
026317,003897: 26,2676 03751 RDOTM # SHIFT TO EARTH/MOON SPHERE
026318,003898: 26,2677 56577 0 -1,2 # B-7 TO B-10/B-8
026319,003899: 26,2700 77625 DSU
026320,003900: 26,2701 77675 DMPR
026321,003901: 26,2702 00045 36D
026322,003902: 26,2703 27547 STOVL DELTAQ # B-33
026323,003903: 26,2704 00001 0 # NOW GET B0
026324,003904: 26,2705 47235 VXV VXV # (ULC X VLC) X ULC
026325,003905: 26,2706 57414 BON VCOMP # B0, COMP. IF LM BEING CORRECTED
026326,003906: 26,2707 00707 VEHUPFLG
026327,003907: 26,2710 54711 +1
026328,003908: 26,2711 77657 VSR*
026329,003909: 26,2712 57200 0 -2,2 # SCALED B-5
026330,003910: 26,2713 27525 STOVL BVECTOR
026331,003911: 26,2714 06505 ZEROVECS
026332,003912: 26,2715 00025 STORE 20D # ZERO OUT 20 TO 25 IN PUSHLIST
026333,003913: 26,2716 27541 STOVL BVECTOR +12D
026334,003914: 26,2717 03525 BVECTOR
026335,003915: 26,2720 60246 ABVAL NORM # LOAD B0, GET MAGNITUDE AND NORMALIZE
026336,003916: 26,2721 00025 20D # SHIFT COUNT IN 20D
|
|
Page 599 |
026338,003918: 26,2722 51575 VLOAD ABVAL
026339,003919: 26,2723 03533 BVECTOR +6D # LOAD B1, GET MAGNITUDE AND NORMALIZE
026340,003920: 26,2724 71301 NORM DLOAD
026341,003921: 26,2725 00027 22D # SHIFT COUNT IN 22D
026342,003922: 26,2726 00027 22D # FIND WHICH SHIFT IS SMALLER
026343,003923: 26,2727 50025 DSU BMN # BRANCH- B0 HAS SMALLER SHIFT COUNT
026344,003924: 26,2730 00025 20D
026345,003925: 26,2731 54735 VOK1
026346,003926: 26,2732 52150 LXA,1 GOTO
026347,003927: 26,2733 00026 22D # LOAD X2 WITH THE SMALLER SHIFT COUNT
026348,003928: 26,2734 54737 VOK2
026349,003929: 26,2735 77750 VOK1 LXA,1
026350,003930: 26,2736 00024 20D
026351,003931: 26,2737 53775 VOK2 VLOAD VSL* # THEN ADJUST B0,B1,DELTAQ AND VARIANCE
026352,003932: 26,2740 03525 BVECTOR # WITH THIS SHIFT COUNT
026353,003933: 26,2741 20201 0,1
026354,003934: 26,2742 27525 STOVL BVECTOR
026355,003935: 26,2743 03533 BVECTOR +6
026356,003936: 26,2744 77657 VSL*
026357,003937: 26,2745 20201 0,1
026358,003938: 26,2746 17533 STODL BVECTOR +6
026359,003939: 26,2747 03547 DELTAQ
026360,003940: 26,2750 77657 SL*
026361,003941: 26,2751 20201 0,1
026362,003942: 26,2752 03547 STORE DELTAQ
026363,003943: 26,2753 53745 DLOAD SL* # GET RLC AND ADJUST FOR SCALE SHIFT
026364,003944: 26,2754 00045 36D
026365,003945: 26,2755 20200 0 -1,1
026366,003946: 26,2756 41316 DSQ DMP # MULTIPLY RLC**2 BY VARIANCE
026367,003947: 26,2757 02707 VARIANCE
026368,003948: 26,2760 47012 SL4 RTB # SHIFT TO CONFORM TO BVECTORS AND DELTAQ
026369,003949: 26,2761 21643 TPMODE
026370,003950: 26,2762 36707 STCALL VARIANCE # AND STORE TP VARIANCE
026371,003951: 26,2763 55400 LGCUPDTE
026372,003952:
026373,003953: 26,2764 77624 CALL
026374,003954: 26,2765 51770 GRP2PC
026375,003955: 26,2766 77414 BON EXIT # ARE ANGLES TO BE DONE
026376,003956: 26,2767 04307 SURFFLAG
026377,003957: 26,2770 55204 RENDEND # NO
026378,003958: 26,2771 E7,1457 EBANK= AIG
026379,003959: 26,2771 33331 MXMYMZ CAF AIGBANK
026380,003960: 26,2772 54006 TS BBANK
026381,003961: 26,2773 31457 CA AIG # YES, COMPUTE MX, MY, MZ
026382,003962: 26,2774 54765 TS CDUSPOT
026383,003963: 26,2775 31460 CA AMG
026384,003964: 26,2776 54767 TS CDUSPOT +2
026385,003965: 26,2777 31461 CA AOG
026386,003966: 26,3000 54771 TS CDUSPOT +4 # GIMBL ANGLES NOW IN CDUSPOT FOR TRG*NBSM
026387,003967: 26,3001 06060 TC INTPRET
|
|
Page 600 |
026389,003969: 26,3002 45175 VLOAD CALL
026390,003970: 26,3003 06503 UNITX
026391,003971: 26,3004 47656 TRG*NBSM
026392,003972: 26,3005 76505 VXM VSL1
026393,003973: 26,3006 01732 REFSMMAT
026394,003974: 26,3007 27677 STOVL MX
026395,003975: 26,3010 06501 UNITY
026396,003976: 26,3011 77624 CALL
026397,003977: 26,3012 47665 *NBSM*
026398,003978: 26,3013 76505 VXM VSL1
026399,003979: 26,3014 01732 REFSMMAT
026400,003980: 26,3015 27705 STOVL MY
026401,003981: 26,3016 06477 UNITZ
026402,003982: 26,3017 77624 CALL
026403,003983: 26,3020 47665 *NBSM*
026404,003984: 26,3021 76505 VXM VSL1
026405,003985: 26,3022 01732 REFSMMAT
026406,003986: 26,3023 37713 SHAFTBQ STCALL MZ
026407,003987: 26,3024 55360 RADARANG
026408,003988: 26,3025 77331 SSP VLOAD # STORE SHAFT CODE (3) FOR R3 IN NOUN 49
026409,003989: 26,3026 01354 WHCHREAD
026410,003990: 26,3027 00003 DEC 3 B-14
026411,003991: 26,3030 03724 ULC
026412,003992: 26,3031 72441 DOT SL1
026413,003993: 26,3032 03677 MX
026414,003994: 26,3033 24023 STOVL SINTH # 18D
026415,003995: 26,3034 03724 ULC
026416,003996: 26,3035 72441 DOT SL1
026417,003997: 26,3036 03713 MZ
026418,003998: 26,3037 34021 STCALL COSTH # 16D
026419,003999: 26,3040 26545 ARCTAN
026420,004000: 26,3041 41221 BDSU DMP
026421,004001: 26,3042 03736 RRSHAFT
026422,004002: 26,3043 15440 2PI/8
026423,004003: 26,3044 41472 SL3R PUSH
026424,004004: 26,3045 52545 DLOAD SL3
026425,004005: 26,3046 01701 X789
026426,004006: 26,3047 44257 SRR* BDSU # SHIFT FROM -5/-3 TO B0
026427,004007: 26,3050 56176 0,2
026428,004008: 26,3051 53605 DMP SRR*
026429,004009: 26,3052 03722 RXZ
026430,004010: 26,3053 21601 0,1 # SHIFT TO EARTH/MOON SPHERE
026431,004011: 26,3054 27547 STOVL DELTAQ # EARTH B-29. MOON B-27
026432,004012: 26,3055 03724 ULC
026433,004013: 26,3056 76435 VXV VSL1
026434,004014: 26,3057 03705 MY
026435,004015: 26,3060 77656 UNIT
026436,004016: 26,3061 57414 BOFF VCOMP # B0, COMP. IF CSM BEING CORRECTED
026437,004017: 26,3062 00747 VEHUPFLG
026438,004018: 26,3063 55064 +1
|
|
Page 601 |
026440,004020: 26,3064 27525 STOVL BVECTOR
026441,004021: 26,3065 06505 ZEROVECS
026442,004022: 26,3066 03533 STORE BVECTOR +6
026443,004023: 26,3067 17541 STODL BVECTOR +12D
026444,004024: 26,3070 03722 RXZ
026445,004025: 26,3071 53657 SR* SRR* # SHIFT FROM EARTH/MOON SPHERE TO B-25
026446,004026: 26,3072 20577 0 -2,1
026447,004027: 26,3073 56176 0,2
026448,004028: 26,3074 03541 STORE BVECTOR +12D
026449,004029: 26,3075 77735 SLOAD
026450,004030: 26,3076 02011 SHAFTVAR
026451,004031: 26,3077 41215 DAD DMP
026452,004032: 26,3100 15435 IMUVAR # RAD**2 B12
026453,004033: 26,3101 03722 RXZ
026454,004034: 26,3102 41257 SRR* DMP
026455,004035: 26,3103 21601 0,1 # SHIFT TO EARTH/MOON SPHERE
026456,004036: 26,3104 03722 RXZ
026457,004037: 26,3105 53657 SR* SR*
026458,004038: 26,3106 20577 0 -2,1
026459,004039: 26,3107 57176 0,2
026460,004040: 26,3110 47057 SR* RTB
026461,004041: 26,3111 57176 0,2
026462,004042: 26,3112 21643 TPMODE # STORE VARIANCE TRIPLE PRECISION
026463,004043: 26,3113 36707 STCALL VARIANCE # B-40
026464,004044: 26,3114 55400 LGCUPDTE
026465,004045:
026466,004046: 26,3115 77624 CALL
026467,004047: 26,3116 51770 GRP2PC
026468,004048: 26,3117 77624 TRUNBQ CALL
026469,004049: 26,3120 55360 RADARANG
026470,004050: 26,3121 77331 SSP VLOAD # STORE TRUNNION CODE (4) FOR R3 IN N49
026471,004051: 26,3122 01354 WHCHREAD
026472,004052: 26,3123 00004 DEC 4 B-14
026473,004053: 26,3124 03724 ULC
026474,004054: 26,3125 76435 VXV VSL1
026475,004055: 26,3126 03705 MY
026476,004056: 26,3127 76435 VXV VSL1 # (ULC X MY) X ULC
026477,004057: 26,3130 03724 ULC
026478,004058: 26,3131 57414 BOFF VCOMP # B0, COMP. IF CSM BEING CORRECTED
026479,004059: 26,3132 00747 VEHUPFLG
026480,004060: 26,3133 55134 +1
026481,004061: 26,3134 27525 STOVL BVECTOR
026482,004062: 26,3135 06505 ZEROVECS
026483,004063: 26,3136 03533 STORE BVECTOR +6
026484,004064: 26,3137 17541 STODL BVECTOR +12D
026485,004065: 26,3140 03722 RXZ
026486,004066: 26,3141 53657 SR* SRR* # SHIFT FROM EARTH/MOON SPHERE TO B-25
026487,004067: 26,3142 20577 0 -2,1
026488,004068: 26,3143 56176 0,2
026489,004069: 26,3144 03543 STORE BVECTOR +14D
|
|
Page 602 |
026491,004071: 26,3145 77735 SLOAD
026492,004072: 26,3146 02012 TRUNVAR
026493,004073: 26,3147 41215 DAD DMP
026494,004074: 26,3150 15435 IMUVAR
026495,004075: 26,3151 03722 RXZ
026496,004076: 26,3152 41257 SRR* DMP
026497,004077: 26,3153 21601 0,1 # SHIFT TO EARTH/MOON SPHERE
026498,004078: 26,3154 03722 RXZ
026499,004079: 26,3155 53657 SR* SR*
026500,004080: 26,3156 20577 0 -2,1
026501,004081: 26,3157 57176 0,2
026502,004082: 26,3160 47057 SR* RTB
026503,004083: 26,3161 57176 0,2
026504,004084: 26,3162 21643 TPMODE # STORE VARIANCE TRIPLE PRECISION
026505,004085: 26,3163 16707 STODL VARIANCE
026506,004086: 26,3164 03732 SINTHETA
026507,004087: 26,3165 44336 ASIN BDSU # SIN THETA IN PD6
026508,004088: 26,3166 03734 RRTRUN
026509,004089: 26,3167 56405 DMP SL3R
026510,004090: 26,3170 15440 2PI/8
026511,004091: 26,3171 52525 PDDL SL3
026512,004092: 26,3172 01703 X789 +2
026513,004093: 26,3173 44257 SRR* BDSU # SHIFT FROM -5/-3 TO B0
026514,004094: 26,3174 56176 0,2
026515,004095: 26,3175 53605 DMP SRR*
026516,004096: 26,3176 03722 RXZ
026517,004097: 26,3177 21601 0,1
026518,004098: 26,3200 37547 STCALL DELTAQ # EARTH B-29. MOON B-27
026519,004099: 26,3201 55400 LGCUPDTE
026520,004100: 26,3202 77624 CALL
026521,004101: 26,3203 51770 GRP2PC
026522,004102: 26,3204 77650 RENDEND GOTO
026523,004103: 26,3205 50644 R22LEM93
026524,004104: # FUNCTIONAL DESCRIPTION
026525,004105:
026526,004106: # LSR22.4 IS THE ENTRY TO PERFORM LUNAR SURFACE NAVIGATION FOR THE LM
026527,004107: # COMPUTER ONLY. THIS ROUTINE COMPUTES THE B-VECTORS AND DELTA Q FOR RANGE
026528,004108: # AND RANGE RATE MEASURED BY THE RENDEZVOUS RADAR
026529,004109:
026530,004110: # SUBROUTINES CALLED
026531,004111: # INSTALL LGCUPDTE INCORP1 RP-TO-R
026532,004112: # INTEGRV GETULC INCORP2
026533,004113:
026534,004114: # OUTPUT
026535,004115: # CORRECTED CSM STATE VECTOR (PERMANENT)
026536,004116: # NUMBER OF MARKS INCORPORATED IN MARKCTR
026537,004117: # MAGNITUDE OF POSITION DEVIATION (FOR DISPLAY) IN R22DISP METERS B-29
026538,004118: # MAGNITUDE OF VELOCITY DEVIATION (FOR DISPLAY) IN R22DISP +2 M/CSEC B-7
026539,004119: # UPDATED W-MATRIX
026540,004120:
|
|
Page 603 |
026542,004122: # ERASABLE INITIALIZATION REQUIRED
026543,004123: # LM AND CSM STATE VECTORS
026544,004124: # W-MATRIX
026545,004125: # MARK TIME IN MKTIME
026546,004126: # RADAR RANGE IN RM METERS B-29
026547,004127: # RANGE RATE IN RDOTM METERS/CSEC B-7
026548,004128: # VEHUPFLG
026549,004129:
026550,004130:
026551,004131: 26,3206 77624 LSR22.4 CALL
026552,004132: 26,3207 27447 INTSTALL
026553,004133: 26,3210 43014 SET CLEAR
026554,004134: 26,3211 01472 STATEFLG
026555,004135: 26,3212 01674 VINTFLAG # CALL TO GET LM POS + VEL IN REF COORD.
026556,004136: 26,3213 77624 CALL
026557,004137: 26,3214 53642 INTGRCAL
026558,004138: 26,3215 77624 CALL
026559,004139: 26,3216 51770 GRP2PC
026560,004140: 26,3217 45014 CLEAR CALL
026561,004141: 26,3220 02666 DMENFLG # SET MATRIX SIZE TO 6X6 FOR INCORP
026562,004142: 26,3221 27447 INTSTALL
026563,004143: 26,3222 46145 DLOAD BHIZ # IS THIS FIRST TIME THROUGH
026564,004144: 26,3223 03463 MARKCTR
026565,004145: 26,3224 55237 INITWMX6 # YES. INITIALIZE 6X6 W-MATRIX
026566,004146: 26,3225 43014 CLEAR SET
026567,004147: 26,3226 01675 D6OR9FLG
026568,004148: 26,3227 01476 DIM0FLAG
026569,004149: 26,3230 43014 SET CLEAR
026570,004150: 26,3231 01474 VINTFLAG
026571,004151: 26,3232 01673 INTYPFLG
026572,004152: 26,3233 77624 CALL
026573,004153: 26,3234 53642 INTGRCAL
026574,004154: 26,3235 77650 GOTO
026575,004155: 26,3236 54522 RANGEBQ
026576,004156:
026577,004157: 26,3237 77624 INITWMX6 CALL
026578,004158: 26,3240 55250 WLINIT # INITIALIZE W-MATRIX
026579,004159: 26,3241 45014 SET CALL
026580,004160: 26,3242 01474 VINTFLAG
026581,004161: 26,3243 26702 SETIFLGS
026582,004162: 26,3244 77624 CALL
026583,004163: 26,3245 53642 INTGRCAL
026584,004164: 26,3246 77650 GOTO
026585,004165: 26,3247 54522 RANGEBQ
026586,004166:
026587,004167: # THIS ROUTINE CLEARS RFINAL (DP) AND CALLS INTEGRV
026588,004168:
026589,004169: 25,2000 SETLOC P20S1
026590,004170: 25,2000 BANK
|
|
Page 604 |
026592,004172: 25,3642 71220 INTGRCAL STQ DLOAD
026593,004173: 25,3643 03675 IGRET
026594,004174: 25,3644 03755 MKTIME
026595,004175: 25,3645 34041 STCALL TDEC1
026596,004176: 25,3646 27172 INTEGRV
026597,004177: 25,3647 77650 GOTO
026598,004178: 25,3650 03675 IGRET
026599,004179:
026600,004180: # THIS ROUTINE INITIALIZES THE W-MATRIX BY ZEROING ALL W THEN SETTING
026601,004181: # DIAGONAL ELEMENTS TO INITIAL STORED VALUES.
026602,004182:
026603,004183: 26,2000 SETLOC P20S3
026604,004184: 26,2000 BANK
026605,004185:
026606,004186: 26,3250 E5,1400 EBANK= W
026607,004187: 26,3250 77776 WLINIT EXIT
026608,004188: 26,3251 33330 CAF WBANK
026609,004189: 26,3252 54006 TS BBANK
026610,004190: 26,3253 33436 CAF WSIZE
026611,004191: 26,3254 55256 TS W.IND
026612,004192: 26,3255 34746 CAF ZERO
026613,004193: 26,3256 51256 INDEX W.IND
026614,004194: 26,3257 55400 TS W
026615,004195: 26,3260 11256 CCS W.IND
026616,004196: 26,3261 03254 TC -5
026617,004197: 26,3262 33331 CAF AIGBANK # RESTORE EBANK 7
026618,004198: 26,3263 54006 TS BBANK
026619,004199: 26,3264 06060 TC INTPRET
026620,004200: 26,3265 67214 BON SLOAD # IF ON LUNAR SURFACE,INITIALIZE WITH
026621,004201: 26,3266 04307 SURFFLAG # WSURFPOS AND WSURFVEL INSTEAD OF
026622,004202: 26,3267 55273 WLSRFPOS # WRENDPOS AND WRENDVEL
026623,004203: 26,3270 02001 WRENDPOS
026624,004204: 26,3271 77650 GOTO
026625,004205: 26,3272 55275 WPOSTORE
026626,004206: 26,3273 77735 WLSRFPOS SLOAD
026627,004207: 26,3274 02007 WSURFPOS
026628,004208: 26,3275 77661 WPOSTORE SR # SHIFT TO B-19 SCALE
026629,004209: 26,3276 20606 5
026630,004210: 26,3277 02401 STORE W
026631,004211: 26,3300 02411 STORE W +8D
026632,004212: 26,3301 02421 STORE W +16D
026633,004213: 26,3302 67214 BON SLOAD
026634,004214: 26,3303 04307 SURFFLAG
026635,004215: 26,3304 55310 WLSRFVEL
026636,004216: 26,3305 02002 WRENDVEL
026637,004217: 26,3306 77650 GOTO
026638,004218: 26,3307 55312 WVELSTOR
026639,004219: 26,3310 77735 WLSRFVEL SLOAD
026640,004220: 26,3311 02010 WSURFVEL
026641,004221: 26,3312 02511 WVELSTOR STORE W +72D
|
|
Page 605 |
026643,004223: 26,3313 02521 STORE W +80D
026644,004224: 26,3314 02531 STORE W +88D
026645,004225: 26,3315 77735 SLOAD
026646,004226: 26,3316 02003 WSHAFT
026647,004227: 26,3317 02621 STORE W +144D
026648,004228: 26,3320 77735 SLOAD
026649,004229: 26,3321 02004 WTRUN
026650,004230: 26,3322 02631 STORE W +152D
026651,004231: 26,3323 66214 SET SSP # SET RENDWFLG - W-MATRIX VALID
026652,004232: 26,3324 02476 RENDWFLG
026653,004233: 26,3325 03463 MARKCTR # SET MARK COUNTER EQUAL ZERO
026654,004234: 26,3326 00000 0
026655,004235: 26,3327 77616 RVQ
026656,004236:
026657,004237: 26,3330 E5,1400 EBANK= W
026658,004238: 26,3330 54065 WBANK BBCON WLINIT
026659,004239: 26,3331 E7,1457 EBANK= AIG
026660,004240: 26,3331 54067 AIGBANK BBCON LSR22.3
026661,004241:
026662,004242: # GETULC
026663,004243:
026664,004244: # THIS SUBROUTINE COMPUTES THE RELATIVE POSITION VECTOR BETWEEN THE CSM
026665,004245: # AND THE LM, LEAVING THE UNIT VECTOR IN THE PUSHLIST AND MPAC AND THE
026666,004246: # MAGNITUDE IN 36D.
026667,004247:
026668,004248: 26,3332 77201 GETULC SETPD VLOAD
026669,004249: 26,3333 00001 0
026670,004250: 26,3334 01645 DELTALEM
026671,004251: 26,3335 77754 LXA,2
026672,004252: 26,3336 03720 SCALSHFT # LOAD X2 WITH SCALE SHIFT
026673,004253: 26,3337 53257 VSR* VAD
026674,004254: 26,3340 57165 9D,2 # SHIFT FOR EARTH/MOON SPHERE
026675,004255: 26,3341 01661 RCVLEM
026676,004256: 26,3342 53715 PDVL VSR*
026677,004257: 26,3343 01573 DELTACSM
026678,004258: 26,3344 57165 9D,2 # SHIFT FOR EARTH/MOON SPHERE
026679,004259: 26,3345 52255 VAD VSU
026680,004260: 26,3346 01607 RCVCSM
026681,004261: 26,3347 41434 RTB PUSH # USE NORMUNIT TO PRESERVE ACCURACY
026682,004262: 26,3350 21722 NORMUNX1
026683,004263: 26,3351 17724 STODL ULC
026684,004264: 26,3352 00045 36D
026685,004265: 26,3353 77657 SL* # ADJUST MAGNITUDE FROM NORMUNIT
026686,004266: 26,3354 20201 0,1
026687,004267: 26,3355 24045 STOVL 36D # ULC IN PD0 AND MPAC,RLC IN 36D
026688,004268: 26,3356 03724 ULC
026689,004269: 26,3357 77616 RVQ
026690,004270:
026691,004271: # RADARANG
026692,004272:
026693,004273: # THIS SUBROUTINE COMPUTES SINTHETA = -ULC DOT MY
|
|
Page 606 |
026695,004275: # RXZ = (SQRT (1-SINTHETA**2))RLC
026696,004276: # OUTPUT
026697,004277: # ULC IN ULC, PD0
026698,004278: # RLC IN PD36D
026699,004279: # SIN THETA IN SINTHETA AND PD6
026700,004280: # RXZ NORM IN RXZ (N IN X1)
026701,004281: 26,3360 45020 RADARANG STQ CALL
026702,004282: 26,3361 03675 RDRET
026703,004283: 26,3362 55332 GETULC
026704,004284: 26,3363 50276 VCOMP DOT
026705,004285: 26,3364 03705 MY
026706,004286: 26,3365 41572 SL1R PUSH # SIN THETA TO PD6
026707,004287: 26,3366 03732 STORE SINTHETA
026708,004288: 26,3367 44316 DSQ BDSU
026709,004289: 26,3370 06475 DP1/4TH # 1 - (SIN THETA)**2
026710,004290: 26,3371 41366 SQRT DMP
026711,004291: 26,3372 00045 36D
026712,004292: 26,3373 60352 SL1 NORM
026713,004293: 26,3374 00047 X1 # SET SHIFT COUNTER IN X1
026714,004294: 26,3375 03722 STORE RXZ
026715,004295: 26,3376 77650 GOTO # EXIT
026716,004296: 26,3377 03675 RDRET
026717,004297: 26,3400 45020 LGCUPDTE STQ CALL
026718,004298: 26,3401 03675 LGRET
026719,004299: 26,3402 46514 INCORP1
026720,004300: 26,3403 51575 VLOAD ABVAL
026721,004301: 26,3404 02673 DELTAX +6
026722,004302: 26,3405 53754 LXA,2 SRR*
026723,004303: 26,3406 03720 SCALSHFT # 0-MOON. 2-EARTH
026724,004304: 26,3407 56174 2,2 # SET VEL DISPLAY TO B-7
026725,004305: 26,3410 24317 STOVL R22DISP +2
026726,004306: 26,3411 02665 DELTAX
026727,004307: 26,3412 53646 ABVAL SRR*
026728,004308: 26,3413 56174 2,2 # SET POS DISPLAY TO B-29
026729,004309: 26,3414 00315 STORE R22DISP
026730,004310: 26,3415 54335 SLOAD SR
026731,004311: 26,3416 02005 RMAX
026732,004312: 26,3417 20613 10D
026733,004313: 26,3420 50025 DSU BMN
026734,004314: 26,3421 00315 R22DISP
026735,004315: 26,3422 50650 R22LEM96 # GO DISPLAY
026736,004316: 26,3423 45335 SLOAD DSU
026737,004317: 26,3424 02006 VMAX
026738,004318: 26,3425 00317 R22DISP +2 # VMAX MINUS VEL. DEVIATION
026739,004319: 26,3426 77640 BMN
026740,004320: 26,3427 50650 R22LEM96 # GO DISPLAY
026741,004321: 26,3430 77624 ASTOK CALL
026742,004322: 26,3431 46726 INCORP2
026743,004323: 26,3432 77650 GOTO
026744,004324: 26,3433 03675 LGRET
026745,004325:
|
|
Page 607 |
026747,004327: 26,3434 00103 03370 IMUVAR 2DEC E-6 B12 # RAD**2
026748,004328:
026749,004329: 26,3436 00241 WSIZE DEC 161 B-14
026750,004330: 26,3437 31103 36652 2PI/8 2DEC 3.141592653 B-2
026751,004331:
026752,004332: 26,3441 E7,1456 EBANK= LOSCOUNT
026753,004333:
|
|
Page 608 |
026755,004335: # PROGRAM NAME LRS24.1 RR SEARCH ROUTINE
026756,004336: # MOD NO 0 BY P VOLANTE SDC DATE 1-15-67
026757,004337:
026758,004338:
026759,004339: # FUNCTIONAL DESCRIPTION
026760,004340:
026761,004341: # DRIVES THE RENDEZVOUS RADAR IN A HEXAGONAL SEARCH PATTERN ABOUT THE LOS TO THE CSM (COMPUTED FROM THE CSM AND LM
026762,004342: # STATE VECTORS) CHECKING FOR THE DATA GOOD DISCRETE AND MONITORING THE ANGLE BETWEEN THE RADAR BORESIGHT AND THE
026763,004343: # LM +Z AXIS. IF THIS ANGLE EXCEEDS 30 DEGREES THE PREFERRED TRACKING ATTITUDE ROUTINE IS CALLED TO PERFORM AN
026764,004344: # ATTITUDE MANEUVER.
026765,004345:
026766,004346:
026767,004347: # CALLING SEQUENCE - BANKCALL FOR LRS24.1
026768,004348:
026769,004349:
026770,004350: # SUBROUTINES CALLED
026771,004351:
026772,004352: # LEMCONIC R61LEM
026773,004353: # CSMCONIC RRDESSM
026774,004354: # JOBDELAY FLAGDOWN
026775,004355: # WAITLIST FLAGUP
026776,004356: # RRNB BANKCALL
026777,004357:
026778,004358:
026779,004359: # EXIT - TO ENDOFJOB WHEN THE SEARCH FLAG (SRCHOPT) IS NOT SET
026780,004360:
026781,004361:
026782,004362: # OUTPUT
026783,004363:
026784,004364: # DATAGOOD (SP)-FOR DISPLAY IN R1- 00000 INDICATES NO LOCKON
026785,004365: # 11111 INDICATES LOCKON ACHIEVED
026786,004366: # OMEGAD (SP)-FOR DISPLAY IN R2- ANGLE BETWEEN RR BORESIGHT VECTOR AND THE SPACECRAFT +Z AXIS
026787,004367:
026788,004368: # ERASABLE INITIALIZATION REQUIRED
026789,004369: # SEARCH FLAG MUST BE SET
026790,004370: # LM AND CSM STATE VECTORS AND REFSMMAT MATRIX
026791,004371: # DEBRIS
026792,004372:
026793,004373: # RLMSRCH UXVECT
026794,004374: # VXRLM UYVECT
026795,004375: # LOSDESRD NSRCHPNT
026796,004376: # DATAGOOD OMEGAD
026797,004377: # MPAC PUSHLIST
026798,004378:
026799,004379:
026800,004380: 26,3441 COUNT* $$/LRS24
026801,004381: 26,3441 34746 LRS24.1 CAF ZERO
026802,004382: 26,3442 55736 TS NSRCHPNT # SET SEARCH PATTERN POINT COUNTER TO ZERO
026803,004383: 26,3443 34727 CHKSRCH CAF BIT14 # ISSUE AUTO TRACK ENABLE TO RADAR
026804,004384: 26,3444 00006 EXTEND
|
|
Page 609 |
026806,004386: 26,3445 05012 WOR CHAN12
026807,004387: 26,3446 34727 CAF SRCHOBIT # CHECK IF SEARCH STILL REQUESTED
026808,004388: 26,3447 70076 MASK FLAGWRD2 # (SRCHOPT FLAG SET)
026809,004389: 26,3450 00006 EXTEND
026810,004390: 26,3451 15146 BZF ENDOFJOB # NO-TERMINATE JOB
026811,004391:
026812,004392:
026813,004393: 26,3452 33713 CAF 6SECONDS # SCHEDULE TASK TO DRIVE RADAR TO NEXT PT.
026814,004394: 26,3453 00004 INHINT
026815,004395: 26,3454 05205 TC WAITLIST # IN 6 SECONDS
026816,004396: 26,3455 E7,1456 EBANK= LOSCOUNT
026817,004397: 26,3455 03642 54067 2CADR CALLDGCH
026818,004398:
026819,004399: 26,3457 00003 RELINT
026820,004400: 26,3460 40110 CS RADMODES # IS REMODE IN PROGRESS
026821,004401: 26,3461 74727 MASK REMODBIT
026822,004402: 26,3462 00006 EXTEND
026823,004403: 26,3463 15146 BZF ENDOFJOB # YES- WAIT SIX SECONDS
026824,004404: 26,3464 06060 TC INTPRET
026825,004405:
026826,004406: 26,3465 43234 RTB DAD # COMPUTE LOS AT PRESENT TIME + 1.5 SEC.
026827,004407: 26,3466 21603 LOADTIME
026828,004408: 26,3467 15715 1.5SECS
026829,004409: 26,3470 34041 LRS24.11 STCALL TDEC1
026830,004410: 26,3471 27136 LEMCONIC # EXTRAPOLATE LM STATE VECTOR
026831,004411: 26,3472 77775 VLOAD
026832,004412: 26,3473 00001 RATT
026833,004413: 26,3474 27676 STOVL RLMSRCH # SAVE LEM POSITION
026834,004414: 26,3475 00007 VATT
026835,004415: 26,3476 17740 STODL SAVLEMV # SAVE LEM VELOCITY
026836,004416: 26,3477 00015 TAT
026837,004417: 26,3500 34041 STCALL TDEC1 # EXTRAPOLATE CSM STATE VECTOR
026838,004418: 26,3501 27124 CSMCONIC # EXTRAPOLATE CSM STATE VECTOR
026839,004419: 26,3502 52375 VLOAD VSU # LOS VECTOR = R(CSM)-R(LM)
026840,004420: 26,3503 00001 RATT
026841,004421: 26,3504 03676 RLMSRCH
026842,004422: 26,3505 77656 UNIT
026843,004423: 26,3506 27712 STOVL LOSDESRD # STORE DESIRED LOS
026844,004424: 26,3507 00007 VATT # COMPUTE UNIT(V(CM) CROSS R(CM))
026845,004425: 26,3510 47256 UNIT VXV
026846,004426: 26,3511 00001 RATT
026847,004427: 26,3512 77656 UNIT
026848,004428: 26,3513 03704 STORE VXRCM
026849,004429: 26,3514 52375 VLOAD VSU
026850,004430: 26,3515 00007 VATT
026851,004431: 26,3516 03740 SAVLEMV
026852,004432: 26,3517 76521 MXV VSL1 # CONVERT FROM REFERENCE TO STABLE MEMBER
026853,004433: 26,3520 01732 REFSMMAT
026854,004434: 26,3521 03740 STORE SAVLEMV # VLC = V(CSM) - V(LM)
026855,004435: 26,3522 53135 SLOAD BZE # CHECK IF N=0
|
|
Page 610 |
026857,004437: 26,3523 03737 NSRCHPNT
026858,004438: 26,3524 55635 DESGLOS # YES-DESIGNATE ALONG LOS
026859,004439: 26,3525 53025 DSU BZE # IS N=1
026860,004440: 26,3526 15711 ONEOCT # YES-CALCULATE X AND Y AXES OF
026861,004441: 26,3527 55622 CALCXY # SEARCH PATTERN COORDINATE SYSTEM
026862,004442: 26,3530 77775 VLOAD # NO-ROTATE X-Y AXES TO NEXT SEARCH POINT
026863,004443: 26,3531 03720 UXVECT
026864,004444: 26,3532 24015 STOVL UXVECTPR # SAVE ORIGINAL X AND Y VECTORS
026865,004445: 26,3533 03726 UYVECT # UXPRIME = ORIGINAL UX
026866,004446: 26,3534 00023 STORE UYVECTPR # UYPRIME = ORIGINAL UY
026867,004447: 26,3535 77761 VXSC
026868,004448: 26,3536 15705 SIN60DEG # UX =(COS 60)UXPR +(SIN 60)UYPR
026869,004449: 26,3537 27720 STOVL UXVECT
026870,004450: 26,3540 00015 UXVECTPR
026871,004451: 26,3541 53361 VXSC VAD
026872,004452: 26,3542 06503 COS60DEG
026873,004453: 26,3543 03720 UXVECT
026874,004454: 26,3544 77656 UNIT
026875,004455: 26,3545 27720 STOVL UXVECT
026876,004456: 26,3546 00015 UXVECTPR # UY=(-SIN60)UXPR +(COS 60)UYPR
026877,004457: 26,3547 77761 VXSC
026878,004458: 26,3550 15705 SIN60DEG
026879,004459: 26,3551 27726 STOVL UYVECT
026880,004460: 26,3552 00023 UYVECTPR
026881,004461: 26,3553 52361 VXSC VSU
026882,004462: 26,3554 06503 COS60DEG
026883,004463: 26,3555 03726 UYVECT
026884,004464: 26,3556 77656 UNIT
026885,004465: 26,3557 03726 STORE UYVECT
026886,004466: 26,3560 53361 OFFCALC VXSC VAD # OFFSET VECTOR = K(UY)
026887,004467: 26,3561 15707 OFFSTFAC # LOS VECTOR + OFFSET VECTOR DEFINES
026888,004468: 26,3562 03712 LOSDESRD # DESIRED POINT IN SEARCH PATTERN
026889,004469: 26,3563 64256 UNIT MXV
026890,004470: 26,3564 01732 REFSMMAT # CONVERT TO STABLE MEMBER COORDINATES
026891,004471: 26,3565 77772 VSL1
026892,004472: 26,3566 25101 CONTDESG STOVL RRTARGET
026893,004473: 26,3567 03740 SAVLEMV
026894,004474: 26,3570 01757 STORE LOSVEL
026895,004475: 26,3571 77776 EXIT
026896,004476: 26,3572 00004 INHINT
026897,004477: 26,3573 06050 TC KILLTASK # KILL ANY PRESENTLY WAITLISTED TASK
026898,004478: 26,3574 52573 CADR DESLOOP +2 # WHICH WOULD DESIGNATE TO THE LAST
026899,004479: # POINT IN THE PATTERN
026900,004480: 26,3575 44726 CONTDES2 CS CDESBIT
026901,004481: 26,3576 70110 MASK RADMODES # SET BIT 15 OF RADMODES TO INDICATE
026902,004482: 26,3577 64726 AD CDESBIT # A CONTINUOUS DESIGNATE WANTED.
026903,004483: 26,3600 54110 TS RADMODES
026904,004484: 26,3601 06060 TC INTPRET
026905,004485:
026906,004486: 26,3602 77624 CALL
|
|
Page 611 |
026908,004488: 26,3603 52364 RRDESSM # DESIGNATE RADAR TO RRTARGET VECTOR
026909,004489:
026910,004490: 26,3604 77776 EXIT
026911,004491: 26,3605 03674 TC LIMALARM # LOS NOT IN MODE 2 COVERAGE (P22)
026912,004492: 26,3606 03674 TC LIMALARM # VEHICLE MANEUVER REQUIRED (P20)
026913,004493:
026914,004494: # COMPUTE OMEGA,ANGLE BETWEEN RR LOS AND
026915,004495: # SPACECRAFT +Z AXIS
026916,004496: 26,3607 00006 OMEGCALC EXTEND
026917,004497: 26,3610 30036 DCA CDUT
026918,004498: 26,3611 53753 DXCH TANGNB
026919,004499: 26,3612 06060 TC INTPRET
026920,004500: 26,3613 77624 CALL
026921,004501: 26,3614 46041 RRNB
026922,004502: 26,3615 65545 DLOAD ACOS # OMEGA IS ARCCOSINE OF Z-COMPONENT OF
026923,004503: 26,3616 00045 36D # VECTOR COMPUTED BY RRNB (LEFT AT 32D)
026924,004504: 26,3617 03735 STORE OMEGDISP # STORE FOR DISPLAY IN R2
026925,004505: 26,3620 77776 EXIT
026926,004506: 26,3621 05146 TC ENDOFJOB
026927,004507:
|
|
Page 612 |
026929,004509: # CALCULATE X AND Y VECTORS FOR SEARCH PATTERN COORDINATE SYSTEM
026930,004510:
026931,004511: 26,3622 47375 CALCXY VLOAD VXV
026932,004512: 26,3623 03704 VXRCM
026933,004513: 26,3624 03712 LOSDESRD
026934,004514: 26,3625 77656 UNIT
026935,004515: 26,3626 27720 STOVL UXVECT # UX = (VLM X RLM)X LOS
026936,004516: 26,3627 03712 LOSDESRD
026937,004517: 26,3630 53435 VXV UNIT
026938,004518: 26,3631 03720 UXVECT
026939,004519: 26,3632 03726 STORE UYVECT # UY = LOS X UX
026940,004520: 26,3633 77650 GOTO
026941,004521: 26,3634 55560 OFFCALC
026942,004522:
026943,004523:
026944,004524: 26,3635 64375 DESGLOS VLOAD MXV # WHEN N= 0,DESIGNATE ALONG LOS
026945,004525: 26,3636 03712 LOSDESRD
026946,004526: 26,3637 01732 REFSMMAT # CONVERT LOS FROM REFERENCE TO SM COORDS
026947,004527: 26,3640 52172 VSL1 GOTO
026948,004528: 26,3641 55566 CONTDESG
026949,004529:
026950,004530:
026951,004531: 26,3642 30074 CALLDGCH CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET
026952,004532: 26,3643 74736 MASK RNDVZBIT
026953,004533: 26,3644 00006 EXTEND
026954,004534: 26,3645 15263 BZF TASKOVER # NO-EXIT R24
026955,004535: 26,3646 37734 CAF PRIO25 # YES -SCHEDULE JOB TO DRIVE RADAR TO NEXT
026956,004536: 26,3647 05076 TC FINDVAC # POINT IN SEARCH PATTERN
026957,004537: 26,3650 E7,1675 EBANK= RLMSRCH
026958,004538: 26,3650 03653 54067 2CADR DATGDCHK
026959,004539:
026960,004540: 26,3652 05263 TC TASKOVER
026961,004541:
026962,004542:
026963,004543: 26,3653 34741 DATGDCHK CAF BIT4
026964,004544: 26,3654 00006 EXTEND # CHECK IF DATA GOOD DISCRETE PRESENT
026965,004545: 26,3655 02033 RAND CHAN33
026966,004546: 26,3656 00006 EXTEND
026967,004547: 26,3657 13666 BZF STORE1S # YES- GO TO STORE 11111 FOR DISPLAY IN R1
026968,004548: 26,3660 46263 CS SIX
026969,004549: 26,3661 61736 AD NSRCHPNT # IS N GREATER THAN 6
026970,004550: 26,3662 00006 EXTEND
026971,004551: 26,3663 13441 BZF LRS24.1 # YES - RESET N = 0 AND START AROUND AGAIN
026972,004552: 26,3664 25736 INCR NSRCHPNT # NO-SET N = N+1 AN GO TO
026973,004553: 26,3665 13443 TCF CHKSRCH # NEXT POINT IN PATTERN
026974,004554:
026975,004555:
026976,004556: 26,3666 33703 STORE1S CAF ALL1S # STORE 11111 FOR DISPLAY IN R1
026977,004557: 26,3667 55733 TS DATAGOOD
|
|
Page 613 |
026979,004559: 26,3670 00004 INHINT
026980,004560: 26,3671 06050 TC KILLTASK # DELETE DESIGNATE TASK FROM
026981,004561: 26,3672 52573 CADR DESLOOP +2 # WAITLIST USING KILLTASK
026982,004562: 26,3673 05146 TC ENDOFJOB
026983,004563:
026984,004564: 26,3674 05571 LIMALARM TC ALARM # ISSUE ALARM 527-LOS NOT IN MODE2
026985,004565: 26,3675 00527 OCT 527 # COVERAGE IN P22 OR VEHICLE MANEUVER
026986,004566: 26,3676 00004 INHINT # REQUIRED IN P20
026987,004567: 26,3677 06050 TC KILLTASK # KILL WAITLIST CALL FOR NEXT
026988,004568: 26,3700 55642 CADR CALLDGCH # POINT IN SEARCH PATTERN
026989,004569: 26,3701 06032 TC CLRADMD1 # CLEAR BITS 10 & 15 IN RADMODES
026990,004570: 26,3702 05146 TC ENDOFJOB
026991,004571:
026992,004572:
026993,004573: 26,3703 25547 ALL1S DEC 11111 B-14
026994,004574: 26,3704 33555 01106 SIN60DEG 2DEC .86603
026995,004575:
026996,004576: 26,3706 23,2502 COS60DEG = DPHALF # (2DEC .50)
026997,004577: 26,3706 UXVECTPR EQUALS 12D # PREVIOUS
026998,004578: 26,3706 UYVECTPR EQUALS 18D
026999,004579: 26,3706 RLMUNIT EQUALS 12D
027000,004580: 26,3706 01642 11045 OFFSTFAC 2DEC 0.05678 # TANGENT OF 3.25 DEGREES
027001,004581:
027002,004582: 26,3710 00001 ONEOCT OCT 00001 # **** NOTE-THESE TWO CONSTANTS MUST ****
027003,004583: 26,3711 00000 00454 3SECONDS 2DEC 300 B-28 # **** BE IN THIS ORDER BECAUSE ****
027004,004584:
027005,004585: # **** ONEOCT NEEDS A LOWER ORDER ****
027006,004586: # **** WORD OF ZEROES ****
027007,004587: 26,3713 01130 6SECONDS DEC 600 B-14
027008,004588: 26,3714 00000 00226 1.5SECS 2DEC 150 B-28
027009,004589:
027010,004590: 26,3716 23,2504 ZERO/SP EQUALS HI6ZEROS
027011,004591: 4607 BLOCK 02
027012,004592: 6000 SETLOC FFTAG5
027013,004593: 6000 BANK
027014,004594: 6043 COUNT* $$/P20
027015,004595: 6043 00006 GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF
027016,004596: 6044 36047 DCA VB56CADR # GOTOPOOH
027017,004597: 6045 15167 TCF SUPDXCHZ
027018,004598: 6046 E7,1471 EBANK= WHOCARES
027019,004599: 6046 03020 66107 VB56CADR 2CADR TRMTRACK
027020,004600:
|
|
Page 614 |
027022,004602: # W-MATRIX MONITOR
027023,004603:
027024,004604: 31,2007 BANK 31
027025,004605: 31,2000 SETLOC VB67
027026,004606: 31,2000 BANK
027027,004607: 31,2007 COUNT* $$/EXTVB
027028,004608:
027029,004609: 31,2007 E4,1571 EBANK= WWPOS
027030,004610:
027031,004611: 31,2007 06060 V67CALL TC INTPRET
027032,004612: 31,2010 77624 CALL
027033,004613: 31,2011 62120 V67WW
027034,004614: 31,2012 77776 EXIT
027035,004615: 31,2013 00006 EXTEND # SAVE THE PRESENT N99 VALUES FOR
027036,004616: 31,2014 31572 DCA WWPOS # COMPARISON AFTER THE DISPLAY
027037,004617: 31,2015 53600 DXCH WWBIAS +2
027038,004618: 31,2016 00006 EXTEND
027039,004619: 31,2017 31574 DCA WWVEL
027040,004620: 31,2020 53602 DXCH WWBIAS +4
027041,004621: 31,2021 00006 EXTEND
027042,004622: 31,2022 31576 DCA WWBIAS
027043,004623: 31,2023 53604 DXCH WWBIAS +6
027044,004624: 31,2024 32143 V06N99DS CAF V06N99
027045,004625: 31,2025 04607 TC BANKCALL
027046,004626: 31,2026 20323 CADR GOXDSPF
027047,004627: 31,2027 15474 TCF ENDEXT
027048,004628: 31,2030 12032 TCF V6N99PRO
027049,004629: 31,2031 12024 TCF V06N99DS
027050,004630: 31,2032 22007 V6N99PRO ZL
027051,004631: 31,2033 34747 CA FIVE
027052,004632: 31,2034 54002 N99LOOP TS Q
027053,004633: 31,2035 50002 INDEX Q
027054,004634: 31,2036 41571 CS WWPOS
027055,004635: 31,2037 50002 INDEX Q
027056,004636: 31,2040 61577 AD WWPOS +6
027057,004637: 31,2041 26001 ADS L
027058,004638: 31,2042 10002 CCS Q # THE SUM OF ALL DIFFERENCES MUST BE ZERO.
027059,004639: 31,2043 12034 TCF N99LOOP
027060,004640: 31,2044 22000 LXCH A
027061,004641: 31,2045 00006 EXTEND
027062,004642: 31,2046 12051 BZF V06N9933
027063,004643: 31,2047 05506 TC UPFLAG
027064,004644: 31,2050 00160 ADRES V67FLAG
027065,004645:
027066,004646: 31,2051 06060 V06N9933 TC INTPRET
027067,004647: 31,2052 77414 BON EXIT
027068,004648: 31,2053 03707 V67FLAG
027069,004649: 31,2054 62056 +2
027070,004650: 31,2055 15474 TCF ENDEXT
027071,004651: 31,2056 77745 DLOAD
|
|
Page 615 |
027073,004653: 31,2057 02172 WWPOS
027074,004654: 31,2060 72412 SL4 SL1
027075,004655: 31,2061 14001 STODL 0D
027076,004656: 31,2062 02174 WWVEL
027077,004657: 31,2063 14003 STODL 2D
027078,004658: 31,2064 02176 WWBIAS
027079,004659: 31,2065 77661 SL # SHIFT FROM NOUN SCALING (B-5) TO
027080,004660: 31,2066 20213 10D # INTERNAL SCALING (B+5)
027081,004661: 31,2067 00005 STORE 4D
027082,004662: 31,2070 72014 BON LXA,1
027083,004663: 31,2071 04307 SURFFLAG
027084,004664: 31,2072 62102 V67SURF
027085,004665: 31,2073 00000 0D
027086,004666: 31,2074 72130 SXA,1 LXA,1
027087,004667: 31,2075 02000 WRENDPOS
027088,004668: 31,2076 00002 2D
027089,004669: 31,2077 52130 SXA,1 GOTO
027090,004670: 31,2100 02001 WRENDVEL
027091,004671: 31,2101 62110 V67CLRF
027092,004672: 31,2102 66150 V67SURF LXA,1 SXA,1
027093,004673: 31,2103 00000 0D
027094,004674: 31,2104 02006 WSURFPOS
027095,004675: 31,2105 66150 LXA,1 SXA,1
027096,004676: 31,2106 00002 2D
027097,004677: 31,2107 02007 WSURFVEL
027098,004678: 31,2110 66150 V67CLRF LXA,1 SXA,1
027099,004679: 31,2111 00004 4D
027100,004680: 31,2112 02003 WTRUN
027101,004681: 31,2113 77730 SXA,1
027102,004682: 31,2114 02002 WSHAFT
027103,004683: 31,2115 77414 CLEAR EXIT
027104,004684: 31,2116 02676 RENDWFLG
027105,004685: 31,2117 15474 TCF ENDEXT
027106,004686: 31,2120 40020 V67WW STQ BOV
027107,004687: 31,2121 00051 S2
027108,004688: 31,2122 62123 +1
027109,004689: 31,2123 45014 CLEAR CALL
027110,004690: 31,2124 03667 V67FLAG
027111,004691: 31,2125 27447 INTSTALL
027112,004692: 31,2126 71331 SSP DLOAD
027113,004693: 31,2127 00051 S1
027114,004694: 31,2130 00006 DEC 6 B-14
027115,004695: 31,2131 06505 ZEROVECS
027116,004696: 31,2132 02172 STORE WWPOS
027117,004697: 31,2133 02174 STORE WWVEL
027118,004698: 31,2134 02176 STORE WWBIAS
027119,004699: 31,2135 77770 AXT,1
027120,004700: 31,2136 00066 DEC 54 B-14
027121,004701: 31,2137 47573 NXPOSVEL VLOAD* VSQ
027122,004702: 31,2140 02467 W +54D,1
|
|
Page 616 |
027124,004704: 31,2141 77650 GOTO
027125,004705: 31,2142 60002 ADDPOS
027126,004706: 31,2143 01543 V06N99 VN 0699
027127,004707:
027128,004708: 30,2000 SETLOC VB67A
027129,004709: 30,2000 BANK
027130,004710: 30,2002 COUNT* $$/EXTVB
027131,004711:
027132,004712: 30,2002 77615 ADDPOS DAD
027133,004713: 30,2003 02172 WWPOS
027134,004714: 30,2004 02172 STORE WWPOS
027135,004715: 30,2005 47573 VLOAD* VSQ
027136,004716: 30,2006 02555 W +108D,1
027137,004717: 30,2007 77615 DAD
027138,004718: 30,2010 02174 WWVEL
027139,004719: 30,2011 02174 STORE WWVEL
027140,004720: 30,2012 47573 VLOAD* VSQ
027141,004721: 30,2013 02643 W +162D,1
027142,004722: 30,2014 77615 DAD
027143,004723: 30,2015 02176 WWBIAS
027144,004724: 30,2016 02176 STORE WWBIAS
027145,004725: 30,2017 75500 TIX,1 SQRT
027146,004726: 30,2020 62137 NXPOSVEL
027147,004727: 30,2021 77661 SR # SHIFT FROM INTERNAL SCALING (B+5) TO
027148,004728: 30,2022 20613 10D # NOUN SCALING (B-5)
027149,004729: 30,2023 16176 STODL WWBIAS
027150,004730: 30,2024 02174 WWVEL
027151,004731: 30,2025 77766 SQRT
027152,004732: 30,2026 16174 STODL WWVEL
027153,004733: 30,2027 02172 WWPOS
027154,004734: 30,2030 77766 SQRT
027155,004735: 30,2031 02172 STORE WWPOS
027156,004736: 30,2032 52000 BOV GOTO
027157,004737: 30,2033 60035 +2
027158,004738: 30,2034 60042 V67XXX
027159,004739: 30,2035 77745 DLOAD
027160,004740: 30,2036 06513 DPPOSMAX
027161,004741: 30,2037 02172 STORE WWPOS
027162,004742: 30,2040 02174 STORE WWVEL
027163,004743: 30,2041 02176 STORE WWBIAS
027164,004744: 30,2042 45345 V67XXX DLOAD DSU
027165,004745: 30,2043 02172 WWPOS
027166,004746: 30,2044 20060 FT99999
027167,004747: 30,2045 71240 BMN DLOAD
027168,004748: 30,2046 60051 +3
027169,004749: 30,2047 20060 FT99999
027170,004750: 30,2050 02172 STORE WWPOS
027171,004751: 30,2051 66150 LXA,1 SXA,1
027172,004752: 30,2052 00051 S2
027173,004753: 30,2053 00052 QPRET
|
|
Page 617 |
027175,004755: 30,2054 77776 EXIT
027176,004756: 30,2055 04626 TC POSTJUMP
027177,004757: 30,2056 27460 CADR INTWAKE
027178,004758:
027179,004759: 30,2057 01670 17000 FT99999 2DEC 30479 B-19
027180,004760:
|
|
Page 618 |
027182,004762: 25,3651 BANK 25
027183,004763: 25,2000 SETLOC RADARUPT
027184,004764: 25,2000 BANK
027185,004765: 25,3651 COUNT* $$/RRUPT
027186,004766:
027187,004767: 25,3651 E7,1456 EBANK= LOSCOUNT
027188,004768:
027189,004769: 25,3651 44740 RADLITES CS BIT5
027190,004770: 25,3652 60061 AD ITEMP1
027191,004771: 25,3653 10000 CCS A
027192,004772: 25,3654 44744 CS ONE
|
|
A + is drawn in the margin next to ONE above. |
027194,004774: 25,3655 13705 TCF VLIGHT
|
|
A 0 is drawn in the margin next to VLIGHT above. |
027196,004776:
027197,004777: 25,3656 14561 TCF RRTRKF
|
|
An arrow is drawn in pointing to RRTRKF above. |
027199,004779:
027200,004780: 25,3657 54065 HLIGHT TS ITEMP5 # ZERO ITEMP5 FOR H INDEX
027201,004781:
027202,004782: 25,3660 34740 CA HLITE
027203,004783: 25,3661 54001 TS L
027204,004784:
027205,004785: 25,3662 34740 CA LRALTBIT
027206,004786: 25,3663 70110 BOTHLITS MASK RADMODES
027207,004787: 25,3664 10000 CCS A
027208,004788: 25,3665 13677 TCF ONLITES
027209,004789:
027210,004790: 25,3666 30107 CA FLGWRD11
027211,004791: 25,3667 50065 INDEX ITEMP5
027212,004792: 25,3670 74744 MASK HFLSHBIT
027213,004793: 25,3671 10000 CCS A
027214,004794: 25,3672 14561 TCF RRTRKF
|
|
An arrow is drawn in pointing to RRTRKF above. |
027216,004796:
027217,004797: 25,3673 00006 LITIT EXTEND
027218,004798: 25,3674 22066 QXCH ITEMP6
027219,004799: 25,3675 04573 TC TRKFLON +1
027220,004800:
027221,004801: 25,3676 00066 TC ITEMP6
027222,004802:
|
|
In the margin next to the following paragraphs of code is written in large letters, RESET HFLSH BIT OR VFLSHBIT |
027225,004805: 25,3677 50065 ONLITES INDEX ITEMP5
027226,004806: 25,3700 44744 CS HFLSHBIT
027227,004807: 25,3701 70107 MASK FLGWRD11
027228,004808: 25,3702 54107 TS FLGWRD11
027229,004809:
027230,004810: 25,3703 30001 CA L
027231,004811: 25,3704 13673 TCF LITIT
027232,004812: 25,3705 54065 VLIGHT TS ITEMP5
027233,004813: 25,3706 34742 CA VLITE
027234,004814: 25,3707 54001 TS L
027235,004815: 25,3710 34735 CA BIT8
027236,004816: 25,3711 13663 TCF BOTHLITS
027237,004817:
|
|
Page 619 |
027239,004819: 25,3712 4740 HLITE EQUALS BIT5
027240,004820: 25,3712 4742 VLITE EQUALS BIT3
027241,004821:
End of include-file P20-P25.agc. Parent file is MAIN.agc