Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
007861,000002: ## Copyright: Public domain.
007862,000003: ## Filename: EXTENDED_VERBS.agc
007863,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
007864,000005: ## It is part of an early development version of the software
007865,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
007866,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
007867,000008: ## upon which Don Eyles's offline development program Shepatin
007868,000009: ## was based; the listing herein transcribed was actually for
007869,000010: ## the equivalent revision 0 of Shepatin.
007870,000011: ## This file is intended to be a faithful transcription, except
007871,000012: ## that the code format has been changed to conform to the
007872,000013: ## requirements of the yaYUL assembler rather than the
007873,000014: ## original YUL assembler.
007874,000015: ## Reference: pp. 187-214
007875,000016: ## Assembler: yaYUL
007876,000017: ## Contact: Ron Burkey <info@sandroid.org>.
007877,000018: ## Website: www.ibiblio.org/apollo/index.html
007878,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
007879,000020: ## 2017-06-01 RSB Transcribed.
007880,000021: ## 2017-06-15 HG Fix operand BANKCALL -> INTPRET
007881,000022: ## 2017-06-21 RSB Proofed using octopus/ProoferComments.
007882,000023:
|
|
Page 187 |
007884,000025: 11,2000 BANK 11
007885,000026: 11,2000 E5,1500 EBANK= OGC
007886,000027:
007887,000028: # FAN-OUT
007888,000029:
|
|
In the original hardcopy, each of the asterisks in the line below is actually a one-half (½) character. |
007890,000031: # NOTE OF SPECIAL IMPORT CONCERNING RADAR **
007891,000032:
|
|
The following comment is very curious to me (RSB), in that it references changes made in SUNBURST 39,
but this source code is a listing for SHEPATIN 0 (which is identical to SUNBURST 37, we believe).
The basis for the belief that SHEPATIN 0 is the same as SUNBURST 37 is that the computer-generated
cover page for the program listing reads as follows:
488954 12.13.66 1
* 1800A JOB 55-238-50 NANSTONE ASSE. TIME: 03:09.0
2003 12 13 66 ¢¢¢¢¢¢¢¢
* YUL NANSTONE
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUP
488954A YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966
The string "REVISION 37 OF PROGRAM SUNBURST BY LEM GROUP" has a hand-drawn box around
it, presumably for emphasis. All things considered, the "REV 39" in the comment below is probably
just a typo, but it's still a minor mystery.
The "206" referred to below and elsewhere in this file is presumably the canceled AS-206 mission, which would have been the first unmanned flight of the LM. Because the original AS-206 mission was canceled, the first unmanned LM flight was instead AS-204, APOLLO 5, using SUNBURST 120 software. (The designation "AS-206" was recycled 7 years later for the first manned APOLLO-SKYLAB mission, but that's not the mission referred to here.) |
007917,000058: # SINCE 206 HAS NO RADARS, THE INTERRUPT LEAD IN AND T4RUPT SERVICE ROUTINES HAVE BEEN DISCONNECTED IN
007918,000059: # SUNBURST (REV 39). THEREFORE, THE FOLLOWING VERBS SHOULD NOT BE USED: 40 WITH NOUN 40, 41 WITH NOUN 40, 45,
007919,000060: # 46, AND SEQUENCES 13 AND 14 OF VERB 57.
007920,000061:
007921,000062: 11,2000 02070 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 40 ONLY)
007922,000063: 11,2001 02073 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
007923,000064: # 40 ONLY)
007924,000065: 11,2002 02204 TC IMUFINEK # VB42 FINE ALIGN IMU
007925,000066: 11,2003 02573 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
007926,000067: 11,2004 02066 TC ALM/END # VB44 SPARE
007927,000068: 11,2005 12126 TCF LRPOS2K # VB45 COMMAND LR TO POSITION 2.
007928,000069:
007929,000070: 11,2006 02415 TC REGRSAMP # VB46 SAMPLE RADAR ONCE PER SECOND
007930,000071: 11,2007 02407 TC DOFCSTST # VB47 PERFORM LEM FCS TEST
007931,000072: 11,2010 02262 TC GOLOADLV # VB50 PLEASE PERFORM
007932,000073: 11,2011 02262 TC GOLOADLV # VB51 PLEASE MARK
007933,000074: 11,2012 02262 TC GOLOADLV # VB52 PLEASE MARK Y
007934,000075: 11,2013 02262 TC GOLOADLV # VB53 PLEASE MARK X OR Y.
007935,000076: 11,2014 02266 TC TORQGYRS # VB54 PULSE TORQUE GYROS
007936,000077: 11,2015 02303 TC ALINTIME # VB55 ALIGN TIME
007937,000078: 11,2016 02405 TC GOSHOSUM # VB56 PERFORM BANKSUM
007938,000079: 11,2017 02327 TC SYSTEST # VB57 PERFORM SYSTEM TEST
007939,000080: 11,2020 03126 TC PRESTAND # VB60 PREPARE FOR STANDBY
007940,000081: 11,2021 03174 TC POSTAND # VB61 RECOVER FROM STANDBY
007941,000082: 11,2022 02641 TC SETUPMSG # VB62 SCAM LEM INBITS
007942,000083: 11,2023 12531 TCF AGSINIT # VB63 INITIALIZE AGS
007943,000084: 11,2024 13273 TCF 64UPDAT # VB64 SET TIMER TO GROUND ELAPSED TIME
007944,000085: 11,2025 13247 TCF 65UPDAT # VB65 SET GUIDANCE REFERENCE RELEASE DISC
007945,000086: 11,2026 13253 TCF 66UPDAT # VB66 INITIATE LGC DFI TLM CALIBRATE RTN
007946,000087: 11,2027 13261 TCF 67UPDAT # VB67 SEND COMMAND TO LMP
007947,000088: 11,2030 13265 TCF 70UPDAT # VB70 SET MISSION TIMER
007948,000089: 11,2031 13267 TCF 71UPDAT # VB71 SET MISSION PHASE REGISTER
007949,000090: 11,2032 13275 TCF 72UPDAT # VB72 SET MISSION PHASE REGISTER + TIMER
007950,000091: 11,2033 13257 TCF 73UPDAT # VB73 RESET DPS OR RPS COLD SOAK DISC
007951,000092: 11,2034 13251 TCF 74UPDAT # VB74 STOP MISSION TIMERS
007952,000093:
007953,000094: 11,2035 13306 TCF 75UPDAT # VB75 TARGET PARAMETER UPDATE
007954,000095: 11,2036 13301 TCF 76UPDAT # VB76 STATE VECTOR UPDATE
007955,000096: 11,2037 02066 TC ALM/END
007956,000097:
007957,000098: 11,2040 37753 TESTXACT CAF BIT3
007958,000099: 11,2041 70336 MASK EXTVBACT
007959,000100: 11,2042 10000 CCS A
007960,000101: 11,2043 02053 TC XACTALM
007961,000102:
|
|
Page 188 |
007963,000104: 11,2044 47753 XACT1 CS BIT3
007964,000105: 11,2045 00004 INHINT
007965,000106:
007966,000107: 11,2046 70336 MASK EXTVBACT
007967,000108: 11,2047 67753 AD BIT3
007968,000109: 11,2050 54336 TS EXTVBACT
007969,000110: 11,2051 00003 RELINT
007970,000111: 11,2052 00002 TC Q
007971,000112:
007972,000113: 11,2053 04560 XACTALM TC FALTON
007973,000114: 11,2054 05605 TC ENDOFJOB
007974,000115:
007975,000116: 11,2055 04713 TERMEXTV TC FREEDSP # IF WE GET A TERMINATE INSTEAD OF A LOAD.
007976,000117:
007977,000118: 11,2056 02060 ENDEXTVB TC XACT0
007978,000119: 11,2057 05605 TC ENDOFJOB
007979,000120:
007980,000121: 11,2060 47753 XACT0 CS BIT3
007981,000122: 11,2061 00004 INHINT
007982,000123: 11,2062 70336 MASK EXTVBACT
007983,000124: 11,2063 54336 TS EXTVBACT
007984,000125: 11,2064 00003 RELINT
007985,000126: 11,2065 00002 XACT0Q TC Q
007986,000127:
007987,000128: 11,2066 04560 ALM/END TC FALTON
007988,000129: 11,2067 02056 TC ENDEXTVB
007989,000130:
007990,000131:
007991,000132: 11,2070 02076 VBZERO TC OP/INERT
007992,000133: 11,2071 02110 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
007993,000134: 11,2072 02117 TC RRZEROK # RETURN HERE IF NOUN = RCDU(40)
007994,000135:
007995,000136: 11,2073 02076 VBCOARK TC OP/INERT
007996,000137: 11,2074 02132 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
007997,000138: 11,2075 02234 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (40)
007998,000139:
007999,000140: # RETURNS TO L+1 IF IMU OR L+2 IF RR.
008000,000141:
008001,000142: 11,2076 47751 OP/INERT CS BIT5 # OCT20
008002,000143: 11,2077 60273 AD NOUNREG
008003,000144: 11,2100 00006 EXTEND
008004,000145: 11,2101 12065 BZF XACT0Q # IF = 20.
008005,000146:
008006,000147: 11,2102 24002 INCR Q
008007,000148: 11,2103 62107 AD RRIMUDIF # = -20 OCT.
008008,000149: 11,2104 00006 EXTEND
008009,000150: 11,2105 12065 BZF XACT0Q
008010,000151:
|
|
Page 189 |
008012,000153: 11,2106 02066 TC ALM/END # ILLEGAL.
008013,000154:
008014,000155: 11,2107 77757 RRIMUDIF OCT -20
008015,000156:
|
|
Page 190 |
008017,000158: # KEYBOARD REQUEST TO ZERO IMU ENCODERS
008018,000159:
008019,000160: 11,2110 02040 IMUZEROK TC TESTXACT # ZERO ENCODERS.
008020,000161: 11,2111 05224 TC BANKCALL
008021,000162: 11,2112 26000 CADR IMUZERO
008022,000163:
008023,000164: 11,2113 05224 TC BANKCALL # STALL
008024,000165: 11,2114 26762 CADR IMUSTALL
008025,000166: 11,2115 02116 TC +1
008026,000167:
008027,000168: 11,2116 02056 TC ENDEXTVB
008028,000169: 11,2117 02040 RRZEROK TC TESTXACT
008029,000170: 11,2120 05224 TC BANKCALL # ZERO RR CDUS.
008030,000171: 11,2121 20247 CADR RRZERO
008031,000172:
008032,000173: 11,2122 05224 RWAITK TC BANKCALL
008033,000174: 11,2123 26756 CADR RADSTALL
008034,000175: 11,2124 12125 TCF +1
008035,000176: 11,2125 12056 TCF ENDEXTVB
008036,000177:
008037,000178: 11,2126 02040 LRPOS2K TC TESTXACT # COMMAND LR TO POSITION 2.
008038,000179: 11,2127 05224 TC BANKCALL
008039,000180: 11,2130 21161 CADR LRPOS2
008040,000181: 11,2131 12122 TCF RWAITK
008041,000182:
|
|
Page 191 |
008043,000184: # KEYBOARD REQUEST TO COARSE ALIGN THE IMU
008044,000185:
008045,000186: 11,2132 02040 IMUCOARK TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
008046,000187: 11,2133 04633 TC GRABWAIT
008047,000188: 11,2134 32152 CAF VNLODCDU # CALL FOR THETAD LOAD
008048,000189: 11,2135 04646 TC NVSBWAIT
008049,000190: 11,2136 04464 TC ENDIDLE # STALL WAITING FOR THE LOAD
008050,000191: 11,2137 02055 TC TERMEXTV
008051,000192: 11,2140 02154 TC ICSDEL # PROCEED - ASK FOR INCREMENTAL LOAD.
008052,000193:
008053,000194: 11,2141 32153 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
008054,000195: 11,2142 04646 TC NVSBWAIT
008055,000196: 11,2143 04713 TC FREEDSP # RELEASE THE DISPLAYS
008056,000197:
008057,000198: 11,2144 05224 TC BANKCALL # CALL MODE SWITCHING PROG
008058,000199: 11,2145 26065 CADR IMUCOARS
008059,000200:
008060,000201: 11,2146 05224 TC BANKCALL # STALL
008061,000202: 11,2147 26762 CADR IMUSTALL
008062,000203: 11,2150 02056 TC ENDEXTVB
008063,000204:
008064,000205: 11,2151 02056 TC ENDEXTVB
008065,000206:
008066,000207: 11,2152 02522 VNLODCDU OCT 02522
008067,000208: 11,2153 04100 IMUCOARV OCT 04100
008068,000209:
|
|
Page 192 |
008070,000211: # PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
008071,000212:
008072,000213: 11,2154 32202 ICSDEL CAF DELLOAD
008073,000214: 11,2155 04646 TC NVSBWAIT # REQUEST LOAD OF DELTA ICDU ANGLES.
008074,000215: 11,2156 04464 TC ENDIDLE
008075,000216: 11,2157 02055 TC TERMEXTV
008076,000217: 11,2160 02141 TC ICORK2 # PROCEED WITHOUT DATA HERE TOO.
008077,000218: 11,2161 02163 TC INCLOOP # LOOP TO INCREMENT THETAD FROM DSPTEM2.
008078,000219: 11,2162 02141 TC ICORK2 # RE-DISPLAY COARSE ALIGN VERB.
008079,000220:
008080,000221: 11,2163 56002 INCLOOP XCH Q # INCREMENTS THETADS IN 2S COMPLEMENT FROM
008081,000222: 11,2164 54144 TS MPAC # THREE ANGLE INCREMENTS IN DSPTEM2S.
008082,000223: 11,2165 32203 CAF LTHD+2
008083,000224: 11,2166 54120 TS BUF # SET UP FOR CDUINC.
008084,000225: 11,2167 37754 CAF TWO # THREE TIMES THROUGH.
008085,000226:
008086,000227: 11,2170 54145 INCLOOP2 TS MPAC +1
008087,000228: 11,2171 50000 INDEX A
008088,000229: 11,2172 56342 XCH DSPTEM2 # INCREMENT TO TEM2 FOR CDUINC.
008089,000230: 11,2173 05224 TC BANKCALL
008090,000231: 11,2174 33647 CADR CDUINC
008091,000232: 11,2175 10120 CCS BUF
008092,000233: 11,2176 54120 TS BUF
008093,000234: 11,2177 10145 CCS MPAC +1
008094,000235: 11,2200 02170 TC INCLOOP2
008095,000236:
008096,000237: 11,2201 00144 TC MPAC # RETURN WHEN FINISHED.
008097,000238:
008098,000239: 11,2202 02523 DELLOAD OCT 02523
008099,000240: 11,2203 00402 LTHD+2 ADRES THETAD +2
008100,000241:
|
|
Page 193 |
008102,000243: # KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
008103,000244:
008104,000245: 11,2204 02040 IMUFINEK TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
008105,000246: 11,2205 04633 TC GRABWAIT
008106,000247: 11,2206 32232 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
008107,000248: 11,2207 04646 TC NVSBWAIT
008108,000249: 11,2210 04464 TC ENDIDLE # HOLD UP FOR THE DATA LOAD
008109,000250: 11,2211 02055 TC TERMEXTV
008110,000251:
008111,000252: 11,2212 02213 TC +1 # PROCEED WITHOUT A LOAD
008112,000253:
008113,000254: 11,2213 32233 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
008114,000255: 11,2214 04646 TC NVSBWAIT
008115,000256: 11,2215 04713 TC FREEDSP # RELEASE DISPLAYS
008116,000257:
008117,000258: 11,2216 05224 TC BANKCALL # CALL MODE SWITCH PROG
008118,000259: 11,2217 26251 CADR IMUFINE
008119,000260:
008120,000261: 11,2220 05224 TC BANKCALL # HIBERNATION
008121,000262: 11,2221 26762 CADR IMUSTALL
008122,000263: 11,2222 02056 TC ENDEXTVB
008123,000264:
008124,000265: 11,2223 32301 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
008125,000266: 11,2224 05224 TC BANKCALL
008126,000267: 11,2225 26361 CADR IMUPULSE
008127,000268:
008128,000269: 11,2226 05224 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
008129,000270: 11,2227 26762 CADR IMUSTALL
008130,000271: 11,2230 02056 TC ENDEXTVB
008131,000272: 11,2231 02056 TC ENDEXTVB
008132,000273:
008133,000274: 11,2232 02567 VNLODGYR OCT 02567
008134,000275:
008135,000276: 11,2233 04200 IMUFINEV OCT 04200 # FINE ALIGN VERB
008136,000277:
|
|
Page 194 |
008138,000279: # DESIGNATE TO DESIRED GIMBAL ANGLES.
008139,000280:
008140,000281: 11,2234 02040 RRDESNBK TC TESTXACT
008141,000282: 11,2235 04633 TC GRABWAIT
008142,000283: 11,2236 32255 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
008143,000284: 11,2237 04646 TC NVSBWAIT
008144,000285: 11,2240 04464 TC ENDIDLE # WAIT FOR THE LOAD
008145,000286: 11,2241 02055 TC TERMEXTV
008146,000287: 11,2242 02243 TC +1 # PROCEED
008147,000288:
008148,000289: 11,2243 05224 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
008149,000290: 11,2244 22765 CADR AURLOKON
008150,000291:
008151,000292: 11,2245 32153 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
008152,000293: 11,2246 04646 TC NVSBWAIT
008153,000294: 11,2247 00004 INHINT # FIRE UP JOB TO DO DESIGNATE.
008154,000295: 11,2250 37740 CAF PRIO20
008155,000296: 11,2251 05534 TC FINDVAC
008156,000297: 11,2252 E5,1500 EBANK= OGC
008157,000298: 11,2252 02256 22005 2CADR RRDESK2
008158,000299:
008159,000300: 11,2254 12055 TCF TERMEXTV # FREES DISPLAY.
008160,000301:
008161,000302: 11,2255 02441 VNLDRCDU OCT 2441
008162,000303: 11,2256 11,2153 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
008163,000304:
008164,000305: 11,2256 06103 RRDESK2 TC INTPRET
008165,000306:
008166,000307: 11,2257 77624 CALL
008167,000308: 11,2260 20363 RRDESNB # RETURNS IN BASIC.
008168,000309:
008169,000310: 11,2261 02122 TC RWAITK
008170,000311:
008171,000312: # PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
008172,000313: # ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
008173,000314: # LOAD. OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
008174,000315: # PERFORM THE REQUESTED ACTION.
008175,000316:
008176,000317: 11,2262 04615 GOLOADLV TC FLASHOFF
008177,000318: 11,2263 02060 TC XACT0
008178,000319: 11,2264 05243 TC POSTJUMP
008179,000320: 11,2265 12002 CADR LOADLV1
008180,000321:
|
|
Page 195 |
008182,000323: # KEYBOARD REQUEST TO PULSE TORQUE IRIGA
008183,000324:
008184,000325: 11,2266 02040 TORQGYRS TC TESTXACT # GYRO TORQUING WITH NO MODE-SWITCH.
008185,000326: 11,2267 04633 TC GRABWAIT
008186,000327: 11,2270 32232 CAF VNLODGYR
008187,000328: 11,2271 04646 TC NVSBWAIT
008188,000329: 11,2272 04464 TC ENDIDLE
008189,000330: 11,2273 02055 TC TERMEXTV
008190,000331: 11,2274 02275 TC +1
008191,000332: 11,2275 32302 CAF TORQGYRV # RE-DISPLAY OUR OWN VERB
008192,000333: 11,2276 04646 TC NVSBWAIT
008193,000334: 11,2277 04713 TC FREEDSP
008194,000335: 11,2300 12223 TCF FINEK2
008195,000336:
008196,000337: 11,2301 00403 LGYROBIN ECADR DELVX
008197,000338: 11,2302 05400 TORQGYRV OCT 05400
008198,000339:
|
|
Page 196 |
008200,000341: # ALIGN TIME
008201,000342: 11,2303 32326 ALINTIME CAF VNLODDT # USES NVSUBMON. DOES NOT TEST DSPLOCK.
008202,000343:
008203,000344: 11,2304 54113 TS NVTEMP # DOES NOT KILL MONITOR.
008204,000345: 11,2305 04447 TC NVSUBMON
008205,000346: 11,2306 05605 TC ENDOFJOB # IN CASE OF ALARM IN LOAD REQUEST SET UP.
008206,000347: 11,2307 04464 TC ENDIDLE
008207,000348: 11,2310 05605 TC ENDOFJOB # TERMINATE
008208,000349: 11,2311 05605 TC ENDOFJOB # PROCEED WITHOUT DATA
008209,000350: 11,2312 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
008210,000351: 11,2313 37761 CAF ZERO
008211,000352: 11,2314 54146 TS MPAC +2 # NEEDED FOR TP AGREE
008212,000353: 11,2315 54001 TS L # ZERO T1 & 2 WHILE ALIGNING.
008213,000354: 11,2316 52025 DXCH TIME2
008214,000355: 11,2317 52145 DXCH MPAC
008215,000356: 11,2320 52340 DXCH DSPTEM1 # INCREMENT.
008216,000357: 11,2321 20145 DAS MPAC
008217,000358:
008218,000359: 11,2322 07320 TC TPAGREE # FORCE SIGN AGREEMENT.
008219,000360: 11,2323 52145 DXCH MPAC # NEW CLOCK.
008220,000361: 11,2324 20025 DAS TIME2
008221,000362: 11,2325 05605 TC ENDOFJOB
008222,000363:
008223,000364: 11,2326 02124 VNLODDT OCT 02124 # V/N FOR LOAD DELTA TIME
008224,000365:
|
|
Page 197 |
008226,000367: # SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
008227,000368:
008228,000369: 11,2327 E5,1546 EBANK= QPLACE
008229,000370:
008230,000371: 11,2327 10302 SYSTEST CCS MODREG # DEMAND MODE 00.
008231,000372: 11,2330 12053 TCF XACTALM
008232,000373:
008233,000374: 11,2331 04633 TC GRABWAIT
008234,000375:
008235,000376: 11,2332 32404 REDO CAF LQPL # ASK FOR TEST OPTION (1 - 7).
008236,000377: 11,2333 54146 TS MPAC +2
008237,000378: 11,2334 32403 CAF TESTNV
008238,000379: 11,2335 04646 TC NVSBWAIT
008239,000380: 11,2336 04464 TC ENDIDLE
008240,000381: 11,2337 05604 TC EJFREE
008241,000382: 11,2340 02332 TC REDO
008242,000383:
008243,000384: 11,2341 04105 TC NEWMODEX
008244,000385: 11,2342 00007 OCT 07
008245,000386:
008246,000387: 11,2343 00004 INHINT
008247,000388: 11,2344 37740 CAF PRIO20
008248,000389: 11,2345 05534 TC FINDVAC
008249,000390: 11,2346 E5,1500 EBANK= OGC
008250,000391: 11,2346 02351 22005 2CADR TSELECT
008251,000392:
008252,000393: 11,2350 05605 TC ENDOFJOB # LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
008253,000394:
008254,000395: 11,2351 45361 TSELECT CS LOW4 # OCTAL 17 OPTIONS WITHOUT OPERATOR ERRO
008255,000396: 11,2352 61546 AD QPLACE
008256,000397: 11,2353 00006 EXTEND
008257,000398: 11,2354 62357 BZMF +3
008258,000399:
008259,000400: 11,2355 04560 TC FALTON
008260,000401: 11,2356 02332 TC REDO
008261,000402: 11,2357 51546 INDEX QPLACE
008262,000403: 11,2360 32362 CAF TESTCADR
008263,000404: 11,2361 05246 TC BANKJUMP
008264,000405:
008265,000406: # DON'T USE 13 OR 14 (SEE NOTE ON USER'S PAGE 1).
008266,000407:
008267,000408: 11,2362 22066 TESTCADR CADR ALM/END # 0 ILLEGAL
008268,000409: 11,2363 50000 CADR IMUTEST # 1 GYRO DRIFT TEST
008269,000410: 11,2364 50024 CADR IMUBACK # 2 REPEAT OF IMUTEST
008270,000411: 11,2365 30000 CADR AOTNBIMU # 3 IMU ALIGNMENT TEST
008271,000412: 11,2366 50247 CADR OPCHK # 4 IMU CHECK
008272,000413: 11,2367 50447 CADR GYRSFTST # 5 GYRO TORQUING TEST
008273,000414: 11,2370 22066 CADR ALM/END # 6 AVAILABLE
008274,000415: 11,2371 73405 CADR GTSCPSS # 7. GYROCOMPASS
008275,000416: 11,2372 46556 CADR SAMODCHK # 10 SEMI-AUTOMATIC MODING CHECK
008276,000417: 11,2373 31326 CADR SAUTOIFS # 11 SEMI-AUTOMATIC INTERFACE TEST
008277,000418: 11,2374 31564 CADR AOTANGCK # 12 AOT ANGLE CHECK
|
|
Page 198 |
008279,000420: 11,2375 31122 CADR RDRINIT # 13 RENDEZVOUS RADAR / ANTENNAE TRACKING
008280,000421: 11,2376 22411 CADR FSTRSAMP # 14 HIGH SPEED RADAR SAMPLING.
008281,000422:
008282,000423: 11,2377 31615 CADR ZEROERAS
008283,000424: 11,2400 23014 CADR DISINDT # DISPLAY INERTIAL DATA TEST.
008284,000425: 11,2401 22066 CADR ALM/END
008285,000426: 11,2402 22066 CADR ALM/END
008286,000427: 11,2403 02101 TESTNV OCT 2101
008287,000428: 11,2404 02546 LQPL ECADR QPLACE
008288,000429: 11,2405 05243 GOSHOSUM TC POSTJUMP # START ROUTINE TO DISPLAY SUM OF EACH
008289,000430: 11,2406 77507 CADR SHOWSUM # BANK ON DSKY
008290,000431:
008291,000432: 11,2407 05243 DOFCSTST TC POSTJUMP
008292,000433: 11,2410 14467 CADR FCSSTART
008293,000434:
|
|
Page 199 |
008295,000436: # SET UP FOR RADAR SAMPLING.
008296,000437:
008297,000438: 11,2411 E7,1435 EBANK= RSTKLOC
008298,000439:
008299,000440: 11,2411 32500 FSTRSAMP CAF RSTKLIST # HIGH SPEED SAMPLING. SWITCH TO SPECIAL
008300,000441: 11,2412 54411 TS DNLSTADR # DOWNLIST.
008301,000442: 11,2413 47755 CS ONE # WANTS TM BUFFERING.
008302,000443: 11,2414 12417 TCF RSAMPTST
008303,000444:
008304,000445: 11,2415 04633 REGRSAMP TC GRABWAIT
008305,000446: 11,2416 35223 CAF 1SEC+1 # SHOWS NO TM BUFFERING.
008306,000447:
008307,000448: 11,2417 54146 RSAMPTST TS MPAC +2
008308,000449: 11,2420 00004 INHINT
008309,000450: 11,2421 42501 CS LRPOSCAL # INITIALIZE SCALE AND LR POSITION BITS.
008310,000451: 11,2422 70413 MASK RADMODES
008311,000452: 11,2423 54413 TS RADMODES
008312,000453:
008313,000454: 11,2424 32501 CAF LRPOSCAL
008314,000455: 11,2425 00006 EXTEND
008315,000456:
008316,000457: 11,2426 02033 RAND 33
008317,000458: 11,2427 26413 ADS RADMODES
008318,000459:
008319,000460: 11,2430 00003 RELINT
008320,000461: 11,2431 32452 CAF LRTSTDEX
008321,000462: 11,2432 54003 TS EBANK
008322,000463: 11,2433 56146 XCH MPAC +2
008323,000464: 11,2434 55436 TS RSAMPDT # HI SPEED NNZ - LO SPEED PNZ.
008324,000465: 11,2435 37761 CAF ZERO
008325,000466: 11,2436 55435 TS RTSTLOC
008326,000467: 11,2437 55437 TS RFAILCNT # ZERO BAD SAMPLE COUNTER.
008327,000468: 11,2440 32476 CAF HISPMAX
008328,000469: 11,2441 55433 TS RTSTMAX
008329,000470:
008330,000471: 11,2442 32477 CAF RTSTNV
008331,000472: 11,2443 04646 TC NVSBWAIT
008332,000473: 11,2444 04464 TC ENDIDLE
008333,000474: 11,2445 05604 TC EJFREE # ON TERMINATE.
008334,000475: 11,2446 12502 TCF RSEMIAUT # PROCEED MEANS SEMI-AUTO SEQUENCING.
008335,000476: 11,2447 04713 RDRDFREE TC FREEDSP
008336,000477: 11,2450 11436 CCS RSAMPDT # SEE IF HI OR LO SPEED SAMPLING.
008337,000478: 11,2451 12455 TCF +4
008338,000479:
008339,000480: 11,2452 03432 LRTSTDEX ECADR RTSTDEX
008340,000481:
008341,000482: 11,2453 05243 TC POSTJUMP # EXEC. OTHERWISE, SET UP WAITLIST TIMING.
008342,000483: 11,2454 21300 CADR DORSAMP
008343,000484:
008344,000485: 11,2455 36276 CAF SIX # FIND OUT WHICH RADAR WANTED.
008345,000486: 11,2456 71432 MASK RTSTDEX
008346,000487:
|
|
Page 200 |
008348,000489: 11,2457 10000 CCS A
008349,000490: 11,2460 12464 TCF LRCYCLE # LANDING RADAR ARE SERIALS 2 - 5.
008350,000491:
008351,000492: 11,2461 55434 TS RTSTBASE # FOR RR BASE = 0, MAX = 1.
008352,000493: 11,2462 36276 CAF SIX
008353,000494: 11,2463 12467 TCF +4
008354,000495:
008355,000496: 11,2464 37754 LRCYCLE CAF TWO # FOR LR BASE = 2, MAX = 3.
008356,000497: 11,2465 55434 TS RTSTBASE
008357,000498: 11,2466 32475 CAF 18R
008358,000499:
008359,000500: 11,2467 55433 +4 TS RTSTMAX
008360,000501: 11,2470 00004 INHINT
008361,000502: 11,2471 05701 TC WAITLIST
008362,000503: 11,2472 E7,1435 EBANK= RSTKLOC
008363,000504: 11,2472 03260 20007 2CADR RADSAMP
008364,000505:
008365,000506: 11,2474 05605 TC ENDOFJOB
008366,000507:
008367,000508: 11,2475 00022 18R DEC 18 B-14
008368,000509: 11,2476 00102 HISPMAX DEC 66 B-14
008369,000510: 11,2477 02101 RTSTNV OCT 2101
008370,000511: 11,2500 02001 RSTKLIST GENADR UPDNLIST
008371,000512: 11,2501 00444 LRPOSCAL OCT 444
008372,000513:
|
|
Page 201 |
008374,000515: # SEMI-AUTO RADAR TESTING.
008375,000516:
008376,000517: 11,2502 00004 RSEMIAUT INHINT
008377,000518: 11,2503 35665 CAF PRIO25 # START HI SPEED SAMPLING.
008378,000519: 11,2504 05523 TC NOVAC
008379,000520: 11,2505 E7,1435 EBANK= RSTKLOC
008380,000521: 11,2505 03300 20007 2CADR DORSAMP
008381,000522:
008382,000523: 11,2507 00003 RELINT
008383,000524: 11,2510 37760 CAF FIVE # SEQUENCE THROUGH ALL SIX CHANNELS.
008384,000525: 11,2511 55432 -1 TS RTSTDEX
008385,000526:
008386,000527: 11,2512 32530 33PASTE CAF RV33 # ON ENTER, SWITCH TO NEXT CHANNEL.
008387,000528: 11,2513 04646 TC NVSBWAIT
008388,000529: 11,2514 04611 TC FLASHON
008389,000530: 11,2515 04464 TC ENDIDLE
008390,000531: 11,2516 02523 TC ENDRTST # ON TERMINATE.
008391,000532: 11,2517 12521 TCF +2
008392,000533: 11,2520 12512 TCF 33PASTE # DONT ACCEPT DATA.
008393,000534:
008394,000535: 11,2521 11432 CCS RTSTDEX
008395,000536: 11,2522 12511 TCF 33PASTE -1
008396,000537:
008397,000538: 11,2523 37761 ENDRTST CAF ZERO # ENDTEST.
008398,000539: 11,2524 55436 TS RSAMPDT
008399,000540: 11,2525 04105 TC NEWMODEX
008400,000541: 11,2526 00000 OCT 0
008401,000542: 11,2527 05604 TC EJFREE
008402,000543:
008403,000544: 11,2530 03300 RV33 OCT 3300
008404,000545:
|
|
Page 202 |
008406,000547: # AGS INITIALIZATION PROGRAM.
008407,000548:
008408,000549: 11,2531 10412 AGSINIT CCS AGSWORD # ZERO IF AGS NOT NOW BEING INITIALIZED.
008409,000550: 11,2532 02066 TC ALM/END # DO IT LATER.
008410,000551:
008411,000552: 11,2533 30025 CA TIME1
008412,000553: 11,2534 62571 AD 12SECS
008413,000554: 11,2535 54001 TS L
008414,000555: 11,2536 02553 TC SENDIT
008415,000556:
008416,000557: 11,2537 00004 INHINT # T1 WILL OVERFLOW, DELAY FOR 12 SECS
008417,000558: 11,2540 32571 CA 12SECS
008418,000559: 11,2541 54412 TS AGSWORD
008419,000560: 11,2542 05701 TC WAITLIST
008420,000561:
008421,000562: 11,2543 E7,1435 EBANK= RSTKLOC
008422,000563: 11,2543 02546 22007 2CADR AGSJOB
008423,000564:
008424,000565: 11,2545 05605 TC ENDOFJOB
008425,000566:
008426,000567: 11,2546 35226 AGSJOB CAF PRIO30 # ENTER AGSINIT JOB VIA EXEC
008427,000568: 11,2547 05523 TC NOVAC
008428,000569: 11,2550 E7,1435 EBANK= RSTKLOC
008429,000570: 11,2550 02553 22007 2CADR SENDIT
008430,000571:
008431,000572: 11,2552 05745 TC TASKOVER
008432,000573:
008433,000574: 11,2553 00004 SENDIT INHINT
008434,000575: 11,2554 32572 CAF LAGSLIST # SWITCH TO SPECIAL DOWNLIST FOR 10 SECS.
008435,000576: 11,2555 56411 XCH DNLSTADR
008436,000577: 11,2556 54412 TS AGSWORD # TO SHOW INITIALIZATION IN PROGRESS.
008437,000578:
008438,000579: 11,2557 32570 CAF 10SECS
008439,000580: 11,2560 05701 TC WAITLIST
008440,000581: 11,2561 E7,1435 EBANK= RSTKLOC
008441,000582: 11,2561 02564 22007 2CADR AGSINIT2
008442,000583:
008443,000584: 11,2563 15605 TCF ENDOFJOB
008444,000585:
008445,000586: 11,2564 37761 AGSINIT2 CAF ZERO # END OF INITIALIZATION.
008446,000587: 11,2565 56412 XCH AGSWORD
008447,000588: 11,2566 54411 TS DNLSTADR # REVERT TO ORIGINAL DOWNLIST.
008448,000589: 11,2567 15745 TCF TASKOVER
008449,000590:
008450,000591: 11,2570 01750 10SECS DEC 1000 B-14
008451,000592: 11,2571 02260 12SECS DEC 1200 B-14
008452,000593: 11,2572 02001 LAGSLIST GENADR AGSLIST
008453,000594:
|
|
Page 203 |
008455,000596: # VB 43 IMU ATTITUDE ERROR METER LOADER.
008456,000597:
008457,000598: 11,2573 02040 IMUATTCK TC TESTXACT
008458,000599: 11,2574 42636 CS OCT50K # REMOVE COARSE AND ECTR ENABLE.
008459,000600: 11,2575 00006 EXTEND
008460,000601: 11,2576 03012 WAND 12
008461,000602:
008462,000603: 11,2577 04633 TC GRABWAIT
008463,000604: 11,2600 32152 CAF VNLODCDU
008464,000605: 11,2601 04646 TC NVSBWAIT
008465,000606: 11,2602 04464 TC ENDIDLE
008466,000607: 11,2603 02055 TC TERMEXTV
008467,000608: 11,2604 02605 TC +1
008468,000609: 11,2605 32637 CAF V43K # REDISPLAY OUR VERB.
008469,000610: 11,2606 04646 TC NVSBWAIT
008470,000611: 11,2607 37750 CAF BIT6 # ENABLE ERROR COUNTER.
008471,000612: 11,2610 00006 EXTEND
008472,000613: 11,2611 05012 WOR 12
008473,000614: 11,2612 37754 CAF TWO
008474,000615: 11,2613 00004 INHINT
008475,000616:
008476,000617: 11,2614 05701 TC WAITLIST # PUT OUT COMMAND IN .32 SECS.
008477,000618: 11,2615 E7,1435 EBANK= RSTKLOC
008478,000619: 11,2615 02620 22007 2CADR ATTCK2
008479,000620:
008480,000621: 11,2617 12055 TCF TERMEXTV # FREES DISPLAY.
008481,000622:
008482,000623: 11,2620 37754 ATTCK2 CAF TWO # PUT OUT ALL COMMANDS - CDU WILL DO LIMIT
008483,000624: 11,2621 54002 TS Q # INCASE OF EXCESS DATA.
008484,000625: 11,2622 50000 INDEX A
008485,000626: 11,2623 30400 CA THETAD
008486,000627: 11,2624 00006 EXTEND
008487,000628: 11,2625 77741 MP BIT13 # SHIFT RIGHT 2.
008488,000629: 11,2626 50002 INDEX Q
008489,000630: 11,2627 54050 TS CDUXCMD
008490,000631: 11,2630 10002 CCS Q
008491,000632: 11,2631 12621 TCF ATTCK2 +1
008492,000633:
008493,000634: 11,2632 32640 CAF OCT70K
008494,000635: 11,2633 00006 EXTEND
008495,000636: 11,2634 05014 WOR 14
008496,000637: 11,2635 15745 TCF TASKOVER
008497,000638:
008498,000639: 11,2636 00050 OCT50K OCT 50
008499,000640:
008500,000641: 11,2637 04300 V43K OCT 4300
008501,000642: 11,2640 70000 OCT70K OCT 70000
008502,000643:
|
|
Page 204 |
008504,000645: # PROGRAM TO SCAN CHANNELS 30 - 32 FOR CHANGES IN SELECTED INBITS. CALLED BY SPECIAL VERB.
008505,000646:
008506,000647: 11,2641 E7,1607 EBANK= MSGCNT
008507,000648:
008508,000649: 11,2641 37755 SETUPMSG CAF BIT1 # BEGIN SCAN.
008509,000650: 11,2642 00004 INHINT
008510,000651: 11,2643 05701 TC WAITLIST
008511,000652: 11,2644 E7,1435 EBANK= RSTKLOC
008512,000653: 11,2644 02651 22007 2CADR MSGSCAN +2
008513,000654:
008514,000655: 11,2646 05605 TC ENDOFJOB
008515,000656:
008516,000657: 11,2647 05717 MSGSCAN TC FIXDELAY
008517,000658: 11,2650 00062 DEC 50 B-14
008518,000659:
008519,000660: 11,2651 37754 CAF TWO # SCAN ALL 3 CHANNELS FOR CHANGES.
008520,000661: 11,2652 55607 TS MSGCNT
008521,000662: 11,2653 50000 INDEX A
008522,000663: 11,2654 31604 CA LAST30 # OLD VALUE OF INBITS.
008523,000664: 11,2655 00006 EXTEND
008524,000665: 11,2656 51607 INDEX MSGCNT
008525,000666: 11,2657 06030 RXOR 30
008526,000667: 11,2660 51607 INDEX MSGCNT
008527,000668: 11,2661 72710 MASK 30MSGMSK
008528,000669: 11,2662 00006 EXTEND
008529,000670: 11,2663 12705 BZF NOMSG
008530,000671:
008531,000672: 11,2664 54002 TS Q # SAVE DIFFERENCE.
008532,000673: 11,2665 51607 INDEX MSGCNT
008533,000674: 11,2666 23604 LXCH LAST30 # UPDATE OLD VALUE.
008534,000675: 11,2667 00006 EXTEND
008535,000676: 11,2670 06001 RXOR L
008536,000677: 11,2671 51607 INDEX MSGCNT
008537,000678: 11,2672 55604 TS LAST30
008538,000679:
008539,000680: 11,2673 40000 COM
008540,000681: 11,2674 56002 XCH Q
008541,000682: 11,2675 70002 MASK Q # SEE IF ANY OF CHANGED BITS JUST ON.
008542,000683: 11,2676 00006 EXTEND
008543,000684: 11,2677 12705 BZF NOMSG # NO MESSAGE IF SO.
008544,000685:
008545,000686: # NO ROTATIONAL HAND CONTROLLER IN 206.
008546,000687:
008547,000688: 11,2700 32713 NOTRHC CAF OKT30
008548,000689: 11,2701 61607 AD MSGCNT
008549,000690: 11,2702 54071 TS RUPTREG2
008550,000691:
008551,000692: 11,2703 40002 CS Q
008552,000693: 11,2704 02731 TC VMESSAGE
008553,000694:
|
|
Page 205 |
008555,000696: 11,2705 11607 NOMSG CCS MSGCNT
008556,000697: 11,2706 12652 TCF MSGSCAN +3
008557,000698: 11,2707 12647 TCF MSGSCAN
008558,000699:
008559,000700: 11,2710 00017 30MSGMSK OCT 17
008560,000701: 11,2711 77777 OCT 77777
008561,000702: 11,2712 03777 OCT 3777
008562,000703:
008563,000704: 11,2713 00030 OKT30 OCT 30
008564,000705: 11,2714 02724 DESCBITS TC MESSAGE # DESCENT BITS COME HERE IN A.
008565,000706: 11,2715 00016 OCT 16
008566,000707: 11,2716 05751 TC RESUME
008567,000708:
008568,000709: 11,2717 04633 RHCMON TC GRABWAIT # FIRE UP DSKY MONITOR.
008569,000710: 11,2720 32723 CAF RHCMONVN
008570,000711: 11,2721 04646 TC NVSBWAIT
008571,000712: 11,2722 05604 TC EJFREE
008572,000713:
008573,000714: 11,2723 01645 RHCMONVN OCT 1645
008574,000715:
|
|
Page 206 |
008576,000717: # MESSAGE DISPLAY - 3 COMPONENT OCTAL.
008577,000718:
008578,000719: 11,2724 54071 MESSAGE TS RUPTREG2 # NEW CHANNEL CONTENTS ARRIVE IN A.
008579,000720: 11,2725 50002 INDEX Q # CHANNEL NUMBER IN OCTAL AT CALLER +1.
008580,000721: 11,2726 30000 CAF 0
008581,000722: 11,2727 24002 INCR Q
008582,000723: 11,2730 56071 XCH RUPTREG2
008583,000724:
008584,000725: 11,2731 54070 VMESSAGE TS RUPTREG1 # FOR VARIABLE CHANNEL.
008585,000726: 11,2732 00006 EXTEND
008586,000727: 11,2733 22072 QXCH RUPTREG3
008587,000728: 11,2734 35667 CAF PRIO27 # FIRE UP SPECIAL JOB.
008588,000729: 11,2735 05523 TC NOVAC
008589,000730: 11,2736 E7,1435 EBANK= RSTKLOC
008590,000731:
008591,000732: 11,2736 02747 22007 2CADR DOMSG
008592,000733:
008593,000734: 11,2740 52071 DXCH RUPTREG1 # NEW CONTENTS TO MPAC - CHANNEL NUMBER TO
008594,000735: 11,2741 50064 INDEX LOCCTR # MPAC +1.
008595,000736: 11,2742 52145 DXCH MPAC
008596,000737: 11,2743 30025 CA TIME1
008597,000738: 11,2744 50064 INDEX LOCCTR
008598,000739: 11,2745 54146 TS MPAC +2
008599,000740: 11,2746 00072 TC RUPTREG3
008600,000741:
008601,000742: 11,2747 04633 DOMSG TC GRABWAIT
008602,000743: 11,2750 00006 EXTEND
008603,000744: 11,2751 30145 DCA MPAC
008604,000745: 11,2752 52340 DXCH DSPTEM1
008605,000746: 11,2753 30146 CA MPAC +2
008606,000747: 11,2754 54341 TS DSPTEM1 +2
008607,000748: 11,2755 32764 CAF MSGVN
008608,000749: 11,2756 04433 TC NVSUB
008609,000750: 11,2757 12761 TCF MSGBUSY
008610,000751: 11,2760 05604 TC EJFREE
008611,000752:
008612,000753: 11,2761 32763 MSGBUSY CAF +2
008613,000754: 11,2762 04643 TC NVSUBUSY
008614,000755:
008615,000756: 11,2763 22750 CADR DOMSG +1
008616,000757:
008617,000758: 11,2764 00535 MSGVN OCT 0535
008618,000759:
|
|
Page 207 |
008620,000761: # ROUTINE FOR AURORA ONLY TO ASK OPERATOR IF RR LOCK ON REQUESTED.
008621,000762:
008622,000763: 11,2765 05253 AURLOKON TC MAKECADR
008623,000764: 11,2766 54427 TS DESRET
008624,000765: 11,2767 32530 CAF RV33 # ASSUMES DSKY GRABBED.
008625,000766: 11,2770 04646 TC NVSBWAIT
008626,000767: 11,2771 04611 TC FLASHON
008627,000768: 11,2772 04464 TC ENDIDLE
008628,000769: 11,2773 12776 TCF +3 # ON TERM.
008629,000770: 11,2774 37751 CAF LOKONFLG
008630,000771: 11,2775 12777 TCF +2
008631,000772: 11,2776 37761 CAF ZERO
008632,000773: 11,2777 00004 INHINT
008633,000774: 11,3000 56074 XCH STATE
008634,000775: 11,3001 73013 MASK -LOKONFG
008635,000776: 11,3002 26074 ADS STATE
008636,000777:
008637,000778: 11,3003 77751 MASK LOKONFLG # IF NO LOCK-ON CALLED FOR, SET BIT15 OF
008638,000779: 11,3004 10000 CCS A # RADMODES TO INDICATE THAT ARBITRARILY-
008639,000780:
008640,000781: 11,3005 13010 TCF +3 # LONG DESIGNATION IS WANTED (TO BE
008641,000782:
008642,000783: 11,3006 37737 CAF BIT15 # TERMINATED BY FRESH START).
008643,000784: 11,3007 26413 ADS RADMODES
008644,000785:
008645,000786: 11,3010 00003 RELINT
008646,000787: 11,3011 30427 CA DESRET
008647,000788: 11,3012 15246 TCF BANKJUMP
008648,000789:
008649,000790: 11,3013 77757 -LOKONFG OCT -20
008650,000791:
|
|
Page 208 |
008652,000793: # PROGRAM TO RUN DISPLAY INERTIAL DATA TEST.
008653,000794:
008654,000795: 11,3014 33104 DISINDT CAF FLVELVN # ASK FOR FORWARD, LATERAL VELOCITY.
008655,000796: 11,3015 04646 TC NVSBWAIT
008656,000797: 11,3016 04464 TC ENDIDLE
008657,000798: 11,3017 13041 TCF ENDDISIN
008658,000799: 11,3020 13021 TCF +1
008659,000800: 11,3021 33105 CAF ALT,R,VN # ASK FOR INITIAL AND FINIAL ALTITUDES AND
008660,000801: 11,3022 04646 TC NVSBWAIT # ALTITUDE RATE.
008661,000802: 11,3023 04464 TC ENDIDLE
008662,000803: 11,3024 13041 TCF ENDDISIN
008663,000804: 11,3025 13026 TCF +1
008664,000805:
008665,000806: 11,3026 00004 INHINT
008666,000807: 11,3027 47755 CS ONE
008667,000808: 11,3030 54350 TS DIDFLG
008668,000809:
008669,000810: 11,3031 00006 EXTEND
008670,000811: 11,3032 30352 DCA ALT # SO FOLLOWING MONITOR WORKS.
008671,000812: 11,3033 52364 DXCH ALTSAVE
008672,000813:
008673,000814: 11,3034 37755 CAF ONE
008674,000815: 11,3035 05701 TC WAITLIST
008675,000816: 11,3036 E7,1435 EBANK= RSTKLOC
008676,000817: 11,3036 03047 22007 2CADR DISINLUP +2
008677,000818:
008678,000819: 11,3040 15604 TCF EJFREE
008679,000820:
008680,000821: 11,3041 04713 ENDDISIN TC FREEDSP
008681,000822: 11,3042 04105 +1 TC NEWMODEX
008682,000823: 11,3043 00000 OCT 0
008683,000824:
008684,000825: 11,3044 05605 TC ENDOFJOB
008685,000826:
|
|
Page 209 |
008687,000828: # WATCH ALTSAVE FOR END OF PROBLEM.
008688,000829:
008689,000830: 11,3045 05717 DISINLUP TC FIXDELAY
008690,000831: 11,3046 00062 DEC 50 B-14
008691,000832:
008692,000833: 11,3047 00006 +2 EXTEND
008693,000834: 11,3050 30355 DCA FINALT
008694,000835: 11,3051 52062 DXCH ITEMP1
008695,000836:
008696,000837: 11,3052 00006 EXTEND
008697,000838: 11,3053 40364 DCS ALTSAVE # LATEST ALTITUDE.
008698,000839: 11,3054 20062 DAS ITEMP1
008699,000840:
008700,000841: 11,3055 10061 CCS ITEMP1
008701,000842: 11,3056 13076 TCF +DIF
008702,000843: 11,3057 13061 TCF +2
008703,000844: 11,3060 13102 TCF -DIF
008704,000845:
008705,000846: 11,3061 10062 CCS ITEMP2
008706,000847: 11,3062 13076 TCF +DIF
008707,000848: 11,3063 13065 TCF +2
008708,000849: 11,3064 13102 TCF -DIF
008709,000850:
008710,000851: 11,3065 37761 DISINDUN CAF ZERO
008711,000852: 11,3066 54353 TS ALTRATE
008712,000853: 11,3067 52355 DXCH FINALT
008713,000854: 11,3070 52352 DXCH ALT
008714,000855: 11,3071 37740 CAF PRIO20
008715,000856: 11,3072 05523 TC NOVAC
008716,000857: 11,3073 E7,1435 EBANK= RSTKLOC
008717,000858: 11,3073 03042 22007 2CADR ENDDISIN +1
008718,000859:
008719,000860: 11,3075 15745 TCF TASKOVER
008720,000861:
008721,000862: 11,3076 30353 +DIF CA ALTRATE
008722,000863: 11,3077 00006 EXTEND
008723,000864: 11,3100 63065 BZMF DISINDUN
008724,000865: 11,3101 13045 TCF DISINLUP
008725,000866:
008726,000867: 11,3102 40353 -DIF CS ALTRATE
008727,000868: 11,3103 13077 TCF +DIF +1
008728,000869:
008729,000870: 11,3104 02444 FLVELVN OCT 2444
008730,000871: 11,3105 02564 ALT,R,VN OCT 2564
008731,000872:
008732,000873: 11,3106 00004 MINIMP INHINT
008733,000874: 11,3107 47744 CS BIT10 # BIT 10 OF DAPBOOLS INDICATES MINIMP MODE
008734,000875: 11,3110 70077 MASK DAPBOOLS
008735,000876: 11,3111 67744 AD BIT10
008736,000877: 11,3112 54077 TS DAPBOOLS # BIT 10 OF DAPBOOLS NOW PRESENT.
008737,000878: 11,3113 15605 TCF ENDOFJOB
008738,000879:
|
|
Page 210 |
008740,000881: 11,3114 00004 NOMINIMP INHINT
008741,000882: 11,3115 47744 CS BIT10
008742,000883: 11,3116 70077 MASK DAPBOOLS
008743,000884: 11,3117 54077 TS DAPBOOLS # A ZERO IN POSITION 10 OF DAPBOOLS NOW.
008744,000885:
008745,000886: 11,3120 00006 EXTEND
008746,000887: 11,3121 30033 DCA CDUX
008747,000888: 11,3122 52767 DXCH CDUXD
008748,000889: 11,3123 30034 CA CDUZ
008749,000890: 11,3124 54770 TS CDUZD
008750,000891: 11,3125 15605 TCF ENDOFJOB
008751,000892:
|
|
Page 211 |
008753,000894: # VB 60 PREPARE FOR STANDBY OPERATION
008754,000895:
008755,000896: # ROUTINE WRITTEN FOR TEST ROPES ONLY*** MUST BE UPDATED TO INCLUDE
008756,000897: # FLIGHT REQUIREMENTS FOR FLIGHT OPERATION
008757,000898:
008758,000899: 11,3126 E3,1400 EBANK= LST1
008759,000900:
008760,000901: 11,3126 35370 PRESTAND CAF EBANK3 # COMES HERE FROM LST2FAN
008761,000902: 11,3127 56003 XCH EBANK # SET UP EBANK FOR BANK 3
008762,000903: 11,3130 00004 INHINT
008763,000904: 11,3131 30025 CA TIME1
008764,000905: 11,3132 55506 TS TIMESAV # THIS ROUTINE WILL LOOK AT TIME1 UNTIL
008765,000906: 11,3133 32713 CAF OKT30 # TIME1 IS INCREMENTED, THEN IT WILL
008766,000907: 11,3134 55512 LONGER TS TIMAR # SNATCH THE MISSION TIME REGS AND STORE
008767,000908: 11,3135 41506 CS TIMESAV # THEN IN TIMESAV FOR LATER ISE IN ARITH.
008768,000909: 11,3136 60025 AD TIME1 # OPERATIONS WHICH SHOULD FIND THE
008769,000910: 11,3137 00006 EXTEND # STANDING DIFFERENCE BETWEEN THE SCALAR
008770,000911: 11,3140 13145 BZF CHKTIME # AND THE TIME1-TIME2S REGS.
008771,000912:
008772,000913: 11,3141 00006 EXTEND
008773,000914: 11,3142 30025 DCA TIME2 # READ AND STORE THE DP TIME AND GO
008774,000915: 11,3143 53507 DXCH TIMESAV # READ THE SCALAR USING THE EXISTING PROG
008775,000916: 11,3144 13153 TCF CATCHFIN # FINETIME.
008776,000917:
008777,000918: 11,3145 11512 CHKTIME CCS TIMAR # MUST WATCH THE TIME SPENT IN INHINT OR
008778,000919: 11,3146 03134 TC LONGER # THE COPS MIGHT CATCH US.
008779,000920: 11,3147 00003 RELINT
008780,000921: 11,3150 10067 CCS NEWJOB
008781,000922: 11,3151 05550 TC CHANG1
008782,000923: 11,3152 03133 TC LONGER -1 # GO BACK AND LOOK AGAIN
008783,000924:
008784,000925: 11,3153 05015 CATCHFIN TC FINETIME # WILL READ CHANNELS 3 AND 4 AND RETURN
008785,000926: 11,3154 53511 DXCH SCALSAV # WITH 3 IN A AND 4 IN L..
008786,000927: 11,3155 00003 RELINT
008787,000928: 11,3156 47752 CS BIT4
008788,000929: 11,3157 70365 MASK IMODES30 # INHIBIT THE IMU FAIL LIGHT.
008789,000930: 11,3160 67752 AD BIT4
008790,000931: 11,3161 54365 TS IMODES30
008791,000932:
008792,000933: 11,3162 37752 CAF BIT4 # SET ALL CHAN 12 BITS EXCEPT C/A TO ZERO.
008793,000934: 11,3163 00006 EXTEND # THIS IS NECESSARY SO THAT THE GIMBALS DO
008794,000935: 11,3164 03012 WAND 12 # NOT DRIFT INTO GIMBALLOCK IF THE SYSTEM
008795,000936:
008796,000937: 11,3165 37752 CAF BIT4 # SHOULD BE IN OPERATE AT THE TIME STBY
008797,000938: 11,3166 00006 EXTEND # WAS STARTED. THIS SECTION WILL MAKE
008798,000939: 11,3167 05012 WOR 12 # SURE THE IMU IS IN C/A.....
008799,000940:
008800,000941: 11,3170 37743 CAF BIT11 # WHEN BIT 11 IS PRESENT IN CHANNEL 13 THE
008801,000942: 11,3171 00006 EXTEND # DSKY PB. CAN THEN ENERGIZE THE STANDBY
008802,000943: 11,3172 05013 WOR 13 # RELAY IN THE CGC PWR SUPPLIES....
|
|
Page 212 |
008804,000945: 11,3173 05605 TC ENDOFJOB # GO TO DUMMY JOB UNTIL YOU DIE...
008805,000946:
|
|
Page 213 |
008807,000948: # VB 61 RECOVER FROM STANDBY OPERATION
008808,000949:
008809,000950: # ROUTINE WRITTEN FOR TEST ROPES ONLY**** MUST BE UPDATED TO INCLUDE
008810,000951: # FLIGHT REQUIREMENTS FOR FLIGHT OPERATIONS SEQUENCES....
008811,000952:
008812,000953: 11,3174 35370 POSTAND CAF EBANK3 # COMES HERE FROM LST2FAN
008813,000954: 11,3175 56003 XCH EBANK # SET UP EBANK FOR BANK 3
008814,000955: 11,3176 05015 TC FINETIME
008815,000956:
008816,000957: 11,3177 53513 DXCH TIMAR # READ THE SCALAR AND SEE IF IT OVERFLOW-
008817,000958: 11,3200 00003 RELINT # ED WHILE THE CGC WAS IN STBY, IF SO
008818,000959: 11,3201 31512 CAE TIMAR # THE OVERFLOW MUST BE ADDED OR IT WILL
008819,000960: 11,3202 00006 EXTEND # SEEM THAT THE REALATIVITY THEORY WORKS
008820,000961: 11,3203 61510 SU SCALSAV # BETTER THAN IT SHOULD...
008821,000962: 11,3204 00006 EXTEND
008822,000963: 11,3205 63230 BZMF ADDTIME # IF ITS NEG. IT MUST HAVE OV:FLWD..
008823,000964:
008824,000965: 11,3206 06103 TC INTPRET
008825,000966: 11,3207 45345 DLOAD DSU # IF IT DID NOT OV-FLW. FIND OUT HOW LONG
008826,000967: 11,3210 01513 TIMAR # THE CGC WAS IN STBY BY SUBTRACTING THE
008827,000968: 11,3211 01511 SCALSAV # SCALAR AT THE START OF STBY FROM THE
008828,000969: 11,3212 47061 SRR RTB # SCALAR AT THE END OF STBY AND THEN ADD
008829,000970: 11,3213 21606 5 # THE DIFFERENCE TO THE TIME EXISTING
008830,000971: 11,3214 33565 SGNAGREE # WHEN THE SCALAR WAS READ AT STBY ENTRY**
008831,000972: 11,3215 77615 DAD
008832,000973: 11,3216 01507 TIMESAV
008833,000974: 11,3217 01513 STORE TIMAR
008834,000975: 11,3220 77776 EXIT
008835,000976:
008836,000977: 11,3221 00006 CORCTTIM EXTEND
008837,000978: 11,3222 31513 DCA TIMAR # THIS IS THE CORRECTED TIME TO BE READ
008838,000979: 11,3223 52025 DXCH TIME2 # INTO TIME1 AND TIME2 REGS. ADDR 24-25
008839,000980:
008840,000981: 11,3224 47743 CS BIT11
008841,000982: 11,3225 00006 EXTEND # DISABLE THE DSKY STBY PUSHBUTTON.
008842,000983: 11,3226 03013 WAND 13
008843,000984: 11,3227 05605 TC ENDOFJOB
008844,000985:
008845,000986: 11,3230 00006 ADDTIME EXTEND
008846,000987: 11,3231 37735 DCA DPOSMAX # IF THE SCALAR OVERFLOWED, FIND OUT HOW
008847,000988: 11,3232 53515 DXCH TIMEDIFF # MUCH TIME REMAINED WHEN READ THE FIRST
008848,000989: 11,3233 06103 TC INTPRET # TIME AND THEN ADD THE PRESENT READING-
008849,000990: 11,3234 45345 DLOAD DSU # WHICH WILL BE THE TOTAL TIME SPENT IN
008850,000991: 11,3235 01515 TIMEDIFF # STANDBY, TO WHICH THE TIME AT STBY
008851,000992: 11,3236 01511 SCALSAV # MAY BE ADDED TO FIND THE PRESENT TIME
008852,000993: 11,3237 54215 DAD SRR # CORRECT TO 10 MSEC..
008853,000994: 11,3240 01513 TIMAR # **** THE TIME IN STANDBY MODE MUST NOT
008854,000995: 11,3241 21606 5 # EXCEED 23 HOURS IF TIME IS TO BE
008855,000996: 11,3242 77615 DAD # CORRECTLY COMPUTED BY THIS ROUTINE.*****
008856,000997: 11,3243 01507 TIMESAV
008857,000998: 11,3244 01513 STORE TIMAR
|
|
Page 214 |
008859,001000: 11,3245 77776 EXIT
008860,001001: 11,3246 03221 TC CORCTTIM
008861,001002:
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc