Source Code
|
These source-code files are part of a reconstructed copy of Aurora 88, the
final release of the Lunar Module (LM) Apollo Guidance Computer (AGC) system
test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-011, 2003972-091, and 2003972-111, belonging to Steve Jurvetson. Since only binary dumps (rather than listings) of Aurora 88 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
007709,000002: ## Copyright: Public domain.
007710,000003: ## Filename: RADAR_LEAD-IN_ROUTINES.agc
007711,000004: ## Purpose: A section of Aurora 88.
007712,000005: ## It is part of the reconstructed source code for the final
007713,000006: ## release of the Lunar Module system test software. No original
007714,000007: ## listings of this program are available; instead, this file
007715,000008: ## was created via disassembly of dumps of Aurora 88 core rope
007716,000009: ## modules and comparison with other AGC programs.
007717,000010: ## Assembler: yaYUL
007718,000011: ## Contact: Ron Burkey <info@sandroid.org>.
007719,000012: ## Website: www.ibiblio.org/apollo/index.html
007720,000013: ## Mod history: 2023-06-30 MAS Created from Aurora 12.
007721,000014: ## 2023-07-12 MAS Updated for Aurora 88.
007722,000015:
007723,000016:
007724,000017: 4666 SETLOC ENDIMODF
007725,000018: 4666 E3,1457 EBANK= RRRET
007726,000019:
007727,000020: # THE FOLLOWING SUBROUTINE RETURNS TO CALLER + 2 IF THE ABSOLUTE VALUE OF C(A) IS GREATER THAN THE
007728,000021: # NEGATIVE OF THE NUMBER AT CALLER +1. OTHERWISE IT RETURNS TO CALLER +3. MAY BE CALLED IN RUPT OR UNDER EXEC.
007729,000022:
007730,000023: 4666 00006 MAGSUB EXTEND
007731,000024: 4667 64671 BZMF +2
007732,000025: 4670 14672 TCF +2
007733,000026: 4671 40000 COM
007734,000027:
007735,000028: 4672 50002 INDEX Q
007736,000029: 4673 60000 AD 0
007737,000030: 4674 00006 EXTEND
007738,000031: 4675 64700 BZMF +3 # ABS(A) G CONST
007739,000032: 4676 50002 INDEX Q
007740,000033: 4677 00001 TC 1 # ABS(A) LEQ CONST
007741,000034:
007742,000035: 4700 50002 MAGLESS INDEX Q
007743,000036: 4701 00002 TC 2
007744,000037:
007745,000038: # THE FOLLOWING SUBROUTINE CHECKS RR GIMBAL ANGLES TO SEE IF THEY ARE IN THE LIMITS OF THE CURRENT MODE.
007746,000039: # CALLING SEQUENCE IS AS FOLLOWS:
007747,000040:
007748,000041: # TC RRLIMCHK (WITH INTERRUPT INHIBITED).
007749,000042: # ADRES T,S (IN UNSWITCHED E OR CURRENT EBANK).
007750,000043:
007751,000044: # RETURN IS TO CALLER +2 IF NOT IN LIMITS AND TO CALLER +3 IF SO.
007752,000045:
007753,000046: 4702 50002 RRLIMCHK INDEX Q # READ GIMBAL ANGLES INTO ITEMP STORAGE.
007754,000047: 4703 30000 CAF 0
007755,000048: 4704 24002 INCR Q
007756,000049: 4705 00006 EXTEND
007757,000050: 4706 50000 INDEX A
007758,000051: 4707 30001 DCA 0
007759,000052: 4710 52066 DXCH ITEMP1
007760,000053: 4711 22002 LXCH Q # L(CALLER +2) TO L.
007761,000054:
007762,000055: 4712 37637 CAF BIT12 # SEE WHICH MODE RR IS IN.
007763,000056: 4713 70413 MASK RADMODES
007764,000057: 4714 10000 CCS A
007765,000058: 4715 14730 TCF MODE2CHK
007766,000059:
007767,000060: 4716 30065 CA ITEMP1 # MODE 1 IS DEFINED AS
007768,000061: 4717 04666 TC MAGSUB # 1. ABS(T) L 70 DEGS.
007769,000062: 4720 63434 DEC -.38885 # 2. ABS(S + 5 DEGS) L 65 DEGS
007770,000063: 4721 00001 TC L # (SHAFT LIMITS AT +59, -70 DEGS)
007771,000064:
007772,000065: 4722 34742 CAF 5DEGS
007773,000066: 4723 60066 AD ITEMP2 # S
007774,000067: 4724 04666 TC MAGSUB
007775,000068: 4725 64343 DEC -.36108 # 65 DEGS
007776,000069: 4726 00001 TC L
007777,000070: 4727 04740 TC RRLIMOK # IN LIMITS.
007778,000071:
007779,000072: 4730 34743 MODE2CHK CAF 82.5DEGS # MODE 2 IS DEFINED AS
007780,000073: 4731 60066 AD ITEMP2 # 1. ABS(T) G 110 DEGS
007781,000074: 4732 04666 TC MAGSUB # 2. ABS(S + 82.5 DEGS) L 57.5 DEGS
007782,000075: 4733 65615 DEC -.31946 # (SHAFT LIMITS AT -25, -139 DEGS)
007783,000076: 4734 00001 TC L
007784,000077:
007785,000078: 4735 30065 CA ITEMP1
007786,000079: 4736 04666 TC MAGSUB
007787,000080: 4737 54343 DEC -.61111 # 110 DEGS
007788,000081:
007789,000082: 4740 50001 RRLIMOK INDEX L
007790,000083: 4741 00001 TC L # ( = TC 1)
007791,000084:
007792,000085: 4742 00707 5DEGS DEC .02777 # SCALED IN HALF-REVOLUTIONS.
007793,000086: 4743 16525 82.5DEGS DEC .45831
007794,000087:
007795,000088: # THE FOLLOWING ROUTINE UPDATES THE TRACKER FAIL LAMP ON THE DSKY, IF EITHER:
007796,000089:
007797,000090: # 1. N SAMPLES OF RR DATA COULD NOT BE OBTAINED FROM 2N TRIES
007798,000091: # 2. N SAMPLES OF LR DATA COULD NOT BE TAKEN IN 2N TRIES WITH EITHER THE ALT OR VEL INFORMATION.
007799,000092: # 3. RR CDU FAILED WITH RR IN AUTO MODE AND RR CDU NOT BEING ZEROED.
007800,000093:
007801,000094: 4744 37652 SETTRKF CAF BIT1 # NO ACTION IF DURING LAMP TEST.
007802,000095: 4745 70370 MASK IMODES33
007803,000096: 4746 10000 CCS A
007804,000097: 4747 00002 TC Q
007805,000098:
007806,000099: 4750 35000 CAF 13,7,2 # SEE IF CDU FAILED.
007807,000100: 4751 70413 MASK RADMODES
007808,000101: 4752 00006 EXTEND
007809,000102: 4753 14763 BZF TRKFLON # CONDITION 3 ABOVE.
007810,000103:
007811,000104: 4754 40413 CS RADMODES # SEE IF LR FAILED.
007812,000105: 4755 75001 MASK 8,5
007813,000106: 4756 00006 EXTEND
007814,000107: 4757 14763 BZF TRKFLON # CONDITION 2 ABOVE.
007815,000108:
007816,000109: 4760 37647 CAF BIT4 # SEE IF RR DATA FAILED.
007817,000110: 4761 70413 MASK RADMODES
007818,000111: 4762 10000 CCS A
007819,000112: 4763 37643 TRKFLON CAF BIT8
007820,000113: 4764 60322 AD DSPTAB +11D # HALF ADD DESIRED AND PRESENT STATES.
007821,000114: 4765 77643 MASK BIT8
007822,000115: 4766 00006 EXTEND
007823,000116: 4767 14615 BZF TCQ # NO CHANGE.
007824,000117:
007825,000118: 4770 54001 TS L # INVERT BIT 8 AND SET BIT 15.
007826,000119: 4771 30322 CA DSPTAB +11D # CANT USE LXCH DSPTAB +11D (RESTART PROB)
007827,000120: 4772 00006 EXTEND
007828,000121: 4773 06001 RXOR L
007829,000122: 4774 77632 MASK POSMAX
007830,000123: 4775 67634 AD BIT15
007831,000124: 4776 54322 TS DSPTAB +11D
007832,000125: 4777 00002 TC Q
007833,000126:
007834,000127: 5000 10102 13,7,2 OCT 10102
007835,000128: 5001 00220 8,5 OCT 00220
007836,000129:
007837,000130: 5002 ENDRMODF EQUALS
007838,000131:
007839,000132: # TURNON SEQUENCE TO ZERO THE CDUS AND DETERMINE THE RR MODE.
007840,000133:
007841,000134: 10,2000 BANK 10
007842,000135:
007843,000136: 10,2000 02013 RRTURNON TC RRZEROSB
007844,000137: 10,2001 04467 TC FIXDELAY # WAIT 1 SEC BEFORE REMOVING TURN ON FLAG
007845,000138: 10,2002 00144 DEC 100 B-14 # SO A MONITOR REPOSITION WONT ALARM.
007846,000139: 10,2003 47652 CS BIT1
007847,000140: 10,2004 70413 MASK RADMODES
007848,000141: 10,2005 54413 TS RADMODES
007849,000142: 10,2006 40061 CS STATE # SEE IF SOMEONE IS WAITING TO USE THE RR.
007850,000143: 10,2007 77644 MASK RRUSEFLG
007851,000144: 10,2010 10000 CCS A
007852,000145: 10,2011 14505 TCF TASKOVER
007853,000146:
007854,000147: 10,2012 13236 TCF ENDRADAR # CHECK RR CDU FAIL BEFORE EXIT.
007855,000148:
007856,000149: # CLOSED SUBROUTINE TO ZERO THE RR CDUS.
007857,000150:
007858,000151: 10,2013 00006 RRZEROSB EXTEND
007859,000152: 10,2014 23457 QXCH RRRET
007860,000153: 10,2015 37652 CAF BIT1 # BIT 13 OF RADMODES MUST BE SET BEFORE
007861,000154: 10,2016 00006 EXTEND # COMING HERE.
007862,000155: 10,2017 05012 WOR 12
007863,000156: 10,2020 04467 TC FIXDELAY
007864,000157: 10,2021 00002 DEC 2 B-14
007865,000158:
007866,000159: 10,2022 37657 CAF ZERO
007867,000160: 10,2023 54035 TS OPTY
007868,000161: 10,2024 54036 TS OPTX
007869,000162: 10,2025 47652 CS ONE # REMOVE ZEROING BIT.
007870,000163: 10,2026 00006 EXTEND
007871,000164: 10,2027 03012 WAND 12
007872,000165: 10,2030 04467 TC FIXDELAY
007873,000166: 10,2031 00620 DEC 400 B-14
007874,000167:
007875,000168: 10,2032 47636 CS BIT13 # REMOVE ZEROING IN PROCESS BIT.
007876,000169: 10,2033 70413 MASK RADMODES
007877,000170: 10,2034 54413 TS RADMODES
007878,000171:
007879,000172: 10,2035 30035 CA OPTY
007880,000173: 10,2036 04666 TC MAGSUB
007881,000174: 10,2037 57777 DEC -.5
007882,000175: 10,2040 12043 TCF +3 # IF MODE 2.
007883,000176:
007884,000177: 10,2041 37657 CAF ZERO
007885,000178: 10,2042 12044 TCF +2
007886,000179: 10,2043 37637 CAF BIT12
007887,000180: 10,2044 56413 XCH RADMODES
007888,000181: 10,2045 74273 MASK -BIT12
007889,000182: 10,2046 26413 ADS RADMODES
007890,000183:
007891,000184: 10,2047 04744 TC SETTRKF # TRACKER LAMP MIGHT GO ON NOW.
007892,000185:
007893,000186: 10,2050 01457 TC RRRET # DONE.
007894,000187:
007895,000188: 10,2051 4273 -BIT12 EQUALS -1/8 # IN SPROOT
007896,000189:
007897,000190: # SEQUENCE OF TASKS TO DRIVE THE RR TO A SAFE POSITION.
007898,000191:
007899,000192: 10,2051 02106 DORREPOS TC SETRRECR # SET UP RR CDU ERROR COUNTERS.
007900,000193:
007901,000194: 10,2052 37652 CAF BIT1 # DO AN ALARM UNLESS RR JUST TURNED ON.
007902,000195: 10,2053 70413 MASK RADMODES
007903,000196: 10,2054 10000 CCS A
007904,000197: 10,2055 12060 TCF +3
007905,000198:
007906,000199: 10,2056 05315 TC ALARM
007907,000200: 10,2057 00501 OCT 501
007908,000201: 10,2060 04467 TC FIXDELAY
007909,000202: 10,2061 00002 DEC 2 B-14
007910,000203:
007911,000204: 10,2062 37637 CAF BIT12 # MANEUVER TRUNNION ANGLE TO NOMINAL POS.
007912,000205: 10,2063 70413 MASK RADMODES
007913,000206: 10,2064 10000 CCS A
007914,000207: 10,2065 37634 CAF BIT15 # 0 FOR MODE 1 AND 180 FOR MODE 2.
007915,000208: 10,2066 02147 TC RRTONLY
007916,000209:
007917,000210: 10,2067 37637 CAF BIT12 # NOW PUT SHAFT IN RIGHT POSITION.
007918,000211: 10,2070 70413 MASK RADMODES
007919,000212: 10,2071 10000 CCS A
007920,000213: 10,2072 47635 CS HALF # -90 FOR MODE 2.
007921,000214: 10,2073 02152 TC RRSONLY
007922,000215:
007923,000216: 10,2074 47640 REPOSRPT CS BIT11 # RETURNS HERE FROM RR1AXIS IF REMODE
007924,000217: # REQUESTED DURING REPOSITION.
007925,000218: 10,2075 70413 MASK RADMODES # REMOVE REPOSITION BIT.
007926,000219: 10,2076 54413 TS RADMODES
007927,000220: 10,2077 77641 MASK BIT10 # SEE IF SOMEONE IS WAITING TO DESIGNATE.
007928,000221: 10,2100 10000 CCS A
007929,000222: 10,2101 12421 TCF BEGDES
007930,000223: 10,2102 47651 CS BIT2 # IF NO FURTHER ANTENNA CONTROL REQUIRED,
007931,000224: 10,2103 00006 EXTEND # REMOVE ERROR COUNTER ENABLE.
007932,000225: 10,2104 03012 WAND 12
007933,000226: 10,2105 14505 TCF TASKOVER
007934,000227:
007935,000228: 10,2106 37651 SETRRECR CAF BIT2 # SET UP RR ERROR COUNTERS.
007936,000229: 10,2107 00006 EXTEND
007937,000230: 10,2110 05012 WOR 12
007938,000231:
007939,000232: 10,2111 37657 CAF ZERO
007940,000233: 10,2112 54362 TS LASTYCMD
007941,000234: 10,2113 54363 TS LASTXCMD
007942,000235: 10,2114 00002 TC Q
007943,000236:
007944,000237: # GENERAL REMODING SUBROUTINE. DRIVES TRUNION TO 0 (180), THEN DRIVES SHAFT TO -45, AND FINALLY DRIVES
007945,000238: # TRUNNION TO -130 (-50) BEFORE INITIATING 2-AXIS CONTROL. ALL RE-MODING IONE WITH SINGLE AXIS ROTATIONS (RR1AXIS)
007946,000239: 10,2115 37637 REMODE CAF BIT12 # DRIVE TRUNNION TO 0 (180).
007947,000240: 10,2116 70413 MASK RADMODES # (ERROR COUNTER ALREADY ENABLED)
007948,000241: 10,2117 10000 CCS A
007949,000242: 10,2120 37634 CAF BIT15
007950,000243: 10,2121 02147 TC RRTONLY
007951,000244:
007952,000245: 10,2122 32137 CAF -45DEGSR
007953,000246: 10,2123 02152 TC RRSONLY
007954,000247:
007955,000248: 10,2124 40413 CS RADMODES
007956,000249: 10,2125 77637 MASK BIT12
007957,000250: 10,2126 10000 CCS A
007958,000251: 10,2127 32140 CAF -60DEGSR # GO TO T = -130 (-50).
007959,000252: 10,2130 62140 AD -60DEGSR
007960,000253: 10,2131 02147 TC RRTONLY
007961,000254:
007962,000255: 10,2132 02141 TC RMODINV
007963,000256:
007964,000257: 10,2133 47635 CS BIT14 # END OF REMODE.
007965,000258: 10,2134 70413 MASK RADMODES
007966,000259: 10,2135 54413 TS RADMODES
007967,000260:
007968,000261: 10,2136 02430 TC STDESIG # BEGIN 2-AXIS CONTROL.
007969,000262:
007970,000263: 10,2137 70000 -45DEGSR OCT 70000
007971,000264: 10,2140 65252 -60DEGSR OCT 65252
007972,000265:
007973,000266: 10,2141 22413 RMODINV LXCH RADMODES # INVERT THE MODE STATUS.
007974,000267: 10,2142 37637 CAF BIT12
007975,000268: 10,2143 00006 EXTEND
007976,000269: 10,2144 06001 RXOR L
007977,000270: 10,2145 54413 TS RADMODES
007978,000271: 10,2146 00002 TC Q
007979,000272:
007980,000273: # SUBROUTINES FOR DOING SINGLE AXIS RR MANEUVERS FOR REMODE AND REPOSITION. DRIVES TO WITHIN 1 DEGREE.
007981,000274:
007982,000275: 10,2147 55460 RRTONLY TS RDES # DESIRED TRUNION ANGLE.
007983,000276: 10,2150 37657 CAF ZERO
007984,000277: 10,2151 12154 TCF RR1AXIS
007985,000278:
007986,000279: 10,2152 55460 RRSONLY TS RDES # SHAFT COMMANDS ARE UNRESOLVED SINCE THIS
007987,000280: 10,2153 37652 CAF ONE # ROUTINE ENTERED ONLY WHEN T = 0 OR 180.
007988,000281:
007989,000282: 10,2154 55461 RR1AXIS TS RRINDEX
007990,000283: 10,2155 00006 EXTEND
007991,000284: 10,2156 23457 QXCH RRRET
007992,000285: 10,2157 12162 TCF RR1AX2
007993,000286:
007994,000287: 10,2160 04467 NXTRR1AX TC FIXDELAY
007995,000288: 10,2161 00062 DEC 50 B-14 # 2 SAMPLES PER SECOND.
007996,000289:
007997,000290: 10,2162 40413 RR1AX2 CS RADMODES # IF SOMEONE REQUESTES AS DESIGNATE WHICH
007998,000291: 10,2163 74433 MASK PRIO22 # REQUIRES A REMODE AND A REPOSITION IS IN
007999,000292: 10,2164 00006 EXTEND # PROGRESS, INTERRUPT IT AND START THE
008000,000293: 10,2165 12074 BZF REPOSRPT # REMODE IMMEDIATELY.
008001,000294:
008002,000295: 10,2166 31460 CA RDES
008003,000296: 10,2167 00006 EXTEND
008004,000297: 10,2170 51461 INDEX RRINDEX
008005,000298: 10,2171 20035 MSU OPTY
008006,000299: 10,2172 54002 TS Q # SAVE ERROR SIGNAL.
008007,000300: 10,2173 00006 EXTEND
008008,000301: 10,2174 72211 MP RRSPGAIN # TRIES TO NULL .7 OF ERROR OVER NEXT .5
008009,000302: 10,2175 54001 TS L
008010,000303: 10,2176 30002 CA Q # SEE IF WITHIN 1 DEGREE.
008011,000304: 10,2177 04666 TC MAGSUB
008012,000305: 10,2200 77644 DEC -.00555 # SCALED IN HALF-REVS.
008013,000306:
008014,000307: 10,2201 12203 TCF +2 # NO.
008015,000308: 10,2202 01457 TC RRRET # RETURN TO CALLER.
008016,000309:
008017,000310: 10,2203 11461 CCS RRINDEX # COMMAND FOR OTHER AXIS IS ZERO.
008018,000311: 10,2204 12206 TCF +2 # SETTING A TO 0.
008019,000312: 10,2205 56001 XCH L
008020,000313: 10,2206 52424 DXCH TANG
008021,000314:
008022,000315: 10,2207 02212 TC RROUT
008023,000316:
008024,000317: 10,2210 12160 TCF NXTRR1AX # COME BACK IN .5 SECONDS.
008025,000318:
008026,000319: 10,2211 22715 RRSPGAIN DEC .59062 # NULL .7 ERROR IN .5 SEC.
008027,000320:
008028,000321: # THE FOLLOWING ROUTINE RECEIVES RR GYRO COMMANDS IN TANG,+1 IN ERROR COUNTER SCALING. RROUT LIMITS THEM
008029,000322: # AND GENERATES COMMANDS TO THE CDU TO ADJUST THE ERROR COUNTERS TO THE DESIRED VALUES. RUPT MUST BE INHIBITED.
008030,000323:
008031,000324: 10,2212 22002 RROUT LXCH Q # SAVE RETURN.
008032,000325: 10,2213 37652 CAF ONE # LOOP TWICE.
008033,000326: 10,2214 54066 RROUT2 TS ITEMP2
008034,000327: 10,2215 50000 INDEX A
008035,000328: 10,2216 30423 CA TANG
008036,000329: 10,2217 54065 TS ITEMP1 # SAVE SIGN OF COMMAND FOR LIMITING.
008037,000330:
008038,000331: 10,2220 04666 TC MAGSUB # SEE IF WITHIN LMITS.
008039,000332: 10,2221 77177 -RRLIMIT DEC -384 B-14
008040,000333: 10,2222 12240 TCF RROUTLIM # LIMIT COMMAND TO MAG OF 384.
008041,000334:
008042,000335: 10,2223 30065 SETRRCTR CA ITEMP1 # COUNT OUT DIFFERENCE BETWEEN DESIRED
008043,000336: 10,2224 50066 INDEX ITEMP2 # STATE AND PRESENT STATE AS RECORDED IN
008044,000337: 10,2225 56362 XCH LASTYCMD # LASTYCMD AND LASTXCMD
008045,000338: 10,2226 40000 COM
008046,000339: 10,2227 60065 AD ITEMP1
008047,000340: 10,2230 50066 INDEX ITEMP2
008048,000341: 10,2231 54053 TS OPTYCMD
008049,000342:
008050,000343: 10,2232 10066 CCS ITEMP2 # PROCESS BOTH INPUTS.
008051,000344: 10,2233 12214 TCF RROUT2
008052,000345:
008053,000346: 10,2234 34421 CAF PRIO6 # ENABLE COUNTERS.
008054,000347: 10,2235 00006 EXTEND
008055,000348: 10,2236 05014 WOR 14
008056,000349:
008057,000350: 10,2237 00001 TC L # RETURN.
008058,000351:
008059,000352: 10,2240 10065 RROUTLIM CCS ITEMP1 # LIMIT COMMAND TO ABS VAL OF 384.
008060,000353: 10,2241 42221 CS -RRLIMIT
008061,000354: 10,2242 12244 TCF +2
008062,000355: 10,2243 32221 CA -RRLIMIT
008063,000356: 10,2244 54065 TS ITEMP1
008064,000357: 10,2245 12224 TCF SETRRCTR +1
008065,000358:
008066,000359: # ROUTINE TO ZERO THE RR CDUS AND DETERMINE THE ANTENNA MODE.
008067,000360:
008068,000361: 10,2246 00004 RRZERO INHINT
008069,000362: 10,2247 47644 CS RRUSEFLG # SET FLAG TO SHOW SOMEONE USING THE RR.
008070,000363: 10,2250 70061 MASK STATE
008071,000364: 10,2251 67644 AD RRUSEFLG
008072,000365: 10,2252 54061 TS STATE
008073,000366:
008074,000367: 10,2253 37652 CAF BIT1 # SEE IF RR COMING UP. IF SO, TURNON
008075,000368: 10,2254 70413 MASK RADMODES # PROGRAM WILL DO THE WORK.
008076,000369: 10,2255 10000 CCS A
008077,000370: 10,2256 12301 TCF ROADBACK
008078,000371:
008079,000372: 10,2257 37640 CAF BIT11 # SEE IF MONITOR REPOSITION IN PROGRESS.
008080,000373: 10,2260 70413 MASK RADMODES # IF SO, DONT RE-ZERO CDUS.
008081,000374: 10,2261 10000 CCS A
008082,000375: 10,2262 13230 TCF RADNOOP # (IMMEDIATE TASK TO RGOODEND).
008083,000376:
008084,000377: 10,2263 47636 CS BIT13 # SET FLAG TO SHOW ZEROING IN PROGRESS.
008085,000378: 10,2264 70413 MASK RADMODES
008086,000379: 10,2265 67636 AD BIT13
008087,000380: 10,2266 54413 TS RADMODES
008088,000381:
008089,000382: 10,2267 37652 CAF ONE
008090,000383: 10,2270 04451 TC WAITLIST
008091,000384: 10,2271 02303 20003 2CADR RRZ2
008092,000385:
008093,000386: 10,2273 40413 CS RADMODES # SEE IF IN AUTO MODE.
008094,000387: 10,2274 77651 MASK BIT2
008095,000388: 10,2275 10000 CCS A
008096,000389: 10,2276 12301 TCF ROADBACK
008097,000390: 10,2277 05315 TC ALARM # AUTO DISCRETE NOT PRESENT - TRYING
008098,000391: 10,2300 00510 OCT 510
008099,000392: 10,2301 00003 ROADBACK RELINT
008100,000393: 10,2302 14076 TCF SWRETURN
008101,000394:
008102,000395: 10,2303 02013 RRZ2 TC RRZEROSB # COMMON TO TURNON AND RRZERO.
008103,000396: 10,2304 13236 TCF ENDRADAR
008104,000397:
008105,000398: 10,2305 7644 RRUSEFLG EQUALS BIT7
008106,000399: 10,2305 7646 LOKONFLG EQUALS BIT5
008107,000400:
008108,000401: # STABLE-MEMBER RR DESIGNATE ROUTINE. DESIGNATE TO A SM LOS VECTOR (HALF-UNIT) IN RRTARGET. REMODES IF
008109,000402: # REQUIRED. RETURNS TO CALLER IF MANEUVER REQUIRED FOR DES AND SKIPS IF IT CAN BE DONE IN PRESENT VEH ATTITUDE.
008110,000403:
008111,000404: 10,2305 43030 RRDESSM STQ CLEAR
008112,000405: 10,2306 00427 DESRET
008113,000406: 10,2307 00271 RRNBSW
008114,000407: 10,2310 66224 RTB SSP # READ CDUS FOR SMNB.
008115,000408: 10,2311 33477 READCDUS
008116,000409: 10,2312 00051 S1
008117,000410: 10,2313 00024 20D
008118,000411: 10,2314 22025 STOVL 20D
008119,000412: 10,2315 00416 RRTARGET
008120,000413: 10,2316 36041 STCALL 32D
008121,000414: 10,2317 32473 SMNB
008122,000415:
008123,000416: 10,2320 77634 CALL # GET RR GIMBAL ANGLES IN PRESENT AND
008124,000417: 10,2321 33405 RRANGLES # ALTERNATE MODE.
008125,000418: 10,2322 77776 EXIT
008126,000419:
008127,000420: 10,2323 00004 INHINT
008128,000421: 10,2324 04702 TC RRLIMCHK
008129,000422: 10,2325 00423 ADRES MODEA # CONFIGURATION FOR CURRENT MODE.
008130,000423: 10,2326 12350 TCF TRYSWS
008131,000424:
008132,000425: 10,2327 24427 OKDESSM INCR DESRET # INCREMENT SAYS NO VEHICLE MANEUVER REQ.
008133,000426:
008134,000427: # AT THIS POINT WE ARE READY TO BEGIN DESIGNATION. THE TARGET IS STORED AS A HALF-UNIT VECTOR IN RRTARGET
008135,000428: # WITH RRNBSW SET IF IT IS REFERRED TO NAV BASE AXES. LOKONSW IS SET IF LOCKON IS DESIRED. BIT14 OF RADMODES IS
008136,000429: # SET IF A REMODE IS REQUIRED. AT THIS TIME, THE ANTENNA MAY BE IN A MONITOR REPOSITION OPERATION. IN THIS
008137,000430: # CASE, IF A REMODE IS REQUIRED IT MAY HAVE ALREADY BEGUN BUT IT ANY CASE THE REPOSITION WILL BE INTERRUPTED.
008138,000431: # OTHERWISE, THE REPOSITION WILL BE COMPLETED BEFORE 2-AXIS DESIGNATION BEGINS.
008139,000432:
008140,000433: 10,2330 32347 STARTDES CAF MAXTRIES # ALLOW 30 SECS.
008141,000434: 10,2331 54430 TS DESCOUNT
008142,000435:
008143,000436: 10,2332 37641 CAF BIT10 # SHOW DESIGNATE REQUIRED.
008144,000437: 10,2333 26413 ADS RADMODES
008145,000438: 10,2334 77640 MASK BIT11 # SEE IF REPOSITION IN PROGRESS.
008146,000439: 10,2335 10000 CCS A
008147,000440: 10,2336 12344 TCF DESRETRN # ECTR ALREADY SET UP.
008148,000441:
008149,000442: 10,2337 02106 TC SETRRECR # SET UP ERROR COUNTERS.
008150,000443:
008151,000444: 10,2340 37651 CAF TWO
008152,000445: 10,2341 04451 TC WAITLIST
008153,000446: 10,2342 02421 20003 2CADR BEGDES
008154,000447:
008155,000448: 10,2344 00003 DESRETRN RELINT # RETURN VIA DESRET
008156,000449: 10,2345 30427 +1 CA DESRET
008157,000450: 10,2346 14105 TCF BANKJUMP
008158,000451:
008159,000452: 10,2347 00074 MAXTRIES DEC 60 B-14
008160,000453:
008161,000454: # SEE IF RRDESSM CAN BE ACCOMPLISHED AFTER A REMODE.
008162,000455:
008163,000456: 10,2350 02141 TRYSWS TC RMODINV # (NOTE RUPT INHIBIT)
008164,000457: 10,2351 04702 TC RRLIMCHK # TRY DIFFERENT MODE.
008165,000458: 10,2352 00425 ADRES MODEB
008166,000459: 10,2353 12360 TCF NODESSM # VEHICLE MANEUVER REQUIRED.
008167,000460:
008168,000461: 10,2354 02141 TC RMODINV # RESET BIT12
008169,000462: 10,2355 37635 CAF BIT14 # SET FLAG FOR REMODE.
008170,000463: 10,2356 26413 ADS RADMODES
008171,000464:
008172,000465: 10,2357 12327 TCF OKDESSM
008173,000466:
008174,000467: 10,2360 02141 NODESSM TC RMODINV # RE-INVERT MODE AND RETURN WITHOUT IN-
008175,000468: 10,2361 12344 TCF DESRETRN # CREMENTING DESRET
008176,000469:
008177,000470: # DESIGNATE TO SPECIFIC RR GIMBAL ANGLES (INDEPENDENT OF VEHICLE MOTION). ENTER WITH DESIRED ANGLES IN
008178,000471: # TANG AND TANG +1.
008179,000472:
008180,000473: 10,2362 77430 RRDESNB STQ EXIT # ENTER IN INTERP. - EXIT IN BASIC.
008181,000474: 10,2363 00427 DESRET
008182,000475:
008183,000476: 10,2364 00004 INHINT # SEE IF CURRENT MODE OK.
008184,000477: 10,2365 04702 TC RRLIMCHK
008185,000478: 10,2366 00423 ADRES TANG
008186,000479: 10,2367 12401 TCF TRYSWN # SEE IF IN OTHER MODE.
008187,000480:
008188,000481: 10,2370 00003 OKDESNB RELINT
008189,000482: 10,2371 06000 TC INTPRET
008190,000483:
008191,000484: 10,2372 77634 CALL # GET LOS IN NB COORDS.
008192,000485: 10,2373 33361 RRNB
008193,000486: 10,2374 00416 STORE RRTARGET
008194,000487:
008195,000488: 10,2375 77414 SET EXIT
008196,000489: 10,2376 00071 RRNBSW
008197,000490:
008198,000491: 10,2377 00004 INHINT
008199,000492: 10,2400 12330 TCF STARTDES
008200,000493:
008201,000494: 10,2401 02141 TRYSWN TC RMODINV # SEE IF OTHER MODE WILL DO.
008202,000495: 10,2402 04702 TC RRLIMCHK
008203,000496: 10,2403 00423 ADRES TANG
008204,000497: 10,2404 12411 TCF NODESNB # NOT POSSIBLE.
008205,000498:
008206,000499: 10,2405 02141 TC RMODINV
008207,000500: 10,2406 37635 CAF BIT14 # CALL FOR REMODE.
008208,000501: 10,2407 26413 ADS RADMODES
008209,000502: 10,2410 12370 TCF OKDESNB
008210,000503:
008211,000504: 10,2411 37652 NODESNB CAF BIT1 # CALL FOR ERROR RETURN.
008212,000505: 10,2412 04451 TC WAITLIST
008213,000506: 10,2413 03252 20003 2CADR RDBADEND
008214,000507:
008215,000508: 10,2415 02141 TC RMODINV
008216,000509: 10,2416 05315 TC ALARM # BAD GIMBAL ANGLE INPUTS.
008217,000510: 10,2417 00502 OCT 502
008218,000511: 10,2420 12345 TCF DESRETRN +1 # ALARM DID A RELINT.
008219,000512:
008220,000513: # WAITLIST TASKS TO RUN RR DESIGNATION.
008221,000514:
008222,000515: 10,2421 37635 BEGDES CAF BIT14 # ENTER HERE FROM STARTDES OR REPOSRPT.
008223,000516: 10,2422 70413 MASK RADMODES # SEE IF REMODE REQUIRED.
008224,000517: 10,2423 10000 CCS A
008225,000518: 10,2424 12115 TCF REMODE
008226,000519: 10,2425 12430 TCF STDESIG
008227,000520:
008228,000521: 10,2426 04467 DESLOOP TC FIXDELAY # 2 SAMPLES PER SECOND.
008229,000522: 10,2427 00062 DEC 50 B-14
008230,000523:
008231,000524: 10,2430 37640 STDESIG CAF BIT11 # ENTRY FROM BEGDES AND REMODE.
008232,000525: 10,2431 70413 MASK RADMODES # SEE IF GIMBAL LIMIT MONITOR HAS FOUND US
008233,000526: 10,2432 10000 CCS A # OUT OF BOUNDS. IF SO, THIS BIT SHOWS A
008234,000527: 10,2433 12453 TCF BADDES # REPOSITION TO BE IN PROGRESS.
008235,000528:
008236,000529: 10,2434 10413 CCS RADMODES # SEE IF CONTINUOUS DESIGNATE WANTED.
008237,000530: 10,2435 12440 TCF +3 # IF SO, DONT CHECK BIT 10 TO SEE IF IN
008238,000531: 10,2436 12440 TCF +2 # LIMITS BUT GO RIGHT TO FINDVAC ENTRY.
008239,000532: 10,2437 12460 TCF MOREDES +1
008240,000533:
008241,000534: 10,2440 40413 CS RADMODES # IF NON-CONTINUOUS, SEE IF END OF
008242,000535: 10,2441 77641 MASK BIT10 # PROBLEM (DATA GOOD IF LOCK-ON WANTED OR
008243,000536: 10,2442 10000 CCS A # WITHIN LIMITS IF NOT). IF SO, EXIT AFTER
008244,000537: 10,2443 13236 TCF ENDRADAR # CHECKING RR CDU FAIL.
008245,000538:
008246,000539: 10,2444 10430 CCS DESCOUNT # SEE IF TIME LIMIT HAS EXPIRED.
008247,000540: 10,2445 12457 TCF MOREDES
008248,000541:
008249,000542: 10,2446 05315 TC ALARM # OUT OF TIME.
008250,000543: 10,2447 00503 OCT 503
008251,000544: 10,2450 42465 CS B14+B2 # IF OUT OF TIME, REMOVE ECR ENABLE + TRKR
008252,000545: 10,2451 00006 EXTEND
008253,000546: 10,2452 03012 WAND 12
008254,000547: 10,2453 47641 BADDES CS BIT10 # REMOVE DESIGNATE FLAG.
008255,000548: 10,2454 70413 MASK RADMODES
008256,000549: 10,2455 54413 TS RADMODES
008257,000550: 10,2456 13252 TCF RDBADEND
008258,000551:
008259,000552: 10,2457 54430 MOREDES TS DESCOUNT
008260,000553: 10,2460 34437 CAF PRIO26 # UPDATE GYRO TORQUE COMMANDS.
008261,000554: 10,2461 04307 TC FINDVAC
008262,000555: 10,2462 02466 20003 2CADR DODES
008263,000556:
008264,000557: 10,2464 12426 TCF DESLOOP
008265,000558:
008266,000559: 10,2465 20002 B14+B2 OCT 20002
008267,000560:
008268,000561: # CALCULATE GYRO TORQUE COMMANDS.
008269,000562:
008270,000563: 10,2466 00006 DODES EXTEND
008271,000564: 10,2467 30036 DCA OPTY
008272,000565: 10,2470 52424 DXCH TANG
008273,000566:
008274,000567: 10,2471 06000 TC INTPRET
008275,000568:
008276,000569: 10,2472 77775 VLOAD # MOVE TARGET VECTOR TO 32D.
008277,000570: 10,2473 00416 RRTARGET
008278,000571: 10,2474 00041 STORE 32D
008279,000572:
008280,000573: 10,2475 45014 BON RTB # DO STABLE-MEMBER TO NAVBASE TRANSFORMA-
008281,000574: 10,2476 00311 RRNBSW # TION IF TARGET IN SM COORDS. OTHERWISE,
008282,000575: 10,2477 20506 DONBRD # IN NB COORDS ALREADY.
008283,000576: 10,2500 33477 READCDUS
008284,000577:
008285,000578: 10,2501 77731 SSP
008286,000579: 10,2502 00051 S1
008287,000580: 10,2503 00024 20D # LOC OF ICDUS.
008288,000581: 10,2504 36025 STCALL 20D
008289,000582: 10,2505 32473 SMNB
008290,000583:
008291,000584: 10,2506 67201 DONBRD SETPD SLOAD # DO NAVBASE TO RADAR DISH TRANSFORMATION.
008292,000585: 10,2507 00001 0
008293,000586: 10,2510 00425 TANG +1
008294,000587: 10,2511 41424 RTB PUSH # SHAFT COMMAND = V(32D).(COS(S), 0,
008295,000588: 10,2512 33463 CDULOGIC # (-SIN(S)).
008296,000589: 10,2513 65356 SIN PDDL # SIN(S) TO 0 AND COS(S) TO 2.
008297,000590: 10,2514 41546 COS PUSH
008298,000591: 10,2515 65205 DMP PDDL
008299,000592: 10,2516 00041 32D
008300,000593: 10,2517 00045 36D
008301,000594: 10,2520 44205 DMP BDSU
008302,000595: 10,2521 00001 0
008303,000596: 10,2522 77626 STADR
008304,000597: 10,2523 77352 STORE TANG +1 # SHAFT COMMAND
008305,000598:
008306,000599: 10,2524 45135 SLOAD RTB
008307,000600: 10,2525 00424 TANG
008308,000601: 10,2526 33463 CDULOGIC
008309,000602: 10,2527 71406 PUSH COS # COS(T) TO 4.
008310,000603: 10,2530 73525 PDDL SIN
008311,000604: 10,2531 41206 PUSH DMP # SIN(T) TO 6.
008312,000605: 10,2532 00003 2
008313,000606: 10,2533 65352 SL1 PDDL # DEFINE VECTOR U = (SIN(T)SIN(S))
008314,000607: 10,2534 00005 4 # ( COS(T) )
008315,000608: 10,2535 41325 PDDL DMP # (SIN(T)COS(S))
008316,000609: 10,2536 00007 6
008317,000610: 10,2537 00001 0
008318,000611: 10,2540 55552 SL1 VDEF
008319,000612: 10,2541 77441 DOT EXIT # DOT U WITH LOS TO GET TRUNNION COMMAND.
008320,000613: 10,2542 00041 32D
008321,000614:
008322,000615: # AT THIS POINT WE HAVE A ROTATION VECTOR IN DISH AXES LYING IN THE TS PLANE. CONVERT THIS TO A
008323,000616: # COMMANDED RATE AND ENABLE THE TRACKER IF WE ARE WITHIN 1 DEGREE OF THE TARGET.
008324,000617:
008325,000618: 10,2543 40140 CS MPAC # DOT WAS NEGATIVE OF DESIRED ANGLE.
008326,000619: 10,2544 54423 TS TANG
008327,000620:
008328,000621: 10,2545 40413 CS RADMODES # A RELAY IN THE RR REVERSES POLARITY OF
008329,000622: 10,2546 77637 MASK BIT12 # THE SHAFT COMMANDS IN MODE 2 SO THAT A
008330,000623: 10,2547 10000 CCS A # POSITIVE TORQUE APPLIED TO THE SHAFT
008331,000624: 10,2550 12553 TCF +3 # GYRO CAUSES A POSITIVE CHANGE IN THE
008332,000625:
008333,000626: 10,2551 40424 CS TANG +1 # SHAFT ANGLE. COMPENSATE FOR THIS SWITCH
008334,000627: 10,2552 54424 TS TANG +1 # BY CHANGING THE POLARITY OF OUR COMMAND.
008335,000628:
008336,000629: 10,2553 37657 CAF ZERO
008337,000630: 10,2554 54141 TS MPAC +1
008338,000631: 10,2555 37652 CAF ONE
008339,000632:
008340,000633: 10,2556 54140 RRSCALUP TS MPAC
008341,000634: 10,2557 50000 INDEX A
008342,000635: 10,2560 30423 CA TANG # TRUNNION COMPONENT OF ROTATION.
008343,000636: 10,2561 00006 EXTEND
008344,000637: 10,2562 72634 MP RDESGAIN # SCALING ON INPUT ANGLE WAS 4 RADIANS.
008345,000638: 10,2563 50140 INDEX MPAC
008346,000639: 10,2564 56423 XCH TANG # MAKE EACH COMPONENT LESS THAN .35 DEGREES
008347,000640: 10,2565 04666 TC MAGSUB # BEFORE SENDING TRACK ENABLE.
008348,000641: 10,2566 77737 DEC -.00195
008349,000642: 10,2567 24141 INCR MPAC +1 # IF OUT OF BOUNDS.
008350,000643:
008351,000644: 10,2570 10140 CCS MPAC
008352,000645: 10,2571 12556 TCF RRSCALUP
008353,000646:
008354,000647: # SEE IF TRACKER SHOULD BE ENABLED OR DISABLED.
008355,000648:
008356,000649: 10,2572 00004 INHINT
008357,000650:
008358,000651: 10,2573 10413 CCS RADMODES # IF CONTINUOUS DESIGNATE WANTED, PUT OUT
008359,000652: 10,2574 12577 TCF +3 # COMMANDS WITHOUT CHECKING MAGNITUDE OF
008360,000653: 10,2575 12577 TCF +2 # ERROR SIGNALS.
008361,000654: 10,2576 12624 TCF TRKOFF
008362,000655:
008363,000656: 10,2577 10141 CCS MPAC +1 # SEE IF BOTH AXES WERE WITHIN .7 DEGS.
008364,000657: 10,2600 12624 TCF TRKOFF
008365,000658:
008366,000659: 10,2601 40061 CS STATE # IF WITHIN LIMITS AND NO LOCK-ON WANTED,
008367,000660: 10,2602 77646 MASK LOKONFLG # PROBLEM IS FINISHED.
008368,000661: 10,2603 10000 CCS A
008369,000662: 10,2604 12615 TCF RRDESDUN
008370,000663:
008371,000664: 10,2605 37635 CAF BIT14 # ENABLE THE TRACKER.
008372,000665: 10,2606 00006 EXTEND
008373,000666: 10,2607 05012 WOR 12
008374,000667:
008375,000668: 10,2610 37647 CAF BIT4 # SEE IF DATA GOOD RECEIVED YET.
008376,000669: 10,2611 00006 EXTEND
008377,000670: 10,2612 02033 RAND 33
008378,000671: 10,2613 10000 CCS A
008379,000672: 10,2614 12627 TCF DORROUT
008380,000673:
008381,000674: 10,2615 47641 RRDESDUN CS BIT10 # WHEN PROBLEM DONE, REMOVE BIT 10 SO NEXT
008382,000675: 10,2616 70413 MASK RADMODES # WAITLIST TASK WE WILL GO TO RGOODEND.
008383,000676: 10,2617 54413 TS RADMODES
008384,000677:
008385,000678: 10,2620 47651 CS BIT2
008386,000679: 10,2621 00006 EXTEND
008387,000680: 10,2622 03012 WAND 12
008388,000681: 10,2623 14353 TCF ENDOFJOB # WITH ECTR DISABLED.
008389,000682:
008390,000683: 10,2624 47635 TRKOFF CS BIT14
008391,000684: 10,2625 00006 EXTEND
008392,000685: 10,2626 03012 WAND 12
008393,000686:
008394,000687: 10,2627 40413 DORROUT CS RADMODES # PUT OUT COMMAND UNLESS MONITOR
008395,000688: 10,2630 77640 MASK BIT11 # REPOSITION HAS TAKEN OVER.
008396,000689: 10,2631 10000 CCS A
008397,000690: 10,2632 02212 TC RROUT
008398,000691:
008399,000692: 10,2633 14353 TCF ENDOFJOB
008400,000693:
008401,000694: 10,2634 21122 RDESGAIN DEC .53624 # TRIES TO NULL .5 ERROR IN .5 SEC.
008402,000695:
008403,000696: # RADAR READ INITIALIZATION
008404,000697:
008405,000698: # RADAR DATA ARE READ BY A BANKCALL FOR THE APPROPRIATE LEAD-IN BELOW.
008406,000699:
008407,000700:
008408,000701:
008409,000702: 10,2635 02651 LRALT TC INITREAD -1 # ONE SAMPLE PER READING.
008410,000703: 10,2636 00017 ALLREAD OCT 17
008411,000704:
008412,000705: 10,2637 02652 LRVELZ TC INITREAD
008413,000706: 10,2640 00016 OCT 16
008414,000707:
008415,000708: 10,2641 02652 LRVELY TC INITREAD
008416,000709: 10,2642 00015 OCT 15
008417,000710:
008418,000711: 10,2643 02652 LRVELX TC INITREAD
008419,000712: 10,2644 00014 OCT 14
008420,000713:
008421,000714: 10,2645 02651 RRRDOT TC INITREAD -1
008422,000715: 10,2646 00012 OCT 12
008423,000716:
008424,000717: 10,2647 02651 RRRANGE TC INITREAD -1
008425,000718: 10,2650 00011 OCT 11
008426,000719:
008427,000720: 10,2651 37652 -1 CAF ONE # ENTRY TO TAKE ONLY 1 SAMPLE.
008428,000721: 10,2652 00004 INITREAD INHINT
008429,000722:
008430,000723: 10,2653 54421 TS TIMEHOLD # GET DT OF MIDPOINT OF NOMINAL SAMPLING
008431,000724: 10,2654 00006 EXTEND # INTERVAL (ASSUMES NO BAD SAMPLES WILL BE
008432,000725: 10,2655 77650 MP BIT3 # ENCOUNTERED).
008433,000726: 10,2656 52422 DXCH TIMEHOLD
008434,000727:
008435,000728: 10,2657 10000 CCS A
008436,000729: 10,2660 54425 TS NSAMP
008437,000730: 10,2661 67652 AD ONE
008438,000731: # INSERT FOLLOWING INSTRUCTION TO GET 2N TRIES FOR N SAMPLES.
008439,000732: # DOUBLE
008440,000733: 10,2662 54414 TS SAMPLIM
008441,000734:
008442,000735: 10,2663 32705 CAF DGBITS # READ CURRENT VALUE OF DATA GOOD BITS.
008443,000736: 10,2664 00006 EXTEND
008444,000737: 10,2665 02033 RAND 33
008445,000738: 10,2666 54427 TS OLDATAGD
008446,000739:
008447,000740: 10,2667 42636 CS ALLREAD
008448,000741: 10,2670 00006 EXTEND
008449,000742: 10,2671 03013 WAND 13 # REMOVE ALL RADAR BITS
008450,000743:
008451,000744: 10,2672 50002 INDEX Q
008452,000745: 10,2673 30000 CAF 0
008453,000746: 10,2674 00006 EXTEND
008454,000747: 10,2675 05013 WOR 13 # SET NEW RADAR BITS
008455,000748:
008456,000749: 10,2676 00006 EXTEND
008457,000750: 10,2677 30025 DCA TIME2
008458,000751: 10,2700 20422 DAS TIMEHOLD # TIME OF NOMINAL MIDPOINT.
008459,000752:
008460,000753: 10,2701 37657 CAF ZERO
008461,000754: 10,2702 54001 TS L
008462,000755: 10,2703 52416 DXCH SAMPLSUM
008463,000756: 10,2704 12301 TCF ROADBACK
008464,000757:
008465,000758: 10,2705 00230 DGBITS OCT 230
008466,000759:
008467,000760: # RADAR RUPT READER
008468,000761:
008469,000762: # THIS ROUTINE STARTS FROM A RADARUPT. IT READS THE DATA $ LOTS MORE.
008470,000763:
008471,000764: 10,2706 54016 RADAREAD TS BANKRUPT
008472,000765: 10,2707 00006 EXTEND
008473,000766: 10,2710 22012 QXCH QRUPT
008474,000767:
008475,000768: 10,2711 11212 CCS LOTSFLAG
008476,000769: 10,2712 04511 TC RESUME
008477,000770:
008478,000771: 10,2713 00006 ANGLREAD EXTEND
008479,000772: 10,2714 30036 DCA OPTY
008480,000773: 10,2715 52420 DXCH OPTYHOLD # SAVE RAW CDU ANGLES
008481,000774:
008482,000775: 10,2716 10414 TRYCOUNT CCS SAMPLIM
008483,000776: 10,2717 12731 TCF PLENTY
008484,000777: 10,2720 12724 TCF NOMORE
008485,000778: 10,2721 05315 TC ALARM
008486,000779: 10,2722 00520 OCT 520
008487,000780: 10,2723 04511 TC RESUME
008488,000781:
008489,000782: 10,2724 05315 NOMORE TC ALARM
008490,000783: 10,2725 00521 OCT 521
008491,000784: 10,2726 47652 BADRAD CS ONE
008492,000785: 10,2727 54414 TS SAMPLIM
008493,000786: 10,2730 03250 TC RDBADEND -2
008494,000787:
008495,000788: 10,2731 54414 PLENTY TS SAMPLIM
008496,000789: 10,2732 37650 CAF BIT3
008497,000790: 10,2733 00006 EXTEND
008498,000791: 10,2734 02013 RAND 13 # TO FIND OUT WHICH RADAR
008499,000792: 10,2735 00006 EXTEND
008500,000793: 10,2736 13015 BZF RENDRAD
008501,000794:
008502,000795: 10,2737 30413 LRPOSCHK CA RADMODES # SEE IF LR IN DESIRED POSITION.
008503,000796: 10,2740 00006 EXTEND
008504,000797: 10,2741 06033 RXOR 33
008505,000798: 10,2742 77645 MASK BIT6
008506,000799: 10,2743 00006 EXTEND
008507,000800: 10,2744 12750 BZF VELCHK
008508,000801:
008509,000802: 10,2745 05315 TC ALARM
008510,000803: 10,2746 00522 OCT 522
008511,000804: 10,2747 02726 TC BADRAD
008512,000805:
008513,000806: 10,2750 36165 VELCHK CAF BIN3 # = 00003 OCT
008514,000807: 10,2751 00006 EXTEND
008515,000808: 10,2752 06013 RXOR 13
008516,000809: 10,2753 76165 MASK BIN3
008517,000810: 10,2754 00006 EXTEND
008518,000811: 10,2755 13011 BZF LRHEIGHT # TAKE A LR RANGE READING
008519,000812:
008520,000813: 10,2756 37632 CAF POSMAX
008521,000814: 10,2757 70046 MASK RNRAD
008522,000815: 10,2760 63170 AD LVELBIAS
008523,000816: 10,2761 54001 TS L
008524,000817: 10,2762 30046 CAE RNRAD
008525,000818: 10,2763 60000 DOUBLE
008526,000819: 10,2764 77652 MASK BIT1
008527,000820: 10,2765 52071 DXCH ITEMP3
008528,000821:
008529,000822: 10,2766 37643 CAF BIT8 # DATA GOOD ISNT CHECKED UNTIL AFTER READ-
008530,000823: 10,2767 03140 TC DGCHECK # ING DATA SO SOME RADAR TESTS WILL WORK
008531,000824: # INDEPENDENT OF DATA GOOD.
008532,000825:
008533,000826: 10,2770 10425 CCS NSAMP
008534,000827: 10,2771 03001 TC NOEND
008535,000828: 10,2772 47652 GOODRAD CS ONE
008536,000829: 10,2773 54414 TS SAMPLIM
008537,000830: 10,2774 40065 CS ITEMP1 # WHEN ENOUGH GOOD DATA HAS BEEN GATHERED,
008538,000831: 10,2775 70413 MASK RADMODES # RESET DATA FAIL FLAGS FOR SETTRKF.
008539,000832: 10,2776 54413 TS RADMODES
008540,000833: 10,2777 04744 TC SETTRKF # LAMP MIGHT GO OFF IF DATA JUST GOOD.
008541,000834: 10,3000 03243 TC RGOODEND -2
008542,000835:
008543,000836: 10,3001 54425 NOEND TS NSAMP
008544,000837: 10,3002 10414 RESAMPLE CCS SAMPLIM # SEE IF ANY MORE TRIES SHOULD BE MADE.
008545,000838: 10,3003 13005 TCF +2
008546,000839: 10,3004 13157 TCF DATAFAIL # N SAMPLES NOT AVAILABLE.
008547,000840: 10,3005 37647 CAF BIT4 # RESET ACTIVITY BIT.
008548,000841: 10,3006 00006 EXTEND
008549,000842: 10,3007 05013 WOR 13 # RESET ACTIVITY BIT
008550,000843: 10,3010 04511 TC RESUME
008551,000844:
008552,000845:
008553,000846: 10,3011 37646 LRHEIGHT CAF BIT5
008554,000847: 10,3012 54065 TS ITEMP1 # (POSITION OF DATA GOOD BIT IN CHAN 33)
008555,000848:
008556,000849: 10,3013 37642 CAF BIT9
008557,000850: 10,3014 03050 TC SCALECHK -1
008558,000851:
008559,000852: 10,3015 37640 RENDRAD CAF BIT11 # MAKE SURE ANTENNA HAS NOT GONE OUT OF
008560,000853: 10,3016 70413 MASK RADMODES # LIMITS.
008561,000854: 10,3017 10000 CCS A
008562,000855: 10,3020 12726 TCF BADRAD
008563,000856:
008564,000857: 10,3021 40413 CS RADMODES # BE SURE RR CDU HASNT FAILED.
008565,000858: 10,3022 77644 MASK BIT7
008566,000859: 10,3023 10000 CCS A
008567,000860: 10,3024 12726 TCF BADRAD
008568,000861:
008569,000862: 10,3025 37637 CAF BIT12 # DONT ACCEPT RR DATA IF TRUNNION MORE
008570,000863: 10,3026 70413 MASK RADMODES # THAN 55 DEGREES FROM NOMINAL POSITION.
008571,000864: 10,3027 10000 CCS A
008572,000865: 10,3030 37634 CAF BIT15 # 180 FOR MODE 2 - 0 FOR MODE 1.
008573,000866: 10,3031 00006 EXTEND
008574,000867: 10,3032 20035 MSU OPTY
008575,000868: 10,3033 04666 TC MAGSUB
008576,000869: 10,3034 66161 DEC -.30555 # 55 DEGS AT HALF-REVS.
008577,000870: 10,3035 12726 TCF BADRAD
008578,000871:
008579,000872: 10,3036 37647 CAF BIT4 # SEE IF DATA HAS BEEN GOOD.
008580,000873: 10,3037 54065 TS ITEMP1 # (POSITION OF DATA GOOD BIT IN CHAN 33)
008581,000874:
008582,000875: 10,3040 37652 CAF BIT1 # SEE IF RR RDOT.
008583,000876: 10,3041 00006 EXTEND
008584,000877: 10,3042 02013 RAND 13
008585,000878: 10,3043 54002 TS Q # FOR LATER TESTING.
008586,000879: 10,3044 10000 CCS A
008587,000880: 10,3045 13047 TCF +2
008588,000881: 10,3046 13061 TCF RADIN # NO SCALE CHECK FOR RR RDOT.
008589,000882: 10,3047 37650 CAF BIT3
008590,000883: 10,3050 54001 TS L
008591,000884:
008592,000885: 10,3051 00006 SCALECHK EXTEND
008593,000886: 10,3052 02033 RAND 33 # SCALE STATUS NOW
008594,000887: 10,3053 56001 XCH L
008595,000888: 10,3054 70413 MASK RADMODES # SCALE STATUS BEFORE
008596,000889: 10,3055 00006 EXTEND
008597,000890: 10,3056 06001 RXOR 01 # SEE IF THEY DIFFER
008598,000891: 10,3057 10000 CCS A
008599,000892: 10,3060 03100 TC SCALCHNG # THEY DIFFER
008600,000893:
008601,000894: 10,3061 37632 RADIN CAF POSMAX
008602,000895: 10,3062 70046 MASK RNRAD
008603,000896: 10,3063 54071 TS ITEMP4
008604,000897:
008605,000898: 10,3064 30046 CAE RNRAD
008606,000899: 10,3065 60000 DOUBLE
008607,000900: 10,3066 77652 MASK BIT1
008608,000901: 10,3067 54070 TS ITEMP3
008609,000902:
008610,000903: 10,3070 10002 CCS Q # SEE IF RR RDOT.
008611,000904: 10,3071 13112 TCF SCALADJ # NO, BUT SCALE CHANGING MAY BE NEEDED.
008612,000905:
008613,000906: 10,3072 00006 EXTEND # IF RR RANGE RATE, THROW OUT BIAS.
008614,000907: 10,3073 43172 DCS RDOTBIAS
008615,000908: 10,3074 20071 DASAMPL DAS ITEMP3
008616,000909: 10,3075 30065 DGCHECK2 CA ITEMP1 # SEE THAT DATA HAS BEEN GOOD BEFORE AND
008617,000910: 10,3076 03141 TC DGCHECK +1 # AFTER TAKING SAMPLE.
008618,000911: 10,3077 02772 TC GOODRAD
008619,000912:
008620,000913: 10,3100 22413 SCALCHNG LXCH RADMODES
008621,000914: 10,3101 67652 AD BIT1
008622,000915: 10,3102 00006 EXTEND
008623,000916: 10,3103 06001 RXOR 01
008624,000917: 10,3104 54413 TS RADMODES
008625,000918: 10,3105 32705 CAF DGBITS # UPDATE LAST VALUE OF DATA GOOD BITS.
008626,000919: 10,3106 00006 EXTEND
008627,000920: 10,3107 02033 RAND 33
008628,000921: 10,3110 54427 TS OLDATAGD
008629,000922: 10,3111 12726 TCF BADRAD
008630,000923:
008631,000924: # THE FOLLOWING ROUTINE INCORPORATES RR RANGE AND LR ALT SCALE INFORMATION AND LEAVES DATA AT LO SCALE.
008632,000925:
008633,000926: 10,3112 10001 SCALADJ CCS L # L HAS SCALE INBIT FOR THIS RADAR.
008634,000927: 10,3113 13115 TCF +2 # ON HIGH SCALE.
008635,000928: 10,3114 13075 TCF DGCHECK2
008636,000929:
008637,000930: 10,3115 52071 DXCH ITEMP3
008638,000931: 10,3116 20001 DDOUBL
008639,000932: 10,3117 20001 DDOUBL
008640,000933: 10,3120 20001 DDOUBL
008641,000934: 10,3121 52071 DXCH ITEMP3
008642,000935:
008643,000936: 10,3122 37650 CAF BIT3 # SEE IF LR OR RR.
008644,000937: 10,3123 00006 EXTEND
008645,000938: 10,3124 02013 RAND 13
008646,000939: 10,3125 00006 EXTEND # IF RR, NO MORE ACTION REQUIRED.
008647,000940: 10,3126 13075 BZF DGCHECK2
008648,000941:
008649,000942: 10,3127 33167 CAF LRRATIO # IF LR, CONVERT TO LO SCALING.
008650,000943: 10,3130 00006 EXTEND
008651,000944: 10,3131 70071 MP ITEMP4
008652,000945: 10,3132 54071 TS ITEMP4
008653,000946: 10,3133 37657 CAF ZERO # (SO SUBSEQUENT DAS WILL BE OK)
008654,000947: 10,3134 56070 XCH ITEMP3
008655,000948: 10,3135 00006 EXTEND
008656,000949: 10,3136 73167 MP LRRATIO
008657,000950: 10,3137 13074 TCF DASAMPL
008658,000951:
008659,000952: 10,3140 54065 DGCHECK TS ITEMP1 # UPDATE DATA GOOD BIT IN OLDATAGD AND
008660,000953: 10,3141 00006 EXTEND # MAKE SURE IT WAS ON BEFORE AND AFTER THE
008661,000954: 10,3142 02033 RAND 33 # SAMPLE WAS TAKEN BEFORE RETURNING. IF
008662,000955: 10,3143 54001 TS L # NOT, GOES TO RESAMPLE TO TRY AGAIN. IF
008663,000956: 10,3144 40065 CS ITEMP1 # MAX NUMBER OF TRIES HAS BEEN REACHED,
008664,000957: 10,3145 70427 MASK OLDATAGD # THE BIT CORRESPONDING TO THE DATA GOOD
008665,000958: 10,3146 60001 AD L # WHICH FAILED TO APPEAR IS IN ITEMP1 AND
008666,000959: 10,3147 56427 XCH OLDATAGD # CAN BE USED TO SET RADMODES WHICH VIA
008667,000960: 10,3150 70065 MASK ITEMP1 # SETTRKF SETS THE TRACKER FAIL LAMP.
008668,000961: 10,3151 60001 AD L
008669,000962: 10,3152 10000 CCS A # SHOULD BOTH BE ZERO.
008670,000963: 10,3153 03002 TC RESAMPLE
008671,000964: 10,3154 52071 DXCH ITEMP3 # IF DATA GOOD BEFORE AND AFTER, ADD TO
008672,000965: 10,3155 20416 DAS SAMPLSUM # ACCUMULATION.
008673,000966: 10,3156 00002 TC Q
008674,000967:
008675,000968: 10,3157 40065 DATAFAIL CS ITEMP1 # IN THE ABOVE CASE, SET RADMODES BIT
008676,000969: 10,3160 70413 MASK RADMODES # SHOWING SOME RADAR DATA FAILED.
008677,000970: 10,3161 60065 AD ITEMP1
008678,000971: 10,3162 54413 TS RADMODES
008679,000972:
008680,000973: 10,3163 52071 DXCH ITEMP3 # IF WE HAVE BEEN UNABLE TO GATHER N
008681,000974: 10,3164 52416 DXCH SAMPLSUM # SAMPLES, USE LAST ONE ONLY.
008682,000975:
008683,000976: 10,3165 04744 TC SETTRKF
008684,000977:
008685,000978: 10,3166 12724 TCF NOMORE
008686,000979:
008687,000980: 10,3167 23773 LRRATIO DEC 4.9977 B-3
008688,000981: 10,3170 47777 LVELBIAS DEC -12288 B-14 # LANDING RADAR BIAS FOR 153.6 KC.
008689,000982: 10,3171 00001 01150 RDOTBIAS 2DEC 17000 B-28 # BIAS COUNT FOR RR RANGE RATE
008690,000983:
008691,000984: # THIS ROUTINE CHANGES THE LR POSITION, AND CHECKS THAT IT GOT THERE.
008692,000985:
008693,000986: 10,3173 00004 LRPOS2 INHINT
008694,000987:
008695,000988: 10,3174 47645 CS BIT6 # DESIRED LR POSITION IS NOW 2.
008696,000989: 10,3175 70413 MASK RADMODES
008697,000990: 10,3176 67645 AD BIT6
008698,000991: 10,3177 54413 TS RADMODES
008699,000992:
008700,000993: 10,3200 37644 CAF BIT7
008701,000994: 10,3201 00006 EXTEND
008702,000995: 10,3202 02033 RAND 33 # SEE IF ALREADY THERE.
008703,000996: 10,3203 00006 EXTEND
008704,000997: 10,3204 13230 BZF RADNOOP
008705,000998:
008706,000999: 10,3205 37636 CAF BIT13
008707,001000: 10,3206 00006 EXTEND
008708,001001: 10,3207 05012 WOR 12 # COMMAND TO POSITION 2
008709,001002:
008710,001003: 10,3210 33361 CAF 6SECS # START SCANNING FOR INBIT AFTER 7 SECS.
008711,001004: 10,3211 04451 TC WAITLIST
008712,001005: 10,3212 03357 20003 2CADR LRPOSCAN
008713,001006:
008714,001007: 10,3214 02301 TC ROADBACK
008715,001008:
008716,001009: 10,3215 03342 LRPOSNXT TC LRPSNXT1
008717,001010: 10,3216 00006 EXTEND
008718,001011: 10,3217 13235 BZF LSTLRDT1 # IF THERE, WAIT FINAL SECOND FOR BOUNCE.
008719,001012:
008720,001013: 10,3220 10414 CCS SAMPLIM # SEE IF MAX TIME UP.
008721,001014: 10,3221 13215 TCF LRPOSNXT
008722,001015:
008723,001016: 10,3222 47636 CS BIT13 # IF TIME UP, DISABLE COMMAND AND ALARM.
008724,001017: 10,3223 00006 EXTEND
008725,001018: 10,3224 03012 WAND 12
008726,001019:
008727,001020: 10,3225 05315 TC ALARM # LR ANTENNA DIDNT MAKE IT.
008728,001021: 10,3226 00523 OCT 523
008729,001022: 10,3227 13252 TCF RDBADEND
008730,001023:
008731,001024: 10,3230 37652 RADNOOP CAF ONE # NO FURTHER ACTION REQUESTED.
008732,001025: 10,3231 04451 TC WAITLIST
008733,001026: 10,3232 03245 20003 2CADR RGOODEND
008734,001027:
008735,001028: 10,3234 02301 TC ROADBACK
008736,001029:
008737,001030: 10,3235 03351 LSTLRDT1 TC LASTLRDT
008738,001031:
008739,001032: # SEQUENCES TO TERMINATE RR OPERATIONS.
008740,001033:
008741,001034: 10,3236 37644 ENDRADAR CAF BIT7 # PROLOG TO CHECK RR CDU FAIL BEFORE END.
008742,001035: 10,3237 70413 MASK RADMODES
008743,001036: 10,3240 10000 CCS A
008744,001037: 10,3241 13245 TCF RGOODEND
008745,001038: 10,3242 13252 TCF RDBADEND
008746,001039: 10,3243 47657 -2 CS ZERO # RGOODEND WHEN NOT UNDER WAITLIST CONTROL
008747,001040: 10,3244 55071 TS RUPTAGN
008748,001041:
008749,001042: 10,3245 37651 RGOODEND CAF TWO
008750,001043: 10,3246 04102 TC POSTJUMP
008751,001044: 10,3247 26667 CADR GOODEND
008752,001045:
008753,001046: 10,3250 47657 -2 CS ZERO # RDBADEND WHEN NOT UNDER WAITLIST.
008754,001047: 10,3251 55071 TS RUPTAGN
008755,001048: 10,3252 37651 RDBADEND CAF TWO
008756,001049: 10,3253 04102 TC POSTJUMP
008757,001050: 10,3254 26664 CADR BADEND
008758,001051:
008759,001052: 10,3255 6165 BIN3 EQUALS THREE
008760,001053: 10,3255 ENDRMODS EQUALS
End of include-file RADAR_LEAD-IN_ROUTINES.agc. Parent file is MAIN.agc