Source Code

010769,000001: # Copyright: Public domain. 010770,000002: # Filename: EXTENDED_VERBS.agc 010771,000003: # Purpose: Part of the source code for Luminary 1A build 099. 010772,000004: # It is part of the source code for the Lunar Module's (LM) 010773,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 010774,000006: # Assembler: yaYUL 010775,000007: # Contact: Ron Burkey <info@sandroid.org>. 010776,000008: # Website: www.ibiblio.org/apollo. 010777,000009: # Pages: 262-300 010778,000010: # Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting 010779,000011: # from the Luminary131/ file of the same 010780,000012: # name, using Luminary099 page images. 010781,000013: # 2009-06-05 RSB Corrected 5 typos. 010782,000014: # 2009-06-06 RSB Eliminated an extraneous 3-instruction block 010783,000015: # and added a missing instruction. 010784,000016: # 2009-06-07 RSB Added a couple of "SBANK=" for compatibility 010785,000017: # with yaYUL. Corrected a typo. 010786,000018: # 2010-12-31 JL Fixed page number comments. 010787,000019: # 2011-01-06 JL Added missing comment characters. 010788,000020: # 2011-05-08 JL Flagged SBANK= workarounds for future removal. 010789,000021: 010790,000022: # This source code has been transcribed or otherwise adapted from 010791,000023: # digitized images of a hardcopy from the MIT Museum. The digitization 010792,000024: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 010793,000025: # the Museum. Many thanks to both. The images (with suitable reduction 010794,000026: # in storage size and consequent reduction in image quality as well) are 010795,000027: # available online at www.ibiblio.org/apollo. If for some reason you 010796,000028: # find that the images are illegible, contact me at info@sandroid.org 010797,000029: # about getting access to the (much) higher-quality images which Paul 010798,000030: # actually created. 010799,000031: 010800,000032: # Notations on the hardcopy document read, in part: 010801,000033: 010802,000034: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 010803,000035: # 16:27 JULY 14, 1969 010804,000036: 010805,000037: # Page 262 010806,000038: 07,2667 BANK 7 010807,000039: 43,2000 SETLOC EXTVERBS 010808,000040: 43,2000 BANK 010809,000041: 010810,000042: 43,2000 E5,1737 EBANK= OGC 010811,000043: 010812,000044: 43,2000 COUNT* $$/EXTVB 010813,000045: 010814,000046: # FAN-OUT 010815,000047: 010816,000048: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC 010817,000049: 43,2001 02002 TC LST2FAN # FAN AS BEFROE. 010818,000050: 010819,000051: 43,2002 02130 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY) 010820,000052: 43,2003 02171 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR 010821,000053: # 72 ONLY) 010822,000054: 43,2004 02330 TC IMUFINEK # VB42 FINE ALIGN IMU 010823,000055: 43,2005 02707 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS. 010824,000056: 43,2006 02302 TC RRDESEND # VB44 TERMINATE CONTINUOUS DESIGNATE 010825,000057: 43,2007 02120 TC ALM/END # VB45 SPARE 010826,000058: 43,2010 02120 TC ALM/END # VB46 SPARE 010827,000059: 43,2011 02367 TC V47TXACT # VB47 AGS INITIALIZATION 010828,000060: 43,2012 03135 TC DAPDISP # VB48 LOAD A/P DATA 010829,000061: 43,2013 13015 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER 010830,000062: 43,2014 02361 TC GOLOADLV # VB50 PLEASE PERFORM 010831,000063: 43,2015 02120 TC ALM/END # VB51 SPARE 010832,000064: 43,2016 02361 TC GOLOADLV # VB52 PLEASE MARK X -- RETICLE. 010833,000065: 43,2017 02361 TC GOLOADLV # VB53 PLEASE MARK Y -- RETICLE. 010834,000066: 43,2020 02361 TC GOLOADLV # VB54 PLEASE MARK X OR Y RETICLE 010835,000067: 43,2021 02401 TC ALINTIME # VB55 ALIGN TIME 010836,000068: 43,2022 03024 TC TRMTRACK # VB56 TERMINATE TRACKING -- P20 + P25 010837,000069: 43,2023 02322 TC LRON # VB57 PERMIT LANDING RADAR UPDATES 010838,000070: 43,2024 02325 TC LROFF # VB58 INHIBIT LANDING RADAR UPDATES 010839,000071: 43,2025 02120 TC ALM/END # VB59 SPARE 010840,000072: 43,2026 02151 TC LRPOS2K # VB60 COMMAND LR TO POSITION 2. 010841,000073: 43,2027 02163 TC DAPATTER # VB61 DISPLAY DAP ATTITUDE ERROR 010842,000074: 43,2030 02166 TC TOTATTER # VB62 DISPLAY TOTAL ATTITUDE ERROR 010843,000075: 43,2031 02414 TC R04 # VB63 SAMPLE RADAR ONCE PER SECOND 010844,000076: 43,2032 02700 TC VB64 # VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES 010845,000077: 43,2033 03221 TC SNUFFOUT # VB65 DISABLE U,V JETS DURING DPS BURNS. 010846,000078: 43,2034 03142 TC ATTACHED # VB66 ATTACHED MOVE THIS TO OTHER STATE 010847,000079: 43,2035 03213 TC V67 # VB67 W MATRIX MONITOR 010848,000080: 43,2036 02120 TC ALM/END # VB68 SPARE 010849,000081: 43,2037 02037 VERB69 TC VERB69 # VB69 FORCE A HARDWARE RESTART 010850,000082: 43,2040 03724 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME. 010851,000083: 43,2041 03726 TC V71UPDAT # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS. 010852,000084: 43,2042 03730 TC V72UPDAT # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS. 010853,000085: 43,2043 03732 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL). 010854,000086: 43,2044 03045 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM 010855,000087: # FOR ERASABLE DUMP. 010856,000088: 43,2045 03224 TC OUTSNUFF # VB75 ENABLE U,V JETS DURING DPS BURNS. 010857,000089: # Page 263 010858,000090: 43,2046 03001 TC MINIMP # VB76 MINIMUM IMPULSE MODE 010859,000091: 43,2047 03006 TC NOMINIMP # VB77 RATE COMMAND MODE 010860,000092: 43,2050 02404 TC R77 # VB78 START LR SPURIOUS RETURN TEST 010861,000093: 43,2051 02617 TC R77END # VB79 TERMINATE LR SPURIOUS RETURN TEST 010862,000094: 43,2052 03051 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR 010863,000095: 43,2053 03054 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR 010864,000096: 43,2054 02746 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30) 010865,000097: 43,2055 02756 TC V83PERF # VB83 REQUEST REND PARAM DISPLAY (R31) 010866,000098: 43,2056 02120 TC ALM/END # VB84 SPARE 010867,000099: 43,2057 03227 TC VERB85 # VB85 DISPLAY RR LOS AZ AND ELEV 010868,000100: 43,2060 02120 TC ALM/END # VB86 SPARE 010869,000101: 43,2061 02120 TC ALM/END # VB87 SPARE 010870,000102: 43,2062 02120 TC ALM/END # VB88 SPARE 010871,000103: 43,2063 02764 TC V89PERF # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63) 010872,000104: 43,2064 02773 TC V90PERF # VB90 OUT OF PLANE RENDEZVOUS DISPLAY 010873,000105: 43,2065 03100 TC GOSHOSUM # VB91 DISPLAY BANK SUM. 010874,000106: 43,2066 03064 TC SYSTEST # VB92 OPERAT IMU PERFORMANCE TEST. 010875,000107: 43,2067 03073 TC WMATRXNG # VB93 CLEAR RENDWFLG 010876,000108: 43,2070 02120 TC ALM/END # VB94 SPARE 010877,000109: 43,2071 03061 TC UPDATOFF # VB95 NO STATE VECTOR UPDATE ALLOWED 010878,000110: 43,2072 03206 TC VERB96 # VB96 INTERRUPT INTEGRATION AND GO TO P00 010879,000111: 43,2073 02361 TC GOLOADLV # VB97 PLEASE VERIFY ENGINE FAILURE 010880,000112: 43,2074 02120 TC ALM/END # VB98 SPARE 010881,000113: 43,2075 02361 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE 010882,000114: 010883,000115: # END OF EXTENDED VERB FAN 010884,000116: 010885,000117: 43,2076 11044 TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY 010886,000118: 43,2077 02120 TC ALM/END # YES, TURN ON OPERATOR LIGHT 010887,000119: 43,2100 30100 CA FLAGWRD4 # ARE PRIORITY DISPLAYS USING DSKY 010888,000120: 43,2101 72127 MASK OC24100 010889,000121: 43,2102 10000 CCS A 010890,000122: 43,2103 02120 TC ALM/END # YES 010891,000123: 43,2104 36007 CAF OCT24 # SET 3, AND 5 010892,000124: 43,2105 55044 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY 010893,000125: # SYSTEM BUSY 010894,000126: 010895,000127: 43,2106 30002 CA Q 010896,000128: 43,2107 54155 TS MPAC +1 010897,000129: 010898,000130: 43,2110 44752 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB 010899,000131: 43,2111 04154 TC NVSUB 010900,000132: 43,2112 02113 TC +1 010901,000133: 43,2113 00155 TC MPAC +1 010902,000134: 010903,000135: 43,2114 04364 XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT. 010904,000136: 43,2115 05472 TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS. 010905,000137: 010906,000138: 43,2116 5472 TERMEXTV EQUALS ENDEXT 010907,000139: # Page 264 010908,000140: 43,2116 5472 ENDEXTVB EQUALS ENDEXT 010909,000141: 010910,000142: 43,2116 34755 XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS. 010911,000143: 43,2117 02105 TC SETXTACT 010912,000144: 010913,000145: 43,2120 04364 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT 010914,000146: 43,2121 04635 GOPIN TC POSTJUMP 010915,000147: 43,2122 21050 CADR PINBRNCH 010916,000148: 010917,000149: 43,2123 31011 CHKP00H CA MODREG # CHECK FOR P00 OR P00-. 010918,000150: 43,2124 00006 EXTEND 010919,000151: 43,2125 16742 BZF TCQ 010920,000152: 43,2126 02120 TC ALM/END 010921,000153: 010922,000154: 43,2127 24100 OC24100 OCT 24100 010923,000155: 010924,000156: # Page 265 010925,000157: # VBZERO VERB 40 DESCRIPTION 010926,000158: 010927,000159: # 1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES). 010928,000160: # 2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART. 010929,000161: # FOR N72, CHECK IF EITHER RADAR IS IN USE. 010930,000162: # 3. EXECUTE THE CDU ZERO. 010931,000163: # 4. STALL UNTIL THE ZERO IS DONE. 010932,000164: # 5. DON'T DIFFERENTIATE BETWEEN A BAD OR GOOD RETURN. 010933,000165: # 6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY). 010934,000166: 010935,000167: 43,2130 02174 VBZERO TC OP/INERT 010936,000168: 43,2131 02133 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20) 010937,000169: 43,2132 02142 TC RRZEROK # RETURN HERE IF NOUN = RCDU(72) 010938,000170: 43,2133 02375 IMUZEROK TC CKMODCAD 010939,000171: 43,2134 04616 TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO 010940,000172: 43,2135 16714 CADR IMUZERO 010941,000173: 010942,000174: 43,2136 04616 TC BANKCALL # STALL 010943,000175: 43,2137 17716 CADR IMUSTALL 010944,000176: 43,2140 02141 TC +1 010945,000177: 010946,000178: 43,2141 02121 TC GOPIN # IMUZERO 010947,000179: 010948,000180: 43,2142 02642 RRZEROK TC RDRUSECK 010949,000181: 43,2143 04616 TC BANKCALL 010950,000182: 43,2144 52343 CADR RRZERO 010951,000183: 010952,000184: 43,2145 04616 RWAITK TC BANKCALL 010953,000185: 43,2146 17714 CADR RADSTALL 010954,000186: 43,2147 12150 TCF +1 010955,000187: 43,2150 02121 TC GOPIN # RRZERO 010956,000188: 010957,000189: # LRPOS2K VERB 60 DESCRIPTION 010958,000190: # COMMAND LANDING RADAR TO POSITION 2 010959,000191: 010960,000192: # 1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR. 010961,000193: # 2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN 010962,000194: # THE PRESCRIBED TIME. 010963,000195: # 3. RE-ESTABLISH THE DISPLAYS. 010964,000196: 010965,000197: 43,2151 02642 LRPOS2K TC RDRUSECK 010966,000198: 43,2152 04616 TC BANKCALL # COMMAND LR TO POSITION 2 010967,000199: 43,2153 53471 CADR LRPOS2 010968,000200: 43,2154 04616 TC BANKCALL 010969,000201: 43,2155 17714 CADR RADSTALL 010970,000202: 43,2156 02160 TC LRP2ALM 010971,000203: 43,2157 02121 TC GOPIN 010972,000204: 010973,000205: 43,2160 05567 LRP2ALM TC ALARM 010974,000206: 43,2161 00523 OCT 523 010975,000207: 43,2162 02121 TC GOPIN 010976,000208: # Page 266 010977,000209: 010978,000210: # V61 VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES. 010979,000211: 010980,000212: 43,2163 05516 DAPATTER TC DOWNFLAG 010981,000213: 43,2164 00013 ADRES NEEDLFLG 010982,000214: 43,2165 02121 TC GOPIN 010983,000215: 010984,000216: # V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES. 010985,000217: 010986,000218: 43,2166 05504 TOTATTER TC UPFLAG 010987,000219: 43,2167 00013 ADRES NEEDLFLG 010988,000220: 43,2170 02121 TC GOPIN 010989,000221: 010990,000222: # Page 267 010991,000223: # VBCOARK VERB 41 DESCRIPTION 010992,000224: # COARSE ALIGN IMU OR RADAR 010993,000225: 010994,000226: # 1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR. 010995,000227: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. 010996,000228: # CASE 1, NOUN 20 (ICDU ANGLES) 010997,000229: # 3. SET EXT VERB DISPLAY ACTIVE FLAG. 010998,000230: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). 010999,000231: # RESPONSES 011000,000232: # A. TERMINATE 011001,000233: # 1. RELEASE EXT VERB DISPLAY SYSTEM 011002,000234: # B. PROCEED 011003,000235: # 1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2). 011004,000236: # C. ENTER 011005,000237: # 1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2). 011006,000238: # ICORK2 011007,000239: # 1. RE-DISPLAY VERB 41. 011008,000240: # 2. EXECUTE IMUCCARS (IMU COARSE ALIGN). 011009,000241: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). 011010,000242: # 4. RELEASE EXT VERB DISPLAY SYSTEM. 011011,000243: # CASE 2, NOUN 72 (RCDU ANGLES) 011012,000244: # EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD. 011013,000245: # 5. DISPLAY FLASHING V24, N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE). 011014,000246: # RESPONSES 011015,000247: # A. TERMINATE 011016,000248: # 1. RELEASE EXT VERB DISPLAY SYS. 011017,000249: # B. PROCEED OR ENTER 011018,000250: # 1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS). 011019,000251: # 2. RE-DISPLAY VERB 41. 011020,000252: # 3. SCHEDULE RRDESK2 WITH PRIORITY 20. 011021,000253: # 4. RELEASE EXT VERB DISPLAY SYS. 011022,000254: # AURLOKON 011023,000255: # 1. FLASH V04 N12 R1 = 00006 R2 = 00002 011024,000256: # RESPONSES 011025,000257: # A. TERMINATE 011026,000258: # B. PROCEED 011027,000259: # 1. RESET LOCK-ON SWITCH 011028,000260: # 2. SET CONTINUOUS DESIGNATE FLAG 011029,000261: # 3. DISABLE R25 011030,000262: # C. V22 E 1 E, R1 = 00001, PROCEED 011031,000263: # 1. SET LOCK-ON SWITCH 011032,000264: 011033,000265: 43,2171 02174 VBCOARK TC OP/INERT 011034,000266: 43,2172 02205 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20) 011035,000267: 43,2173 02227 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (72) 011036,000268: 011037,000269: # RETURNS TO L+1 IF IMU OR L+2 IF RR. 011038,000270: 011039,000271: 43,2174 46007 OP/INERT CS OCT24 011040,000272: 43,2175 61002 AD NOUNREG 011041,000273: 43,2176 00006 EXTEND 011042,000274: # Page 268 011043,000275: 43,2177 16742 BZF TCQ # IF = 20. 011044,000276: 011045,000277: 43,2200 62204 AD RRIMUDIF # -52 011046,000278: 43,2201 00006 EXTEND 011047,000279: 43,2202 16737 BZF Q+1 011048,000280: 011049,000281: 43,2203 02120 TC ALM/END # ILLEGAL. 011050,000282: 011051,000283: 43,2204 77713 RRIMUDIF DEC -52 B-14 # THE IMU 011052,000284: 43,2205 02375 IMUCOARK TC CKMODCAD 011053,000285: 43,2206 02076 TC TESTXACT # COARSE ALIGN FROM KEYBOARD. 011054,000286: 43,2207 32225 CAF VNLODCDU # CALL FOR THETAD LOAD 011055,000287: 43,2210 04616 TC BANKCALL 011056,000288: 43,2211 20334 CADR GOXDSPF 011057,000289: 43,2212 05472 TC TERMEXTV 011058,000290: 43,2213 12214 TCF +1 011059,000291: 011060,000292: 43,2214 32226 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB. 011061,000293: 43,2215 04616 TC BANKCALL 011062,000294: 43,2216 20620 CADR EXDSPRET 011063,000295: 011064,000296: 43,2217 04616 TC BANKCALL # CALL MODE SWITCHING PROG 011065,000297: 43,2220 17000 CADR IMUCOARS 011066,000298: 011067,000299: 43,2221 04616 TC BANKCALL # STALL 011068,000300: 43,2222 17716 CADR IMUSTALL 011069,000301: 43,2223 05472 TC ENDEXTVB 011070,000302: 43,2224 05472 TC ENDEXTVB 011071,000303: 011072,000304: 43,2225 06226 VNLODCDU VN 2522 011073,000305: 43,2226 12200 IMUCOARV VN 4100 011074,000306: 011075,000307: # Page 269 011076,000308: # DESIGNATE TO DESIRED GIMBAL ANGLES. 011077,000309: 011078,000310: 43,2227 02642 RRDESNBK TC RDRUSECK 011079,000311: 43,2230 02076 TC TESTXACT 011080,000312: 43,2231 34745 CA RNDVZBIT # IS P20 RUNNING? 011081,000313: 43,2232 70074 MASK FLAGWRD0 011082,000314: 43,2233 10000 CCS A 011083,000315: 43,2234 12114 TCF XACTALM # OPERADOR ERROR IF IN P20 011084,000316: 43,2235 42321 CS OCT41000 # TERMINATE PRESENT DESIGNATION 011085,000317: 43,2236 00004 INHINT # RELINT DONE IN GOXDSPF 011086,000318: 43,2237 70110 MASK RADMODES 011087,000319: 43,2240 54110 TS RADMODES 011088,000320: 011089,000321: 43,2241 32260 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES. 011090,000322: 43,2242 04616 TC BANKCALL 011091,000323: 43,2243 20334 CADR GOXDSPF 011092,000324: 43,2244 05472 TC TERMEXTV 011093,000325: 43,2245 12241 TCF -4 # V33 011094,000326: 011095,000327: 43,2246 04616 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS. 011096,000328: 43,2247 46000 CADR AURLOKON 011097,000329: 011098,000330: 43,2250 32226 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB 011099,000331: 43,2251 04616 TC BANKCALL 011100,000332: 43,2252 20620 CADR EXDSPRET 011101,000333: 011102,000334: 43,2253 34736 CAF PRIO20 011103,000335: 43,2254 05105 TC FINDVAC 011104,000336: 43,2255 E7,1456 EBANK= LOSCOUNT 011105,000337: 43,2255 02261 66107 2CADR RRDESK2 011106,000338: 011107,000339: 43,2257 15472 TCF TERMEXTV # FREES DISPLAY 011108,000340: 011109,000341: 43,2260 06111 VNLDRCDU VN 2473 011110,000342: 43,2261 43,2226 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS. 011111,000343: 011112,000344: 43,2261 04616 RRDESK2 TC BANKCALL 011113,000345: 43,2262 52475 CADR RRDESNB 011114,000346: 011115,000347: 43,2263 02264 TC +1 # DUMMY NEEDED SINCE DESRETRN DOES INCR 011116,000348: 43,2264 30167 CA PRIORITY 011117,000349: 43,2265 75004 MASK LOW9 011118,000350: 43,2266 10000 CCS A 011119,000351: 43,2267 50000 INDEX A 011120,000352: 43,2270 54000 TS A # RELEASE THIS JOB'S VAC AREA. 011121,000353: 43,2271 40000 COM # INSURE ENDOFJOB DOES A NOVAC END (BZMF). 011122,000354: 43,2272 26167 ADS PRIORITY 011123,000355: 43,2273 04616 TC BANKCALL # WAIT FOR COMPLETION OF DESIGNATE 011124,000356: 43,2274 17714 CADR RADSTALL 011125,000357: # Page 270 011126,000358: 43,2275 02277 TC +2 # BADEND -- NO LOCKON OR OUT OF LIMITS 011127,000359: 43,2276 05155 TC ENDOFJOB # GOODEND -- LOCKON ACHIEVED 011128,000360: 43,2277 05567 TC ALARM 011129,000361: 43,2300 00503 OCT 503 # TURN ON ALARM LIGHT -- 503 DESIGNATE FAIL 011130,000362: 011131,000363: 43,2301 05155 TC ENDOFJOB 011132,000364: 011133,000365: 43,2302 10110 RRDESEND CCS RADMODES # TERMINATE CONTINOUS DESIGNATE ONLY 011134,000366: 43,2303 12121 TCF GOPIN 011135,000367: 43,2304 12121 TCF GOPIN 011136,000368: 43,2305 12306 TCF +1 011137,000369: 43,2306 42321 CS OCT41000 # BEGDES GOES TO ENDRADAR 011138,000370: 43,2307 00004 INHINT # RELINT DONE IN DOWNFLAG 011139,000371: 43,2310 70110 MASK RADMODES 011140,000372: 43,2311 54110 TS RADMODES 011141,000373: 43,2312 06011 TC CLRADMOD 011142,000374: 43,2313 34777 CAF 1SEC 011143,000375: 43,2314 04616 TC BANKCALL 011144,000376: 43,2315 01735 CADR DELAYJOB 011145,000377: 43,2316 05516 TC DOWNFLAG # ENABLE R25 GIMBAL MONITOR 011146,000378: 43,2317 00126 ADRES NORRMON 011147,000379: 43,2320 12121 TCF GOPIN 011148,000380: 43,2321 41000 OCT41000 OCT 41000 # CONTINOUS DESIGNATE -- DESIGNATE 011149,000381: 011150,000382: # Page 271 011151,000383: 23,2000 BANK 23 011152,000384: 23,2000 SETLOC EXTVB1 011153,000385: 23,2000 BANK 011154,000386: 23,2000 COUNT* $$/EXTVB 011155,000387: 011156,000388: 23,2000 04645 AURLOKON TC MAKECADR 011157,000389: 23,2001 55113 TS DESRET 011158,000390: 23,2002 34752 CAF TWO 011159,000391: 23,2003 55052 TS OPTIONX +1 011160,000392: 23,2004 36242 CAF SIX # OPTION CODE FOR V04N12 011161,000393: 23,2005 55051 TS OPTIONX 011162,000394: 011163,000395: 23,2006 32037 -5 CAF V04N1272 011164,000396: 23,2007 04616 TC BANKCALL # R2 00001 LOCK-ON 011165,000397: 23,2010 20353 CADR GOMARKFR 011166,000398: 23,2011 15472 TCF ENDEXT # V34 011167,000399: 23,2012 12017 TCF +5 # V33 011168,000400: 23,2013 12006 TCF -5 # V32 011169,000401: 23,2014 34751 CAF BIT3 011170,000402: 23,2015 05464 TC BLANKET 011171,000403: 23,2016 05155 TC ENDOFJOB 011172,000404: 011173,000405: 23,2017 31052 +5 CA OPTIONX +1 011174,000406: 23,2020 74752 MASK BIT2 011175,000407: 23,2021 10000 CCS A 011176,000408: 23,2022 12026 TCF NOLOKON 011177,000409: 23,2023 05504 TC UPFLAG 011178,000410: 23,2024 00012 ADRES LOKONSW 011179,000411: 23,2025 12034 TCF AURLKON1 011180,000412: 011181,000413: 23,2026 05516 NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMADES TO 011182,000414: 23,2027 00012 ADRES LOKONSW # INDICATE THAT CONTINUOUS DESIGNATION IS 011183,000415: 23,2030 05504 TC UPFLAG # WANTED (TO BE TERMINATED BY V44.) 011184,000416: 23,2031 00264 ADRES CDESFLAG 011185,000417: 23,2032 05504 TC UPFLAG # SET NO RR ANGLE MONITOR FLAG. 011186,000418: 23,2033 00126 ADRES NORRMON # DISABLE R25 RR GIMBAL MONITOR IN T4RUPT 011187,000419: 23,2034 00003 AURLKON1 RELINT 011188,000420: 23,2035 31113 CA DESRET 011189,000421: 23,2036 14640 TCF BANKJUMP 011190,000422: 011191,000423: 23,2037 01014 V04N1272 VN 412 011192,000424: 23,2040 77757 -LOKONFG OCT -20 011193,000425: 011194,000426: 43,2322 BANK 43 011195,000427: 43,2000 SETLOC EXTVERBS 011196,000428: 43,2000 BANK 011197,000429: 43,2322 COUNT* $$/EXTVB 011198,000430: 011199,000431: 43,2322 05504 LRON TC UPFLAG # PERMIT INCORPORATION OF LR DATA V57 011200,000432: 011201,000433: # Page 272 011202,000434: 43,2323 00254 ADRES LRINH 011203,000435: 43,2324 12121 TCF GOPIN 011204,000436: 011205,000437: 43,2325 05516 LROFF TC DOWNFLAG # INHIBIT INCORPORATION OF LR DATA V58 011206,000438: 43,2326 00254 ADRES LRINH 011207,000439: 43,2327 12121 TCF GOPIN 011208,000440: 011209,000441: 43,2330 E5,1737 EBANK= OGC 011210,000442: 011211,000443: # Page 273 011212,000444: 011213,000445: # IMUFINEK VERB 42 DESCRIPTION 011214,000446: # FINE ALIGN IMU 011215,000447: 011216,000448: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH. 011217,000449: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES.... 011218,000450: # RESPONSES 011219,000451: # A. TERMINATE 011220,000452: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 011221,000453: # B. PROCEED OR ENTER 011222,000454: # 1. RE-DISPLAY VERB 42 011223,000455: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING). 011224,000456: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER) 011225,000457: # A. FAILED 011226,000458: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 011227,000459: # B. GOOD 011228,000460: # 1. EXECUTE IMUPULSE (TORQUE IRIGS). 011229,000461: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM. 011230,000462: 011231,000463: 43,2330 02375 IMUFINEK TC CKMODCAD 011232,000464: 43,2331 02076 TC TESTXACT # FINE ALIGN WITH GYRO TORQUING. 011233,000465: 43,2332 32357 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS 011234,000466: 43,2333 04616 TC BANKCALL 011235,000467: 43,2334 20334 CADR GOXDSPF 011236,000468: 43,2335 05472 TC TERMEXTV 011237,000469: 43,2336 02337 TC +1 # PROCEED WITHOUT A LOAD 011238,000470: 011239,000471: 43,2337 32360 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB 011240,000472: 43,2340 04616 TC BANKCALL 011241,000473: 43,2341 20620 CADR EXDSPRET 011242,000474: 011243,000475: 43,2342 04616 TC BANKCALL # CALL MODE SWITCH PROG 011244,000476: 43,2343 17210 CADR IMUFINE 011245,000477: 011246,000478: 43,2344 04616 TC BANKCALL # HIBERNATION 011247,000479: 43,2345 17716 CADR IMUSTALL 011248,000480: 43,2346 05472 TC ENDEXTVB 011249,000481: 011250,000482: 43,2347 32356 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS 011251,000483: 43,2350 04616 TC BANKCALL 011252,000484: 43,2351 17323 CADR IMUPULSE 011253,000485: 011254,000486: 43,2352 04616 TC BANKCALL # WAIT FOR PULSES TO GET OUT. 011255,000487: 43,2353 17716 CADR IMUSTALL 011256,000488: 43,2354 05472 TC ENDEXTVB 011257,000489: 43,2355 05472 TC ENDEXTVB 011258,000490: 011259,000491: 43,2356 02737 LGYROBIN ECADR OGC 011260,000492: 43,2357 06335 VNLODGYR VN 2593 011261,000493: 43,2360 12400 IMUFINEV VN 4200 011262,000494: 011263,000495: # GOLOADLV VERB 50 DESCRIPTION 011264,000496: # AND OTHER PLEASE 011265,000497: # Page 274 011266,000498: # DO SOMETHING VERBS 011267,000499: 011268,000500: # PLEASE PERFORM, MARK, CALIBRATE, ETC. 011269,000501: 011270,000502: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE 011271,000503: # SAME RECALL AS A COMPLETED LOAD. 011272,000504: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED. 011273,000505: 011274,000506: 43,2361 40,2000 SBANK= PINSUPER # FOR LOADLV1 AND SHOWSUM CADR'S 011275,000507: 011276,000508: 43,2361 04433 GOLOADLV TC FLASHOFF 011277,000509: 011278,000510: 43,2362 34201 CAF PINSUPBT 011279,000511: 43,2363 00006 EXTEND 011280,000512: 43,2364 01007 WRITE SUPERBNK 011281,000513: 43,2365 04635 TC POSTJUMP 011282,000514: 43,2366 62001 CADR LOADLV1 011283,000515: 011284,000516: # VERB 47 -- AGS INITIALIZATION -- R47. 011285,000517: 011286,000518: # SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS. 011287,000519: 011288,000520: 43,2367 02076 V47TXACT TC TESTXACT # NO OTHER EXTVERB. 011289,000521: 43,2370 34740 CAF PRIO4 011290,000522: 43,2371 05105 TC FINDVAC

[WORKAROUND] RSB 2009

011292,000524: 43,2372  30,2000                                 SBANK=   LOWSUPER                              

[WORKAROUND]

011294,000526: 43,2372  E4,1600                                 EBANK=   AGSBUFF                               
011295,000527: 43,2372           02005 64064                    2CADR    AGSINIT                               
011296,000528: 
011297,000529: 43,2374           05155                          TC       ENDOFJOB                              
011298,000530: 
011299,000531: 43,2375           31304        CKMODCAD          CA       MODECADR                              
011300,000532: 43,2376           00006                          EXTEND                                         
011301,000533: 43,2377           16742                          BZF      TCQ                                   
011302,000534: 43,2400           02120                          TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
011303,000535: 
011304,000536:                                                                                                 #  Page 275
011305,000537:                                                                                                 #  ALINTIME       VERB 55         DESCRIPTION
011306,000538:                                                                                                 #         REQUIRE P00 OR P00-.
011307,000539: 
011308,000540:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011309,000541:                                                                                                 #         2.      DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011310,000542:                                                                                                 #         3.      REQUIRE EXECUTION OF VERB 23.
011311,000543:                                                                                                 #         4.      ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011312,000544:                                                                                                 #         5.      RELEASE EXT VERB DISPLAY SYSTEM
011313,000545: 
011314,000546: 43,2401           02076        ALINTIME          TC       TESTXACT                              
011315,000547: 43,2402           04635                          TC       POSTJUMP                              #  NO ROOM IN 43
011316,000548: 43,2403           64002                          CADR     R33                                   
011317,000549: 
011318,000550: 42,2002                                          BANK     42                                    
011319,000551: 42,2000                                          SETLOC   SBAND                                 
011320,000552: 42,2000                                          BANK                                           
011321,000553: 42,2002                                          COUNT*   $$/R33                                
011322,000554: 
011323,000555: 42,2002           35021        R33               CAF      PRIO7                                 
011324,000556: 42,2003           05146                          TC       PRIOCHNG                              
011325,000557: 42,2004           32034                          CAF      VNLODDT                               
011326,000558: 42,2005           04616                          TC       BANKCALL                              
011327,000559: 42,2006           20334                          CADR     GOXDSPF                               
011328,000560: 42,2007           05472                          TC       ENDEXT                                #  TERMINATE
011329,000561: 42,2010           05472                          TC       ENDEXT                                #  PROCEED
011330,000562: 42,2011           42033                          CS       DEC23                                 #  DATA IN OR RESEQUENCE (UNLIKELY)
011331,000563: 42,2012           60154                          AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
011332,000564: 42,2013           00006                          EXTEND                                         
011333,000565: 42,2014           12016                          BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
011334,000566: 42,2015           05472                          TC       ENDEXT                                #         WITH V23 (DATA IN).
011335,000567: 
011336,000568: 42,2016           00004        UPDATIME          INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
011337,000569: 42,2017           34755                          CAF      ZERO                                  
011338,000570: 42,2020           54156                          TS       MPAC       +2                         #  NEEDED FOR TP AGREE
011339,000571: 42,2021           54001                          TS       L                                     #  ZERO T1 + 2 WHILE ALIGNING.
011340,000572: 42,2022           52025                          DXCH     TIME2                                 
011341,000573: 42,2023           52155                          DXCH     MPAC                                  
011342,000574: 42,2024           53052                          DXCH     DSPTEM2    +1                         #  INCREMENT
011343,000575: 42,2025           20155                          DAS      MPAC                                  
011344,000576: 
011345,000577: 42,2026           07257                          TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
011346,000578: 42,2027           52155                          DXCH     MPAC                                  #  NEW CLOCK.
011347,000579: 42,2030           20025                          DAS      TIME2                                 
011348,000580: 42,2031           00003                          RELINT                                         
011349,000581: 42,2032           05472        UPDTMEND          TC       ENDEXT                                
011350,000582: 
011351,000583: 42,2033           00027        DEC23             DEC      23         B-14                       #  V 23
011352,000584: 
011353,000585: 42,2034           06230        VNLODDT           VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
011354,000586: 
011355,000587:                                                                                                 #  Page 276
011356,000588:                                                                                                 #  SET UP FOR RADAR SAMPLING.
011357,000589: 
011358,000590: 42,2035                                          BANK     42                                    
011359,000591: 43,2000                                          SETLOC   EXTVERBS                              
011360,000592: 43,2000                                          BANK                                           
011361,000593: 
011362,000594: 43,2404  E4,1600                                 EBANK=   RSTACK                                
011363,000595: 
011364,000596: 43,2404                                          COUNT*   $$/R0477                              
011365,000597: 
011366,000598: 43,2404           02642        R77               TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
011367,000599: 43,2405           30077                          CA       FLAGWRD3                              #  IS R04 RUNNING?
011368,000600: 43,2406           74743                          MASK     R04FLBIT                              
011369,000601: 43,2407           10000                          CCS      A                                     
011370,000602: 43,2410           02120                          TC       ALM/END                               #  YES.
011371,000603: 43,2411           05504                          TC       UPFLAG                                
011372,000604: 43,2412           00117                          ADRES    R77FLAG                               
011373,000605: 43,2413           12420                          TCF      R04Z                                  
011374,000606: 
011375,000607: 43,2414           02642        R04               TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
011376,000608: 43,2415           02076                          TC       TESTXACT                              
011377,000609: 43,2416           05504                          TC       UPFLAG                                
011378,000610: 43,2417           00063                          ADRES    R04FLAG                               #  SET R04FLAG FOR ALARMS
011379,000611: 
011380,000612: 43,2420           34741        R04Z              CAF      EBANK4                                
011381,000613: 43,2421           54003                          TS       EBANK                                 
011382,000614: 43,2422           32640                          CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
011383,000615: 43,2423           55755                          TS       RSAMPDT                               
011384,000616: 43,2424           34755                          CAF      ZERO                                  
011385,000617: 43,2425           55754                          TS       RTSTLOC                               
011386,000618: 43,2426           55756                          TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER
011387,000619: 
011388,000620: 43,2427           00004                          INHINT                                         
011389,000621: 43,2430           42641                          CS       LRPOSCAL                              #  INITIALIZE
011390,000622: 43,2431           70110                          MASK     RADMODES                              #         BIT 9   LR RANGE LOW SCALE =0
011391,000623: 43,2432           54110                          TS       RADMODES                              #         BIT 6   LR POS 1 =0
011392,000624: 43,2433           32641                          CAF      LRPOSCAL                              #         BIT 3   RR RANGE LOW SCALE =0
011393,000625: 43,2434           00006                          EXTEND                                         
011394,000626: 43,2435           02033                          RAND     CHAN33                                
011395,000627: 43,2436           26110                          ADS      RADMODES                              
011396,000628: 43,2437           00003                          RELINT                                         
011397,000629: 
011398,000630: 43,2440           40077                          CS       FLAGWRD3                              #  CHECK R04FLAG          R04 =1          R77 =0
011399,000631: 43,2441           74743                          MASK     R04FLBIT                              
011400,000632: 43,2442           10000                          CCS      A                                     
011401,000633: 43,2443           12575                          TCF      R04K                                  
011402,000634: 
011403,000635: 43,2444           34753                          CAF      ONE                                   #  INDICATES RENDEZVOUS DESIRED
011404,000636: 43,2445           55052                          TS       OPTIONX    +1                         
011405,000637: 43,2446           34751        R04A              CAF      BIT3                                  #  OPTION CODE FOR V04N12
011406,000638: 
011407,000639:                                                                                                 #  Page 277
011408,000640: 43,2447           55051                          TS       OPTIONX                               
011409,000641: 43,2450           32635                          CAF      V04N12X                               
011410,000642: 43,2451           04616                          TC       BANKCALL                              #         R2      00001   RENDEZVOUS RADAR
011411,000643: 43,2452           20353                          CADR     GOMARKFR                              #                 00002   LANDING RADAR
011412,000644: 43,2453           12603                          TCF      R04END                                #  V34
011413,000645: 43,2454           12461                          TCF      +5                                    #  V33
011414,000646: 43,2455           12450                          TCF      R04A       +2                         #  R2
011415,000647: 43,2456           34751                          CAF      BIT3                                  
011416,000648: 43,2457           05464                          TC       BLANKET                               
011417,000649: 43,2460           05155                          TC       ENDOFJOB                              
011418,000650: 
011419,000651: 43,2461           31052                          CA       OPTIONX    +1                         #  SAVE DESIRED OPTION    RR =1   LR =2
011420,000652: 43,2462           55751                          TS       RTSTDEX                               
011421,000653: 
011422,000654: 43,2463           36242        R04X              CAF      SIX                                   #  RR OR LR DESIRED
011423,000655: 43,2464           71751                          MASK     RTSTDEX                               
011424,000656: 43,2465           10000                          CCS      A                                     
011425,000657: 43,2466           12577                          TCF      R04L                                  #  LANDING RADAR
011426,000658: 43,2467           55753                          TS       RTSTBASE                              #  FOR RR BASE =0, MAX =1
011427,000659: 
011428,000660: 43,2470           34752        R04B              CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
011429,000661: 43,2471           00006                          EXTEND                                         
011430,000662: 43,2472           02033                          RAND     CHAN33                                
011431,000663: 43,2473           00006                          EXTEND                                         
011432,000664: 43,2474           12505                          BZF      R04C                                  #  YES
011433,000665: 
011434,000666: 43,2475           32637                          CAF      201R04                                #  REQUEST SELECTION OF RR AUTO MODE
011435,000667: 43,2476           55045                          TS       DSPTEM1                               
011436,000668: 43,2477           32636                          CAF      V50N25X                               
011437,000669: 43,2500           04616                          TC       BANKCALL                              
011438,000670: 43,2501           20345                          CADR     GOMARK4                               
011439,000671: 43,2502           12603                          TCF      R04END                                #  V34
011440,000672: 43,2503           12470                          TCF      R04B                                  #  V33
011441,000673: 43,2504           12475                          TCF      -7                                    #  E
011442,000674: 
011443,000675: 43,2505           34736        R04C              CAF      BIT14                                 #  ENABLE RR AUTO TRACKER
011444,000676: 43,2506           00006                          EXTEND                                         
011445,000677: 43,2507           05012                          WOR      CHAN12                                
011446,000678: 
011447,000679: 43,2510           34752                          CAF      TWO                                   
011448,000680: 43,2511           55752                          TS       RTSTMAX                               #  FOR SEQUENTIAL STORAGE
011449,000681: 
011450,000682: 43,2512           05203                          TC       WAITLIST                              

[WORKAROUND] RSB 2009

011452,000684: 43,2513  40,2000                                 SBANK=   PINSUPER                              

[WORKAROUND]

011454,000686: 43,2513  E4,1600                                 EBANK=   RSTACK                                
011455,000687: 43,2513           02003 52104                    2CADR    RADSAMP                               
011456,000688: 
011457,000689: 43,2515           00003                          RELINT                                         
011458,000690: 
011459,000691: 43,2516           40077                          CS       FLAGWRD3                              #  CHECK R04FLAG          R04 =1          R77 =0
011460,000692: 43,2517           74743                          MASK     R04FLBIT                              
011461,000693:                                                                                                 #  Page 278
011462,000694: 43,2520           10000                          CCS      A                                     
011463,000695: 43,2521           12121                          TCF      GOPIN                                 #  R77
011464,000696: 
011465,000697: 43,2522           36242                          CAF      SIX                                   #  RR OR LR
011466,000698: 43,2523           71751                          MASK     RTSTDEX                               
011467,000699: 43,2524           10000                          CCS      A                                     
011468,000700: 43,2525           12542                          TCF      R04LR                                 #  LR
011469,000701: 
011470,000702: 43,2526           32631        R04RR             CAF      V16N72                                #  DISPLAY RR CDU ANGLES (1/SEC)
011471,000703: 43,2527           04616                          TC       BANKCALL                              #         R1 + XXX.XX DEG         TRUNNION
011472,000704: 43,2530           20334                          CADR     GOMARKF                               #         R2 + XXX.XX DEG         SHAFT
011473,000705: 43,2531           12603                          TCF      R04END                                #  V34    R3   BLANK
011474,000706: 43,2532           12534                          TCF      +2                                    #  V33
011475,000707: 43,2533           12526                          TCF      R04RR                                 #  V32
011476,000708: 
011477,000709: 43,2534           32632                          CAF      V16N78                                #  DISPLAY RR RANGE AND RANGE RATE (1/SEC)
011478,000710: 43,2535           04616                          TC       BANKCALL                              #         R1 +- XXX.XX NM         RANGE
011479,000711: 43,2536           20334                          CADR     GOMARKF                               #         R2 +- XXXXX. FPS        RANGE RATE
011480,000712: 43,2537           12603                          TCF      R04END                                #  V34    R3    BLANK
011481,000713: 43,2540           12556                          TCF      R04Y                                  #  V33
011482,000714: 43,2541           12526                          TCF      R04RR                                 #  V32
011483,000715: 
011484,000716: 43,2542           32633        R04LR             CAF      V16N66                                #  DISPLAY LR RANGE AND POSITON (1/SEC)
011485,000717: 43,2543           04616                          TC       BANKCALL                              #         R1 +- XXXXX, FT         LR RANGE
011486,000718: 43,2544           20334                          CADR     GOMARKF                               #         R2 +  0000X.            POS. NO.
011487,000719: 43,2545           12603                          TCF      R04END                                #  V34    R3    BLANK
011488,000720: 43,2546           12550                          TCF      +2                                    #  V33
011489,000721: 43,2547           12542                          TCF      R04LR                                 #  V32
011490,000722: 
011491,000723: 43,2550           32634                          CAF      V16N67                                #  DISPLAY LR VELX, VELY, VELZ (1/SEC)
011492,000724: 43,2551           04616                          TC       BANKCALL                              #         R1 +- XXXXX. FPS        LR V(X)
011493,000725: 43,2552           20334                          CADR     GOMARKF                               #         R2 +- XXXXX. FPS        LR V(Y)
011494,000726: 43,2553           12603                          TCF      R04END                                #  V34    R3 +- XXXXX. FPS        LR V(Z)
011495,000727: 43,2554           12556                          TCF      R04Y                                  #  V33
011496,000728: 43,2555           12542                          TCF      R04LR                                 #  V32
011497,000729: 
011498,000730: 43,2556           34755        R04Y              CAF      ZERO                                  #  TO TERMINATE SAMPLING.
011499,000731: 43,2557           55755                          TS       RSAMPDT                               
011500,000732: 43,2560           35000                          CAF      2SECS                                 #  WAIT FOR LAST RADARUP
011501,000733: 43,2561           04616                          TC       BANKCALL                              
011502,000734: 43,2562           01735                          CADR     DELAYJOB                              
011503,000735: 43,2563           32640                          CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
011504,000736: 43,2564           55755                          TS       RSAMPDT                               
011505,000737: 43,2565           34755                          CAF      ZERO                                  #  FOR STORING RESULTS
011506,000738: 43,2566           55754                          TS       RTSTLOC                               
011507,000739: 43,2567           36242                          CAF      SIX                                   
011508,000740: 43,2570           71751                          MASK     RTSTDEX                               
011509,000741: 43,2571           10000                          CCS      A                                     
011510,000742: 43,2572           44753                          CS       ONE                                   #  WAS LR
011511,000743: 43,2573           64752                          AD       TWO                                   #  WAS RR
011512,000744:                                                                                                 #  Page 279
011513,000745: 
011514,000746: 43,2574           12462                          TCF      R04X       -1                         
011515,000747: 
011516,000748: 43,2575           34766        R04K              CAF      250MS+1                               #  SAMPLE 4 LR COMPONENTS PER SECOND.
011517,000749: 43,2576           55755                          TS       RSAMPDT                               
011518,000750: 
011519,000751: 43,2577           34752        R04L              CAF      TWO                                   
011520,000752: 43,2600           55753                          TS       RTSTBASE                              #  FOR LR BASE =2, MAX =3
011521,000753: 43,2601           36242                          CAF      SIX                                   
011522,000754: 43,2602           12511                          TCF      R04C       +4                         
011523,000755: 43,2603           34755        R04END            CAF      ZERO                                  #  ZERO RSAMPDT
011524,000756: 43,2604           55755                          TS       RSAMPDT                               #  TO TERMINATE SAMPLING
011525,000757: 43,2605           34744                          CAF      BIT8                                  #  WAIT 1.28 SECONDS FOR POSSIBLE
011526,000758: 43,2606           04616                          TC       BANKCALL                              #  PENDING RUPT.
011527,000759: 43,2607           01735                          CADR     DELAYJOB                              
011528,000760: 
011529,000761: 43,2610           00004                          INHINT                                         
011530,000762: 43,2611           44736                          CS       BIT14                                 #  DISABLE RR AUTO TRACKER.
011531,000763: 43,2612           00006                          EXTEND                                         
011532,000764: 43,2613           03012                          WAND     CHAN12                                
011533,000765: 
011534,000766: 43,2614           05516                          TC       DOWNFLAG                              
011535,000767: 43,2615           00063                          ADRES    R04FLAG                               #  SIGNAL END OF R04.
011536,000768: 
011537,000769: 43,2616           05472                          TC       ENDEXT                                
011538,000770: 
011539,000771: 43,2617           34741        R77END            CAF      EBANK4                                #  TO TERMINATE SAMPLING
011540,000772: 43,2620           54003                          TS       EBANK                                 
011541,000773: 43,2621           34755                          CAF      ZERO                                  
011542,000774: 43,2622           55755                          TS       RSAMPDT                               
011543,000775: 43,2623           34746                          CAF      BIT6                                  #  WAIT 320 MS FOR POSSIBLE
011544,000776: 43,2624           04616                          TC       BANKCALL                              #  PENDING RUPT.
011545,000777: 43,2625           01735                          CADR     DELAYJOB                              
011546,000778: 
011547,000779: 43,2626           05516                          TC       DOWNFLAG                              
011548,000780: 43,2627           00117                          ADRES    R77FLAG                               
011549,000781: 43,2630           12121                          TCF      GOPIN                                 
011550,000782: 
011551,000783: 43,2631           04110        V16N72            VN       1672                                  
011552,000784: 43,2632           04116        V16N78            VN       1678                                  
011553,000785: 43,2633           04102        V16N66            VN       1666                                  
011554,000786: 43,2634           04103        V16N67            VN       1667                                  
011555,000787: 43,2635           01014        V04N12X           VN       412                                   
011556,000788: 43,2636           14431        V50N25X           VN       5025                                  
011557,000789: 43,2637           00201        201R04            OCT      00201                                 
011558,000790: 43,2640           00145        1SEC+1            DEC      101        B-14                       
011559,000791: 43,2641     4766               250MS+1           EQUALS   CALLCODE                              
011560,000792: 43,2641           00444        LRPOSCAL          OCT      444                                   
011561,000793: 
011562,000794:                                                                                                 #  Page 280
011563,000795: 43,2642           40077        RDRUSECK          CS       FLAGWRD3                              #  IS R29 ON?
011564,000796: 43,2643           74741                          MASK     NR29FBIT                              
011565,000797: 43,2644           10000                          CCS      A                                     
011566,000798: 43,2645           02120                          TC       ALM/END                               #  YES
011567,000799: 43,2646           30101                          CA       FLAGWRD5                              #  IS R77 RUNNING?
011568,000800: 43,2647           74741                          MASK     R77FLBIT                              
011569,000801: 43,2650           10000                          CCS      A                                     
011570,000802: 43,2651           02120                          TC       ALM/END                               #  YES.
011571,000803: 43,2652           40103                          CS       FLAGWRD7                              #  IS SERVICER RUNNING AND HENCE POSSIBLY
011572,000804: 43,2653           74746                          MASK     V37FLBIT                              #  R12 USING THE LR?
011573,000805: 43,2654           10000                          CCS      A                                     
011574,000806: 43,2655           12662                          TCF      CHECKRR                               #  NO
011575,000807: 43,2656           40107                          CS       FLGWRD11                              #  YES, IS R12 ON?
011576,000808: 43,2657           74735                          MASK     LRBYBIT                               
011577,000809: 43,2660           10000                          CCS      A                                     
011578,000810: 43,2661           02120                          TC       ALM/END                               #  YES
011579,000811: 43,2662           40075        CHECKRR           CS       FLAGWRD1                              #  IS THE TRACK FLAG SET AND HENCE POSSIBLY
011580,000812: 43,2663           74747                          MASK     TRACKBIT                              #  P20 USING THE RR?
011581,000813: 43,2664           10000                          CCS      A                                     
011582,000814: 43,2665           12672                          TCF      CHECKP22                              #  NO, CHECK FOR P22.
011583,000815: 
011584,000816: 43,2666           30074        CKRNDBIT          CA       FLAGWRD0                              #  YES, BUT IS IT P25?
011585,000817: 43,2667           74745                          MASK     RNDVZBIT                              
011586,000818: 43,2670           10000                          CCS      A                                     
011587,000819: 43,2671           02120                          TC       ALM/END                               
011588,000820: 43,2672           41011        CHECKP22          CS       MODREG                                
011589,000821: 43,2673           62677                          AD       DEC22                                 
011590,000822: 43,2674           00006                          EXTEND                                         
011591,000823: 43,2675           12120                          BZF      ALM/END                               
011592,000824: 43,2676           00002                          TC       Q                                     
011593,000825: 
011594,000826: 43,2677           00026        DEC22             DEC      22         B-14                       
011595,000827: 
011596,000828: 43,2700                                          COUNT*   $$/EXTVB                              
011597,000829: 
011598,000830: 43,2700           02123        VB64              TC       CHKP00H                               #  DEMAND PROGRAM 00.             
011599,000831: 43,2701           02076                          TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY MAKE IT BUSY.
011600,000832: 43,2702           34740                          CAF      PRIO4                                 
011601,000833: 43,2703           05105                          TC       FINDVAC                               
011602,000834: 43,2704  E4,1600                                 EBANK=   ALPHASB                               
011603,000835: 43,2704           03606 64104                    2CADR    SBANDANT                              #  CALC., DISPLAY S-BAND ANTENNA ANGLES.
011604,000836: 
011605,000837: 43,2706           05155                          TC       ENDOFJOB                              
011606,000838: 
011607,000839:                                                                                                 #  Page 281
011608,000840:                                                                                                 #  IMUATTCK       VERB 43         DESCRIPTION
011609,000841:                                                                                                 #         LOAD IMU ATTITUDE ERROR METERS
011610,000842: 
011611,000843:                                                                                                 #         1.      REQUIRE P00 OR FRESH START.
011612,000844:                                                                                                 #         2.      REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
011613,000845:                                                                                                 #         3.      REQUIRE THAT NEEDLES BE OFF.
011614,000846:                                                                                                 #         4.      REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED).
011615,000847:                                                                                                 #         5.      ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
011616,000848: 
011617,000849: 43,2707           02123        IMUATTCK          TC       CHKP00H                               #  VB 76 -- LOAD IMU ATT. ERROR METERS
011618,000850: 
011619,000851: 43,2710           34763                          CAF      BITS4&5                               #  SEE IF COARSE ALIGN ENABLE AND ZERO IMU
011620,000852: 43,2711           00006                          EXTEND                                         #  CDUS BITS ARE ON
011621,000853: 43,2712           02012                          RAND     CHAN12                                
011622,000854: 43,2713           10000                          CCS      A                                     
011623,000855: 43,2714           12120                          TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
011624,000856: 
011625,000857: 43,2715           34355                          CAF      BIT13-14                              #  BOTH BITS 13 AND 14 MUST BE 1
011626,000858: 43,2716           00006                          EXTEND                                         #  INDICATING THE MODE SELECTED IS OFF.
011627,000859: 43,2717           06031                          RXOR     CHAN31                                
011628,000860: 43,2720           74355                          MASK     BIT13-14                              
011629,000861: 43,2721           00006                          EXTEND                                         
011630,000862: 43,2722           12724                          BZF      +2                                    #  NEEDLES IS OFF.
011631,000863: 43,2723           12120                          TCF      ALM/END                               #  EXIT.  NEEDLES IS ON.
011632,000864: 
011633,000865: 43,2724           02076                          TC       TESTXACT                              
011634,000866: 
011635,000867: 43,2725           32225                          CAF      VNLODCDU                              
011636,000868: 43,2726           04616                          TC       BANKCALL                              
011637,000869: 43,2727           20334                          CADR     GOXDSPF                               
011638,000870: 43,2730           05472                          TC       ENDEXT                                #  V34
011639,000871: 43,2731           02732                          TC       +1                                    
011640,000872: 43,2732           32745                          CAF      V43K                                  #  REDISPLAY OUR VERB.
011641,000873: 43,2733           04616                          TC       BANKCALL                              
011642,000874: 43,2734           20620                          CADR     EXDSPRET                              
011643,000875: 43,2735           34746                          CAF      BIT6                                  
011644,000876: 43,2736           00006                          EXTEND                                         
011645,000877: 43,2737           05012                          WOR      CHAN12                                #  ENABLE ERROR COUNTERS.
011646,000878: 43,2740           34752                          CAF      TWO                                   
011647,000879: 43,2741           05203                          TC       WAITLIST                              #  PUT OUT COMMANDS IN .32 SECONDS.
011648,000880: 43,2742     0321                                 EBANK=   THETAD                                
011649,000881: 43,2742           02035 64100                    2CADR    ATTCK2                                
011650,000882: 
011651,000883: 43,2744           15472                          TCF      ENDEXT                                
011652,000884: 
011653,000885: 42,2035                                          BANK     42                                    
011654,000886: 42,2000                                          SETLOC   PINBALL3                              #  SOMETHING IN B42.
011655,000887: 42,2000                                          BANK                                           
011656,000888: 
011657,000889: 42,2035                                          COUNT*   $$/EXTVB                              
011658,000890:                                                                                                 #  Page 282
011659,000891: 42,2035           34752        ATTCK2            CAF      TWO                                   #  PUT OUT COMMANDS.
011660,000892: 42,2036           54002                 +1       TS       Q                                     #  CDU WILL LIMIT EXCESS DATA.
011661,000893: 42,2037           50000                          INDEX    A                                     
011662,000894: 42,2040           30321                          CA       THETAD                                
011663,000895: 42,2041           00006                          EXTEND                                         
011664,000896: 42,2042           72053                          MP       ATTSCALE                              
011665,000897: 42,2043           50002                          INDEX    Q                                     
011666,000898: 42,2044           56050                          XCH      CDUXCMD                               
011667,000899: 42,2045           10002                          CCS      Q                                     
011668,000900: 42,2046           12036                          TCF      ATTCK2     +1                         
011669,000901: 
011670,000902: 42,2047           37740                          CAF      13,14,15                              
011671,000903: 42,2050           00006                          EXTEND                                         
011672,000904: 42,2051           05014                          WOR      CHAN14                                
011673,000905: 42,2052           15261                          TCF      TASKOVER                              #  LEAVE ERROR COUNTERS ENABLED.
011674,000906: 
011675,000907: 42,2053           03146        ATTSCALE          DEC      0.1                                   
011676,000908: 
011677,000909: 07,2667                                          BANK     7                                     
011678,000910: 43,2000                                          SETLOC   EXTVERBS                              
011679,000911: 43,2000                                          BANK                                           
011680,000912: 
011681,000913: 43,2745                                          COUNT*   $$/EXTVB                              
011682,000914: 
011683,000915: 43,2745           12600        V43K              VN       4300                                  
011684,000916: 
011685,000917:                                                                                                 #  V82PERF        VERB82          DESCRIPTION
011686,000918:                                                                                                 #         REQUEST ORBIT PARAMETERS DISPLAY (R30)
011687,000919: 
011688,000920:                                                                                                 #         1.      IF AVERAGE G IS OFF:
011689,000921:                                                                                                 #                         FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011690,000922:                                                                                                 #                         TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
011691,000923:                                                                                                 #                         CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ I.
011692,000924:                                                                                                 #                         SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011693,000925:                                                                                                 #                         CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011694,000926:                                                                                                 #                         RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
011695,000927:                                                                                                 #                         HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011696,000928:                                                                                                 #                         HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
011697,000929:                                                                                                 #                         INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011698,000930:                                                                                                 #                         FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
011699,000931:                                                                                                 #                         NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011700,000932:                                                                                                 #                         ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011701,000933:                                                                                                 #                         DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011702,000934:                                                                                                 #                         ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011703,000935: 
011704,000936:                                                                                                 #         2.      IF AVERAGE G IS ON:
011705,000937:                                                                                                 #                         CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
011706,000938:                                                                                                 #                         FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
011707,000939:                                                                                                 #                         OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011708,000940:                                                                                                 #                         FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011709,000941:                                                                                                 #                         IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011710,000942:                                                                                                 #                         RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011711,000943: 
011712,000944:                                                                                                 #  Page 283
011713,000945: 43,2746           02076        V82PERF           TC       TESTXACT                              
011714,000946: 
011715,000947: 43,2747           35021                          CAF      PRIO7                                 #  LESS THAN LAMBERT.  R30,V82
011716,000948: 43,2750           05146                          TC       PRIOCHNG                              
011717,000949: 43,2751           00006                          EXTEND                                         
011718,000950: 43,2752           32755                          DCA      V82CON                                
011719,000951: 43,2753           05165                          TC       SUPDXCHZ                              #  V82CALL IN DIFF SUPERBANK FROM V82PERF
011720,000952: 
011721,000953: 43,2754  E4,1716                                 EBANK=   HAPO                                  
011722,000954: 43,2754           03242 44104  V82CON            2CADR    V82CALL                               
011723,000955: 
011724,000956:                                                                                                 #  VB83PERF       VERB 83         DESCRIPTION
011725,000957:                                                                                                 #         REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011726,000958: 
011727,000959:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011728,000960:                                                                                                 #         2.      SCHEDULE R31CALL WITH PRIORITY 5.
011729,000961:                                                                                                 #                 A.      DISPLAY
011730,000962:                                                                                                 #                         R1      RANGE
011731,000963:                                                                                                 #                         R2      RANGE RATE
011732,000964:                                                                                                 #                         R3      THETA
011733,000965: 
011734,000966: 43,2756           02076        V83PERF           TC       TESTXACT                              
011735,000967: 
011736,000968: 43,2757           34752                          CAF      BIT2                                  
011737,000969: 43,2760           05203                          TC       WAITLIST                              
011738,000970: 43,2761  E7,1611                                 EBANK=   TSTRT                                 
011739,000971: 43,2761           03674 60107                    2CADR    R31CALL                               
011740,000972: 
011741,000973: 43,2763           05155                          TC       ENDOFJOB                              
011742,000974: 
011743,000975:                                                                                                 #  VERB 89        DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011744,000976:                                                                                                 #  
011745,000977:                                                                                                 #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 IS USED.  CALCULATES AND
011746,000978:                                                                                                 #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
011747,000979: 
011748,000980:                                                                                                 #  1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
011749,000981:                                                                                                 #  EXIT R63, OTHERWISE CONTINUE.
011750,000982: 
011751,000983:                                                                                                 #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH).  IF IMU ON AND ITS
011752,000984:                                                                                                 #  ORIENTATION KNOWN TO LGC,CONTINUE.
011753,000985: 
011754,000986:                                                                                                 #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011755,000987:                                                                                                 #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
011756,000988:                                                                                                 #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
011757,000989:                                                                                                 #  AFTER KEYING IN PROCEED.
011758,000990: 
011759,000991:                                                                                                 #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
011760,000992: 
011761,000993:                                                                                                 #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
011762,000994:                                                                                                 #  Page 284
011763,000995:                                                                                                 #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
011764,000996:                                                                                                 #  PREPARED FOR VECPOINT.
011765,000997: 
011766,000998:                                                                                                 #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
011767,000999:                                                                                                 #  BALLANGS.  FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
011768,001000: 
011769,001001:                                                                                                 #  7.     RECYCLE -- RETURN TO STEP 4.
011770,001002:                                                                                                 #         TERMINATE -- EXIT R63.
011771,001003:                                                                                                 #         PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
011772,001004: 
011773,001005: 43,2764           02123        V89PERF           TC       CHKP00H                               
011774,001006: 43,2765           02076                          TC       TESTXACT                              
011775,001007: 43,2766           34737                          CAF      PRIO10                                
011776,001008: 43,2767           05105                          TC       FINDVAC                               
011777,001009: 43,2770  E4,1606                                 EBANK=   RONE                                  
011778,001010: 43,2770           02022 54104                    2CADR    V89CALL                               
011779,001011: 
011780,001012: 43,2772           05155                          TC       ENDOFJOB                              
011781,001013: 
011782,001014:                                                                                                 #  V90PERF        VERB 90         DESCRIPTION
011783,001015:                                                                                                 #         REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011784,001016: 
011785,001017:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011786,001018:                                                                                                 #         2.      SCHEDULE R36 CALL WITH PRIORITY 10
011787,001019:                                                                                                 #                 A.      DISPLAY
011788,001020:                                                                                                 #                         TIME OF EVENT -- HOURS, MINUTES, SECONDS
011789,001021:                                                                                                 #                         Y       OUT-OF-PLANE POSITION -- NAUTICAL MILES
011790,001022:                                                                                                 #                         YDOT    OUT-OF-PLANE VELOCITY -- FEET/SECOND
011791,001023:                                                                                                 #                         PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
011792,001024:                                                                                                 #                                 DIRECTION VECTOR IN HORIZONTAL PLANE -- DEGREES
011793,001025: 
011794,001026: 43,2773           02076        V90PERF           TC       TESTXACT                              
011795,001027: 43,2774           35021                          CAF      PRIO7                                 #  R36,V90
011796,001028: 43,2775           05105                          TC       FINDVAC                               
011797,001029: 43,2776  E4,1606                                 EBANK=   RPASS36                               
011798,001030: 43,2776           02656 10104                    2CADR    R36                                   
011799,001031: 
011800,001032: 43,3000           15155                          TCF      ENDOFJOB                              
011801,001033: 
011802,001034:                                                                                                 #  MINIMP VERB 76         DESCRIPTION
011803,001035:                                                                                                 #         MINIMUM IMPULSE MODE
011804,001036: 
011805,001037:                                                                                                 #         1.      SET MINIMUM IMPULSE RHO MODE FLAG TO 1.
011806,001038: 
011807,001039: 43,3001           00004        MINIMP            INHINT                                         
011808,001040: 43,3002           40111                          CS       DAPBOOLS                              
011809,001041: 43,3003           74735                          MASK     PULSES                                #  PULSES = 1 INDICATES MIN IMP MODE
011810,001042: 43,3004           26111                          ADS      DAPBOOLS                              
011811,001043: 43,3005           12121                          TCF      GOPIN                                 #  RETURN VIA PINBRNCH
011812,001044: 
011813,001045:                                                                                                 #  NOMINIMP       VERB 77         DESCRIPTION
011814,001046:                                                                                                 #         RATE COMMAND MODE
011815,001047: 
011816,001048:                                                                                                 #  Page 285
011817,001049: 
011818,001050: 
011819,001051:                                                                                                 #         1.      SET MINIMUM IMPULSE RHO MODE FLAG TO 0.  (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
011820,001052:                                                                                                 #         2.      MOVE CDUX, CDUY, CDUZ INTO CDUXD, CDUYD, CDUZD.
011821,001053: 
011822,001054: 
011823,001055: 43,3006           00004        NOMINIMP          INHINT                                         
011824,001056: 43,3007           44735                          CS       PULSES                                
011825,001057: 43,3010           70111                          MASK     DAPBOOLS                              
011826,001058: 43,3011           54111                          TS       DAPBOOLS                              #  PULSES = NOT IN MINIMUM UMPULSE MODE
011827,001059: 43,3012           04674                          TC       IBNKCALL                              
011828,001060: 43,3013           40153                          CADR     ZATTEROR                              
011829,001061: 43,3014           02121                          TC       GOPIN                                 
011830,001062: 
011831,001063:                                                                                                 #  Page 286
011832,001064:                                                                                                 #  CREMANU        VERB 49         DESCRIPTION
011833,001065:                                                                                                 #         START AUTOMATIC ATTITUDE MANEUVER
011834,001066: 
011835,001067:                                                                                                 #         1.      REQUIRE PROGRAM 00 ACTIVE.
011836,001068:                                                                                                 #         2.      SET EXT VERB DISPLAY BUSY FLAG.
011837,001069:                                                                                                 #         3.      SCHEDULE R62DISP WITH PRIORITY 10.
011838,001070:                                                                                                 #         4.      RELEASE EXT VERB DISPLAY.
011839,001071: 
011840,001072:                                                                                                 #         R62DISP
011841,001073:                                                                                                 #         1.      DISPLAY FLASHING V06,N22.
011842,001074:                                                                                                 #                 RESPONSES
011843,001075:                                                                                                 #                 A.      TERMINATE
011844,001076:                                                                                                 #                         1.      GOTOP00H
011845,001077:                                                                                                 #                 B.      PROCEED
011846,001078:                                                                                                 #                         1.      SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
011847,001079:                                                                                                 #                         2.      EXECUTE R60LEM (ATTITUDE MANEUVER).
011848,001080:                                                                                                 #                 C.      ENTER
011849,001081:                                                                                                 #                         1.      REPEAT FLASHING V06,N22.
011850,001082: 
011851,001083: 43,3015           02123        CREWMANU          TC       CHKP00H                               #  DEMAND P00
011852,001084: 
011853,001085: 43,3016           02076                          TC       TESTXACT                              
011854,001086: 
011855,001087: 43,3017           34737                          CAF      PRIO10                                
011856,001088: 43,3020           05105                          TC       FINDVAC                               
011857,001089: 43,3021  E6,1676                                 EBANK=   BCDU                                  
011858,001090: 43,3021           02103 46106                    2CADR    R62DISP                               
011859,001091: 
011860,001092: 43,3023           05155                          TC       ENDOFJOB                              
011861,001093: 
011862,001094:                                                                                                 #  Page 287
011863,001095:                                                                                                 #  TRMTRACK       VERB 56         DESCRIPTION
011864,001096:                                                                                                 #         TERMINATE TRACKING (P20 AND P25).
011865,001097: 
011866,001098:                                                                                                 #         1.      KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011867,001099:                                                                                                 #         2.      REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOP00H (REQUEST PROGRAM 00).
011868,001100:                                                                                                 #         3.      SCHEDULE V56TOVAC WITH PRIORITY 30.
011869,001101: 
011870,001102:                                                                                                 #         V56TOVAC
011871,001103:                                                                                                 #         1.      EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
011872,001104:                                                                                                 #         2.      ZERO GROUP 2 TO HALT P20.
011873,001105:                                                                                                 #         3.      TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
011874,001106: 
011875,001107: 43,3024           33044        TRMTRACK          CA       BITS9+7                               #  IS REND OR P25 FLAG ON
011876,001108: 43,3025           70074                          MASK     FLAGWRD0                              
011877,001109: 43,3026           00006                          EXTEND                                         
011878,001110: 43,3027           12121                          BZF      GOPIN                                 #  NO
011879,001111: 
011880,001112: 43,3030           05516                          TC       DOWNFLAG                              
011881,001113: 43,3031           00010                          ADRES    RNDVZFLG                              
011882,001114: 
011883,001115: 43,3032           05516                          TC       DOWNFLAG                              
011884,001116: 43,3033           00006                          ADRES    P25FLAG                               
011885,001117: 
011886,001118: 43,3034           05516                          TC       DOWNFLAG                              #  ENSURE SEARCH FLAG IS OFF
011887,001119: 43,3035           00037                          ADRES    SRCHOPTN                              
011888,001120: 
011889,001121: 43,3036           34747                          CA       TRACKBIT                              #  IS TRACK FLAG ON?
011890,001122: 43,3037           70075                          MASK     FLAGWRD1                              
011891,001123: 43,3040           00006                          EXTEND                                         
011892,001124: 43,3041           12121                          BZF      GOPIN                                 
011893,001125: 
011894,001126: 43,3042           04635                          TC       POSTJUMP                              
011895,001127: 43,3043           64054                          CADR     TRMTRAK1                              
011896,001128: 
011897,001129: 43,3044           00500        BITS9+7           OCT      500                                   
011898,001130: 
011899,001131: 42,2000                                          SETLOC   SBAND                                 #  BANK 42
011900,001132: 42,2000                                          BANK                                           
011901,001133: 
011902,001134: 42,2054                                          COUNT*   $$/EXTVB                              
011903,001135: 
011904,001136: 42,2054           05516        TRMTRAK1          TC       DOWNFLAG                              
011905,001137: 42,2055           00027                          ADRES    UPDATFLG                              #  UPDATE FLAG DOWN
011906,001138: 42,2056           05516                          TC       DOWNFLAG                              
011907,001139: 42,2057           00031                          ADRES    TRACKFLG                              #  TRACK FLAG DOWN
011908,001140: 42,2060           05516                          TC       DOWNFLAG                              
011909,001141: 42,2061           00007                          ADRES    IMUSE                                 
011910,001142: 
011911,001143: 42,2062           06037                          TC       INTPRET                               
011912,001144: 42,2063           77624                          CALL                                           
011913,001145: 42,2064           27414                                   INTSTALL                              #  DON'T INTERRUPT INTEGRATION
011914,001146:                                                                                                 #  Page 288
011915,001147: 42,2065           77776                          EXIT                                           
011916,001148: 
011917,001149: 42,2066           05353                          TC       PHASCHNG                              
011918,001150: 42,2067           00002                          OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
011919,001151: 
011920,001152: 42,2070           00004                          INHINT                                         
011921,001153: 42,2071           04674                          TC       IBNKCALL                              #  ZERO THE COMMANDED RATES TO STOP
011922,001154: 42,2072           40165                          CADR     STOPRATE                              #  MANEUVER
011923,001155: 
011924,001156: 42,2073           04674                          TC       IBNKCALL                              
011925,001157: 42,2074           40123                          CADR     RESTORDB                              
011926,001158: 
011927,001159: 42,2075           06011                          TC       CLRADMOD                              #  CLEAR BITS 10 + 15 OF RADMODES.
011928,001160: 
011929,001161: 42,2076           44736                          CS       BIT14                                 #  DISABLE LOCKON
011930,001162: 42,2077           00006                          EXTEND                                         
011931,001163: 42,2100           03012                          WAND     CHAN12                                
011932,001164: 42,2101           04635                          TC       POSTJUMP                              
011933,001165: 42,2102           12770                          CADR     GOPROG2                               #  CAUSE RESTART.
011934,001166: 
011935,001167:                                                                                                 #  DNEDUMP        VERB 74         DESCRIPTION
011936,001168:                                                                                                 #         INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011937,001169: 
011938,001170:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011939,001171:                                                                                                 #         2.      REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011940,001172:                                                                                                 #         3.      RELEASE EXT VERB DISPLAY.
011941,001173: 
011942,001174: 43,2000                                          SETLOC   EXTVERBS                              
011943,001175: 43,2000                                          BANK                                           
011944,001176: 
011945,001177: 43,3045                                          COUNT*   $$/EXTVB                              
011946,001178: 
011947,001179: 43,3045     0400                                 EBANK=   400                                   
011948,001180: 43,3045           33050        DNEDUMP           CAF      LDNDUMPI                              
011949,001181: 43,3046           54335                          TS       DNTMGOTO                              
011950,001182: 43,3047           02121                          TC       GOPIN                                 
011951,001183: 
011952,001184: 43,3050  43,3045               V74               EQUALS   DNEDUMP                               
011953,001185: 43,3050           03707        LDNDUMPI          REMADR   DNDUMPI                               
011954,001186: 
011955,001187:                                                                                                 #  LEMVEC VERB 80         DESCRIPTION
011956,001188:                                                                                                 #         UPDATE LEM STATE VECTOR
011957,001189:                                                                                                 #                 RESET VHUPFLG TC 0
011958,001190: 
011959,001191: 43,3051           05516        LEMVEC            TC       DOWNFLAG                              
011960,001192: 43,3052           00026                          ADRES    VEHUPFLG                              #  VB 80 -- VEHUPFLG DOWN INDICATES LEM
011961,001193: 
011962,001194: 43,3053           03056                          TC       NOUPDOWN                              
011963,001195: 
011964,001196:                                                                                                 #  CSMVEC VERB 81         DESCRIPTION
011965,001197:                                                                                                 #         UPDATE CSM STATE VECTOR
011966,001198:                                                                                                 #  Page 289
011967,001199:                                                                                                 #                 SET VEHUPFLG TO 1
011968,001200: 
011969,001201: 43,3054           05504        CSMVEC            TC       UPFLAG                                
011970,001202: 43,3055           00026                          ADRES    VEHUPFLG                              #  VB 81 -- VEHUPFLG UP INDICATES CSM
011971,001203: 
011972,001204: 43,3056           05516        NOUPDOWN          TC       DOWNFLAG                              
011973,001205: 43,3057           00030                          ADRES    NOUPFLAG                              
011974,001206: 
011975,001207: 43,3060           12121                          TCF      GOPIN                                 
011976,001208: 
011977,001209:                                                                                                 #  UPDATOFF       VERB 95         DESCRIPTION
011978,001210:                                                                                                 #         INHIBIT STATE VECTOR UPDATES BY INCORP
011979,001211:                                                                                                 #                 SET NOUPFLAG TO 1
011980,001212: 
011981,001213: 43,3061           05504        UPDATOFF          TC       UPFLAG                                #  VB 95 SET NOUPFLAG
011982,001214: 43,3062           00030                          ADRES    NOUPFLAG                              
011983,001215: 
011984,001216: 43,3063           02121                          TC       GOPIN                                 
011985,001217:                                                                                                 #  Page 290
011986,001218:                                                                                                 #  SYSTEST        VERB 92         DESCRIPTION
011987,001219:                                                                                                 #         OPERATE IMU PERFORMANCE TEST.
011988,001220: 
011989,001221:                                                                                                 #         1.      REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
011990,001222:                                                                                                 #         2.      SET EXT VERB BUSY FLAG.
011991,001223: 
011992,001224: 43,3064  E5,1417                                 EBANK=   QPLACE                                
011993,001225: 
011994,001226: 43,3064           02123        SYSTEST           TC       CHKP00H                               #  DEMAND P00
011995,001227: 
011996,001228: 43,3065           02076                          TC       TESTXACT                              
011997,001229: 
011998,001230: 43,3066           37710                          CAF      PRIO22                                
011999,001231: 43,3067           05105                          TC       FINDVAC                               
012000,001232: 43,3070  E5,1417                                 EBANK=   QPLACE                                
012001,001233: 43,3070  37,2000                                 SBANK=   IMUSUPER                              
012002,001234: 43,3070           02002 76065                    2CADR    REDO                                  
012003,001235: 
012004,001236: 43,3072           05155                          TC       ENDOFJOB                              
012005,001237: 
012006,001238:                                                                                                 #  VERB 93        CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
012007,001239: 
012008,001240: 43,3073           00004        WMATRXNG          INHINT                                         
012009,001241: 43,3074           44753                          CS       RENDWBIT                              
012010,001242: 43,3075           70101                          MASK     FLAGWRD5                              
012011,001243: 43,3076           54101                          TS       FLAGWRD5                              
012012,001244: 
012013,001245: 43,3077           02121                          TC       GOPIN                                 
012014,001246: 
012015,001247: 43,3100  43,3100               GOSHOSUM          EQUALS   SHOWSUM                               
012016,001248: 
012017,001249: 43,3100           02123        SHOWSUM           TC       CHKP00H                               #  *
012018,001250: 43,3101           02076                          TC       TESTXACT                              #  *
012019,001251: 43,3102           35021                          CAF      PRIO7                                 #  * ALLOW OTHER CHARINS.
012020,001252: 43,3103           05146                          TC       PRIOCHNG                              #  *
012021,001253: 43,3104           34753                          CAF      S+1                                   #  *
012022,001254: 43,3105           55376                          TS       SKEEP6                                #  * SHOWSUM OPTION
012023,001255: 43,3106           34755                          CAF      S+ZERO                                #  *
012024,001256: 43,3107           55362                          TS       SMODE                                 #  * TURN OFF SELF-CHECK
012025,001257: 43,3110           33245                          CA       SELFADRS                              #  *
012026,001258: 43,3111           55361                          TS       SELFRET                               #  *
012027,001259: 43,3112           03522                          TC       STSHOSUM                              #  * ENTER ROPECHK
012028,001260: 
012029,001261: 43,3113           23372        SDISPLAY          LXCH     SKEEP2                                #  * BANK # FOR DISPLAY
012030,001262: 43,3114           23373                          LXCH     SKEEP3                                #  * BUGGER WORD FOR DISPLAY
012031,001263: 43,3115           33244        NOKILL            CA       ADRS1                                 #  *
012032,001264: 43,3116           54156                          TS       MPAC       +2                         #  *
012033,001265: 43,3117           33130                          CA       VNCON                                 #  * 0501
012034,001266: 43,3120           04616                          TC       BANKCALL                              #  *
012035,001267: 43,3121           20334                          CADR     GOXDSPF                               #  *
012036,001268: 43,3122           03125                          TC       +3                                    #  *
012037,001269: 43,3123           03633                          TC       NXTBNK                                #  *
012038,001270:                                                                                                 #  Page 291
012039,001271: 43,3124           03115                          TC       NOKILL                                #  *
012040,001272: 43,3125           33245                          CA       SELFADRS                              
012041,001273: 43,3126           55371                          TS       SKEEP1                                
012042,001274: 
012043,001275: 43,3127           05472                          TC       ENDEXT                                #  *
012044,001276: 43,3130           01201        VNCON             VN       501                                   #  *
012045,001277: 43,3131           31376        ENDSUMS           CA       SKEEP6                                #  *
012046,001278: 43,3132           00006                          EXTEND                                         #  *
012047,001279: 43,3133           13336                          BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
012048,001280: 43,3134           03522                          TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
012049,001281: 
012050,001282:                                                                                                 #  Page 292
012051,001283:                                                                                                 #  DAPDISP        VERB 48         DESCRIPTION
012052,001284:                                                                                                 #         LOAD AUTO PILOT DATA
012053,001285: 
012054,001286:                                                                                                 #         1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
012055,001287:                                                                                                 #         2.      EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
012056,001288:                                                                                                 #         3.      RELEASE EXT VERB DISPLAY SYSTEM.
012057,001289: 
012058,001290: 43,3135           02076        DAPDISP           TC       TESTXACT                              
012059,001291: 43,3136           35021                          CAF      PRIO7                                 #  R03
012060,001292: 43,3137           05146                          TC       PRIOCHNG                              
012061,001293: 43,3140           04635                          TC       POSTJUMP                              
012062,001294: 43,3141           40004                          CADR     DAPDATA1                              
012063,001295: 
012064,001296: 34,2000                                          BANK     34                                    
012065,001297: 20,2000                                          SETLOC   LOADDAP                               
012066,001298: 20,2000                                          BANK                                           
012067,001299: 
012068,001300: 20,2004                                          COUNT*   $$/R03                                
012069,001301: 
012070,001302: 20,2004  30,2000                                 SBANK=   LOWSUPER                              #  FOR SUBSEQUENT LOW 2CADR'S
012071,001303: 
012072,001304: 20,2004           32114        DAPDATA1          CAF      BOOLSMSK                              #  SET DISPLAY ACCORDING TO DAPBOOLS BITS.
012073,001305: 20,2005           70111                          MASK     DAPBOOLS                              #  LM
012074,001306: 20,2006           55343                          TS       DAPDATR1                              #  LM
012075,001307: 20,2007           40106                          CS       FLGWRD10                              #  SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
012076,001308: 20,2010           74737                          MASK     APSFLBIT                              
012077,001309: 20,2011           10000                          CCS      A                                     
012078,001310: 20,2012           34736                          CAF      BIT14                                 
012079,001311: 20,2013           27343                          ADS      DAPDATR1                              
012080,001312: 20,2014           31343        CHKDATA1          CAE      DAPDATR1                              #  IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
012081,001313: 20,2015           74355                          MASK     BIT13-14                              #         A ONE INTO BIT 13.
012082,001314: 20,2016           00006                          EXTEND                                         
012083,001315: 20,2017           12034                          BZF      FORCEONE                              
012084,001316: 20,2020           31343                          CAE      DAPDATR1                              #  ENSURE THAT NO ILLEGAL BITS SET BY CREW.
012085,001317: 20,2021           72113        MSKDATR1          MASK     DSPLYMSK                              
012086,001318: 20,2022           55343                          TS       DAPDATR1                              
012087,001319: 20,2023           32112                          CAF      V01N46                                #  LM
012088,001320: 20,2024           04616                          TC       BANKCALL                              
012089,001321: 20,2025           20353                          CADR     GOXDSPFR                              
012090,001322: 20,2026           15472                          TCF      ENDEXT                                #  V34E TERMINATE
012091,001323: 20,2027           12037                          TCF      DPDAT1                                #  V33E PROCEED
012092,001324: 20,2030           12014                          TCF      CHKDATA1                              #  E      NEW DATA        CHECK AND REDISPLAY
012093,001325: 20,2031           36242                          CAF      REVCNT                                #  BITS 2 & 3:  BLANKS R2 & R3.
012094,001326: 20,2032           05464                          TC       BLANKET                               
012095,001327: 20,2033           15155                          TCF      ENDOFJOB                              
012096,001328: 20,2034           34737        FORCEONE          CAF      BIT13                                 
012097,001329: 20,2035           27343                          ADS      DAPDATR1                              
012098,001330: 20,2036           12021                          TCF      MSKDATR1                              
012099,001331: 
012100,001332: 20,2037           00004        DPDAT1            INHINT                                         #  INHINT FOR SETTING OF FLAG BITS AND MASS
012101,001333: 20,2040           44737                          CS       APSFLBIT                              #         ON BASIS OF DISPLAYED DAPDATR1.
012102,001334: 20,2041           70106                          MASK     FLGWRD10                              
012103,001335: 20,2042           54001                          TS       L                                     #  SET APSFLAG TO BE COMPLEMENT OF BIT 14.
012104,001336:                                                                                                 #  Page 293
012105,001337: 20,2043           41343                          CS       DAPDATR1                              
012106,001338: 20,2044           74736                          MASK     BIT14                                 
012107,001339: 20,2045           10000                          CCS      A                                     
012108,001340: 20,2046           34737                          CAF      APSFLBIT                              
012109,001341: 20,2047           60001                          AD       L                                     
012110,001342: 20,2050           54106                          TS       FLGWRD10                              
012111,001343: 20,2051           41343                          CS       DAPDATR1                              #  SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
012112,001344: 20,2052           74355                          MASK     BIT13-14                              #         MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
012113,001345: 20,2053           10000                          CCS      A                                     #         13 AND 14 ARE SET.
012114,001346: 20,2054           44737                          CS       CSMDOCKD                              
012115,001347: 20,2055           62114                          AD       BOOLSMSK                              
012116,001348: 20,2056           71343                          MASK     DAPDATR1                              
012117,001349: 20,2057           54001                          TS       L                                     
012118,001350: 20,2060           42114                          CS       BOOLSMSK                              
012119,001351: 20,2061           70111                          MASK     DAPBOOLS                              
012120,001352: 20,2062           60001                          AD       L                                     
012121,001353: 20,2063           54111                          TS       DAPBOOLS                              
012122,001354: 20,2064           74737                          MASK     CSMDOCKD                              #  LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
012123,001355: 20,2065           10000                          CCS      A                                     #         MASS IS USUALLY OKAY, SO DO
012124,001356: 20,2066           31332                          CAE      CSMMASS                               #         NOT TOUCH ITS LOW-ORDER PART.
012125,001357: 20,2067           61331                          AD       LEMMASS                               
012126,001358: 20,2070           55244                          TS       MASS                                  
012127,001359: 20,2071           30111                          CAE      DAPBOOLS                              
012128,001360: 20,2072           74741                          MASK     ACC4OR2X                              #  2 OR 4 JET X-TRANSLATION
012129,001361: 20,2073           00006                          EXTEND                                         #  (BIT ACC4OR2X = 1 FOR 4 JETS)
012130,001362: 20,2074           12101                          BZF      +5                                    
012131,001363: 20,2075           44735                          CS       BIT15                                 
012132,001364: 20,2076           70075                          MASK     FLAGWRD1                              #  CLEAR NJTSFLAG TO 0 FOR 4 JETS
012133,001365: 20,2077           54075                          TS       FLAGWRD1                              
012134,001366: 20,2100           12104                          TCF      +4                                    
012135,001367: 20,2101           40075                          CS       FLAGWRD1                              #  SET NJTSFLAG TO 1 FOR 2 JETS
012136,001368: 20,2102           74735                          MASK     BIT15                                 
012137,001369: 20,2103           26075                          ADS      FLAGWRD1                              
012138,001370: 20,2104           30111                          CA       DAPBOOLS                              #  SELECT DESIRED KALCMANU AUTOMATIC
012139,001371: 20,2105           76245                          MASK     THREE                                 #  MANEUVER RATE
012140,001372: 20,2106           60000                          DOUBLE                                         #  RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
012141,001373: 20,2107           55325                          TS       RATEINDX                              #  ARE DP
012142,001374: 20,2110           04635                          TC       POSTJUMP                              
012143,001375: 20,2111           02206                          CADR     STIKLOAD                              
012144,001376: 
012145,001377: 20,2112           00256        V01N46            VN       0146                                  
012146,001378: 20,2113           33113        DSPLYMSK          OCT      33113                                 
012147,001379: 20,2114           13113        BOOLSMSK          OCT      13113                                 
012148,001380: 
012149,001381: 01,2206                                          BANK     01                                    
012150,001382: 01,2000                                          SETLOC   LOADDAP1                              
012151,001383: 01,2000                                          BANK                                           
012152,001384: 
012153,001385: 01,2206                                          COUNT*   $$/R03                                
012154,001386: 
012155,001387: 01,2206           35015        STIKLOAD          CAF      EBANK6                                
012156,001388:                                                                                                 #  Page 294
012157,001389: 01,2207           54003                          TS       EBANK                                 
012158,001390: 01,2210  E6,1444                                 EBANK=   STIKSENS                              
012159,001391: 01,2210           34745                          CA       RHCSCALE                              #  SET STICK SENSITIVITY TO CORRESPOND TO A
012160,001392: 01,2211           70111                          MASK     DAPBOOLS                              #  MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
012161,001393: 01,2212           10000                          CCS      A                                     #  20 D/S (NORMAL) OR 4 D/S (FINE), SCALED
012162,001394: 01,2213           32337                          CA       NORMAL                                #  AT 45 D/S.
012163,001395: 01,2214           62340                          AD       FINE                                  
012164,001396: 01,2215           55444                          TS       STIKSENS                              
012165,001397: 01,2216           32342                          CA       -0.6D/S                               
012166,001398: 01,2217           55476                          TS       -RATEDB                               #  LM-ONLY BREAKOUT LEVEL IS .6 D/S.
012167,001399: 01,2220           34737                          CA       CSMDOCKD                              #  IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
012168,001400: 01,2221           70111                          MASK     DAPBOOLS                              #  BY 10.  NORMAL SCALING IS THEN 2 D/S AND
012169,001401: 01,2222           00006                          EXTEND                                         #  FINE SCALING IS 0.4 D/S
012170,001402: 01,2223           12232                          BZF      +7                                    #  BRANCH IF CSM IS NOT DOCKED.
012171,001403: 01,2224           31444                          CA       STIKSENS                              
012172,001404: 01,2225           00006                          EXTEND                                         
012173,001405: 01,2226           72341                          MP       1/10                                  
012174,001406: 01,2227           55444                          TS       STIKSENS                              
012175,001407: 01,2230           32343                          CA       -0.3D/S                               #  CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
012176,001408: 01,2231           55476                          TS       -RATEDB                               
012177,001409: 01,2232           00003                          RELINT                                         #  PROCEED TO NOUN 47, MASS LOAD.
012178,001410: 
012179,001411: 01,2233           32334        DAPDATA2          CAF      V0647                                 
012180,001412: 01,2234           04616                          TC       BANKCALL                              
012181,001413: 01,2235           20353                          CADR     GOXDSPFR                              
012182,001414: 01,2236           12244                          TCF      ENDR03                                #  V34E   TERMINATE. FIRST SET DB.  DO 1/ACCS
012183,001415: 01,2237           12250                          TCF      DAPDAT2                               #  V33E   PROCEED
012184,001416: 01,2240           12233                          TCF      DAPDATA2                              #         LOAD NEW DATA AND RECYCLE
012185,001417: 01,2241           34751                          CAF      BIT3                                  #  BLANKS R3
012186,001418: 01,2242           05464                          TC       BLANKET                               #                 LM
012187,001419: 01,2243           15155                          TCF      ENDOFJOB                              
012188,001420: 01,2244           00004        ENDR03            INHINT                                         
012189,001421: 01,2245           04674                          TC       IBNKCALL                              
012190,001422: 01,2246           40123                          CADR     RESTORDB                              
012191,001423: 01,2247           15472                          TCF      ENDEXT                                #  DOES RELINT
012192,001424: 
012193,001425: 01,2250           40106        DAPDAT2           CS       FLGWRD10                              #  DETERMINE STAGE FROM APSFLAG
012194,001426: 01,2251           74737                          MASK     APSFLBIT                              
012195,001427: 01,2252           10000                          CCS      A                                     
012196,001428: 01,2253           32000                          CA       MINLMD                                
012197,001429: 01,2254           62001                          AD       MINMINLM                              
012198,001430: 01,2255           61331                          AD       LEMMASS                               #  LEMMASS MUST BE GREATER THAN EMPTY LEM
012199,001431: 01,2256           00006                          EXTEND                                         
012200,001432: 01,2257           62233                          BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
012201,001433: 01,2260           30111                          CAE      DAPBOOLS                              
012202,001434: 01,2261           74737                          MASK     CSMDOCKD                              
012203,001435: 01,2262           00006                          EXTEND                                         
012204,001436: 01,2263           12271                          BZF      LEMALONE                              #  SKIP TEST ON CSMMASS IF NOT DOCKED.
012205,001437: 01,2264           44741                          CS       MINCSM                                #  TEST CSM MASS
012206,001438: 01,2265           61332                          AD       CSMMASS                               #  CSMMASS MUST BE GREATER THAN EMPTY CSM
012207,001439:                                                                                                 #  Page 295
012208,001440: 01,2266           00006                          EXTEND                                         
012209,001441: 01,2267           62233                          BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
012210,001442: 01,2270           31332                          CAE      CSMMASS                               #  DOCKED:  MASS = CSMMASS + LEMMASS
012211,001443: 01,2271           61331        LEMALONE          AD       LEMMASS                               #  LEM ALONE:  MASS = LEMMASS
012212,001444: 01,2272           22007                          ZL                                             
012213,001445: 01,2273           53245                          DXCH     MASS                                  
012214,001446: 01,2274           00004                          INHINT                                         
012215,001447: 01,2275           04674                          TC       IBNKCALL                              #  SET DEADBANK AND COMPUTE MOMENTS OF
012216,001448: 01,2276           40123                          CADR     RESTORDB                              #         INERTIA.
012217,001449: 01,2277           00003                          RELINT                                         #  PROCEED TO NOUN 48 (OR END).
012218,001450: 
012219,001451: 01,2300           40106        DAPDATA3          CS       FLGWRD10                              
012220,001452: 01,2301           74737                          MASK     APSFLBIT                              
012221,001453: 01,2302           00006                          EXTEND                                         #  END ROUTINE IF LEM HAS STAGED.
012222,001454: 01,2303           15472                          BZF      ENDEXT                                
012223,001455: 01,2304           32335                          CAF      V06N48                                #  DISPLAY TRIM ANGLES AND REQUEST RESPONSE
012224,001456: 01,2305           04616                          TC       BANKCALL                              
012225,001457: 01,2306           20353                          CADR     GOXDSPFR                              
012226,001458: 01,2307           05472                          TC       ENDEXT                                
012227,001459: 01,2310           12315                          TCF      DPDAT3                                #  V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
012228,001460: 01,2311           12304                          TCF      -5                                    #  LOAD NEW DATA AND RECYCLE
012229,001461: 01,2312           34751                          CAF      BIT3                                  
012230,001462: 01,2313           05464                          TC       BLANKET                               #  BLANK R3
012231,001463: 01,2314           15155                          TCF      ENDOFJOB                              
012232,001464: 01,2315           34753        DPDAT3            CAF      BIT1                                  #  GO TO TRIMGIMB VIA WAITLIST SO IT
012233,001465: 01,2316           00004                          INHINT                                         #  CAN USE FIXDELAY AND VARDELAY
012234,001466: 01,2317           05203                          TC       WAITLIST                              
012235,001467: 01,2320  E6,1401                                 EBANK=   ROLLTIME                              
012236,001468: 01,2320           03217 56066                    2CADR    TRIMGIMB                              
012237,001469: 
012238,001470: 01,2322           15155                          TCF      ENDOFJOB                              #  DOES A RELINT
012239,001471: 01,2323           32336        TRIMDONE          CAF      V50N48                                
012240,001472: 01,2324           04616                          TC       BANKCALL                              #  TRIM IS FINISHED; PLEASE TERMINATE R03
012241,001473: 01,2325           20361                          CADR     GOMARK3R                              
012242,001474: 01,2326           05472                          TC       ENDEXT                                #  V34E TERMINATE
012243,001475: 01,2327           05472                          TC       ENDEXT                                
012244,001476: 01,2330           05472                          TC       ENDEXT                                
012245,001477: 01,2331           36007                          CAF      OCT24                                 #  BIT5 TO CHANGE TO PERFORM, 3 TO BLANK 43
012246,001478: 01,2332           05464                          TC       BLANKET                               
012247,001479: 01,2333           15155                          TCF      ENDOFJOB                              
012248,001480: 
012249,001481: 01,2334           01457        V0647             VN       0647                                  
012250,001482: 01,2335           01460        V06N48            VN       0648                                  
012251,001483: 
012252,001484: 01,2336           14460        V50N48            VN       5048                                  
012253,001485: 01,2337           25101        NORMAL            DEC      .660214                               
012254,001486:                                                                                                 #  NORMAL SCALING IS 20 D/S
012255,001487: 01,2340           05220        FINE              DEC      .165054                               #  FINE STICK SCALING (4 D/S).
012256,001488: 01,2341           03146        1/10              DEC      .1                                    #  FACTOR FOR CSM-DOCKED SCALING
012257,001489: 01,2342           77445        -0.6D/S           DEC      -218       B-14                       
012258,001490: 
012259,001491:                                                                                                 #  Page 296
012260,001492: 
012261,001493: 01,2343           77622        -0.3D/S           DEC      -109       B-14                       
012262,001494: 
012263,001495:                                                                                                 #  Page 297
012264,001496:                                                                                                 #  VERB 66        VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
012265,001497:                                                                                                 #                 OTHER VEHICLE STATE VECTOR.
012266,001498: 
012267,001499:                                                                                                 #  USE SUBROUTINE GENTRAN.
012268,001500: 
012269,001501: 07,2667                                          BANK     7                                     
012270,001502: 43,2000                                          SETLOC   EXTVERBS                              
012271,001503: 43,2000                                          BANK                                           
012272,001504: 
012273,001505: 43,3142                                          COUNT*   $$/EXTVB                              
012274,001506: 
012275,001507: 43,3142  E3,1626                                 EBANK=   RRECTHIS                              
012276,001508: 
012277,001509: 43,3142           34737        ATTACHED          CAF      PRIO10                                
012278,001510: 43,3143           05105                          TC       FINDVAC                               
012279,001511: 43,3144  E3,1626                                 EBANK=   RRECTHIS                              
012280,001512: 
012281,001513: 43,3144           03147 66103                    2CADR    ATTACHIT                              
012282,001514: 
012283,001515: 43,3146           05155                          TC       ENDOFJOB                              
012284,001516: 
012285,001517: 43,3147           06037        ATTACHIT          TC       INTPRET                               
012286,001518: 43,3150           77624                          CALL                                           
012287,001519: 43,3151           27414                                   INTSTALL                              
012288,001520: 43,3152           43014                          SET      BON                                   
012289,001521: 43,3153           04063                                   MOONOTH                               
012290,001522: 43,3154           04304                                   MOONTHIS                              
012291,001523: 43,3155           67160                                   +3                                    
012292,001524: 43,3156           77614                          CLEAR                                          
012293,001525: 43,3157           04263                                   MOONOTH                               
012294,001526: 43,3160           77776                          EXIT                                           
012295,001527: 43,3161           33204                          CAF      OCT51                                 
012296,001528: 43,3162           05544                          TC       GENTRAN                               
012297,001529: 43,3163           01626                          ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
012298,001530: 43,3164           01554                          ADRES    RRECTOTH                              
012299,001531: 
012300,001532: 43,3165           00003                          RELINT                                         
012301,001533: 43,3166           06037                          TC       INTPRET                               
012302,001534: 43,3167           77624                          CALL                                           #  UPDATE R-OTHER, V-OTHER
012303,001535: 43,3170           26760                                   PTOALEM                               
012304,001536: 43,3171           45154                          LXA,2    CALL                                  
012305,001537: 43,3172           02030                                   PBODY                                 
012306,001538: 43,3173           26114                                   SVDWN1                                
012307,001539: 43,3174           77776                          EXIT                                           
012308,001540: 
012309,001541: 43,3175           33205                          CAF      TCPINAD                               
012310,001542: 43,3176           50120                          INDEX    FIXLOC                                
012311,001543: 43,3177           54052                          TS       QPRET                                 
012312,001544: 43,3200           04635                          TC       POSTJUMP                              
012313,001545: 43,3201           27425                          CADR     INTWAKE                               #  FREE INTEGRATION AND EXIT.
012314,001546: 
012315,001547:                                                                                                 #  Page 298               
012316,001548: 
012317,001549: 43,3202           77634        TCPIN             RTB                                            
012318,001550: 43,3203           21050                                   PINBRNCH                              
012319,001551: 
012320,001552: 43,3204           00051        OCT51             OCT      51                                    
012321,001553: 43,3205           67202        TCPINAD           CADR     TCPIN                                 
012322,001554: 
012323,001555:                                                                                                 #  VERB 96        SET QUITFLAT TO STOP INTEGRATION.
012324,001556: 
012325,001557:                                                                                                 #         GO TO V37 WITH ZERO TO CAUSE P00.
012326,001558:                                                                                                 #                 STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
012327,001559:                                                                                                 #                         THUS ALLOWING A 10 MINUT PERIOD WITHOUT INTEGRATION.
012328,001560: 
012329,001561: 43,3206           05504        VERB96            TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012330,001562: 43,3207           00221                          ADRES    QUITFLAG                              #         AT NEXT TIMESTEP
012331,001563: 
012332,001564: 43,3210           34755                          CAF      ZERO                                  
012333,001565: 43,3211           04635                          TC       POSTJUMP                              
012334,001566: 43,3212           10040                          CADR     V37                                   #  GO TO P00
012335,001567: 
012336,001568:                                                                                                 #  VERB 67:       DISPLAY OF W MATRIX
012337,001569: 
012338,001570: 43,3213           02076        V67               TC       TESTXACT                              
012339,001571: 43,3214           35017                          CAF      PRIO5                                 
012340,001572: 43,3215           05105                          TC       FINDVAC                               
012341,001573: 43,3216  E4,1600                                 EBANK=   WWPOS                                 
012342,001574: 43,3216           02007 62064                    2CADR    V67CALL                               
012343,001575: 
012344,001576: 43,3220           05155                          TC       ENDOFJOB                              
012345,001577: 
012346,001578:                                                                                                 #  VERB 65        DISABLE U,V JETS DURING DPS BURNS
012347,001579: 
012348,001580: 43,3221           05504        SNUFFOUT          TC       UPFLAG                                
012349,001581: 43,3222           00115                          ADRES    SNUFFER                               
012350,001582: 43,3223           02121                          TC       GOPIN                                 
012351,001583: 
012352,001584:                                                                                                 #  VERB 75        ENABLE U,V JETS DURING DPS BURNS
012353,001585: 
012354,001586: 43,3224           05516        OUTSNUFF          TC       DOWNFLAG                              
012355,001587: 43,3225           00115                          ADRES    SNUFFER                               
012356,001588: 43,3226           02121                          TC       GOPIN                                 
012357,001589: 
012358,001590:                                                                                                 #  VERB 85        DISPLAY RR LOS AZIMUTH AND ELEVATION.
012359,001591: 
012360,001592:                                                                                                 #  AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0-90 DEG IN THE +Y HEMISPHERE,
012361,001593:                                                                                                 #  360-270 DEG IN THE -Y HEMISPHERE.
012362,001594:                                                                                                 #  Page 299
012363,001595:                                                                                                 #  
012364,001596:                                                                                                 #  ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0-360 ABOUT +Y.
012365,001597: 
012366,001598: 43,3227  E4,1600                                 EBANK=   RR-AZ                                 
012367,001599: 43,3227           02076        VERB85            TC       TESTXACT                              
012368,001600: 
012369,001601:                                                                                                 #  Page 300
012370,001602: 
012371,001603: 43,3230           04635                          TC       POSTJUMP                              
012372,001604: 43,3231           60000                          CADR     DSPRRLOS                              
012373,001605: 
012374,001606: 40,2000                                          SETLOC   PINBALL1                              
012375,001607: 40,2000                                          BANK                                           
012376,001608: 
012377,001609: 40,2000                                          COUNT*   $$/EXTVB                              
012378,001610: 
012379,001611: 40,2000           35017        DSPRRLOS          CAF      PRIO5                                 
012380,001612: 40,2001           05105                          TC       FINDVAC                               
012381,001613: 40,2002  E4,1600                                 EBANK=   RR-AZ                                 
012382,001614: 40,2002           02017 60104                    2CADR    RRLOSDSP                              
012383,001615: 
012384,001616: 40,2004           34740                          CAF      PRIO4                                 
012385,001617: 40,2005           05146                          TC       PRIOCHNG                              
012386,001618: 40,2006           32076                          CAF      V16N56                                
012387,001619: 40,2007           04616                          TC       BANKCALL                              
012388,001620: 40,2010           20353                          CADR     GOMARKFR                              
012389,001621: 40,2011           05563                          TC       B5OFF                                 
012390,001622: 40,2012           05563                          TC       B5OFF                                 
012391,001623: 40,2013           05563                          TC       B5OFF                                 
012392,001624: 
012393,001625: 40,2014           34751                          CAF      BIT3                                  
012394,001626: 40,2015           05464                          TC       BLANKET                               
012395,001627: 40,2016           05155                          TC       ENDOFJOB                              
012396,001628: 
012397,001629: 40,2017           00006        RRLOSDSP          EXTEND                                         
012398,001630: 40,2020           30036                          DCA      CDUT                                  
012399,001631: 40,2021           52155                          DXCH     MPAC                                  
012400,001632: 40,2022           06037                          TC       INTPRET                               
012401,001633: 40,2023           77624                          CALL                                           
012402,001634: 40,2024           46065                                   RRNBMPAC                              #  GET RR LOS IN BODY AXIS.
012403,001635: 40,2025           00001                          STORE    0D                                    #  UNIT LOS
012404,001636: 40,2026           14007                          STODL    6D                                    
012405,001637: 40,2027           06522                                   HI6ZEROS                              
012406,001638: 40,2030           24011                          STOVL    8D                                    
012407,001639: 40,2031           00007                                   6D                                    
012408,001640: 40,2032           77656                          UNIT                                           
012409,001641: 40,2033           00007                          STORE    6D                                    #  UNIT OF LOS PROJ IN X-Z PLANE
012410,001642: 40,2034           77641                          DOT                                            
012411,001643: 40,2035           06514                                   UNITZ                                 
012412,001644: 40,2036           24021                          STOVL    COSTH                                 #  16D
012413,001645: 40,2037           06520                                   UNITX                                 
012414,001646: 40,2040           77641                          DOT                                            
012415,001647: 40,2041           00007                                   6D                                    
012416,001648: 40,2042           34023                          STCALL   SINTH                                 #  18D
012417,001649: 40,2043           47320                                   ARCTRIG                               
012418,001650: 40,2044           43244                          BPL      DAD                                   #  INSURE DISPLAY OF 0-360 DEG.
012419,001651: 40,2045           60047                                   +2                                    
012420,001652: 40,2046           06530                                   DPPOSMAX                              #  INTRODUCES AND ERROR OF B-28 REVS.
012421,001653: 
012422,001654:                                                                                                 #  Page 301
012423,001655: 
012424,001656: 40,2047           26203                          STOVL    RR-ELEV                               
012425,001657: 40,2050           00001                                   0D                                    
012426,001658: 40,2051           77641                          DOT                                            
012427,001659: 40,2052           06516                                   UNITY                                 
012428,001660: 40,2053           24023                          STOVL    SINTH                                 
012429,001661: 40,2054           00001                                   0D                                    
012430,001662: 40,2055           77641                          DOT                                            
012431,001663: 40,2056           00007                                   6D                                    
012432,001664: 40,2057           34021                          STCALL   COSTH                                 
012433,001665: 40,2060           47320                                   ARCTRIG                               
012434,001666: 40,2061           43244                          BPL      DAD                                   #  INSURE DISPLAY OF 0-360 DEG.
012435,001667: 40,2062           60064                                   +2                                    
012436,001668: 40,2063           06530                                   DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
012437,001669: 40,2064           02201                          STORE    RR-AZ                                 
012438,001670: 40,2065           77776                          EXIT                                           
012439,001671: 40,2066           34777                          CA       1SEC                                  
012440,001672: 40,2067           04616                          TC       BANKCALL                              
012441,001673: 40,2070           01735                          CADR     DELAYJOB                              
012442,001674: 
012443,001675: 40,2071           34747                          CA       BIT5                                  
012444,001676: 40,2072           71044                          MASK     EXTVBACT                              
012445,001677: 40,2073           10000                          CCS      A                                     
012446,001678: 40,2074           02017                          TC       RRLOSDSP                              
012447,001679: 40,2075           05472                          TC       ENDEXT                                
012448,001680: 
012449,001681: 40,2076           04070        V16N56            VN       1656                                  
012450,001682: 

End of include-file EXTENDED_VERBS.agc.  Parent file is MAIN.agc