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