Source Code
![]() |
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
018210,000002: ## Copyright: Public domain. 018211,000003: ## Filename: IMU_CALIBRATION_AND_ALIGNMENT.agc 018212,000004: ## Purpose: Part of the source code for Colossus build 237. 018213,000005: ## This is for the Command Module's (CM) Apollo Guidance 018214,000006: ## Computer (AGC), for Apollo 8. 018215,000007: ## Assembler: yaYUL 018216,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 018217,000009: ## Website: www.ibiblio.org/apollo/index.html 018218,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/ 018219,000011: ## Mod history: 2011-01-27 JL Adapted from corresponding Colossus 249 file. 018220,000012: ## 2016-12-30 RSB Proofed comment text using octopus/ProoferComments, 018221,000013: ## and corrected errors found. 018222,000014: ## 2021-05-30 ABS Single instance of $$/P03 -> $$/PO3 to match scans. 018223,000015:
![]() |
Page 414 |
018225,000017: # NAME- IMU PERFORMANCE TESTS 2 018226,000018: 018227,000019: # DATE- MARCH 20,1967 018228,000020: 018229,000021: # BY- SYSTEM TEST GROUP 864-6900 EXT. 1274 018230,000022: 018231,000023: # MODNO.- ZERO 018232,000024: 018233,000025: # FUNCTIONAL DESCRIPTION 018234,000026: 018235,000027: # POSITIONING ROUTINES FOR THE IMU PERFORMANCE TESTS AS WELL AS SOME OF 018236,000028: # THE TESTS THEMSELVES. FOR A DESCRIPTION OF THESE SUBROUTINES AND THE 018237,000029: # OPERATING PROCEDURES (TYPICALLY) SEE STG MEMO 685.THEORETICAL REF.E-1973 018238,000030: 018239,000031: 33,2004 BANK 33 018240,000032: 33,2000 SETLOC IMUCAL 018241,000033: 33,2000 BANK 018242,000034: 018243,000035: 33,2004 E5,1423 EBANK= POSITON 018244,000036: 33,2004 34714 IMUTEST CA ZERO 018245,000037: 33,2005 55452 TS DRIFTT 018246,000038: 33,2006 55643 TS GEOCOMP1 018247,000039: 33,2007 32443 CAF TESTTIME 018248,000040: 33,2010 55412 TS LENGTHOT 018249,000041: 33,2011 02302 TC COAALIGN # TAKE CARE OF DRIFT FLAG 018250,000042: 33,2012 34734 CAF 1SECX 018251,000043: 33,2013 55644 TS 1SECXT1 018252,000044: 018253,000045: 33,2014 32441 CA OC14400 018254,000046: 33,2015 55074 TS 1/PIPADT 018255,000047: 33,2016 06006 GUESS TC INTPRET # CALCULATE -COS LATITUDE AND SIN LATITUDE 018256,000048: 33,2017 77624 CALL 018257,000049: 33,2020 10617 LATAZCHK 018258,000050: 33,2021 57546 COS DCOMP 018259,000051: 33,2022 77752 SL1 018260,000052: 33,2023 16447 STODL WANGI 018261,000053: 33,2024 02403 LATITUDE 018262,000054: 33,2025 72556 SIN SL1 018263,000055: 33,2026 02445 STORE WANGO 018264,000056: 33,2027 77776 EXIT 018265,000057: 33,2030 04555 GEOIMUTT TC BANKCALL # GYROCOMPASS COMES IN HERE 018266,000058: 33,2031 16516 CADR IMUZERO 018267,000059: 33,2032 02316 TC IMUSTLLG 018268,000060: 33,2033 34714 IMUBACK CA ZERO 018269,000061: 33,2034 55421 TS NDXCTR 018270,000062: 33,2035 55450 TS TORQNDX 018271,000063: 33,2036 55451 TS TORQNDX +1 018272,000064: 33,2037 34375 NBPOSPL CA DEC17 018273,000065: 33,2040 55655 TS ZERONDX1 018274,000066: 33,2041 32445 CA XNBADR
![]() |
Page 415 |
018276,000068: 33,2042 02356 TC ZEROING 018277,000069: 33,2043 34675 CA HALF 018278,000070: 33,2044 55713 TS XNB 018279,000071: 33,2045 06006 TC INTPRET 018280,000072: 33,2046 73545 DLOAD SIN 018281,000073: 33,2047 02401 AZIMUTH 018282,000074: 33,2050 02724 STORE YNB +2 018283,000075: 33,2051 16734 STODL ZNB +4 018284,000076: 33,2052 02401 AZIMUTH 018285,000077: 33,2053 77746 COS 018286,000078: 33,2054 02726 STORE YNB +4 018287,000079: 33,2055 77676 DCOMP 018288,000080: 33,2056 02732 STORE ZNB +2 018289,000081: 33,2057 77776 EXIT 018290,000082: 33,2060 05253 TC CHECKMM 018291,000083: 33,2061 00003 MM 03 B-14 # SEE IF IN OPTICAL VERIFICATION 018292,000084: 33,2062 12064 TCF +2 # NO 018293,000085: 33,2063 13433 TCF SETNBPOS +1 # YES 018294,000086: 33,2064 06006 TC INTPRET 018295,000087: 33,2065 77624 CALL 018296,000088: 33,2066 47244 CALCGA 018297,000089: 33,2067 77776 EXIT 018298,000090: 33,2070 04555 TC BANKCALL 018299,000091: 33,2071 16602 CADR IMUCOARS 018300,000092: 33,2072 34675 CAF BIT14 # IF BIT14 SET, GIMBAL LOCK 018301,000093: 33,2073 70077 MASK FLAGWRD3 018302,000094: 33,2074 00006 EXTEND 018303,000095: 33,2075 12077 BZF +2 018304,000096: 33,2076 25421 INCR NDXCTR # +1 IF IN GIMBAL LOCK,OTHERWISE 0 018305,000097: 33,2077 05447 TC DOWNFLAG # RESET GIMBAL LOCK FLAG 018306,000098: 33,2100 00056 ADRES GLOKFAIL # BIT 14 FLAG 3 018307,000099: 33,2101 02316 TC IMUSTLLG 018308,000100: 33,2102 11421 CCS NDXCTR # IF ONE GO AND DO A PIPA TEST ONLY 018309,000101: 33,2103 02131 TC PIPACHK # ALIGN AND MEASURE VERTICAL PIPA RATE 018310,000102: 33,2104 04555 TC BANKCALL 018311,000103: 33,2105 17012 CADR IMUFINE 018312,000104: 33,2106 02316 TC IMUSTLLG 018313,000105: 33,2107 00006 EXTEND 018314,000106: 33,2110 31657 DCA PERFDLAY 018315,000107: 33,2111 05231 TC LONGCALL 018316,000108: 33,2112 E5,1423 EBANK= POSITON 018317,000109: 33,2112 02116 66065 2CADR GOESTIMS 018318,000110: 018319,000111: 33,2114 32121 CA ESTICADR 018320,000112: 33,2115 05070 TC JOBSLEEP 018321,000113: 33,2116 32121 GOESTIMS CA ESTICADR 018322,000114: 33,2117 05074 TC JOBWAKE 018323,000115: 33,2120 05213 TC TASKOVER 018324,000116: 33,2121 66453 ESTICADR CADR ESTIMS
![]() |
Page 416 |
018326,000118: 33,2122 34714 TORQUE CA ZERO 018327,000119: 33,2123 55050 TS DSPTEM2 018328,000120: 33,2124 31514 CA DRIFTI 018329,000121: 33,2125 55051 TS DSPTEM2 +1 018330,000122: 33,2126 51423 INDEX POSITON 018331,000123: 33,2127 55430 TS SOUTHDR -1 018332,000124: 33,2130 02427 TC SHOW 018333,000125: 018334,000126: 33,2131 51421 PIPACHK INDEX NDXCTR # PIPA TEST 018335,000127: 33,2132 02133 TC +1 018336,000128: 33,2133 02417 TC EARTHR* 018337,000129: 33,2134 34374 CA DEC57 018338,000130: 33,2135 55412 TS LENGTHOT 018339,000131: 33,2136 34712 CA ONE 018340,000132: 33,2137 55547 TS RESULTCT 018341,000133: 33,2140 34714 CA ZERO 018342,000134: 33,2141 51422 INDEX PIPINDEX 018343,000135: 33,2142 54037 TS PIPAX 018344,000136: 33,2143 55502 TS DATAPL 018345,000137: 33,2144 55506 TS DATAPL +4 018346,000138: 33,2145 02321 TC CHECKG # PIP PULSE CATCHING ROUTINE 018347,000139: 33,2146 00004 INHINT 018348,000140: 33,2147 34711 CAF TWO 018349,000141: 33,2150 05130 TC TWIDDLE 018350,000142: 33,2151 E5,1671 EBANK= XSM 018351,000143: 33,2151 02153 ADRES PIPATASK 018352,000144: 33,2152 05112 TC ENDOFJOB 018353,000145: 33,2153 00006 PIPATASK EXTEND 018354,000146: 33,2154 27412 DIM LENGTHOT 018355,000147: 33,2155 31412 CA LENGTHOT 018356,000148: 33,2156 00006 EXTEND 018357,000149: 33,2157 62163 BZMF STARTPIP 018358,000150: 33,2160 34701 CAF BIT10 018359,000151: 33,2161 05130 TC TWIDDLE 018360,000152: 33,2162 E5,1671 EBANK= XSM 018361,000153: 33,2162 02153 ADRES PIPATASK 018362,000154: 33,2163 34675 STARTPIP CAF PRIO20 018363,000155: 33,2164 05042 TC FINDVAC 018364,000156: 33,2165 E5,1671 EBANK= XSM 018365,000157: 33,2165 02170 66065 2CADR PIPJOBB 018366,000158: 33,2167 05213 TC TASKOVER 018367,000159: 33,2170 51421 PIPJOBB INDEX NDXCTR 018368,000160: 33,2171 02172 TC +1 018369,000161: 33,2172 02417 TC EARTHR* 018370,000162: 33,2173 31412 CA LENGTHOT 018371,000163: 33,2174 00006 EXTEND 018372,000164: 33,2175 62177 BZMF +2 018373,000165: 33,2176 05112 TC ENDOFJOB 018374,000166: 33,2177 34715 CA FIVE
![]() |
Page 417 |
018376,000168: 33,2200 55547 TS RESULTCT 018377,000169: 33,2201 02321 TC CHECKG 018378,000170: 33,2202 00006 EXTEND 018379,000171: 33,2203 41503 DCS DATAPL 018380,000172: 33,2204 21507 DAS DATAPL +4 018381,000173: 018382,000174: 33,2205 06006 TC INTPRET 018383,000175: 33,2206 45345 DLOAD DSU 018384,000176: 33,2207 02511 DATAPL +6 018385,000177: 33,2210 02505 DATAPL +2 018386,000178: 33,2211 45044 BPL CALL 018387,000179: 33,2212 66214 AINGOTN 018388,000180: 33,2213 66276 OVERFFIX 018389,000181: 33,2214 56325 AINGOTN PDDL DDV 018390,000182: 33,2215 02507 DATAPL +4 018391,000183: 33,2216 57212 SL4 DMPR 018392,000184: 33,2217 27112 DEC585 # DEC585 HAS BEEN REDEFINED FOR LEM 018393,000185: 33,2220 77634 RTB 018394,000186: 33,2221 45541 SGNAGREE 018395,000187: 33,2222 01051 STORE DSPTEM2 018396,000188: 33,2223 77776 EXIT 018397,000189: 33,2224 11421 CCS NDXCTR 018398,000190: 33,2225 02302 TC COAALIGN # TAKE PLATFORM OUT OF GIMBAL LOCK 018399,000191: 33,2226 02427 TC SHOW 018400,000192: 33,2227 32447 VERTDRFT CA 3990DEC # ABOUT 1 HOUR VERTICAL DRIFT TEST 018401,000193: 33,2230 55412 TS LENGTHOT 018402,000194: 33,2231 51423 INDEX POSITON 018403,000195: 33,2232 41427 CS SOUTHDR -2 018404,000196: 33,2233 55452 TS DRIFTT 018405,000197: 33,2234 31675 CA XSM +4 # 0 IF POSN 4 018406,000198: 33,2235 00006 EXTEND 018407,000199: 33,2236 12244 BZF PON2 018408,000200: 33,2237 44706 PON4 CS BIT5 # OFFSET PLATFORM 018409,000201: 33,2240 27651 ADS ERCOMP1 +2 018410,000202: 33,2241 34706 CA BIT5 018411,000203: 33,2242 27647 ADS ERCOMP1 018412,000204: 33,2243 12250 TCF PONG 018413,000205: 33,2244 44706 PON2 CS BIT5 018414,000206: 33,2245 27651 ADS ERCOMP1 +2 018415,000207: 33,2246 34706 CA BIT5 018416,000208: 33,2247 27653 ADS ERCOMP1 +4 018417,000209: 33,2250 02417 PONG TC EARTHR* 018418,000210: 33,2251 34714 CA ZERO # ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS 018419,000211: 33,2252 55404 TS ERVECTOR 018420,000212: 33,2253 55405 TS ERVECTOR +1 018421,000213: 33,2254 34672 GUESS1 CAF POSMAX 018422,000214: 33,2255 55450 TS TORQNDX 018423,000215: 33,2256 55451 TS TORQNDX +1 018424,000216: 33,2257 30032 CA CDUX 018425,000217: 33,2260 55413 TS LOSVEC
![]() |
Page 418 |
018427,000219: 33,2261 02453 TC ESTIMS 018428,000220: 33,2262 31512 VALMIS CA DRIFTO 018429,000221: 33,2263 55051 TS DSPTEM2 +1 018430,000222: 33,2264 34714 CA ZERO 018431,000223: 33,2265 55050 TS DSPTEM2 018432,000224: 33,2266 02427 TC SHOW 018433,000225: 018434,000226: 018435,000227: 33,2267 05447 ENDTEST1 TC DOWNFLAG # IMU NOT IN USE 018436,000228: 33,2270 00007 ADRES IMUSE # BIT 8 FLAG 0 018437,000229: 33,2271 44714 CS ZERO 018438,000230: 33,2272 05246 TC NEWMODEX +3 018439,000231: 33,2273 04555 TC BANKCALL 018440,000232: 33,2274 16063 CADR MKRELEAS 018441,000233: 33,2275 05423 TC ENDEXT 018442,000234:
![]() |
Page 419 |
018444,000236: 33,2276 43215 OVERFFIX DAD DAD 018445,000237: 33,2277 15340 DPPOSMAX 018446,000238: 33,2300 27120 ONEDPP 018447,000239: 33,2301 77616 RVQ 018448,000240: 018449,000241: 018450,000242: 33,2302 00006 COAALIGN EXTEND # COARSE ALIGN SUBROUTINE 018451,000243: 33,2303 23425 QXCH QPLACE 018452,000244: 33,2304 34714 CA ZERO 018453,000245: 33,2305 55155 TS THETAD 018454,000246: 33,2306 55156 TS THETAD +1 018455,000247: 33,2307 55157 TS THETAD +2 018456,000248: 33,2310 04555 TC BANKCALL 018457,000249: 33,2311 16602 CADR IMUCOARS 018458,000250: 33,2312 04555 TC BANKCALL 018459,000251: 33,2313 17516 CADR IMUSTALL 018460,000252: 33,2314 03104 TC SOMERR2 018461,000253: 33,2315 01425 TC QPLACE 018462,000254: 018463,000255: 018464,000256: 33,2316 00006 IMUSTLLG EXTEND 018465,000257: 33,2317 23425 QXCH QPLACE 018466,000258: 33,2320 02312 TC COAALIGN +10 018467,000259: 018468,000260: 018469,000261: 33,2321 00006 CHECKG EXTEND # PIP PULSE CATCHING ROUTINE 018470,000262: 33,2322 23425 QXCH QPLACE 018471,000263: 33,2323 02331 TC +6 018472,000264: 33,2324 00003 CHECKG1 RELINT 018473,000265: 33,2325 30067 CA NEWJOB 018474,000266: 33,2326 00006 EXTEND 018475,000267: 33,2327 62335 BZMF +6 018476,000268: 33,2330 05057 TC CHANG1 018477,000269: 33,2331 00004 INHINT 018478,000270: 33,2332 51422 INDEX PIPINDEX 018479,000271: 33,2333 40037 CS PIPAX 018480,000272: 33,2334 55655 TS ZERONDX 018481,000273: 33,2335 00004 INHINT 018482,000274: 33,2336 51422 INDEX PIPINDEX 018483,000275: 33,2337 30037 CA PIPAX 018484,000276: 33,2340 61430 AD STOREPL 018485,000277: 33,2341 00006 EXTEND 018486,000278: 33,2342 12324 BZF CHECKG1 018487,000279: 33,2343 51422 INDEX PIPINDEX 018488,000280: 33,2344 30037 CA PIPAX 018489,000281: 33,2345 51547 INDEX RESULTCT 018490,000282: 33,2346 55502 TS DATAPL 018491,000283: 33,2347 04526 TC FINETIME 018492,000284: 33,2350 51547 INDEX RESULTCT 018493,000285: 33,2351 55503 TS DATAPL +1
![]() |
Page 420 |
018495,000287: 33,2352 51547 INDEX RESULTCT 018496,000288: 33,2353 23504 LXCH DATAPL +2 018497,000289: 33,2354 00003 RELINT 018498,000290: 33,2355 01425 ENDCHKG TC QPLACE 018499,000291: 018500,000292: 018501,000293: 33,2356 54001 ZEROING TS L 018502,000294: 33,2357 12361 TCF +2 018503,000295: 33,2360 55655 ZEROING1 TS ZERONDX1 018504,000296: 33,2361 34714 CAF ZERO 018505,000297: 33,2362 50001 INDEX L 018506,000298: 33,2363 54000 TS 0 018507,000299: 33,2364 24001 INCR L 018508,000300: 33,2365 11655 CCS ZERONDX1 018509,000301: 33,2366 12360 TCF ZEROING1 018510,000302: 33,2367 00002 TC Q 018511,000303:
![]() |
Page 421 |
018513,000305: 32,2000 SETLOC IMUCAL3 018514,000306: 32,2000 BANK 018515,000307: 32,2000 65345 ERTHRVSE DLOAD PDDL 018516,000308: 32,2001 27113 SCHZEROS # PD24 = (SIN -COS 0)(OMEG/MS) 018517,000309: 32,2002 02403 LATITUDE 018518,000310: 32,2003 57546 COS DCOMP 018519,000311: 32,2004 73525 PDDL SIN 018520,000312: 32,2005 02403 LATITUDE 018521,000313: 32,2006 74266 VDEF VXSC 018522,000314: 32,2007 26450 OMEG/MS 018523,000315: 32,2010 02405 STORE ERVECTOR 018524,000316: 32,2011 77634 RTB 018525,000317: 32,2012 45505 LOADTIME 018526,000318: 32,2013 26443 STOVL TMARK 018527,000319: 32,2014 27113 SCHZEROS 018528,000320: 32,2015 02650 STORE ERCOMP1 018529,000321: 32,2016 77616 RVQ 018530,000322: 33,2000 SETLOC IMUCAL 018531,000323: 33,2000 BANK 018532,000324: 33,2370 47020 EARTHR ITA RTB # CALCULATES AND COMPENSATES EARTH RATE 018533,000325: 33,2371 00051 S2 018534,000326: 33,2372 45505 LOADTIME 018535,000327: 33,2373 02441 STORE TEMPTIME 018536,000328: 33,2374 51025 DSU BPL 018537,000329: 33,2375 02443 TMARK 018538,000330: 33,2376 66401 ERTHR 018539,000331: 33,2377 77624 CALL 018540,000332: 33,2400 66276 OVERFFIX 018541,000333: 33,2401 74261 ERTHR SL VXSC 018542,000334: 33,2402 20212 9D 018543,000335: 33,2403 02405 ERVECTOR 018544,000336: 33,2404 53321 MXV VAD 018545,000337: 33,2405 02672 XSM 018546,000338: 33,2406 02650 ERCOMP1 018547,000339: 33,2407 16650 STODL ERCOMP1 018548,000340: 33,2410 02441 TEMPTIME 018549,000341: 33,2411 02443 STORE TMARK 018550,000342: 33,2412 47170 AXT,1 RTB 018551,000343: 33,2413 02647 ECADR ERCOMP1 018552,000344: 33,2414 45650 PULSEIMU 018553,000345: 33,2415 77650 GOTO 018554,000346: 33,2416 00051 S2 018555,000347: 33,2417 00006 EARTHR* EXTEND 018556,000348: 33,2420 23426 QXCH QPLACES 018557,000349: 33,2421 06006 TC INTPRET 018558,000350: 33,2422 77624 CALL 018559,000351: 33,2423 66370 EARTHR 018560,000352: 33,2424 77776 PROUT EXIT 018561,000353: 33,2425 02316 TC IMUSTLLG 018562,000354: 33,2426 01426 TC QPLACES
![]() |
Page 422 |
018564,000356: 33,2427 00006 SHOW EXTEND 018565,000357: 33,2430 23425 QXCH QPLACE 018566,000358: 33,2431 31423 SHOW1 CA POSITON 018567,000359: 33,2432 55052 TS DSPTEM2 +2 018568,000360: 33,2433 32442 CA VB06N98 018569,000361: 33,2434 04555 TC BANKCALL 018570,000362: 33,2435 20624 CADR GOFLASH 018571,000363: 33,2436 02267 TC ENDTEST1 # V 34 018572,000364: 33,2437 01425 TC QPLACE # V33 018573,000365: 33,2440 12431 TCF SHOW1 018574,000366: 018575,000367: 33,2441 14400 OC14400 OCT 14400 018576,000368: 33,2442 33,2447 3990DEC = OMEG/MS 018577,000369: 33,2442 01542 VB06N98 VN 0698 018578,000370: 33,2443 01602 TESTTIME OCT 01602 018579,000371: 33,2444 4375 DEC17 = ND1 018580,000372: 33,2444 02757 OGCPL ECADR OGC 018581,000373: 33,2445 4734 1SECX = 1SEC 018582,000374: 33,2445 4374 DEC57 = VD1 018583,000375: 33,2445 01713 XNBADR GENADR XNB 018584,000376: 33,2446 01671 XSMADR GENADR XSM 018585,000377: 33,2447 07623 26552 OMEG/MS 2DEC .24339048 018586,000378: 018587,000379: 018588,000380: 33,2451 04555 P11OUT TC BANKCALL 018589,000381: 33,2452 70127 CADR MATRXJOB # RETURN TO P11 018590,000382: 018591,000383: 33,2453 COUNT 02/COMST 018592,000384: 018593,000385: 4526 BLOCK 2 018594,000386: 4526 00004 FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED 018595,000387: 4527 00006 EXTEND 018596,000388: 4530 00004 READ LOSCALAR 018597,000389: 4531 54001 TS L 018598,000390: 4532 00006 EXTEND 018599,000391: 4533 06004 RXOR LOSCALAR 018600,000392: 4534 00006 EXTEND 018601,000393: 4535 14541 BZF +4 018602,000394: 4536 00006 EXTEND 018603,000395: 4537 00004 READ LOSCALAR 018604,000396: 4540 54001 TS L 018605,000397: 4541 44672 +4 CS POSMAX 018606,000398: 4542 60001 AD L 018607,000399: 4543 00006 EXTEND 018608,000400: 4544 14527 BZF FINETIME +1 018609,000401: 4545 00006 EXTEND 018610,000402: 4546 00003 READ HISCALAR 018611,000403: 4547 00002 TC Q 018612,000404:
![]() |
Page 423 |
018614,000406: # PROGRAM NAME-OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION 018615,000407: # DATE- NOVEMBER 2 1966 018616,000408: # BY- GEORGE SCHMIDT IL 7-146 EXT. 126 018617,000409: # MOD NO 3 018618,000410: # FUNCTIONAL DESCRIPTION 018619,000411: 018620,000412: # THIS SECTION CONSISTS OF PRELAUNCH ALIGNMENT AND GYRO DRIFT TESTS 018621,000413: # INTEGRATED TOGETHER TO SAVE WORDS. COMPASS IS COMPLETELY RESTART 018622,000414: # PROOFED EXCEPT FOR THE FIRST 30 SECONDS OR SO. PERFORMANCE TESTS OF 018623,000415: # THE IRIGS IS RESTART PROOFED ENOUGH TO GIVE 75 PERCENT CONFIDENCE THAT 018624,000416: # IF A RESTART OCCURS THE DATA WILL STILL BE GOOD. GOOD PRACTICE TO RECYCL 018625,000417: # WHEN A RESTART OCCURS UNLESS IT HAPPENS NEAR THE END OF A TEST-THEN WAIT 018626,000418: # FOR THE DATA TO FLASH. 018627,000419: # A RESTART IN GYROCOMPASS DURING GYRO TORQUING CAUSES PULSES TO BE LOST 018628,000420: # THE PRELAUNCH ALIGNMENT TECHNIQUE IS BASICALLY THE SAME AS IN BLOCK 1 018629,000421: # EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SENSE THAT SMALL ANGLE APPROX. 018630,000422: # HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE 018631,000423: # OPTIMUM STATISTICAL FILTER. FOR A DESCRIPTION SEE E-1973.BOTH OF THESE 018632,000424: # ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATION 018633,000425: # PROCEDURE FOR THE DRIFT TESTS IS IN THE JDC S. THE INITIALIZATION METHOD 018634,000426: # FOR GYROCOMPASS IS AN ERAS LOAD THEN A MISSION PHASE CALL. 018635,000427: # THE COMPASS ALIGNS TO Z DOWN,X DOWNRANGE, HAS THE CAPABILITY 018636,000428: # CHANGE AZIMUTH WHILE RUNNING , IS COMPENSATED FOR 018637,000429: # COMPONENT ERRORS,IS CAPABLE OF OPTICAL VERIFICATION( CSM ONLY). 018638,000430: 018639,000431: # COMPASS ERASABLE LOAD REQUIRED 018640,000432: 018641,000433: # 1-LAUNCHAZ -DP AZIMUTH IN REV FROM NORTH OF XSM DESIRED (NOM=.2) 018642,000434: # 2- LATITUDE -DP-OF LAUNCH PAD 018643,000435: # 3- AZIMUTH-DP-OF ZNB OF VEHICLE 018644,000436: # 4- IMU COMPENSATION PARAMETERS 018645,000437: # 5-AZ AND ELEVATION OF TARGETS 1,2 ****OPTIONAL**** 018646,000438: 018647,000439: # TO PERFORM AS PART OF COMPASS 018648,000440: 018649,000441: # 1-OPTICAL VERIFICATION- V 65 E 018650,000442: # 2-AZIMUTH CHANGE-V 78 E 018651,000443: 018652,000444: # SUBROUTINES CALLED 018653,000445: 018654,000446: # DURING OPTICAL VERIFICATION (CSM ONLY) ESSENTIALLY ALL OF INFLIGHT ALIGN 018655,000447: # IS CALLED IN ONE WAY OR ANOTHER. SEE THE LISTING. 018656,000448: 018657,000449: # NORMAL EXIT 018658,000450: 018659,000451: # DRIFT TESTS- LENGTHOT GOES TO ZERO-RETURN TO IMU PERF TEST2 CONTROL 018660,000452: # GYROCOMPASS-MANY,SEE THE LISTING 018661,000453: # ALARMS 018662,000454: 018663,000455: # 1600 OVERFLOW IN DRIFT TEST
![]() |
Page 424 |
018665,000457: # 1601 BAD IMU TORQUE ABORT 018666,000458: # 1602 BAD OPTICS DURING VERIFICATION-RETURN TO COMPASS CSM ONLY 018667,000459: 018668,000460: # OUTPUT 018669,000461: 018670,000462: # DRIFT TESTS- FLASHING DISPLAYS OF RESULTS-CONTROLLED IN IMU PERF TESTS 2 018671,000463: # COMPASS-PROGRAM MODE LIGHTS TELL YOU WHAT PHASE OF PROGRAM YOU ARE IN 018672,000464: # 01 INITIALIZING THE PLATFORM POSITION AND ERASABLE 018673,000465: # 02 GYROCOMPASSING 018674,000466: # 03 DOING OPTICAL VERIFICATION (CSM) 018675,000467: 018676,000468: 018677,000469: # DEBRIS 018678,000470: 018679,000471: # ALL CENTRALS,ALL OF EBANK XSM 018680,000472:
![]() |
Page 425 |
018682,000474: # MOST OF THE ROUTINES COMMON TO ALIGNMENT AND CALIBRATION APPEAR 018683,000475: # ON THE NEXT FEW PAGES. 018684,000476: 018685,000477: 018686,000478: 4550 COUNT 33/P02 018687,000479: 018688,000480: 4550 E5,1671 EBANK= XSM 018689,000481: 33,2453 BANK 33 018690,000482: 33,2000 SETLOC IMUCAL 018691,000483: 33,2000 BANK 018692,000484: 018693,000485: 33,2453 05261 ESTIMS TC 2PHSCHNG # COMES HERE FROM IMU2 018694,000486: 33,2454 00075 OCT 00075 018695,000487: 33,2455 00004 OCT 00004 # TURN OFF GROUP 4 IF ON 018696,000488: 33,2456 00004 RSTGTS1 INHINT # COMES HERE PHASE1 RESTART 018697,000489: 33,2457 30025 CA TIME1 018698,000490: 33,2460 55645 TS GTSWTLT1 018699,000491: 33,2461 34714 CAF ZERO # ZERO THE PIPAS 018700,000492: 33,2462 54037 TS PIPAX 018701,000493: 33,2463 54040 TS PIPAY 018702,000494: 33,2464 54041 TS PIPAZ 018703,000495: 33,2465 00003 RELINT 018704,000496: 33,2466 33131 CA 77DECML # ZERO ALL NECESSARY LOCATIONS 018705,000497: 33,2467 55655 TS ZERONDX1 018706,000498: 33,2470 33132 CA ALXXXZ 018707,000499: 33,2471 02356 TC ZEROING 018708,000500: 33,2472 06006 TC INTPRET 018709,000501: 33,2473 77735 SLOAD 018710,000502: 33,2474 27113 SCHZEROS 018711,000503: 33,2475 25477 STOVL GCOMPSW -1 018712,000504: 33,2476 27124 INTVAL +2 # LOAD SOME INITIAL DRIFT GAINS 018713,000505: 33,2477 26455 STOVL ALX1S 018714,000506: 33,2500 27113 SCHZEROS 018715,000507: 33,2501 01472 STORE GCOMP 018716,000508: 33,2502 01163 STORE DELVX # GCOMPZER SUBROUTINE NO LONGER NEEDED 018717,000509: 33,2503 77776 EXIT 018718,000510: 018719,000511: 33,2504 11643 CCS GEOCOMP1 # NON ZERO IF COMPASS. 018720,000512: 33,2505 02507 TC +2 018721,000513: 33,2506 02523 TC SLEEPIE +1 018722,000514: 33,2507 06006 TC INTPRET 018723,000515: 33,2510 77624 CALL 018724,000516: 33,2511 64000 ERTHRVSE 018725,000517: 33,2512 77776 EXIT 018726,000518: 33,2513 31412 CA LENGTHOT # TIMES FIVE IS THE NUM OF SEC ERECTING 018727,000519: 33,2514 55646 TS ERECTIME 018728,000520: 018729,000521: 33,2515 05243 TC NEWMODEX 018730,000522: 33,2516 00002 MM 02 B-14 018731,000523: 33,2517 04555 TC BANKCALL # SET UP PIPA FAIL TO CAUSE ISS ALARM
![]() |
Page 426 |
018733,000525: 33,2520 17075 CADR PIPUSE # COMPASS NEVER TURNS THIS OFF 018734,000526: 33,2521 03377 TC ANNNNNN # END OF FIRST TIME THROUGH 018735,000527:
![]() |
Page 427 |
018737,000529: # COMES HERE AT THE END OF EVERY ITERATION THROUGH DRIFT TEST OR COMPASS 018738,000530: 018739,000531: # SET UP WAITLIST SECTION 018740,000532: 33,2522 55412 SLEEPIE TS LENGTHOT # TEST NOT OVER-DECREMENT LENGTHOT 018741,000533: 33,2523 05301 TC PHASCHNG # CHANGE PHASE 018742,000534: 33,2524 00135 OCT 00135 018743,000535: 33,2525 11450 CCS TORQNDX # ARE WE DOING VERTDRIFT 018744,000536: 33,2526 02417 TC EARTHR* # TRUE TORQUE SOUTH GYRO 018745,000537: 33,2527 03402 WTLISTNT TC CHKCOMED # SEE IF COMPASS OVER 018746,000538: 33,2530 02532 TC SETGWLST 018747,000539: 33,2531 05112 TC ENDOFJOB 018748,000540: 018749,000541: 33,2532 00006 SETGWLST EXTEND 018750,000542: 33,2533 22154 QXCH MPAC # CALLED EVERY WAITLIST OR AZIMUTH CHANGE 018751,000543: 33,2534 00004 INHINT 018752,000544: 33,2535 40025 CS TIME1 018753,000545: 33,2536 61645 AD GTSWTLT1 018754,000546: 33,2537 00006 EXTEND 018755,000547: 33,2540 62542 BZMF +2 018756,000548: 33,2541 64674 AD NEGMAX # 10 MS ERROR OK 018757,000549: 33,2542 61644 AD 1SECXT1 # 1 SEC FOR CALIBRATION, .5 SEC IN COMPASS 018758,000550: 33,2543 00006 EXTEND 018759,000551: 33,2544 62550 BZMF RIGHTGTS 018760,000552: 33,2545 05130 WTGTSMPL TC TWIDDLE 018761,000553: 33,2546 E5,1540 EBANK= ALTIM 018762,000554: 33,2546 02575 ADRES ALLOOP 018763,000555: 33,2547 00154 TC MPAC 018764,000556: 33,2550 34710 RIGHTGTS CAF FOUR # SET UP NEXT WAITLIST-ALLOW SOME TIME 018765,000557: 33,2551 02545 TC WTGTSMPL # END OF WAITLIST SECTION 018766,000558: 018767,000559: 018768,000560: # STORE AND LOAD DATA SECTIONS FOR RESTART PROOFING 018769,000561: 018770,000562: 33,2552 00031 25DECML DEC 25 B-14 018771,000563: 018772,000564: 33,2553 32552 STOREDTA CAF 25DECML 018773,000565: 33,2554 54154 TS MPAC 018774,000566: 33,2555 50154 INDEX MPAC 018775,000567: 33,2556 31460 CAE THETAX1 018776,000568: 33,2557 50154 INDEX MPAC 018777,000569: 33,2560 55577 TS RESTARPT 018778,000570: 33,2561 10154 CCS MPAC 018779,000571: 33,2562 12554 TCF STOREDTA +1 018780,000572: 33,2563 00002 TC Q 018781,000573: 018782,000574: 018783,000575: 33,2564 32552 LOADSTDT CAF 25DECML 018784,000576: 33,2565 54154 TS MPAC 018785,000577: 33,2566 50154 INDEX MPAC 018786,000578: 33,2567 31577 CA RESTARPT
![]() |
Page 428 |
018788,000580: 33,2570 50154 INDEX MPAC 018789,000581: 33,2571 55460 TS THETAX1 018790,000582: 33,2572 10154 CCS MPAC 018791,000583: 33,2573 12565 TCF LOADSTDT +1 018792,000584: 33,2574 00002 TC Q 018793,000585: 018794,000586: 018795,000587: # COMES HERE EVERY ITERATION BY A WAITLIST CALL SET IN SLEEPIE 018796,000588: 018797,000589: 33,2575 30025 ALLOOP CAE TIME1 018798,000590: 33,2576 55645 TS GTSWTLT1 # STORE TIME TO SET UP NEXT WAITLIST. 018799,000591: 33,2577 31540 ALLOOP3 CA ALTIM 018800,000592: 33,2600 55631 TS GEOSAVE1 018801,000593: 33,2601 05301 TC PHASCHNG 018802,000594: 33,2602 00115 OCT 00115 018803,000595: 33,2603 31631 ALLOOP1 CAE GEOSAVE1 018804,000596: 33,2604 55540 TS ALTIM 018805,000597: 33,2605 10000 CCS A 018806,000598: 33,2606 30000 CA A # SHOULD NEVER HIT THIS LOCATION 018807,000599: 33,2607 55541 TS ALTIMS 018808,000600: 33,2610 40000 CS A 018809,000601: 33,2611 55540 TS ALTIM 018810,000602: 33,2612 30037 CA PIPAX 018811,000603: 33,2613 55162 TS DELVX 018812,000604: 33,2614 30040 CA PIPAY 018813,000605: 33,2615 55164 TS DELVY 018814,000606: 33,2616 30041 CA PIPAZ 018815,000607: 33,2617 55166 TS DELVZ 018816,000608: 33,2620 34374 CAF 19DECML # 23 OCT 018817,000609: 33,2621 04114 TC NEWPHASE 018818,000610: 33,2622 00005 OCT 00005 018819,000611: 33,2623 34714 SPECSTS CAF ZERO 018820,000612: 33,2624 54037 TS PIPAX 018821,000613: 33,2625 54040 TS PIPAY 018822,000614: 33,2626 54041 TS PIPAZ 018823,000615: 33,2627 34675 CAF PRIO20 018824,000616: 33,2630 05042 TC FINDVAC 018825,000617: 33,2631 E5,1631 EBANK= GEOSAVE1 018826,000618: 33,2631 02634 66065 2CADR ALFLT # START THE JOB 018827,000619: 33,2633 05213 TC TASKOVER 018828,000620:
![]() |
Page 429 |
018830,000622: # THIS IS PART OF THE JOB DONE EVERY ITERATION 018831,000623: 018832,000624: 33,2634 02553 ALFLT TC STOREDTA # STORE DATA IN CASE OF RESTART IN JOB 018833,000625: 33,2635 05301 TC PHASCHNG # THIS IS THE JOB DONE EVERY ITERATION 018834,000626: 33,2636 00215 OCT 00215 018835,000627: 33,2637 12641 TCF +2 018836,000628: 33,2640 02564 ALFLT1 TC LOADSTDT # COMES HERE ON RESTART 018837,000629: 018838,000630: 33,2641 11643 CCS GEOCOMP1 018839,000631: 33,2642 02644 TC +2 018840,000632: 33,2643 02647 TC NORMLOP 018841,000633: 33,2644 03402 TC CHKCOMED # SEE IF PRELAUNCH OVER 018842,000634: 33,2645 04555 TC BANKCALL # COMPENSATION IF IN COMPASS 018843,000635: 33,2646 15262 CADR 1/PIPA 018844,000636: 018845,000637: 33,2647 06006 NORMLOP TC INTPRET 018846,000638: 33,2650 77745 DLOAD 018847,000639: 33,2651 27122 INTVAL 018848,000640: 33,2652 24051 STOVL S1 018849,000641: 33,2653 01163 DELVX 018850,000642: 33,2654 76505 VXM VSL1 018851,000643: 33,2655 02672 XSM 018852,000644: 33,2656 57545 DLOAD DCOMP 018853,000645: 33,2657 00160 MPAC +3 018854,000646: 33,2660 16533 STODL DPIPAY 018855,000647: 33,2661 00162 MPAC +5 018856,000648: 33,2662 02537 STORE DPIPAZ 018857,000649: 018858,000650: 33,2663 76001 SETPD AXT,1 018859,000651: 33,2664 00001 0 018860,000652: 33,2665 00010 8D 018861,000653: 33,2666 57535 SLOAD DCOMP 018862,000654: 33,2667 02644 GEOCOMP1 018863,000655: 33,2670 77640 BMN 018864,000656: 33,2671 67204 ALWAYSG # DO A QUICK COMPASS 018865,000657:
![]() |
Page 430 |
018867,000659: # NOW WE HAVE JUST THE CALIBRATION PARTS OF THE PROGRAM-NEXT PAGES 018868,000660: 018869,000661: 33,2672 COUNT 33/COMST 018870,000662: 018871,000663: 33,2672 50135 ALCGKK SLOAD BMN 018872,000664: 33,2673 02542 ALTIMS 018873,000665: 33,2674 66707 ALFLT3 # NO NEW GAINS NEEDED 018874,000666: 33,2675 72174 ALKCG AXT,2 LXA,1 # LOADS SLOPES AND TIME CONSTANTS AT RQST 018875,000667: 33,2676 00014 12D 018876,000668: 33,2677 02454 ALX1S 018877,000669: 33,2700 62143 ALKCG2 DLOAD* INCR,1 018878,000670: 33,2701 02243 ALFDK +144D,1 018879,000671: 33,2702 77775 DEC -2 B-14 018880,000672: 33,2703 12555 STORE ALDK +10D,2 018881,000673: 33,2704 66104 TIX,2 SXA,1 018882,000674: 33,2705 66700 ALKCG2 018883,000675: 33,2706 02454 ALX1S 018884,000676: 018885,000677: 33,2707 77770 ALFLT3 AXT,1 # MEASUREMENT INCORPORATION ROUTINES 018886,000678: 33,2710 00010 8D # AND GAIN UPDATES 018887,000679: 33,2711 41343 DELMLP DLOAD* DMP 018888,000680: 33,2712 02543 DPIPAY +8D,1 018889,000681: 33,2713 27676 PIPASC 018890,000682: 33,2714 43661 SLR BDSU* 018891,000683: 33,2715 21212 9D 018892,000684: 33,2716 02511 INTY +8D,1 018893,000685: 33,2717 06511 STORE INTY +8D,1 018894,000686: 33,2720 40725 PDDL DMP* 018895,000687: 33,2721 27700 VELSC 018896,000688: 33,2722 02531 VLAUN +8D,1 018897,000689: 33,2723 77732 SL2R 018898,000690: 33,2724 45425 DSU STADR 018899,000691: 33,2725 71206 STORE DELM +8D,1 018900,000692: 33,2726 06573 STORE DELM +10D,1 018901,000693: 33,2727 77100 TIX,1 AXT,2 018902,000694: 33,2730 66711 DELMLP 018903,000695: 33,2731 00004 4 018904,000696: 33,2732 56743 ALILP DLOAD* DMPR* 018905,000697: 33,2733 75314 ALK +4,2 018906,000698: 33,2734 75230 ALDK +4,2 018907,000699: 33,2735 12463 STORE ALK +4,2 018908,000700: 33,2736 77104 TIX,2 AXT,2 018909,000701: 33,2737 66732 ALILP 018910,000702: 33,2740 00010 8D 018911,000703: 33,2741 66140 ALKLP LXC,1 SXA,1 018912,000704: 33,2742 02455 CMPX1 018913,000705: 33,2743 02455 CMPX1 018914,000706: 33,2744 56743 DLOAD* DMPR* 018915,000707: 33,2745 02460 ALK +1,1 018916,000708: 33,2746 75206 DELM +8D,2
![]() |
Page 431 |
018918,000710: 33,2747 77613 DAD* 018919,000711: 33,2750 75266 INTY +8D,2 018920,000712: 33,2751 12511 STORE INTY +8D,2 018921,000713: 33,2752 42743 DLOAD* DAD* 018922,000714: 33,2753 75304 ALK +12D,2 018923,000715: 33,2754 75220 ALDK +12D,2 018924,000716: 33,2755 12473 STORE ALK +12D,2 018925,000717: 33,2756 42673 DMPR* DAD* 018926,000718: 33,2757 75206 DELM +8D,2 018927,000719: 33,2760 75256 INTY +16D,2 018928,000720: 33,2761 12521 STORE INTY +16D,2 018929,000721: 33,2762 40743 DLOAD* DMP* 018930,000722: 33,2763 27703 ALSK +1,1 018931,000723: 33,2764 75206 DELM +8D,2 018932,000724: 33,2765 42772 SL1R DAD* 018933,000725: 33,2766 75246 VLAUN +8D,2 018934,000726: 33,2767 12531 STORE VLAUN +8D,2 018935,000727: 33,2770 76104 TIX,2 AXT,1 018936,000728: 33,2771 66741 ALKLP 018937,000729: 33,2772 00010 8D 018938,000730: 018939,000731: 018940,000732: 33,2773 64743 LOOSE DLOAD* PDDL* # EXTRAPOLATE SWAY VARIABLES 018941,000733: 33,2774 02533 ACCWD +8D,1 018942,000734: 33,2775 02531 VLAUN +8D,1 018943,000735: 33,2776 55523 PDDL* VDEF 018944,000736: 33,2777 02541 POSNV +8D,1 018945,000737: 33,3000 76521 MXV VSL1 018946,000738: 33,3001 02001 TRANSM1 018947,000739: 33,3002 77745 DLOAD 018948,000740: 33,3003 00155 MPAC 018949,000741: 33,3004 06541 STORE POSNV +8D,1 018950,000742: 33,3005 77745 DLOAD 018951,000743: 33,3006 00160 MPAC +3 018952,000744: 33,3007 06531 STORE VLAUN +8D,1 018953,000745: 33,3010 77745 DLOAD 018954,000746: 33,3011 00162 MPAC +5 018955,000747: 33,3012 06533 STORE ACCWD +8D,1 018956,000748: 33,3013 77700 TIX,1 018957,000749: 33,3014 66773 LOOSE 018958,000750: 018959,000751: 018960,000752: 33,3015 76174 AXT,2 AXT,1 # EVALUATE SINES AND COSINES 018961,000753: 33,3016 00006 6 018962,000754: 33,3017 00002 2 018963,000755: 33,3020 57343 BOOP DLOAD* DMPR 018964,000756: 33,3021 02513 ANGX +2,1 018965,000757: 33,3022 27706 GEORGEJ 018966,000758: 33,3023 77722 SR2R 018967,000759: 33,3024 73406 PUSH SIN
![]() |
Page 432 |
018969,000761: 33,3025 56072 SL3R XAD,1 018970,000762: 33,3026 00046 X1 018971,000763: 33,3027 10021 STORE 16D,2 018972,000764: 33,3030 77745 DLOAD 018973,000765: 33,3031 77746 COS 018974,000766: 33,3032 10027 STORE 22D,2 # COSINES 018975,000767: 33,3033 77704 TIX,2 018976,000768: 33,3034 67020 BOOP 018977,000769: 33,3035 77776 PERFERAS EXIT 018978,000770: 33,3036 34753 CA EBANK7 018979,000771: 33,3037 E7,1400 EBANK= LAT(SPL) 018980,000772: 33,3037 54003 TS EBANK 018981,000773: 33,3040 01400 TC LAT(SPL) # GO TO ERASABLE ONLY TO RETURN 018982,000774: 018983,000775: # CAUTION 018984,000776: 018985,000777: # THE ERASABLE PROGRAM THAT DOES THE CALCULATIONS MUST BE LOADED 018986,000778: # BEFORE ANY ATTEMPT IS MADE TO RUN THE IMU PERFORMANCE TEST 018987,000779: 018988,000780: 33,3041 E5,1412 EBANK= LENGTHOT 018989,000781: 33,3041 11412 ONCEMORE CCS LENGTHOT 018990,000782: 33,3042 02522 TC SLEEPIE # TEST NOT OVER SET UP NEXT WAITLIST 018991,000783: 018992,000784: 33,3043 11450 CCS TORQNDX 018993,000785: 33,3044 13046 TCF +2 018994,000786: 33,3045 03050 TC SETUPER1 018995,000787: 33,3046 30032 CA CDUX 018996,000788: 33,3047 55414 TS LOSVEC +1 # FOR TROUBLESHOOTING POSNS 2$4 VD 018997,000789: 33,3050 06006 SETUPER1 TC INTPRET # DRIFT TEST OVER 018998,000790: 33,3051 65345 DLOAD PDDL # ANGLES FROM DRIFT TEST ONLY 018999,000791: 33,3052 02503 ANGZ 019000,000792: 33,3053 02507 ANGY 019001,000793: 33,3054 55525 PDDL VDEF 019002,000794: 33,3055 02511 ANGX 019003,000795: 33,3056 74276 VCOMP VXSC 019004,000796: 33,3057 27706 GEORGEJ 019005,000797: 33,3060 74521 MXV VSR1 019006,000798: 33,3061 02672 XSM 019007,000799: 33,3062 02760 STORE OGC 019008,000800: 33,3063 77776 EXIT 019009,000801: 019010,000802: 33,3064 05301 TORQINCH TC PHASCHNG 019011,000803: 33,3065 00005 OCT 00005 019012,000804: 33,3066 32444 CA OGCPL 019013,000805: 33,3067 04555 TC BANKCALL 019014,000806: 33,3070 17125 CADR IMUPULSE 019015,000807: 33,3071 02316 TC IMUSTLLG 019016,000808: 33,3072 11450 CCS TORQNDX # + IF IN VERTICAL DRIFT TEST 019017,000809: 33,3073 02262 TC VALMIS # VERT DRIFT TEST OVER 019018,000810: 33,3074 06006 TC INTPRET
![]() |
Page 433 |
019020,000812: 33,3075 77624 CALL # SET UP ERATE FOR PIP TEST OR COMPASS 019021,000813: 33,3076 64000 ERTHRVSE 019022,000814: 33,3077 77776 EXIT 019023,000815: 33,3100 02122 TC TORQUE # GO TO IMU2 FOR A PIPA TEST AND DISPLAY 019024,000816: 019025,000817: 019026,000818: 33,3101 05537 SOMEERR TC ALARM 019027,000819: 33,3102 01600 OCT 1600 019028,000820: 33,3103 03106 TC +3 019029,000821: 33,3104 05537 SOMERR2 TC ALARM 019030,000822: 33,3105 01601 OCT 1601 019031,000823: 33,3106 05301 TC PHASCHNG 019032,000824: 33,3107 00005 OCT 00005 019033,000825: 33,3110 02267 TC ENDTEST1 019034,000826: 019035,000827: 019036,000828: # THE FAMOUS MAGIC NUMBERS OF SCHMIDT ARE NOW PART OF AN ERASABLE LOAD. 019037,000829: 019038,000830: 019039,000831: 33,3111 02222 DEC585 OCT 02222 # 1170 B+14 ORDER IS NOW IMPORTANT 019040,000832: 33,3112 00000 00000 SCHZEROS 2DEC .00000000 019041,000833: 33,3114 00000 00000 2DEC .00000000 019042,000834: 33,3116 00000 OCT 00000 019043,000835: 33,3117 00000 ONEDPP OCT 00000 019044,000836: 33,3120 00001 OCT 00001 # ABOVE ORDER IS IMPORTANT 019045,000837: 019046,000838: 019047,000839: 33,3121 00004 INTVAL OCT 4 019048,000840: 33,3122 00002 OCT 2 019049,000841: 33,3123 00220 DEC 144 B-14 019050,000842: 33,3124 77776 DEC -1 B-14 019051,000843: 33,3125 35730 00035 SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS 019052,000844: 33,3127 10317 17550 2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES 019053,000845: 019054,000846: 019055,000847: 33,3131 00115 77DECML DEC 77 B-14 019056,000848: 33,3132 01453 ALXXXZ GENADR ALX1S -1 019057,000849: # GYROCOMPASS PORTIONS FINISH THIS LOG SECTION 019058,000850: 019059,000851: 019060,000852: 33,3133 COUNT 33/P01 019061,000853: 019062,000854: # INITIALIZATION SECTION 019063,000855: 019064,000856: 33,3133 34712 GTSCPSS CAF ONE # CALLED BY V37. 019065,000857: 33,3134 55643 TS GEOCOMP1 # THIS IS THE LEAD IN FOR COMPASS.
![]() |
Page 434 |
019067,000859: 33,3135 33425 CA 1/PIPAGT 019068,000860: 33,3136 55074 TS 1/PIPADT 019069,000861: 33,3137 34703 NXXTBNN CA BIT8 019070,000862: 33,3140 55412 TS LENGTHOT 019071,000863: 33,3141 34731 CAF 1/2SECX # COMPASS IS A .5 SEC LOOP 019072,000864: 33,3142 55644 TS 1SECXT1 019073,000865: 33,3143 34712 CAF ONE 019074,000866: 33,3144 55632 TS PREMTRX1 019075,000867: 33,3145 55657 TS PERFDLAY +1 019076,000868: 33,3146 34714 CAF ZERO 019077,000869: 33,3147 55656 TS PERFDLAY 019078,000870: 33,3150 00006 EXTEND 019079,000871: 33,3151 31634 DCA LUNCHAZ1 019080,000872: 33,3152 53636 DXCH NEWAZ1 019081,000873: 33,3153 00006 EXTEND 019082,000874: 33,3154 31634 DCA LUNCHAZ1 019083,000875: 33,3155 53640 DXCH OLDAZMTH 019084,000876: 33,3156 34375 SETUPGC CA DEC17 019085,000877: 33,3157 55655 TS ZERONDX1 019086,000878: 33,3160 32446 CA XSMADR 019087,000879: 33,3161 02356 TC ZEROING 019088,000880: 33,3162 03164 TC POSN17C 019089,000881: 33,3163 02030 TC GEOIMUTT # GO TO IMU2 FOR FURTHER INITIALIZATION 019090,000882: 019091,000883: 019092,000884: 33,3164 00006 POSN17C EXTEND # COMPASS POSITION Z DOWN,X DOWNRANGE 019093,000885: 33,3165 23425 QXCH QPLACE # FROM NORTH IN REVOLUTIONS + CLOCKWSE 019094,000886: 33,3166 44675 CS HALF # ALL THIS TO INITIALIZE MATRIX 019095,000887: 33,3167 55705 TS ZSM 019096,000888: 33,3170 06006 TC INTPRET 019097,000889: 33,3171 41545 DLOAD PUSH 019098,000890: 33,3172 02636 NEWAZ1 019099,000891: 33,3173 77756 SIN 019100,000892: 33,3174 02676 STORE XSM +4 019101,000893: 33,3175 16702 STODL YSM +2 019102,000894: 33,3176 77746 COS 019103,000895: 33,3177 02704 STORE YSM +4 019104,000896: 33,3200 77676 DCOMP 019105,000897: 33,3201 02674 STORE XSM +2 019106,000898: 33,3202 77776 EXIT 019107,000899: 33,3203 01425 TC QPLACE 019108,000900: 019109,000901: 019110,000902: # JOB DONE EVERY ITERATION THROUGH COMPASS PROGRAM. SET BY TASK ALLOOP 019111,000903: 019112,000904: 33,3204 COUNT 33/P02 019113,000905: 019114,000906: 33,3204 44743 ALWAYSG DLOAD* DSU* # COMPASS AND ERECT 019115,000907: 33,3205 02543 DPIPAY +8D,1 019116,000908: 33,3206 02505 FILDELV1 +8D,1
![]() |
Page 435 |
019118,000910: 33,3207 42675 DMPR DAD* 019119,000911: 33,3210 27714 GEOCONS1 019120,000912: 33,3211 02505 FILDELV1 +8D,1 019121,000913: 33,3212 06505 STORE FILDELV1 +8D,1 019122,000914: 33,3213 77613 DAD* 019123,000915: 33,3214 02507 INTVEC1 +8D,1 019124,000916: 33,3215 06507 STORE INTVEC1 +8D,1 019125,000917: 33,3216 42675 DMPR DAD* 019126,000918: 33,3217 27716 GEOCONS2 019127,000919: 33,3220 02505 FILDELV1 +8D,1 019128,000920: 33,3221 41475 DMPR PUSH 019129,000921: 33,3222 15330 GEOCONS5 019130,000922: 33,3223 67300 TIX,1 SLOAD 019131,000923: 33,3224 67204 ALWAYSG 019132,000924: 33,3225 02647 ERECTIM1 019133,000925: 33,3226 71254 BZE DLOAD 019134,000926: 33,3227 67240 COMPGS 019135,000927: 33,3230 02471 THETAN1 +2 019136,000928: 33,3231 45425 DSU STADR 019137,000929: 33,3232 61306 STODL THETAN1 +2 # ERECTION ONLY. 019138,000930: 33,3233 77621 BDSU 019139,000931: 33,3234 02473 THETAN1 +4 019140,000932: 33,3235 02473 STORE THETAN1 +4 019141,000933: 33,3236 77650 GOTO 019142,000934: 33,3237 67262 ADDINDRF 019143,000935: 33,3240 43345 COMPGS DLOAD DAD # COMPASS 019144,000936: 33,3241 02467 THETAN1 019145,000937: 33,3242 02475 FILDELV1 019146,000938: 33,3243 16467 STODL THETAN1 019147,000939: 33,3244 02475 FILDELV1 019148,000940: 33,3245 44275 DMPR BDSU 019149,000941: 33,3246 27720 GEOCONS3 019150,000942: 33,3247 02473 THETAN1 +4 019151,000943: 33,3250 16473 STODL THETAN1 +4 019152,000944: 33,3251 02501 FILDELV1 +4 019153,000945: 33,3252 44275 DMPR BDSU 019154,000946: 33,3253 27720 GEOCONS3 019155,000947: 33,3254 02471 THETAN1 +2 019156,000948: 33,3255 57325 PDDL DMPR 019157,000949: 33,3256 02503 INTVEC1 +4 019158,000950: 33,3257 27722 GEOCONS4 019159,000951: 33,3260 45421 BDSU STADR 019160,000952: 33,3261 75306 STORE THETAN1 +2 019161,000953: 33,3262 77776 ADDINDRF EXIT 019162,000954: 019163,000955: 019164,000956: 33,3263 11412 ENDGTSAL CCS LENGTHOT # IS 5 SEC OVER-THE TIME TO TORQ PLATFORM 019165,000957: 33,3264 02522 TC SLEEPIE # NO-SET UP NEXT WAITLIST CALL FOR .5 SEC 019166,000958: 33,3265 03402 TC CHKCOMED 019167,000959: 33,3266 11304 CCS LGYRO # YES BUT ARE GYROS BUSY
![]() |
Page 436 |
019169,000961: 33,3267 12523 TCF SLEEPIE +1 # BUSY-GET THEM .5 SECONDS FROM NOW 019170,000962: 019171,000963: 33,3270 06006 LASTGTS TC INTPRET 019172,000964: 33,3271 77775 VLOAD 019173,000965: 33,3272 02650 ERCOMP1 019174,000966: 33,3273 16461 STODL THETAX1 019175,000967: 33,3274 02443 TMARK 019176,000968: 33,3275 02457 STORE ALK 019177,000969: 33,3276 77776 EXIT # PREVIOUS SECTION WAS FOR RESTARTS 019178,000970: 019179,000971: 33,3277 05301 RESTAIER TC PHASCHNG 019180,000972: 33,3300 00275 OCT 00275 019181,000973: 33,3301 06006 TC INTPRET # ADD COMPASS COMMANDS INTO ERATE 019182,000974: 33,3302 64375 VLOAD MXV 019183,000975: 33,3303 02467 THETAN1 019184,000976: 33,3304 02672 XSM 019185,000977: 33,3305 53372 VSL1 VAD 019186,000978: 33,3306 02461 THETAX1 019187,000979: 33,3307 16650 STODL ERCOMP1 019188,000980: 33,3310 02457 ALK 019189,000981: 33,3311 02443 STORE TMARK 019190,000982: 33,3312 77776 EXIT 019191,000983: 33,3313 02417 TC EARTHR* # TORQUE IT ALL IN 019192,000984: 33,3314 31646 CAE ERECTIM1 019193,000985: 33,3315 55631 TS GEOSAVE1 019194,000986: 33,3316 05301 TC PHASCHNG 019195,000987: 33,3317 00155 OCT 00155 019196,000988: 33,3320 06006 RESTEST1 TC INTPRET 019197,000989: 33,3321 77775 VLOAD 019198,000990: 33,3322 27113 SCHZEROS 019199,000991: 33,3323 02467 STORE THETAN1 019200,000992: 33,3324 77776 EXIT 019201,000993: 33,3325 11632 CCS PREMTRXC 019202,000994: 33,3326 03375 TC NOCHORLD 019203,000995: 33,3327 05301 TC PHASCHNG 019204,000996: 33,3330 00255 OCT 00255 019205,000997: 33,3331 06006 RESTEST3 TC INTPRET 019206,000998: 33,3332 77745 DLOAD 019207,000999: 33,3333 02634 LAUNCHAZ 019208,001000: 33,3334 53025 DSU BZE 019209,001001: 33,3335 02640 OLDAZMTH 019210,001002: 33,3336 67372 NOAZCHGE 019211,001003: 33,3337 00001 STORE 0D 019212,001004: 33,3340 43335 SLOAD DAD 019213,001005: 33,3341 27121 ONEDPP +1 019214,001006: 33,3342 02633 PREMTRXC # DOES NOT CHANGE LAUNCHAZ 019215,001007: 33,3343 16633 STODL PREMTRXC 019216,001008: 33,3344 02634 LAUNCHAZ 019217,001009: 33,3345 16636 STODL NEWAZMTH 019218,001010: 33,3346 00001 0D
![]() |
Page 437 |
019220,001012: 33,3347 02654 ADERCOMP STORE ERCOMP +4 019221,001013: 33,3350 77776 EXIT 019222,001014: 33,3351 03164 TC POSN17C 019223,001015: 33,3352 05301 TC PHASCHNG 019224,001016: 33,3353 00335 OCT 00335 019225,001017: 33,3354 00006 RESCHNG EXTEND 019226,001018: 33,3355 31636 DCA NEWAZMTH 019227,001019: 33,3356 53640 DXCH OLDAZMTH 019228,001020: 33,3357 34704 CA BIT7 # SPEND 320 SEC ERECTING 019229,001021: 33,3360 55412 TS LENGTHOT 019230,001022: 33,3361 05301 TC PHASCHNG 019231,001023: 33,3362 00075 OCT 00075 019232,001024: 33,3363 33424 SPITGYRO CA ERCOMPPL 019233,001025: 33,3364 04555 TC BANKCALL 019234,001026: 33,3365 17125 CADR IMUPULSE 019235,001027: 33,3366 04555 TC BANKCALL 019236,001028: 33,3367 17516 CADR IMUSTALL 019237,001029: 33,3370 03104 TC SOMERR2 019238,001030: 33,3371 02453 TC ESTIMS # RE-INITIALIZE 019239,001031: 019240,001032: 019241,001033: 33,3372 77776 NOAZCHGE EXIT 019242,001034: 33,3373 34712 CA ONE 019243,001035: 33,3374 55632 TS PREMTRXC 019244,001036: 33,3375 11631 NOCHORLD CCS GEOSAVE1 019245,001037: 33,3376 55646 TS ERECTIM1 # COUNTS DOWN FOR ERECTION. 019246,001038: 019247,001039: 33,3377 34334 ANNNNNN CAF NINE 019248,001040: 33,3400 55412 TS LENGTHOT 019249,001041: 33,3401 02523 TC SLEEPIE +1 019250,001042: 019251,001043: 019252,001044: 33,3402 00004 CHKCOMED INHINT 019253,001045: 33,3403 44714 CS ZERO 019254,001046: 33,3404 00006 EXTEND 019255,001047: 33,3405 06030 RXOR CHAN30 # READ AND INVERT BITS IN CHANNEL 30 019256,001048: 33,3406 74706 MASK BIT5 # LIFTOFF BIT 019257,001049: 33,3407 10000 CCS A 019258,001050: 33,3410 13417 TCF PRELTERM # LIFTOFF HAS OCCURRED 019259,001051: 019260,001052: 33,3411 34706 CA BIT5 # CHECK FOR BACKUP LIFTOFF 019261,001053: 33,3412 70101 MASK FLAGWRD5 # BIT5 FLAGWRD5 019262,001054: 33,3413 10000 CCS A 019263,001055: 33,3414 13417 TCF PRELTERM # BACKUP RECEIVED 019264,001056: 019265,001057: 33,3415 00003 RELINT 019266,001058: 33,3416 00002 TC Q # CONTINUE PRELAUNCH 019267,001059: 019268,001060: 019269,001061: 33,3417 37657 PRELTERM CA PRIO22 # PRELAUNCH DONE - SET UP P11
![]() |
Page 438 |
019271,001063: 33,3420 05103 TC PRIOCHNG # INCREASE PRIORITY HIGHER THAN SERVICER 019272,001064: 33,3421 00004 INHINT 019273,001065: 33,3422 04574 TC POSTJUMP 019274,001066: 33,3423 70002 CADR P11 019275,001067: 019276,001068: 019277,001069: 33,3424 02647 ERCOMPPL ECADR ERCOMP 019278,001070: 019279,001071: 33,3425 26,3327 GEOCONS5 EQUALS HIDPHALF 019280,001072: 33,3425 06200 1/PIPAGT OCT 06200 019281,001073: 33,3426 4375 17DECML = ND1 # OCT 21 019282,001074: 33,3426 4374 19DECML = VD1 # OCT 23 019283,001075: 33,3426 4731 1/2SECX = .5SEC 019284,001076:
![]() |
Page 439 |
019286,001078: 33,3426 5112 GEOSTRT4 EQUALS ENDOFJOB 019287,001079:
![]() |
Page 440 |
019289,001081: # OPTICAL VERIFICATION ROUTINES FOR GYROCOMPASS 019290,001082: 019291,001083: 33,3426 COUNT 33/P03 019292,001084: 019293,001085: 33,3426 05301 GCOMPVER TC PHASCHNG # OPTICAL VERIFICATION ROUTINE 019294,001086: 33,3427 00154 OCT 00154 019295,001087: 33,3430 05243 TC NEWMODEX # ENTERED BY VERB 65 ENTER 019296,001088: 33,3431 00003 MM 03 B-14 019297,001089: 33,3432 02037 SETNBPOS TC NBPOSPL 019298,001090: 33,3433 04555 TC BANKCALL 019299,001091: 33,3434 16063 CADR MKRELEAS 019300,001092: 33,3435 34712 OPTDATA CAF BIT1 # CALLS FOR AZIMUTH AND ELEVATION OF TARGE 019301,001093: 33,3436 22007 ZL # T 1,THEN TARGET 2 019302,001094: 33,3437 23427 LXCH RUN # AZIMUTH CLOCKWSE FROM NORTH TO TARGET 019303,001095: 33,3440 55047 TS DSPTEM1 +2 # ELEVATION MEASURED FROM HORIZONTAL 019304,001096: 33,3441 00006 EXTEND 019305,001097: 33,3442 51427 INDEX RUN 019306,001098: 33,3443 31433 DCA TAZEL1 019307,001099: 33,3444 53046 DXCH DSPTEM1 019308,001100: 33,3445 33470 CAF V05N30E 019309,001101: 33,3446 04555 TC BANKCALL 019310,001102: 33,3447 20577 CADR GODSPRET 019311,001103: 33,3450 33456 CAF VN0641 019312,001104: 33,3451 04555 TC BANKCALL 019313,001105: 33,3452 20624 CADR GOFLASH 019314,001106: 33,3453 03611 TC GCOMP5 019315,001107: 33,3454 03457 TC +3 019316,001108: 33,3455 03445 TC -8D 019317,001109: 33,3456 01451 VN0641 VN 0641 019318,001110: 33,3457 53046 DXCH DSPTEM1 # TAZEL1 TARGET 1 AZIMUTH 019319,001111: 33,3460 51427 INDEX RUN 019320,001112: 33,3461 53433 DXCH TAZEL1 # TAZEL1 +2 TARGET 2 AZIMUTH 019321,001113: 33,3462 11427 CCS RUN 019322,001114: 33,3463 13467 TCF +4 019323,001115: 33,3464 34711 CAF TWO 019324,001116: 33,3465 54001 TS L 019325,001117: 33,3466 13437 TCF OPTDATA +2 # MPAC 1ST PASS=0 2ND PASS=2 019326,001118: 019327,001119: 019328,001120: 33,3467 03531 TC CONTIN33 019329,001121: 019330,001122: 33,3470 01236 V05N30E VN 0530 019331,001123: 019332,001124: 33,3471 06006 TC INTPRET # UNDYNAMIC ASSEMBLER 019333,001125: 33,3472 77170 TAR/EREF AXT,1 AXT,2 # TARGET VECTOR 019334,001126: 33,3473 00002 2 # SIN(EL) -COS(AZ)COS(EL) SIN(AZ)COS(EL 019335,001127: 33,3474 00014 12D 019336,001128: 33,3475 40331 SSP SETPD 019337,001129: 33,3476 00052 S2 019338,001130: 33,3477 00006 6
![]() |
Page 441 |
019340,001132: 33,3500 00001 0 019341,001133: 33,3501 60533 TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 X1=0 X2=6 S2=6 019342,001134: 33,3502 02436 TAZEL1 +3,1 019343,001135: 33,3503 00001 STORE 0 # PD00 ELEVATION PD00 019344,001136: 33,3504 77756 SIN 019345,001137: 33,3505 10023 STORE 18D,2 # PD06 *** SIN(EL) ***PD12 019346,001138: 33,3506 77745 DLOAD 019347,001139: 33,3507 00001 0 019348,001140: 33,3510 41546 COS PUSH # PD00 COS(EL) PD00 019349,001141: 33,3511 47133 SLOAD* RTB 019350,001142: 33,3512 02435 TAZEL1 +2,1 019351,001143: 33,3513 45510 CDULOGIC 019352,001144: 33,3514 00003 STORE 2 # PD02 AZIMUTH PD02 019353,001145: 33,3515 41356 SIN DMP 019354,001146: 33,3516 00001 0 019355,001147: 33,3517 77752 SL1 019356,001148: 33,3520 10027 STORE 22D,2 # PD10 *** SIN(AZ)COS(EL) ***PD16 019357,001149: 33,3521 71545 DLOAD COS 019358,001150: 33,3522 00003 2 019359,001151: 33,3523 72405 DMP SL1 019360,001152: 33,3524 76076 DCOMP AXT,1 019361,001153: 33,3525 00000 0 019362,001154: 33,3526 10025 STORE 20D,2 # PD08 *** -COS(AZ)COS(EL) ***PD14 019363,001155: 33,3527 43504 TIX,2 RVQ 019364,001156: 33,3530 67501 TAR1 019365,001157: 019366,001158: 019367,001159: 33,3531 BANK 33 019368,001160: 33,2000 SETLOC IMUCAL 019369,001161: 33,2000 BANK 019370,001162: 33,3531 COUNT* $$/PO3 019371,001163: 019372,001164: 33,3531 34712 CONTIN33 CA ONE 019373,001165: 33,3532 54735 TS STARCODE 019374,001166: 33,3533 34714 CA ZERO 019375,001167: 33,3534 03626 TC TARGDRVE 019376,001168: 33,3535 06006 TC INTPRET 019377,001169: 33,3536 77624 CALL 019378,001170: 33,3537 67472 TAR/EREF 019379,001171: 33,3540 64375 NEXTBNKS VLOAD MXV 019380,001172: 33,3541 00007 6D 019381,001173: 33,3542 02672 XSM 019382,001174: 33,3543 77772 VSL1 019383,001175: 33,3544 26736 STOVL STARAD 019384,001176: 33,3545 00015 12D 019385,001177: 33,3546 76521 MXV VSL1 019386,001178: 33,3547 02672 XSM 019387,001179: 33,3550 02744 STORE STARAD +6 019388,001180: 33,3551 77624 CALL 019389,001181: 33,3552 67723 LITTLSUB
![]() |
Page 442 |
019391,001183: 33,3553 02414 STORE LOSVEC 019392,001184: 33,3554 77776 EXIT 019393,001185: 33,3555 04555 TC BANKCALL 019394,001186: 33,3556 16063 CADR MKRELEAS 019395,001187: 019396,001188: 019397,001189: 33,3557 34711 NEXBNKSS CAF TWO 019398,001190: 33,3560 54735 TS STARCODE 019399,001191: 33,3561 36211 CAF SIX 019400,001192: 33,3562 03626 TC TARGDRVE 019401,001193: 33,3563 06006 TC INTPRET 019402,001194: 33,3564 77624 CALL 019403,001195: 33,3565 67723 LITTLSUB 019404,001196: 33,3566 24015 STOVL 12D 019405,001197: 33,3567 02414 LOSVEC 019406,001198: 33,3570 34007 STCALL 06D 019407,001199: 33,3571 47334 AXISGEN 019408,001200: 33,3572 77624 CALL 019409,001201: 33,3573 47140 CALCGTA 019410,001202: 33,3574 77776 EXIT 019411,001203: 33,3575 33622 GCOMP4 CAF V06N93S 019412,001204: 33,3576 04555 TC BANKCALL 019413,001205: 33,3577 20624 CADR GOFLASH 019414,001206: 33,3600 03611 TC GCOMP5 019415,001207: 33,3601 13603 TCF +2 019416,001208: 33,3602 13575 TCF GCOMP4 019417,001209: 33,3603 06006 TC INTPRET 019418,001210: 33,3604 53375 VLOAD VAD 019419,001211: 33,3605 02760 OGC 019420,001212: 33,3606 02650 ERCOMP1 019421,001213: 33,3607 02650 STORE ERCOMP1 019422,001214: 33,3610 77776 EXIT 019423,001215: 33,3611 04555 GCOMP5 TC BANKCALL 019424,001216: 33,3612 16063 CADR MKRELEAS 019425,001217: 33,3613 05447 TC DOWNFLAG 019426,001218: 33,3614 00032 ADRES TRM03FLG 019427,001219: 019428,001220: 33,3615 05243 TC NEWMODEX 019429,001221: 33,3616 00002 MM 02 B-14 019430,001222: 33,3617 05301 TC PHASCHNG 019431,001223: 33,3620 00004 OCT 00004 019432,001224: 33,3621 05112 TC ENDOFJOB 019433,001225: 33,3622 01535 V06N93S VN 0693 019434,001226: 33,3623 05537 GTSOPTCS TC ALARM 019435,001227: 33,3624 01602 GTSOPTSS OCT 01602 019436,001228: 33,3625 03611 TC GCOMP5 019437,001229: 019438,001230: 019439,001231: 34,2002 BANK 34 019440,001232: 04,2000 SETLOC IMUCAL1
![]() |
Page 443 |
019442,001234: 04,2000 BANK 019443,001235: 019444,001236: 04,2617 COUNT 34/COMST 019445,001237: 019446,001238: 04,2617 62545 LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH AND LATITUDE 019447,001239: 04,2620 02403 LATITUDE 019448,001240: 04,2621 15047 STODL DSPTEM1 +1 019449,001241: 04,2622 02401 AZIMUTH 019450,001242: 04,2623 77434 RTB EXIT 019451,001243: 04,2624 45543 1STO2S 019452,001244: 04,2625 56154 XCH MPAC 019453,001245: 04,2626 55045 TS DSPTEM1 019454,001246: 04,2627 04555 TC BANKCALL 019455,001247: 04,2630 20607 CADR CLEANDSP 019456,001248: 04,2631 32650 CAF VNG0641 019457,001249: 04,2632 04555 TC BANKCALL 019458,001250: 04,2633 20624 CADR GOFLASH 019459,001251: 04,2634 02636 TC +2 # NOT ALLOWED 019460,001252: 04,2635 02637 TC +2 019461,001253: 04,2636 02631 TC -5 019462,001254: 04,2637 06006 TC INTPRET 019463,001255: 04,2640 47135 SLOAD RTB 019464,001256: 04,2641 01046 DSPTEM1 019465,001257: 04,2642 45510 CDULOGIC 019466,001258: 04,2643 02401 STORE AZIMUTH 019467,001259: 04,2644 60535 SLOAD SR2 019468,001260: 04,2645 01047 DSPTEM1 +1 019469,001261: 04,2646 02403 STORE LATITUDE 019470,001262: 04,2647 77616 RVQ 019471,001263: 019472,001264: 019473,001265: 04,2650 01451 VNG0641 VN 0641 019474,001266: 33,3626 BANK 33 019475,001267: 33,2000 SETLOC IMUCAL 019476,001268: 33,2000 BANK 019477,001269: 019478,001270: 019479,001271: 33,3626 COUNT* $$/P03 019480,001272: 33,3626 00006 TARGDRVE EXTEND 019481,001273: 33,3627 23424 QXCH QPLAC 019482,001274: 33,3630 55431 TS TARG1/2 019483,001275: 33,3631 06006 TC INTPRET 019484,001276: 33,3632 77624 CALL 019485,001277: 33,3633 67472 TAR/EREF 019486,001278: 33,3634 76740 LXC,1 VLOAD* 019487,001279: 33,3635 02431 TARG1/2 019488,001280: 33,3636 00007 6D,1 019489,001281: 33,3637 36766 STCALL STAR 019490,001282: 33,3640 46053 SXTANG 019491,001283: 33,3641 77776 EXIT
![]() |
Page 444 |
019493,001285: 33,3642 31773 CA SAC 019494,001286: 33,3643 55161 TS DESOPTS 019495,001287: 33,3644 31775 CA PAC 019496,001288: 33,3645 55160 TS DESOPTT 019497,001289: 33,3646 34714 RETARG CAF ZERO 019498,001290: 33,3647 55303 TS OPTIND 019499,001291: 33,3650 34712 CAF ONE 019500,001292: 33,3651 04555 TC BANKCALL 019501,001293: 33,3652 16002 CADR SXTMARK 019502,001294: 33,3653 04555 TC BANKCALL 019503,001295: 33,3654 17512 CADR OPTSTALL 019504,001296: 33,3655 03623 TC GTSOPTCS 019505,001297: 33,3656 30075 CAE FLAGWRD1 019506,001298: 33,3657 74707 MASK TRM03BIT 019507,001299: 33,3660 10000 CCS A 019508,001300: 33,3661 03611 TC GCOMP5 019509,001301: 019510,001302: 33,3662 51330 INDEX MARKSTAT 019511,001303: 33,3663 30052 CA QPRET 019512,001304: 33,3664 00006 EXTEND 019513,001305: 33,3665 13667 BZF RETARG1 019514,001306: 33,3666 01424 TC QPLAC 019515,001307: 019516,001308: 019517,001309: 33,3667 34714 RETARG1 CA ZERO # RELEASE PREVIOUSLY GRABBED VAC AREA 019518,001310: 33,3670 57330 XCH MARKSTAT 019519,001311: 33,3671 10000 CCS A 019520,001312: 33,3672 50000 INDEX A 019521,001313: 33,3673 54000 TS A 019522,001314: 33,3674 13646 TCF RETARG # GO DO SXTMARK AGAIN 019523,001315: 33,3675 BANK 33 019524,001316: 33,2000 SETLOC IMUCAL 019525,001317: 33,2000 BANK 019526,001318: 33,3675 COUNT* $$/P03 019527,001319: 33,3675 30341 22444 PIPASC 2DEC .76376833 019528,001320: 33,3677 57223 66451 VELSC 2DEC -.52223476 019529,001321: 33,3701 05427 12577 ALSK 2DEC .17329931 019530,001322: 33,3703 77567 44202 2DEC -.00835370 019531,001323: 33,3705 24276 14066 GEORGEJ 2DEC .63661977 019532,001324: 33,3707 23073 11773 GEORGEK 2DEC .59737013 019533,001325: 33,3711 00055 20267 2DEGRES 2DEC .00277778 019534,001326: 33,3713 03146 14632 GEOCONS1 2DEC .1
![]() |
Page 445 |
019536,001328: 33,3715 00121 35341 GEOCONS2 2DEC .005 019537,001329: 33,3717 01767 31666 GEOCONS3 2DEC .062 019538,001330: 33,3721 00004 35223 GEOCONS4 2DEC .0003 019539,001331: 33,3723 COUNT 33/P02 019540,001332: 33,3723 77620 LITTLSUB STQ 019541,001333: 33,3724 02424 QPLAC 019542,001334: 33,3725 76740 LXC,1 VLOAD* 019543,001335: 33,3726 01330 MARKSTAT 019544,001336: 33,3727 00003 2,1 019545,001337: 33,3730 34767 STCALL CDUSPOT 019546,001338: 33,3731 46000 SXTNB 019547,001339: 33,3732 77624 CALL 019548,001340: 33,3733 47572 TRG*NBSM 019549,001341: 33,3734 77650 GOTO 019550,001342: 33,3735 02424 QPLAC 019551,001343: 019552,001344: 019553,001345: 33,3736 77776 EXIT 019554,001346: 33,3737 06006 AZMTHCG1 TC INTPRET 019555,001347: 33,3740 47145 DLOAD RTB 019556,001348: 33,3741 02636 NEWAZMTH 019557,001349: 33,3742 45543 1STO2S 019558,001350: 33,3743 77776 EXIT 019559,001351: 33,3744 56154 XCH MPAC 019560,001352: 33,3745 55045 TS DSPTEM1 019561,001353: 33,3746 04555 TC BANKCALL 019562,001354: 33,3747 20607 CADR CLEANDSP 019563,001355: 33,3750 33772 CAF VN0629 019564,001356: 33,3751 04555 TC BANKCALL 019565,001357: 33,3752 20624 CADR GOFLASH 019566,001358: 33,3753 13755 TCF +2 019567,001359: 33,3754 13756 TCF +2 019568,001360: 33,3755 13750 TCF -5 019569,001361: 33,3756 06006 TC INTPRET 019570,001362: 33,3757 47135 SLOAD RTB 019571,001363: 33,3760 01046 DSPTEM1 019572,001364: 33,3761 45510 CDULOGIC 019573,001365: 33,3762 02634 STORE LAUNCHAZ 019574,001366: 33,3763 77776 EXIT 019575,001367: 33,3764 34714 CA ZERO 019576,001368: 33,3765 55632 TS PREMTRXC 019577,001369: 33,3766 05301 TC PHASCHNG 019578,001370: 33,3767 00004 OCT 00004 019579,001371: 33,3770 04574 TC POSTJUMP 019580,001372: 33,3771 21176 CADR PINBRNCH 019581,001373: 019582,001374: 33,3772 01435 VN0629 VN 0629 019583,001375:
![]() |
Page 446 This page is empty. |
End of include-file IMU_CALIBRATION_AND_ALIGNMENT.agc. Parent file is MAIN.agc