Source Code
![]() |
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966Note that the date is the date of the printout, not the date of the program revision. |
008807,000002: ## Copyright: Public domain.
008808,000003: ## Filename: RADAR_LEAD-IN_ROUTINES.agc
008809,000004: ## Purpose: Part of the source code for Aurora (revision 12).
008810,000005: ## Assembler: yaYUL
008811,000006: ## Contact: Ron Burkey <info@sandroid.org>.
008812,000007: ## Website: https://www.ibiblio.org/apollo.
008813,000008: ## Pages: 227-255
008814,000009: ## Mod history: 2016-09-20 JL Created.
008815,000010: ## 2016-10-20 HG finished transcription
008816,000011: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
008817,000012: ## and fixed the errors found.
008818,000013:
008819,000014: ## This source code has been transcribed or otherwise adapted from
008820,000015: ## digitized images of a hardcopy from the private collection of
008821,000016: ## Don Eyles. The digitization was performed by archive.org.
008822,000017:
008823,000018: ## Notations on the hardcopy document read, in part:
008824,000019:
008825,000020: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
008826,000021: ## NOV 10, 1966
008827,000022:
008828,000023: ## [Note that this is the date the hardcopy was made, not the
008829,000024: ## date of the program revision or the assembly.]
008830,000025:
008831,000026: ## The scan images (with suitable reduction in storage size and consequent
008832,000027: ## reduction in image quality) are available online at
008833,000028: ## https://www.ibiblio.org/apollo.
008834,000029: ## The original high-quality digital images are available at archive.org:
008835,000030: ## https://archive.org/details/aurora00dapg
008836,000031:
008837,000032:
![]() |
Page 227 |
008839,000034: 4763 SETLOC ENDIMODF
008840,000035: 4763 E3,1460 EBANK= RRRET
008841,000036:
008842,000037: # THE FOLLOWING SUBROUTINE RETURNS TO CALLER + 2 IF THE ABSOLUTE VALUE OF C(A) IS GREATER THAN THE
008843,000038: # NEGATIVE OF THE NUMBER AT CALLER +1. OTHERWISE IT RETURNS TO CALLER +3. MAY BE CALLED IN RUPT OR UNDER EXEC.
008844,000039:
008845,000040: 4763 00006 MAGSUB EXTEND
008846,000041: 4764 64766 BZMF +2
008847,000042: 4765 14767 TCF +2
008848,000043: 4766 40000 COM
008849,000044:
008850,000045: 4767 50002 INDEX Q
008851,000046: 4770 60000 AD 0
008852,000047: 4771 00006 EXTEND
008853,000048: 4772 64775 BZMF +3 # ABS(A) G CONST
008854,000049: 4773 50002 INDEX Q
008855,000050: 4774 00001 TC 1 # ABS(A) LEQ CONST
008856,000051:
008857,000052: 4775 50002 MAGLESS INDEX Q
008858,000053: 4776 00002 TC 2
008859,000054:
![]() |
Page 228 |
008861,000056: # THE FOLLOWING SUBROUTINE CHECKS RR GIMBAL ANGLES TO SEE IF THEY ARE IN THE LIMITS OF THE CURRENT MODE.
008862,000057: # CALLING SEQUENCE IS AS FOLLOWS:
008863,000058:
008864,000059: # TC RRLIMCHK (WITH INTERRUPT INHIBITED).
008865,000060: # ADRES T,S (IN UNSWITCHED E OR CURRENT EBANK).
008866,000061:
008867,000062: # RETURN IS TO CALLER +2 IF NOT IN LIMITS AND TO CALLER +3 IF SO.
008868,000063:
008869,000064: 4777 50002 RRLIMCHK INDEX Q # READ GIMBAL ANGLES INTO ITEMP STORAGE.
008870,000065: 5000 30000 CAF 0
008871,000066: 5001 24002 INCR Q
008872,000067: 5002 00006 EXTEND
008873,000068: 5003 50000 INDEX A
008874,000069: 5004 30001 DCA 0
008875,000070: 5005 52066 DXCH ITEMP1
008876,000071: 5006 22002 LXCH Q # L(CALLER +2) TO L.
008877,000072:
008878,000073: 5007 37644 CAF BIT12 # SEE WHICH MODE RR IS IN.
008879,000074: 5010 70413 MASK RADMODES
008880,000075: 5011 10000 CCS A
008881,000076: 5012 15025 TCF MODE2CHK
008882,000077:
008883,000078: 5013 30065 CA ITEMP1 # MODE 1 IS DEFINED AS
008884,000079: 5014 04763 TC MAGSUB # 1. ABS(T) L 70 DEGS.
008885,000080: 5015 66161 DEC -.30555 # 2. ABS(S + 5.5 DEGS) L 64.5 DEGS
008886,000081: 5016 00001 TC L # (SHAFT LIMITS AT +59, -70 DEGS)
008887,000082:
008888,000083: 5017 35037 CAF 5.5DEGS
008889,000084: 5020 60066 AD ITEMP2 # S
008890,000085: 5021 04763 TC MAGSUB
008891,000086: 5022 64420 DEC -.35833 # 64.5 DEGS
008892,000087: 5023 00001 TC L
008893,000088: 5024 05035 TC RRLIMOK # IN LIMITS.
008894,000089:
008895,000090: 5025 35041 MODE2CHK CAF 82DEGS # MODE 2 IS DEFINED AS
008896,000091: 5026 60066 AD ITEMP2 # 1. ABS(T) G 110 DEGS
008897,000092: 5027 04763 TC MAGSUB # 2. ABS(S + 82 DEGS) L 57 DEGS
008898,000093: 5030 65673 DEC -.31667 # (SHAFT LIMITS AT -25, -139 DEGS)
008899,000094: 5031 00001 TC L
008900,000095:
008901,000096: 5032 30065 CA ITEMP1
008902,000097: 5033 04763 TC MAGSUB
008903,000098: 5034 54343 DEC -.61111 # 110 DEGS
008904,000099:
008905,000100: 5035 50001 RRLIMOK INDEX L
008906,000101: 5036 00001 TC L # ( = TC 1)
008907,000102:
008908,000103: 5037 00765 5.5DEGS DEC .03056
008909,000104: 5040 00707 5DEGS DEC .02777 # SCALED IN HALF-REVOLUTIONS.
008910,000105: 5041 16450 82DEGS DEC .45556
008911,000106:
![]() |
Page 229 |
008913,000108: # THE FOLLOWING ROUTINE UPDATES THE TRACKER FAIL LAMP ON THE DSKY, IF EITHER:
008914,000109:
008915,000110: # 1. N SAMPLES OF RR DATA COULD NOT BE OBTAINED FROM 2N TRIES
008916,000111: # 2. N SAMPLES OF LR DATA COULD NOT BE TAKEN IN 2N TRIES WITH EITHER THE ALT OR VEL INFORMATION.
008917,000112: # 3. RR CDU FAILED WITH RR IN AUTO MODE AND RR CDU NOT BEING ZEROED.
008918,000113:
008919,000114: 5042 37657 SETTRKF CAF BIT1 # NO ACTION IF DURING LAMP TEST.
008920,000115: 5043 70370 MASK IMODES33
008921,000116: 5044 10000 CCS A
008922,000117: 5045 00002 TC Q
008923,000118:
008924,000119: 5046 35076 CAF 13,7,2 # SEE IF CDU FAILED.
008925,000120: 5047 70413 MASK RADMODES
008926,000121: 5050 00006 EXTEND
008927,000122: 5051 15061 BZF TRKFLON # CONDITION 3 ABOVE.
008928,000123:
008929,000124: 5052 40413 CS RADMODES # SEE IF LR FAILED.
008930,000125: 5053 75077 MASK 8,5
008931,000126: 5054 00006 EXTEND
008932,000127: 5055 15061 BZF TRKFLON # CONDITION 2 ABOVE.
008933,000128:
008934,000129: 5056 37654 CAF BIT4 # SEE IF RR DATA FAILED.
008935,000130: 5057 70413 MASK RADMODES
008936,000131: 5060 10000 CCS A
008937,000132: 5061 37650 TRKFLON CAF BIT8
008938,000133: 5062 60322 AD DSPTAB +11D # HALF ADD DESIRED AND PRESENT STATES.
008939,000134: 5063 77650 MASK BIT8
008940,000135: 5064 00006 EXTEND
008941,000136: 5065 14712 BZF TCQ # NO CHANGE.
008942,000137:
008943,000138: 5066 54001 TS L # INVERT BIT 8 AND SET BIT 15.
008944,000139: 5067 30322 CA DSPTAB +11D # CANT USE LXCH DSPTAB +11D (RESTART PROB)
008945,000140: 5070 00006 EXTEND
008946,000141: 5071 06001 RXOR L
008947,000142: 5072 77637 MASK POSMAX
008948,000143: 5073 67641 AD BIT15
008949,000144: 5074 54322 TS DSPTAB +11D
008950,000145: 5075 00002 TC Q
008951,000146:
008952,000147: 5076 10102 13,7,2 OCT 10102
008953,000148: 5077 00220 8,5 OCT 00220
008954,000149:
008955,000150: 5100 ENDRMODF EQUALS
008956,000151:
![]() |
Page 230 |
008958,000153: # TURNON SEQUENCE TO ZERO THE CDUS AND DETERMINE THE RR MODE.
008959,000154:
008960,000155: 10,2000 BANK 10
008961,000156:
008962,000157: 10,2000 02013 RRTURNON TC RRZEROSB
008963,000158: 10,2001 04554 TC FIXDELAY # WAIT 1 SEC BEFORE REMOVING TURN ON FLAG
008964,000159: 10,2002 00144 DEC 100 B-14 # SO A MONITOR REPOSITION WONT ALARM.
008965,000160: 10,2003 47657 CS BIT1
008966,000161: 10,2004 70413 MASK RADMODES
008967,000162: 10,2005 54413 TS RADMODES
008968,000163: 10,2006 40061 CS STATE # SEE IF SOMEONE IS WAITING TO USE THE RR.
008969,000164: 10,2007 77651 MASK RRUSEFLG
008970,000165: 10,2010 10000 CCS A
008971,000166: 10,2011 14602 TCF TASKOVER
008972,000167:
008973,000168: 10,2012 13235 TCF ENDRADAR # CHECK RR CDU FAIL BEFORE EXIT.
008974,000169:
![]() |
Page 231 |
008976,000171: # CLOSED SUBROUTINE TO ZERO THE RR CDUS.
008977,000172:
008978,000173: 10,2013 00006 RRZEROSB EXTEND
008979,000174: 10,2014 23460 QXCH RRRET
008980,000175: 10,2015 37657 CAF BIT1 # BIT 13 OF RADMODES MUST BE SET BEFORE
008981,000176: 10,2016 00006 EXTEND # COMING HERE.
008982,000177: 10,2017 05012 WOR 12
008983,000178: 10,2020 04554 TC FIXDELAY
008984,000179: 10,2021 00002 DEC 2 B-14
008985,000180:
008986,000181: 10,2022 37665 CAF ZERO
008987,000182: 10,2023 54035 TS OPTY
008988,000183: 10,2024 54036 TS OPTX
008989,000184: 10,2025 47657 CS ONE # REMOVE ZEROING BIT.
008990,000185: 10,2026 00006 EXTEND
008991,000186: 10,2027 03012 WAND 12
008992,000187: 10,2030 04554 TC FIXDELAY
008993,000188: 10,2031 00454 DEC 300 B-14
008994,000189:
008995,000190: 10,2032 47643 CS BIT13 # REMOVE ZEROING IN PROCESS BIT.
008996,000191: 10,2033 70413 MASK RADMODES
008997,000192: 10,2034 54413 TS RADMODES
008998,000193:
008999,000194: 10,2035 30035 CA OPTY
009000,000195: 10,2036 04763 TC MAGSUB
009001,000196: 10,2037 57777 DEC -.5
009002,000197: 10,2040 12043 TCF +3 # IF MODE 2.
009003,000198:
009004,000199: 10,2041 37665 CAF ZERO
009005,000200: 10,2042 12044 TCF +2
009006,000201: 10,2043 37644 CAF BIT12
009007,000202: 10,2044 56413 XCH RADMODES
009008,000203: 10,2045 74360 MASK -BIT12
009009,000204: 10,2046 26413 ADS RADMODES
009010,000205:
009011,000206: 10,2047 05042 TC SETTRKF # TRACKER LAMP MIGHT GO ON NOW.
009012,000207:
009013,000208: 10,2050 01460 TC RRRET # DONE.
009014,000209:
009015,000210: 10,2051 4360 -BIT12 EQUALS -1/8 # IN SPROOT
009016,000211:
![]() |
Page 232 |
009018,000213: # SEQUENCE OF TASKS TO DRIVE THE RR TO A SAFE POSITION.
009019,000214:
009020,000215: 10,2051 02106 DORREPOS TC SETRRECR # SET UP RR CDU ERROR COUNTERS.
009021,000216:
009022,000217: 10,2052 37657 CAF BIT1 # DO AN ALARM UNLESS RR JUST TURNED ON.
009023,000218: 10,2053 70413 MASK RADMODES
009024,000219: 10,2054 10000 CCS A
009025,000220: 10,2055 12060 TCF +3
009026,000221:
009027,000222: 10,2056 05413 TC ALARM
009028,000223: 10,2057 00501 OCT 501
009029,000224: 10,2060 04554 TC FIXDELAY
009030,000225: 10,2061 00002 DEC 2 B-14
009031,000226:
009032,000227: 10,2062 37644 CAF BIT12 # MANEUVER TRUNNION ANGLE TO NOMINAL POS.
009033,000228: 10,2063 70413 MASK RADMODES
009034,000229: 10,2064 10000 CCS A
009035,000230: 10,2065 37641 CAF BIT15 # 0 FOR MODE 1 AND 180 FOR MODE 2.
009036,000231: 10,2066 02150 TC RRTONLY
009037,000232:
009038,000233: 10,2067 37644 CAF BIT12 # NOW PUT SHAFT IN RIGHT POSITION.
009039,000234: 10,2070 70413 MASK RADMODES
009040,000235: 10,2071 10000 CCS A
009041,000236: 10,2072 47642 CS HALF # -90 FOR MODE 2.
009042,000237: 10,2073 02153 TC RRSONLY
009043,000238:
009044,000239: 10,2074 47645 REPOSRPT CS BIT11 # RETURNS HERE FROM RR1AXIS IF REMODE
009045,000240: # REQUESTED DURING REPOSITION.
009046,000241: 10,2075 70413 MASK RADMODES # REMOVE REPOSITION BIT.
009047,000242: 10,2076 54413 TS RADMODES
009048,000243: 10,2077 77646 MASK BIT10 # SEE IF SOMEONE IS WAITING TO DESIGNATE.
009049,000244: 10,2100 10000 CCS A
009050,000245: 10,2101 12422 TCF BEGDES
009051,000246: 10,2102 47656 CS BIT2 # IF NO FURTHER ANTENNA CONTROL REQUIRED,
009052,000247: 10,2103 00006 EXTEND # REMOVE ERROR COUNTER ENABLE.
009053,000248: 10,2104 03012 WAND 12
009054,000249: 10,2105 14602 TCF TASKOVER
009055,000250:
009056,000251: 10,2106 37656 SETRRECR CAF BIT2 # SET UP RR ERROR COUNTERS.
009057,000252: 10,2107 00006 EXTEND
009058,000253: 10,2110 05012 WOR 12
009059,000254:
009060,000255: 10,2111 37665 CAF ZERO
009061,000256: 10,2112 54362 TS LASTYCMD
009062,000257: 10,2113 54363 TS LASTXCMD
009063,000258: 10,2114 00002 TC Q
009064,000259:
![]() |
Page 233 |
009066,000261: # GENERAL REMODING SUBROUTINE. DRIVES TRUNION TO 0 (180), THEN DRIVES SHAFT TO -45, AND FINALLY DRIVES
009067,000262: # TRUNNION TO -130 (-50) BEFORE INITIATING 2-AXIS CONTROL. ALL RE-MODING IONE WITH SINGLE AXIS ROTATIONS (RR1AXIS)
009068,000263: 10,2115 37644 REMODE CAF BIT12 # DRIVE TRUNNION TO 0 (180).
009069,000264: 10,2116 70413 MASK RADMODES # (ERROR COUNTER ALREADY ENABLED)
009070,000265: 10,2117 10000 CCS A
009071,000266: 10,2120 37641 CAF BIT15
009072,000267: 10,2121 02150 TC RRTONLY
009073,000268:
009074,000269: 10,2122 32137 CAF -45DEGSR
009075,000270: 10,2123 02153 TC RRSONLY
009076,000271:
009077,000272: 10,2124 40413 CS RADMODES
009078,000273: 10,2125 77644 MASK BIT12
009079,000274: 10,2126 10000 CCS A
009080,000275: 10,2127 32141 CAF -80DEGSR # GO TO T = -130 (-50).
009081,000276: 10,2130 62141 AD -80DEGSR
009082,000277: 10,2131 02150 TC RRTONLY
009083,000278:
009084,000279: 10,2132 02142 TC RMODINV
009085,000280:
009086,000281: 10,2133 47642 CS BIT14 # END OF REMODE.
009087,000282: 10,2134 70413 MASK RADMODES
009088,000283: 10,2135 54413 TS RADMODES
009089,000284:
009090,000285: 10,2136 02431 TC STDESIG # BEGIN 2-AXIS CONTROL.
009091,000286:
009092,000287: 10,2137 70000 -45DEGSR OCT 70000
009093,000288: 10,2140 67070 -50DEGSR DEC -.27778
009094,000289: 10,2141 61615 -80DEGSR DEC -.44444
009095,000290:
009096,000291: 10,2142 22413 RMODINV LXCH RADMODES # INVERT THE MODE STATUS.
009097,000292: 10,2143 37644 CAF BIT12
009098,000293: 10,2144 00006 EXTEND
009099,000294: 10,2145 06001 RXOR L
009100,000295: 10,2146 54413 TS RADMODES
009101,000296: 10,2147 00002 TC Q
009102,000297:
![]() |
Page 234 |
009104,000299: # SUBROUTINES FOR DOING SINGLE AXIS RR MANEUVERS FOR REMODE AND REPOSITION. DRIVES TO WITHIN 1 DEGREE.
009105,000300:
009106,000301: 10,2150 55461 RRTONLY TS RDES # DESIRED TRUNION ANGLE.
009107,000302: 10,2151 37665 CAF ZERO
009108,000303: 10,2152 12155 TCF RR1AXIS
009109,000304:
009110,000305: 10,2153 55461 RRSONLY TS RDES # SHAFT COMMANDS ARE UNRESOLVED SINCE THIS
009111,000306: 10,2154 37657 CAF ONE # ROUTINE ENTERED ONLY WHEN T = 0 OR 180.
009112,000307:
009113,000308: 10,2155 55462 RR1AXIS TS RRINDEX
009114,000309: 10,2156 00006 EXTEND
009115,000310: 10,2157 23460 QXCH RRRET
009116,000311: 10,2160 12163 TCF RR1AX2
009117,000312:
009118,000313: 10,2161 04554 NXTRR1AX TC FIXDELAY
009119,000314: 10,2162 00062 DEC 50 B-14 # 2 SAMPLES PER SECOND.
009120,000315:
009121,000316: 10,2163 40413 RR1AX2 CS RADMODES # IF SOMEONE REQUESTES AS DESIGNATE WHICH
009122,000317: 10,2164 74520 MASK PRIO22 # REQUIRES A REMODE AND A REPOSITION IS IN
009123,000318: 10,2165 00006 EXTEND # PROGRESS, INTERRUPT IT AND START THE
009124,000319: 10,2166 12074 BZF REPOSRPT # REMODE IMMEDIATELY.
009125,000320:
009126,000321: 10,2167 31461 CA RDES
009127,000322: 10,2170 00006 EXTEND
009128,000323: 10,2171 51462 INDEX RRINDEX
009129,000324: 10,2172 20035 MSU OPTY
009130,000325: 10,2173 54002 TS Q # SAVE ERROR SIGNAL.
009131,000326: 10,2174 00006 EXTEND
009132,000327: 10,2175 72212 MP RRSPGAIN # TRIES TO NULL .7 OF ERROR OVER NEXT .5
009133,000328: 10,2176 54001 TS L
009134,000329: 10,2177 30002 CA Q # SEE IF WITHIN 1 DEGREE.
009135,000330: 10,2200 04763 TC MAGSUB
009136,000331: 10,2201 77644 DEC -.00555 # SCALED IN HALF-REVS.
009137,000332:
009138,000333: 10,2202 12204 TCF +2 # NO.
009139,000334: 10,2203 01460 TC RRRET # RETURN TO CALLER.
009140,000335:
009141,000336: 10,2204 11462 CCS RRINDEX # COMMAND FOR OTHER AXIS IS ZERO.
009142,000337: 10,2205 12207 TCF +2 # SETTING A TO 0.
009143,000338: 10,2206 56001 XCH L
009144,000339: 10,2207 52424 DXCH TANG
009145,000340:
009146,000341: 10,2210 02213 TC RROUT
009147,000342:
009148,000343: 10,2211 12161 TCF NXTRR1AX # COME BACK IN .5 SECONDS.
009149,000344:
009150,000345: 10,2212 22715 RRSPGAIN DEC .59062 # NULL .7 ERROR IN .5 SEC.
009151,000346:
![]() |
Page 235 |
009153,000348: # THE FOLLOWING ROUTINE RECEIVES RR GYRO COMMANDS IN TANG,+1 IN ERROR COUNTER SCALING. RROUT LIMITS THEM
009154,000349: # AND GENERATES COMMANDS TO THE CDU TO ADJUST THE ERROR COUNTERS TO THE DESIRED VALUES. RUPT MUST BE INHIBITED.
009155,000350:
009156,000351: 10,2213 22002 RROUT LXCH Q # SAVE RETURN.
009157,000352: 10,2214 37657 CAF ONE # LOOP TWICE.
009158,000353: 10,2215 54066 RROUT2 TS ITEMP2
009159,000354: 10,2216 50000 INDEX A
009160,000355: 10,2217 30423 CA TANG
009161,000356: 10,2220 54065 TS ITEMP1 # SAVE SIGN OF COMMAND FOR LIMITING.
009162,000357:
009163,000358: 10,2221 04763 TC MAGSUB # SEE IF WITHIN LMITS.
009164,000359: 10,2222 77177 -RRLIMIT DEC -384 B-14
009165,000360: 10,2223 12241 TCF RROUTLIM # LIMIT COMMAND TO MAG OF 384.
009166,000361:
009167,000362: 10,2224 30065 SETRRCTR CA ITEMP1 # COUNT OUT DIFFERENCE BETWEEN DESIRED
009168,000363: 10,2225 50066 INDEX ITEMP2 # STATE AND PRESENT STATE AS RECORDED IN
009169,000364: 10,2226 56362 XCH LASTYCMD # LASTYCMD AND LASTXCMD
009170,000365: 10,2227 40000 COM
009171,000366: 10,2230 60065 AD ITEMP1
009172,000367: 10,2231 50066 INDEX ITEMP2
009173,000368: 10,2232 54053 TS OPTYCMD
009174,000369:
009175,000370: 10,2233 10066 CCS ITEMP2 # PROCESS BOTH INPUTS.
009176,000371: 10,2234 12215 TCF RROUT2
009177,000372:
009178,000373: 10,2235 34506 CAF PRIO6 # ENABLE COUNTERS.
009179,000374: 10,2236 00006 EXTEND
009180,000375: 10,2237 05014 WOR 14
009181,000376:
009182,000377: 10,2240 00001 TC L # RETURN.
009183,000378:
009184,000379: 10,2241 10065 RROUTLIM CCS ITEMP1 # LIMIT COMMAND TO ABS VAL OF 384.
009185,000380: 10,2242 42222 CS -RRLIMIT
009186,000381: 10,2243 12245 TCF +2
009187,000382: 10,2244 32222 CA -RRLIMIT
009188,000383: 10,2245 54065 TS ITEMP1
009189,000384: 10,2246 12225 TCF SETRRCTR +1
009190,000385:
![]() |
Page 236 |
009192,000387: # ROUTINE TO ZERO THE RR CDUS AND DETERMINE THE ANTENNA MODE.
009193,000388:
009194,000389: 10,2247 00004 RRZERO INHINT
009195,000390: 10,2250 47651 CS RRUSEFLG # SET FLAG TO SHOW SOMEONE USING THE RR.
009196,000391: 10,2251 70061 MASK STATE
009197,000392: 10,2252 67651 AD RRUSEFLG
009198,000393: 10,2253 54061 TS STATE
009199,000394:
009200,000395: 10,2254 37657 CAF BIT1 # SEE IF RR COMING UP. IF SO, TURNON
009201,000396: 10,2255 70413 MASK RADMODES # PROGRAM WILL DO THE WORK.
009202,000397: 10,2256 10000 CCS A
009203,000398: 10,2257 12302 TCF ROADBACK
009204,000399:
009205,000400: 10,2260 37645 CAF BIT11 # SEE IF MONITOR REPOSITION IN PROGRESS.
009206,000401: 10,2261 70413 MASK RADMODES # IF SO, DONT RE-ZERO CDUS.
009207,000402: 10,2262 10000 CCS A
009208,000403: 10,2263 13227 TCF RADNOOP # (IMMEDIATE TASK TO RGOODEND).
009209,000404:
009210,000405: 10,2264 47643 CS BIT13 # SET FLAG TO SHOW ZEROING IN PROGRESS.
009211,000406: 10,2265 70413 MASK RADMODES
009212,000407: 10,2266 67643 AD BIT13
009213,000408: 10,2267 54413 TS RADMODES
009214,000409:
009215,000410: 10,2270 37657 CAF ONE
009216,000411: 10,2271 04536 TC WAITLIST
009217,000412: 10,2272 02304 20003 2CADR RRZ2
009218,000413:
009219,000414: 10,2274 40413 CS RADMODES # SEE IF IN AUTO MODE.
009220,000415: 10,2275 77656 MASK BIT2
009221,000416: 10,2276 10000 CCS A
009222,000417: 10,2277 12302 TCF ROADBACK
009223,000418: 10,2300 05413 TC ALARM # AUTO DISCRETE NOT PRESENT - TRYING
009224,000419: 10,2301 00510 OCT 510
009225,000420: 10,2302 00003 ROADBACK RELINT
009226,000421: 10,2303 14076 TCF SWRETURN
009227,000422:
009228,000423: 10,2304 02013 RRZ2 TC RRZEROSB # COMMON TO TURNON AND RRZERO.
009229,000424: 10,2305 13235 TCF ENDRADAR
009230,000425:
009231,000426: 10,2306 7651 RRUSEFLG EQUALS BIT7
009232,000427: 10,2306 7653 LOKONFLG EQUALS BIT5
009233,000428:
![]() |
Page 237 |
009235,000430: # STABLE-MEMBER RR DESIGNATE ROUTINE. DESIGNATE TO A SM LOS VECTOR (HALF-UNIT) IN RRTARGET. REMODES IF
009236,000431: # REQUIRED. RETURNS TO CALLER IF MANEUVER REQUIRED FOR DES AND SKIPS IF IT CAN BE DONE IN PRESENT VEH ATTITUDE.
009237,000432:
009238,000433: 10,2306 43030 RRDESSM STQ CLEAR
009239,000434: 10,2307 00427 DESRET
009240,000435: 10,2310 00271 RRNBSW
009241,000436: 10,2311 66224 RTB SSP # READ CDUS FOR SMNB.
009242,000437: 10,2312 33361 READCDUS
009243,000438: 10,2313 00051 S1
009244,000439: 10,2314 00024 20D
009245,000440: 10,2315 22025 STOVL 20D
009246,000441: 10,2316 00416 RRTARGET
009247,000442: 10,2317 36041 STCALL 32D
009248,000443: 10,2320 32473 SMNB
009249,000444:
009250,000445: 10,2321 77634 CALL # GET RR GIMBAL ANGLES IN PRESENT AND
009251,000446: 10,2322 33267 RRANGLES # ALTERNATE MODE.
009252,000447: 10,2323 77776 EXIT
009253,000448:
009254,000449: 10,2324 00004 INHINT
009255,000450: 10,2325 04777 TC RRLIMCHK
009256,000451: 10,2326 00423 ADRES MODEA # CONFIGURATION FOR CURRENT MODE.
009257,000452: 10,2327 12351 TCF TRYSWS
009258,000453:
009259,000454: 10,2330 24427 OKDESSM INCR DESRET # INCREMENT SAYS NO VEHICLE MANEUVER REQ.
009260,000455:
![]() |
Page 238 |
009262,000457: # AT THIS POINT WE ARE READY TO BEGIN DESIGNATION. THE TARGET IS STORED AS A HALF-UNIT VECTOR IN RRTARGET
009263,000458: # WITH RRNBSW SET IF IT IS REFERRED TO NAV BASE AXES. LOKONSW IS SET IF LOCKON IS DESIRED. BIT14 OF RADMODES IS
009264,000459: # SET IF A REMODE IS REQUIRED. AT THIS TIME, THE ANTENNA MAY BE IN A MONITOR REPOSITION OPERATION. IN THIS
009265,000460: # CASE, IF A REMODE IS REQUIRED IT MAY HAVE ALREADY BEGUN BUT IT ANY CASE THE REPOSITION WILL BE INTERRUPTED.
009266,000461: # OTHERWISE, THE REPOSITION WILL BE COMPLETED BEFORE 2-AXIS DESIGNATION BEGINS.
009267,000462:
009268,000463: 10,2331 32350 STARTDES CAF MAXTRIES # ALLOW 30 SECS.
009269,000464: 10,2332 54430 TS DESCOUNT
009270,000465:
009271,000466: 10,2333 37646 CAF BIT10 # SHOW DESIGNATE REQUIRED.
009272,000467: 10,2334 26413 ADS RADMODES
009273,000468: 10,2335 77645 MASK BIT11 # SEE IF REPOSITION IN PROGRESS.
009274,000469: 10,2336 10000 CCS A
009275,000470: 10,2337 12345 TCF DESRETRN # ECTR ALREADY SET UP.
009276,000471:
009277,000472: 10,2340 02106 TC SETRRECR # SET UP ERROR COUNTERS.
009278,000473:
009279,000474: 10,2341 37656 CAF TWO
009280,000475: 10,2342 04536 TC WAITLIST
009281,000476: 10,2343 02422 20003 2CADR BEGDES
009282,000477:
009283,000478: 10,2345 00003 DESRETRN RELINT # RETURN VIA DESRET
009284,000479: 10,2346 30427 +1 CA DESRET
009285,000480: 10,2347 14105 TCF BANKJUMP
009286,000481:
009287,000482: 10,2350 00074 MAXTRIES DEC 60 B-14
009288,000483:
![]() |
Page 239 |
009290,000485: # SEE IF RRDESSM CAN BE ACCOMPLISHED AFTER A REMODE.
009291,000486:
009292,000487: 10,2351 02142 TRYSWS TC RMODINV # (NOTE RUPT INHIBIT)
009293,000488: 10,2352 04777 TC RRLIMCHK # TRY DIFFERENT MODE.
009294,000489: 10,2353 00425 ADRES MODEB
009295,000490: 10,2354 12361 TCF NODESSM # VEHICLE MANEUVER REQUIRED.
009296,000491:
009297,000492: 10,2355 02142 TC RMODINV # RESET BIT12
009298,000493: 10,2356 37642 CAF BIT14 # SET FLAG FOR REMODE.
009299,000494: 10,2357 26413 ADS RADMODES
009300,000495:
009301,000496: 10,2360 12330 TCF OKDESSM
009302,000497:
009303,000498: 10,2361 02142 NODESSM TC RMODINV # RE-INVERT MODE AND RETURN WITHOUT IN-
009304,000499: 10,2362 12345 TCF DESRETRN # CREMENTING DESRET
009305,000500:
![]() |
Page 240 |
009307,000502: # DESIGNATE TO SPECIFIC RR GIMBAL ANGLES (INDEPENDENT OF VEHICLE MOTION). ENTER WITH DESIRED ANGLES IN
009308,000503: # TANG AND TANG +1.
009309,000504:
009310,000505: 10,2363 77430 RRDESNB STQ EXIT # ENTER IN INTERP. - EXIT IN BASIC.
009311,000506: 10,2364 00427 DESRET
009312,000507:
009313,000508: 10,2365 00004 INHINT # SEE IF CURRENT MODE OK.
009314,000509: 10,2366 04777 TC RRLIMCHK
009315,000510: 10,2367 00423 ADRES TANG
009316,000511: 10,2370 12402 TCF TRYSWN # SEE IF IN OTHER MODE.
009317,000512:
009318,000513: 10,2371 00003 OKDESNB RELINT
009319,000514: 10,2372 06000 TC INTPRET
009320,000515:
009321,000516: 10,2373 77634 CALL # GET LOS IN NB COORDS.
009322,000517: 10,2374 33243 RRNB
009323,000518: 10,2375 00416 STORE RRTARGET
009324,000519:
009325,000520: 10,2376 77414 SET EXIT
009326,000521: 10,2377 00071 RRNBSW
009327,000522:
009328,000523: 10,2400 00004 INHINT
009329,000524: 10,2401 12331 TCF STARTDES
009330,000525:
009331,000526: 10,2402 02142 TRYSWN TC RMODINV # SEE IF OTHER MODE WILL DO.
009332,000527: 10,2403 04777 TC RRLIMCHK
009333,000528: 10,2404 00423 ADRES TANG
009334,000529: 10,2405 12412 TCF NODESNB # NOT POSSIBLE.
009335,000530:
009336,000531: 10,2406 02142 TC RMODINV
009337,000532: 10,2407 37642 CAF BIT14 # CALL FOR REMODE.
009338,000533: 10,2410 26413 ADS RADMODES
009339,000534: 10,2411 12371 TCF OKDESNB
009340,000535:
009341,000536: 10,2412 37657 NODESNB CAF BIT1 # CALL FOR ERROR RETURN.
009342,000537: 10,2413 04536 TC WAITLIST
009343,000538: 10,2414 03251 20003 2CADR RDBADEND
009344,000539:
009345,000540: 10,2416 02142 TC RMODINV
009346,000541: 10,2417 05413 TC ALARM # BAD GIMBAL ANGLE INPUTS.
009347,000542: 10,2420 00502 OCT 502
009348,000543: 10,2421 12346 TCF DESRETRN +1 # ALARM DID A RELINT.
009349,000544:
![]() |
Page 241 |
009351,000546: # WAITLIST TASKS TO RUN RR DESIGNATION.
009352,000547:
009353,000548: 10,2422 37642 BEGDES CAF BIT14 # ENTER HERE FROM STARTDES OR REPOSRPT.
009354,000549: 10,2423 70413 MASK RADMODES # SEE IF REMODE REQUIRED.
009355,000550: 10,2424 10000 CCS A
009356,000551: 10,2425 12115 TCF REMODE
009357,000552: 10,2426 12431 TCF STDESIG
009358,000553:
009359,000554: 10,2427 04554 DESLOOP TC FIXDELAY # 2 SAMPLES PER SECOND.
009360,000555: 10,2430 00062 DEC 50 B-14
009361,000556:
009362,000557: 10,2431 37645 STDESIG CAF BIT11 # ENTRY FROM BEGDES AND REMODE.
009363,000558: 10,2432 70413 MASK RADMODES # SEE IF GIMBAL LIMIT MONITOR HAS FOUND US
009364,000559: 10,2433 10000 CCS A # OUT OF BOUNDS. IF SO, THIS BIT SHOWS A
009365,000560: 10,2434 12454 TCF BADDES # REPOSITION TO BE IN PROGRESS.
009366,000561:
009367,000562: 10,2435 10413 CCS RADMODES # SEE IF CONTINUOUS DESIGNATE WANTED.
009368,000563: 10,2436 12441 TCF +3 # IF SO, DONT CHECK BIT 10 TO SEE IF IN
009369,000564: 10,2437 12441 TCF +2 # LIMITS BUT GO RIGHT TO FINDVAC ENTRY.
009370,000565: 10,2440 12461 TCF MOREDES +1
009371,000566:
009372,000567: 10,2441 40413 CS RADMODES # IF NON-CONTINUOUS, SEE IF END OF
009373,000568: 10,2442 77646 MASK BIT10 # PROBLEM (DATA GOOD IF LOCK-ON WANTED OR
009374,000569: 10,2443 10000 CCS A # WITHIN LIMITS IF NOT). IF SO, EXIT AFTER
009375,000570: 10,2444 13235 TCF ENDRADAR # CHECKING RR CDU FAIL.
009376,000571:
009377,000572: 10,2445 10430 CCS DESCOUNT # SEE IF TIME LIMIT HAS EXPIRED.
009378,000573: 10,2446 12460 TCF MOREDES
009379,000574:
009380,000575: 10,2447 05413 TC ALARM # OUT OF TIME.
009381,000576: 10,2450 00503 OCT 503
009382,000577: 10,2451 42466 CS B14+B2 # IF OUT OF TIME, REMOVE ECR ENABLE + TRKR
009383,000578: 10,2452 00006 EXTEND
009384,000579: 10,2453 03012 WAND 12
009385,000580: 10,2454 47646 BADDES CS BIT10 # REMOVE DESIGNATE FLAG.
009386,000581: 10,2455 70413 MASK RADMODES
009387,000582: 10,2456 54413 TS RADMODES
009388,000583: 10,2457 13251 TCF RDBADEND
009389,000584:
009390,000585: 10,2460 54430 MOREDES TS DESCOUNT
009391,000586: 10,2461 34524 CAF PRIO26 # UPDATE GYRO TORQUE COMMANDS.
009392,000587: 10,2462 04374 TC FINDVAC
009393,000588: 10,2463 02467 20003 2CADR DODES
009394,000589:
009395,000590: 10,2465 12427 TCF DESLOOP
009396,000591:
009397,000592: 10,2466 20002 B14+B2 OCT 20002
009398,000593:
![]() |
Page 242 |
009400,000595: # CALCULATE GYRO TORQUE COMMANDS.
009401,000596:
009402,000597: 10,2467 00006 DODES EXTEND
009403,000598: 10,2470 30036 DCA OPTY
009404,000599: 10,2471 52424 DXCH TANG
009405,000600:
009406,000601: 10,2472 06000 TC INTPRET
009407,000602:
009408,000603: 10,2473 77775 VLOAD # MOVE TARGET VECTOR TO 32D.
009409,000604: 10,2474 00416 RRTARGET
009410,000605: 10,2475 00041 STORE 32D
009411,000606:
009412,000607: 10,2476 45014 BON RTB # DO STABLE-MEMBER TO NAVBASE TRANSFORMA-
009413,000608: 10,2477 00311 RRNBSW # TION IF TARGET IN SM COORDS. OTHERWISE,
009414,000609: 10,2500 20507 DONBRD # IN NB COORDS ALREADY.
009415,000610: 10,2501 33361 READCDUS
009416,000611:
009417,000612: 10,2502 77731 SSP
009418,000613: 10,2503 00051 S1
009419,000614: 10,2504 00024 20D # LOC OF ICDUS.
009420,000615: 10,2505 36025 STCALL 20D
009421,000616: 10,2506 32473 SMNB
009422,000617:
![]() |
Page 243 |
009424,000619: 10,2507 67201 DONBRD SETPD SLOAD # DO NAVBASE TO RADAR DISH TRANSFORMATION.
009425,000620: 10,2510 00001 0
009426,000621: 10,2511 00425 TANG +1
009427,000622: 10,2512 41424 RTB PUSH # SHAFT COMMAND = V(32D).(COS(S), 0,
009428,000623: 10,2513 33345 CDULOGIC # (-SIN(S)).
009429,000624: 10,2514 65356 SIN PDDL # SIN(S) TO 0 AND COS(S) TO 2.
009430,000625: 10,2515 41546 COS PUSH
009431,000626: 10,2516 65205 DMP PDDL
009432,000627: 10,2517 00041 32D
009433,000628: 10,2520 00045 36D
009434,000629: 10,2521 44205 DMP BDSU
009435,000630: 10,2522 00001 0
009436,000631: 10,2523 77626 STADR
009437,000632: 10,2524 77352 STORE TANG +1 # SHAFT COMMAND
009438,000633:
009439,000634: 10,2525 45135 SLOAD RTB
009440,000635: 10,2526 00424 TANG
009441,000636: 10,2527 33345 CDULOGIC
009442,000637: 10,2530 71406 PUSH COS # COS(T) TO 4.
009443,000638: 10,2531 73525 PDDL SIN
009444,000639: 10,2532 41206 PUSH DMP # SIN(T) TO 6.
009445,000640: 10,2533 00003 2
009446,000641: 10,2534 65352 SL1 PDDL # DEFINE VECTOR U = (SIN(T)SIN(S))
009447,000642: 10,2535 00005 4 # ( COS(T) )
009448,000643: 10,2536 41325 PDDL DMP # (SIN(T)COS(S))
009449,000644: 10,2537 00007 6
009450,000645: 10,2540 00001 0
009451,000646: 10,2541 55552 SL1 VDEF
009452,000647: 10,2542 77441 DOT EXIT # DOT U WITH LOS TO GET TRUNNION COMMAND.
009453,000648: 10,2543 00041 32D
009454,000649:
![]() |
Page 244 |
009456,000651: # AT THIS POINT WE HAVE A ROTATION VECTOR IN DISH AXES LYING IN THE TS PLANE. CONVERT THIS TO A
009457,000652: # COMMANDED RATE AND ENABLE THE TRACKER IF WE ARE WITHIN 1 DEGREE OF THE TARGET.
009458,000653:
009459,000654: 10,2544 40140 CS MPAC # DOT WAS NEGATIVE OF DESIRED ANGLE.
009460,000655: 10,2545 54423 TS TANG
009461,000656:
009462,000657: 10,2546 40413 CS RADMODES # A RELAY IN THE RR REVERSES POLARITY OF
009463,000658: 10,2547 77644 MASK BIT12 # THE SHAFT COMMANDS IN MODE 2 SO THAT A
009464,000659: 10,2550 10000 CCS A # POSITIVE TORQUE APPLIED TO THE SHAFT
009465,000660: 10,2551 12554 TCF +3 # GYRO CAUSES A POSITIVE CHANGE IN THE
009466,000661:
009467,000662: 10,2552 40424 CS TANG +1 # SHAFT ANGLE. COMPENSATE FOR THIS SWITCH
009468,000663: 10,2553 54424 TS TANG +1 # BY CHANGING THE POLARITY OF OUR COMMAND.
009469,000664:
009470,000665: 10,2554 37665 CAF ZERO
009471,000666: 10,2555 54141 TS MPAC +1
009472,000667: 10,2556 37657 CAF ONE
009473,000668:
009474,000669: 10,2557 54140 RRSCALUP TS MPAC
009475,000670: 10,2560 50000 INDEX A
009476,000671: 10,2561 30423 CA TANG # TRUNNION COMPONENT OF ROTATION.
009477,000672: 10,2562 00006 EXTEND
009478,000673: 10,2563 72635 MP RDESGAIN # SCALING ON INPUT ANGLE WAS 4 RADIANS.
009479,000674: 10,2564 50140 INDEX MPAC
009480,000675: 10,2565 56423 XCH TANG # MAKE EACH COMPONENT LESS THAN .7 DEGREES
009481,000676: 10,2566 04763 TC MAGSUB # BEFORE SENDING TRACK ENABLE.
009482,000677: 10,2567 77715 DEC -.00305
009483,000678: 10,2570 24141 INCR MPAC +1 # IF OUT OF BOUNDS.
009484,000679:
009485,000680: 10,2571 10140 CCS MPAC
009486,000681: 10,2572 12557 TCF RRSCALUP
009487,000682:
![]() |
Page 245 |
009489,000684: # SEE IF TRACKER SHOULD BE ENABLED OR DISABLED.
009490,000685:
009491,000686: 10,2573 00004 INHINT
009492,000687:
009493,000688: 10,2574 10413 CCS RADMODES # IF CONTINUOUS DESIGNATE WANTED, PUT OUT
009494,000689: 10,2575 12600 TCF +3 # COMMANDS WITHOUT CHECKING MAGNITUDE OF
009495,000690: 10,2576 12600 TCF +2 # ERROR SIGNALS.
009496,000691: 10,2577 12625 TCF TRKOFF
009497,000692:
009498,000693: 10,2600 10141 CCS MPAC +1 # SEE IF BOTH AXES WERE WITHIN .7 DEGS.
009499,000694: 10,2601 12625 TCF TRKOFF
009500,000695:
009501,000696: 10,2602 40061 CS STATE # IF WITHIN LIMITS AND NO LOCK-ON WANTED,
009502,000697: 10,2603 77653 MASK LOKONFLG # PROBLEM IS FINISHED.
009503,000698: 10,2604 10000 CCS A
009504,000699: 10,2605 12616 TCF RRDESDUN
009505,000700:
009506,000701: 10,2606 37642 CAF BIT14 # ENABLE THE TRACKER.
009507,000702: 10,2607 00006 EXTEND
009508,000703: 10,2610 05012 WOR 12
009509,000704:
009510,000705: 10,2611 37654 CAF BIT4 # SEE IF DATA GOOD RECEIVED YET.
009511,000706: 10,2612 00006 EXTEND
009512,000707: 10,2613 02033 RAND 33
009513,000708: 10,2614 10000 CCS A
009514,000709: 10,2615 12630 TCF DORROUT
009515,000710:
009516,000711: 10,2616 47646 RRDESDUN CS BIT10 # WHEN PROBLEM DONE, REMOVE BIT 10 SO NEXT
009517,000712: 10,2617 70413 MASK RADMODES # WAITLIST TASK WE WILL GO TO RGOODEND.
009518,000713: 10,2620 54413 TS RADMODES
009519,000714:
009520,000715: 10,2621 47656 CS BIT2
009521,000716: 10,2622 00006 EXTEND
009522,000717: 10,2623 03012 WAND 12
009523,000718: 10,2624 14440 TCF ENDOFJOB # WITH ECTR DISABLED.
009524,000719:
009525,000720: 10,2625 47642 TRKOFF CS BIT14
009526,000721: 10,2626 00006 EXTEND
009527,000722: 10,2627 03012 WAND 12
009528,000723:
009529,000724: 10,2630 40413 DORROUT CS RADMODES # PUT OUT COMMAND UNLESS MONITOR
009530,000725: 10,2631 77645 MASK BIT11 # REPOSITION HAS TAKEN OVER.
009531,000726: 10,2632 10000 CCS A
009532,000727: 10,2633 02213 TC RROUT
009533,000728:
009534,000729: 10,2634 14440 TCF ENDOFJOB
009535,000730:
009536,000731: 10,2635 21122 RDESGAIN DEC .53624 # TRIES TO NULL .5 ERROR IN .5 SEC.
009537,000732:
![]() |
Page 246 |
009539,000734: # RADAR READ INITIALIZATION
009540,000735:
009541,000736: # RADAR DATA ARE READ BY A BANKCALL FOR THE APPROPRIATE LEAD-IN BELOW.
009542,000737:
009543,000738:
009544,000739:
009545,000740: 10,2636 02652 LRALT TC INITREAD -1 # ONE SAMPLE PER READING.
009546,000741: 10,2637 00017 ALLREAD OCT 17
009547,000742:
009548,000743: 10,2640 02653 LRVELZ TC INITREAD
009549,000744: 10,2641 00016 OCT 16
009550,000745:
009551,000746: 10,2642 02653 LRVELY TC INITREAD
009552,000747: 10,2643 00015 OCT 15
009553,000748:
009554,000749: 10,2644 02653 LRVELX TC INITREAD
009555,000750: 10,2645 00014 OCT 14
009556,000751:
009557,000752: 10,2646 02652 RRRDOT TC INITREAD -1
009558,000753: 10,2647 00012 OCT 12
009559,000754:
009560,000755: 10,2650 02652 RRRANGE TC INITREAD -1
009561,000756: 10,2651 00011 OCT 11
009562,000757:
![]() |
Page 247 |
009564,000759: 10,2652 37657 -1 CAF ONE # ENTRY TO TAKE ONLY 1 SAMPLE.
009565,000760: 10,2653 00004 INITREAD INHINT
009566,000761:
009567,000762: 10,2654 54421 TS TIMEHOLD # GET DT OF MIDPOINT OF NOMINAL SAMPLING
009568,000763: 10,2655 00006 EXTEND # INTERVAL (ASSUMES NO BAD SAMPLES WILL BE
009569,000764: 10,2656 77655 MP BIT3 # ENCOUNTERED).
009570,000765: 10,2657 52422 DXCH TIMEHOLD
009571,000766:
009572,000767: 10,2660 10000 CCS A
009573,000768: 10,2661 54425 TS NSAMP
009574,000769: 10,2662 67657 AD ONE
009575,000770: # INSERT FOLLOWING INSTRUCTION TO GET 2N TRIES FOR N SAMPLES.
009576,000771: # DOUBLE
009577,000772: 10,2663 54414 TS SAMPLIM
009578,000773:
009579,000774: 10,2664 32706 CAF DGBITS # READ CURRENT VALUE OF DATA GOOD BITS.
009580,000775: 10,2665 00006 EXTEND
009581,000776: 10,2666 02033 RAND 33
009582,000777: 10,2667 54427 TS OLDATAGD
009583,000778:
009584,000779: 10,2670 42637 CS ALLREAD
009585,000780: 10,2671 00006 EXTEND
009586,000781: 10,2672 03013 WAND 13 # REMOVE ALL RADAR BITS
009587,000782:
009588,000783: 10,2673 50002 INDEX Q
009589,000784: 10,2674 30000 CAF 0
009590,000785: 10,2675 00006 EXTEND
009591,000786: 10,2676 05013 WOR 13 # SET NEW RADAR BITS
009592,000787:
009593,000788: 10,2677 00006 EXTEND
009594,000789: 10,2700 30025 DCA TIME2
009595,000790: 10,2701 20422 DAS TIMEHOLD # TIME OF NOMINAL MIDPOINT.
009596,000791:
009597,000792: 10,2702 37665 CAF ZERO
009598,000793: 10,2703 54001 TS L
009599,000794: 10,2704 52416 DXCH SAMPLSUM
009600,000795: 10,2705 12302 TCF ROADBACK
009601,000796:
009602,000797: 10,2706 00230 DGBITS OCT 230
009603,000798:
![]() |
Page 248 |
009605,000800: # RADAR RUPT READER
009606,000801:
009607,000802: # THIS ROUTINE STARTS FROM A RADARUPT. IT READS THE DATA $ LOTS MORE.
009608,000803:
009609,000804: 10,2707 54016 RADAREAD TS BANKRUPT
009610,000805: 10,2710 00006 EXTEND
009611,000806: 10,2711 22012 QXCH QRUPT
009612,000807:
009613,000808: 10,2712 00006 ANGLREAD EXTEND
009614,000809: 10,2713 30036 DCA OPTY
009615,000810: 10,2714 52420 DXCH OPTYHOLD # SAVE RAW CDU ANGLES
009616,000811:
009617,000812: 10,2715 10414 TRYCOUNT CCS SAMPLIM
009618,000813: 10,2716 12730 TCF PLENTY
009619,000814: 10,2717 12723 TCF NOMORE
009620,000815: 10,2720 05413 TC ALARM
009621,000816: 10,2721 00520 OCT 520
009622,000817: 10,2722 04606 TC RESUME
009623,000818:
009624,000819: 10,2723 05413 NOMORE TC ALARM
009625,000820: 10,2724 00521 OCT 521
009626,000821: 10,2725 47657 BADRAD CS ONE
009627,000822: 10,2726 54414 TS SAMPLIM
009628,000823: 10,2727 03247 TC RDBADEND -2
009629,000824:
009630,000825: 10,2730 54414 PLENTY TS SAMPLIM
009631,000826: 10,2731 37655 CAF BIT3
009632,000827: 10,2732 00006 EXTEND
009633,000828: 10,2733 02013 RAND 13 # TO FIND OUT WHICH RADAR
009634,000829: 10,2734 00006 EXTEND
009635,000830: 10,2735 13014 BZF RENDRAD
009636,000831:
009637,000832: 10,2736 30413 LRPOSCHK CA RADMODES # SEE IF LR IN DESIRED POSITION.
009638,000833: 10,2737 00006 EXTEND
009639,000834: 10,2740 06033 RXOR 33
009640,000835: 10,2741 77652 MASK BIT6
009641,000836: 10,2742 00006 EXTEND
009642,000837: 10,2743 12747 BZF VELCHK
009643,000838:
009644,000839: 10,2744 05413 TC ALARM
009645,000840: 10,2745 00522 OCT 522
009646,000841: 10,2746 02725 TC BADRAD
009647,000842:
009648,000843: 10,2747 36165 VELCHK CAF BIN3 # = 00003 OCT
009649,000844: 10,2750 00006 EXTEND
009650,000845: 10,2751 06013 RXOR 13
009651,000846: 10,2752 76165 MASK BIN3
009652,000847: 10,2753 00006 EXTEND
009653,000848: 10,2754 13010 BZF LRHEIGHT # TAKE A LR RANGE READING
009654,000849:
![]() |
Page 249 |
009656,000851: 10,2755 37637 CAF POSMAX
009657,000852: 10,2756 70046 MASK RNRAD
009658,000853: 10,2757 63167 AD LVELBIAS
009659,000854: 10,2760 54001 TS L
009660,000855: 10,2761 30046 CAE RNRAD
009661,000856: 10,2762 60000 DOUBLE
009662,000857: 10,2763 77657 MASK BIT1
009663,000858: 10,2764 52071 DXCH ITEMP3
009664,000859:
009665,000860: 10,2765 37650 CAF BIT8 # DATA GOOD ISNT CHECKED UNTIL AFTER READ-
009666,000861: 10,2766 03137 TC DGCHECK # ING DATA SO SOME RADAR TESTS WILL WORK
009667,000862: # INDEPENDENT OF DATA GOOD.
009668,000863:
009669,000864: 10,2767 10425 CCS NSAMP
009670,000865: 10,2770 03000 TC NOEND
009671,000866: 10,2771 47657 GOODRAD CS ONE
009672,000867: 10,2772 54414 TS SAMPLIM
009673,000868: 10,2773 40065 CS ITEMP1 # WHEN ENOUGH GOOD DATA HAS BEEN GATHERED,
009674,000869: 10,2774 70413 MASK RADMODES # RESET DATA FAIL FLAGS FOR SETTRKF.
009675,000870: 10,2775 54413 TS RADMODES
009676,000871: 10,2776 05042 TC SETTRKF # LAMP MIGHT GO OFF IF DATA JUST GOOD.
009677,000872: 10,2777 03242 TC RGOODEND -2
009678,000873:
009679,000874: 10,3000 54425 NOEND TS NSAMP
009680,000875: 10,3001 10414 RESAMPLE CCS SAMPLIM # SEE IF ANY MORE TRIES SHOULD BE MADE.
009681,000876: 10,3002 13004 TCF +2
009682,000877: 10,3003 13156 TCF DATAFAIL # N SAMPLES NOT AVAILABLE.
009683,000878: 10,3004 37654 CAF BIT4 # RESET ACTIVITY BIT.
009684,000879: 10,3005 00006 EXTEND
009685,000880: 10,3006 05013 WOR 13 # RESET ACTIVITY BIT
009686,000881: 10,3007 04606 TC RESUME
009687,000882:
009688,000883:
009689,000884: 10,3010 37653 LRHEIGHT CAF BIT5
009690,000885: 10,3011 54065 TS ITEMP1 # (POSITION OF DATA GOOD BIT IN CHAN 33)
009691,000886:
009692,000887: 10,3012 37647 CAF BIT9
009693,000888: 10,3013 03047 TC SCALECHK -1
009694,000889:
009695,000890: 10,3014 37645 RENDRAD CAF BIT11 # MAKE SURE ANTENNA HAS NOT GONE OUT OF
009696,000891: 10,3015 70413 MASK RADMODES # LIMITS.
009697,000892: 10,3016 10000 CCS A
009698,000893: 10,3017 12725 TCF BADRAD
009699,000894:
009700,000895: 10,3020 40413 CS RADMODES # BE SURE RR CDU HASNT FAILED.
009701,000896: 10,3021 77651 MASK BIT7
009702,000897: 10,3022 10000 CCS A
009703,000898: 10,3023 12725 TCF BADRAD
009704,000899:
![]() |
Page 250 |
009706,000901: 10,3024 37644 CAF BIT12 # DONT ACCEPT RR DATA IF TRUNNION MORE
009707,000902: 10,3025 70413 MASK RADMODES # THAN 55 DEGREES FROM NOMINAL POSITION.
009708,000903: 10,3026 10000 CCS A
009709,000904: 10,3027 37641 CAF BIT15 # 180 FOR MODE 2 - 0 FOR MODE 1.
009710,000905: 10,3030 00006 EXTEND
009711,000906: 10,3031 20035 MSU OPTY
009712,000907: 10,3032 04763 TC MAGSUB
009713,000908: 10,3033 66161 DEC -.30555 # 55 DEGS AT HALF-REVS.
009714,000909: 10,3034 12725 TCF BADRAD
009715,000910:
009716,000911: 10,3035 37654 CAF BIT4 # SEE IF DATA HAS BEEN GOOD.
009717,000912: 10,3036 54065 TS ITEMP1 # (POSITION OF DATA GOOD BIT IN CHAN 33)
009718,000913:
009719,000914: 10,3037 37657 CAF BIT1 # SEE IF RR RDOT.
009720,000915: 10,3040 00006 EXTEND
009721,000916: 10,3041 02013 RAND 13
009722,000917: 10,3042 54002 TS Q # FOR LATER TESTING.
009723,000918: 10,3043 10000 CCS A
009724,000919: 10,3044 13046 TCF +2
009725,000920: 10,3045 13060 TCF RADIN # NO SCALE CHECK FOR RR RDOT.
009726,000921: 10,3046 37655 CAF BIT3
009727,000922: 10,3047 54001 TS L
009728,000923:
009729,000924: 10,3050 00006 SCALECHK EXTEND
009730,000925: 10,3051 02033 RAND 33 # SCALE STATUS NOW
009731,000926: 10,3052 56001 XCH L
009732,000927: 10,3053 70413 MASK RADMODES # SCALE STATUS BEFORE
009733,000928: 10,3054 00006 EXTEND
009734,000929: 10,3055 06001 RXOR 01 # SEE IF THEY DIFFER
009735,000930: 10,3056 10000 CCS A
009736,000931: 10,3057 03077 TC SCALCHNG # THEY DIFFER
009737,000932:
009738,000933: 10,3060 37637 RADIN CAF POSMAX
009739,000934: 10,3061 70046 MASK RNRAD
009740,000935: 10,3062 54071 TS ITEMP4
009741,000936:
009742,000937: 10,3063 30046 CAE RNRAD
009743,000938: 10,3064 60000 DOUBLE
009744,000939: 10,3065 77657 MASK BIT1
009745,000940: 10,3066 54070 TS ITEMP3
009746,000941:
009747,000942: 10,3067 10002 CCS Q # SEE IF RR RDOT.
009748,000943: 10,3070 13111 TCF SCALADJ # NO, BUT SCALE CHANGING MAY BE NEEDED.
009749,000944:
009750,000945: 10,3071 00006 EXTEND # IF RR RANGE RATE, THROW OUT BIAS.
009751,000946: 10,3072 43171 DCS RDOTBIAS
009752,000947: 10,3073 20071 DASAMPL DAS ITEMP3
009753,000948: 10,3074 30065 DGCHECK2 CA ITEMP1 # SEE THAT DATA HAS BEEN GOOD BEFORE AND
009754,000949: 10,3075 03140 TC DGCHECK +1 # AFTER TAKING SAMPLE.
009755,000950: 10,3076 02771 TC GOODRAD
009756,000951:
![]() |
Page 251 |
009758,000953: 10,3077 22413 SCALCHNG LXCH RADMODES
009759,000954: 10,3100 67657 AD BIT1
009760,000955: 10,3101 00006 EXTEND
009761,000956: 10,3102 06001 RXOR 01
009762,000957: 10,3103 54413 TS RADMODES
009763,000958: 10,3104 32706 CAF DGBITS # UPDATE LAST VALUE OF DATA GOOD BITS.
009764,000959: 10,3105 00006 EXTEND
009765,000960: 10,3106 02033 RAND 33
009766,000961: 10,3107 54427 TS OLDATAGD
009767,000962: 10,3110 12725 TCF BADRAD
009768,000963:
![]() |
Page 252 |
009770,000965: # THE FOLLOWING ROUTINE INCORPORATES RR RANGE AND LR ALT SCALE INFORMATION AND LEAVES DATA AT LO SCALE.
009771,000966:
009772,000967: 10,3111 10001 SCALADJ CCS L # L HAS SCALE INBIT FOR THIS RADAR.
009773,000968: 10,3112 13114 TCF +2 # ON HIGH SCALE.
009774,000969: 10,3113 13074 TCF DGCHECK2
009775,000970:
009776,000971: 10,3114 52071 DXCH ITEMP3
009777,000972: 10,3115 20001 DDOUBL
009778,000973: 10,3116 20001 DDOUBL
009779,000974: 10,3117 20001 DDOUBL
009780,000975: 10,3120 52071 DXCH ITEMP3
009781,000976:
009782,000977: 10,3121 37655 CAF BIT3 # SEE IF LR OR RR.
009783,000978: 10,3122 00006 EXTEND
009784,000979: 10,3123 02013 RAND 13
009785,000980: 10,3124 00006 EXTEND # IF RR, NO MORE ACTION REQUIRED.
009786,000981: 10,3125 13074 BZF DGCHECK2
009787,000982:
009788,000983: 10,3126 33166 CAF LRRATIO # IF LR, CONVERT TO LO SCALING.
009789,000984: 10,3127 00006 EXTEND
009790,000985: 10,3130 70071 MP ITEMP4
009791,000986: 10,3131 54071 TS ITEMP4
009792,000987: 10,3132 37665 CAF ZERO # (SO SUBSEQUENT DAS WILL BE OK)
009793,000988: 10,3133 56070 XCH ITEMP3
009794,000989: 10,3134 00006 EXTEND
009795,000990: 10,3135 73166 MP LRRATIO
009796,000991: 10,3136 13073 TCF DASAMPL
009797,000992:
![]() |
Page 253 |
009799,000994: 10,3137 54065 DGCHECK TS ITEMP1 # UPDATE DATA GOOD BIT IN OLDATAGD AND
009800,000995: 10,3140 00006 EXTEND # MAKE SURE IT WAS ON BEFORE AND AFTER THE
009801,000996: 10,3141 02033 RAND 33 # SAMPLE WAS TAKEN BEFORE RETURNING. IF
009802,000997: 10,3142 54001 TS L # NOT, GOES TO RESAMPLE TO TRY AGAIN. IF
009803,000998: 10,3143 40065 CS ITEMP1 # MAX NUMBER OF TRIES HAS BEEN REACHED,
009804,000999: 10,3144 70427 MASK OLDATAGD # THE BIT CORRESPONDING TO THE DATA GOOD
009805,001000: 10,3145 60001 AD L # WHICH FAILED TO APPEAR IS IN ITEMP1 AND
009806,001001: 10,3146 56427 XCH OLDATAGD # CAN BE USED TO SET RADMODES WHICH VIA
009807,001002: 10,3147 70065 MASK ITEMP1 # SETTRKF SETS THE TRACKER FAIL LAMP.
009808,001003: 10,3150 60001 AD L
009809,001004: 10,3151 10000 CCS A # SHOULD BOTH BE ZERO.
009810,001005: 10,3152 03001 TC RESAMPLE
009811,001006: 10,3153 52071 DXCH ITEMP3 # IF DATA GOOD BEFORE AND AFTER, ADD TO
009812,001007: 10,3154 20416 DAS SAMPLSUM # ACCUMULATION.
009813,001008: 10,3155 00002 TC Q
009814,001009:
009815,001010: 10,3156 40065 DATAFAIL CS ITEMP1 # IN THE ABOVE CASE, SET RADMODES BIT
009816,001011: 10,3157 70413 MASK RADMODES # SHOWING SOME RADAR DATA FAILED.
009817,001012: 10,3160 60065 AD ITEMP1
009818,001013: 10,3161 54413 TS RADMODES
009819,001014:
009820,001015: 10,3162 52071 DXCH ITEMP3 # IF WE HAVE BEEN UNABLE TO GATHER N
009821,001016: 10,3163 52416 DXCH SAMPLSUM # SAMPLES, USE LAST ONE ONLY.
009822,001017:
009823,001018: 10,3164 05042 TC SETTRKF
009824,001019:
009825,001020: 10,3165 12723 TCF NOMORE
009826,001021:
009827,001022: 10,3166 23773 LRRATIO DEC 4.9977 B-3
009828,001023: 10,3167 50437 LVELBIAS DEC -12000 B-14 # LANDING RADAR VELOCITY BIAS.
009829,001024: 10,3170 00001 01150 RDOTBIAS 2DEC 17000 B-28 # BIAS COUNT FOR RR RANGE RATE
009830,001025:
![]() |
Page 254 |
009832,001027: # THIS ROUTINE CHANGES THE LR POSITION, AND CHECKS THAT IT GOT THERE.
009833,001028:
009834,001029: 10,3172 00004 LRPOS2 INHINT
009835,001030:
009836,001031: 10,3173 47652 CS BIT6 # DESIRED LR POSITION IS NOW 2.
009837,001032: 10,3174 70413 MASK RADMODES
009838,001033: 10,3175 67652 AD BIT6
009839,001034: 10,3176 54413 TS RADMODES
009840,001035:
009841,001036: 10,3177 37651 CAF BIT7
009842,001037: 10,3200 00006 EXTEND
009843,001038: 10,3201 02033 RAND 33 # SEE IF ALREADY THERE.
009844,001039: 10,3202 00006 EXTEND
009845,001040: 10,3203 13227 BZF RADNOOP
009846,001041:
009847,001042: 10,3204 37643 CAF BIT13
009848,001043: 10,3205 00006 EXTEND
009849,001044: 10,3206 05012 WOR 12 # COMMAND TO POSITION 2
009850,001045:
009851,001046: 10,3207 33234 CAF 5SECS
009852,001047: 10,3210 04536 TC WAITLIST
009853,001048: 10,3211 03214 20003 2CADR MAKESURE
009854,001049:
009855,001050: 10,3213 02302 TC ROADBACK
009856,001051:
009857,001052: 10,3214 47643 MAKESURE CS BIT13 # REMOVE LR POSITION COMMAND OUTBIT.
009858,001053: 10,3215 00006 EXTEND
009859,001054: 10,3216 03012 WAND 12
009860,001055:
009861,001056: 10,3217 37651 CAF BIT7
009862,001057: 10,3220 00006 EXTEND
009863,001058: 10,3221 02033 RAND 33
009864,001059: 10,3222 00006 EXTEND
009865,001060: 10,3223 13244 BZF RGOODEND
009866,001061:
009867,001062: 10,3224 05413 TC ALARM # LR ANTENNA DIDNT MAKE IT.
009868,001063: 10,3225 00523 OCT 523
009869,001064: 10,3226 13251 TCF RDBADEND
009870,001065:
009871,001066: 10,3227 37657 RADNOOP CAF ONE # NO FURTHER ACTION REQUESTED.
009872,001067: 10,3230 04536 TC WAITLIST
009873,001068: 10,3231 03244 20003 2CADR RGOODEND
009874,001069:
009875,001070: 10,3233 02302 TC ROADBACK
009876,001071:
009877,001072: 10,3234 00764 5SECS DEC 5 E2
009878,001073:
![]() |
Page 255 |
009880,001075: # SEQUENCES TO TERMINATE RR OPERATIONS.
009881,001076:
009882,001077: 10,3235 37651 ENDRADAR CAF BIT7 # PROLOG TO CHECK RR CDU FAIL BEFORE END.
009883,001078: 10,3236 70413 MASK RADMODES
009884,001079: 10,3237 10000 CCS A
009885,001080: 10,3240 13244 TCF RGOODEND
009886,001081: 10,3241 13251 TCF RDBADEND
009887,001082: 10,3242 47665 -2 CS ZERO # RGOODEND WHEN NOT UNDER WAITLIST CONTROL
009888,001083: 10,3243 55070 TS RUPTAGN
009889,001084:
009890,001085: 10,3244 37656 RGOODEND CAF TWO
009891,001086: 10,3245 04102 TC POSTJUMP
009892,001087: 10,3246 26667 CADR GOODEND
009893,001088:
009894,001089: 10,3247 47665 -2 CS ZERO # RDBADEND WHEN NOT UNDER WAITLIST.
009895,001090: 10,3250 55070 TS RUPTAGN
009896,001091: 10,3251 37656 RDBADEND CAF TWO
009897,001092: 10,3252 04102 TC POSTJUMP
009898,001093: 10,3253 26664 CADR BADEND
009899,001094:
009900,001095: 10,3254 6165 BIN3 EQUALS THREE
009901,001096: 10,3254 ENDRMODS EQUALS
End of include-file RADAR_LEAD-IN_ROUTINES.agc. Parent file is MAIN.agc