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