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