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