Source Code
|
These source-code files are part of a reconstructed copy of Aurora 88, the
final release of the Lunar Module (LM) Apollo Guidance Computer (AGC) system
test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-011, 2003972-091, and 2003972-111, belonging to Steve Jurvetson. Since only binary dumps (rather than listings) of Aurora 88 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
008884,000002: ## Copyright: Public domain.
008885,000003: ## Filename: EXTENDED_VERBS.agc
008886,000004: ## Purpose: A section of Aurora 88.
008887,000005: ## It is part of the reconstructed source code for the final
008888,000006: ## release of the Lunar Module system test software. No original
008889,000007: ## listings of this program are available; instead, this file
008890,000008: ## was created via disassembly of dumps of Aurora 88 core rope
008891,000009: ## modules and comparison with other AGC programs.
008892,000010: ## Assembler: yaYUL
008893,000011: ## Contact: Ron Burkey <info@sandroid.org>.
008894,000012: ## Website: www.ibiblio.org/apollo/index.html
008895,000013: ## Mod history: 2023-06-30 MAS Created from Aurora 12.
008896,000014: ## 2023-07-12 MAS Updated for Aurora 88.
008897,000015:
008898,000016:
008899,000017: 11,2000 BANK 11
008900,000018: 11,2000 E5,1500 EBANK= OGC
008901,000019:
008902,000020: # FAN-OUT
008903,000021:
008904,000022: 11,2000 02070 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20, 40, OR 70
008905,000023: # ONLY)
008906,000024: 11,2001 02074 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20, 40
008907,000025: # OR 70 ONLY)
008908,000026: 11,2002 02213 TC IMUFINEK # VB42 FINE ALIGN IMU
008909,000027: 11,2003 02577 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
008910,000028: 11,2004 02066 TC ALM/END # ILLEGAL VERB.
008911,000029: 11,2005 12135 TCF LRPOS2K # VB45 COMMAND LR TO POSITION 2.
008912,000030: 11,2006 02420 TC REGRSAMP # VB46 SAMPLE RADAR ONCE PER SECOND
008913,000031: 11,2007 02412 TC DOFCSTST # VB47 PERFORM LEM FCS TEST
008914,000032: 11,2010 02271 TC GOLOADLV # VB50 PLEASE PERFORM
008915,000033: 11,2011 02271 TC GOLOADLV # VB51 PLEASE MARK
008916,000034: 11,2012 02271 TC GOLOADLV # VB52 PLEASE MARK Y
008917,000035: 11,2013 02271 TC GOLOADLV # VB53 PLEASE MARK X OR Y.
008918,000036: 11,2014 02275 TC TORQGYRS # VB54 PULSE TORQUE GYROS
008919,000037: 11,2015 02312 TC ALINTIME # VB55 ALIGN TIME
008920,000038: 11,2016 02410 TC GOSHOSUM # VB56 PERFORM BANKSUM
008921,000039: 11,2017 02340 TC SYSTEST # VB57 PERFORM SYSTEM TEST
008922,000040: 11,2020 03244 TC PRESTAND # VB60 PREPARE FOR STANDBY
008923,000041: 11,2021 03312 TC POSTAND # VB61 RECOVER FROM STANDBY
008924,000042: 11,2022 02656 TC SETUPMSG # VB62 SCAM LEM INBITS
008925,000043: 11,2023 12535 TCF AGSINIT # VB63 INITIALIZE AGS
008926,000044: 11,2024 12066 TCF ALM/END
008927,000045: 11,2025 12066 TCF ALM/END
008928,000046: 11,2026 13143 TCF LOTSTRT # VB66 LOTS FRESH START
008929,000047: 11,2027 12066 TCF ALM/END
008930,000048: 11,2030 02645 TC LOTSACQ # VB70 ACQUIRE WITH LOTS
008931,000049: 11,2031 02650 TC LOTSTEST # VB71 LOTS SELF TEST
008932,000050: 11,2032 02653 TC LOTSSTOW # VB72 RETURN LOTS TO STOW
008933,000051: 11,2033 12066 TCF ALM/END
008934,000052: 11,2034 12066 TCF ALM/END
008935,000053: 11,2035 12066 TCF ALM/END
008936,000054: 11,2036 12066 TCF ALM/END
008937,000055: 11,2037 02066 TC ALM/END
008938,000056:
008939,000057: 11,2040 37650 TESTXACT CAF BIT3
008940,000058: 11,2041 70332 MASK EXTVBACT
008941,000059: 11,2042 10000 CCS A
008942,000060: 11,2043 02053 TC XACTALM
008943,000061:
008944,000062: 11,2044 47650 XACT1 CS BIT3
008945,000063: 11,2045 00004 INHINT
008946,000064: 11,2046 70332 MASK EXTVBACT
008947,000065: 11,2047 67650 AD BIT3
008948,000066: 11,2050 54332 TS EXTVBACT
008949,000067:
008950,000068: 11,2051 00003 RELINT
008951,000069: 11,2052 00002 TC Q
008952,000070:
008953,000071: 11,2053 05145 XACTALM TC FALTON
008954,000072: 11,2054 04353 TC ENDOFJOB
008955,000073:
008956,000074: 11,2055 05303 TERMEXTV TC FREEDSP # IF WE GET A TERMINATE INSTEAD OF A LOAD.
008957,000075:
008958,000076: 11,2056 02060 ENDEXTVB TC XACT0
008959,000077: 11,2057 04353 TC ENDOFJOB
008960,000078:
008961,000079: 11,2060 47650 XACT0 CS BIT3
008962,000080: 11,2061 00004 INHINT
008963,000081: 11,2062 70332 MASK EXTVBACT
008964,000082: 11,2063 54332 TS EXTVBACT
008965,000083: 11,2064 00003 RELINT
008966,000084: 11,2065 00002 XACT0Q TC Q
008967,000085:
008968,000086:
008969,000087:
008970,000088: 11,2066 05145 ALM/END TC FALTON
008971,000089: 11,2067 02056 TC ENDEXTVB
008972,000090:
008973,000091:
008974,000092:
008975,000093: 11,2070 02100 VBZERO TC OP/INERT
008976,000094: 11,2071 02117 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
008977,000095: 11,2072 02126 TC RRZEROK # RETURN HERE IF NOUN = RCDU(40)
008978,000096: 11,2073 02066 TC ALM/END # RETURN HERE IF NOUN = OCDU(70)
008979,000097:
008980,000098: 11,2074 02100 VBCOARK TC OP/INERT
008981,000099: 11,2075 02141 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
008982,000100: 11,2076 02243 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (40)
008983,000101: 11,2077 02066 TC ALM/END # RETURN HERE IF NOUN = OCDU (70)
008984,000102:
008985,000103: # RETURNS TO L+1 IF IMU, L+2 IF RR, AND L+3 IF OT.
008986,000104:
008987,000105: 11,2100 47646 OP/INERT CS BIT5 # OCT20
008988,000106: 11,2101 60267 AD NOUNREG
008989,000107: 11,2102 00006 EXTEND
008990,000108: 11,2103 12065 BZF XACT0Q # IF = 20.
008991,000109:
008992,000110: 11,2104 24002 INCR Q
008993,000111: 11,2105 62115 AD RRIMUDIF # = -20 OCT.
008994,000112: 11,2106 00006 EXTEND
008995,000113: 11,2107 12065 BZF XACT0Q
008996,000114:
008997,000115: 11,2110 24002 INCR Q
008998,000116: 11,2111 62116 AD OTRRDIF # = -30 OCT.
008999,000117: 11,2112 00006 EXTEND
009000,000118: 11,2113 12065 BZF XACT0Q
009001,000119:
009002,000120: 11,2114 02066 TC ALM/END # ILLEGAL.
009003,000121:
009004,000122: 11,2115 77757 RRIMUDIF OCT -20
009005,000123: 11,2116 77747 OTRRDIF OCT -30
009006,000124:
009007,000125: # KEYBOARD REQUEST TO ZERO IMU ENCODERS
009008,000126:
009009,000127: 11,2117 02040 IMUZEROK TC TESTXACT # ZERO ENCODERS.
009010,000128: 11,2120 04063 TC BANKCALL
009011,000129: 11,2121 26000 CADR IMUZERO
009012,000130:
009013,000131: 11,2122 04063 TC BANKCALL # STALL
009014,000132: 11,2123 26716 CADR IMUSTALL
009015,000133: 11,2124 02125 TC +1
009016,000134:
009017,000135: 11,2125 02056 TC ENDEXTVB
009018,000136: 11,2126 02040 RRZEROK TC TESTXACT
009019,000137: 11,2127 04063 TC BANKCALL # ZERO RR CDUS.
009020,000138: 11,2130 20246 CADR RRZERO
009021,000139:
009022,000140: 11,2131 04063 RWAITK TC BANKCALL
009023,000141: 11,2132 26712 CADR RADSTALL
009024,000142: 11,2133 12134 TCF +1
009025,000143: 11,2134 12056 TCF ENDEXTVB
009026,000144:
009027,000145: 11,2135 02040 LRPOS2K TC TESTXACT # COMMAND LR TO POSITION 2.
009028,000146: 11,2136 04063 TC BANKCALL
009029,000147: 11,2137 21173 CADR LRPOS2
009030,000148: 11,2140 12131 TCF RWAITK
009031,000149:
009032,000150: # KEYBOARD REQUEST TO COARSE ALIGN THE IMU
009033,000151:
009034,000152: 11,2141 02040 IMUCOARK TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
009035,000153: 11,2142 05221 TC GRABWAIT
009036,000154: 11,2143 32161 CAF VNLODCDU # CALL FOR THETAD LOAD
009037,000155: 11,2144 05234 TC NVSBWAIT
009038,000156: 11,2145 05042 TC ENDIDLE # STALL WAITING FOR THE LOAD
009039,000157: 11,2146 02055 TC TERMEXTV
009040,000158: 11,2147 02163 TC ICSDEL # PROCEED - ASK FOR INCREMENTAL LOAD.
009041,000159:
009042,000160: 11,2150 32162 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
009043,000161: 11,2151 05234 TC NVSBWAIT
009044,000162: 11,2152 05303 TC FREEDSP # RELEASE THE DISPLAYS
009045,000163:
009046,000164: 11,2153 04063 TC BANKCALL # CALL MODE SWITCHING PROG
009047,000165: 11,2154 26055 CADR IMUCOARS
009048,000166:
009049,000167: 11,2155 04063 TC BANKCALL # STALL
009050,000168: 11,2156 26716 CADR IMUSTALL
009051,000169: 11,2157 02056 TC ENDEXTVB
009052,000170: 11,2160 02056 TC ENDEXTVB
009053,000171:
009054,000172: 11,2161 02522 VNLODCDU OCT 02522
009055,000173: 11,2162 04100 IMUCOARV OCT 04100
009056,000174:
009057,000175: # PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
009058,000176:
009059,000177: 11,2163 32211 ICSDEL CAF DELLOAD
009060,000178: 11,2164 05234 TC NVSBWAIT # REQUEST LOAD OF DELTA ICDU ANGLES.
009061,000179: 11,2165 05042 TC ENDIDLE
009062,000180: 11,2166 02055 TC TERMEXTV
009063,000181: 11,2167 02150 TC ICORK2 # PROCEED WITHOUT DATA HERE TOO.
009064,000182: 11,2170 02172 TC INCLOOP # LOOP TO INCREMENT THETAD FROM DSPTEM2.
009065,000183: 11,2171 02150 TC ICORK2 # RE-DISPLAY COARSE ALIGN VERB.
009066,000184:
009067,000185: 11,2172 56002 INCLOOP XCH Q # INCREMENTS THETADS IN 2S COMPLEMENT FROM
009068,000186: 11,2173 54140 TS MPAC # THREE ANGLE INCREMENTS IN DSPTEM2S.
009069,000187: 11,2174 32212 CAF LTHD+2
009070,000188: 11,2175 54114 TS BUF # SET UP FOR CDUINC.
009071,000189: 11,2176 37651 CAF TWO # THREE TIMES THROUGH.
009072,000190:
009073,000191: 11,2177 54141 INCLOOP2 TS MPAC +1
009074,000192: 11,2200 50000 INDEX A
009075,000193: 11,2201 56336 XCH DSPTEM2 # INCREMENT TO TEM2 FOR CDUINC.
009076,000194: 11,2202 04063 TC BANKCALL
009077,000195: 11,2203 33606 CADR CDUINC
009078,000196: 11,2204 10114 CCS BUF
009079,000197: 11,2205 54114 TS BUF
009080,000198: 11,2206 10141 CCS MPAC +1
009081,000199: 11,2207 02177 TC INCLOOP2
009082,000200:
009083,000201: 11,2210 00140 TC MPAC # RETURN WHEN FINISHED.
009084,000202:
009085,000203: 11,2211 02523 DELLOAD OCT 02523
009086,000204: 11,2212 00402 LTHD+2 ADRES THETAD +2
009087,000205:
009088,000206: # KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
009089,000207:
009090,000208: 11,2213 02040 IMUFINEK TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
009091,000209: 11,2214 05221 TC GRABWAIT
009092,000210: 11,2215 32241 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
009093,000211: 11,2216 05234 TC NVSBWAIT
009094,000212: 11,2217 05042 TC ENDIDLE # HOLD UP FOR THE DATA LOAD
009095,000213: 11,2220 02055 TC TERMEXTV
009096,000214: 11,2221 02222 TC +1 # PROCEED WITHOUT A LOAD
009097,000215:
009098,000216: 11,2222 32242 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
009099,000217: 11,2223 05234 TC NVSBWAIT
009100,000218: 11,2224 05303 TC FREEDSP # RELEASE DISPLAYS
009101,000219:
009102,000220: 11,2225 04063 TC BANKCALL # CALL MODE SWITCH PROG
009103,000221: 11,2226 26227 CADR IMUFINE
009104,000222:
009105,000223: 11,2227 04063 TC BANKCALL # HIBERNATION
009106,000224: 11,2230 26716 CADR IMUSTALL
009107,000225: 11,2231 02056 TC ENDEXTVB
009108,000226:
009109,000227: 11,2232 32310 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
009110,000228: 11,2233 04063 TC BANKCALL
009111,000229: 11,2234 26317 CADR IMUPULSE
009112,000230:
009113,000231: 11,2235 04063 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
009114,000232: 11,2236 26716 CADR IMUSTALL
009115,000233: 11,2237 02056 TC ENDEXTVB
009116,000234: 11,2240 02056 TC ENDEXTVB
009117,000235:
009118,000236: 11,2241 02567 VNLODGYR OCT 02567
009119,000237: 11,2242 04200 IMUFINEV OCT 04200 # FINE ALIGN VERB
009120,000238:
009121,000239: # DESIGNATE TO DESIRED GIMBAL ANGLES.
009122,000240:
009123,000241: 11,2243 02040 RRDESNBK TC TESTXACT
009124,000242: 11,2244 05221 TC GRABWAIT
009125,000243: 11,2245 32264 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
009126,000244: 11,2246 05234 TC NVSBWAIT
009127,000245: 11,2247 05042 TC ENDIDLE # WAIT FOR THE LOAD
009128,000246: 11,2250 02055 TC TERMEXTV
009129,000247: 11,2251 02252 TC +1 # PROCEED
009130,000248:
009131,000249: 11,2252 04063 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
009132,000250: 11,2253 23022 CADR AURLOKON
009133,000251:
009134,000252: 11,2254 32162 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
009135,000253: 11,2255 05234 TC NVSBWAIT
009136,000254: 11,2256 00004 INHINT # FIRE UP JOB TO DO DESIGNATE.
009137,000255: 11,2257 37635 CAF PRIO20
009138,000256: 11,2260 04307 TC FINDVAC
009139,000257: 11,2261 E5,1500 EBANK= OGC
009140,000258: 11,2261 02265 22005 2CADR RRDESK2
009141,000259:
009142,000260: 11,2263 12055 TCF TERMEXTV # FREES DISPLAY.
009143,000261:
009144,000262: 11,2264 02441 VNLDRCDU OCT 02441
009145,000263: 11,2265 11,2162 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
009146,000264:
009147,000265: 11,2265 06000 RRDESK2 TC INTPRET
009148,000266:
009149,000267: 11,2266 77634 CALL
009150,000268: 11,2267 20362 RRDESNB # RETURNS IN BASIC.
009151,000269:
009152,000270: 11,2270 02131 TC RWAITK
009153,000271:
009154,000272: # PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
009155,000273: # ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
009156,000274: # LOAD. OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
009157,000275: # PERFORM THE REQUESTED ACTION.
009158,000276:
009159,000277: 11,2271 05202 GOLOADLV TC FLASHOFF
009160,000278: 11,2272 02060 TC XACT0
009161,000279: 11,2273 04102 TC POSTJUMP
009162,000280: 11,2274 12002 CADR LOADLV1
009163,000281:
009164,000282: # KEYBOARD REQUEST TO PULSE TORQUE IRIGA
009165,000283:
009166,000284:
009167,000285:
009168,000286: 11,2275 02040 TORQGYRS TC TESTXACT # GYRO TORQUING WITH NO MODE-SWITCH.
009169,000287: 11,2276 05221 TC GRABWAIT
009170,000288: 11,2277 32241 CAF VNLODGYR
009171,000289: 11,2300 05234 TC NVSBWAIT
009172,000290: 11,2301 05042 TC ENDIDLE
009173,000291: 11,2302 02055 TC TERMEXTV
009174,000292: 11,2303 02304 TC +1
009175,000293: 11,2304 32311 CAF TORQGYRV # RE-DISPLAY OUR OWN VERB
009176,000294: 11,2305 05234 TC NVSBWAIT
009177,000295: 11,2306 05303 TC FREEDSP
009178,000296: 11,2307 12232 TCF FINEK2
009179,000297:
009180,000298: 11,2310 00403 LGYROBIN ECADR DELVX
009181,000299: 11,2311 05400 TORQGYRV OCT 05400
009182,000300:
009183,000301: # ALIGN TIME
009184,000302: 11,2312 32335 ALINTIME CAF VNLODDT # USES NVSUBMON. DOES NOT TEST DSPLOCK.
009185,000303: 11,2313 54107 TS NVTEMP # DOES NOT KILL MONITOR.
009186,000304: 11,2314 05025 TC NVSUBMON
009187,000305: 11,2315 04353 TC ENDOFJOB # IN CASE OF ALARM IN LOAD REQUEST SET UP.
009188,000306: 11,2316 05042 TC ENDIDLE
009189,000307: 11,2317 04353 TC ENDOFJOB # TERMINATE
009190,000308: 11,2320 04353 TC ENDOFJOB # PROCEED WITHOUT DATA
009191,000309: 11,2321 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
009192,000310: 11,2322 37657 CAF ZERO
009193,000311: 11,2323 54142 TS MPAC +2 # NEEDED FOR TP AGREE
009194,000312: 11,2324 54001 TS L # ZERO T1 & 2 WHILE ALIGNING.
009195,000313: 11,2325 52025 DXCH TIME2
009196,000314: 11,2326 52141 DXCH MPAC
009197,000315: 11,2327 52334 DXCH DSPTEM1 # INCREMENT.
009198,000316: 11,2330 20141 DAS MPAC
009199,000317:
009200,000318: 11,2331 07230 TC TPAGREE # FORCE SIGN AGREEMENT.
009201,000319: 11,2332 52141 DXCH MPAC # NEW CLOCK.
009202,000320: 11,2333 20025 DAS TIME2
009203,000321: 11,2334 04353 TC ENDOFJOB
009204,000322:
009205,000323: 11,2335 02124 VNLODDT OCT 02124 # V/N FOR LOAD DELTA TIME
009206,000324:
009207,000325: 11,2336 12337 NOOP
009208,000326: 11,2337 12340 NOOP
009209,000327:
009210,000328: # SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
009211,000329:
009212,000330: 11,2340 E5,1546 EBANK= QPLACE
009213,000331:
009214,000332: 11,2340 10276 SYSTEST CCS MODREG # DEMAND MODE 00.
009215,000333: 11,2341 12053 TCF XACTALM
009216,000334:
009217,000335: 11,2342 05221 TC GRABWAIT
009218,000336: 11,2343 33367 REDO CAF LQPL # ASK FOR TEST OPTION (1 - 7).
009219,000337: 11,2344 54142 TS MPAC +2
009220,000338: 11,2345 33366 CAF TESTNV
009221,000339: 11,2346 05234 TC NVSBWAIT
009222,000340: 11,2347 05042 TC ENDIDLE
009223,000341: 11,2350 04352 TC EJFREE
009224,000342: 11,2351 02343 TC REDO
009225,000343:
009226,000344: 11,2352 04572 TC NEWMODEX
009227,000345: 11,2353 00007 OCT 07
009228,000346:
009229,000347: 11,2354 00004 INHINT
009230,000348: 11,2355 37635 CAF PRIO20
009231,000349: 11,2356 04307 TC FINDVAC
009232,000350: 11,2357 02362 22005 2CADR TSELECT
009233,000351:
009234,000352: 11,2361 04353 TC ENDOFJOB # LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
009235,000353:
009236,000354: 11,2362 47665 TSELECT CS LOW4 # OCTAL 17 OPTIONS WITHOUT OPERATOR ERRO
009237,000355: 11,2363 03370 TC TSELECT1
009238,000356: 11,2364 51546 INDEX QPLACE
009239,000357: 11,2365 32367 CAF TESTCADR
009240,000358: 11,2366 04105 TC BANKJUMP
009241,000359:
009242,000360: 11,2367 22066 TESTCADR CADR ALM/END # 0 ILLEGAL
009243,000361: 11,2370 36000 CADR IMUTEST # 1 GYRO DRIFT TEST
009244,000362: 11,2371 36021 CADR IMUBACK # 2 REPEAT OF IMUTEST
009245,000363: 11,2372 30000 CADR AOTNBIMU # 3 IMU ALIGNMENT TEST
009246,000364: 11,2373 36263 CADR OPCHK # 4 IMU CHECK
009247,000365: 11,2374 36463 CADR GYRSFTST # 5 GYRO TORQUING TEST
009248,000366: 11,2375 34564 CADR STARTPL # 6 GYROCOMPASS TEST
009249,000367: 11,2376 22376 CADR # AVAILABLE
009250,000368: 11,2377 43143 CADR SAMODCHK # 10 SEMI-AUTOMATIC MODING CHECK
009251,000369: 11,2400 31331 CADR SAUTOIFS # 11 SEMI-AUTOMATIC INTERFACE TEST
009252,000370: 11,2401 31567 CADR AOTANGCK # 12 AOT ANGLE CHECK
009253,000371: 11,2402 31125 CADR RDRINIT # 13 RENDEZVOUS RADAR / ANTENNAE TRACKING
009254,000372: 11,2403 22414 CADR FSTRSAMP # 14 HIGH SPEED RADAR SAMPLING.
009255,000373:
009256,000374: 11,2404 31620 CADR ZEROERAS
009257,000375: 11,2405 23051 CADR DISINDT # DISPLAY INERTIAL DATA TEST.
009258,000376: 11,2406 22066 CADR ALM/END
009259,000377: 11,2407 22066 CADR ALM/END
009260,000378:
009261,000379: 11,2410 04102 GOSHOSUM TC POSTJUMP # START ROUTINE TO DISPLAY SUM OF EACH
009262,000380: 11,2411 41453 CADR SHOWSUM # BANK ON DSKY
009263,000381:
009264,000382: 11,2412 04102 DOFCSTST TC POSTJUMP
009265,000383: 11,2413 14000 CADR FCSSTART
009266,000384:
009267,000385: # SET UP FOR RADAR SAMPLING.
009268,000386:
009269,000387: 11,2414 E7,1434 EBANK= RSTKLOC
009270,000388:
009271,000389: 11,2414 32503 FSTRSAMP CAF RSTKLIST # HIGH SPEED SAMPLING. SWITCH TO SPECIAL
009272,000390: 11,2415 54411 TS DNLSTADR # DOWNLIST.
009273,000391: 11,2416 47652 CS ONE # WANTS TM BUFFERING.
009274,000392: 11,2417 12422 TCF RSAMPTST
009275,000393:
009276,000394: 11,2420 05221 REGRSAMP TC GRABWAIT
009277,000395: 11,2421 32504 CAF 1SEC+1 # SHOWS NO TM BUFFERING.
009278,000396:
009279,000397: 11,2422 54142 RSAMPTST TS MPAC +2
009280,000398: 11,2423 00004 INHINT
009281,000399: 11,2424 42505 CS LRPOSCAL # INITIALIZE SCALE AND LR POSITION BITS.
009282,000400: 11,2425 70413 MASK RADMODES
009283,000401: 11,2426 54413 TS RADMODES
009284,000402:
009285,000403: 11,2427 32505 CAF LRPOSCAL
009286,000404: 11,2430 00006 EXTEND
009287,000405: 11,2431 02033 RAND 33
009288,000406: 11,2432 26413 ADS RADMODES
009289,000407:
009290,000408: 11,2433 00003 RELINT
009291,000409: 11,2434 32455 CAF LRTSTDEX
009292,000410: 11,2435 54003 TS EBANK
009293,000411: 11,2436 56142 XCH MPAC +2
009294,000412: 11,2437 55435 TS RSAMPDT # HI SPEED NNZ - LO SPEED PNZ.
009295,000413: 11,2440 37657 CAF ZERO
009296,000414: 11,2441 55434 TS RTSTLOC
009297,000415: 11,2442 55436 TS RFAILCNT # ZERO BAD SAMPLE COUNTER.
009298,000416: 11,2443 32501 CAF HISPMAX
009299,000417: 11,2444 55432 TS RTSTMAX
009300,000418:
009301,000419: 11,2445 32502 CAF RTSTNV
009302,000420: 11,2446 05234 TC NVSBWAIT
009303,000421: 11,2447 05042 TC ENDIDLE
009304,000422: 11,2450 04352 TC EJFREE # ON TERMINATE.
009305,000423: 11,2451 12506 TCF RSEMIAUT # PROCEED MEANS SEMI-AUTO SEQUENCING.
009306,000424: 11,2452 05303 RDRDFREE TC FREEDSP
009307,000425: 11,2453 11435 CCS RSAMPDT # SEE IF HI OR LO SPEED SAMPLING.
009308,000426: 11,2454 12460 TCF +4
009309,000427:
009310,000428: 11,2455 03431 LRTSTDEX ECADR RTSTDEX
009311,000429:
009312,000430: 11,2456 04102 TC POSTJUMP # EXEC. OTHERWISE, SET UP WAITLIST TIMING.
009313,000431: 11,2457 21275 CADR DORSAMP
009314,000432:
009315,000433: 11,2460 36162 CAF SIX # FIND OUT WHICH RADAR WANTED.
009316,000434: 11,2461 71431 MASK RTSTDEX
009317,000435:
009318,000436: 11,2462 10000 CCS A
009319,000437: 11,2463 12467 TCF LRCYCLE # LANDING RADAR ARE SERIALS 2 - 5.
009320,000438:
009321,000439: 11,2464 55433 TS RTSTBASE # FOR RR BASE = 0, MAX = 1.
009322,000440: 11,2465 36162 CAF SIX
009323,000441: 11,2466 12472 TCF +4
009324,000442:
009325,000443: 11,2467 37651 LRCYCLE CAF TWO # FOR LR BASE = 2, MAX = 3.
009326,000444: 11,2470 55433 TS RTSTBASE
009327,000445: 11,2471 32500 CAF 18R
009328,000446:
009329,000447: 11,2472 55432 +4 TS RTSTMAX
009330,000448: 11,2473 00004 INHINT
009331,000449: 11,2474 04451 TC WAITLIST
009332,000450: 11,2475 E7,1434 EBANK= RSTKLOC
009333,000451: 11,2475 03255 20007 2CADR RADSAMP
009334,000452:
009335,000453: 11,2477 04353 TC ENDOFJOB
009336,000454:
009337,000455: 11,2500 00022 18R DEC 18 B-14
009338,000456: 11,2501 00102 HISPMAX DEC 66 B-14
009339,000457: 11,2502 02101 RTSTNV OCT 2101
009340,000458: 11,2503 02253 RSTKLIST GENADR FSTRADTM
009341,000459: 11,2504 00145 1SEC+1 DEC 101 B-14
009342,000460: 11,2505 00444 LRPOSCAL OCT 444
009343,000461:
009344,000462: # SEMI-AUTO RADAR TESTING.
009345,000463:
009346,000464: 11,2506 00004 RSEMIAUT INHINT
009347,000465: 11,2507 34436 CAF PRIO25 # START HI SPEED SAMPLING.
009348,000466: 11,2510 04276 TC NOVAC
009349,000467: 11,2511 03275 20007 2CADR DORSAMP
009350,000468:
009351,000469: 11,2513 00003 RELINT
009352,000470: 11,2514 37227 CAF FIVE # SEQUENCE THROUGH ALL SIX CHANNELS.
009353,000471: 11,2515 55431 -1 TS RTSTDEX
009354,000472:
009355,000473: 11,2516 32534 33PASTE CAF RV33 # ON ENTER, SWITCH TO NEXT CHANNEL.
009356,000474: 11,2517 05234 TC NVSBWAIT
009357,000475: 11,2520 05176 TC FLASHON
009358,000476: 11,2521 05042 TC ENDIDLE
009359,000477: 11,2522 02527 TC ENDRTST # ON TERMINATE.
009360,000478: 11,2523 12525 TCF +2
009361,000479: 11,2524 12516 TCF 33PASTE # DONT ACCEPT DATA.
009362,000480:
009363,000481: 11,2525 11431 CCS RTSTDEX
009364,000482: 11,2526 12515 TCF 33PASTE -1
009365,000483:
009366,000484: 11,2527 37657 ENDRTST CAF ZERO # ENDTEST.
009367,000485: 11,2530 55435 TS RSAMPDT
009368,000486: 11,2531 04572 TC NEWMODEX
009369,000487: 11,2532 00000 OCT 0
009370,000488: 11,2533 04352 TC EJFREE
009371,000489:
009372,000490: 11,2534 03300 RV33 OCT 3300
009373,000491:
009374,000492: # AGS INITIALIZATION PROGRAM.
009375,000493:
009376,000494: 11,2535 10412 AGSINIT CCS AGSWORD # ZERO IF AGS NOT NOW BEING INITIALIZED.
009377,000495: 11,2536 02066 TC ALM/END # DO IT LATER.
009378,000496:
009379,000497: 11,2537 30025 CA TIME1
009380,000498: 11,2540 62575 AD 12SECS
009381,000499: 11,2541 54001 TS L
009382,000500: 11,2542 02557 TC SENDIT
009383,000501:
009384,000502: 11,2543 00004 INHINT # T1 WILL OVERFLOW, DELAY FOR 12 SECS
009385,000503: 11,2544 32575 CA 12SECS
009386,000504: 11,2545 54412 TS AGSWORD
009387,000505: 11,2546 04451 TC WAITLIST
009388,000506: 11,2547 02552 22007 2CADR AGSJOB
009389,000507: 11,2551 04353 TC ENDOFJOB
009390,000508:
009391,000509: 11,2552 34441 AGSJOB CAF PRIO30 # ENTER AGSINIT JOB VIA EXEC
009392,000510: 11,2553 04276 TC NOVAC
009393,000511: 11,2554 02557 22007 2CADR SENDIT
009394,000512:
009395,000513: 11,2556 04505 TC TASKOVER
009396,000514:
009397,000515: 11,2557 00004 SENDIT INHINT
009398,000516: 11,2560 32576 CAF LAGSLIST # SWITCH TO SPECIAL DOWNLIST FOR 10 SECS.
009399,000517: 11,2561 56411 XCH DNLSTADR
009400,000518: 11,2562 54412 TS AGSWORD # TO SHOW INITIALIZATION IN PROGRESS.
009401,000519:
009402,000520: 11,2563 32574 CAF 10SECS
009403,000521: 11,2564 04451 TC WAITLIST
009404,000522: 11,2565 02570 22007 2CADR AGSINIT2
009405,000523:
009406,000524: 11,2567 14353 TCF ENDOFJOB
009407,000525:
009408,000526: 11,2570 37657 AGSINIT2 CAF ZERO # END OF INITIALIZATION.
009409,000527: 11,2571 56412 XCH AGSWORD
009410,000528: 11,2572 54411 TS DNLSTADR # REVERT TO ORIGINAL DOWNLIST.
009411,000529: 11,2573 14505 TCF TASKOVER
009412,000530:
009413,000531: 11,2574 01750 10SECS DEC 1000 B-14
009414,000532: 11,2575 02260 12SECS DEC 1200 B-14
009415,000533: 11,2576 02001 LAGSLIST GENADR AGSLIST
009416,000534:
009417,000535: # VB 43 IMU ATTITUDE ERROR METER LOADER.
009418,000536:
009419,000537: 11,2577 02040 IMUATTCK TC TESTXACT
009420,000538: 11,2600 42642 CS OCT50K # REMOVE COARSE AND ECTR ENABLE.
009421,000539: 11,2601 00006 EXTEND
009422,000540: 11,2602 03012 WAND 12
009423,000541:
009424,000542: 11,2603 05221 TC GRABWAIT
009425,000543: 11,2604 32161 CAF VNLODCDU
009426,000544: 11,2605 05234 TC NVSBWAIT
009427,000545: 11,2606 05042 TC ENDIDLE
009428,000546: 11,2607 02055 TC TERMEXTV
009429,000547: 11,2610 02611 TC +1
009430,000548: 11,2611 32643 CAF V43K # REDISPLAY OUR VERB.
009431,000549: 11,2612 05234 TC NVSBWAIT
009432,000550: 11,2613 37645 CAF BIT6 # ENABLE ERROR COUNTER.
009433,000551: 11,2614 00006 EXTEND
009434,000552: 11,2615 05012 WOR 12
009435,000553: 11,2616 37651 CAF TWO
009436,000554: 11,2617 00004 INHINT
009437,000555: 11,2620 04451 TC WAITLIST # PUT OUT COMMAND IN .32 SECS.
009438,000556: 11,2621 02624 22007 2CADR ATTCK2
009439,000557:
009440,000558: 11,2623 12055 TCF TERMEXTV # FREES DISPLAY.
009441,000559:
009442,000560: 11,2624 37651 ATTCK2 CAF TWO # PUT OUT ALL COMMANDS - CDU WILL DO LIMIT
009443,000561: 11,2625 54002 TS Q # INCASE OF EXCESS DATA.
009444,000562: 11,2626 50000 INDEX A
009445,000563: 11,2627 30400 CA THETAD
009446,000564: 11,2630 00006 EXTEND
009447,000565: 11,2631 77636 MP BIT13 # SHIFT RIGHT 2.
009448,000566: 11,2632 50002 INDEX Q
009449,000567: 11,2633 54050 TS CDUXCMD
009450,000568: 11,2634 10002 CCS Q
009451,000569: 11,2635 12625 TCF ATTCK2 +1
009452,000570:
009453,000571: 11,2636 32644 CAF OCT70K
009454,000572: 11,2637 00006 EXTEND
009455,000573: 11,2640 05014 WOR 14
009456,000574: 11,2641 14505 TCF TASKOVER
009457,000575:
009458,000576: 11,2642 00050 OCT50K OCT 50
009459,000577: 11,2643 04300 V43K OCT 4300
009460,000578: 11,2644 70000 OCT70K OCT 70000
009461,000579:
009462,000580: 11,2645 02040 LOTSACQ TC TESTXACT
009463,000581: 11,2646 04063 TC BANKCALL
009464,000582: 11,2647 16001 CADR LOTSACQB
009465,000583:
009466,000584: 11,2650 02040 LOTSTEST TC TESTXACT
009467,000585: 11,2651 04063 TC BANKCALL
009468,000586: 11,2652 16002 CADR LOTTESTB
009469,000587:
009470,000588: 11,2653 02040 LOTSSTOW TC TESTXACT
009471,000589: 11,2654 04063 TC BANKCALL
009472,000590: 11,2655 16003 CADR LOTSTOWB
009473,000591:
009474,000592: # PROGRAM TO SCAN CHANNELS 30 - 32 FOR CHANGES IN SELECTED INBITS. CALLED BY SPECIAL VERB.
009475,000593:
009476,000594: 11,2656 E7,1606 EBANK= MSGCNT
009477,000595:
009478,000596: 11,2656 37652 SETUPMSG CAF BIT1 # BEGIN SCAN.
009479,000597: 11,2657 00004 INHINT
009480,000598: 11,2660 04451 TC WAITLIST
009481,000599: 11,2661 02666 22007 2CADR MSGSCAN +2
009482,000600:
009483,000601: 11,2663 04353 TC ENDOFJOB
009484,000602:
009485,000603: 11,2664 04467 MSGSCAN TC FIXDELAY
009486,000604: 11,2665 00062 DEC 50 B-14
009487,000605:
009488,000606: 11,2666 37651 CAF TWO # SCAN ALL 3 CHANNELS FOR CHANGES.
009489,000607: 11,2667 55606 TS MSGCNT
009490,000608: 11,2670 50000 INDEX A
009491,000609: 11,2671 31603 CA LAST30 # OLD VALUE OF INBITS.
009492,000610: 11,2672 00006 EXTEND
009493,000611: 11,2673 51606 INDEX MSGCNT
009494,000612: 11,2674 06030 RXOR 30
009495,000613: 11,2675 51606 INDEX MSGCNT
009496,000614: 11,2676 72745 MASK 30MSGMSK
009497,000615: 11,2677 00006 EXTEND
009498,000616: 11,2700 12742 BZF NOMSG
009499,000617:
009500,000618: 11,2701 54002 TS Q # SAVE DIFFERENCE.
009501,000619: 11,2702 51606 INDEX MSGCNT
009502,000620: 11,2703 23603 LXCH LAST30 # UPDATE OLD VALUE.
009503,000621: 11,2704 00006 EXTEND
009504,000622: 11,2705 06001 RXOR L
009505,000623: 11,2706 51606 INDEX MSGCNT
009506,000624: 11,2707 55603 TS LAST30
009507,000625:
009508,000626: 11,2710 40000 COM
009509,000627: 11,2711 56002 XCH Q
009510,000628: 11,2712 70002 MASK Q # SEE IF ANY OF CHANGED BITS JUST ON.
009511,000629: 11,2713 00006 EXTEND
009512,000630: 11,2714 12742 BZF NOMSG # NO MESSAGE IF SO.
009513,000631:
009514,000632: 11,2715 77634 MASK BIT15
009515,000633: 11,2716 00006 EXTEND
009516,000634: 11,2717 12735 BZF NOTRHC
009517,000635:
009518,000636: 11,2720 31606 CA MSGCNT
009519,000637: 11,2721 77652 MASK BIT1
009520,000638: 11,2722 00006 EXTEND
009521,000639: 11,2723 12735 BZF NOTRHC
009522,000640:
009523,000641: 11,2724 36162 CAF SIX
009524,000642:
009525,000643: 11,2725 04451 TC WAITLIST
009526,000644: 11,2726 E6,1602 EBANK= PCOM
009527,000645: 11,2726 03147 22006 2CADR RHCNTRL
009528,000646:
009529,000647: 11,2730 37635 CAF PRIO20 # INITIATE MONITOR.
009530,000648: 11,2731 04276 TC NOVAC
009531,000649: 11,2732 02754 22007 2CADR RHCMON
009532,000650: 11,2734 12742 TCF NOMSG
009533,000651:
009534,000652: 11,2735 32750 NOTRHC CAF OKT30
009535,000653: 11,2736 61606 AD MSGCNT
009536,000654: 11,2737 54075 TS RUPTREG2
009537,000655:
009538,000656: 11,2740 40002 CS Q
009539,000657: 11,2741 02766 TC VMESSAGE
009540,000658:
009541,000659: 11,2742 11606 NOMSG CCS MSGCNT
009542,000660: 11,2743 12667 TCF MSGSCAN +3
009543,000661: 11,2744 12664 TCF MSGSCAN
009544,000662:
009545,000663: 11,2745 01037 30MSGMSK OCT 1037
009546,000664: 11,2746 77777 OCT 77777
009547,000665: 11,2747 01777 OCT 1777
009548,000666:
009549,000667: 11,2750 00030 OKT30 OCT 30
009550,000668: 11,2751 02761 DESCBITS TC MESSAGE # DESCENT BITS COME HERE IN A.
009551,000669: 11,2752 00016 OCT 16
009552,000670: 11,2753 04511 TC RESUME
009553,000671:
009554,000672: 11,2754 05221 RHCMON TC GRABWAIT # FIRE UP DSKY MONITOR.
009555,000673: 11,2755 32760 CAF RHCMONVN
009556,000674: 11,2756 05234 TC NVSBWAIT
009557,000675: 11,2757 04352 TC EJFREE
009558,000676:
009559,000677: 11,2760 01645 RHCMONVN OCT 1645
009560,000678:
009561,000679: # MESSAGE DISPLAY - 3 COMPONENT OCTAL.
009562,000680:
009563,000681: 11,2761 54075 MESSAGE TS RUPTREG2 # NEW CHANNEL CONTENTS ARRIVE IN A.
009564,000682: 11,2762 50002 INDEX Q # CHANNEL NUMBER IN OCTAL AT CALLER +1.
009565,000683: 11,2763 30000 CAF 0
009566,000684: 11,2764 24002 INCR Q
009567,000685: 11,2765 56075 XCH RUPTREG2
009568,000686:
009569,000687: 11,2766 54074 VMESSAGE TS RUPTREG1 # FOR VARIABLE CHANNEL.
009570,000688: 11,2767 00006 EXTEND
009571,000689: 11,2770 22076 QXCH RUPTREG3
009572,000690: 11,2771 34440 CAF PRIO27 # FIRE UP SPECIAL JOB.
009573,000691: 11,2772 04276 TC NOVAC
009574,000692: 11,2773 03004 22007 2CADR DOMSG
009575,000693:
009576,000694: 11,2775 52075 DXCH RUPTREG1 # NEW CONTENTS TO MPAC - CHANNEL NUMBER TO
009577,000695: 11,2776 50071 INDEX LOCCTR # MPAC +1.
009578,000696: 11,2777 52141 DXCH MPAC
009579,000697: 11,3000 30025 CA TIME1
009580,000698: 11,3001 50071 INDEX LOCCTR
009581,000699: 11,3002 54142 TS MPAC +2
009582,000700: 11,3003 00076 TC RUPTREG3
009583,000701:
009584,000702: 11,3004 05221 DOMSG TC GRABWAIT
009585,000703: 11,3005 00006 EXTEND
009586,000704: 11,3006 30141 DCA MPAC
009587,000705: 11,3007 52334 DXCH DSPTEM1
009588,000706: 11,3010 30142 CA MPAC +2
009589,000707: 11,3011 54335 TS DSPTEM1 +2
009590,000708: 11,3012 33021 CAF MSGVN
009591,000709: 11,3013 05011 TC NVSUB
009592,000710: 11,3014 13016 TCF MSGBUSY
009593,000711: 11,3015 04352 TC EJFREE
009594,000712:
009595,000713: 11,3016 33020 MSGBUSY CAF +2
009596,000714: 11,3017 05231 TC NVSUBUSY
009597,000715: 11,3020 23005 CADR DOMSG +1
009598,000716:
009599,000717: 11,3021 00535 MSGVN OCT 0535
009600,000718:
009601,000719: # ROUTINE FOR AURORA ONLY TO ASK OPERATOR IF RR LOCK ON REQUESTED.
009602,000720:
009603,000721: 11,3022 04112 AURLOKON TC MAKECADR
009604,000722: 11,3023 54427 TS DESRET
009605,000723: 11,3024 32534 CAF RV33 # ASSUMES DSKY GRABBED.
009606,000724: 11,3025 05234 TC NVSBWAIT
009607,000725: 11,3026 05176 TC FLASHON
009608,000726: 11,3027 05042 TC ENDIDLE
009609,000727: 11,3030 13033 TCF +3 # ON TERM.
009610,000728: 11,3031 37646 CAF LOKONFLG
009611,000729: 11,3032 13034 TCF +2
009612,000730: 11,3033 37657 CAF ZERO
009613,000731: 11,3034 00004 INHINT
009614,000732: 11,3035 56061 XCH STATE
009615,000733: 11,3036 73050 MASK -LOKONFG
009616,000734: 11,3037 26061 ADS STATE
009617,000735:
009618,000736: 11,3040 77646 MASK LOKONFLG # IF NO LOCK-ON CALLED FOR, SET BIT15 OF
009619,000737: 11,3041 10000 CCS A # RADMODES TO INDICATE THAT ARBITRARILY-
009620,000738: 11,3042 13045 TCF +3 # LONG DESIGNATION IS WANTED (TO BE
009621,000739:
009622,000740: 11,3043 37634 CAF BIT15 # TERMINATED BY FRESH START).
009623,000741: 11,3044 26413 ADS RADMODES
009624,000742: 11,3045 00003 RELINT
009625,000743: 11,3046 30427 CA DESRET
009626,000744: 11,3047 14105 TCF BANKJUMP
009627,000745:
009628,000746: 11,3050 77757 -LOKONFG OCT -20
009629,000747:
009630,000748: # PROGRAM TO RUN DISPLAY INERTIAL DATA TEST.
009631,000749:
009632,000750: 11,3051 33141 DISINDT CAF FLVELVN # ASK FOR FORWARD, LATERAL VELOCITY.
009633,000751: 11,3052 05234 TC NVSBWAIT
009634,000752: 11,3053 05042 TC ENDIDLE
009635,000753: 11,3054 13076 TCF ENDDISIN
009636,000754: 11,3055 13056 TCF +1
009637,000755: 11,3056 33142 CAF ALT,R,VN # ASK FOR INITIAL AND FINIAL ALTITUDES AND
009638,000756: 11,3057 05234 TC NVSBWAIT # ALTITUDE RATE.
009639,000757: 11,3060 05042 TC ENDIDLE
009640,000758: 11,3061 13076 TCF ENDDISIN
009641,000759: 11,3062 13063 TCF +1
009642,000760:
009643,000761: 11,3063 00004 INHINT
009644,000762: 11,3064 47652 CS ONE
009645,000763: 11,3065 54351 TS DIDFLG
009646,000764:
009647,000765: 11,3066 00006 EXTEND
009648,000766: 11,3067 30353 DCA ALT # SO FOLLOWING MONITOR WORKS.
009649,000767: 11,3070 52365 DXCH ALTSAVE
009650,000768:
009651,000769: 11,3071 37652 CAF ONE
009652,000770: 11,3072 04451 TC WAITLIST
009653,000771: 11,3073 03104 22007 2CADR DISINLUP +2
009654,000772:
009655,000773: 11,3075 14352 TCF EJFREE
009656,000774:
009657,000775: 11,3076 05303 ENDDISIN TC FREEDSP
009658,000776: 11,3077 04572 +1 TC NEWMODEX
009659,000777: 11,3100 00000 OCT 0
009660,000778:
009661,000779: 11,3101 04353 TC ENDOFJOB
009662,000780:
009663,000781: # WATCH ALTSAVE FOR END OF PROBLEM.
009664,000782:
009665,000783: 11,3102 04467 DISINLUP TC FIXDELAY
009666,000784: 11,3103 00062 DEC 50 B-14
009667,000785:
009668,000786: 11,3104 00006 +2 EXTEND
009669,000787: 11,3105 30356 DCA FINALT
009670,000788: 11,3106 52066 DXCH ITEMP1
009671,000789: 11,3107 00006 EXTEND
009672,000790: 11,3110 40365 DCS ALTSAVE # LATEST ALTITUDE.
009673,000791: 11,3111 20066 DAS ITEMP1
009674,000792:
009675,000793: 11,3112 10065 CCS ITEMP1
009676,000794: 11,3113 13133 TCF +DIF
009677,000795: 11,3114 13116 TCF +2
009678,000796: 11,3115 13137 TCF -DIF
009679,000797:
009680,000798: 11,3116 10066 CCS ITEMP2
009681,000799: 11,3117 13133 TCF +DIF
009682,000800: 11,3120 13122 TCF +2
009683,000801: 11,3121 13137 TCF -DIF
009684,000802:
009685,000803: 11,3122 37657 DISINDUN CAF ZERO
009686,000804: 11,3123 54354 TS ALTRATE
009687,000805: 11,3124 52356 DXCH FINALT
009688,000806: 11,3125 52353 DXCH ALT
009689,000807: 11,3126 37635 CAF PRIO20
009690,000808: 11,3127 04276 TC NOVAC
009691,000809: 11,3130 03077 22007 2CADR ENDDISIN +1
009692,000810:
009693,000811: 11,3132 14505 TCF TASKOVER
009694,000812:
009695,000813: 11,3133 30354 +DIF CA ALTRATE
009696,000814: 11,3134 00006 EXTEND
009697,000815: 11,3135 63122 BZMF DISINDUN
009698,000816: 11,3136 13102 TCF DISINLUP
009699,000817:
009700,000818: 11,3137 40354 -DIF CS ALTRATE
009701,000819: 11,3140 13134 TCF +DIF +1
009702,000820:
009703,000821: 11,3141 02444 FLVELVN OCT 2444
009704,000822: 11,3142 02564 ALT,R,VN OCT 2564
009705,000823:
009706,000824: 11,3143 00004 LOTSTRT INHINT
009707,000825: 11,3144 37652 CAF ONE
009708,000826: 11,3145 04102 TC POSTJUMP
009709,000827: 11,3146 24003 CADR SLAP2
009710,000828:
009711,000829: 11,3147 ENDEXTVS EQUALS
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc