Source Code
|
These source-code files are part of a reconstructed copy of Sundial E, the
final release of the Block II Command Module (CM) Apollo Guidance Computer
(AGC) system test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003053-121, 2003053-151, and 2003972-211, belonging to the MIT Museum. Since only binary dumps (rather than listings) of Sundial 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. |
007608,000002: ## Copyright: Public domain.
007609,000003: ## Filename: EXTENDED_VERBS.agc
007610,000004: ## Purpose: A section of Sundial E.
007611,000005: ## It is part of the reconstructed source code for the final
007612,000006: ## release of the Block II Command Module system test software. No
007613,000007: ## original listings of this program are available; instead, this
007614,000008: ## file was created via disassembly of dumps of Sundial core rope
007615,000009: ## modules and comparison with other AGC programs.
007616,000010: ## Assembler: yaYUL
007617,000011: ## Contact: Ron Burkey <info@sandroid.org>.
007618,000012: ## Website: www.ibiblio.org/apollo/index.html
007619,000013: ## Mod history: 2023-06-22 MAS Created from Aurora 12.
007620,000014: ## 2023-06-30 MAS Updated for Sundial E.
007621,000015:
007622,000016:
007623,000017: 11,2000 BANK 11
007624,000018: 11,2000 E5,1500 EBANK= OGC
007625,000019:
007626,000020: # FAN-OUT
007627,000021:
007628,000022: 11,2000 02070 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 40 ONLY)
007629,000023: 11,2001 02073 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
007630,000024: # 40 ONLY)
007631,000025: 11,2002 02171 TC IMUFINEK # VB42 FINE ALIGN IMU
007632,000026: 11,2003 02416 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
007633,000027: 11,2004 02066 TC ALM/END # ILLEGAL VERB.
007634,000028: 11,2005 02066 TC ALM/END # ILLEGAL VERB.
007635,000029: 11,2006 02066 TC ALM/END # ILLEGAL VERB.
007636,000030: 11,2007 02401 TC DOCSITST # VB47 PERFORM CSM & SATURN TEST
007637,000031: 11,2010 02255 TC GOLOADLV # VB50 PLEASE PERFORM
007638,000032: 11,2011 02255 TC GOLOADLV # VB51 PLEASE MARK
007639,000033: 11,2012 02403 TC CKOPTVB # VB52 OPTICAL VERIFICATION FOR PRELAUNCH
007640,000034: 11,2013 02066 TC ALM/END # ILLEGAL VERB.
007641,000035: 11,2014 02261 TC TORQGYRS # VB54 PULSE TORQUE GYROS
007642,000036: 11,2015 02276 TC ALINTIME # VB55 ALIGN TIME
007643,000037: 11,2016 02377 TC GOSHOSUM # VB56 PERFORM BANKSUM
007644,000038: 11,2017 02322 TC SYSTEST # VB57 PERFORM SYSTEM TEST
007645,000039: 11,2020 02574 TC PRESTAND # VB60 PREPARE FOR STANDBY
007646,000040: 11,2021 02640 TC POSTAND # VB61 RECOVER FROM STANDBY
007647,000041: 11,2022 02460 TC SETUPMSG # VB62 SCAM CSM INBITS
007648,000042: 11,2023 12024 TCF +1
007649,000043: 11,2024 12066 TCF ALM/END
007650,000044: 11,2025 12066 TCF ALM/END
007651,000045: 11,2026 12027 TCF +1
007652,000046: 11,2027 12066 TCF ALM/END
007653,000047: 11,2030 12066 TCF ALM/END
007654,000048: 11,2031 12066 TCF ALM/END
007655,000049: 11,2032 12066 TCF ALM/END
007656,000050: 11,2033 12066 TCF ALM/END
007657,000051: 11,2034 12066 TCF ALM/END
007658,000052: 11,2035 12066 TCF ALM/END
007659,000053: 11,2036 12066 TCF ALM/END
007660,000054: 11,2037 02066 TC ALM/END
007661,000055:
007662,000056: 11,2040 37650 TESTXACT CAF BIT3
007663,000057: 11,2041 70332 MASK EXTVBACT
007664,000058: 11,2042 10000 CCS A
007665,000059: 11,2043 02053 TC XACTALM
007666,000060:
007667,000061: 11,2044 47650 XACT1 CS BIT3
007668,000062: 11,2045 00004 INHINT
007669,000063: 11,2046 70332 MASK EXTVBACT
007670,000064: 11,2047 67650 AD BIT3
007671,000065: 11,2050 54332 TS EXTVBACT
007672,000066:
007673,000067: 11,2051 00003 RELINT
007674,000068: 11,2052 00002 TC Q
007675,000069:
007676,000070: 11,2053 05474 XACTALM TC FALTON
007677,000071: 11,2054 04353 TC ENDOFJOB
007678,000072:
007679,000073: 11,2055 05632 TERMEXTV TC FREEDSP # IF WE GET A TERMINATE INSTEAD OF A LOAD.
007680,000074:
007681,000075: 11,2056 02060 ENDEXTVB TC XACT0
007682,000076: 11,2057 04353 TC ENDOFJOB
007683,000077:
007684,000078: 11,2060 47650 XACT0 CS BIT3
007685,000079: 11,2061 00004 INHINT
007686,000080: 11,2062 70332 MASK EXTVBACT
007687,000081: 11,2063 54332 TS EXTVBACT
007688,000082: 11,2064 00003 RELINT
007689,000083: 11,2065 00002 XACT0Q TC Q
007690,000084:
007691,000085:
007692,000086:
007693,000087: 11,2066 05474 ALM/END TC FALTON
007694,000088: 11,2067 02056 TC ENDEXTVB
007695,000089:
007696,000090:
007697,000091:
007698,000092: 11,2070 02076 VBZERO TC OP/INERT
007699,000093: 11,2071 02110 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
007700,000094: 11,2072 02066 TC ALM/END # RETURN HERE IF NOUN = OCDU(55)
007701,000095: # (NOT IN USE YET)
007702,000096:
007703,000097: 11,2073 02076 VBCOARK TC OP/INERT
007704,000098: 11,2074 02117 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
007705,000099: 11,2075 02221 TC OPTCOARK # RETURN HERE IF NOUN = OCDU (55)
007706,000100:
007707,000101: # RETURNS TO L+1 IF IMU AND L+2 IF OPT.
007708,000102:
007709,000103: 11,2076 47646 OP/INERT CS BIT5 # OCT20
007710,000104: 11,2077 60267 AD NOUNREG
007711,000105: 11,2100 00006 EXTEND
007712,000106: 11,2101 12065 BZF XACT0Q # IF = 20.
007713,000107:
007714,000108: 11,2102 24002 INCR Q
007715,000109: 11,2103 62107 AD OPIMDIFF # = -35 OCT.
007716,000110: 11,2104 00006 EXTEND
007717,000111: 11,2105 12065 BZF XACT0Q
007718,000112:
007719,000113: 11,2106 02066 TC ALM/END # ILLEGAL.
007720,000114:
007721,000115: 11,2107 77742 OPIMDIFF OCT -35
007722,000116:
007723,000117: # KEYBOARD REQUEST TO ZERO IMU ENCODERS
007724,000118:
007725,000119: 11,2110 02040 IMUZEROK TC TESTXACT # ZERO ENCODERS.
007726,000120: 11,2111 04064 TC BANKCALL
007727,000121: 11,2112 26000 CADR IMUZERO
007728,000122:
007729,000123: 11,2113 04064 TC BANKCALL # STALL
007730,000124: 11,2114 26730 CADR IMUSTALL
007731,000125: 11,2115 02116 TC +1
007732,000126:
007733,000127: 11,2116 02056 TC ENDEXTVB
007734,000128:
007735,000129: # KEYBOARD REQUEST TO COARSE ALIGN THE IMU
007736,000130:
007737,000131: 11,2117 02040 IMUCOARK TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
007738,000132: 11,2120 05550 TC GRABWAIT
007739,000133: 11,2121 32137 CAF VNLODCDU # CALL FOR THETAD LOAD
007740,000134: 11,2122 05563 TC NVSBWAIT
007741,000135: 11,2123 04724 TC ENDIDLE # STALL WAITING FOR THE LOAD
007742,000136: 11,2124 02055 TC TERMEXTV
007743,000137: 11,2125 02141 TC ICSDEL # PROCEED - ASK FOR INCREMENTAL LOAD.
007744,000138:
007745,000139: 11,2126 32140 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
007746,000140: 11,2127 05563 TC NVSBWAIT
007747,000141: 11,2130 05632 TC FREEDSP # RELEASE THE DISPLAYS
007748,000142:
007749,000143: 11,2131 04064 TC BANKCALL # CALL MODE SWITCHING PROG
007750,000144: 11,2132 26055 CADR IMUCOARS
007751,000145:
007752,000146: 11,2133 04064 TC BANKCALL # STALL
007753,000147: 11,2134 26730 CADR IMUSTALL
007754,000148: 11,2135 02056 TC ENDEXTVB
007755,000149: 11,2136 02056 TC ENDEXTVB
007756,000150:
007757,000151: 11,2137 02522 VNLODCDU OCT 02522
007758,000152: 11,2140 04100 IMUCOARV OCT 04100
007759,000153:
007760,000154: # PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
007761,000155:
007762,000156: 11,2141 32167 ICSDEL CAF DELLOAD
007763,000157: 11,2142 05563 TC NVSBWAIT # REQUEST LOAD OF DELTA ICDU ANGLES.
007764,000158: 11,2143 04724 TC ENDIDLE
007765,000159: 11,2144 02055 TC TERMEXTV
007766,000160: 11,2145 02126 TC ICORK2 # PROCEED WITHOUT DATA HERE TOO.
007767,000161: 11,2146 02150 TC INCLOOP # LOOP TO INCREMENT THETAD FROM DSPTEM2.
007768,000162: 11,2147 02126 TC ICORK2 # RE-DISPLAY COARSE ALIGN VERB.
007769,000163:
007770,000164: 11,2150 56002 INCLOOP XCH Q # INCREMENTS THETADS IN 2S COMPLEMENT FROM
007771,000165: 11,2151 54140 TS MPAC # THREE ANGLE INCREMENTS IN DSPTEM2S.
007772,000166: 11,2152 32170 CAF LTHD+2
007773,000167: 11,2153 54114 TS BUF # SET UP FOR CDUINC.
007774,000168: 11,2154 37651 CAF TWO # THREE TIMES THROUGH.
007775,000169:
007776,000170: 11,2155 54141 INCLOOP2 TS MPAC +1
007777,000171: 11,2156 50000 INDEX A
007778,000172: 11,2157 56336 XCH DSPTEM2 # INCREMENT TO TEM2 FOR CDUINC.
007779,000173: 11,2160 04064 TC BANKCALL
007780,000174: 11,2161 11662 CADR CDUINC
007781,000175: 11,2162 10114 CCS BUF
007782,000176: 11,2163 54114 TS BUF
007783,000177: 11,2164 10141 CCS MPAC +1
007784,000178: 11,2165 02155 TC INCLOOP2
007785,000179:
007786,000180: 11,2166 00140 TC MPAC # RETURN WHEN FINISHED.
007787,000181:
007788,000182: 11,2167 02523 DELLOAD OCT 02523
007789,000183: 11,2170 00402 LTHD+2 ADRES THETAD +2
007790,000184:
007791,000185: # KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
007792,000186:
007793,000187: 11,2171 02040 IMUFINEK TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
007794,000188: 11,2172 05550 TC GRABWAIT
007795,000189: 11,2173 32217 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
007796,000190: 11,2174 05563 TC NVSBWAIT
007797,000191: 11,2175 04724 TC ENDIDLE # HOLD UP FOR THE DATA LOAD
007798,000192: 11,2176 02055 TC TERMEXTV
007799,000193: 11,2177 02200 TC +1 # PROCEED WITHOUT A LOAD
007800,000194:
007801,000195: 11,2200 32220 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
007802,000196: 11,2201 05563 TC NVSBWAIT
007803,000197: 11,2202 05632 TC FREEDSP # RELEASE DISPLAYS
007804,000198:
007805,000199: 11,2203 04064 TC BANKCALL # CALL MODE SWITCH PROG
007806,000200: 11,2204 26227 CADR IMUFINE
007807,000201:
007808,000202: 11,2205 04064 TC BANKCALL # HIBERNATION
007809,000203: 11,2206 26730 CADR IMUSTALL
007810,000204: 11,2207 02056 TC ENDEXTVB
007811,000205:
007812,000206: 11,2210 32274 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
007813,000207: 11,2211 04064 TC BANKCALL
007814,000208: 11,2212 26333 CADR IMUPULSE
007815,000209:
007816,000210: 11,2213 04064 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
007817,000211: 11,2214 26730 CADR IMUSTALL
007818,000212: 11,2215 02056 TC ENDEXTVB
007819,000213: 11,2216 02056 TC ENDEXTVB
007820,000214:
007821,000215: 11,2217 02567 VNLODGYR OCT 02567
007822,000216: 11,2220 04200 IMUFINEV OCT 04200 # FINE ALIGN VERB
007823,000217:
007824,000218: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
007825,000219:
007826,000220: 11,2221 10355 OPTCOARK CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER
007827,000221: 11,2222 02227 TC +5 # SWITCH AT COMPUTER
007828,000222: 11,2223 02224 TC +1 # NOT ON COMPUTER
007829,000223: 11,2224 05474 TC FALTON # TURN ON OPERATOR ERR
007830,000224: 11,2225 05644 TC ALARM # AND ALARM
007831,000225: 11,2226 00115 OCT 00115
007832,000226:
007833,000227: 11,2227 10350 CCS OPTIND # SEE IF OPTICS AVAILABLE
007834,000228: 11,2230 02236 TC OPTC1 # IN USE
007835,000229: 11,2231 02236 TC OPTC1 # IN USE
007836,000230: 11,2232 02236 TC OPTC1 # IN USE
007837,000231:
007838,000232: 11,2233 05644 TC ALARM # OPTICS RESERVED (OPTIND=-0)
007839,000233: 11,2234 00117 OCT 00117
007840,000234: 11,2235 04353 TC ENDOFJOB
007841,000235:
007842,000236: 11,2236 05550 OPTC1 TC GRABWAIT
007843,000237: 11,2237 32254 CAF VNLDOCDU # VERB-NOUN TO LOAD OPTICS CDUS
007844,000238: 11,2240 05563 TC NVSBWAIT
007845,000239: 11,2241 04724 TC ENDIDLE
007846,000240: 11,2242 02055 TC TERMEXTV
007847,000241: 11,2243 02244 TC +1 # PROCEED
007848,000242:
007849,000243: 11,2244 32140 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
007850,000244: 11,2245 04673 TC NVSUB
007851,000245: 11,2246 05555 TC PRENVBSY
007852,000246: 11,2247 05632 TC FREEDSP
007853,000247:
007854,000248: 11,2250 37652 CAF ONE
007855,000249: 11,2251 54350 TS OPTIND # SET COARS WORKING
007856,000250:
007857,000251: 11,2252 02056 TC ENDEXTVB
007858,000252: 11,2253 02056 TC ENDEXTVB
007859,000253:
007860,000254: 11,2254 02457 VNLDOCDU OCT 02457
007861,000255: 11,2255 11,2140 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
007862,000256:
007863,000257:
007864,000258: # PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
007865,000259: # ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
007866,000260: # LOAD. OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
007867,000261: # PERFORM THE REQUESTED ACTION.
007868,000262:
007869,000263: 11,2255 05531 GOLOADLV TC FLASHOFF
007870,000264: 11,2256 02060 TC XACT0
007871,000265: 11,2257 04103 TC POSTJUMP
007872,000266: 11,2260 12002 CADR LOADLV1
007873,000267:
007874,000268: # KEYBOARD REQUEST TO PULSE TORQUE IRIGA
007875,000269:
007876,000270:
007877,000271:
007878,000272: 11,2261 02040 TORQGYRS TC TESTXACT # GYRO TORQUING WITH NO MODE-SWITCH.
007879,000273: 11,2262 05550 TC GRABWAIT
007880,000274: 11,2263 32217 CAF VNLODGYR
007881,000275: 11,2264 05563 TC NVSBWAIT
007882,000276: 11,2265 04724 TC ENDIDLE
007883,000277: 11,2266 02055 TC TERMEXTV
007884,000278: 11,2267 02270 TC +1
007885,000279: 11,2270 32275 CAF TORQGYRV # RE-DISPLAY OUR OWN VERB
007886,000280: 11,2271 05563 TC NVSBWAIT
007887,000281: 11,2272 05632 TC FREEDSP
007888,000282: 11,2273 12210 TCF FINEK2
007889,000283:
007890,000284: 11,2274 00405 LGYROBIN ECADR DELVX
007891,000285: 11,2275 05400 TORQGYRV OCT 05400
007892,000286:
007893,000287: # ALIGN TIME
007894,000288: 11,2276 32321 ALINTIME CAF VNLODDT # USES NVSUBMON. DOES NOT TEST DSPLOCK.
007895,000289: 11,2277 54107 TS NVTEMP # DOES NOT KILL MONITOR.
007896,000290: 11,2300 04707 TC NVSUBMON
007897,000291: 11,2301 04353 TC ENDOFJOB # IN CASE OF ALARM IN LOAD REQUEST SET UP.
007898,000292: 11,2302 04724 TC ENDIDLE
007899,000293: 11,2303 04353 TC ENDOFJOB # TERMINATE
007900,000294: 11,2304 04353 TC ENDOFJOB # PROCEED WITHOUT DATA
007901,000295: 11,2305 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
007902,000296: 11,2306 37657 CAF ZERO
007903,000297: 11,2307 54142 TS MPAC +2 # NEEDED FOR TP AGREE
007904,000298: 11,2310 54001 TS L # ZERO T1 & 2 WHILE ALIGNING.
007905,000299: 11,2311 52025 DXCH TIME2
007906,000300: 11,2312 52141 DXCH MPAC
007907,000301: 11,2313 52334 DXCH DSPTEM1 # INCREMENT.
007908,000302: 11,2314 20141 DAS MPAC
007909,000303:
007910,000304: 11,2315 07230 TC TPAGREE # FORCE SIGN AGREEMENT.
007911,000305: 11,2316 52141 DXCH MPAC # NEW CLOCK.
007912,000306: 11,2317 20025 DAS TIME2
007913,000307: 11,2320 04353 TC ENDOFJOB
007914,000308:
007915,000309: 11,2321 02124 VNLODDT OCT 02124 # V/N FOR LOAD DELTA TIME
007916,000310:
007917,000311: # SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
007918,000312:
007919,000313: 11,2322 E5,1546 EBANK= QPLACE
007920,000314:
007921,000315: 11,2322 10276 SYSTEST CCS MODREG # DEMAND MODE 00.
007922,000316: 11,2323 12053 TCF XACTALM
007923,000317:
007924,000318: 11,2324 05550 TC GRABWAIT
007925,000319: 11,2325 32376 REDO CAF LQPL # ASK FOR TEST OPTION (1 - 7).
007926,000320: 11,2326 54142 TS MPAC +2
007927,000321: 11,2327 32375 CAF TESTNV
007928,000322: 11,2330 05563 TC NVSBWAIT
007929,000323: 11,2331 04724 TC ENDIDLE
007930,000324: 11,2332 04352 TC EJFREE
007931,000325: 11,2333 02325 TC REDO
007932,000326:
007933,000327: 11,2334 04572 TC NEWMODEX
007934,000328: 11,2335 00007 OCT 07
007935,000329:
007936,000330: 11,2336 00004 INHINT
007937,000331: 11,2337 37635 CAF PRIO20
007938,000332: 11,2340 04307 TC FINDVAC
007939,000333: 11,2341 02344 22005 2CADR TSELECT
007940,000334:
007941,000335: 11,2343 04353 TC ENDOFJOB # LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
007942,000336:
007943,000337: 11,2344 47665 TSELECT CS LOW4 # OCTAL 17 OPTIONS WITHOUT OPERATOR ERRO
007944,000338: 11,2345 61546 AD QPLACE
007945,000339: 11,2346 00006 EXTEND
007946,000340: 11,2347 62352 BZMF +3
007947,000341: 11,2350 05474 TC FALTON
007948,000342: 11,2351 02325 TC REDO
007949,000343: 11,2352 51546 INDEX QPLACE
007950,000344: 11,2353 32355 CAF TESTCADR
007951,000345: 11,2354 04106 TC BANKJUMP
007952,000346:
007953,000347: 11,2355 22066 TESTCADR CADR ALM/END # 0 ILLEGAL
007954,000348: 11,2356 36000 CADR IMUTEST # 1 GYRO DRIFT TEST
007955,000349: 11,2357 36026 CADR IMUBACK # 2 REPEAT OF IMUTEST
007956,000350: 11,2360 14000 CADR SXTNBIMU # 3 IMU ALIGNMENT TEST
007957,000351: 11,2361 36230 CADR OPCHK # 4 IMU CHECK
007958,000352: 11,2362 36373 CADR GYRSFTST # 5 GYRO TORQUING TEST
007959,000353: 11,2363 32044 CADR STARTPL # 6 GYROCOMPASS TEST
007960,000354: 11,2364 35164 CADR GTSCPSS # 7. OPTIMUM COMPASS
007961,000355: 11,2365 30000 CADR SAMODCHK # 10 SEMI-AUTOMATIC MODING CHECK
007962,000356: 11,2366 31132 CADR SAUTOIFS # 11 SEMI-AUTOMATIC INTERFACE TEST
007963,000357: 11,2367 15336 CADR SXTANGCK # 12 SXT ANGLE CHECK
007964,000358: 11,2370 30500 CADR CTRLDISP # 13 CONTROLS AND DISPLAYS TEST
007965,000359: 11,2371 31234 CADR SUMERASE # 14 ERASABLE SUM
007966,000360:
007967,000361: 11,2372 15374 CADR ZEROERAS
007968,000362: 11,2373 22066 CADR ALM/END
007969,000363: 11,2374 22066 CADR ALM/END
007970,000364: 11,2375 02101 TESTNV OCT 2101
007971,000365: 11,2376 02546 LQPL ECADR QPLACE
007972,000366:
007973,000367: 11,2377 04103 GOSHOSUM TC POSTJUMP # START ROUTINE TO DISPLAY SUM OF EACH
007974,000368: 11,2400 21453 CADR SHOWSUM # BANK ON DSKY
007975,000369:
007976,000370: 11,2401 04103 DOCSITST TC POSTJUMP
007977,000371: 11,2402 16720 CADR CSISTART
007978,000372:
007979,000373: # CKOPTVB VERB 52 DESCRIPTION
007980,000374: # OPTICAL VERIFICATION FOR PRELAUNCH.
007981,000375: # 1. SCHEDULE OPTCHK, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
007982,000376:
007983,000377: 11,2403 47651 CKOPTVB CS TWO
007984,000378: 11,2404 60276 AD MODREG # I WONDER IF PRELAUNCH IS RUNNING
007985,000379: 11,2405 00006 EXTEND
007986,000380: 11,2406 12410 BZF +2
007987,000381: 11,2407 02053 TC XACTALM # NOT RUNNING OPERATOR ERROR
007988,000382: 11,2410 00004 INHINT
007989,000383: 11,2411 34431 CAF PRIO17 # PRELAUNCH OPTICAL VERIFICATION
007990,000384: 11,2412 04307 TC FINDVAC
007991,000385: 11,2413 E5,1546 EBANK= QPLACE
007992,000386: 11,2413 02665 32005 2CADR OPTCHK
007993,000387: 11,2415 04353 TC ENDOFJOB
007994,000388:
007995,000389:
007996,000390: # VB 43 IMU ATTITUDE ERROR METER LOADER.
007997,000391:
007998,000392: 11,2416 02040 IMUATTCK TC TESTXACT
007999,000393: 11,2417 42456 CS OCT50K # REMOVE COARSE AND ECTR ENABLE.
008000,000394: 11,2420 00006 EXTEND
008001,000395: 11,2421 03012 WAND 12
008002,000396:
008003,000397: 11,2422 05550 TC GRABWAIT
008004,000398: 11,2423 32137 CAF VNLODCDU
008005,000399: 11,2424 05563 TC NVSBWAIT
008006,000400: 11,2425 04724 TC ENDIDLE
008007,000401: 11,2426 02055 TC TERMEXTV
008008,000402: 11,2427 02430 TC +1
008009,000403: 11,2430 37645 CAF BIT6 # ENABLE ERROR COUNTER.
008010,000404: 11,2431 00006 EXTEND
008011,000405: 11,2432 05012 WOR 12
008012,000406: 11,2433 00004 INHINT
008013,000407: 11,2434 04451 TC WAITLIST # PUT OUT COMMAND IN .32 SECS.
008014,000408: 11,2435 02440 22005 2CADR ATTCK2
008015,000409:
008016,000410: 11,2437 12055 TCF TERMEXTV # FREES DISPLAY.
008017,000411:
008018,000412: 11,2440 37651 ATTCK2 CAF TWO # PUT OUT ALL COMMANDS - CDU WILL DO LIMIT
008019,000413: 11,2441 54002 TS Q # INCASE OF EXCESS DATA.
008020,000414: 11,2442 50000 INDEX A
008021,000415: 11,2443 30400 CA THETAD
008022,000416: 11,2444 00006 EXTEND
008023,000417: 11,2445 77636 MP BIT13 # SHIFT RIGHT 2.
008024,000418: 11,2446 50002 INDEX Q
008025,000419: 11,2447 54050 TS CDUXCMD
008026,000420: 11,2450 10002 CCS Q
008027,000421: 11,2451 12441 TCF ATTCK2 +1
008028,000422:
008029,000423: 11,2452 32457 ATTCK3 CAF OCT70K
008030,000424: 11,2453 00006 EXTEND
008031,000425: 11,2454 05014 WOR 14
008032,000426: 11,2455 14505 TCF TASKOVER
008033,000427:
008034,000428: 11,2456 00050 OCT50K OCT 50
008035,000429: 11,2457 70000 OCT70K OCT 70000
008036,000430:
008037,000431: # PROGRAM TO SCAN CHANNELS 30 - 32 FOR CHANGES IN SELECTED INBITS. CALLED BY SPECIAL VERB.
008038,000432:
008039,000433: 11,2460 E7,1461 EBANK= MSGCNT
008040,000434:
008041,000435: 11,2460 37652 SETUPMSG CAF BIT1 # BEGIN SCAN.
008042,000436: 11,2461 00004 INHINT
008043,000437: 11,2462 04451 TC WAITLIST
008044,000438: 11,2463 02470 22007 2CADR MSGSCAN +2
008045,000439:
008046,000440: 11,2465 04353 TC ENDOFJOB
008047,000441:
008048,000442: 11,2466 04467 MSGSCAN TC FIXDELAY
008049,000443: 11,2467 00062 DEC 50 B-14
008050,000444:
008051,000445: 11,2470 37651 CAF TWO # SCAN ALL 3 CHANNELS FOR CHANGES.
008052,000446: 11,2471 55461 TS MSGCNT
008053,000447: 11,2472 50000 INDEX A
008054,000448: 11,2473 31456 CA LAST30 # OLD VALUE OF INBITS.
008055,000449: 11,2474 00006 EXTEND
008056,000450: 11,2475 51461 INDEX MSGCNT
008057,000451: 11,2476 06030 RXOR 30
008058,000452: 11,2477 51461 INDEX MSGCNT
008059,000453: 11,2500 72527 MASK 30MSGMSK
008060,000454: 11,2501 00006 EXTEND
008061,000455: 11,2502 12524 BZF NOMSG
008062,000456:
008063,000457: 11,2503 54002 TS Q # SAVE DIFFERENCE.
008064,000458: 11,2504 51461 INDEX MSGCNT
008065,000459: 11,2505 23456 LXCH LAST30 # UPDATE OLD VALUE.
008066,000460: 11,2506 00006 EXTEND
008067,000461: 11,2507 06001 RXOR L
008068,000462: 11,2510 51461 INDEX MSGCNT
008069,000463: 11,2511 55456 TS LAST30
008070,000464:
008071,000465: 11,2512 40000 COM
008072,000466: 11,2513 56002 XCH Q
008073,000467: 11,2514 70002 MASK Q # SEE IF ANY OF CHANGED BITS JUST ON.
008074,000468: 11,2515 00006 EXTEND
008075,000469: 11,2516 12524 BZF NOMSG # NO MESSAGE IF SO.
008076,000470:
008077,000471: 11,2517 32532 CAF OKT30
008078,000472: 11,2520 61461 AD MSGCNT
008079,000473: 11,2521 54075 TS RUPTREG2
008080,000474:
008081,000475: 11,2522 40002 CS Q
008082,000476: 11,2523 02540 TC VMESSAGE
008083,000477:
008084,000478: 11,2524 11461 NOMSG CCS MSGCNT
008085,000479: 11,2525 12471 TCF MSGSCAN +3
008086,000480: 11,2526 12466 TCF MSGSCAN
008087,000481:
008088,000482: 11,2527 01077 30MSGMSK OCT 1077
008089,000483: 11,2530 77777 OCT 77777
008090,000484: 11,2531 02077 OCT 2077
008091,000485:
008092,000486: 11,2532 00030 OKT30 OCT 30
008093,000487:
008094,000488: # MESSAGE DISPLAY - 3 COMPONENT OCTAL.
008095,000489:
008096,000490: 11,2533 54075 MESSAGE TS RUPTREG2 # NEW CHANNEL CONTENTS ARRIVE IN A.
008097,000491: 11,2534 50002 INDEX Q # CHANNEL NUMBER IN OCTAL AT CALLER +1.
008098,000492: 11,2535 30000 CAF 0
008099,000493: 11,2536 24002 INCR Q
008100,000494: 11,2537 56075 XCH RUPTREG2
008101,000495:
008102,000496: 11,2540 54074 VMESSAGE TS RUPTREG1 # FOR VARIABLE CHANNEL.
008103,000497: 11,2541 00006 EXTEND
008104,000498: 11,2542 22076 QXCH RUPTREG3
008105,000499: 11,2543 34440 CAF PRIO27 # FIRE UP SPECIAL JOB.
008106,000500: 11,2544 04276 TC NOVAC
008107,000501: 11,2545 02556 22007 2CADR DOMSG
008108,000502:
008109,000503: 11,2547 52075 DXCH RUPTREG1 # NEW CONTENTS TO MPAC - CHANNEL NUMBER TO
008110,000504: 11,2550 50071 INDEX LOCCTR # MPAC +1.
008111,000505: 11,2551 52141 DXCH MPAC
008112,000506: 11,2552 30025 CA TIME1
008113,000507: 11,2553 50071 INDEX LOCCTR
008114,000508: 11,2554 54142 TS MPAC +2
008115,000509: 11,2555 00076 TC RUPTREG3
008116,000510:
008117,000511: 11,2556 05550 DOMSG TC GRABWAIT
008118,000512: 11,2557 00006 EXTEND
008119,000513: 11,2560 30141 DCA MPAC
008120,000514: 11,2561 52334 DXCH DSPTEM1
008121,000515: 11,2562 30142 CA MPAC +2
008122,000516: 11,2563 54335 TS DSPTEM1 +2
008123,000517: 11,2564 32573 CAF MSGVN
008124,000518: 11,2565 04673 TC NVSUB
008125,000519: 11,2566 12570 TCF MSGBUSY
008126,000520: 11,2567 04352 TC EJFREE
008127,000521:
008128,000522: 11,2570 32572 MSGBUSY CAF +2
008129,000523: 11,2571 05560 TC NVSUBUSY
008130,000524: 11,2572 22557 CADR DOMSG +1
008131,000525:
008132,000526: 11,2573 00535 MSGVN OCT 0535
008133,000527:
008134,000528:
008135,000529: # VB 60 PREPARE FOR STANDBY OPERATION
008136,000530:
008137,000531: # ROUTINE WRITTEN FOR TEST ROPES ONLY*** MUST BE UPDATED TO INCLUDE
008138,000532: # FLIGHT REQUIREMENTS FOR FLIGHT OPERATION
008139,000533:
008140,000534: 11,2574 E3,1400 EBANK= LST1
008141,000535:
008142,000536: 11,2574 00004 PRESTAND INHINT # COMES HERE FROM LST2FAN
008143,000537: 11,2575 30025 CA TIME1
008144,000538: 11,2576 54366 TS TIMESAV # THIS ROUTINE WILL LOOK AT TIME1 UNTIL
008145,000539: 11,2577 32532 CAF OKT30 # TIME1 IS INCREMENTED, THEN IT WILL
008146,000540: 11,2600 54372 LONGER TS TIMAR # SNATCH THE MISSION TIME REGS AND STORE
008147,000541: 11,2601 40366 CS TIMESAV # THEM IN TIMESAV FOR LATER ISE IN ARITH.
008148,000542: 11,2602 60025 AD TIME1 # OPERATIONS WHICH SHOULD FIND THE
008149,000543: 11,2603 00006 EXTEND # STANDING DIFFERENCE BETWEEN THE SCALAR
008150,000544: 11,2604 12611 BZF CHKTIME # AND THE TIME1-TIME2S REGS.
008151,000545:
008152,000546: 11,2605 00006 EXTEND
008153,000547: 11,2606 30025 DCA TIME2 # READ AND STORE THE DP TIME AND GO
008154,000548: 11,2607 52367 DXCH TIMESAV # READ THE SCALAR USING THE EXISTING PROG
008155,000549: 11,2610 12617 TCF CATCHFIN # FINETIME.
008156,000550:
008157,000551: 11,2611 10372 CHKTIME CCS TIMAR # MUST WATCH THE TIME SPENT IN INHINT OR
008158,000552: 11,2612 02600 TC LONGER # THE COPS MIGHT CATCH US.
008159,000553: 11,2613 00003 RELINT
008160,000554: 11,2614 10067 CCS NEWJOB
008161,000555: 11,2615 04317 TC CHANG1
008162,000556: 11,2616 02577 TC LONGER -1 # GO BACK AND LOOK AGAIN
008163,000557:
008164,000558: 11,2617 05721 CATCHFIN TC FINETIME # WILL READ CHANNELS 3 AND 4 AND RETURN
008165,000559: 11,2620 52371 DXCH SCALSAV # WITH 3 IN A AND 4 IN L..
008166,000560: 11,2621 00003 RELINT
008167,000561: 11,2622 47647 CS BIT4
008168,000562: 11,2623 70361 MASK IMODES30 # INHIBIT THE IMU FAIL LIGHT.
008169,000563: 11,2624 67647 AD BIT4
008170,000564: 11,2625 54361 TS IMODES30
008171,000565:
008172,000566: 11,2626 37647 CAF BIT4 # SET ALL CHAN 12 BITS EXCEPT C/A TO ZERO.
008173,000567: 11,2627 00006 EXTEND # THIS IS NECESSARY SO THAT THE GIMBALS DO
008174,000568: 11,2630 03012 WAND 12 # NOT DRIFT INTO GIMBALLOCK IF THE SYSTEM
008175,000569:
008176,000570: 11,2631 37647 CAF BIT4 # SHOULD BE IN OPERATE AT THE TIME STBY
008177,000571: 11,2632 00006 EXTEND # WAS STARTED. THIS SECTION WILL MAKE
008178,000572: 11,2633 05012 WOR 12 # SURE THE IMU IS IN C/A.....
008179,000573:
008180,000574: 11,2634 37640 CAF BIT11 # WHEN BIT 11 IS PRESENT IN CHANNEL 13 THE
008181,000575: 11,2635 00006 EXTEND # DSKY PB. CAN THEN ENERGIZE THE STANDBY
008182,000576: 11,2636 05013 WOR 13 # RELAY IN THE CGC PWR SUPPLIES....
008183,000577: 11,2637 04353 TC ENDOFJOB # GO TO DUMMY JOB UNTIL YOU DIE...
008184,000578:
008185,000579: # VB 61 RECOVER FROM STANDBY OPERATION
008186,000580:
008187,000581: # ROUTINE WRITTEN FOR TEST ROPES ONLY**** MUST BE UPDATED TO INCLUDE
008188,000582: # FLIGHT REQUIREMENTS FOR FLIGHT OPERATIONS SEQUENCES....
008189,000583:
008190,000584: 11,2640 05721 POSTAND TC FINETIME # COMES HERE FROM LST2FAN
008191,000585: 11,2641 52373 DXCH TIMAR # READ THE SCALAR AND SEE IF IT OVERFLOW-
008192,000586: 11,2642 00003 RELINT # ED WHILE THE CGC WAS IN STBY, IF SO
008193,000587: 11,2643 30372 CAE TIMAR # THE OVERFLOW MUST BE ADDED OR IT WILL
008194,000588: 11,2644 00006 EXTEND # SEEM THAT THE REALATIVITY THEORY WORKS
008195,000589: 11,2645 60370 SU SCALSAV # BETTER THAN IT SHOULD...
008196,000590: 11,2646 00006 EXTEND
008197,000591: 11,2647 62672 BZMF ADDTIME # IF ITS NEG. IT MUST HAVE OV:FLWD..
008198,000592:
008199,000593: 11,2650 06000 TC INTPRET
008200,000594: 11,2651 45345 DLOAD DSU # IF IT DID NOT OV-FLW. FIND OUT HOW LONG
008201,000595: 11,2652 00373 TIMAR # THE CGC WAS IN STBY BY SUBTRACTING THE
008202,000596: 11,2653 00371 SCALSAV # SCALAR AT THE START OF STBY FROM THE
008203,000597: 11,2654 45061 SRR RTB # SCALAR AT THE END OF STBY AND THEN ADD
008204,000598: 11,2655 01606 5 # THE DIFFERENCE TO THE TIME EXISTING
008205,000599: 11,2656 11600 SGNAGREE # WHEN THE SCALAR WAS READ AT STBY ENTRY**
008206,000600: 11,2657 77615 DAD
008207,000601: 11,2660 00367 TIMESAV
008208,000602: 11,2661 00373 STORE TIMAR
008209,000603: 11,2662 77776 EXIT
008210,000604:
008211,000605: 11,2663 00006 CORCTTIM EXTEND
008212,000606: 11,2664 30373 DCA TIMAR # THIS IS THE CORRECTED TIME TO BE READ
008213,000607: 11,2665 52025 DXCH TIME2 # INTO TIME1 AND TIME2 REGS. ADDR 24-25
008214,000608:
008215,000609: 11,2666 47640 CS BIT11
008216,000610: 11,2667 00006 EXTEND # DISABLE THE DSKY STBY PUSHBUTTON.
008217,000611: 11,2670 03013 WAND 13
008218,000612: 11,2671 04353 TC ENDOFJOB
008219,000613:
008220,000614: 11,2672 00006 ADDTIME EXTEND
008221,000615: 11,2673 37632 DCA DPOSMAX # IF THE SCALAR OVERFLOWED, FIND OUT HOW
008222,000616: 11,2674 52375 DXCH TIMEDIFF # MUCH TIME REMAINED WHEN READ THE FIRST
008223,000617: 11,2675 06000 TC INTPRET # TIME AND THEN ADD THE PRESENT READING-
008224,000618: 11,2676 45345 DLOAD DSU # WHICH WILL BE THE TOTAL TIME SPENT IN
008225,000619: 11,2677 00375 TIMEDIFF # STANDBY, TO WHICH THE TIME AT STBY
008226,000620: 11,2700 00371 SCALSAV # MAY BE ADDED TO FIND THE PRESENT TIME
008227,000621: 11,2701 54215 DAD SRR # CORRECT TO 10 MSEC..
008228,000622: 11,2702 00373 TIMAR # **** THE TIME IN STANDBY MODE MUST NOT
008229,000623: 11,2703 01606 5 # EXCEED 23 HOURS IF TIME IS TO BE
008230,000624: 11,2704 77615 DAD # CORRECTLY COMPUTED BY THIS ROUTINE.*****
008231,000625: 11,2705 00367 TIMESAV
008232,000626: 11,2706 00373 STORE TIMAR
008233,000627: 11,2707 77776 EXIT
008234,000628: 11,2710 02663 TC CORCTTIM
008235,000629:
008236,000630: 11,2711 ENDEXTVS EQUALS
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc