Source Code
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120
BY NASA 2021106-031 DEC 7, 1967
THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED
FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE
UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.
|
008152,000002: ## Copyright: Public domain.
008153,000003: ## Filename: EXTENDED_VERBS.agc
008154,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst).
008155,000005: ## It is part of the source code for the Lunar Module's (LM)
008156,000006: ## Apollo Guidance Computer (AGC) for Apollo 5.
008157,000007: ## Assembler: yaYUL
008158,000008: ## Contact: Ron Burkey <info@sandroid.org>.
008159,000009: ## Website: www.ibiblio.org/apollo/index.html
008160,000010: ## Mod history: 2016-09-30 RSB Created draft version.
008161,000011: ## 2016-10-06 RSB Completed transcription.
008162,000012: ## 2016-10-30 MAS Corrected DESKBITS->DESCBITS.
008163,000013: ## 2016-10-31 RSB Typos.
008164,000014: ## 2016-11-01 RSB More typos.
008165,000015: ## 2016-11-02 RSB More typos.
008166,000016: ## 2016-12-04 RSB Proofed with octopus/ProoferComments and fixed various
008167,000017: ## comments, but the proofing process is not completed.
008168,000018: ## 2016-12-05 RSB Comment-proofing pass with octopus/ProoferComments completed;
008169,000019: ## changes made.
008170,000020: ## 2017-06-01 RSB Fixed some comment errors, mostly of whitespace, identified
008171,000021: ## in transcribing SUNBURST 37.
008172,000022:
|
|
Page 200
|
008174,000024: 11,2000 BANK 11
008175,000025: 11,2000 E5,1500 EBANK= OGC
008176,000026:
008177,000027: # FAN-OUT
008178,000028:
|
|
In the original hardcopy, each of the asterisks in the line below is actually a one-half (½) character.
|
008180,000030: # NOTE OF SPECIAL IMPORT CONCERNING RADAR **
008181,000031:
008182,000032: # SINCE 206 HAS NO RADARS, THE INTERRUPT LEAD IN AND T4RUPT SERVICE ROUTINES HAVE BEEN DISCONNECTED IN
008183,000033: # SUNBURST (REV 39). THEREFORE, THE FOLLOWING VERBS SHOULD NOT BE USED: 40 WITH NOUN 40, 41 WITH NOUN 40, 45,
008184,000034: # 46, AND SEQUENCES 13 AND 14 OF VERB 57.
008185,000035:
008186,000036: 11,2000 02070 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 40 ONLY)
008187,000037: 11,2001 02073 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
008188,000038: # 40 ONLY)
008189,000039: 11,2002 02204 TC IMUFINEK # VB42 FINE ALIGN IMU
008190,000040: 11,2003 02565 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
008191,000041: 11,2004 02066 TC ALM/END # VB44 SPARE
008192,000042: 11,2005 12126 TCF LRPOS2K # VB45 COMMAND LR TO POSITION 2.
008193,000043: 11,2006 02414 TC REGRSAMP # VB46 SAMPLE RADAR ONCE PER SECOND
008194,000044: 11,2007 02406 TC DOFCSTST # VB47 PERFORM LEM FCS TEST
008195,000045: 11,2010 02261 TC GOLOADLV # VB50 PLEASE PERFORM
008196,000046: 11,2011 02261 TC GOLOADLV # VB51 PLEASE MARK
008197,000047: 11,2012 02261 TC GOLOADLV # VB52 PLEASE MARK Y
008198,000048: 11,2013 02261 TC GOLOADLV # VB53 PLEASE MARK X OR Y.
008199,000049: 11,2014 02265 TC TORQGYRS # VB54 PULSE TORQUE GYROS
008200,000050: 11,2015 02302 TC ALINTIME # VB55 ALIGN TIME
008201,000051: 11,2016 02404 TC GOSHOSUM # VB56 PERFORM BANKSUM
008202,000052: 11,2017 02326 TC SYSTEST # VB57 PERFORM SYSTEM TEST
008203,000053: 11,2020 03121 TC PRESTAND # VB60 PREPARE FOR STANDBY
008204,000054: 11,2021 03167 TC POSTAND # VB61 RECOVER FROM STANDBY
008205,000055: 11,2022 02634 TC SETUPMSG # VB62 SCAM LEM INBITS
008206,000056: 11,2023 12530 TCF BEGINCDU # VB63 SEND SPECIAL CDU DOWNLIST
008207,000057: 11,2024 13266 TCF 64UPDAT # VB64 SET TIMER TO GROUND ELAPSED TIME
008208,000058: 11,2025 13242 TCF 65UPDAT # VB65 SET GUIDANCE REFERENCE RELEASE DISC
008209,000059: 11,2026 13246 TCF 66UPDAT # VB66 INITIATE LGC DFI TLM CALIBRATE RTN
008210,000060: 11,2027 13254 TCF 67UPDAT # VB67 SEND COMMAND TO LMP
008211,000061: 11,2030 13260 TCF 70UPDAT # VB70 SET MISSION TIMER
008212,000062: 11,2031 13262 TCF 71UPDAT # VB71 SET MISSION PHASE REGISTER
008213,000063: 11,2032 13270 TCF 72UPDAT # VB72 SET MISSION PHASE REGISTER + TIMER
008214,000064: 11,2033 13252 TCF 73UPDAT # VB73 RESET DPS OR RPS COLD SOAK DISC
008215,000065: 11,2034 13244 TCF 74UPDAT # VB74 STOP MISSION TIMERS
008216,000066: 11,2035 13301 TCF 75UPDAT # VB75 TARGET PARAMETER UPDATE
008217,000067: 11,2036 13274 TCF 76UPDAT # VB76 STATE VECTOR UPDATE
008218,000068: 11,2037 02066 TC ALM/END
008219,000069:
008220,000070: 11,2040 37761 TESTXACT CAF BIT3
008221,000071: 11,2041 70336 MASK EXTVBACT
008222,000072: 11,2042 10000 CCS A
008223,000073: 11,2043 02053 TC XACTALM
008224,000074:
|
|
Page 201
|
008226,000076: 11,2044 47761 XACT1 CS BIT3
008227,000077: 11,2045 00004 INHINT
008228,000078: 11,2046 70336 MASK EXTVBACT
008229,000079: 11,2047 67761 AD BIT3
008230,000080: 11,2050 54336 TS EXTVBACT
008231,000081: 11,2051 00003 RELINT
008232,000082: 11,2052 00002 TC Q
008233,000083:
008234,000084: 11,2053 04571 XACTALM TC FALTON
008235,000085: 11,2054 05567 TC ENDOFJOB
008236,000086:
008237,000087: 11,2055 04724 TERMEXTV TC FREEDSP # IF WE GET A TERMINATE INSTEAD OF A LOAD.
008238,000088:
008239,000089: 11,2056 02060 ENDEXTVB TC XACT0
008240,000090: 11,2057 05567 TC ENDOFJOB
008241,000091:
008242,000092: 11,2060 47761 XACT0 CS BIT3
008243,000093: 11,2061 00004 INHINT
008244,000094: 11,2062 70336 MASK EXTVBACT
008245,000095: 11,2063 54336 TS EXTVBACT
008246,000096: 11,2064 00003 RELINT
008247,000097: 11,2065 00002 XACT0Q TC Q
008248,000098:
008249,000099: 11,2066 04571 ALM/END TC FALTON
008250,000100: 11,2067 02056 TC ENDEXTVB
008251,000101:
008252,000102:
008253,000103: 11,2070 02076 VBZERO TC OP/INERT
008254,000104: 11,2071 02110 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
008255,000105: 11,2072 02117 TC RRZEROK # RETURN HERE IF NOUN = RCDU(40)
008256,000106:
008257,000107: 11,2073 02076 VBCOARK TC OP/INERT
008258,000108: 11,2074 02132 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
008259,000109: 11,2075 02234 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (40)
008260,000110:
008261,000111: # RETURNS TO L+1 IF IMU OR L+2 IF RR.
008262,000112:
008263,000113: 11,2076 47757 OP/INERT CS BIT5 # OCT20
008264,000114: 11,2077 60273 AD NOUNREG
008265,000115: 11,2100 00006 EXTEND
008266,000116: 11,2101 12065 BZF XACT0Q # IF = 20.
008267,000117:
008268,000118: 11,2102 24002 INCR Q
008269,000119: 11,2103 62107 AD RRIMUDIF # = -20 OCT.
008270,000120: 11,2104 00006 EXTEND
008271,000121: 11,2105 12065 BZF XACT0Q
008272,000122:
|
|
Page 202
|
008274,000124: 11,2106 02066 TC ALM/END # ILLEGAL.
008275,000125:
008276,000126: 11,2107 77757 RRIMUDIF OCT -20
008277,000127:
|
|
Page 203
|
008279,000129: # KEYBOARD REQUEST TO ZERO IMU ENCODERS
008280,000130:
008281,000131: 11,2110 02040 IMUZEROK TC TESTXACT # ZERO ENCODERS.
008282,000132: 11,2111 05206 TC BANKCALL
008283,000133: 11,2112 26000 CADR IMUZERO
008284,000134:
008285,000135: 11,2113 05206 TC BANKCALL # STALL
008286,000136: 11,2114 26751 CADR IMUSTALL
008287,000137: 11,2115 02116 TC +1
008288,000138:
008289,000139: 11,2116 02056 TC ENDEXTVB
008290,000140: 11,2117 02040 RRZEROK TC TESTXACT
008291,000141: 11,2120 05206 TC BANKCALL # ZERO RR CDUS.
008292,000142: 11,2121 20250 CADR RRZERO
008293,000143:
008294,000144: 11,2122 05206 RWAITK TC BANKCALL
008295,000145: 11,2123 26745 CADR RADSTALL
008296,000146: 11,2124 12125 TCF +1
008297,000147: 11,2125 12056 TCF ENDEXTVB
008298,000148:
008299,000149: 11,2126 02040 LRPOS2K TC TESTXACT # COMMAND LR TO POSITION 2.
008300,000150: 11,2127 05206 TC BANKCALL
008301,000151: 11,2130 21162 CADR LRPOS2
008302,000152: 11,2131 12122 TCF RWAITK
008303,000153:
|
|
Page 204
|
008305,000155: # KEYBOARD REQUEST TO COARSE ALIGN THE IMU
008306,000156:
008307,000157: 11,2132 02040 IMUCOARK TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
008308,000158: 11,2133 04644 TC GRABWAIT
008309,000159: 11,2134 32152 CAF VNLODCDU # CALL FOR THETAD LOAD
008310,000160: 11,2135 04657 TC NVSBWAIT
008311,000161: 11,2136 04475 TC ENDIDLE # STALL WAITING FOR THE LOAD
008312,000162: 11,2137 02055 TC TERMEXTV
008313,000163: 11,2140 02154 TC ICSDEL # PROCEED - ASK FOR INCREMENTAL LOAD.
008314,000164:
008315,000165: 11,2141 32153 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
008316,000166: 11,2142 04657 TC NVSBWAIT
008317,000167: 11,2143 04724 TC FREEDSP # RELEASE THE DISPLAYS
008318,000168:
008319,000169: 11,2144 05206 TC BANKCALL # CALL MODE SWITCHING PROG
008320,000170: 11,2145 26065 CADR IMUCOARS
008321,000171:
008322,000172: 11,2146 05206 TC BANKCALL # STALL
008323,000173: 11,2147 26751 CADR IMUSTALL
008324,000174: 11,2150 02056 TC ENDEXTVB
008325,000175: 11,2151 02056 TC ENDEXTVB
008326,000176:
008327,000177: 11,2152 02522 VNLODCDU OCT 02522
008328,000178: 11,2153 04100 IMUCOARV OCT 04100
008329,000179:
|
|
Page 205
|
008331,000181: # PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
008332,000182:
008333,000183: 11,2154 32202 ICSDEL CAF DELLOAD
008334,000184: 11,2155 04657 TC NVSBWAIT # REQUEST LOAD OF DELTA ICDU ANGLES.
008335,000185: 11,2156 04475 TC ENDIDLE
008336,000186: 11,2157 02055 TC TERMEXTV
008337,000187: 11,2160 02141 TC ICORK2 # PROCEED WITHOUT DATA HERE TOO.
008338,000188: 11,2161 02163 TC INCLOOP # LOOP TO INCREMENT THETAD FROM DSPTEM2.
008339,000189: 11,2162 02141 TC ICORK2 # RE-DISPLAY COARSE ALIGN VERB.
008340,000190:
008341,000191: 11,2163 56002 INCLOOP XCH Q # INCREMENTS THETADS IN 2S COMPLEMENT FROM
008342,000192: 11,2164 54144 TS MPAC # THREE ANGLE INCREMENTS IN DSPTEM2S.
008343,000193: 11,2165 32203 CAF LTHD+2
008344,000194: 11,2166 54120 TS BUF # SET UP FOR CDUINC.
008345,000195: 11,2167 37762 CAF TWO # THREE TIMES THROUGH.
008346,000196:
008347,000197: 11,2170 54145 INCLOOP2 TS MPAC +1
008348,000198: 11,2171 50000 INDEX A
008349,000199: 11,2172 56342 XCH DSPTEM2 # INCREMENT TO TEM2 FOR CDUINC.
008350,000200: 11,2173 05206 TC BANKCALL
008351,000201: 11,2174 33602 CADR CDUINC
008352,000202: 11,2175 10120 CCS BUF
008353,000203: 11,2176 54120 TS BUF
008354,000204: 11,2177 10145 CCS MPAC +1
008355,000205: 11,2200 02170 TC INCLOOP2
008356,000206:
008357,000207: 11,2201 00144 TC MPAC # RETURN WHEN FINISHED.
008358,000208:
008359,000209: 11,2202 02523 DELLOAD OCT 02523
008360,000210: 11,2203 00402 LTHD+2 ADRES THETAD +2
008361,000211:
|
|
Page 206
|
008363,000213: # KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
008364,000214:
008365,000215: 11,2204 02040 IMUFINEK TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
008366,000216: 11,2205 04644 TC GRABWAIT
008367,000217: 11,2206 32232 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
008368,000218: 11,2207 04657 TC NVSBWAIT
008369,000219: 11,2210 04475 TC ENDIDLE # HOLD UP FOR THE DATA LOAD
008370,000220: 11,2211 02055 TC TERMEXTV
008371,000221: 11,2212 02213 TC +1 # PROCEED WITHOUT A LOAD
008372,000222:
008373,000223: 11,2213 32233 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
008374,000224: 11,2214 04657 TC NVSBWAIT
008375,000225: 11,2215 04724 TC FREEDSP # RELEASE DISPLAYS
008376,000226:
008377,000227: 11,2216 05206 TC BANKCALL # CALL MODE SWITCH PROG
008378,000228: 11,2217 26252 CADR IMUFINE
008379,000229:
008380,000230: 11,2220 05206 TC BANKCALL # HIBERNATION
008381,000231: 11,2221 26751 CADR IMUSTALL
008382,000232: 11,2222 02056 TC ENDEXTVB
008383,000233:
008384,000234: 11,2223 32300 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
008385,000235: 11,2224 05206 TC BANKCALL
008386,000236: 11,2225 26362 CADR IMUPULSE
008387,000237:
008388,000238: 11,2226 05206 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
008389,000239: 11,2227 26751 CADR IMUSTALL
008390,000240: 11,2230 02056 TC ENDEXTVB
008391,000241: 11,2231 02056 TC ENDEXTVB
008392,000242:
008393,000243: 11,2232 02567 VNLODGYR OCT 02567
008394,000244: 11,2233 04200 IMUFINEV OCT 04200 # FINE ALIGN VERB
008395,000245:
|
|
Page 207
|
008397,000247: # DESIGNATE TO DESIRED GIMBAL ANGLES.
008398,000248:
008399,000249: 11,2234 02040 RRDESNBK TC TESTXACT
008400,000250: 11,2235 04644 TC GRABWAIT
008401,000251: 11,2236 32255 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
008402,000252: 11,2237 04657 TC NVSBWAIT
008403,000253: 11,2240 04475 TC ENDIDLE # WAIT FOR THE LOAD
008404,000254: 11,2241 02055 TC TERMEXTV
008405,000255: 11,2242 02243 TC +1 # PROCEED
008406,000256:
008407,000257: 11,2243 05206 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
008408,000258: 11,2244 22760 CADR AURLOKON
008409,000259:
008410,000260: 11,2245 32153 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
008411,000261: 11,2246 04657 TC NVSBWAIT
008412,000262: 11,2247 00004 INHINT # FIRE UP JOB TO DO DESIGNATE.
008413,000263: 11,2250 37746 CAF PRIO20
008414,000264: 11,2251 05516 TC FINDVAC
008415,000265: 11,2252 E5,1500 EBANK= OGC
008416,000266: 11,2252 02256 22065 2CADR RRDESK2
008417,000267:
008418,000268: 11,2254 12055 TCF TERMEXTV # FREES DISPLAY.
008419,000269:
008420,000270: 11,2255 02441 VNLDRCDU OCT 2441
008421,000271: 11,2256 11,2153 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
008422,000272:
008423,000273: 11,2256 05206 RRDESK2 TC BANKCALL
008424,000274: 11,2257 20364 CADR RRDESNB
008425,000275:
008426,000276: 11,2260 02122 TC RWAITK
008427,000277:
008428,000278: # PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
008429,000279: # ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
008430,000280: # LOAD. OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
008431,000281: # PERFORM THE REQUESTED ACTION.
008432,000282:
008433,000283: 11,2261 04626 GOLOADLV TC FLASHOFF
008434,000284: 11,2262 02060 TC XACT0
008435,000285: 11,2263 05225 TC POSTJUMP
008436,000286: 11,2264 12002 CADR LOADLV1
008437,000287:
|
|
Page 208
|
008439,000289: # KEYBOARD REQUEST TO PULSE TORQUE IRIGA
008440,000290:
008441,000291: 11,2265 02040 TORQGYRS TC TESTXACT # GYRO TORQUING WITH NO MODE-SWITCH.
008442,000292: 11,2266 04644 TC GRABWAIT
008443,000293: 11,2267 32232 CAF VNLODGYR
008444,000294: 11,2270 04657 TC NVSBWAIT
008445,000295: 11,2271 04475 TC ENDIDLE
008446,000296: 11,2272 02055 TC TERMEXTV
008447,000297: 11,2273 02274 TC +1
008448,000298: 11,2274 32301 CAF TORQGYRV # RE-DISPLAY OUR OWN VERB
008449,000299: 11,2275 04657 TC NVSBWAIT
008450,000300: 11,2276 04724 TC FREEDSP
008451,000301: 11,2277 12223 TCF FINEK2
008452,000302:
008453,000303: 11,2300 00403 LGYROBIN ECADR DELVX
008454,000304: 11,2301 05400 TORQGYRV OCT 05400
008455,000305:
|
|
Page 209
|
008457,000307: # ALIGN TIME
008458,000308:
008459,000309: 11,2302 32325 ALINTIME CAF VNLODDT # USES NVSUBMON. DOES NOT TEST DSPLOCK.
008460,000310: 11,2303 54113 TS NVTEMP # DOES NOT KILL MONITOR.
008461,000311: 11,2304 04460 TC NVSUBMON
008462,000312: 11,2305 05567 TC ENDOFJOB # IN CASE OF ALARM IN LOAD REQUEST SET UP.
008463,000313: 11,2306 04475 TC ENDIDLE
008464,000314: 11,2307 05567 TC ENDOFJOB # TERMINATE
008465,000315: 11,2310 05567 TC ENDOFJOB # PROCEED WITHOUT DATA
008466,000316: 11,2311 00004 INHINT # DELTA TIME IS IN DSPTEM1, +1.
008467,000317: 11,2312 37767 CAF ZERO
008468,000318: 11,2313 54146 TS MPAC +2 # NEEDED FOR TP AGREE
008469,000319: 11,2314 54001 TS L # ZERO T1 & T2 WHILE ALIGNING.
008470,000320: 11,2315 52025 DXCH TIME2
008471,000321: 11,2316 52145 DXCH MPAC
008472,000322: 11,2317 52340 DXCH DSPTEM1 # INCREMENT.
008473,000323: 11,2320 20145 DAS MPAC
008474,000324:
008475,000325: 11,2321 07327 TC TPAGREE # FORCE SIGN AGREEMENT.
008476,000326: 11,2322 52145 DXCH MPAC # NEW CLOCK.
008477,000327: 11,2323 20025 DAS TIME2
008478,000328: 11,2324 05567 TC ENDOFJOB
008479,000329:
008480,000330: 11,2325 02124 VNLODDT OCT 02124 # V/N FOR LOAD DELTA TIME
008481,000331:
|
|
Page 210
|
008483,000333: # SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
008484,000334:
008485,000335: 11,2326 E5,1546 EBANK= QPLACE
008486,000336:
008487,000337: 11,2326 10302 SYSTEST CCS MODREG # DEMAND MODE 00.
008488,000338: 11,2327 12053 TCF XACTALM
008489,000339:
008490,000340: 11,2330 04644 TC GRABWAIT
008491,000341: 11,2331 32403 REDO CAF LQPL # ASK FOR TEST OPTION (1 - 7).
008492,000342: 11,2332 54146 TS MPAC +2
008493,000343: 11,2333 32402 CAF TESTNV
008494,000344: 11,2334 04657 TC NVSBWAIT
008495,000345: 11,2335 04475 TC ENDIDLE
008496,000346: 11,2336 05566 TC EJFREE
008497,000347: 11,2337 02331 TC REDO
008498,000348:
008499,000349: 11,2340 04117 TC NEWMODEX
008500,000350: 11,2341 00005 OCT 5 # DISPLAY MAJOR MODE 5 - SYSTEM TESTS
008501,000351:
008502,000352: 11,2342 00004 INHINT
008503,000353: 11,2343 37746 CAF PRIO20
008504,000354: 11,2344 05516 TC FINDVAC
008505,000355: 11,2345 E5,1500 EBANK= OGC
008506,000356: 11,2345 02350 22065 2CADR TSELECT
008507,000357:
008508,000358: 11,2347 05567 TC ENDOFJOB # LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
008509,000359:
008510,000360: 11,2350 45343 TSELECT CS LOW4 # OCTAL 17 OPTIONS WITHOUT OPERATOR ERRO
008511,000361: 11,2351 61546 AD QPLACE
008512,000362: 11,2352 00006 EXTEND
008513,000363: 11,2353 62356 BZMF +3
008514,000364: 11,2354 04571 TC FALTON
008515,000365: 11,2355 02331 TC REDO
008516,000366: 11,2356 51546 INDEX QPLACE
008517,000367: 11,2357 32361 CAF TESTCADR
008518,000368: 11,2360 05230 TC BANKJUMP
008519,000369:
008520,000370: # DON'T USE 13 OR 14 (SEE NOTE ON USER'S PAGE 1).
008521,000371:
008522,000372: 11,2361 22066 TESTCADR CADR ALM/END # 0 ILLEGAL
008523,000373: 11,2362 50000 CADR IMUTEST # 1 GYRO DRIFT TEST
008524,000374: 11,2363 50025 CADR IMUBACK # 2 REPEAT OF IMUTEST
008525,000375: 11,2364 30000 CADR AOTNBIMU # 3 IMU ALIGNMENT TEST
008526,000376: 11,2365 50252 CADR OPCHK # 4 IMU CHECK
008527,000377: 11,2366 50451 CADR GYRSFTST # 5 GYRO TORQUING TEST
008528,000378: 11,2367 22066 CADR ALM/END # 6 AVAILABLE
008529,000379: 11,2370 73351 CADR GTSCPSS # 7. GYROCOMPASS
008530,000380: 11,2371 46556 CADR SAMODCHK # 10 SEMI-AUTOMATIC MODING CHECK
008531,000381: 11,2372 31347 CADR SAUTOIFS # 11 SEMI-AUTOMATIC INTERFACE TEST
008532,000382: 11,2373 31605 CADR AOTANGCK # 12 AOT ANGLE CHECK
|
|
Page 211
|
008534,000384: 11,2374 31143 CADR RDRINIT # 13 RENDEZVOUS RADAR / ANTENNAE TRACKING
008535,000385: 11,2375 22410 CADR FSTRSAMP # 14 HIGH SPEED RADAR SAMPLING.
008536,000386:
008537,000387: 11,2376 31636 CADR ZEROERAS
008538,000388: 11,2377 23007 CADR DISINDT # DISPLAY INERTIAL DATA TEST.
008539,000389: 11,2400 22066 CADR ALM/END
008540,000390: 11,2401 22066 CADR ALM/END
008541,000391: 11,2402 02101 TESTNV OCT 2101
008542,000392: 11,2403 02546 LQPL ECADR QPLACE
008543,000393: 11,2404 05225 GOSHOSUM TC POSTJUMP # START ROUTINE TO DISPLAY SUM OF EACH
008544,000394: 11,2405 77543 CADR SHOWSUM # BANK ON DSKY
008545,000395:
008546,000396: 11,2406 05225 DOFCSTST TC POSTJUMP
008547,000397: 11,2407 14736 CADR FCSSTART
008548,000398:
|
|
Page 212
|
008550,000400: # SET UP FOR RADAR SAMPLING.
008551,000401:
008552,000402: 11,2410 E7,1444 EBANK= RSTKLOC
008553,000403:
008554,000404: 11,2410 32477 FSTRSAMP CAF RSTKLIST # HIGH SPEED SAMPLING. SWITCH TO SPECIAL
008555,000405: 11,2411 54411 TS DNLSTADR # DOWNLIST.
008556,000406: 11,2412 47763 CS ONE # WANTS TM BUFFERING.
008557,000407: 11,2413 12416 TCF RSAMPTST
008558,000408:
008559,000409: 11,2414 04644 REGRSAMP TC GRABWAIT
008560,000410: 11,2415 35205 CAF 1SEC+1 # SHOWS NO TM BUFFERING.
008561,000411:
008562,000412: 11,2416 54146 RSAMPTST TS MPAC +2
008563,000413: 11,2417 00004 INHINT
008564,000414: 11,2420 42500 CS LRPOSCAL # INITIALIZE SCALE AND LR POSITION BITS.
008565,000415: 11,2421 70412 MASK RADMODES
008566,000416: 11,2422 54412 TS RADMODES
008567,000417:
008568,000418: 11,2423 32500 CAF LRPOSCAL
008569,000419: 11,2424 00006 EXTEND
008570,000420: 11,2425 02033 RAND 33
008571,000421: 11,2426 26412 ADS RADMODES
008572,000422:
008573,000423: 11,2427 00003 RELINT
008574,000424: 11,2430 32451 CAF LRTSTDEX
008575,000425: 11,2431 54003 TS EBANK
008576,000426: 11,2432 56146 XCH MPAC +2
008577,000427: 11,2433 55445 TS RSAMPDT # HI SPEED NNZ - LO SPEED PNZ.
008578,000428: 11,2434 37767 CAF ZERO
008579,000429: 11,2435 55444 TS RTSTLOC
008580,000430: 11,2436 55446 TS RFAILCNT # ZERO BAD SAMPLE COUNTER.
008581,000431: 11,2437 32475 CAF HISPMAX
008582,000432: 11,2440 55442 TS RTSTMAX
008583,000433:
008584,000434: 11,2441 32476 CAF RTSTNV
008585,000435: 11,2442 04657 TC NVSBWAIT
008586,000436: 11,2443 04475 TC ENDIDLE
008587,000437: 11,2444 05566 TC EJFREE # ON TERMINATE.
008588,000438: 11,2445 12501 TCF RSEMIAUT # PROCEED MEANS SEMI-AUTO SEQUENCING.
008589,000439: 11,2446 04724 RDRDFREE TC FREEDSP
008590,000440: 11,2447 11445 CCS RSAMPDT # SEE IF HI OR LO SPEED SAMPLING.
008591,000441: 11,2450 12454 TCF +4
008592,000442:
008593,000443: 11,2451 03441 LRTSTDEX ECADR RTSTDEX
008594,000444:
008595,000445: 11,2452 05225 TC POSTJUMP # EXEC. OTHERWISE, SET UP WAITLIST TIMING.
008596,000446: 11,2453 21301 CADR DORSAMP
008597,000447:
008598,000448: 11,2454 36306 CAF SIX # FIND OUT WHICH RADAR WANTED.
008599,000449: 11,2455 71441 MASK RTSTDEX
008600,000450:
|
|
Page 213
|
008602,000452: 11,2456 10000 CCS A
008603,000453: 11,2457 12463 TCF LRCYCLE # LANDING RADAR ARE SERIALS 2 - 5.
008604,000454:
008605,000455: 11,2460 55443 TS RTSTBASE # FOR RR BASE = 0, MAX = 1.
008606,000456: 11,2461 36306 CAF SIX
008607,000457: 11,2462 12466 TCF +4
008608,000458:
008609,000459: 11,2463 37762 LRCYCLE CAF TWO # FOR LR BASE = 2, MAX = 3.
008610,000460: 11,2464 55443 TS RTSTBASE
008611,000461: 11,2465 32474 CAF 18R
008612,000462:
008613,000463: 11,2466 55442 +4 TS RTSTMAX
008614,000464: 11,2467 00004 INHINT
008615,000465: 11,2470 05663 TC WAITLIST
008616,000466: 11,2471 E7,1444 EBANK= RSTKLOC
008617,000467: 11,2471 03261 20067 2CADR RADSAMP
008618,000468:
008619,000469: 11,2473 05567 TC ENDOFJOB
008620,000470:
008621,000471: 11,2474 00022 18R DEC 18 B-14
008622,000472: 11,2475 00102 HISPMAX DEC 66 B-14
008623,000473: 11,2476 02101 RTSTNV OCT 2101
008624,000474: 11,2477 02236 RSTKLIST GENADR UPDNLIST
008625,000475: 11,2500 00444 LRPOSCAL OCT 444
008626,000476:
|
|
Page 214
|
008628,000478: # SEMI-AUTO RADAR TESTING.
008629,000479:
008630,000480: 11,2501 00004 RSEMIAUT INHINT
008631,000481: 11,2502 35647 CAF PRIO25 # START HI SPEED SAMPLING.
008632,000482: 11,2503 05505 TC NOVAC
008633,000483: 11,2504 E7,1444 EBANK= RSTKLOC
008634,000484: 11,2504 03301 20067 2CADR DORSAMP
008635,000485:
008636,000486: 11,2506 00003 RELINT
008637,000487: 11,2507 37766 CAF FIVE # SEQUENCE THROUGH ALL SIX CHANNELS.
008638,000488: 11,2510 55441 -1 TS RTSTDEX
008639,000489:
008640,000490: 11,2511 32527 33PASTE CAF RV33 # ON ENTER, SWITCH TO NEXT CHANNEL.
008641,000491: 11,2512 04657 TC NVSBWAIT
008642,000492: 11,2513 04622 TC FLASHON
008643,000493: 11,2514 04475 TC ENDIDLE
008644,000494: 11,2515 02522 TC ENDRTST # ON TERMINATE.
008645,000495: 11,2516 12520 TCF +2
008646,000496: 11,2517 12511 TCF 33PASTE # DONT ACCEPT DATA.
008647,000497:
008648,000498: 11,2520 11441 CCS RTSTDEX
008649,000499: 11,2521 12510 TCF 33PASTE -1
008650,000500:
008651,000501: 11,2522 37767 ENDRTST CAF ZERO # ENDTEST.
008652,000502: 11,2523 55445 TS RSAMPDT
008653,000503: 11,2524 04117 TC NEWMODEX
008654,000504: 11,2525 00000 OCT 0
008655,000505: 11,2526 05566 TC EJFREE
008656,000506:
008657,000507: 11,2527 03300 RV33 OCT 3300
008658,000508:
|
|
Page 215
|
008660,000510: # JOB TO: 1) TURN OFF USE OF TRIM GIMBAL. 2) 5 SECONDS LATER, TURN OFF DAP, & SET UP SPECIAL DOWN-LINK
008661,000511: # PROGRAM TO TRANSMIT A STEADY LIST OF CDUY & Z. THE DOWN-LINK PROGRAM ALSO HAS THE DUTY OF TURNING THE DAP BACK
008662,000512: # ON AND ENABLING USE OF THE TRIM GIMBAL AGAIN.
008663,000513:
008664,000514: 11,2530 00004 BEGINCDU INHINT
008665,000515: 11,2531 32564 CA FIVESECS # TURN OFF DAP IN 5 SECS
008666,000516: 11,2532 05663 TC WAITLIST
008667,000517: 11,2533 E7,1407 EBANK= DNTMBUFF
008668,000518: 11,2533 02552 22067 2CADR DAPOFF
008669,000519:
008670,000520: 11,2535 31310 CA DVSELECT # SAVE OLD CONTENTS OF DVSELECT.
008671,000521: 11,2536 55346 TS OLDDVSEL
008672,000522:
008673,000523: 11,2537 04161 TC PHASCHNG
008674,000524: 11,2540 40026 OCT 40026 # 6.2 FOR DAPOFF TASK & TGOFF JOB.
008675,000525:
008676,000526: 11,2541 00004 TGOFF INHINT
008677,000527: 11,2542 40077 CS DAPBOOLS # INHIBIT USE OF TRIM GIMBAL IMMEDIATELY.
008678,000528: 11,2543 77762 MASK USEQRJTS
008679,000529: 11,2544 26077 ADS DAPBOOLS
008680,000530:
008681,000531: 11,2545 32562 CA LPNGSMON # PREVENT GIMBLMON FROM TURNING TRIM
008682,000532: 11,2546 55310 TS DVSELECT # GIMBAL BACK ON.
008683,000533:
008684,000534: 11,2547 04161 TC PHASCHNG
008685,000535: 11,2550 00036 OCT 00036 # 6.3 FOR DAPOFF TASK.
008686,000536:
008687,000537: 11,2551 15567 TCF ENDOFJOB
008688,000538:
008689,000539: 11,2552 E7,1407 EBANK= DNTMBUFF
008690,000540:
008691,000541: 11,2552 32563 DAPOFF CA LDNCDUS # SET DNTMGOTO TO INITIATE THE SENDING OF
008692,000542: 11,2553 55401 TS DNTMGOTO # CDUY & Z.
008693,000543:
008694,000544: 11,2554 47751 CS GODAPGO # TURNING OFF GODAPGO TURNS OFF DAP.
008695,000545: 11,2555 70077 MASK DAPBOOLS
008696,000546: 11,2556 54077 TS DAPBOOLS
008697,000547:
008698,000548: 11,2557 04161 TC PHASCHNG
008699,000549: 11,2560 00006 OCT 00006
008700,000550:
008701,000551: 11,2561 15727 TCF TASKOVER
008702,000552:
008703,000553: 11,2562 02237 LPNGSMON GENADR PGNCSMON
008704,000554: 11,2563 02354 LDNCDUS GENADR DNCDUS
008705,000555: 11,2564 00764 FIVESECS DEC 500 B-14
008706,000556:
|
|
Page 216
|
008708,000558: # VB 43 IMU ATTITUDE ERROR METER LOADER.
008709,000559:
008710,000560: 11,2565 02040 IMUATTCK TC TESTXACT
008711,000561: 11,2566 42631 CS OCT50K # REMOVE COARSE AND ECTR ENABLE.
008712,000562: 11,2567 00006 EXTEND
008713,000563: 11,2570 03012 WAND 12
008714,000564:
008715,000565: 11,2571 04644 TC GRABWAIT
008716,000566: 11,2572 32152 CAF VNLODCDU
008717,000567: 11,2573 04657 TC NVSBWAIT
008718,000568: 11,2574 04475 TC ENDIDLE
008719,000569: 11,2575 02055 TC TERMEXTV
008720,000570: 11,2576 02577 TC +1
008721,000571: 11,2577 32632 CAF V43K # REDISPLAY OUR VERB.
008722,000572: 11,2600 04657 TC NVSBWAIT
008723,000573: 11,2601 37756 CAF BIT6 # ENABLE ERROR COUNTER.
008724,000574: 11,2602 00006 EXTEND
008725,000575: 11,2603 05012 WOR 12
008726,000576: 11,2604 37762 CAF TWO
008727,000577: 11,2605 00004 INHINT
008728,000578: 11,2606 05663 TC WAITLIST # PUT OUT COMMAND IN .32 SECS.
008729,000579: 11,2607 E7,1444 EBANK= RSTKLOC
008730,000580: 11,2607 02612 22067 2CADR ATTCK2
008731,000581:
008732,000582: 11,2611 12055 TCF TERMEXTV # FREES DISPLAY.
008733,000583:
008734,000584: 11,2612 37762 ATTCK2 CAF TWO # PUT OUT ALL COMMANDS - CDU WILL DO LIMIT
008735,000585: 11,2613 54002 TS Q # INCASE OF EXCESS DATA.
008736,000586: 11,2614 50000 INDEX A
008737,000587: 11,2615 30400 CA THETAD
008738,000588: 11,2616 00006 EXTEND
008739,000589: 11,2617 77747 MP BIT13 # SHIFT RIGHT 2.
008740,000590: 11,2620 67770 AD NEG0 # PREVENT +0 IN OUTPUT COUNTER
008741,000591: 11,2621 50002 INDEX Q
008742,000592: 11,2622 54050 TS CDUXCMD
008743,000593: 11,2623 10002 CCS Q
008744,000594: 11,2624 12613 TCF ATTCK2 +1
008745,000595:
008746,000596: 11,2625 32633 CAF OCT70K
008747,000597: 11,2626 00006 EXTEND
008748,000598: 11,2627 05014 WOR 14
008749,000599: 11,2630 15727 TCF TASKOVER
008750,000600:
008751,000601: 11,2631 00050 OCT50K OCT 50
008752,000602: 11,2632 04300 V43K OCT 4300
008753,000603: 11,2633 70000 OCT70K OCT 70000
008754,000604:
|
|
Page 217
|
008756,000606: # PROGRAM TO SCAN CHANNELS 30 - 32 FOR CHANGES IN SELECTED INBITS. CALLED BY SPECIAL VERB.
008757,000607:
008758,000608: 11,2634 E7,1562 EBANK= MSGCNT
008759,000609:
008760,000610: 11,2634 37763 SETUPMSG CAF BIT1 # BEGIN SCAN.
008761,000611: 11,2635 00004 INHINT
008762,000612: 11,2636 05663 TC WAITLIST
008763,000613: 11,2637 E7,1444 EBANK= RSTKLOC
008764,000614: 11,2637 02644 22067 2CADR MSGSCAN +2
008765,000615:
008766,000616: 11,2641 05567 TC ENDOFJOB
008767,000617:
008768,000618: 11,2642 05701 MSGSCAN TC FIXDELAY
008769,000619: 11,2643 00062 DEC 50 B-14
008770,000620:
008771,000621: 11,2644 37762 CAF TWO # SCAN ALL 3 CHANNELS FOR CHANGES.
008772,000622: 11,2645 55562 TS MSGCNT
008773,000623: 11,2646 50000 INDEX A
008774,000624: 11,2647 31557 CA LAST30 # OLD VALUE OF INBITS.
008775,000625: 11,2650 00006 EXTEND
008776,000626: 11,2651 51562 INDEX MSGCNT
008777,000627: 11,2652 06030 RXOR 30
008778,000628: 11,2653 51562 INDEX MSGCNT
008779,000629: 11,2654 72703 MASK 30MSGMSK
008780,000630: 11,2655 00006 EXTEND
008781,000631: 11,2656 12700 BZF NOMSG
008782,000632:
008783,000633: 11,2657 54002 TS Q # SAVE DIFFERENCE.
008784,000634: 11,2660 51562 INDEX MSGCNT
008785,000635: 11,2661 23557 LXCH LAST30 # UPDATE OLD VALUE.
008786,000636: 11,2662 00006 EXTEND
008787,000637: 11,2663 06001 RXOR L
008788,000638: 11,2664 51562 INDEX MSGCNT
008789,000639: 11,2665 55557 TS LAST30
008790,000640:
008791,000641: 11,2666 40000 COM
008792,000642: 11,2667 56002 XCH Q
008793,000643: 11,2670 70002 MASK Q # SEE IF ANY OF CHANGED BITS JUST ON.
008794,000644: 11,2671 00006 EXTEND
008795,000645: 11,2672 12700 BZF NOMSG # NO MESSAGE IF SO.
008796,000646:
008797,000647: # NO ROTATIONAL HAND CONTROLLER IN 206.
008798,000648:
008799,000649: 11,2673 32706 NOTRHC CAF OKT30
008800,000650: 11,2674 61562 AD MSGCNT
008801,000651: 11,2675 54071 TS RUPTREG2
008802,000652:
008803,000653: 11,2676 40002 CS Q
008804,000654: 11,2677 02724 TC VMESSAGE
008805,000655:
|
|
Page 218
|
008807,000657: 11,2700 11562 NOMSG CCS MSGCNT
008808,000658: 11,2701 12645 TCF MSGSCAN +3
008809,000659: 11,2702 12642 TCF MSGSCAN
008810,000660:
008811,000661: 11,2703 00017 30MSGMSK OCT 17
008812,000662: 11,2704 77777 OCT 77777
008813,000663: 11,2705 03777 OCT 3777
008814,000664:
008815,000665: 11,2706 00030 OKT30 OCT 30
008816,000666: 11,2707 02717 DESCBITS TC MESSAGE # DESCENT BITS COME HERE IN A.
008817,000667: 11,2710 00016 OCT 16
008818,000668: 11,2711 05733 TC RESUME
008819,000669:
008820,000670: 11,2712 04644 RHCMON TC GRABWAIT # FIRE UP DSKY MONITOR.
008821,000671: 11,2713 32716 CAF RHCMONVN
008822,000672: 11,2714 04657 TC NVSBWAIT
008823,000673: 11,2715 05566 TC EJFREE
008824,000674:
008825,000675: 11,2716 01645 RHCMONVN OCT 1645
008826,000676:
|
|
Page 219
|
008828,000678: # MESSAGE DISPLAY - 3 COMPONENT OCTAL.
008829,000679:
008830,000680: 11,2717 54071 MESSAGE TS RUPTREG2 # NEW CHANNEL CONTENTS ARRIVE IN A.
008831,000681: 11,2720 50002 INDEX Q # CHANNEL NUMBER IN OCTAL AT CALLER +1.
008832,000682: 11,2721 30000 CAF 0
008833,000683: 11,2722 24002 INCR Q
008834,000684: 11,2723 56071 XCH RUPTREG2
008835,000685:
008836,000686: 11,2724 54070 VMESSAGE TS RUPTREG1 # FOR VARIABLE CHANNEL.
008837,000687: 11,2725 00006 EXTEND
008838,000688: 11,2726 22072 QXCH RUPTREG3
008839,000689: 11,2727 35651 CAF PRIO27 # FIRE UP SPECIAL JOB.
008840,000690: 11,2730 05505 TC NOVAC
008841,000691: 11,2731 E7,1444 EBANK= RSTKLOC
008842,000692: 11,2731 02742 22067 2CADR DOMSG
008843,000693:
008844,000694: 11,2733 52071 DXCH RUPTREG1 # NEW CONTENTS TO MPAC - CHANNEL NUMBER TO
008845,000695: 11,2734 50064 INDEX LOCCTR # MPAC +1.
008846,000696: 11,2735 52145 DXCH MPAC
008847,000697: 11,2736 30025 CA TIME1
008848,000698: 11,2737 50064 INDEX LOCCTR
008849,000699: 11,2740 54146 TS MPAC +2
008850,000700: 11,2741 00072 TC RUPTREG3
008851,000701:
008852,000702: 11,2742 04644 DOMSG TC GRABWAIT
008853,000703: 11,2743 00006 EXTEND
008854,000704: 11,2744 30145 DCA MPAC
008855,000705: 11,2745 52340 DXCH DSPTEM1
008856,000706: 11,2746 30146 CA MPAC +2
008857,000707: 11,2747 54341 TS DSPTEM1 +2
008858,000708: 11,2750 32757 CAF MSGVN
008859,000709: 11,2751 04444 TC NVSUB
008860,000710: 11,2752 12754 TCF MSGBUSY
008861,000711: 11,2753 05566 TC EJFREE
008862,000712:
008863,000713: 11,2754 32756 MSGBUSY CAF +2
008864,000714: 11,2755 04654 TC NVSUBUSY
008865,000715: 11,2756 22743 CADR DOMSG +1
008866,000716:
008867,000717: 11,2757 00535 MSGVN OCT 0535
008868,000718:
|
|
Page 220
|
008870,000720: # ROUTINE FOR AURORA ONLY TO ASK OPERATOR IF RR LOCK ON REQUESTED.
008871,000721:
008872,000722: 11,2760 05235 AURLOKON TC MAKECADR
008873,000723: 11,2761 54426 TS DESRET
008874,000724: 11,2762 32527 CAF RV33 # ASSUMES DSKY GRABBED.
008875,000725: 11,2763 04657 TC NVSBWAIT
008876,000726: 11,2764 04622 TC FLASHON
008877,000727: 11,2765 04475 TC ENDIDLE
008878,000728: 11,2766 12771 TCF +3 # ON TERM.
008879,000729: 11,2767 37757 CAF LOKONFLG
008880,000730: 11,2770 12772 TCF +2
008881,000731: 11,2771 37767 CAF ZERO
008882,000732: 11,2772 00004 INHINT
008883,000733: 11,2773 56074 XCH STATE
008884,000734: 11,2774 73006 MASK -LOKONFG
008885,000735: 11,2775 26074 ADS STATE
008886,000736:
008887,000737: 11,2776 77757 MASK LOKONFLG # IF NO LOCK-ON CALLED FOR, SET BIT15 OF
008888,000738: 11,2777 10000 CCS A # RADMODES TO INDICATE THAT ARBITRARILY-
008889,000739: 11,3000 13003 TCF +3 # LONG DESIGNATION IS WANTED (TO BE
008890,000740:
008891,000741: 11,3001 37745 CAF BIT15 # TERMINATED BY FRESH START).
008892,000742: 11,3002 26412 ADS RADMODES
008893,000743: 11,3003 00003 RELINT
008894,000744: 11,3004 30426 CA DESRET
008895,000745: 11,3005 15230 TCF BANKJUMP
008896,000746:
008897,000747: 11,3006 77757 -LOKONFG OCT -20
008898,000748:
|
|
Page 221
|
008900,000750: # PROGRAM TO RUN DISPLAY INERTIAL DATA TEST.
008901,000751:
008902,000752: 11,3007 33077 DISINDT CAF FLVELVN # ASK FOR FORWARD, LATERAL VELOCITY.
008903,000753: 11,3010 04657 TC NVSBWAIT
008904,000754: 11,3011 04475 TC ENDIDLE
008905,000755: 11,3012 13034 TCF ENDDISIN
008906,000756: 11,3013 13014 TCF +1
008907,000757: 11,3014 33100 CAF ALT,R,VN # ASK FOR INITIAL AND FINIAL ALTITUDES AND
008908,000758: 11,3015 04657 TC NVSBWAIT # ALTITUDE RATE.
008909,000759: 11,3016 04475 TC ENDIDLE
008910,000760: 11,3017 13034 TCF ENDDISIN
008911,000761: 11,3020 13021 TCF +1
008912,000762:
008913,000763: 11,3021 00004 INHINT
008914,000764: 11,3022 47763 CS ONE
008915,000765: 11,3023 54350 TS DIDFLG
008916,000766:
008917,000767: 11,3024 00006 EXTEND
008918,000768: 11,3025 30352 DCA ALT # SO FOLLOWING MONITOR WORKS.
008919,000769: 11,3026 52364 DXCH ALTSAVE
008920,000770:
008921,000771: 11,3027 37763 CAF ONE
008922,000772: 11,3030 05663 TC WAITLIST
008923,000773: 11,3031 E7,1444 EBANK= RSTKLOC
008924,000774: 11,3031 03042 22067 2CADR DISINLUP +2
008925,000775:
008926,000776: 11,3033 15566 TCF EJFREE
008927,000777:
008928,000778: 11,3034 04724 ENDDISIN TC FREEDSP
008929,000779: 11,3035 04117 +1 TC NEWMODEX
008930,000780: 11,3036 00000 OCT 0
008931,000781:
008932,000782: 11,3037 05567 TC ENDOFJOB
008933,000783:
|
|
Page 222
|
008935,000785: # WATCH ALTSAVE FOR END OF PROBLEM.
008936,000786:
008937,000787: 11,3040 05701 DISINLUP TC FIXDELAY
008938,000788: 11,3041 00062 DEC 50 B-14
008939,000789:
008940,000790: 11,3042 00006 +2 EXTEND
008941,000791: 11,3043 30355 DCA FINALT
008942,000792: 11,3044 52062 DXCH ITEMP1
008943,000793: 11,3045 00006 EXTEND
008944,000794: 11,3046 40364 DCS ALTSAVE # LATEST ALTITUDE.
008945,000795: 11,3047 20062 DAS ITEMP1
008946,000796:
008947,000797: 11,3050 10061 CCS ITEMP1
008948,000798: 11,3051 13071 TCF +DIF
008949,000799: 11,3052 13054 TCF +2
008950,000800: 11,3053 13075 TCF -DIF
008951,000801:
008952,000802: 11,3054 10062 CCS ITEMP2
008953,000803: 11,3055 13071 TCF +DIF
008954,000804: 11,3056 13060 TCF +2
008955,000805: 11,3057 13075 TCF -DIF
008956,000806:
008957,000807: 11,3060 37767 DISINDUN CAF ZERO
008958,000808: 11,3061 54353 TS ALTRATE
008959,000809: 11,3062 52355 DXCH FINALT
008960,000810: 11,3063 52352 DXCH ALT
008961,000811: 11,3064 37746 CAF PRIO20
008962,000812: 11,3065 05505 TC NOVAC
008963,000813: 11,3066 E7,1444 EBANK= RSTKLOC
008964,000814: 11,3066 03035 22067 2CADR ENDDISIN +1
008965,000815:
008966,000816: 11,3070 15727 TCF TASKOVER
008967,000817:
008968,000818: 11,3071 30353 +DIF CA ALTRATE
008969,000819: 11,3072 00006 EXTEND
008970,000820: 11,3073 63060 BZMF DISINDUN
008971,000821: 11,3074 13040 TCF DISINLUP
008972,000822:
008973,000823: 11,3075 40353 -DIF CS ALTRATE
008974,000824: 11,3076 13072 TCF +DIF +1
008975,000825:
008976,000826: 11,3077 02444 FLVELVN OCT 2444
008977,000827: 11,3100 02564 ALT,R,VN OCT 2564
008978,000828:
008979,000829: 11,3101 00004 MINIMP INHINT
008980,000830: 11,3102 47752 CS BIT10 # BIT 10 OF DAPBOOLS INDICATES MINIMP MODE
008981,000831: 11,3103 70077 MASK DAPBOOLS
008982,000832: 11,3104 67752 AD BIT10
008983,000833: 11,3105 54077 TS DAPBOOLS # BIT 10 OF DAPBOOLS NOW PRESENT.
008984,000834: 11,3106 15567 TCF ENDOFJOB
008985,000835:
|
|
Page 223
|
008987,000837: 11,3107 00004 NOMINIMP INHINT
008988,000838: 11,3110 47752 CS BIT10
008989,000839: 11,3111 70077 MASK DAPBOOLS
008990,000840: 11,3112 54077 TS DAPBOOLS # A ZERO IN POSITION 10 OF DAPBOOLS NOW.
008991,000841:
008992,000842: 11,3113 00006 EXTEND
008993,000843: 11,3114 30033 DCA CDUX
008994,000844: 11,3115 52767 DXCH CDUXD
008995,000845: 11,3116 30034 CA CDUZ
008996,000846: 11,3117 54770 TS CDUZD
008997,000847: 11,3120 15567 TCF ENDOFJOB
008998,000848:
|
|
Page 224
|
009000,000850: # VB 60 PREPARE FOR STANDBY OPERATION
009001,000851:
009002,000852: # ROUTINE WRITTEN FOR TEST ROPES ONLY*** MUST BE UPDATED TO INCLUDE
009003,000853: # FLIGHT REQUIREMENTS FOR FLIGHT OPERATION
009004,000854:
009005,000855: 11,3121 E3,1400 EBANK= LST1
009006,000856:
009007,000857: 11,3121 35352 PRESTAND CAF EBANK3 # COMES HERE FROM LST2FAN
009008,000858: 11,3122 56003 XCH EBANK # SET UP EBANK FOR BANK 3
009009,000859: 11,3123 00004 INHINT
009010,000860: 11,3124 30025 CA TIME1
009011,000861: 11,3125 55506 TS TIMESAV # THIS ROUTINE WILL LOOK AT TIME1 UNTIL
009012,000862: 11,3126 32706 CAF OKT30 # TIME1 IS INCREMENTED, THEN IT WILL
009013,000863: 11,3127 55512 LONGER TS TIMAR # SNATCH THE MISSION TIME REGS AND STORE
009014,000864: 11,3130 41506 CS TIMESAV # THEN IN TIMESAV FOR LATER ISE IN ARITH.
009015,000865: 11,3131 60025 AD TIME1 # OPERATIONS WHICH SHOULD FIND THE
009016,000866: 11,3132 00006 EXTEND # STANDING DIFFERENCE BETWEEN THE SCALAR
009017,000867: 11,3133 13140 BZF CHKTIME # AND THE TIME1-TIME2S REGS.
009018,000868:
009019,000869: 11,3134 00006 EXTEND
009020,000870: 11,3135 30025 DCA TIME2 # READ AND STORE THE DP TIME AND GO
009021,000871: 11,3136 53507 DXCH TIMESAV # READ THE SCALAR USING THE EXISTING PROG
009022,000872: 11,3137 13146 TCF CATCHFIN # FINETIME.
009023,000873:
009024,000874: 11,3140 11512 CHKTIME CCS TIMAR # MUST WATCH THE TIME SPENT IN INHINT OR
009025,000875: 11,3141 03127 TC LONGER # THE COPS MIGHT CATCH US.
009026,000876: 11,3142 00003 RELINT
009027,000877: 11,3143 10067 CCS NEWJOB
009028,000878: 11,3144 05532 TC CHANG1
009029,000879: 11,3145 03126 TC LONGER -1 # GO BACK AND LOOK AGAIN
009030,000880:
009031,000881: 11,3146 05026 CATCHFIN TC FINETIME # WILL READ CHANNELS 3 AND 4 AND RETURN
009032,000882: 11,3147 53511 DXCH SCALSAV # WITH 3 IN A AND 4 IN L..
009033,000883: 11,3150 00003 RELINT
009034,000884: 11,3151 47760 CS BIT4
009035,000885: 11,3152 70365 MASK IMODES30 # INHIBIT THE IMU FAIL LIGHT.
009036,000886: 11,3153 67760 AD BIT4
009037,000887: 11,3154 54365 TS IMODES30
009038,000888:
009039,000889: 11,3155 37760 CAF BIT4 # SET ALL CHAN 12 BITS EXCEPT C/A TO ZERO.
009040,000890: 11,3156 00006 EXTEND # THIS IS NECESSARY SO THAT THE GIMBALS DO
009041,000891: 11,3157 03012 WAND 12 # NOT DRIFT INTO GIMBALLOCK IF THE SYSTEM
009042,000892:
009043,000893: 11,3160 37760 CAF BIT4 # SHOULD BE IN OPERATE AT THE TIME STBY
009044,000894: 11,3161 00006 EXTEND # WAS STARTED. THIS SECTION WILL MAKE
009045,000895: 11,3162 05012 WOR 12 # SURE THE IMU IS IN C/A.....
009046,000896:
009047,000897: 11,3163 37751 CAF BIT11 # WHEN BIT 11 IS PRESENT IN CHANNEL 13 THE
009048,000898: 11,3164 00006 EXTEND # DSKY PB. CAN THEN ENERGIZE THE STANDBY
009049,000899: 11,3165 05013 WOR 13 # RELAY IN THE CGC PWR SUPPLIES....
|
|
Page 225
|
009051,000901: 11,3166 05567 TC ENDOFJOB # GO TO DUMMY JOB UNTIL YOU DIE...
009052,000902:
|
|
Page 226
|
009054,000904: # VB 61 RECOVER FROM STANDBY OPERATION
009055,000905:
009056,000906: # ROUTINE WRITTEN FOR TEST ROPES ONLY**** MUST BE UPDATED TO INCLUDE
009057,000907: # FLIGHT REQUIREMENTS FOR FLIGHT OPERATIONS SEQUENCES....
009058,000908:
009059,000909: 11,3167 35352 POSTAND CAF EBANK3 # COMES HERE FROM LST2FAN
009060,000910: 11,3170 56003 XCH EBANK # SET UP EBANK FOR BANK 3
009061,000911: 11,3171 05026 TC FINETIME
009062,000912: 11,3172 53513 DXCH TIMAR # READ THE SCALAR AND SEE IF IT OVERFLOW-
009063,000913: 11,3173 00003 RELINT # ED WHILE THE CGC WAS IN STBY, IF SO
009064,000914: 11,3174 31512 CAE TIMAR # THE OVERFLOW MUST BE ADDED OR IT WILL
009065,000915: 11,3175 00006 EXTEND # SEEM THAT THE REALATIVITY THEORY WORKS
009066,000916: 11,3176 61510 SU SCALSAV # BETTER THAN IT SHOULD...
009067,000917: 11,3177 00006 EXTEND
009068,000918: 11,3200 63223 BZMF ADDTIME # IF ITS NEG. IT MUST HAVE OV:FLWD..
009069,000919:
009070,000920: 11,3201 06112 TC INTPRET
009071,000921: 11,3202 45345 DLOAD DSU # IF IT DID NOT OV-FLW. FIND OUT HOW LONG
009072,000922: 11,3203 01513 TIMAR # THE CGC WAS IN STBY BY SUBTRACTING THE
009073,000923: 11,3204 01511 SCALSAV # SCALAR AT THE START OF STBY FROM THE
009074,000924: 11,3205 47061 SRR RTB # SCALAR AT THE END OF STBY AND THEN ADD
009075,000925: 11,3206 21606 5 # THE DIFFERENCE TO THE TIME EXISTING
009076,000926: 11,3207 33520 SGNAGREE # WHEN THE SCALAR WAS READ AT STBY ENTRY**
009077,000927: 11,3210 77615 DAD
009078,000928: 11,3211 01507 TIMESAV
009079,000929: 11,3212 01513 STORE TIMAR
009080,000930: 11,3213 77776 EXIT
009081,000931:
009082,000932: 11,3214 00006 CORCTTIM EXTEND
009083,000933: 11,3215 31513 DCA TIMAR # THIS IS THE CORRECTED TIME TO BE READ
009084,000934: 11,3216 52025 DXCH TIME2 # INTO TIME1 AND TIME2 REGS. ADDR 24-25
009085,000935:
009086,000936: 11,3217 47751 CS BIT11
009087,000937: 11,3220 00006 EXTEND # DISABLE THE DSKY STBY PUSHBUTTON.
009088,000938: 11,3221 03013 WAND 13
009089,000939: 11,3222 05567 TC ENDOFJOB
009090,000940:
009091,000941: 11,3223 00006 ADDTIME EXTEND
009092,000942: 11,3224 37743 DCA DPOSMAX # IF THE SCALAR OVERFLOWED, FIND OUT HOW
009093,000943: 11,3225 53515 DXCH TIMEDIFF # MUCH TIME REMAINED WHEN READ THE FIRST
009094,000944: 11,3226 06112 TC INTPRET # TIME AND THEN ADD THE PRESENT READING-
009095,000945: 11,3227 45345 DLOAD DSU # WHICH WILL BE THE TOTAL TIME SPENT IN
009096,000946: 11,3230 01515 TIMEDIFF # STANDBY, TO WHICH THE TIME AT STBY
009097,000947: 11,3231 01511 SCALSAV # MAY BE ADDED TO FIND THE PRESENT TIME
009098,000948: 11,3232 54215 DAD SRR # CORRECT TO 10 MSEC..
009099,000949: 11,3233 01513 TIMAR # **** THE TIME IN STANDBY MODE MUST NOT
009100,000950: 11,3234 21606 5 # EXCEED 23 HOURS IF TIME IS TO BE
009101,000951: 11,3235 77615 DAD # CORRECTLY COMPUTED BY THIS ROUTINE.*****
009102,000952: 11,3236 01507 TIMESAV
009103,000953: 11,3237 01513 STORE TIMAR
|
|
Page 227
|
009105,000955: 11,3240 77776 EXIT
009106,000956: 11,3241 03214 TC CORCTTIM
009107,000957:
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc