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