Source Code
![]() |
YAYUL: ASSEMBLE REVISION 6 OF PROGRAM BOREALIS BY MSTEWART JUN. 28,2017This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations. |
009271,000002: ## Copyright: Public domain.
009272,000003: ## Filename: EXTENDED_VERBS.agc
009273,000004: ## Purpose: This program is designed to extensively test the Apollo Guidance Computer
009274,000005: ## (specifically the LM instantiation of it). It is built on top of a heavily
009275,000006: ## stripped-down Aurora 12, with all code ostensibly added by the DAP Group
009276,000007: ## removed. Instead Borealis expands upon the tests provided by Aurora,
009277,000008: ## including corrected tests from Retread 44 and tests from Ron Burkey's
009278,000009: ## Validation.
009279,000010: ## Assembler: yaYUL
009280,000011: ## Contact: Mike Stewart <mastewar1@gmail.com>.
009281,000012: ## Website: www.ibiblio.org/apollo/index.html
009282,000013: ## Mod history: 2016-12-20 MAS Created from Aurora 12 (with much DAP stuff removed).
009283,000014:
009284,000015: 11,2000 BANK 11
009285,000016: 11,2000 E5,1500 EBANK= OGC
009286,000017:
009287,000018: # FAN-OUT
009288,000019:
009289,000020: 11,2000 02070 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 40 ONLY)
009290,000021: 11,2001 02073 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
009291,000022: # 40 ONLY)
009292,000023: 11,2002 02204 TC IMUFINEK # VB42 FINE ALIGN IMU
009293,000024: 11,2003 02566 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
009294,000025: 11,2004 02066 TC ALM/END # ILLEGAL VERB.
009295,000026: 11,2005 12126 TCF LRPOS2K # VB45 COMMAND LR TO POSITION 2.
009296,000027: 11,2006 02407 TC REGRSAMP # VB46 SAMPLE RADAR ONCE PER SECOND
009297,000028: 11,2007 02401 TC DOFCSTST # VB47 PERFORM LEM FCS TEST
009298,000029: 11,2010 02262 TC GOLOADLV # VB50 PLEASE PERFORM
009299,000030: 11,2011 02262 TC GOLOADLV # VB51 PLEASE MARK
009300,000031: 11,2012 02262 TC GOLOADLV # VB52 PLEASE MARK Y
009301,000032: 11,2013 02262 TC GOLOADLV # VB53 PLEASE MARK X OR Y.
009302,000033: 11,2014 02266 TC TORQGYRS # VB54 PULSE TORQUE GYROS
009303,000034: 11,2015 02303 TC ALINTIME # VB55 ALIGN TIME
009304,000035: 11,2016 02377 TC GOSHOSUM # VB56 PERFORM BANKSUM
009305,000036: 11,2017 02327 TC SYSTEST # VB57 PERFORM SYSTEM TEST
009306,000037: 11,2020 03117 TC PRESTAND # VB60 PREPARE FOR STANDBY
009307,000038: 11,2021 03165 TC POSTAND # VB61 RECOVER FROM STANDBY
009308,000039: 11,2022 02634 TC SETUPMSG # VB62 SCAM LEM INBITS
009309,000040: 11,2023 12524 TCF AGSINIT # VB63 INITIALIZE AGS
009310,000041: 11,2024 12066 TCF ALM/END
009311,000042: 11,2025 12066 TCF ALM/END
009312,000043: 11,2026 12066 TCF ALM/END
009313,000044: 11,2027 12066 TCF ALM/END
009314,000045: 11,2030 12066 TCF ALM/END
009315,000046: 11,2031 12066 TCF ALM/END
009316,000047: 11,2032 12066 TCF ALM/END
009317,000048: 11,2033 12066 TCF ALM/END
009318,000049: 11,2034 12066 TCF ALM/END
009319,000050:
009320,000051: 11,2035 12066 TCF ALM/END
009321,000052: 11,2036 12066 TCF ALM/END
009322,000053: 11,2037 02066 TC ALM/END
009323,000054:
009324,000055: 11,2040 37667 TESTXACT CAF BIT3
009325,000056: 11,2041 70332 MASK EXTVBACT
009326,000057: 11,2042 10000 CCS A
009327,000058: 11,2043 02053 TC XACTALM
009328,000059:
009329,000060: 11,2044 47667 XACT1 CS BIT3
009330,000061: 11,2045 00004 INHINT
009331,000062: 11,2046 70332 MASK EXTVBACT
009332,000063: 11,2047 67667 AD BIT3
009333,000064: 11,2050 54332 TS EXTVBACT
009334,000065:
009335,000066: 11,2051 00003 RELINT
009336,000067: 11,2052 00002 TC Q
009337,000068:
009338,000069: 11,2053 05235 XACTALM TC FALTON
009339,000070: 11,2054 04422 TC ENDOFJOB
009340,000071:
009341,000072: 11,2055 05373 TERMEXTV TC FREEDSP # IF WE GET A TERMINATE INSTEAD OF A LOAD.
009342,000073:
009343,000074: 11,2056 02060 ENDEXTVB TC XACT0
009344,000075: 11,2057 04422 TC ENDOFJOB
009345,000076:
009346,000077: 11,2060 47667 XACT0 CS BIT3
009347,000078: 11,2061 00004 INHINT
009348,000079: 11,2062 70332 MASK EXTVBACT
009349,000080: 11,2063 54332 TS EXTVBACT
009350,000081: 11,2064 00003 RELINT
009351,000082: 11,2065 00002 XACT0Q TC Q
009352,000083:
009353,000084:
009354,000085:
009355,000086: 11,2066 05235 ALM/END TC FALTON
009356,000087: 11,2067 02056 TC ENDEXTVB
009357,000088:
009358,000089:
009359,000090:
009360,000091: 11,2070 02076 VBZERO TC OP/INERT
009361,000092: 11,2071 02110 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
009362,000093: 11,2072 02117 TC RRZEROK # RETURN HERE IF NOUN = RCDU(40)
009363,000094:
009364,000095: 11,2073 02076 VBCOARK TC OP/INERT
009365,000096: 11,2074 02132 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
009366,000097: 11,2075 02234 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (40)
009367,000098:
009368,000099: # RETURNS TO L+1 IF IMU, L+2 IF RR, AND L+3 IF OT.
009369,000100:
009370,000101: 11,2076 47665 OP/INERT CS BIT5 # OCT20
009371,000102: 11,2077 60267 AD NOUNREG
009372,000103: 11,2100 00006 EXTEND
009373,000104: 11,2101 12065 BZF XACT0Q # IF = 20.
009374,000105:
009375,000106: 11,2102 24002 INCR Q
009376,000107: 11,2103 62107 AD RRIMUDIF # = -20 OCT.
009377,000108: 11,2104 00006 EXTEND
009378,000109: 11,2105 12065 BZF XACT0Q
009379,000110:
009380,000111: 11,2106 02066 TC ALM/END # ILLEGAL.
009381,000112:
009382,000113: 11,2107 77757 RRIMUDIF OCT -20
009383,000114:
009384,000115: # KEYBOARD REQUEST TO ZERO IMU ENCODERS
009385,000116:
009386,000117: 11,2110 02040 IMUZEROK TC TESTXACT # ZERO ENCODERS.
009387,000118: 11,2111 04065 TC BANKCALL
009388,000119: 11,2112 26000 CADR IMUZERO
009389,000120:
009390,000121: 11,2113 04065 TC BANKCALL # STALL
009391,000122: 11,2114 26716 CADR IMUSTALL
009392,000123: 11,2115 02116 TC +1
009393,000124:
009394,000125: 11,2116 02056 TC ENDEXTVB
009395,000126: 11,2117 02040 RRZEROK TC TESTXACT
009396,000127: 11,2120 04065 TC BANKCALL # ZERO RR CDUS.
009397,000128: 11,2121 20247 CADR RRZERO
009398,000129:
009399,000130: 11,2122 04065 RWAITK TC BANKCALL
009400,000131: 11,2123 26712 CADR RADSTALL
009401,000132: 11,2124 12125 TCF +1
009402,000133: 11,2125 12056 TCF ENDEXTVB
009403,000134:
009404,000135: 11,2126 02040 LRPOS2K TC TESTXACT # COMMAND LR TO POSITION 2.
009405,000136: 11,2127 04065 TC BANKCALL
009406,000137: 11,2130 21172 CADR LRPOS2
009407,000138: 11,2131 12122 TCF RWAITK
009408,000139:
009409,000140: # KEYBOARD REQUEST TO COARSE ALIGN THE IMU
009410,000141:
009411,000142: 11,2132 02040 IMUCOARK TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
009412,000143: 11,2133 05311 TC GRABWAIT
009413,000144: 11,2134 32152 CAF VNLODCDU # CALL FOR THETAD LOAD
009414,000145: 11,2135 05324 TC NVSBWAIT
009415,000146: 11,2136 05132 TC ENDIDLE # STALL WAITING FOR THE LOAD
009416,000147: 11,2137 02055 TC TERMEXTV
009417,000148: 11,2140 02154 TC ICSDEL # PROCEED - ASK FOR INCREMENTAL LOAD.
009418,000149:
009419,000150: 11,2141 32153 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
009420,000151: 11,2142 05324 TC NVSBWAIT
009421,000152: 11,2143 05373 TC FREEDSP # RELEASE THE DISPLAYS
009422,000153:
009423,000154: 11,2144 04065 TC BANKCALL # CALL MODE SWITCHING PROG
009424,000155: 11,2145 26055 CADR IMUCOARS
009425,000156:
009426,000157: 11,2146 04065 TC BANKCALL # STALL
009427,000158: 11,2147 26716 CADR IMUSTALL
009428,000159: 11,2150 02056 TC ENDEXTVB
009429,000160: 11,2151 02056 TC ENDEXTVB
009430,000161:
009431,000162: 11,2152 02522 VNLODCDU OCT 02522
009432,000163: 11,2153 04100 IMUCOARV OCT 04100
009433,000164:
009434,000165: # PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
009435,000166:
009436,000167: 11,2154 32202 ICSDEL CAF DELLOAD
009437,000168: 11,2155 05324 TC NVSBWAIT # REQUEST LOAD OF DELTA ICDU ANGLES.
009438,000169: 11,2156 05132 TC ENDIDLE
009439,000170: 11,2157 02055 TC TERMEXTV
009440,000171: 11,2160 02141 TC ICORK2 # PROCEED WITHOUT DATA HERE TOO.
009441,000172: 11,2161 02163 TC INCLOOP # LOOP TO INCREMENT THETAD FROM DSPTEM2.
009442,000173: 11,2162 02141 TC ICORK2 # RE-DISPLAY COARSE ALIGN VERB.
009443,000174:
009444,000175: 11,2163 56002 INCLOOP XCH Q # INCREMENTS THETADS IN 2S COMPLEMENT FROM
009445,000176: 11,2164 54140 TS MPAC # THREE ANGLE INCREMENTS IN DSPTEM2S.
009446,000177: 11,2165 32203 CAF LTHD+2
009447,000178: 11,2166 54114 TS BUF # SET UP FOR CDUINC.
009448,000179: 11,2167 37670 CAF TWO # THREE TIMES THROUGH.
009449,000180:
009450,000181: 11,2170 54141 INCLOOP2 TS MPAC +1
009451,000182: 11,2171 50000 INDEX A
009452,000183: 11,2172 56336 XCH DSPTEM2 # INCREMENT TO TEM2 FOR CDUINC.
009453,000184: 11,2173 04065 TC BANKCALL
009454,000185: 11,2174 33470 CADR CDUINC
009455,000186: 11,2175 10114 CCS BUF
009456,000187: 11,2176 54114 TS BUF
009457,000188: 11,2177 10141 CCS MPAC +1
009458,000189: 11,2200 02170 TC INCLOOP2
009459,000190:
009460,000191: 11,2201 00140 TC MPAC # RETURN WHEN FINISHED.
009461,000192:
009462,000193: 11,2202 02523 DELLOAD OCT 02523
009463,000194: 11,2203 00402 LTHD+2 ADRES THETAD +2
009464,000195:
009465,000196: # KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
009466,000197:
009467,000198: 11,2204 02040 IMUFINEK TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
009468,000199: 11,2205 05311 TC GRABWAIT
009469,000200: 11,2206 32232 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
009470,000201: 11,2207 05324 TC NVSBWAIT
009471,000202: 11,2210 05132 TC ENDIDLE # HOLD UP FOR THE DATA LOAD
009472,000203: 11,2211 02055 TC TERMEXTV
009473,000204: 11,2212 02213 TC +1 # PROCEED WITHOUT A LOAD
009474,000205:
009475,000206: 11,2213 32233 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
009476,000207: 11,2214 05324 TC NVSBWAIT
009477,000208: 11,2215 05373 TC FREEDSP # RELEASE DISPLAYS
009478,000209:
009479,000210: 11,2216 04065 TC BANKCALL # CALL MODE SWITCH PROG
009480,000211: 11,2217 26227 CADR IMUFINE
009481,000212:
009482,000213: 11,2220 04065 TC BANKCALL # HIBERNATION
009483,000214: 11,2221 26716 CADR IMUSTALL
009484,000215: 11,2222 02056 TC ENDEXTVB
009485,000216:
009486,000217: 11,2223 32301 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
009487,000218: 11,2224 04065 TC BANKCALL
009488,000219: 11,2225 26317 CADR IMUPULSE
009489,000220:
009490,000221: 11,2226 04065 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
009491,000222: 11,2227 26716 CADR IMUSTALL
009492,000223: 11,2230 02056 TC ENDEXTVB
009493,000224: 11,2231 02056 TC ENDEXTVB
009494,000225:
009495,000226: 11,2232 02567 VNLODGYR OCT 02567
009496,000227: 11,2233 04200 IMUFINEV OCT 04200 # FINE ALIGN VERB
009497,000228:
009498,000229: # DESIGNATE TO DESIRED GIMBAL ANGLES.
009499,000230:
009500,000231: 11,2234 02040 RRDESNBK TC TESTXACT
009501,000232: 11,2235 05311 TC GRABWAIT
009502,000233: 11,2236 32255 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
009503,000234: 11,2237 05324 TC NVSBWAIT
009504,000235: 11,2240 05132 TC ENDIDLE # WAIT FOR THE LOAD
009505,000236: 11,2241 02055 TC TERMEXTV
009506,000237: 11,2242 02243 TC +1 # PROCEED
009507,000238:
009508,000239: 11,2243 04065 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
009509,000240: 11,2244 22776 CADR AURLOKON
009510,000241:
009511,000242: 11,2245 32153 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
009512,000243: 11,2246 05324 TC NVSBWAIT
009513,000244: 11,2247 00004 INHINT # FIRE UP JOB TO DO DESIGNATE.
009514,000245: 11,2250 37654 CAF PRIO20
009515,000246: 11,2251 04355 TC FINDVAC
009516,000247: 11,2252 E5,1500 EBANK= OGC
009517,000248: 11,2252 02256 22005 2CADR RRDESK2
009518,000249:
009519,000250: 11,2254 12055 TCF TERMEXTV # FREES DISPLAY.
009520,000251:
009521,000252: 11,2255 02441 VNLDRCDU OCT 02441
009522,000253: 11,2256 11,2153 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
009523,000254:
009524,000255: 11,2256 06000 RRDESK2 TC INTPRET
009525,000256:
009526,000257: 11,2257 77624 CALL
009527,000258: 11,2260 20363 RRDESNB # RETURNS IN BASIC.
009528,000259:
009529,000260: 11,2261 02122 TC RWAITK
009530,000261:
009531,000262: # PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
009532,000263: # ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
009533,000264: # LOAD. OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
009534,000265: # PERFORM THE REQUESTED ACTION.
009535,000266:
009536,000267: 11,2262 05272 GOLOADLV TC FLASHOFF
009537,000268: 11,2263 02060 TC XACT0
009538,000269: 11,2264 04104 TC POSTJUMP
009539,000270: 11,2265 12002 CADR LOADLV1
009540,000271:
009541,000272: # KEYBOARD REQUEST TO PULSE TORQUE IRIGA
009542,000273:
009543,000274:
009544,000275:
009545,000276: 11,2266 02040 TORQGYRS TC TESTXACT # GYRO TORQUING WITH NO MODE-SWITCH.
009546,000277: 11,2267 05311 TC GRABWAIT
009547,000278: 11,2270 32232 CAF VNLODGYR
009548,000279: 11,2271 05324 TC NVSBWAIT
009549,000280: 11,2272 05132 TC ENDIDLE
009550,000281: 11,2273 02055 TC TERMEXTV
009551,000282: 11,2274 02275 TC +1
009552,000283: 11,2275 32302 CAF TORQGYRV # RE-DISPLAY OUR OWN VERB
009553,000284: 11,2276 05324 TC NVSBWAIT
009554,000285: 11,2277 05373 TC FREEDSP
009555,000286: 11,2300 12223 TCF FINEK2
009556,000287:
009557,000288: 11,2301 00403 LGYROBIN ECADR DELVX
009558,000289: 11,2302 05400 TORQGYRV OCT 05400
009559,000290:
009560,000291: # ALIGN TIME
009561,000292: 11,2303 32326 ALINTIME CAF VNLODDT # USES NVSUBMON. DOES NOT TEST DSPLOCK.
009562,000293: 11,2304 54107 TS NVTEMP # DOES NOT KILL MONITOR.
009563,000294: 11,2305 05115 TC NVSUBMON
009564,000295: 11,2306 04422 TC ENDOFJOB # IN CASE OF ALARM IN LOAD REQUEST SET UP.
009565,000296: 11,2307 05132 TC ENDIDLE
009566,000297: 11,2310 04422 TC ENDOFJOB # TERMINATE
009567,000298: 11,2311 04422 TC ENDOFJOB # PROCEED WITHOUT DATA
009568,000299: 11,2312 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
009569,000300: 11,2313 37675 CAF ZERO
009570,000301: 11,2314 54142 TS MPAC +2 # NEEDED FOR TP AGREE
009571,000302: 11,2315 54001 TS L # ZERO T1 & 2 WHILE ALIGNING.
009572,000303: 11,2316 52025 DXCH TIME2
009573,000304: 11,2317 52141 DXCH MPAC
009574,000305: 11,2320 52334 DXCH DSPTEM1 # INCREMENT.
009575,000306: 11,2321 20141 DAS MPAC
009576,000307:
009577,000308: 11,2322 07234 TC TPAGREE # FORCE SIGN AGREEMENT.
009578,000309: 11,2323 52141 DXCH MPAC # NEW CLOCK.
009579,000310: 11,2324 20025 DAS TIME2
009580,000311: 11,2325 04422 TC ENDOFJOB
009581,000312:
009582,000313: 11,2326 02124 VNLODDT OCT 02124 # V/N FOR LOAD DELTA TIME
009583,000314:
009584,000315: # SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
009585,000316:
009586,000317: 11,2327 E5,1546 EBANK= QPLACE
009587,000318:
009588,000319: 11,2327 10276 SYSTEST CCS MODREG # DEMAND MODE 00.
009589,000320: 11,2330 12053 TCF XACTALM
009590,000321:
009591,000322: 11,2331 05311 TC GRABWAIT
009592,000323: 11,2332 32376 REDO CAF LQPL # ASK FOR TEST OPTION (1 - 7).
009593,000324: 11,2333 54142 TS MPAC +2
009594,000325: 11,2334 32375 CAF TESTNV
009595,000326: 11,2335 05324 TC NVSBWAIT
009596,000327: 11,2336 05132 TC ENDIDLE
009597,000328: 11,2337 04421 TC EJFREE
009598,000329: 11,2340 02332 TC REDO
009599,000330:
009600,000331: 11,2341 04650 TC NEWMODEX
009601,000332: 11,2342 00007 OCT 07
009602,000333:
009603,000334: 11,2343 00004 INHINT
009604,000335: 11,2344 37654 CAF PRIO20
009605,000336: 11,2345 04355 TC FINDVAC
009606,000337: 11,2346 02351 22005 2CADR TSELECT
009607,000338:
009608,000339: 11,2350 04422 TC ENDOFJOB # LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
009609,000340:
009610,000341: 11,2351 35216 TSELECT CAF LOW5
009611,000342: 11,2352 71546 MASK QPLACE # SAFETY PLAY.
009612,000343: 11,2353 50000 INDEX A
009613,000344: 11,2354 32356 CAF TESTCADR
009614,000345: 11,2355 04107 TC BANKJUMP
009615,000346:
009616,000347: 11,2356 22066 TESTCADR CADR ALM/END # 0 ILLEGAL
009617,000348: 11,2357 36000 CADR IMUTEST # 1 GYRO DRIFT TEST
009618,000349: 11,2360 36024 CADR IMUBACK # 2 REPEAT OF IMUTEST
009619,000350: 11,2361 30000 CADR AOTNBIMU # 3 IMU ALIGNMENT TEST
009620,000351: 11,2362 36245 CADR OPCHK # 4 IMU CHECK
009621,000352: 11,2363 36445 CADR GYRSFTST # 5 GYRO TORQUING TEST
009622,000353: 11,2364 22066 CADR ALM/END # 6 AVAILABLE
009623,000354: 11,2365 43413 CADR GTSCPSS # 7. OPTIMUM COMPASS
009624,000355: 11,2366 34556 CADR SAMODCHK # 10 SEMI-AUTOMATIC MODING CHECK
009625,000356: 11,2367 31324 CADR SAUTOIFS # 11 SEMI-AUTOMATIC INTERFACE TEST
009626,000357: 11,2370 31562 CADR AOTANGCK # 12 AOT ANGLE CHECK
009627,000358: 11,2371 31120 CADR RDRINIT # 13 RENDEZVOUS RADAR / ANTENNAE TRACKING
009628,000359: 11,2372 22403 CADR FSTRSAMP # 14 HIGH SPEED RADAR SAMPLING.
009629,000360:
009630,000361: 11,2373 31613 CADR ZEROERAS
009631,000362: 11,2374 23025 CADR DISINDT # DISPLAY INERTIAL DATA TEST.
009632,000363: 11,2375 02101 TESTNV OCT 2101
009633,000364: 11,2376 02546 LQPL ECADR QPLACE
009634,000365:
009635,000366: 11,2377 04104 GOSHOSUM TC POSTJUMP # START ROUTINE TO DISPLAY SUM OF EACH
009636,000367: 11,2400 41470 CADR SHOWSUM # BANK ON DSKY
009637,000368:
009638,000369: 11,2401 04104 DOFCSTST TC POSTJUMP
009639,000370: 11,2402 14000 CADR FCSSTART
009640,000371:
009641,000372: # SET UP FOR RADAR SAMPLING.
009642,000373:
009643,000374: 11,2403 E7,1434 EBANK= RSTKLOC
009644,000375:
009645,000376: 11,2403 32472 FSTRSAMP CAF RSTKLIST # HIGH SPEED SAMPLING. SWITCH TO SPECIAL
009646,000377: 11,2404 54411 TS DNLSTADR # DOWNLIST.
009647,000378: 11,2405 47671 CS ONE # WANTS TM BUFFERING.
009648,000379: 11,2406 12411 TCF RSAMPTST
009649,000380:
009650,000381: 11,2407 05311 REGRSAMP TC GRABWAIT
009651,000382: 11,2410 32473 CAF 1SEC+1 # SHOWS NO TM BUFFERING.
009652,000383:
009653,000384: 11,2411 54142 RSAMPTST TS MPAC +2
009654,000385: 11,2412 00004 INHINT
009655,000386: 11,2413 42474 CS LRPOSCAL # INITIALIZE SCALE AND LR POSITION BITS.
009656,000387: 11,2414 70413 MASK RADMODES
009657,000388: 11,2415 54413 TS RADMODES
009658,000389:
009659,000390: 11,2416 32474 CAF LRPOSCAL
009660,000391: 11,2417 00006 EXTEND
009661,000392: 11,2420 02033 RAND 33
009662,000393: 11,2421 26413 ADS RADMODES
009663,000394:
009664,000395: 11,2422 00003 RELINT
009665,000396: 11,2423 32444 CAF LRTSTDEX
009666,000397: 11,2424 54003 TS EBANK
009667,000398: 11,2425 56142 XCH MPAC +2
009668,000399: 11,2426 55435 TS RSAMPDT # HI SPEED NNZ - LO SPEED PNZ.
009669,000400: 11,2427 37675 CAF ZERO
009670,000401: 11,2430 55434 TS RTSTLOC
009671,000402: 11,2431 55436 TS RFAILCNT # ZERO BAD SAMPLE COUNTER.
009672,000403: 11,2432 32470 CAF HISPMAX
009673,000404: 11,2433 55432 TS RTSTMAX
009674,000405:
009675,000406: 11,2434 32471 CAF RTSTNV
009676,000407: 11,2435 05324 TC NVSBWAIT
009677,000408: 11,2436 05132 TC ENDIDLE
009678,000409: 11,2437 04421 TC EJFREE # ON TERMINATE.
009679,000410: 11,2440 12475 TCF RSEMIAUT # PROCEED MEANS SEMI-AUTO SEQUENCING.
009680,000411: 11,2441 05373 RDRDFREE TC FREEDSP
009681,000412: 11,2442 11435 CCS RSAMPDT # SEE IF HI OR LO SPEED SAMPLING.
009682,000413: 11,2443 12447 TCF +4
009683,000414:
009684,000415: 11,2444 03431 LRTSTDEX ECADR RTSTDEX
009685,000416:
009686,000417: 11,2445 04104 TC POSTJUMP # EXEC. OTHERWISE, SET UP WAITLIST TIMING.
009687,000418: 11,2446 21274 CADR DORSAMP
009688,000419:
009689,000420: 11,2447 36173 CAF SIX # FIND OUT WHICH RADAR WANTED.
009690,000421: 11,2450 71431 MASK RTSTDEX
009691,000422:
009692,000423: 11,2451 10000 CCS A
009693,000424: 11,2452 12456 TCF LRCYCLE # LANDING RADAR ARE SERIALS 2 - 5.
009694,000425:
009695,000426: 11,2453 55433 TS RTSTBASE # FOR RR BASE = 0, MAX = 1.
009696,000427: 11,2454 36173 CAF SIX
009697,000428: 11,2455 12461 TCF +4
009698,000429:
009699,000430: 11,2456 37670 LRCYCLE CAF TWO # FOR LR BASE = 2, MAX = 3.
009700,000431: 11,2457 55433 TS RTSTBASE
009701,000432: 11,2460 32467 CAF 18R
009702,000433:
009703,000434: 11,2461 55432 +4 TS RTSTMAX
009704,000435: 11,2462 00004 INHINT
009705,000436: 11,2463 04517 TC WAITLIST
009706,000437: 11,2464 E7,1434 EBANK= RSTKLOC
009707,000438: 11,2464 03254 20007 2CADR RADSAMP
009708,000439:
009709,000440: 11,2466 04422 TC ENDOFJOB
009710,000441:
009711,000442: 11,2467 00022 18R DEC 18 B-14
009712,000443: 11,2470 00102 HISPMAX DEC 66 B-14
009713,000444: 11,2471 02101 RTSTNV OCT 2101
009714,000445: 11,2472 02253 RSTKLIST GENADR FSTRADTM
009715,000446: 11,2473 00145 1SEC+1 DEC 101 B-14
009716,000447: 11,2474 00444 LRPOSCAL OCT 444
009717,000448:
009718,000449: # SEMI-AUTO RADAR TESTING.
009719,000450:
009720,000451: 11,2475 00004 RSEMIAUT INHINT
009721,000452: 11,2476 34504 CAF PRIO25 # START HI SPEED SAMPLING.
009722,000453: 11,2477 04344 TC NOVAC
009723,000454: 11,2500 03274 20007 2CADR DORSAMP
009724,000455:
009725,000456: 11,2502 00003 RELINT
009726,000457: 11,2503 37674 CAF FIVE # SEQUENCE THROUGH ALL SIX CHANNELS.
009727,000458: 11,2504 55431 -1 TS RTSTDEX
009728,000459:
009729,000460: 11,2505 32523 33PASTE CAF RV33 # ON ENTER, SWITCH TO NEXT CHANNEL.
009730,000461: 11,2506 05324 TC NVSBWAIT
009731,000462: 11,2507 05266 TC FLASHON
009732,000463: 11,2510 05132 TC ENDIDLE
009733,000464: 11,2511 02516 TC ENDRTST # ON TERMINATE.
009734,000465: 11,2512 12514 TCF +2
009735,000466: 11,2513 12505 TCF 33PASTE # DONT ACCEPT DATA.
009736,000467:
009737,000468: 11,2514 11431 CCS RTSTDEX
009738,000469: 11,2515 12504 TCF 33PASTE -1
009739,000470:
009740,000471: 11,2516 37675 ENDRTST CAF ZERO # ENDTEST.
009741,000472: 11,2517 55435 TS RSAMPDT
009742,000473: 11,2520 04650 TC NEWMODEX
009743,000474: 11,2521 00000 OCT 0
009744,000475: 11,2522 04421 TC EJFREE
009745,000476:
009746,000477: 11,2523 03300 RV33 OCT 3300
009747,000478:
009748,000479: # AGS INITIALIZATION PROGRAM.
009749,000480:
009750,000481: 11,2524 10412 AGSINIT CCS AGSWORD # ZERO IF AGS NOT NOW BEING INITIALIZED.
009751,000482: 11,2525 02066 TC ALM/END # DO IT LATER.
009752,000483:
009753,000484: 11,2526 30025 CA TIME1
009754,000485: 11,2527 62564 AD 12SECS
009755,000486: 11,2530 54001 TS L
009756,000487: 11,2531 02546 TC SENDIT
009757,000488:
009758,000489: 11,2532 00004 INHINT # T1 WILL OVERFLOW, DELAY FOR 12 SECS
009759,000490: 11,2533 32564 CA 12SECS
009760,000491: 11,2534 54412 TS AGSWORD
009761,000492: 11,2535 04517 TC WAITLIST
009762,000493: 11,2536 02541 22007 2CADR AGSJOB
009763,000494: 11,2540 04422 TC ENDOFJOB
009764,000495:
009765,000496: 11,2541 34507 AGSJOB CAF PRIO30 # ENTER AGSINIT JOB VIA EXEC
009766,000497: 11,2542 04344 TC NOVAC
009767,000498: 11,2543 02546 22007 2CADR SENDIT
009768,000499:
009769,000500: 11,2545 04563 TC TASKOVER
009770,000501:
009771,000502: 11,2546 00004 SENDIT INHINT
009772,000503: 11,2547 32565 CAF LAGSLIST # SWITCH TO SPECIAL DOWNLIST FOR 10 SECS.
009773,000504: 11,2550 56411 XCH DNLSTADR
009774,000505: 11,2551 54412 TS AGSWORD # TO SHOW INITIALIZATION IN PROGRESS.
009775,000506:
009776,000507: 11,2552 32563 CAF 10SECS
009777,000508: 11,2553 04517 TC WAITLIST
009778,000509: 11,2554 02557 22007 2CADR AGSINIT2
009779,000510:
009780,000511: 11,2556 14422 TCF ENDOFJOB
009781,000512:
009782,000513: 11,2557 37675 AGSINIT2 CAF ZERO # END OF INITIALIZATION.
009783,000514: 11,2560 56412 XCH AGSWORD
009784,000515: 11,2561 54411 TS DNLSTADR # REVERT TO ORIGINAL DOWNLIST.
009785,000516: 11,2562 14563 TCF TASKOVER
009786,000517:
009787,000518: 11,2563 01750 10SECS DEC 1000 B-14
009788,000519: 11,2564 02260 12SECS DEC 1200 B-14
009789,000520: 11,2565 02001 LAGSLIST GENADR AGSLIST
009790,000521:
009791,000522: # VB 43 IMU ATTITUDE ERROR METER LOADER.
009792,000523:
009793,000524: 11,2566 02040 IMUATTCK TC TESTXACT
009794,000525: 11,2567 42631 CS OCT50K # REMOVE COARSE AND ECTR ENABLE.
009795,000526: 11,2570 00006 EXTEND
009796,000527: 11,2571 03012 WAND 12
009797,000528:
009798,000529: 11,2572 05311 TC GRABWAIT
009799,000530: 11,2573 32152 CAF VNLODCDU
009800,000531: 11,2574 05324 TC NVSBWAIT
009801,000532: 11,2575 05132 TC ENDIDLE
009802,000533: 11,2576 02055 TC TERMEXTV
009803,000534: 11,2577 02600 TC +1
009804,000535: 11,2600 32632 CAF V43K # REDISPLAY OUR VERB.
009805,000536: 11,2601 05324 TC NVSBWAIT
009806,000537: 11,2602 37664 CAF BIT6 # ENABLE ERROR COUNTER.
009807,000538: 11,2603 00006 EXTEND
009808,000539: 11,2604 05012 WOR 12
009809,000540: 11,2605 37670 CAF TWO
009810,000541: 11,2606 00004 INHINT
009811,000542: 11,2607 04517 TC WAITLIST # PUT OUT COMMAND IN .32 SECS.
009812,000543: 11,2610 02613 22007 2CADR ATTCK2
009813,000544:
009814,000545: 11,2612 12055 TCF TERMEXTV # FREES DISPLAY.
009815,000546:
009816,000547: 11,2613 37670 ATTCK2 CAF TWO # PUT OUT ALL COMMANDS - CDU WILL DO LIMIT
009817,000548: 11,2614 54002 TS Q # INCASE OF EXCESS DATA.
009818,000549: 11,2615 50000 INDEX A
009819,000550: 11,2616 30400 CA THETAD
009820,000551: 11,2617 00006 EXTEND
009821,000552: 11,2620 77655 MP BIT13 # SHIFT RIGHT 2.
009822,000553: 11,2621 50002 INDEX Q
009823,000554: 11,2622 54050 TS CDUXCMD
009824,000555: 11,2623 10002 CCS Q
009825,000556: 11,2624 12614 TCF ATTCK2 +1
009826,000557:
009827,000558: 11,2625 32633 CAF OCT70K
009828,000559: 11,2626 00006 EXTEND
009829,000560: 11,2627 05014 WOR 14
009830,000561: 11,2630 14563 TCF TASKOVER
009831,000562:
009832,000563: 11,2631 00050 OCT50K OCT 50
009833,000564: 11,2632 04300 V43K OCT 4300
009834,000565: 11,2633 70000 OCT70K OCT 70000
009835,000566:
009836,000567: # PROGRAM TO SCAN CHANNELS 30 - 32 FOR CHANGES IN SELECTED INBITS. CALLED BY SPECIAL VERB.
009837,000568:
009838,000569: 11,2634 E7,1606 EBANK= MSGCNT
009839,000570:
009840,000571: 11,2634 37671 SETUPMSG CAF BIT1 # BEGIN SCAN.
009841,000572: 11,2635 00004 INHINT
009842,000573: 11,2636 04517 TC WAITLIST
009843,000574: 11,2637 02644 22007 2CADR MSGSCAN +2
009844,000575:
009845,000576: 11,2641 04422 TC ENDOFJOB
009846,000577:
009847,000578: 11,2642 04535 MSGSCAN TC FIXDELAY
009848,000579: 11,2643 00062 DEC 50 B-14
009849,000580:
009850,000581: 11,2644 37670 CAF TWO # SCAN ALL 3 CHANNELS FOR CHANGES.
009851,000582: 11,2645 55606 TS MSGCNT
009852,000583: 11,2646 50000 INDEX A
009853,000584: 11,2647 31603 CA LAST30 # OLD VALUE OF INBITS.
009854,000585: 11,2650 00006 EXTEND
009855,000586: 11,2651 51606 INDEX MSGCNT
009856,000587: 11,2652 06030 RXOR 30
009857,000588: 11,2653 51606 INDEX MSGCNT
009858,000589: 11,2654 72721 MASK 30MSGMSK
009859,000590: 11,2655 00006 EXTEND
009860,000591: 11,2656 12716 BZF NOMSG
009861,000592:
009862,000593: 11,2657 54002 TS Q # SAVE DIFFERENCE.
009863,000594: 11,2660 51606 INDEX MSGCNT
009864,000595: 11,2661 23603 LXCH LAST30 # UPDATE OLD VALUE.
009865,000596: 11,2662 00006 EXTEND
009866,000597: 11,2663 06001 RXOR L
009867,000598: 11,2664 51606 INDEX MSGCNT
009868,000599: 11,2665 55603 TS LAST30
009869,000600:
009870,000601: 11,2666 40000 COM
009871,000602: 11,2667 56002 XCH Q
009872,000603: 11,2670 70002 MASK Q # SEE IF ANY OF CHANGED BITS JUST ON.
009873,000604: 11,2671 00006 EXTEND
009874,000605: 11,2672 12716 BZF NOMSG # NO MESSAGE IF SO.
009875,000606:
009876,000607: 11,2673 54001 TS L
009877,000608: 11,2674 31606 CA MSGCNT
009878,000609: 11,2675 60000 DOUBLE
009879,000610: 11,2676 60000 DOUBLE
009880,000611: 11,2677 77667 MASK BIT3
009881,000612: 11,2700 70001 MASK L
009882,000613: 11,2701 00006 EXTEND
009883,000614: 11,2702 12711 BZF NOTRHC
009884,000615:
009885,000616: 11,2703 36173 CAF SIX
009886,000617:
009887,000618: 11,2704 37654 CAF PRIO20 # INITIATE MONITOR.
009888,000619: 11,2705 04344 TC NOVAC
009889,000620: 11,2706 02730 22007 2CADR RHCMON
009890,000621: 11,2710 12716 TCF NOMSG
009891,000622:
009892,000623: 11,2711 32724 NOTRHC CAF OKT30
009893,000624: 11,2712 61606 AD MSGCNT
009894,000625: 11,2713 54075 TS RUPTREG2
009895,000626:
009896,000627: 11,2714 40002 CS Q
009897,000628: 11,2715 02742 TC VMESSAGE
009898,000629:
009899,000630: 11,2716 11606 NOMSG CCS MSGCNT
009900,000631: 11,2717 12645 TCF MSGSCAN +3
009901,000632: 11,2720 12642 TCF MSGSCAN
009902,000633:
009903,000634: 11,2721 00017 30MSGMSK OCT 17
009904,000635: 11,2722 77777 OCT 77777
009905,000636: 11,2723 03777 OCT 3777
009906,000637:
009907,000638: 11,2724 00030 OKT30 OCT 30
009908,000639: 11,2725 02735 DESCBITS TC MESSAGE # DESCENT BITS COME HERE IN A.
009909,000640: 11,2726 00016 OCT 16
009910,000641: 11,2727 04567 TC RESUME
009911,000642:
009912,000643: 11,2730 05311 RHCMON TC GRABWAIT # FIRE UP DSKY MONITOR.
009913,000644: 11,2731 32734 CAF RHCMONVN
009914,000645: 11,2732 05324 TC NVSBWAIT
009915,000646: 11,2733 04421 TC EJFREE
009916,000647:
009917,000648: 11,2734 01645 RHCMONVN OCT 1645
009918,000649:
009919,000650: # MESSAGE DISPLAY - 3 COMPONENT OCTAL.
009920,000651:
009921,000652: 11,2735 54075 MESSAGE TS RUPTREG2 # NEW CHANNEL CONTENTS ARRIVE IN A.
009922,000653: 11,2736 50002 INDEX Q # CHANNEL NUMBER IN OCTAL AT CALLER +1.
009923,000654: 11,2737 30000 CAF 0
009924,000655: 11,2740 24002 INCR Q
009925,000656: 11,2741 56075 XCH RUPTREG2
009926,000657:
009927,000658: 11,2742 54074 VMESSAGE TS RUPTREG1 # FOR VARIABLE CHANNEL.
009928,000659: 11,2743 00006 EXTEND
009929,000660: 11,2744 22076 QXCH RUPTREG3
009930,000661: 11,2745 34506 CAF PRIO27 # FIRE UP SPECIAL JOB.
009931,000662: 11,2746 04344 TC NOVAC
009932,000663: 11,2747 02760 22007 2CADR DOMSG
009933,000664:
009934,000665: 11,2751 52075 DXCH RUPTREG1 # NEW CONTENTS TO MPAC - CHANNEL NUMBER TO
009935,000666: 11,2752 50071 INDEX LOCCTR # MPAC +1.
009936,000667: 11,2753 52141 DXCH MPAC
009937,000668: 11,2754 30025 CA TIME1
009938,000669: 11,2755 50071 INDEX LOCCTR
009939,000670: 11,2756 54142 TS MPAC +2
009940,000671: 11,2757 00076 TC RUPTREG3
009941,000672:
009942,000673: 11,2760 05311 DOMSG TC GRABWAIT
009943,000674: 11,2761 00006 EXTEND
009944,000675: 11,2762 30141 DCA MPAC
009945,000676: 11,2763 52334 DXCH DSPTEM1
009946,000677: 11,2764 30142 CA MPAC +2
009947,000678: 11,2765 54335 TS DSPTEM1 +2
009948,000679: 11,2766 32775 CAF MSGVN
009949,000680: 11,2767 05101 TC NVSUB
009950,000681: 11,2770 12772 TCF MSGBUSY
009951,000682: 11,2771 04421 TC EJFREE
009952,000683:
009953,000684: 11,2772 32774 MSGBUSY CAF +2
009954,000685: 11,2773 05321 TC NVSUBUSY
009955,000686: 11,2774 22761 CADR DOMSG +1
009956,000687:
009957,000688: 11,2775 00535 MSGVN OCT 0535
009958,000689:
009959,000690: # ROUTINE FOR AURORA ONLY TO ASK OPERATOR IF RR LOCK ON REQUESTED.
009960,000691:
009961,000692: 11,2776 04114 AURLOKON TC MAKECADR
009962,000693: 11,2777 54427 TS DESRET
009963,000694: 11,3000 32523 CAF RV33 # ASSUMES DSKY GRABBED.
009964,000695: 11,3001 05324 TC NVSBWAIT
009965,000696: 11,3002 05266 TC FLASHON
009966,000697: 11,3003 05132 TC ENDIDLE
009967,000698: 11,3004 13007 TCF +3 # ON TERM.
009968,000699: 11,3005 37665 CAF LOKONFLG
009969,000700: 11,3006 13010 TCF +2
009970,000701: 11,3007 37675 CAF ZERO
009971,000702: 11,3010 00004 INHINT
009972,000703: 11,3011 56061 XCH STATE
009973,000704: 11,3012 73024 MASK -LOKONFG
009974,000705: 11,3013 26061 ADS STATE
009975,000706:
009976,000707: 11,3014 77665 MASK LOKONFLG # IF NO LOCK-ON CALLED FOR, SET BIT15 OF
009977,000708: 11,3015 10000 CCS A # RADMODES TO INDICATE THAT ARBITRARILY-
009978,000709: 11,3016 13021 TCF +3 # LONG DESIGNATION IS WANTED (TO BE
009979,000710:
009980,000711: 11,3017 37653 CAF BIT15 # TERMINATED BY FRESH START).
009981,000712: 11,3020 26413 ADS RADMODES
009982,000713: 11,3021 00003 RELINT
009983,000714: 11,3022 30427 CA DESRET
009984,000715: 11,3023 14107 TCF BANKJUMP
009985,000716:
009986,000717: 11,3024 77757 -LOKONFG OCT -20
009987,000718:
009988,000719: # PROGRAM TO RUN DISPLAY INERTIAL DATA TEST.
009989,000720:
009990,000721: 11,3025 33115 DISINDT CAF FLVELVN # ASK FOR FORWARD, LATERAL VELOCITY.
009991,000722: 11,3026 05324 TC NVSBWAIT
009992,000723: 11,3027 05132 TC ENDIDLE
009993,000724: 11,3030 13052 TCF ENDDISIN
009994,000725: 11,3031 13032 TCF +1
009995,000726: 11,3032 33116 CAF ALT,R,VN # ASK FOR INITIAL AND FINIAL ALTITUDES AND
009996,000727: 11,3033 05324 TC NVSBWAIT # ALTITUDE RATE.
009997,000728: 11,3034 05132 TC ENDIDLE
009998,000729: 11,3035 13052 TCF ENDDISIN
009999,000730: 11,3036 13037 TCF +1
010000,000731:
010001,000732: 11,3037 00004 INHINT
010002,000733: 11,3040 47671 CS ONE
010003,000734: 11,3041 54351 TS DIDFLG
010004,000735:
010005,000736: 11,3042 00006 EXTEND
010006,000737: 11,3043 30353 DCA ALT # SO FOLLOWING MONITOR WORKS.
010007,000738: 11,3044 52365 DXCH ALTSAVE
010008,000739:
010009,000740: 11,3045 37671 CAF ONE
010010,000741: 11,3046 04517 TC WAITLIST
010011,000742: 11,3047 03060 22007 2CADR DISINLUP +2
010012,000743:
010013,000744: 11,3051 14421 TCF EJFREE
010014,000745:
010015,000746: 11,3052 05373 ENDDISIN TC FREEDSP
010016,000747: 11,3053 04650 +1 TC NEWMODEX
010017,000748: 11,3054 00000 OCT 0
010018,000749:
010019,000750: 11,3055 04422 TC ENDOFJOB
010020,000751:
010021,000752: # WATCH ALTSAVE FOR END OF PROBLEM.
010022,000753:
010023,000754: 11,3056 04535 DISINLUP TC FIXDELAY
010024,000755: 11,3057 00062 DEC 50 B-14
010025,000756:
010026,000757: 11,3060 00006 +2 EXTEND
010027,000758: 11,3061 30356 DCA FINALT
010028,000759: 11,3062 52066 DXCH ITEMP1
010029,000760: 11,3063 00006 EXTEND
010030,000761: 11,3064 40365 DCS ALTSAVE # LATEST ALTITUDE.
010031,000762: 11,3065 20066 DAS ITEMP1
010032,000763:
010033,000764: 11,3066 10065 CCS ITEMP1
010034,000765: 11,3067 13107 TCF +DIF
010035,000766: 11,3070 13072 TCF +2
010036,000767: 11,3071 13113 TCF -DIF
010037,000768:
010038,000769: 11,3072 10066 CCS ITEMP2
010039,000770: 11,3073 13107 TCF +DIF
010040,000771: 11,3074 13076 TCF +2
010041,000772: 11,3075 13113 TCF -DIF
010042,000773:
010043,000774: 11,3076 37675 DISINDUN CAF ZERO
010044,000775: 11,3077 54354 TS ALTRATE
010045,000776: 11,3100 52356 DXCH FINALT
010046,000777: 11,3101 52353 DXCH ALT
010047,000778: 11,3102 37654 CAF PRIO20
010048,000779: 11,3103 04344 TC NOVAC
010049,000780: 11,3104 03053 22007 2CADR ENDDISIN +1
010050,000781:
010051,000782: 11,3106 14563 TCF TASKOVER
010052,000783:
010053,000784: 11,3107 30354 +DIF CA ALTRATE
010054,000785: 11,3110 00006 EXTEND
010055,000786: 11,3111 63076 BZMF DISINDUN
010056,000787: 11,3112 13056 TCF DISINLUP
010057,000788:
010058,000789: 11,3113 40354 -DIF CS ALTRATE
010059,000790: 11,3114 13110 TCF +DIF +1
010060,000791:
010061,000792: 11,3115 02444 FLVELVN OCT 2444
010062,000793: 11,3116 02564 ALT,R,VN OCT 2564
010063,000794:
010064,000795: # VB 60 PREPARE FOR STANDBY OPERATION
010065,000796:
010066,000797: # ROUTINE WRITTEN FOR TEST ROPES ONLY*** MUST BE UPDATED TO INCLUDE
010067,000798: # FLIGHT REQUIREMENTS FOR FLIGHT OPERATION
010068,000799:
010069,000800: 11,3117 E3,1400 EBANK= LST1
010070,000801:
010071,000802: 11,3117 33240 PRESTAND CAF EBANK3 # COMES HERE FROM LST2FAN
010072,000803: 11,3120 56003 XCH EBANK # SET UP EBANK FOR BANK 3
010073,000804: 11,3121 00004 INHINT
010074,000805: 11,3122 30025 CA TIME1
010075,000806: 11,3123 55502 TS TIMESAV # THIS ROUTINE WILL LOOK AT TIME1 UNTIL
010076,000807: 11,3124 32724 CAF OKT30 # TIME1 IS INCREMENTED, THEN IT WILL
010077,000808: 11,3125 55506 LONGER TS TIMAR # SNATCH THE MISSION TIME REGS AND STORE
010078,000809: 11,3126 41502 CS TIMESAV # THEM IN TIMESAV FOR LATER ISE IN ARITH.
010079,000810: 11,3127 60025 AD TIME1 # OPERATIONS WHICH SHOULD FIND THE
010080,000811: 11,3130 00006 EXTEND # STANDING DIFFERENCE BETWEEN THE SCALAR
010081,000812: 11,3131 13136 BZF CHKTIME # AND THE TIME1-TIME2S REGS.
010082,000813:
010083,000814: 11,3132 00006 EXTEND
010084,000815: 11,3133 30025 DCA TIME2 # READ AND STORE THE DP TIME AND GO
010085,000816: 11,3134 53503 DXCH TIMESAV # READ THE SCALAR USING THE EXISTING PROG
010086,000817: 11,3135 13144 TCF CATCHFIN # FINETIME.
010087,000818:
010088,000819: 11,3136 11506 CHKTIME CCS TIMAR # MUST WATCH THE TIME SPENT IN INHINT OR
010089,000820: 11,3137 03125 TC LONGER # THE COPS MIGHT CATCH US.
010090,000821: 11,3140 00003 RELINT
010091,000822: 11,3141 10067 CCS NEWJOB
010092,000823: 11,3142 04365 TC CHANG1
010093,000824: 11,3143 03124 TC LONGER -1 # GO BACK AND LOOK AGAIN
010094,000825:
010095,000826: 11,3144 05462 CATCHFIN TC FINETIME # WILL READ CHANNELS 3 AND 4 AND RETURN
010096,000827: 11,3145 53505 DXCH SCALSAV # WITH 3 IN A AND 4 IN L..
010097,000828: 11,3146 00003 RELINT
010098,000829: 11,3147 47666 CS BIT4
010099,000830: 11,3150 70367 MASK IMODES30 # INHIBIT THE IMU FAIL LIGHT.
010100,000831: 11,3151 67666 AD BIT4
010101,000832: 11,3152 54367 TS IMODES30
010102,000833:
010103,000834: 11,3153 37666 CAF BIT4 # SET ALL CHAN 12 BITS EXCEPT C/A TO ZERO.
010104,000835: 11,3154 00006 EXTEND # THIS IS NECESSARY SO THAT THE GIMBALS DO
010105,000836: 11,3155 03012 WAND 12 # NOT DRIFT INTO GIMBALLOCK IF THE SYSTEM
010106,000837:
010107,000838: 11,3156 37666 CAF BIT4 # SHOULD BE IN OPERATE AT THE TIME STBY
010108,000839: 11,3157 00006 EXTEND # WAS STARTED. THIS SECTION WILL MAKE
010109,000840: 11,3160 05012 WOR 12 # SURE THE IMU IS IN C/A.....
010110,000841:
010111,000842: 11,3161 37657 CAF BIT11 # WHEN BIT 11 IS PRESENT IN CHANNEL 13 THE
010112,000843: 11,3162 00006 EXTEND # DSKY PB. CAN THEN ENERGIZE THE STANDBY
010113,000844: 11,3163 05013 WOR 13 # RELAY IN THE CGC PWR SUPPLIES....
010114,000845: 11,3164 04422 TC ENDOFJOB # GO TO DUMMY JOB UNTIL YOU DIE...
010115,000846:
010116,000847: # VB 61 RECOVER FROM STANDBY OPERATION
010117,000848:
010118,000849: # ROUTINE WRITTEN FOR TEST ROPES ONLY**** MUST BE UPDATED TO INCLUDE
010119,000850: # FLIGHT REQUIREMENTS FOR FLIGHT OPERATIONS SEQUENCES....
010120,000851:
010121,000852: 11,3165 33240 POSTAND CAF EBANK3 # COMES HERE FROM LST2FAN
010122,000853: 11,3166 56003 XCH EBANK # SET UP EBANK FOR BANK 3
010123,000854: 11,3167 05462 TC FINETIME
010124,000855: 11,3170 53507 DXCH TIMAR # READ THE SCALAR AND SEE IF IT OVERFLOW-
010125,000856: 11,3171 00003 RELINT # ED WHILE THE CGC WAS IN STBY, IF SO
010126,000857: 11,3172 31506 CAE TIMAR # THE OVERFLOW MUST BE ADDED OR IT WILL
010127,000858: 11,3173 00006 EXTEND # SEEM THAT THE REALATIVITY THEORY WORKS
010128,000859: 11,3174 61504 SU SCALSAV # BETTER THAN IT SHOULD...
010129,000860: 11,3175 00006 EXTEND
010130,000861: 11,3176 63221 BZMF ADDTIME # IF ITS NEG. IT MUST HAVE OV:FLWD..
010131,000862:
010132,000863: 11,3177 06000 TC INTPRET
010133,000864: 11,3200 45345 DLOAD DSU # IF IT DID NOT OV-FLW. FIND OUT HOW LONG
010134,000865: 11,3201 01507 TIMAR # THE CGC WAS IN STBY BY SUBTRACTING THE
010135,000866: 11,3202 01505 SCALSAV # SCALAR AT THE START OF STBY FROM THE
010136,000867: 11,3203 47061 SRR RTB # SCALAR AT THE END OF STBY AND THEN ADD
010137,000868: 11,3204 21606 5 # THE DIFFERENCE TO THE TIME EXISTING
010138,000869: 11,3205 33406 SGNAGREE # WHEN THE SCALAR WAS READ AT STBY ENTRY**
010139,000870: 11,3206 77615 DAD
010140,000871: 11,3207 01503 TIMESAV
010141,000872: 11,3210 01507 STORE TIMAR
010142,000873: 11,3211 77776 EXIT
010143,000874:
010144,000875: 11,3212 00006 CORCTTIM EXTEND
010145,000876: 11,3213 31507 DCA TIMAR # THIS IS THE CORRECTED TIME TO BE READ
010146,000877: 11,3214 52025 DXCH TIME2 # INTO TIME1 AND TIME2 REGS. ADDR 24-25
010147,000878:
010148,000879: 11,3215 47657 CS BIT11
010149,000880: 11,3216 00006 EXTEND # DISABLE THE DSKY STBY PUSHBUTTON.
010150,000881: 11,3217 03013 WAND 13
010151,000882: 11,3220 04422 TC ENDOFJOB
010152,000883:
010153,000884: 11,3221 00006 ADDTIME EXTEND
010154,000885: 11,3222 37651 DCA DPOSMAX # IF THE SCALAR OVERFLOWED, FIND OUT HOW
010155,000886: 11,3223 53511 DXCH TIMEDIFF # MUCH TIME REMAINED WHEN READ THE FIRST
010156,000887: 11,3224 06000 TC INTPRET # TIME AND THEN ADD THE PRESENT READING-
010157,000888: 11,3225 45345 DLOAD DSU # WHICH WILL BE THE TOTAL TIME SPENT IN
010158,000889: 11,3226 01511 TIMEDIFF # STANDBY, TO WHICH THE TIME AT STBY
010159,000890: 11,3227 01505 SCALSAV # MAY BE ADDED TO FIND THE PRESENT TIME
010160,000891: 11,3230 54215 DAD SRR # CORRECT TO 10 MSEC..
010161,000892: 11,3231 01507 TIMAR # **** THE TIME IN STANDBY MODE MUST NOT
010162,000893: 11,3232 21606 5 # EXCEED 23 HOURS IF TIME IS TO BE
010163,000894: 11,3233 77615 DAD # CORRECTLY COMPUTED BY THIS ROUTINE.*****
010164,000895: 11,3234 01503 TIMESAV
010165,000896: 11,3235 01507 STORE TIMAR
010166,000897: 11,3236 77776 EXIT
010167,000898: 11,3237 03212 TC CORCTTIM
010168,000899:
010169,000900: 11,3240 01400 EBANK3 OCT 01400 # CONST USED TO SET EBANK REG FOR BANK 3
010170,000901:
010171,000902: 11,3241 ENDEXTVS EQUALS
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc