Source Code

010653,000001: # Copyright: Public domain. 010654,000002: # Filename: EXTENDED_VERBS.agc 010655,000003: # Purpose: A section of Luminary 1C, revision 131. 010656,000004: # It is part of the source code for the Lunar Module's (LM) 010657,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 010658,000006: # This file is intended to be a faithful transcription, except 010659,000007: # that the code format has been changed to conform to the 010660,000008: # requirements of the yaYUL assembler rather than the 010661,000009: # original YUL assembler. 010662,000010: # Reference: pp. 268-307 of 1729.pdf. 010663,000011: # Contact: Ron Burkey <info@sandroid.org>. 010664,000012: # Website: www.ibiblio.org/apollo/index.html 010665,000013: # Mod history: 05/08/03 RSB. Began transcribing. 010666,000014: # 05/14/05 RSB Corrected website reference above. 010667,000015: # 2010-10-25 JL Added missin # in comment. 010668,000016: # 2011-05-07 JL Flagged SBANK= workarounds for future removal. 010669,000017: 010670,000018: # Page 268 010671,000019: 07,2666 BANK 7 010672,000020: 43,2000 SETLOC EXTVERBS 010673,000021: 43,2000 BANK 010674,000022: 010675,000023: 43,2000 E5,1737 EBANK= OGC 010676,000024: 010677,000025: 43,2000 COUNT* $$/EXTVB 010678,000026: 010679,000027: # FAN-OUT 010680,000028: 010681,000029: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC 010682,000030: 43,2001 02002 TC LST2FAN # FAN AS BEFROE. 010683,000031: 010684,000032: 43,2002 02126 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY) 010685,000033: 43,2003 02200 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR 010686,000034: # 72 ONLY) 010687,000035: 43,2004 02371 TC IMUFINEK # VB42 FINE ALIGN IMU 010688,000036: 43,2005 02733 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS. 010689,000037: 43,2006 02305 TC RRDESEND # VB44 TERMINATE CONTINUOUS DESIGNATE 010690,000038: 43,2007 02116 TC ALM/END # VB45 SPARE 010691,000039: 43,2010 02116 TC ALM/END # VB46 SPARE 010692,000040: 43,2011 02430 TC V47TXACT # VB47 AGS INITIALIZATION 010693,000041: 43,2012 03156 TC DAPDISP # VB48 LOAD A/P DATA 010694,000042: 43,2013 13036 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER 010695,000043: 43,2014 02422 TC GOLOADLV # VB50 PLEASE PERFORM 010696,000044: 43,2015 02116 TC ALM/END # VB51 SPARE 010697,000045: 43,2016 02422 TC GOLOADLV # VB52 PLEASE MARK X -- RETICLE. 010698,000046: 43,2017 02422 TC GOLOADLV # VB53 PLEASE MARK Y -- RETICLE. 010699,000047: 43,2020 02422 TC GOLOADLV # VB54 PLEASE MARK X OR Y RETICLE 010700,000048: 43,2021 02442 TC ALINTIME # VB55 ALIGN TIME 010701,000049: 43,2022 03045 TC TRMTRACK # VB56 TERMINATE TRACKING -- P20 + P25 010702,000050: 43,2023 02325 TC LRON # VB57 PERMIT LANDING RADAR UPDATES 010703,000051: 43,2024 02366 TC LROFF # VB58 INHIBIT LANDING RADAR UPDATES 010704,000052: 43,2025 02147 TC LRPOS2K # VB59 COMMAND LR TO POSITION 2 010705,000053: 43,2026 02175 TC RATEDISP # VB60 DISPLAY DAP ESTIMATED RATES 010706,000054: 43,2027 02165 TC DAPATTER # VB61 DISPLAY DAP ATTITUDE ERROR 010707,000055: 43,2030 02170 TC TOTATTER # VB62 DISPLAY TOTAL ATTITUDE ERROR 010708,000056: 43,2031 02455 TC R04 # VB63 SAMPLE RADAR ONCE PER SECOND 010709,000057: 43,2032 02725 TC VB64 # VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES 010710,000058: 43,2033 03246 TC SNUFFOUT # VB65 DISABLE U,V JETS DURING DPS BURNS 010711,000059: 43,2034 03163 TC ATTACHED # VB66 ATTACHED MOVE THIS TO OTHER STATE 010712,000060: 43,2035 03240 TC V67 # VB67 W MATRIX MONITOR 010713,000061: 43,2036 02116 TC ALM/END # VB68 SPARE 010714,000062: 43,2037 02037 VERB69 TC VERB69 # VB69 FORCE A HARDWARE RESTART 010715,000063: 43,2040 03751 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME. 010716,000064: 43,2041 03753 TC V71UPDAT # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS 010717,000065: 43,2042 03755 TC V72UPDAT # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS 010718,000066: 43,2043 03757 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL) 010719,000067: 43,2044 03066 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM 010720,000068: # FOR ERASABLE DUMP. 010721,000069: 43,2045 03251 TC OUTSNUFF # VB75 ENABLE U,V JETS DURING DPS BURNS. 010722,000070: # Page 269 010723,000071: 43,2046 03025 TC MINIMP # VB76 MINIMUM IMPULSE MODE 010724,000072: 43,2047 03030 TC NOMINIMP # VB77 RATE COMMAND MODE 010725,000073: 43,2050 02445 TC R77 # VB78 START LR SPURIOUS RETURN TEST 010726,000074: 43,2051 02655 TC R77END # VB79 TERMINATE LR SPURIOUS RETURN TEST 010727,000075: 43,2052 03072 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR 010728,000076: 43,2053 03075 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR 010729,000077: 43,2054 02772 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30) 010730,000078: 43,2055 03002 TC V83PERF # VB83 REQUEST REND PARAM DISPLAY (R31) 010731,000079: 43,2056 02116 TC ALM/END # VB84 SPARE 010732,000080: 43,2057 03254 TC VERB85 # VB85 DISPLAY RR LOS AZ AND ELEV 010733,000081: 43,2060 02116 TC ALM/END # VB86 SPARE 010734,000082: 43,2061 02116 TC ALM/END # VB87 SPARE 010735,000083: 43,2062 02116 TC ALM/END # VB88 SPARE 010736,000084: 43,2063 03010 TC V89PERF # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63) 010737,000085: 43,2064 03017 TC V90PERF # VB 90 OUT OF PLANE RENDEZVOUS DISPLAY 010738,000086: 43,2065 03121 TC GOSHOSUM # VB91 DISPLAY BANK SUM. 010739,000087: 43,2066 03105 TC SYSTEST # VB92 OPERAT IMU PERFORMANCE TEST. 010740,000088: 43,2067 03114 TC WMATRXNG # VB93 CLEAR RENDWFLG 010741,000089: 43,2070 02116 TC ALM/END # VB94 SPARE 010742,000090: 43,2071 03102 TC UPDATOFF # VB95 NO STATE VECTOR UPDATE ALLOWED 010743,000091: 43,2072 03233 TC VERB96 # VB96 INTERRUPT INTEGRATION AND GO TO P00 010744,000092: 43,2073 02422 TC GOLOADLV # VB97 PLEASE VERIFY ENGINE FAILURE 010745,000093: 43,2074 02116 TC ALM/END # VB98 SPARE 010746,000094: 43,2075 02422 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE 010747,000095: 010748,000096: # END OF EXTENDED VERB FAN 010749,000097: 010750,000098: 43,2076 11043 TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY 010751,000099: 43,2077 02116 TC ALM/END # YES, TURN ON OPERATOR LIGHT 010752,000100: 43,2100 30100 CA FLAGWRD4 # ARE PRIORITY DISPLAYS USING DSKY 010753,000101: 43,2101 72125 MASK OC24100 010754,000102: 43,2102 10000 CCS A 010755,000103: 43,2103 02116 TC ALM/END # YES 010756,000104: 43,2104 34362 CAF OCT25 # SET BITS 1, 3, AND 5 010757,000105: 43,2105 55043 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY 010758,000106: # SYSTEM BUSY 010759,000107: 010760,000108: 43,2106 30002 CA Q 010761,000109: 43,2107 54155 TS MPAC +1 010762,000110: 010763,000111: 43,2110 44752 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB 010764,000112: 43,2111 04154 TC NVSUB 010765,000113: 43,2112 02113 TC +1 010766,000114: 43,2113 10067 CCS NEWJOB 010767,000115: 43,2114 05122 TC CHANG1 010768,000116: 010769,000117: 43,2115 00155 TC MPAC +1 010770,000118: 010771,000119: 43,2116 5472 TERMEXTV EQUALS ENDEXT 010772,000120: # Page 270 010773,000121: 43,2116 5472 ENDEXTVB EQUALS ENDEXT 010774,000122: 010775,000123: 43,2116 04364 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT 010776,000124: 43,2117 04635 GOPIN TC POSTJUMP 010777,000125: 43,2120 21051 CADR PINBRNCH 010778,000126: 010779,000127: 43,2121 31010 CHKP00H CA MODREG # CHECK FOR P00 OR P00-. 010780,000128: 43,2122 00006 EXTEND 010781,000129: 43,2123 16745 BZF TCQ 010782,000130: 43,2124 02116 TC ALM/END 010783,000131: 010784,000132: 43,2125 24100 OC24100 OCT 24100 010785,000133: 010786,000134: # Page 271 010787,000135: # VBZERO VERB 40 DESCRIPTION 010788,000136: 010789,000137: # 1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES). 010790,000138: # 2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART. 010791,000139: # FOR N72, CHECK IF EITHER RADAR IS IN USE. 010792,000140: # 3. EXECUTE THE CDU ZERO. 010793,000141: # 4. STALL UNTIL THE ZERO IS DONE. 010794,000142: # 5. DON'T DIFFERENTIATE BETWEEN A BAD OR GOOD RETURN. 010795,000143: # 6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY). 010796,000144: 010797,000145: 43,2126 02203 VBZERO TC OP/INERT 010798,000146: 43,2127 02131 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20) 010799,000147: 43,2130 02140 TC RRZEROK # RETURN HERE IF NOUN = RCDU(72) 010800,000148: 43,2131 02436 IMUZEROK TC CKMODCAD 010801,000149: 43,2132 04616 TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO 010802,000150: 43,2133 16705 CADR IMUZERO 010803,000151: 010804,000152: 43,2134 04616 TC BANKCALL # STALL 010805,000153: 43,2135 17707 CADR IMUSTALL 010806,000154: 43,2136 02137 TC +1 010807,000155: 010808,000156: 43,2137 02117 TC GOPIN # IMUZERO 010809,000157: 010810,000158: 43,2140 02700 RRZEROK TC RDRUSECK 010811,000159: 43,2141 04616 TC BANKCALL 010812,000160: 43,2142 52354 CADR RRZERO 010813,000161: 010814,000162: 43,2143 04616 RWAITK TC BANKCALL 010815,000163: 43,2144 17705 CADR RADSTALL 010816,000164: 43,2145 12146 TCF +1 010817,000165: 43,2146 02117 TC GOPIN # RRZERO 010818,000166: 010819,000167: # LRPOS2K VERB 59 DESCRIPTION 010820,000168: # COMMAND LANDING RADAR TO POSITION 2 010821,000169: 010822,000170: # 1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR. 010823,000171: # 2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN 010824,000172: # THE PRESCRIBED TIME. 010825,000173: # 3. RE-ESTABLISH THE DISPLAYS. 010826,000174: 010827,000175: 43,2147 06042 LRPOS2K TC INTPRET 010828,000176: 43,2150 77614 BOFF # IF AVG G ON? 010829,000177: 43,2151 03752 AVEGFLAG 010830,000178: 43,2152 66161 LRPOS2K1 # NO 010831,000179: 43,2153 77776 EXIT # YES: IS P63 GOING? 010832,000180: 43,2154 05321 TC CHECKMM 010833,000181: 43,2155 00077 DEC 63 B-14 010834,000182: 43,2156 12162 TCF LRPOS2K1 +1 # NO: COMMAND LR TO POS2 010835,000183: 43,2157 04616 TC BANKCALL 010836,000184: 43,2160 53541 CADR V59GP63 # YES: GO SET UP HIGATE JOB 010837,000185: 43,2161 77776 LRPOS2K1 EXIT 010838,000186: # Page 272 010839,000187: 43,2162 02700 TC RDRUSECK # CHECK USE OF LR 010840,000188: 43,2163 04616 TC BANKCALL 010841,000189: 43,2164 53531 CADR LRP2COMM # COMMAND LR TO POS2 010842,000190: 010843,000191: # V61 VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES. 010844,000192: 010845,000193: 43,2165 05516 DAPATTER TC DOWNFLAG 010846,000194: 43,2166 00013 ADRES NEEDLFLG 010847,000195: 43,2167 12172 TCF TOTATTER +2 010848,000196: 010849,000197: # V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES. 010850,000198: 010851,000199: 43,2170 05504 TOTATTER TC UPFLAG 010852,000200: 43,2171 00013 ADRES NEEDLFLG 010853,000201: 43,2172 05516 +2 TC DOWNFLAG 010854,000202: 43,2173 00000 ADRES NEED2FLG 010855,000203: 43,2174 02117 TC GOPIN 010856,000204: 010857,000205: # V60 VERB 60, DISPLAY DAP ESTIMATED RATES ON FDAI ATTITUDE ERROR NEEDLES. 010858,000206: 010859,000207: 43,2175 05504 RATEDISP TC UPFLAG 010860,000208: 43,2176 00000 ADRES NEED2FLG 010861,000209: 43,2177 02117 TC GOPIN 010862,000210: 010863,000211: # Page 273 010864,000212: # VBCOARK VERB 41 DESCRIPTION 010865,000213: # COARSE ALIGN IMU OR RADAR 010866,000214: 010867,000215: # 1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR. 010868,000216: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. 010869,000217: # *** CASE 1, NOUN 20 (ICDU ANGLES) *** 010870,000218: # 3. SET EXT VERB DISPLAY ACTIVE FLAG. 010871,000219: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). 010872,000220: # RESPONSES 010873,000221: # A. TERMINATE 010874,000222: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010875,000223: # B. PROCEED 010876,000224: # 1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2). 010877,000225: # C. ENTER 010878,000226: # 1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2). 010879,000227: # ICORK2 010880,000228: # 1. RE-DISPLAY VERB 41. 010881,000229: # 2. EXECUTE IMUCCARS (IMU COARSE ALIGN). 010882,000230: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). 010883,000231: # 4. RELEASE EXT VERB DISPLAY SYSTEM. 010884,000232: # *** CASE 2, NOUN 72 (RCDU ANGLES) *** 010885,000233: # EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD. 010886,000234: # 5. DISPLAY FLASHING V24, N73 (LOAD NEW RR TRUNNION ANGLE AND NEW SHAFT ANGLE). 010887,000235: # RESPONSES 010888,000236: # A. TERMINATE 010889,000237: # 1. RELEASE EXT VERB DISPLAY SYS. 010890,000238: # B. PROCEED OR ENTER 010891,000239: # 1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS). 010892,000240: # 2. RE-DISPLAY VERB 41 010893,000241: # 3. SCHEDULE RRDESK2 WITH PRIORITY 20. 010894,000242: # 4. RELEASE EXT VERB DISPLAY SYS. 010895,000243: # AURLOKON 010896,000244: # 1. FLASH V04 N12 R1 = 00006 R2 = 00002 010897,000245: # RESPONSES 010898,000246: # A. TERMINATE 010899,000247: # B. PROCEED 010900,000248: # 1. RESET LOCK-ON SWITCH. 010901,000249: # 2. SET CONTINUOUS DESIGNATE FLAG 010902,000250: # 3. DISABLE R25 010903,000251: # C. V22 E 1 E, R1 = 00001, PROCEED 010904,000252: # 1. SET LOCK-ON SWITCH 010905,000253: 010906,000254: 43,2200 02203 VBCOARK TC OP/INERT 010907,000255: 43,2201 02214 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20) 010908,000256: 43,2202 02236 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (72) 010909,000257: 010910,000258: # RETURNS TO L+1 IF IMU OR L+2 IF RR. 010911,000259: 010912,000260: 43,2203 46007 OP/INERT CS OCT24 010913,000261: 43,2204 61001 AD NOUNREG 010914,000262: 43,2205 00006 EXTEND 010915,000263: # Page 274 010916,000264: 43,2206 16745 BZF TCQ # IF = 20. 010917,000265: 010918,000266: 43,2207 62213 AD RRIMUDIF # -52 010919,000267: 43,2210 00006 EXTEND 010920,000268: 43,2211 16742 BZF Q+1 010921,000269: 010922,000270: 43,2212 02116 TC ALM/END # ILLEGAL. 010923,000271: 010924,000272: 43,2213 77713 RRIMUDIF DEC -52 B-14 # THE IMU 010925,000273: 43,2214 02436 IMUCOARK TC CKMODCAD 010926,000274: 43,2215 02076 TC TESTXACT # COARSE ALIGN FROM KEYBOARD. 010927,000275: 43,2216 32234 CAF VNLODCDU # CALL FOR THETAD LOAD 010928,000276: 43,2217 04616 TC BANKCALL 010929,000277: 43,2220 20334 CADR GOXDSPF 010930,000278: 43,2221 05472 TC TERMEXTV 010931,000279: 43,2222 12223 TCF +1 010932,000280: 010933,000281: 43,2223 32235 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB 010934,000282: 43,2224 04616 TC BANKCALL 010935,000283: 43,2225 20621 CADR EXDSPRET 010936,000284: 010937,000285: 43,2226 04616 TC BANKCALL # CALL MODE SWITCHING PROG 010938,000286: 43,2227 16771 CADR IMUCOARS 010939,000287: 010940,000288: 43,2230 04616 TC BANKCALL # STALL 010941,000289: 43,2231 17707 CADR IMUSTALL 010942,000290: 43,2232 05472 TC ENDEXTVB 010943,000291: 43,2233 05472 TC ENDEXTVB 010944,000292: 010945,000293: 43,2234 06226 VNLODCDU VN 2522 010946,000294: 43,2235 12200 IMUCOARV VN 4100 010947,000295: 010948,000296: # Page 275 010949,000297: # DESIGNATE TO DESIRED GIMBAL ANGLES. 010950,000298: 010951,000299: 43,2236 02700 RRDESNBK TC RDRUSECK 010952,000300: 43,2237 02076 TC TESTXACT 010953,000301: 43,2240 42324 CS OCT41000 # TERMINATE PRESENT DESIGNATION 010954,000302: 43,2241 00004 INHINT # RELINT DONE IN GOXDSPF 010955,000303: 43,2242 70110 MASK RADMODES 010956,000304: 43,2243 54110 TS RADMODES 010957,000305: 010958,000306: 43,2244 32263 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES. 010959,000307: 43,2245 04616 TC BANKCALL 010960,000308: 43,2246 20334 CADR GOXDSPF 010961,000309: 43,2247 05472 TC TERMEXTV 010962,000310: 43,2250 12244 TCF -4 # V33 010963,000311: 010964,000312: 43,2251 04616 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS. 010965,000313: 43,2252 46000 CADR AURLOKON 010966,000314: 010967,000315: 43,2253 32235 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB 010968,000316: 43,2254 04616 TC BANKCALL 010969,000317: 43,2255 20621 CADR EXDSPRET 010970,000318: 010971,000319: 43,2256 34736 CAF PRIO20 010972,000320: 43,2257 05105 TC FINDVAC 010973,000321: 43,2260 E7,1456 EBANK= LOSCOUNT 010974,000322: 43,2260 02264 66107 2CADR RRDESK2 010975,000323: 010976,000324: 43,2262 15472 TCF TERMEXTV # FREES DISPLAY 010977,000325: 010978,000326: 43,2263 06111 VNLDRCDU VN 2473 010979,000327: 43,2264 43,2235 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS. 010980,000328: 010981,000329: 43,2264 04616 RRDESK2 TC BANKCALL 010982,000330: 43,2265 52506 CADR RRDESNB 010983,000331: 010984,000332: 43,2266 02267 TC +1 # DUMMY NEEDED SINCE DESRETRN DOES INCR 010985,000333: 43,2267 30167 CA PRIORITY 010986,000334: 43,2270 75004 MASK LOW9 010987,000335: 43,2271 10000 CCS A 010988,000336: 43,2272 50000 INDEX A 010989,000337: 43,2273 54000 TS A # RELEASE THIS JOB'S VAC AREA. 010990,000338: 43,2274 40000 COM # INSURE ENDOFJOB DOES A NOVAC END (BZMF). 010991,000339: 43,2275 26167 ADS PRIORITY 010992,000340: 43,2276 04616 TC BANKCALL # WAIT FOR COMPLETION OF DESIGNATE 010993,000341: 43,2277 17705 CADR RADSTALL 010994,000342: 43,2300 02302 TC +2 # BADEND -- NO LOCKON OR OUT OF LIMITS 010995,000343: 43,2301 05155 TC ENDOFJOB # GOODEND -- LOCKON ACHIEVED 010996,000344: 43,2302 05567 TC ALARM 010997,000345: 43,2303 00503 OCT 503 # TURN ON ALARM LIGHT -- 503 DESIGNATE FAIL 010998,000346: # Page 276 010999,000347: 43,2304 05155 TC ENDOFJOB 011000,000348: 011001,000349: 43,2305 10110 RRDESEND CCS RADMODES # TERMINATE CONTINOUS DESIGNATE ONLY 011002,000350: 43,2306 12117 TCF GOPIN 011003,000351: 43,2307 12117 TCF GOPIN 011004,000352: 43,2310 12311 TCF +1 011005,000353: 43,2311 42324 CS OCT41000 # BEGDES GOES TO ENDRADAR 011006,000354: 43,2312 00004 INHINT # RELINT DONE IN DOWNFLAG 011007,000355: 43,2313 70110 MASK RADMODES 011008,000356: 43,2314 54110 TS RADMODES 011009,000357: 43,2315 06011 TC CLRADMOD 011010,000358: 43,2316 34777 CAF 1SEC 011011,000359: 43,2317 04616 TC BANKCALL 011012,000360: 43,2320 01736 CADR DELAYJOB 011013,000361: 43,2321 05516 TC DOWNFLAG # ENABLE R25 GIMBAL MONITOR 011014,000362: 43,2322 00126 ADRES NORRMON 011015,000363: 43,2323 12117 TCF GOPIN 011016,000364: 43,2324 41000 OCT41000 OCT 41000 # CONTINOUS DESIGNATE -- DESIGNATE 011017,000365: 011018,000366: # Page 277 011019,000367: 23,2000 BANK 23 011020,000368: 23,2000 SETLOC EXTVB1 011021,000369: 23,2000 BANK 011022,000370: 23,2000 COUNT* $$/EXTVB 011023,000371: 011024,000372: 23,2000 04645 AURLOKON TC MAKECADR 011025,000373: 23,2001 55112 TS DESRET 011026,000374: 23,2002 34752 CAF TWO 011027,000375: 23,2003 55051 TS OPTIONX +1 011028,000376: 23,2004 36245 CAF SIX # OPTION CODE FOR V04N12 011029,000377: 23,2005 55050 TS OPTIONX 011030,000378: 011031,000379: 23,2006 32037 -5 CAF V04N1272 011032,000380: 23,2007 04616 TC BANKCALL # R2 00001 LOCK-ON 011033,000381: 23,2010 20353 CADR GOMARKFR 011034,000382: 23,2011 15472 TCF ENDEXT # V34 011035,000383: 23,2012 12017 TCF +5 # V33 011036,000384: 23,2013 12006 TCF -5 # V32 011037,000385: 23,2014 34751 CAF BIT3 011038,000386: 23,2015 05464 TC BLANKET 011039,000387: 23,2016 05155 TC ENDOFJOB 011040,000388: 011041,000389: 23,2017 31051 +5 CA OPTIONX +1 011042,000390: 23,2020 74752 MASK BIT2 011043,000391: 23,2021 10000 CCS A 011044,000392: 23,2022 12026 TCF NOLOKON 011045,000393: 23,2023 05504 TC UPFLAG 011046,000394: 23,2024 00012 ADRES LOKONSW 011047,000395: 23,2025 12034 TCF AURLKON1 011048,000396: 011049,000397: 23,2026 05516 NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMADES TO 011050,000398: 23,2027 00012 ADRES LOKONSW # INDICATE THAT CONTINUOUS DESIGNATION IS 011051,000399: 23,2030 05504 TC UPFLAG # WANTED (TO BE TERMINATED BY V44.) 011052,000400: 23,2031 00264 ADRES CDESFLAG 011053,000401: 23,2032 05504 TC UPFLAG # SET NO RR ANGLE MONITOR FLAG. 011054,000402: 23,2033 00126 ADRES NORRMON # DISABLE R25 RR GIMBAL MONITOR IN T4RUPT 011055,000403: 23,2034 00003 AURLKON1 RELINT 011056,000404: 23,2035 31112 CA DESRET 011057,000405: 23,2036 14640 TCF BANKJUMP 011058,000406: 011059,000407: 23,2037 01014 V04N1272 VN 412 011060,000408: 23,2040 77757 -LOKONFG OCT -20 011061,000409: 011062,000410: 43,2325 BANK 43 011063,000411: 43,2000 SETLOC EXTVERBS 011064,000412: 43,2000 BANK 011065,000413: 43,2325 COUNT* $$/EXTVB 011066,000414: 011067,000415: 43,2325 02076 LRON TC TESTXACT 011068,000416: 011069,000417: # Page 278 011070,000418: 43,2326 32365 DSP68 CAF V06N68 011071,000419: 43,2327 04616 TC BANKCALL 011072,000420: 43,2330 20353 CADR GOMARKFR 011073,000421: 43,2331 02363 TC B1+5OFF 011074,000422: 43,2332 02354 TC SET57 011075,000423: 43,2333 05155 TC ENDOFJOB 011076,000424: 011077,000425: 43,2334 04616 WAIT68 TC BANKCALL 011078,000426: 43,2335 01735 CADR 2SECDELY 011079,000427: 011080,000428: 43,2336 34361 CAF OCT21 011081,000429: 43,2337 71043 MASK EXTVBACT 011082,000430: 43,2340 00006 EXTEND 011083,000431: 43,2341 15472 BZF ENDEXT 011084,000432: 011085,000433: 43,2342 74747 MASK BIT5 011086,000434: 43,2343 10000 CCS A 011087,000435: 43,2344 12326 TCF DSP68 011088,000436: 011089,000437: 43,2345 32365 DSP5068 CAF V50N68 011090,000438: 43,2346 04616 TC BANKCALL 011091,000439: 43,2347 20361 CADR GOMARK3R -1 011092,000440: 43,2350 12363 TCF B1+5OFF 011093,000441: 43,2351 12363 TCF B1+5OFF 011094,000442: 43,2352 12357 TCF RESET57 011095,000443: 011096,000444: 43,2353 12334 TCF WAIT68 011097,000445: 011098,000446: 43,2354 05504 SET57 TC UPFLAG 011099,000447: 43,2355 00254 ADRES LRINH 011100,000448: 011101,000449: 43,2356 15563 TCF B5OFF 011102,000450: 011103,000451: 43,2357 05516 RESET57 TC DOWNFLAG 011104,000452: 43,2360 00254 ADRES LRINH 011105,000453: 011106,000454: 43,2361 34362 CAF OCT25 011107,000455: 43,2362 05565 TC B5OFF +2 011108,000456: 011109,000457: 43,2363 44361 B1+5OFF CS OCT21 011110,000458: 43,2364 15564 TCF B5OFF +1 011111,000459: 011112,000460: 43,2365 4361 OCT21 EQUALS ND1 011113,000461: 011114,000462: 43,2365 01504 V06N68 VN 0668 011115,000463: 43,2366 43,2365 V50N68 = V06N68 011116,000464: 011117,000465: 43,2366 05516 LROFF TC DOWNFLAG # INHIBIT INCORPORATION OF LR(?) DATA V58 011118,000466: 43,2367 00254 ADRES LRINH 011119,000467: 43,2370 12117 TCF GOPIN 011120,000468: 011121,000469: # Page 279 011122,000470: 43,2371 E5,1737 EBANK= OGC 011123,000471: 011124,000472: # Page 280 011125,000473: # IMUFINEK VERB 42 DESCRIPTION 011126,000474: # FINE ALIGN IMU 011127,000475: 011128,000476: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH. 011129,000477: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES.... 011130,000478: # RESPONSES 011131,000479: # A. TERMINATE 011132,000480: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 011133,000481: # B. PROCEED OR ENTER 011134,000482: # 1. RE-DISPLAY VERB 42 011135,000483: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING). 011136,000484: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER) 011137,000485: # A. FAILED 011138,000486: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 011139,000487: # B. GOOD 011140,000488: # 1. EXECUTE IMUPULSE (TORQUE IRIGS). 011141,000489: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM. 011142,000490: 011143,000491: 43,2371 02436 IMUFINEK TC CKMODCAD 011144,000492: 43,2372 02076 TC TESTXACT # FINE ALIGN WITH GYRO TORQUING. 011145,000493: 43,2373 32420 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS 011146,000494: 43,2374 04616 TC BANKCALL 011147,000495: 43,2375 20334 CADR GOXDSPF 011148,000496: 43,2376 05472 TC TERMEXTV 011149,000497: 43,2377 02400 TC +1 # PROCEED WITHOUT A LOAD 011150,000498: 011151,000499: 43,2400 32421 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB 011152,000500: 43,2401 04616 TC BANKCALL 011153,000501: 43,2402 20621 CADR EXDSPRET 011154,000502: 011155,000503: 43,2403 04616 TC BANKCALL # CALL MODE SWITCH PROG 011156,000504: 43,2404 17201 CADR IMUFINE 011157,000505: 011158,000506: 43,2405 04616 TC BANKCALL # HIBERNATION 011159,000507: 43,2406 17707 CADR IMUSTALL 011160,000508: 43,2407 05472 TC ENDEXTVB 011161,000509: 011162,000510: 43,2410 32417 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS 011163,000511: 43,2411 04616 TC BANKCALL 011164,000512: 43,2412 17314 CADR IMUPULSE 011165,000513: 011166,000514: 43,2413 04616 TC BANKCALL # WAIT FOR PULSES TO GET OUT. 011167,000515: 43,2414 17707 CADR IMUSTALL 011168,000516: 43,2415 05472 TC ENDEXTVB 011169,000517: 43,2416 05472 TC ENDEXTVB 011170,000518: 011171,000519: 43,2417 02737 LGYROBIN ECADR OGC 011172,000520: 43,2420 06335 VNLODGYR VN 2593 011173,000521: 43,2421 12400 IMUFINEV VN 4200 011174,000522: 011175,000523: # GOLOADLV VERB 50 DESCRIPTION 011176,000524: # AND OTHER PLEASE 011177,000525: # Page 281 011178,000526: # DO SOMETHING VERBS 011179,000527: 011180,000528: # PLEASE PERFORM, MARK, CALIBRATE, ETC. 011181,000529: 011182,000530: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE 011183,000531: # SAME RECALL AS A COMPLETED LOAD. 011184,000532: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED. 011185,000533:

[WORKAROUND] Moved to below the 2CADR a few lines below here --- RSB 2004. SBANK= PINSUPER # FOR LOADLV1 AND SHOWSUM CADR'S [WORKAROUND]

011189,000537: 
011190,000538: 43,2422           04433        GOLOADLV          TC       FLASHOFF                              
011191,000539: 
011192,000540: 43,2423           34201                          CAF      PINSUPBT                              
011193,000541: 43,2424           00006                          EXTEND                                         
011194,000542: 43,2425           01007                          WRITE    SUPERBNK                              
011195,000543: 43,2426           04635                          TC       POSTJUMP                              
011196,000544: 43,2427           62001                          CADR     LOADLV1                               
011197,000545: 
011198,000546:                                                                                                 #  VERB 47 -- AGS INITIALIZATION -- R47.
011199,000547: 
011200,000548:                                                                                                 #  SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
011201,000549: 
011202,000550: 43,2430           02076        V47TXACT          TC       TESTXACT                              #  NO OTHER EXTVERB.
011203,000551: 43,2431           34740                          CAF      PRIO4                                 
011204,000552: 43,2432           05105                          TC       FINDVAC                               
011205,000553: 43,2433  E4,1600                                 EBANK=   AGSBUFF                               
011206,000554: 43,2433           02005 64064                    2CADR    AGSINIT                               
011207,000555: 
011208,000556: 43,2435           05155                          TC       ENDOFJOB                              
011209,000557: 
011210,000558: 43,2436           31301        CKMODCAD          CA       MODECADR                              
011211,000559: 43,2437           00006                          EXTEND                                         
011212,000560: 43,2440           16745                          BZF      TCQ                                   
011213,000561: 43,2441           02116                          TC       ALM/END                               #  SOMEBODY IS USING MODECADR SO EXIT
011214,000562: 
011215,000563:                                                                                                 #  Page 282
011216,000564:                                                                                                 #  ALINTIME       VERB 55         DESCRIPTION
011217,000565:                                                                                                 #         REQUIRE P00 OR P00-.
011218,000566: 
011219,000567:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011220,000568:                                                                                                 #         2.      DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011221,000569:                                                                                                 #         3.      REQUIRE EXECUTION OF VERB 23.
011222,000570:                                                                                                 #         4.      ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011223,000571:                                                                                                 #         5.      RELEASE EXT VERB DISPLAY SYSTEM.
011224,000572: 

[WORKAROUND] Moved from the top of VERB 50 a few lines above here --- RSB 2004.

011226,000574: 43,2442  40,2000                                 SBANK=   PINSUPER                              #  FOR LOADLV1 AND SHOWSUM CADR'S

[WORKAROUND]

011228,000576: 
011229,000577: 43,2442           02076        ALINTIME          TC       TESTXACT                              
011230,000578: 43,2443           04635                          TC       POSTJUMP                              #  NO ROOM IN 43
011231,000579: 43,2444           64002                          CADR     R33                                   
011232,000580: 
011233,000581: 42,2002                                          BANK     42                                    
011234,000582: 42,2000                                          SETLOC   SBAND                                 
011235,000583: 42,2000                                          BANK                                           
011236,000584: 42,2002                                          COUNT*   $$/R33                                
011237,000585: 
011238,000586: 42,2002           35021        R33               CAF      PRIO7                                 
011239,000587: 42,2003           05146                          TC       PRIOCHNG                              
011240,000588: 42,2004           32034                          CAF      VNLODDT                               
011241,000589: 42,2005           04616                          TC       BANKCALL                              
011242,000590: 42,2006           20334                          CADR     GOXDSPF                               
011243,000591: 42,2007           05472                          TC       ENDEXT                                #  TERMINATE
011244,000592: 42,2010           05472                          TC       ENDEXT                                #  PROCEED
011245,000593: 42,2011           42033                          CS       DEC23                                 #  DATA IN OR RESEQUENCE (UNLIKELY)
011246,000594: 42,2012           60154                          AD       MPAC                                  #  RECALL LEFT VERB IN MPAC
011247,000595: 42,2013           00006                          EXTEND                                         
011248,000596: 42,2014           12016                          BZF      UPDATIME                              #  GO AHEAD WITH UPDATE ONLY IF RECALL
011249,000597: 42,2015           05472                          TC       ENDEXT                                #         WITH V23 (DATA IN).
011250,000598: 
011251,000599: 42,2016           00004        UPDATIME          INHINT                                         #  DELTA TIME IS IN DSPTEM1, +1.
011252,000600: 42,2017           34755                          CAF      ZERO                                  
011253,000601: 42,2020           54156                          TS       MPAC       +2                         #  NEEDED FOR TP AGREE
011254,000602: 42,2021           54001                          TS       L                                     #  ZERO T1 + 2 WHILE ALIGNING.
011255,000603: 42,2022           52025                          DXCH     TIME2                                 
011256,000604: 42,2023           52155                          DXCH     MPAC                                  
011257,000605: 42,2024           53051                          DXCH     DSPTEM2    +1                         #  INCREMENT
011258,000606: 42,2025           20155                          DAS      MPAC                                  
011259,000607: 
011260,000608: 42,2026           07262                          TC       TPAGREE                               #  FORCE SIGN AGREEMENT.
011261,000609: 42,2027           52155                          DXCH     MPAC                                  #  NEW CLOCK.
011262,000610: 42,2030           20025                          DAS      TIME2                                 
011263,000611: 42,2031           00003                          RELINT                                         
011264,000612: 42,2032           05472        UPDTMEND          TC       ENDEXT                                
011265,000613: 
011266,000614: 42,2033           00027        DEC23             DEC      23         B-14                       #  V 23
011267,000615: 
011268,000616: 42,2034           06230        VNLODDT           VN       2524                                  #  V25N24 FOR LOAD DELTA TIME
011269,000617: 
011270,000618:                                                                                                 #  Page 283
011271,000619:                                                                                                 #  SET UP FOR RADAR SAMPLING.
011272,000620: 
011273,000621: 42,2035                                          BANK     42                                    
011274,000622: 43,2000                                          SETLOC   EXTVERBS                              
011275,000623: 43,2000                                          BANK                                           
011276,000624: 
011277,000625: 43,2445  E4,1600                                 EBANK=   RSTACK                                
011278,000626: 
011279,000627: 43,2445                                          COUNT*   $$/R0477                              
011280,000628: 
011281,000629: 43,2445           02700        R77               TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
011282,000630: 43,2446           30077                          CA       FLAGWRD3                              #  IS R04 RUNNING?
011283,000631: 43,2447           74743                          MASK     R04FLBIT                              
011284,000632: 43,2450           10000                          CCS      A                                     
011285,000633: 43,2451           02116                          TC       ALM/END                               #  YES.
011286,000634: 43,2452           05504                          TC       UPFLAG                                
011287,000635: 43,2453           00117                          ADRES    R77FLAG                               
011288,000636: 43,2454           12461                          TCF      R04Z                                  
011289,000637: 
011290,000638: 43,2455           02700        R04               TC       RDRUSECK                              #  TRY TO AVOID THE 1210.
011291,000639: 43,2456           02076                          TC       TESTXACT                              
011292,000640: 43,2457           05504                          TC       UPFLAG                                
011293,000641: 43,2460           00063                          ADRES    R04FLAG                               #  SET R04FLAG FOR ALARMS
011294,000642: 
011295,000643: 43,2461           34741        R04Z              CAF      EBANK4                                
011296,000644: 43,2462           54003                          TS       EBANK                                 
011297,000645: 43,2463           32676                          CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
011298,000646: 43,2464           55777                          TS       RSAMPDT                               
011299,000647: 43,2465           34755                          CAF      ZERO                                  
011300,000648: 43,2466           55776                          TS       RTSTLOC                               
011301,000649: 43,2467           55575                          TS       RFAILCNT                              #  ZERO BAD SAMPLE COUNTER
011302,000650: 
011303,000651: 43,2470           00004                          INHINT                                         
011304,000652: 43,2471           42677                          CS       LRPOSCAL                              #  INITIALIZE
011305,000653: 43,2472           70110                          MASK     RADMODES                              #         BIT 9   LR RANGE LOW SCALE =0
011306,000654: 43,2473           54110                          TS       RADMODES                              #         BIT 6   LR POS 1 =0
011307,000655: 43,2474           32677                          CAF      LRPOSCAL                              #         BIT 3   RR RANGE LOW SCALE =0
011308,000656: 43,2475           00006                          EXTEND                                         
011309,000657: 43,2476           02033                          RAND     CHAN33                                
011310,000658: 43,2477           26110                          ADS      RADMODES                              
011311,000659: 43,2500           00003                          RELINT                                         
011312,000660: 
011313,000661: 43,2501           40077                          CS       FLAGWRD3                              #  CHECK R04FLAG          R04 =1          R77 =0
011314,000662: 43,2502           74743                          MASK     R04FLBIT                              
011315,000663: 43,2503           10000                          CCS      A                                     
011316,000664: 43,2504           12633                          TCF      R04K                                  
011317,000665: 
011318,000666: 43,2505           34753                          CAF      ONE                                   #  INDICATES RENDEZVOUS DESIRED
011319,000667: 43,2506           55051                          TS       OPTIONX    +1                         
011320,000668: 43,2507           34751        R04A              CAF      BIT3                                  #  OPTION CODE FOR V04N12
011321,000669: 
011322,000670:                                                                                                 #  Page 284
011323,000671: 43,2510           55050                          TS       OPTIONX                               
011324,000672: 43,2511           32673                          CAF      V04N12X                               
011325,000673: 43,2512           04616                          TC       BANKCALL                              #         R2      00001   RENDEZVOUS RADAR
011326,000674: 43,2513           20353                          CADR     GOMARKFR                              #                 00002   LANDING RADAR
011327,000675: 43,2514           12641                          TCF      R04END                                #  V34
011328,000676: 43,2515           12522                          TCF      +5                                    #  V33
011329,000677: 43,2516           12511                          TCF      R04A       +2                         #  R2
011330,000678: 43,2517           34751                          CAF      BIT3                                  
011331,000679: 43,2520           05464                          TC       BLANKET                               
011332,000680: 43,2521           05155                          TC       ENDOFJOB                              
011333,000681: 
011334,000682: 43,2522           31051                          CA       OPTIONX    +1                         #  SAVE DESIRED OPTION
011335,000683: 43,2523           55773                          TS       RTSTDEX                               
011336,000684: 
011337,000685: 43,2524           36245        R04X              CAF      SIX                                   #  RR OR LR DESIRED
011338,000686: 43,2525           71773                          MASK     RTSTDEX                               
011339,000687: 43,2526           10000                          CCS      A                                     
011340,000688: 43,2527           12635                          TCF      R04L                                  #  LANDING RADAR
011341,000689: 43,2530           55775                          TS       RTSTBASE                              #  FOR RR BASE =0, MAX =1
011342,000690: 
011343,000691: 43,2531           34752        R04B              CAF      BIT2                                  #  IS RR AUTO MODE DISCRETE PRESENT
011344,000692: 43,2532           00006                          EXTEND                                         
011345,000693: 43,2533           02033                          RAND     CHAN33                                
011346,000694: 43,2534           00006                          EXTEND                                         
011347,000695: 43,2535           12546                          BZF      R04C                                  #  YES
011348,000696: 
011349,000697: 43,2536           32675                          CAF      201R04                                #  REQUEST SELECTION OF RR AUTO MODE
011350,000698: 43,2537           55044                          TS       DSPTEM1                               
011351,000699: 43,2540           32674                          CAF      V50N25X                               
011352,000700: 43,2541           04616                          TC       BANKCALL                              
011353,000701: 43,2542           20345                          CADR     GOMARK4                               
011354,000702: 43,2543           12641                          TCF      R04END                                #  V34
011355,000703: 43,2544           12531                          TCF      R04B                                  #  V33
011356,000704: 43,2545           12536                          TCF      -7                                    #  E
011357,000705: 
011358,000706: 43,2546           34736        R04C              CAF      BIT14                                 #  ENABLE RR AUTO TRACKER
011359,000707: 43,2547           00006                          EXTEND                                         
011360,000708: 43,2550           05012                          WOR      CHAN12                                
011361,000709: 
011362,000710: 43,2551           34752                          CAF      TWO                                   
011363,000711: 43,2552           55774                          TS       RTSTMAX                               #  FOR SEQUENTIAL STORAGE
011364,000712: 
011365,000713: 43,2553           05203                          TC       WAITLIST                              
011366,000714: 43,2554  E4,1600                                 EBANK=   RSTACK                                
011367,000715: 43,2554           02003 52104                    2CADR    RADSAMP                               
011368,000716: 
011369,000717: 43,2556           00003                          RELINT                                         
011370,000718: 
011371,000719: 43,2557           40077                          CS       FLAGWRD3                              #  CHECK R04FLAG          R04 =1          R77 =0
011372,000720: 43,2560           74743                          MASK     R04FLBIT                              
011373,000721:                                                                                                 #  Page 285
011374,000722: 43,2561           10000                          CCS      A                                     
011375,000723: 43,2562           12117                          TCF      GOPIN                                 #  R77
011376,000724: 
011377,000725: 43,2563           36245                          CAF      SIX                                   #  RR OR LR
011378,000726: 43,2564           71773                          MASK     RTSTDEX                               
011379,000727: 43,2565           10000                          CCS      A                                     
011380,000728: 43,2566           12603                          TCF      R04LR                                 #  LR
011381,000729: 
011382,000730: 43,2567           32667        R04RR             CAF      V16N72                                #  DISPLAY RR CDU ANGLES (1/SEC)
011383,000731: 43,2570           04616                          TC       BANKCALL                              #         R1 + XXX.XX DEG         TRUNNION
011384,000732: 43,2571           20334                          CADR     GOMARKF                               #         R2 + XXX.XX DEG         SHAFT
011385,000733: 43,2572           12641                          TCF      R04END                                #  V34    R3   BLANK
011386,000734: 43,2573           12575                          TCF      +2                                    #  V33
011387,000735: 43,2574           12567                          TCF      R04RR                                 #  V32
011388,000736: 
011389,000737: 43,2575           32670                          CAF      V16N78                                #  DISPLAY RR RANGE AND RANGE RATE (1/SEC)
011390,000738: 43,2576           04616                          TC       BANKCALL                              #         R1 +- XXX.XX NM         RANGE
011391,000739: 43,2577           20334                          CADR     GOMARKF                               #         R2 +- XXXXX. FPS        RANGE RATE
011392,000740: 43,2600           12641                          TCF      R04END                                #  V34    R3    BLANK
011393,000741: 43,2601           12617                          TCF      R04Y                                  #  V33
011394,000742: 43,2602           12567                          TCF      R04RR                                 #  V32
011395,000743: 
011396,000744: 43,2603           32671        R04LR             CAF      V16N66                                #  DISPLAY LR RANGE AND POSITON (1/SEC)
011397,000745: 43,2604           04616                          TC       BANKCALL                              #         R1 +- XXXXX, FT         LR RANGE
011398,000746: 43,2605           20334                          CADR     GOMARKF                               #         R2 +  0000X.            POS. NO.
011399,000747: 43,2606           12641                          TCF      R04END                                #  V34    R3    BLANK
011400,000748: 43,2607           12611                          TCF      +2                                    #  V33
011401,000749: 43,2610           12603                          TCF      R04LR                                 #  V32
011402,000750: 
011403,000751: 43,2611           32672                          CAF      V16N67                                #  DISPLAY LR VELX, VELY, VELZ (1/SEC)
011404,000752: 43,2612           04616                          TC       BANKCALL                              #         R1 +- XXXXX. FPS        LR V(X)
011405,000753: 43,2613           20334                          CADR     GOMARKF                               #         R2 +- XXXXX. FPS        LR V(Y)
011406,000754: 43,2614           12641                          TCF      R04END                                #  V34    R3 +- XXXXX. FPS        LR V(Z)
011407,000755: 43,2615           12617                          TCF      R04Y                                  #  V33
011408,000756: 43,2616           12603                          TCF      R04LR                                 #  V32
011409,000757: 
011410,000758: 43,2617           34755        R04Y              CAF      ZERO                                  #  TO TERMINATE SAMPLING.
011411,000759: 43,2620           55777                          TS       RSAMPDT                               
011412,000760: 43,2621           04616                          TC       BANKCALL                              
011413,000761: 43,2622           01735                          CADR     2SECDELY                              #  WAIT FOR LAST RADARUP
011414,000762: 43,2623           32676                          CAF      1SEC+1                                #  SAMPLE ONCE PER SECOND
011415,000763: 43,2624           55777                          TS       RSAMPDT                               
011416,000764: 43,2625           34755                          CAF      ZERO                                  #  FOR STORING RESULTS
011417,000765: 43,2626           55776                          TS       RTSTLOC                               
011418,000766: 43,2627           11775                          CCS      RTSTBASE                              #  CHECK WHICH RADAR HAD BEEN SAMPLED
011419,000767: 43,2630           44753                          CS       ONE                                   #  WAS LR
011420,000768: 43,2631           64752                          AD       TWO                                   #  WAS RR
011421,000769: 43,2632           12523                          TCF      R04X       -1                         
011422,000770: 
011423,000771: 43,2633           34766        R04K              CAF      250MS+1                               #  SAMPLE 4 LR COMPONENTS PER SECOND.
011424,000772:                                                                                                 #  Page 286
011425,000773: 43,2634           55777                          TS       RSAMPDT                               
011426,000774: 
011427,000775: 43,2635           34752        R04L              CAF      TWO                                   
011428,000776: 43,2636           55775                          TS       RTSTBASE                              #  FOR LR BASE =2, MAX =3
011429,000777: 43,2637           36245                          CAF      SIX                                   
011430,000778: 43,2640           12552                          TCF      R04C       +4                         
011431,000779: 43,2641           34755        R04END            CAF      ZERO                                  #  ZERO RSAMPDT
011432,000780: 43,2642           55777                          TS       RSAMPDT                               #  TO TERMINATE SAMPLING
011433,000781: 43,2643           34744                          CAF      BIT8                                  #  WAIT 1.28 SECONDS FOR POSSIBLE
011434,000782: 43,2644           04616                          TC       BANKCALL                              #  PENDING RUPT.
011435,000783: 43,2645           01736                          CADR     DELAYJOB                              
011436,000784: 
011437,000785: 43,2646           00004                          INHINT                                         
011438,000786: 43,2647           44736                          CS       BIT14                                 #  DISABLE RR AUTO TRACKER.
011439,000787: 43,2650           00006                          EXTEND                                         
011440,000788: 43,2651           03012                          WAND     CHAN12                                
011441,000789: 
011442,000790: 43,2652           05516                          TC       DOWNFLAG                              
011443,000791: 43,2653           00063                          ADRES    R04FLAG                               #  SIGNAL END OF R04.
011444,000792: 
011445,000793: 43,2654           05472                          TC       ENDEXT                                
011446,000794: 
011447,000795: 43,2655           34741        R77END            CAF      EBANK4                                #  TO TERMINATE SAMPLING
011448,000796: 43,2656           54003                          TS       EBANK                                 
011449,000797: 43,2657           34755                          CAF      ZERO                                  
011450,000798: 43,2660           55777                          TS       RSAMPDT                               
011451,000799: 43,2661           34746                          CAF      BIT6                                  #  WAIT 320 MS. FOR POSSIBLE
011452,000800: 43,2662           04616                          TC       BANKCALL                              #  PENDING RUPT.
011453,000801: 43,2663           01736                          CADR     DELAYJOB                              
011454,000802: 
011455,000803: 43,2664           05516                          TC       DOWNFLAG                              
011456,000804: 43,2665           00117                          ADRES    R77FLAG                               
011457,000805: 43,2666           12117                          TCF      GOPIN                                 
011458,000806: 
011459,000807: 43,2667           04110        V16N72            VN       1672                                  
011460,000808: 43,2670           04116        V16N78            VN       1678                                  
011461,000809: 43,2671           04102        V16N66            VN       1666                                  
011462,000810: 43,2672           04103        V16N67            VN       1667                                  
011463,000811: 43,2673           01014        V04N12X           VN       412                                   
011464,000812: 43,2674           14431        V50N25X           VN       5025                                  
011465,000813: 43,2675           00201        201R04            OCT      00201                                 
011466,000814: 43,2676           00145        1SEC+1            DEC      101        B-14                       
011467,000815: 43,2677     4766               250MS+1           EQUALS   CALLCODE                              
011468,000816: 43,2677           00444        LRPOSCAL          OCT      444                                   
011469,000817: 
011470,000818:                                                                                                 #  Page 287
011471,000819: 43,2700           40077        RDRUSECK          CS       FLAGWRD3                              #  IS R29 ON?
011472,000820: 43,2701           74741                          MASK     NR29FBIT                              
011473,000821: 43,2702           10000                          CCS      A                                     
011474,000822: 43,2703           02116                          TC       ALM/END                               #  YES
011475,000823: 43,2704           30101                          CA       FLAGWRD5                              #  IS R77 RUNNING?
011476,000824: 43,2705           74741                          MASK     R77FLBIT                              
011477,000825: 43,2706           10000                          CCS      A                                     
011478,000826: 43,2707           02116                          TC       ALM/END                               #  YES.
011479,000827: 43,2710           40103                          CS       FLAGWRD7                              #  IS SERVICER RUNNING AND HENCE POSSIBLY
011480,000828: 43,2711           74746                          MASK     V37FLBIT                              #  R12 USING THE LR?
011481,000829: 43,2712           10000                          CCS      A                                     
011482,000830: 43,2713           12720                          TCF      CHECKRR                               #  NO
011483,000831: 43,2714           30107                          CA       FLGWRD11                              #  YES, IS R12 ON?
011484,000832: 43,2715           74735                          MASK     LRBYBIT                               #  BIT 15
011485,000833: 43,2716           00006                          EXTEND                                         
011486,000834: 43,2717           12116                          BZF      ALM/END                               #  YES
011487,000835: 43,2720           40075        CHECKRR           CS       FLAGWRD1                              #  IS THE TRACK FLAG SET AND HENCE POSSIBLY
011488,000836: 43,2721           74747                          MASK     TRACKBIT                              #  P20 USING THE RR?
011489,000837: 43,2722           10000                          CCS      A                                     
011490,000838: 43,2723           00002                          TC       Q                                     #  NOT ALLOWED DURING P20
011491,000839: 43,2724           02116                          TC       ALM/END                               #  P22 OR P25, (R65)
011492,000840: 43,2725                                          COUNT*   $$/EXTVB                              
011493,000841: 
011494,000842: 43,2725           02076        VB64              TC       TESTXACT                              #  IF DISPLAY SYS. NOT BUSY MAKE IT BUSY.
011495,000843: 43,2726           34740                          CAF      PRIO4                                 
011496,000844: 43,2727           05105                          TC       FINDVAC                               
011497,000845: 43,2730  E4,1600                                 EBANK=   ALPHASB                               
011498,000846: 43,2730           03606 64104                    2CADR    SBANDANT                              #  CALC., DISPLAY S-BAND ANTENNA ANGLES.
011499,000847: 
011500,000848: 43,2732           05155                          TC       ENDOFJOB                              
011501,000849: 
011502,000850:                                                                                                 #  Page 288
011503,000851:                                                                                                 #  IMUATTCK       VERB 43         DESCRIPTION
011504,000852:                                                                                                 #         LOAD IMU ATTITUDE ERROR METERS
011505,000853: 
011506,000854:                                                                                                 #         1.      REQUIRE P00 OR FRESH START.
011507,000855:                                                                                                 #         2.      REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
011508,000856:                                                                                                 #         3.      REQUIRE THAT NEEDLES BE OFF.
011509,000857:                                                                                                 #         4.      REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED).
011510,000858:                                                                                                 #         5.      ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
011511,000859: 
011512,000860: 43,2733           02121        IMUATTCK          TC       CHKP00H                               #  VB 76 -- LOAD IMU ATT. ERROR METERS
011513,000861: 
011514,000862: 43,2734           34763                          CAF      BITS4&5                               #  SEE IF COARSE ALIGN ENABLE AND ZERO IMU
011515,000863: 43,2735           00006                          EXTEND                                         #  CDUS BITS ARE ON
011516,000864: 43,2736           02012                          RAND     CHAN12                                
011517,000865: 43,2737           10000                          CCS      A                                     
011518,000866: 43,2740           12116                          TCF      ALM/END                               #  NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
011519,000867: 
011520,000868: 43,2741           34355                          CAF      BIT13-14                              #  BOTH BITS 13 AND 14 MUST BE 1
011521,000869: 43,2742           00006                          EXTEND                                         #  INDICATING THE MODE SELECTED IS OFF.
011522,000870: 43,2743           06031                          RXOR     CHAN31                                
011523,000871: 43,2744           74355                          MASK     BIT13-14                              
011524,000872: 43,2745           00006                          EXTEND                                         
011525,000873: 43,2746           12750                          BZF      +2                                    #  NEEDLES IS OFF.
011526,000874: 43,2747           12116                          TCF      ALM/END                               #  EXIT.  NEEDLES IS ON.
011527,000875: 
011528,000876: 43,2750           02076                          TC       TESTXACT                              
011529,000877: 
011530,000878: 43,2751           32234                          CAF      VNLODCDU                              
011531,000879: 43,2752           04616                          TC       BANKCALL                              
011532,000880: 43,2753           20334                          CADR     GOXDSPF                               
011533,000881: 43,2754           05472                          TC       ENDEXT                                #  V34
011534,000882: 43,2755           02756                          TC       +1                                    
011535,000883: 43,2756           32771                          CAF      V43K                                  #  REDISPLAY OUR VERB.
011536,000884: 43,2757           04616                          TC       BANKCALL                              
011537,000885: 43,2760           20621                          CADR     EXDSPRET                              
011538,000886: 43,2761           34746                          CAF      BIT6                                  
011539,000887: 43,2762           00006                          EXTEND                                         
011540,000888: 43,2763           05012                          WOR      CHAN12                                #  ENABLE ERROR COUNTERS.
011541,000889: 43,2764           34752                          CAF      TWO                                   
011542,000890: 43,2765           05203                          TC       WAITLIST                              #  PUT OUT COMMANDS IN .32 SECONDS.
011543,000891: 43,2766     0321                                 EBANK=   THETAD                                
011544,000892: 43,2766           02035 64100                    2CADR    ATTCK2                                
011545,000893: 
011546,000894: 43,2770           15472                          TCF      ENDEXT                                
011547,000895: 
011548,000896: 42,2035                                          BANK     42                                    
011549,000897: 42,2000                                          SETLOC   PINBALL3                              #  SOMETHING IN B42.
011550,000898: 42,2000                                          BANK                                           
011551,000899: 
011552,000900: 42,2035                                          COUNT*   $$/EXTVB                              
011553,000901:                                                                                                 #  Page 289
011554,000902: 42,2035           34752        ATTCK2            CAF      TWO                                   #  PUT OUT COMMANDS.
011555,000903: 42,2036           54002                 +1       TS       Q                                     #  CDU WILL LIMIT EXCESS DATA.
011556,000904: 42,2037           50000                          INDEX    A                                     
011557,000905: 42,2040           30321                          CA       THETAD                                
011558,000906: 42,2041           00006                          EXTEND                                         
011559,000907: 42,2042           72053                          MP       ATTSCALE                              
011560,000908: 42,2043           50002                          INDEX    Q                                     
011561,000909: 42,2044           56050                          XCH      CDUXCMD                               
011562,000910: 42,2045           10002                          CCS      Q                                     
011563,000911: 42,2046           12036                          TCF      ATTCK2     +1                         
011564,000912: 
011565,000913: 42,2047           37743                          CAF      13,14,15                              
011566,000914: 42,2050           00006                          EXTEND                                         
011567,000915: 42,2051           05014                          WOR      CHAN14                                
011568,000916: 42,2052           15261                          TCF      TASKOVER                              #  LEAVE ERROR COUNTERS ENABLED.
011569,000917: 
011570,000918: 42,2053           03146        ATTSCALE          DEC      0.1                                   
011571,000919: 
011572,000920: 07,2666                                          BANK     7                                     
011573,000921: 43,2000                                          SETLOC   EXTVERBS                              
011574,000922: 43,2000                                          BANK                                           
011575,000923: 
011576,000924: 43,2771                                          COUNT*   $$/EXTVB                              
011577,000925: 
011578,000926: 43,2771           12600        V43K              VN       4300                                  
011579,000927: 
011580,000928:                                                                                                 #  V82PERF        VERB82          DESCRIPTION
011581,000929:                                                                                                 #         REQUEST ORBIT PARAMETERS DISPLAY (R30)
011582,000930: 
011583,000931:                                                                                                 #         1.      IF AVERAGE G IS OFF:
011584,000932:                                                                                                 #                         FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011585,000933:                                                                                                 #                         TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
011586,000934:                                                                                                 #                         CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ I.
011587,000935:                                                                                                 #                         SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011588,000936:                                                                                                 #                         CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011589,000937:                                                                                                 #                         RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
011590,000938:                                                                                                 #                         HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011591,000939:                                                                                                 #                         HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
011592,000940:                                                                                                 #                         INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011593,000941:                                                                                                 #                         FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
011594,000942:                                                                                                 #                         NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011595,000943:                                                                                                 #                         ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011596,000944:                                                                                                 #                         DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011597,000945:                                                                                                 #                         ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011598,000946: 
011599,000947:                                                                                                 #         2.      IF AVERAGE G IS ON:
011600,000948:                                                                                                 #                         CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
011601,000949:                                                                                                 #                         FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
011602,000950:                                                                                                 #                         OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011603,000951:                                                                                                 #                         FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011604,000952:                                                                                                 #                         IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011605,000953:                                                                                                 #                         RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011606,000954: 
011607,000955:                                                                                                 #  Page 290
011608,000956: 43,2772           02076        V82PERF           TC       TESTXACT                              
011609,000957: 
011610,000958: 43,2773           35021                          CAF      PRIO7                                 #  LESS THAN LAMBERT.  R30,V82
011611,000959: 43,2774           05146                          TC       PRIOCHNG                              
011612,000960: 43,2775           00006                          EXTEND                                         
011613,000961: 43,2776           33001                          DCA      V82CON                                
011614,000962: 43,2777           05165                          TC       SUPDXCHZ                              #  V82CALL IN DIFF SUPERBANK FROM V82PERF
011615,000963: 
011616,000964: 43,3000  E4,1716                                 EBANK=   HAPO                                  
011617,000965: 43,3000           03242 44104  V82CON            2CADR    V82CALL                               
011618,000966: 
011619,000967:                                                                                                 #  VB83PERF       VERB 83         DESCRIPTION
011620,000968:                                                                                                 #         REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011621,000969: 
011622,000970:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011623,000971:                                                                                                 #         2.      SCHEDULE R31CALL WITH PRIORITY 5.
011624,000972:                                                                                                 #                 A.      DISPLAY
011625,000973:                                                                                                 #                         R1      RANGE
011626,000974:                                                                                                 #                         R2      RANGE RATE
011627,000975:                                                                                                 #                         R3      THETA
011628,000976: 
011629,000977: 43,3002           02076        V83PERF           TC       TESTXACT                              
011630,000978: 
011631,000979: 43,3003           34752                          CAF      BIT2                                  
011632,000980: 43,3004           05203                          TC       WAITLIST                              
011633,000981: 43,3005  E7,1611                                 EBANK=   TSTRT                                 
011634,000982: 43,3005           03737 60107                    2CADR    R31CALL                               
011635,000983: 
011636,000984: 43,3007           05155                          TC       ENDOFJOB                              
011637,000985: 
011638,000986:                                                                                                 #  VERB 89        DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011639,000987:                                                                                                 #  
011640,000988:                                                                                                 #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 IS USED.  CALCULATES AND
011641,000989:                                                                                                 #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
011642,000990: 
011643,000991:                                                                                                 #  1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
011644,000992:                                                                                                 #  EXIT R63, OTHERWISE CONTINUE.
011645,000993: 
011646,000994:                                                                                                 #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH).  IF IMU ON AND ITS
011647,000995:                                                                                                 #  ORIENTATION KNOWN TO LGC,CONTINUE.
011648,000996: 
011649,000997:                                                                                                 #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011650,000998:                                                                                                 #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
011651,000999:                                                                                                 #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
011652,001000:                                                                                                 #  AFTER KEYING IN PROCEED.
011653,001001: 
011654,001002:                                                                                                 #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
011655,001003: 
011656,001004:                                                                                                 #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
011657,001005:                                                                                                 #  Page 291
011658,001006:                                                                                                 #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
011659,001007:                                                                                                 #  PREPARED FOR VECPOINT.
011660,001008: 
011661,001009:                                                                                                 #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
011662,001010:                                                                                                 #  BALLANGS.  FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
011663,001011: 
011664,001012:                                                                                                 #  7.     RECYCLE -- RETURN TO STEP 4.
011665,001013:                                                                                                 #         TERMINATE -- EXIT R63.
011666,001014:                                                                                                 #         PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
011667,001015: 
011668,001016: 43,3010           02121        V89PERF           TC       CHKP00H                               
011669,001017: 43,3011           02076                          TC       TESTXACT                              
011670,001018: 43,3012           34737                          CAF      PRIO10                                
011671,001019: 43,3013           05105                          TC       FINDVAC                               
011672,001020: 43,3014  E4,1606                                 EBANK=   RONE                                  
011673,001021: 43,3014           02022 54104                    2CADR    V89CALL                               
011674,001022: 
011675,001023: 43,3016           05155                          TC       ENDOFJOB                              
011676,001024: 
011677,001025:                                                                                                 #  V90PERF        VERB 90         DESCRIPTION
011678,001026:                                                                                                 #         REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011679,001027: 
011680,001028:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011681,001029:                                                                                                 #         2.      SCHEDULE R36 CALL WITH PRIORITY 10
011682,001030:                                                                                                 #                 A.      DISPLAY
011683,001031:                                                                                                 #                         TIME OF EVENT -- HOURS, MINUTES, SECONDS
011684,001032:                                                                                                 #                         Y       OUT-OF-PLANE POSITION -- NAUTICAL MILES
011685,001033:                                                                                                 #                         YDOT    OUT-OF-PLANE VELOCITY -- FEET/SECOND
011686,001034:                                                                                                 #                         PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
011687,001035:                                                                                                 #                                 DIRECTION VECTOR IN HORIZONTAL PLANE -- DEGREES
011688,001036: 
011689,001037: 43,3017           02076        V90PERF           TC       TESTXACT                              
011690,001038: 43,3020           35021                          CAF      PRIO7                                 #  R36,V90
011691,001039: 43,3021           05105                          TC       FINDVAC                               
011692,001040: 43,3022  E7,1441                                 EBANK=   TIG                                   
011693,001041: 43,3022           02642 10107                    2CADR    R36                                   
011694,001042: 
011695,001043: 43,3024           15155                          TCF      ENDOFJOB                              
011696,001044: 
011697,001045:                                                                                                 #  MINIMP VERB 76         DESCRIPTION
011698,001046:                                                                                                 #         MINIMUM IMPULSE MODE
011699,001047: 
011700,001048:                                                                                                 #         1.      SET MINIMUM IMPULSE RHO MODE FLAG TO 1.
011701,001049: 
011702,001050: 43,3025           05504        MINIMP            TC       UPFLAG                                #  SET PULSES = 1 (MIN. IMPULSE MODE)
011703,001051: 43,3026           00303                          ADRES    PULSEFLG                              
011704,001052: 43,3027           12117                          TCF      GOPIN                                 #  RETURN VIA PINBRNCH
011705,001053: 
011706,001054:                                                                                                 #  NOMINIMP       VERB 77         DESCRIPTION
011707,001055:                                                                                                 #         RATE COMMAND MODE
011708,001056: 
011709,001057:                                                                                                 #         1.      SET MINIMUM IMPULSE RHO MODE FLAG TO 0.  (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
011710,001058:                                                                                                 #         2.      MOVE CDUX, CDUY, CDUZ INTO CDUXD, CDUYD, CDUZD.
011711,001059:                                                                                                 #  Page 292
011712,001060: 
011713,001061: 43,3030           05516        NOMINIMP          TC       DOWNFLAG                              #  SET PULSES = 0 (NOT MINIMUM IMPULSE MODE
011714,001062: 43,3031           00303                          ADRES    PULSEFLG                              
011715,001063: 43,3032           00004                          INHINT                                         
011716,001064: 43,3033           04674                          TC       IBNKCALL                              
011717,001065: 43,3034           40154                          CADR     ZATTEROR                              
011718,001066: 43,3035           02117                          TC       GOPIN                                 
011719,001067: 
011720,001068:                                                                                                 #  Page 293
011721,001069:                                                                                                 #  CREMANU        VERB 49         DESCRIPTION
011722,001070:                                                                                                 #         START AUTOMATIC ATTITUDE MANEUVER
011723,001071: 
011724,001072:                                                                                                 #         1.      REQUIRE PROGRAM 00 ACTIVE.
011725,001073:                                                                                                 #         2.      SET EXT VERB DISPLAY BUSY FLAG.
011726,001074:                                                                                                 #         3.      SCHEDULE R62DISP WITH PRIORITY 10.
011727,001075:                                                                                                 #         4.      RELEASE EXT VERB DISPLAY.
011728,001076: 
011729,001077:                                                                                                 #         R62DISP
011730,001078:                                                                                                 #         1.      DISPLAY FLASHING V06,N22.
011731,001079:                                                                                                 #                 RESPONSES
011732,001080:                                                                                                 #                 A.      TERMINATE
011733,001081:                                                                                                 #                         1.      GOTOP00H
011734,001082:                                                                                                 #                 B.      PROCEED
011735,001083:                                                                                                 #                         1.      SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
011736,001084:                                                                                                 #                         2.      EXECUTE R60LEM (ATTITUDE MANEUVER).
011737,001085:                                                                                                 #                 C.      ENTER
011738,001086:                                                                                                 #                         1.      REPEAT FLASHING V06,N22.
011739,001087: 
011740,001088: 43,3036           02121        CREWMANU          TC       CHKP00H                               #  DEMAND P00
011741,001089: 
011742,001090: 43,3037           02076                          TC       TESTXACT                              
011743,001091: 
011744,001092: 43,3040           34737                          CAF      PRIO10                                
011745,001093: 43,3041           05105                          TC       FINDVAC                               
011746,001094: 43,3042  E6,1675                                 EBANK=   BCDU                                  
011747,001095: 43,3042           02103 46106                    2CADR    R62DISP                               
011748,001096: 
011749,001097: 43,3044           05155                          TC       ENDOFJOB                              
011750,001098: 
011751,001099:                                                                                                 #  Page 294
011752,001100:                                                                                                 #  TRMTRACK       VERB 56         DESCRIPTION
011753,001101:                                                                                                 #         TERMINATE TRACKING (P20 AND P25).
011754,001102: 
011755,001103:                                                                                                 #         1.      KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011756,001104:                                                                                                 #         2.      REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOP00H (REQUEST PROGRAM 00).
011757,001105:                                                                                                 #         3.      SCHEDULE V56TOVAC WITH PRIORITY 30.
011758,001106: 
011759,001107:                                                                                                 #         V56TOVAC
011760,001108:                                                                                                 #         1.      EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.)
011761,001109:                                                                                                 #         2.      ZERO GROUP 2 TO HALT P20.
011762,001110:                                                                                                 #         3.      TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
011763,001111: 
011764,001112: 43,3045           33065        TRMTRACK          CA       BITS9+7                               #  IS REND OR P25 FLAG ON
011765,001113: 43,3046           70074                          MASK     FLAGWRD0                              
011766,001114: 43,3047           00006                          EXTEND                                         
011767,001115: 43,3050           12117                          BZF      GOPIN                                 #  NO
011768,001116: 
011769,001117: 43,3051           05516                          TC       DOWNFLAG                              
011770,001118: 43,3052           00010                          ADRES    RNDVZFLG                              
011771,001119: 
011772,001120: 43,3053           05516                          TC       DOWNFLAG                              
011773,001121: 43,3054           00006                          ADRES    P25FLAG                               
011774,001122: 
011775,001123: 43,3055           05516                          TC       DOWNFLAG                              #  ENSURE SEARCH FLAG IS OFF
011776,001124: 43,3056           00037                          ADRES    SRCHOPTN                              
011777,001125: 
011778,001126: 43,3057           34747                          CA       TRACKBIT                              #  IS TRACK FLAG ON?
011779,001127: 43,3060           70075                          MASK     FLAGWRD1                              
011780,001128: 43,3061           00006                          EXTEND                                         
011781,001129: 43,3062           12117                          BZF      GOPIN                                 
011782,001130: 
011783,001131: 43,3063           04635                          TC       POSTJUMP                              
011784,001132: 43,3064           64054                          CADR     TRMTRAK1                              
011785,001133: 
011786,001134: 43,3065           00500        BITS9+7           OCT      500                                   
011787,001135: 
011788,001136: 42,2000                                          SETLOC   SBAND                                 #  BANK 42
011789,001137: 42,2000                                          BANK                                           
011790,001138: 
011791,001139: 42,2054                                          COUNT*   $$/EXTVB                              
011792,001140: 
011793,001141: 42,2054           05516        TRMTRAK1          TC       DOWNFLAG                              
011794,001142: 42,2055           00027                          ADRES    UPDATFLG                              #  UPDATE FLAG DOWN
011795,001143: 42,2056           05516                          TC       DOWNFLAG                              
011796,001144: 42,2057           00031                          ADRES    TRACKFLG                              #  TRACK FLAG DOWN
011797,001145: 42,2060           05516                          TC       DOWNFLAG                              
011798,001146: 42,2061           00007                          ADRES    IMUSE                                 
011799,001147: 
011800,001148: 42,2062           06042                          TC       INTPRET                               
011801,001149: 42,2063           77624                          CALL                                           
011802,001150: 42,2064           27410                                   INTSTALL                              #  DON'T INTERRUPT INTEGRATION
011803,001151:                                                                                                 #  Page 295
011804,001152: 42,2065           77776                          EXIT                                           
011805,001153: 
011806,001154: 42,2066           05353                          TC       PHASCHNG                              
011807,001155: 42,2067           00002                          OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
011808,001156: 
011809,001157: 42,2070           00004                          INHINT                                         
011810,001158: 42,2071           04674                          TC       IBNKCALL                              #  ZERO THE COMMANDED RATES TO STOP
011811,001159: 42,2072           40166                          CADR     STOPRATE                              #  MANEUVER
011812,001160: 
011813,001161: 42,2073           04674                          TC       IBNKCALL                              
011814,001162: 42,2074           40115                          CADR     RESTORDB                              
011815,001163: 
011816,001164: 42,2075           06011                          TC       CLRADMOD                              #  CLEAR BITS 10 + 15 OF RADMODES.
011817,001165: 
011818,001166: 42,2076           44736                          CS       BIT14                                 #  DISABLE LOCKON
011819,001167: 42,2077           00006                          EXTEND                                         
011820,001168: 42,2100           03012                          WAND     CHAN12                                
011821,001169: 42,2101           04635                          TC       POSTJUMP                              
011822,001170: 42,2102           12766                          CADR     GOPROG2                               #  CAUSE RESTART.
011823,001171: 
011824,001172:                                                                                                 #  DNEDUMP        VERB 74         DESCRIPTION
011825,001173:                                                                                                 #         INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011826,001174: 
011827,001175:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011828,001176:                                                                                                 #         2.      REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011829,001177:                                                                                                 #         3.      RELEASE EXT VERB DISPLAY.
011830,001178: 
011831,001179: 43,2000                                          SETLOC   EXTVERBS                              
011832,001180: 43,2000                                          BANK                                           
011833,001181: 
011834,001182: 43,3066                                          COUNT*   $$/EXTVB                              
011835,001183: 
011836,001184: 43,3066     0400                                 EBANK=   400                                   
011837,001185: 43,3066           33071        DNEDUMP           CAF      LDNDUMPI                              
011838,001186: 43,3067           54335                          TS       DNTMGOTO                              
011839,001187: 43,3070           02117                          TC       GOPIN                                 
011840,001188: 
011841,001189: 43,3071  43,3066               V74               EQUALS   DNEDUMP                               
011842,001190: 43,3071           03721        LDNDUMPI          REMADR   DNDUMPI                               
011843,001191: 
011844,001192:                                                                                                 #  LEMVEC VERB 80         DESCRIPTION
011845,001193:                                                                                                 #         UPDATE LEM STATE VECTOR
011846,001194:                                                                                                 #                 RESET VHUPFLG TC 0
011847,001195: 
011848,001196: 43,3072           05516        LEMVEC            TC       DOWNFLAG                              
011849,001197: 43,3073           00026                          ADRES    VEHUPFLG                              #  VB 80 -- VEHUPFLG DOWN INDICATES LEM
011850,001198: 
011851,001199: 43,3074           03077                          TC       NOUPDOWN                              
011852,001200: 
011853,001201:                                                                                                 #  CSMVEC VERB 81         DESCRIPTION
011854,001202:                                                                                                 #         UPDATE CSM STATE VECTOR
011855,001203:                                                                                                 #  Page 296
011856,001204:                                                                                                 #                 SET VEHUPFLG TO 1
011857,001205: 
011858,001206: 43,3075           05504        CSMVEC            TC       UPFLAG                                
011859,001207: 43,3076           00026                          ADRES    VEHUPFLG                              #  VB 81 -- VEHUPFLG UP INDICATES CSM
011860,001208: 
011861,001209: 43,3077           05516        NOUPDOWN          TC       DOWNFLAG                              
011862,001210: 43,3100           00030                          ADRES    NOUPFLAG                              
011863,001211: 
011864,001212: 43,3101           12117                          TCF      GOPIN                                 
011865,001213: 
011866,001214:                                                                                                 #  UPDATOFF       VERB 95         DESCRIPTION
011867,001215:                                                                                                 #         INHIBIT STATE VECTOR UPDATES BY INCORP
011868,001216:                                                                                                 #                 SET NOUPFLAG TO 1
011869,001217: 
011870,001218: 43,3102           05504        UPDATOFF          TC       UPFLAG                                #  VB 95 SET NOUPFLAG
011871,001219: 43,3103           00030                          ADRES    NOUPFLAG                              
011872,001220: 
011873,001221: 43,3104           02117                          TC       GOPIN                                 
011874,001222:                                                                                                 #  Page 297
011875,001223:                                                                                                 #  SYSTEST        VERB 92         DESCRIPTION
011876,001224:                                                                                                 #         OPERATE IMU PERFORMANCE TEST.
011877,001225: 
011878,001226:                                                                                                 #         1.      REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
011879,001227:                                                                                                 #         2.      SET EXT VERB BUSY FLAG.
011880,001228: 
011881,001229: 43,3105  E5,1417                                 EBANK=   QPLACE                                
011882,001230: 
011883,001231: 43,3105           02121        SYSTEST           TC       CHKP00H                               #  DEMAND P00
011884,001232: 
011885,001233: 43,3106           02076                          TC       TESTXACT                              
011886,001234: 
011887,001235: 43,3107           37713                          CAF      PRIO22                                
011888,001236: 43,3110           05105                          TC       FINDVAC                               
011889,001237: 43,3111  E5,1417                                 EBANK=   QPLACE                                
011890,001238: 43,3111  37,2000                                 SBANK=   IMUSUPER                              
011891,001239: 43,3111           02002 76065                    2CADR    REDO                                  
011892,001240: 
011893,001241: 43,3113           05155                          TC       ENDOFJOB                              
011894,001242: 
011895,001243:                                                                                                 #  VERB 93        CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZE
011896,001244: 
011897,001245: 43,3114           00004        WMATRXNG          INHINT                                         
011898,001246: 43,3115           44753                          CS       RENDWBIT                              
011899,001247: 43,3116           70101                          MASK     FLAGWRD5                              
011900,001248: 43,3117           54101                          TS       FLAGWRD5                              
011901,001249: 
011902,001250: 43,3120           02117                          TC       GOPIN                                 
011903,001251: 
011904,001252: 43,3121  43,3121               GOSHOSUM          EQUALS   SHOWSUM                               
011905,001253: 
011906,001254: 43,3121           02121        SHOWSUM           TC       CHKP00H                               #  *
011907,001255: 43,3122           02076                          TC       TESTXACT                              #  *
011908,001256: 43,3123           35021                          CAF      PRIO7                                 #  * ALLOW OTHER CHARINS.
011909,001257: 43,3124           05146                          TC       PRIOCHNG                              #  *
011910,001258: 43,3125           34753                          CAF      S+1                                   #  *
011911,001259: 43,3126           55376                          TS       SKEEP6                                #  * SHOWSUM OPTION
011912,001260: 43,3127           34755                          CAF      S+ZERO                                #  *
011913,001261: 43,3130           55362                          TS       SMODE                                 #  * TURN OFF SELF-CHECK
011914,001262: 43,3131           33272                          CA       SELFADRS                              #  *
011915,001263: 43,3132           55361                          TS       SELFRET                               #  *
011916,001264: 43,3133           03547                          TC       STSHOSUM                              #  * ENTER ROPECHK
011917,001265: 43,3134           23372        SDISPLAY          LXCH     SKEEP2                                #  * BANK # FOR DISPLAY
011918,001266: 43,3135           23373                          LXCH     SKEEP3                                #  * BUGGER WORD FOR DISPLAY
011919,001267: 43,3136           33271        NOKILL            CA       ADRS1                                 #  *
011920,001268: 43,3137           54156                          TS       MPAC       +2                         #  *
011921,001269: 43,3140           33151                          CA       VNCON                                 #  * 0501
011922,001270: 43,3141           04616                          TC       BANKCALL                              #  *
011923,001271: 43,3142           20334                          CADR     GOXDSPF                               #  *
011924,001272: 43,3143           03146                          TC       +3                                    #  *
011925,001273: 43,3144           03660                          TC       NXTBNK                                #  *
011926,001274:                                                                                                 #  Page 298
011927,001275: 43,3145           03136                          TC       NOKILL                                #  *
011928,001276: 43,3146           33272                          CA       SELFADRS                              
011929,001277: 43,3147           55371                          TS       SKEEP1                                
011930,001278: 
011931,001279: 43,3150           05472                          TC       ENDEXT                                #  *
011932,001280: 43,3151           01201        VNCON             VN       501                                   #  *
011933,001281: 43,3152           31376        ENDSUMS           CA       SKEEP6                                #  *
011934,001282: 43,3153           00006                          EXTEND                                         #  *
011935,001283: 43,3154           13363                          BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
011936,001284: 43,3155           03547                          TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
011937,001285: 
011938,001286:                                                                                                 #  Page 299
011939,001287:                                                                                                 #  DAPDISP        VERB 48         DESCRIPTION
011940,001288:                                                                                                 #         LOAD AUTO PILOT DATA
011941,001289: 
011942,001290:                                                                                                 #         1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
011943,001291:                                                                                                 #         2.      EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
011944,001292:                                                                                                 #         3.      RELEASE EXT VERB DISPLAY SYSTEM.
011945,001293: 
011946,001294:                                                                                                 #  KEY
011947,001295:                                                                                                 #  THE FOLLOWING IS A KEY TO THE 5 DIGITS OF THE DAP DATA CODE (N46)
011948,001296: 
011949,001297:                                                                                                 #  DIGIT A -- VEHICLE CONFIGURATION
011950,001298:                                                                                                 #         1 -- LM ALONE, ASCENT
011951,001299:                                                                                                 #         2 -- LM ALONE, DESCENT
011952,001300:                                                                                                 #         3 -- CSM AND LM DOCKED
011953,001301: 
011954,001302:                                                                                                 #  DIGIT B -- ACCELERATION CODE
011955,001303:                                                                                                 #         0 -- 2 JET TRANSLATION, RCS SYSTEM A PREFERRED
011956,001304:                                                                                                 #         1 -- 2 JET TRANSLATION, RCS SYSTEM B PREFERRED
011957,001305:                                                                                                 #         2 -- 4 JET TRANSLATION, RCS SYSTEM A PREFERRED (NOT MEANINGFUL)
011958,001306:                                                                                                 #         3 -- 4 JET TRANSLATION, RCS SYSTEM B PREFERRED (NOT MEANINGFUL)
011959,001307: 
011960,001308:                                                                                                 #  DIGIT C -- ACA SCALING
011961,001309:                                                                                                 #         0 -- FINE
011962,001310:                                                                                                 #         1 -- NORMAL
011963,001311: 
011964,001312:                                                                                                 #  DIGIT D -- DEADBAND
011965,001313:                                                                                                 #         0 -- 0.3 DEG
011966,001314:                                                                                                 #         1 -- 1.0 DEG
011967,001315:                                                                                                 #         2 -- 5.0 DEG
011968,001316:                                                                                                 #       (3 -- 5.0 DEG BY DEFAULT)
011969,001317: 
011970,001318:                                                                                                 #  DIGIT E -- MANEUVER RATE
011971,001319:                                                                                                 #         0 -- 0.2 DEG/SEC
011972,001320:                                                                                                 #         1 -- 0.5 DEG/SEC
011973,001321:                                                                                                 #         2 -- 2.0 DEG/SEC
011974,001322:                                                                                                 #         3 -- 10.0 DEG/SEC
011975,001323: 
011976,001324: 43,3156           02076        DAPDISP           TC       TESTXACT                              
011977,001325: 43,3157           35021                          CAF      PRIO7                                 #  R03
011978,001326: 43,3160           05146                          TC       PRIOCHNG                              
011979,001327: 43,3161           04635                          TC       POSTJUMP                              
011980,001328: 43,3162           40004                          CADR     DAPDATA1                              
011981,001329: 
011982,001330: 34,2000                                          BANK     34                                    
011983,001331: 20,2000                                          SETLOC   LOADDAP                               
011984,001332: 20,2000                                          BANK                                           
011985,001333: 
011986,001334: 20,2004                                          COUNT*   $$/R03                                
011987,001335: 
011988,001336: 20,2004  30,2000                                 SBANK=   LOWSUPER                              #  FOR SUBSEQUENT LOW 2CADR'S
011989,001337: 
011990,001338: 20,2004           32114        DAPDATA1          CAF      BOOLSMSK                              #  SET DISPLAY ACCORDING TO DAPBOOL'S BITS.
011991,001339: 20,2005           70111                          MASK     DAPBOOLS                              #  LM
011992,001340:                                                                                                 #  Page 300
011993,001341: 20,2006           55340                          TS       DAPDATR1                              #  LM
011994,001342: 20,2007           40106                          CS       FLGWRD10                              #  SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
011995,001343: 20,2010           74737                          MASK     APSFLBIT                              
011996,001344: 20,2011           10000                          CCS      A                                     
011997,001345: 20,2012           34736                          CAF      BIT14                                 
011998,001346: 20,2013           27340                          ADS      DAPDATR1                              
011999,001347: 20,2014           31340        CHKDATA1          CAE      DAPDATR1                              #  IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
012000,001348: 20,2015           74355                          MASK     BIT13-14                              #         A ONE INTO BIT 13.
012001,001349: 20,2016           00006                          EXTEND                                         
012002,001350: 20,2017           12034                          BZF      FORCEONE                              
012003,001351: 20,2020           31340                          CAE      DAPDATR1                              #  ENSURE THAT NO ILLEGAL BITS SET BY CREW.
012004,001352: 20,2021           72113        MSKDATR1          MASK     DSPLYMSK                              
012005,001353: 20,2022           55340                          TS       DAPDATR1                              
012006,001354: 20,2023           32112                          CAF      V01N46                                #  LM
012007,001355: 20,2024           04616                          TC       BANKCALL                              
012008,001356: 20,2025           20353                          CADR     GOXDSPFR                              
012009,001357: 20,2026           15472                          TCF      ENDEXT                                #  V34E TERMINATE
012010,001358: 20,2027           12037                          TCF      DPDAT1                                #  V33E PROCEED
012011,001359: 20,2030           12014                          TCF      CHKDATA1                              #  E      NEW DATA        CHECK AND REDISPLAY
012012,001360: 20,2031           36245                          CAF      REVCNT                                #  BITS 2 & 3:  BLANKS R2 & R3.
012013,001361: 20,2032           05464                          TC       BLANKET                               
012014,001362: 20,2033           15155                          TCF      ENDOFJOB                              
012015,001363: 20,2034           34737        FORCEONE          CAF      BIT13                                 
012016,001364: 20,2035           27340                          ADS      DAPDATR1                              
012017,001365: 20,2036           12021                          TCF      MSKDATR1                              
012018,001366: 
012019,001367: 20,2037           00004        DPDAT1            INHINT                                         #  INHINT FOR SETTING OF FLAG BITS AND MASS
012020,001368: 20,2040           44737                          CS       APSFLBIT                              #         ON BASIS OF DISPLAYED DAPDATR1.
012021,001369: 20,2041           70106                          MASK     FLGWRD10                              
012022,001370: 20,2042           54001                          TS       L                                     #  SET APSFLAG TO BE COMPLEMENT OF BIT 14
012023,001371: 20,2043           41340                          CS       DAPDATR1                              
012024,001372: 20,2044           74736                          MASK     BIT14                                 
012025,001373: 20,2045           10000                          CCS      A                                     
012026,001374: 20,2046           34737                          CAF      APSFLBIT                              
012027,001375: 20,2047           60001                          AD       L                                     
012028,001376: 20,2050           54106                          TS       FLGWRD10                              
012029,001377: 20,2051           41340                          CS       DAPDATR1                              #  SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
012030,001378: 20,2052           74355                          MASK     BIT13-14                              #         MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
012031,001379: 20,2053           10000                          CCS      A                                     #         13 AND 14 ARE SET.
012032,001380: 20,2054           44737                          CS       CSMDOCKD                              
012033,001381: 20,2055           62114                          AD       BOOLSMSK                              
012034,001382: 20,2056           71340                          MASK     DAPDATR1                              
012035,001383: 20,2057           54001                          TS       L                                     
012036,001384: 20,2060           42114                          CS       BOOLSMSK                              
012037,001385: 20,2061           70111                          MASK     DAPBOOLS                              
012038,001386: 20,2062           60001                          AD       L                                     
012039,001387: 20,2063           54111                          TS       DAPBOOLS                              
012040,001388: 20,2064           74737                          MASK     CSMDOCKD                              #  LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
012041,001389: 20,2065           10000                          CCS      A                                     #         MASS IS USUALLY OKAY, SO DO
012042,001390: 20,2066           31327                          CAE      CSMMASS                               #         NOT TOUCH ITS LOW-ORDER PART.
012043,001391:                                                                                                 #  Page 301
012044,001392: 20,2067           61326                          AD       LEMMASS                               
012045,001393: 20,2070           55243                          TS       MASS                                  
012046,001394: 20,2071           30111                          CAE      DAPBOOLS                              
012047,001395: 20,2072           74741                          MASK     ACC4OR2X                              #  2 OR 4 JET X-TRANSLATION
012048,001396: 20,2073           00006                          EXTEND                                         #  (BIT ACC4OR2X = 1 FOR 4 JETS)
012049,001397: 20,2074           12101                          BZF      +5                                    
012050,001398: 20,2075           44735                          CS       BIT15                                 
012051,001399: 20,2076           70075                          MASK     FLAGWRD1                              #  CLEAR NJTSFLAG TO 0 FOR 4 JETS
012052,001400: 20,2077           54075                          TS       FLAGWRD1                              
012053,001401: 20,2100           12104                          TCF      +4                                    
012054,001402: 20,2101           40075                          CS       FLAGWRD1                              #  SET NJTSFLAG TO 1 FOR 2 JETS
012055,001403: 20,2102           74735                          MASK     BIT15                                 
012056,001404: 20,2103           26075                          ADS      FLAGWRD1                              
012057,001405: 20,2104           30111                          CA       DAPBOOLS                              #  SELECT DESIRED KALCMANU AUTOMATIC
012058,001406: 20,2105           76250                          MASK     THREE                                 #  MANEUVER RATE
012059,001407: 20,2106           60000                          DOUBLE                                         #  RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
012060,001408: 20,2107           55322                          TS       RATEINDX                              #  ARE DP
012061,001409: 20,2110           04635                          TC       POSTJUMP                              
012062,001410: 20,2111           02211                          CADR     STIKLOAD                              
012063,001411: 
012064,001412: 20,2112           00256        V01N46            VN       0146                                  
012065,001413: 20,2113           33133        DSPLYMSK          OCT      33133                                 
012066,001414: 20,2114           13133        BOOLSMSK          OCT      13133                                 
012067,001415: 
012068,001416: 01,2211                                          BANK     01                                    
012069,001417: 01,2000                                          SETLOC   LOADDAP1                              
012070,001418: 01,2000                                          BANK                                           
012071,001419: 
012072,001420: 01,2211                                          COUNT*   $$/R03                                
012073,001421: 
012074,001422: 01,2211           35015        STIKLOAD          CAF      EBANK6                                
012075,001423: 01,2212           54003                          TS       EBANK                                 
012076,001424: 01,2213  E6,1444                                 EBANK=   STIKSENS                              
012077,001425: 01,2213           34745                          CA       RHCSCALE                              #  SET STICK SENSITIVITY TO CORRESPOND TO A
012078,001426: 01,2214           70111                          MASK     DAPBOOLS                              #  MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
012079,001427: 01,2215           10000                          CCS      A                                     #  20 D/S (NORMAL) OR 4 D/S (FINE), ACALED
012080,001428: 01,2216           32340                          CA       NORMAL                                #  AT 45 D/S.
012081,001429: 01,2217           62341                          AD       FINE                                  
012082,001430: 01,2220           55444                          TS       STIKSENS                              
012083,001431: 01,2221           32343                          CA       -0.6D/S                               
012084,001432: 01,2222           55476                          TS       -RATEDB                               #  LM-ONLY BREAKOUT LEVEL IS .6 D/S.
012085,001433: 01,2223           34737                          CA       CSMDOCKD                              #  IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
012086,001434: 01,2224           70111                          MASK     DAPBOOLS                              #  BY 10.  NORMAL SCALING IS THEN 2 D/S AND
012087,001435: 01,2225           00006                          EXTEND                                         #  FINE SCALING IS 0.4 D/S
012088,001436: 01,2226           12235                          BZF      +7                                    #  BRANCH IF CSM IS NOT DOCKED.
012089,001437: 01,2227           31444                          CA       STIKSENS                              
012090,001438: 01,2230           00006                          EXTEND                                         
012091,001439: 01,2231           72342                          MP       1/10                                  
012092,001440: 01,2232           55444                          TS       STIKSENS                              
012093,001441: 01,2233           32344                          CA       -0.3D/S                               #  CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
012094,001442: 01,2234           55476                          TS       -RATEDB                               
012095,001443:                                                                                                 #  Page 302
012096,001444: 01,2235           00003                          RELINT                                         
012097,001445: 
012098,001446: 01,2236           32336        DAPDATA2          CAF      V0647                                 
012099,001447: 01,2237           04616                          TC       BANKCALL                              
012100,001448: 01,2240           20353                          CADR     GOXDSPFR                              
012101,001449: 01,2241           12247                          TCF      ENDR03                                #  V34E   TERMINATE. FIRST SET DB.  DO 1/ACCS
012102,001450: 01,2242           12253                          TCF      DAPDAT2                               #  V33E   PROCEED
012103,001451: 01,2243           12236                          TCF      DAPDATA2                              #         LOAD NEW DATA AND RECYCLE
012104,001452: 01,2244           34751                          CAF      BIT3                                  #  BLANKS R3
012105,001453: 01,2245           05464                          TC       BLANKET                               #                 LM
012106,001454: 01,2246           15155                          TCF      ENDOFJOB                              
012107,001455: 01,2247           00004        ENDR03            INHINT                                         
012108,001456: 01,2250           04674                          TC       IBNKCALL                              
012109,001457: 01,2251           40115                          CADR     RESTORDB                              
012110,001458: 01,2252           15472                          TCF      ENDEXT                                #  DOES RELINT
012111,001459: 
012112,001460: 01,2253           40106        DAPDAT2           CS       FLGWRD10                              #  DETERMINE STAGE FROM APSFLAG
012113,001461: 01,2254           74737                          MASK     APSFLBIT                              
012114,001462: 01,2255           10000                          CCS      A                                     
012115,001463: 01,2256           32000                          CA       MINLMD                                
012116,001464: 01,2257           62001                          AD       MINMINLM                              
012117,001465: 01,2260           61326                          AD       LEMMASS                               #  LEMMASS MUST BE GREATER THAN EMPTY LEM
012118,001466: 01,2261           00006                          EXTEND                                         
012119,001467: 01,2262           62236                          BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
012120,001468: 01,2263           30111                          CAE      DAPBOOLS                              
012121,001469: 01,2264           74737                          MASK     CSMDOCKD                              
012122,001470: 01,2265           00006                          EXTEND                                         
012123,001471: 01,2266           12274                          BZF      LEMALONE                              #  SKIP TEST ON CSMMASS IF NOT DOCKED.
012124,001472: 01,2267           44741                          CS       MINCSM                                #  TEST CSM MASS
012125,001473: 01,2270           61327                          AD       CSMMASS                               #  CSMMASS MUST BE GREATER THAN EMPTY CSM
012126,001474: 01,2271           00006                          EXTEND                                         
012127,001475: 01,2272           62236                          BZMF     DAPDATA2                              #  ASK FOR NEW MASSES
012128,001476: 01,2273           31327                          CAE      CSMMASS                               #  DOCKED:  MASS = CSMMASS + LEMMASS
012129,001477: 01,2274           61326        LEMALONE          AD       LEMMASS                               #  LEM ALONE:  MASS = LEMMASS
012130,001478: 01,2275           22007                          ZL                                             
012131,001479: 01,2276           53244                          DXCH     MASS                                  
012132,001480: 01,2277           00004                          INHINT                                         
012133,001481: 01,2300           04674                          TC       IBNKCALL                              #  SET DEADBANK AND COMPUTE MOMENTS OF
012134,001482: 01,2301           40115                          CADR     RESTORDB                              #         INERTIA
012135,001483: 01,2302           00003                          RELINT                                         #  PROCEED TO NOUN 48 (OR END).
012136,001484: 
012137,001485: 01,2303           40106        DAPDATA3          CS       FLGWRD10                              
012138,001486: 01,2304           74737                          MASK     APSFLBIT                              
012139,001487: 01,2305           00006                          EXTEND                                         #  END ROUTINE IF LEM HAS STAGED.
012140,001488: 01,2306           15472                          BZF      ENDEXT                                
012141,001489: 01,2307           32337                          CAF      V06N48                                #  DISPLAY TRIM ANGLES AND REQUEST RESPONSE
012142,001490: 01,2310           04616                          TC       BANKCALL                              
012143,001491: 01,2311           20353                          CADR     GOXDSPFR                              
012144,001492: 01,2312           05472                          TC       ENDEXT                                
012145,001493: 01,2313           12320                          TCF      DPDAT3                                #  V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
012146,001494: 
012147,001495:                                                                                                 #  Page 303
012148,001496: 01,2314           12307                          TCF      -5                                    #  LOAD NEW DATA AND RECYCLE
012149,001497: 01,2315           34751                          CAF      BIT3                                  
012150,001498: 01,2316           05464                          TC       BLANKET                               #  BLANK R3
012151,001499: 01,2317           15155                          TCF      ENDOFJOB                              
012152,001500: 01,2320           34753        DPDAT3            CAF      BIT1                                  
012153,001501: 01,2321           05203                          TC       WAITLIST                              
012154,001502: 01,2322  E6,1401                                 EBANK=   ROLLTIME                              
012155,001503: 01,2322           03217 56066                    2CADR    TRIMGIMB                              
012156,001504: 
012157,001505: 01,2324           15155                          TCF      ENDOFJOB                              #  DOES A RELINT
012158,001506: 01,2325           32337        TRIMDONE          CAF      V50N48                                
012159,001507: 01,2326           04616                          TC       BANKCALL                              #  TRIM IS FINISHED.  PLEASE TERMINATE R03
012160,001508: 01,2327           20361                          CADR     GOMARK3R   -1                         
012161,001509: 01,2330           05472                          TC       ENDEXT                                #  V34E TERMINATE
012162,001510: 01,2331           05472                          TC       ENDEXT                                
012163,001511: 01,2332           05472                          TC       ENDEXT                                
012164,001512: 01,2333           36007                          CAF      OCT24                                 #  BIT5 TO CHANGE TO PERFORM, 3 TO BLANK 43
012165,001513: 01,2334           05464                          TC       BLANKET                               
012166,001514: 01,2335           15155                          TCF      ENDOFJOB                              
012167,001515: 
012168,001516: 01,2336           01457        V0647             VN       0647                                  
012169,001517: 01,2337           01460        V06N48            VN       0648                                  
012170,001518: 
012171,001519: 01,2340  01,2337               V50N48            =        V06N48                                
012172,001520: 
012173,001521: 01,2340           25101        NORMAL            DEC      .660214                               
012174,001522:                                                                                                 #  NORMAL SCALING IS 20 D/S
012175,001523: 01,2341           05220        FINE              DEC      .165054                               #  FINE STICK SCALING (4 D/S).
012176,001524: 01,2342           03146        1/10              DEC      .1                                    #  FACTOR FOR CSM-DOCKED SCALING
012177,001525: 01,2343           77445        -0.6D/S           DEC      -218       B-14                       
012178,001526: 01,2344           77622        -0.3D/S           DEC      -109       B-14                       
012179,001527: 
012180,001528:                                                                                                 #  Page 304
012181,001529:                                                                                                 #  VERB 66        VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
012182,001530:                                                                                                 #                 OTHER VEHICLE STATE VECTOR.
012183,001531: 
012184,001532:                                                                                                 #  USE SUBROUTINE GENTRAN.
012185,001533: 
012186,001534: 07,2666                                          BANK     7                                     
012187,001535: 43,2000                                          SETLOC   EXTVERBS                              
012188,001536: 43,2000                                          BANK                                           
012189,001537: 
012190,001538: 43,3163                                          COUNT*   $$/EXTVB                              
012191,001539: 
012192,001540: 43,3163  E3,1626                                 EBANK=   RRECTHIS                              
012193,001541: 
012194,001542: 43,3163           40104        ATTACHED          CS       FLAGWRD8                              
012195,001543: 43,3164           74744                          MASK     SURFFBIT                              
012196,001544: 43,3165           00006                          EXTEND                                         
012197,001545: 43,3166           12116                          BZF      ALM/END                               #  TURN ON OE AND EXIT IF SURFFLAG SET.
012198,001546: 43,3167           34737                          CAF      PRIO10                                
012199,001547: 43,3170           05105                          TC       FINDVAC                               
012200,001548: 43,3171  E3,1626                                 EBANK=   RRECTHIS                              
012201,001549: 
012202,001550: 43,3171           03174 66103                    2CADR    ATTACHIT                              
012203,001551: 
012204,001552: 43,3173           05155                          TC       ENDOFJOB                              
012205,001553: 
012206,001554: 43,3174           06042        ATTACHIT          TC       INTPRET                               
012207,001555: 43,3175           77624                          CALL                                           
012208,001556: 43,3176           27410                                   INTSTALL                              
012209,001557: 43,3177           43014                          SET      BON                                   
012210,001558: 43,3200           04063                                   MOONOTH                               
012211,001559: 43,3201           04304                                   MOONTHIS                              
012212,001560: 43,3202           67205                                   +3                                    
012213,001561: 43,3203           77614                          CLEAR                                          
012214,001562: 43,3204           04263                                   MOONOTH                               
012215,001563: 43,3205           77776                          EXIT                                           
012216,001564: 43,3206           33231                          CAF      OCT51                                 
012217,001565: 43,3207           05544                          TC       GENTRAN                               
012218,001566: 43,3210           01626                          ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
012219,001567: 43,3211           01554                          ADRES    RRECTOTH                              
012220,001568: 
012221,001569: 43,3212           00003                          RELINT                                         
012222,001570: 43,3213           06042                          TC       INTPRET                               
012223,001571: 43,3214           77624                          CALL                                           #  UPDATE R-OTHER, V-OTHER
012224,001572: 43,3215           26757                                   PTOALEM                               
012225,001573: 43,3216           45154                          LXA,2    CALL                                  
012226,001574: 43,3217           02030                                   PBODY                                 
012227,001575: 43,3220           26114                                   SVDWN1                                
012228,001576: 43,3221           77776                          EXIT                                           
012229,001577: 
012230,001578: 43,3222           33232                          CAF      TCPINAD                               
012231,001579:                                                                                                 #  Page 305
012232,001580: 43,3223           50120                          INDEX    FIXLOC                                
012233,001581: 43,3224           54052                          TS       QPRET                                 
012234,001582: 43,3225           04635                          TC       POSTJUMP                              
012235,001583: 43,3226           27421                          CADR     INTWAKE                               #  FREE INTEGRATION AND EXIT.
012236,001584: 
012237,001585: 43,3227           77634        TCPIN             RTB                                            
012238,001586: 43,3230           21051                                   PINBRNCH                              
012239,001587: 
012240,001588: 43,3231           00051        OCT51             OCT      51                                    
012241,001589: 43,3232           67227        TCPINAD           CADR     TCPIN                                 
012242,001590: 
012243,001591:                                                                                                 #  VERB 96        SET QUITFLAT TO STOP INTEGRATION.
012244,001592: 
012245,001593:                                                                                                 #         GO TO V37 WITH ERO TO CAUSE P00.
012246,001594:                                                                                                 #                 STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
012247,001595:                                                                                                 #                         THUS ALLOWING A 10 MINUT PERIOD WITHOUT INTEGRATION.
012248,001596: 
012249,001597: 43,3233           05504        VERB96            TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012250,001598: 43,3234           00221                          ADRES    QUITFLAG                              #         AT NEXT TIMESTEP
012251,001599: 
012252,001600: 43,3235           34755                          CAF      ZERO                                  
012253,001601: 43,3236           04635                          TC       POSTJUMP                              
012254,001602: 43,3237           10040                          CADR     V37                                   #  GO TO P00
012255,001603: 
012256,001604:                                                                                                 #  VERB 67:       DISPLAY OF W MATRIX
012257,001605: 
012258,001606: 43,3240           02076        V67               TC       TESTXACT                              
012259,001607: 43,3241           35017                          CAF      PRIO5                                 
012260,001608: 43,3242           05105                          TC       FINDVAC                               
012261,001609: 43,3243  E4,1600                                 EBANK=   WWPOS                                 
012262,001610: 43,3243           02007 62064                    2CADR    V67CALL                               
012263,001611: 
012264,001612: 43,3245           05155                          TC       ENDOFJOB                              
012265,001613: 
012266,001614:                                                                                                 #  VERB 65        DISABLE U,V JETS DURING DPS BURNS
012267,001615: 
012268,001616: 43,3246           05504        SNUFFOUT          TC       UPFLAG                                
012269,001617: 43,3247           00115                          ADRES    SNUFFER                               
012270,001618: 43,3250           02117                          TC       GOPIN                                 
012271,001619: 
012272,001620:                                                                                                 #  VERB 75        ENABLE U,V JETS DURING DPS BURNS
012273,001621: 
012274,001622: 43,3251           05516        OUTSNUFF          TC       DOWNFLAG                              
012275,001623: 43,3252           00115                          ADRES    SNUFFER                               
012276,001624: 43,3253           02117                          TC       GOPIN                                 
012277,001625: 
012278,001626:                                                                                                 #  VERB 85        DISPLAY RR LOS AZIMUTH AND ELEVATION.
012279,001627: 
012280,001628:                                                                                                 #  AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0-90 DEG IN THE +Y HEMISPHERE,
012281,001629:                                                                                                 #  360-270 DEG IN THE -Y HEMISPHERE.
012282,001630:                                                                                                 #  Page 306
012283,001631:                                                                                                 #  
012284,001632:                                                                                                 #  ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTIKON OF THE LOS INTO THE X-Z PLANE, 0-360 ABOUT +Y.
012285,001633: 
012286,001634: 43,3254  E4,1600                                 EBANK=   RR-AZ                                 
012287,001635: 43,3254           02076        VERB85            TC       TESTXACT                              
012288,001636: 43,3255           04635                          TC       POSTJUMP                              
012289,001637: 43,3256           60000                          CADR     DSPRRLOS                              
012290,001638: 
012291,001639: 40,2000                                          SETLOC   PINBALL1                              
012292,001640: 40,2000                                          BANK                                           
012293,001641: 
012294,001642: 40,2000                                          COUNT*   $$/EXTVB                              
012295,001643: 
012296,001644: 40,2000           35017        DSPRRLOS          CAF      PRIO5                                 
012297,001645: 40,2001           05105                          TC       FINDVAC                               
012298,001646: 40,2002  E4,1600                                 EBANK=   RR-AZ                                 
012299,001647: 40,2002           02017 60104                    2CADR    RRLOSDSP                              
012300,001648: 
012301,001649: 40,2004           34740                          CAF      PRIO4                                 
012302,001650: 40,2005           05146                          TC       PRIOCHNG                              
012303,001651: 40,2006           32076                          CAF      V16N56                                
012304,001652: 40,2007           04616                          TC       BANKCALL                              
012305,001653: 40,2010           20353                          CADR     GOMARKFR                              
012306,001654: 40,2011           05563                          TC       B5OFF                                 
012307,001655: 40,2012           05563                          TC       B5OFF                                 
012308,001656: 40,2013           05563                          TC       B5OFF                                 
012309,001657: 
012310,001658: 40,2014           34751                          CAF      BIT3                                  
012311,001659: 40,2015           05464                          TC       BLANKET                               
012312,001660: 40,2016           05155                          TC       ENDOFJOB                              
012313,001661: 
012314,001662: 40,2017           00006        RRLOSDSP          EXTEND                                         
012315,001663: 40,2020           30036                          DCA      CDUT                                  
012316,001664: 40,2021           52155                          DXCH     MPAC                                  
012317,001665: 40,2022           06042                          TC       INTPRET                               
012318,001666: 40,2023           77624                          CALL                                           
012319,001667: 40,2024           46065                                   RRNBMPAC                              #  GET RR LOS IN BODY AXIS.
012320,001668: 40,2025           00001                          STORE    0D                                    #  UNIT LOS
012321,001669: 40,2026           14007                          STODL    6D                                    
012322,001670: 40,2027           06524                                   HI6ZEROS                              
012323,001671: 40,2030           24011                          STOVL    8D                                    
012324,001672: 40,2031           00007                                   6D                                    
012325,001673: 40,2032           77656                          UNIT                                           
012326,001674: 40,2033           00007                          STORE    6D                                    #  UNIT OF LOS PROJ IN X-Z PLAND
012327,001675: 40,2034           77641                          DOT                                            
012328,001676: 40,2035           06516                                   UNITZ                                 
012329,001677: 40,2036           24021                          STOVL    COSTH                                 #  16D
012330,001678: 40,2037           06522                                   UNITX                                 
012331,001679: 40,2040           77641                          DOT                                            
012332,001680: 40,2041           00007                                   6D                                    
012333,001681: 40,2042           34023                          STCALL   SINTH                                 #  18D
012334,001682:                                                                                                 #  Page 307
012335,001683: 40,2043           47322                                   ARCTRIG                               
012336,001684: 40,2044           43244                          BPL      DAD                                   #  INSURE DISPLAY OF 0-360 DEG.
012337,001685: 40,2045           60047                                   +2                                    
012338,001686: 40,2046           06532                                   DPPOSMAX                              #  INTRODUCES AND ERROR OF B-28 REVS.
012339,001687: 40,2047           26203                          STOVL    RR-ELEV                               
012340,001688: 40,2050           00001                                   0D                                    
012341,001689: 40,2051           77641                          DOT                                            
012342,001690: 40,2052           06520                                   UNITY                                 
012343,001691: 40,2053           24023                          STOVL    SINTH                                 
012344,001692: 40,2054           00001                                   0D                                    
012345,001693: 40,2055           77641                          DOT                                            
012346,001694: 40,2056           00007                                   6D                                    
012347,001695: 40,2057           34021                          STCALL   COSTH                                 
012348,001696: 40,2060           47322                                   ARCTRIG                               
012349,001697: 40,2061           43244                          BPL      DAD                                   #  INSURE DISPLAY OF 0-360 DEG.
012350,001698: 40,2062           60064                                   +2                                    
012351,001699: 40,2063           06532                                   DPPOSMAX                              #  INTRODUCES AN ERROR OF B-28 REVS.
012352,001700: 40,2064           02201                          STORE    RR-AZ                                 
012353,001701: 40,2065           77776                          EXIT                                           
012354,001702: 40,2066           34777                          CA       1SEC                                  
012355,001703: 40,2067           04616                          TC       BANKCALL                              
012356,001704: 40,2070           01736                          CADR     DELAYJOB                              
012357,001705: 
012358,001706: 40,2071           34747                          CA       BIT5                                  
012359,001707: 40,2072           71043                          MASK     EXTVBACT                              
012360,001708: 40,2073           10000                          CCS      A                                     
012361,001709: 40,2074           02017                          TC       RRLOSDSP                              
012362,001710: 40,2075           05472                          TC       ENDEXT                                
012363,001711: 
012364,001712: 40,2076           04070        V16N56            VN       1656                                  
012365,001713: 

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