Source Code

010155,000001: # Copyright: Public domain. 010156,000002: # Filename: EXTENDED_VERBS.agc 010157,000003: # Purpose: Part of the source code for Comanche, build 055. It 010158,000004: # is part of the source code for the Command Module's 010159,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11. 010160,000006: # Assembler: yaYUL 010161,000007: # Reference: pp. 236-267 010162,000008: # Contact: Ron Burkey <info@sandroid.org>, 010163,000009: # Fabrizio Bernardini <fabrizio@spacecraft.it> 010164,000010: # Website: http://www.ibiblio.org/apollo. 010165,000011: # Mod history: 2009-05-18 FB Transcription Batch 3 Assignment. 010166,000012: # 2009-05-20 RSB Corrections: POODOO -> P00DOO, 010167,000013: # GOTOPOOH -> GOTOP00H, added a couple of 010168,000014: # missing instructions in Verb 96. 010169,000015: # 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to 010170,000016: # CA FLAGWRD1. Added a variety of SBANK= 010171,000017: # statements prior to 2CADRs. One day I'll 010172,000018: # have to figure out what yaYUL is doing 010173,000019: # wrong with those .... 010174,000020: 010175,000021: # The contents of the "Comanche055" files, in general, are transcribed 010176,000022: # from scanned documents. 010177,000023: 010178,000024: # Assemble revision 055 of AGC program Comanche by NASA 010179,000025: # 2021113-051. April 1, 1969. 010180,000026: 010181,000027: # This AGC program shall also be referred to as Colossus 2A 010182,000028: 010183,000029: # Prepared by 010184,000030: # Massachussets Institute of Technology 010185,000031: # 75 Cambridge Parkway 010186,000032: # Cambridge, Massachusetts 010187,000033: 010188,000034: # under NASA contract NAS 9-4065. 010189,000035: 010190,000036: # Refer directly to the online document mentioned above for further 010191,000037: # information. Please report any errors to info@sandroid.org. 010192,000038: 010193,000039: # Page 236 010194,000040: 07,2441 BANK 7 010195,000041: 43,2000 SETLOC EXTVERBS 010196,000042: 43,2000 BANK 010197,000043: 010198,000044: 43,2000 E5,1757 EBANK= OGC 010199,000045: 010200,000046: 43,2000 COUNT* $$/EXTVB 010201,000047: 010202,000048: # FAN-OUT 010203,000049: 010204,000050: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC 010205,000051: 43,2001 02002 TC LST2FAN # FAN AS BEFROE. 010206,000052: 010207,000053: 43,2002 02124 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY) 010208,000054: 43,2003 02150 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR 010209,000055: # 91 ONLY) 010210,000056: 43,2004 02240 TC IMUFINEK # VB42 FINE ALIGN IMU 010211,000057: 43,2005 02420 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS. 010212,000058: 43,2006 03207 TC SETSURF # VB44 SET SURFACE FLAG 010213,000059: 43,2007 03212 TC RESTSRF # VB45 RESET SURFACE FLAG 010214,000060: 43,2010 02524 TC STABLISH # VB46 ESTABLISH G+C CONTROL 010215,000061: 43,2011 03102 TC LMTOCMSV # VB47 MOVE LM STATE VECTOR INTO CM 010216,000062: 43,2012 02552 TC DAPDISP # VB48 LOAD A/P DATA 010217,000063: 43,2013 12543 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER 010218,000064: 43,2014 02275 TC GOLOADLV # VB50 PLEASE PERFORM 010219,000065: 43,2015 02275 TC GOLOADLV # VB51 PLEASE MARK 010220,000066: 43,2016 03157 TC V52 # VB52 SET OFFSET NO. FOR P22 010221,000067: 43,2017 02275 TC GOLOADLV # VB53 PLEASE PERFORM COAS MARK 010222,000068: 43,2020 02612 TC GOTOR23 # VB54 PLEASE MARK (R-21 BACKUP) 010223,000069: 43,2021 02326 TC ALINTIME # VB55 ALIGN TIME 010224,000070: 43,2022 02653 TC TRACKTRM # VB56 TERMINATE TRACKING (P20 + P25) 010225,000071: 43,2023 02607 TC GOTOR21 # VB57 START R21 REND TRACK SIGHT MARK ROUT 010226,000072: 43,2024 02510 TC ENATMA # VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER 010227,000073: 43,2025 02275 TC GOLOADLV # VB59 PLEASE CALIBRATE 010228,000074: 43,2026 02303 TC V60 # VB60 SET CPHIX (N17) EQUAL TO CDU 010229,000075: 43,2027 02311 TC V61 # VB61 SELECT MODE I 010230,000076: 43,2030 02314 TC V62 # VB62 SELECT MODE II, ERROR WRT N22 010231,000077: 43,2031 02321 TC V63 # VB63 SELECT MODE III, ERROR WRT N17 010232,000078: 43,2032 02500 TC VB64 # VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES 010233,000079: 43,2033 02375 TC CKOPTVB # V 65 E OPTICAL VERIFICATION FOR PRELAUNC 010234,000080: 43,2034 03034 TC ATTACHED # VB66 ATTACHED. MOVE THIS TO OTHER STATE 010235,000081: 43,2035 03201 TC V67 # VB67 W MATRIX MONITOR 010236,000082: 43,2036 02513 TC STROKON # VB68 CSM STROKE TEST ON. 010237,000083: 43,2037 02037 VERB69 TC VERB69 # VB69 CAUSE RESTART 010238,000084: 43,2040 03726 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME. 010239,000085: 43,2041 03730 TC V71UPDAT # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS 010240,000086: 43,2042 03732 TC V72UPDAT # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS 010241,000087: 43,2043 03734 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL) 010242,000088: 43,2044 02721 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM 010243,000089: # FOR ERASABLE DUMP. 010244,000090: 43,2045 02725 TC LFTFLGON # VB75 SET LIFTOFF FLAG. 010245,000091: # Page 237 010246,000092: 43,2046 03015 TC SETPRFLG # VB76 SET PREFERRED ATTITUDE FLAG 010247,000093: 43,2047 03020 TC RESETPRF # VB77 RESET PREFERRED ATT. FLAG 010248,000094: 43,2050 02406 TC CHAZFOGC # CHANGE GYROCOMPASS LAUNCH AZIMUTH V78 010249,000095: 43,2051 02120 TC ALM/END # V79 SPARE 010250,000096: 43,2052 02713 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR 010251,000097: 43,2053 02716 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR 010252,000098: 43,2054 02562 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30) 010253,000099: 43,2055 02567 TC V83PERF # VB83 RANGE, RANGE RATE, +X AXIS (R31) 010254,000100: 43,2056 02120 TC ALM/END # V84 SPARE 010255,000101: 43,2057 02601 TC V85PERF # VB85 RANGE, RANGE RATE, SLOS (R32) 010256,000102: 43,2060 02646 TC V86PERF # VB86 BACKUP MARK REJECT 010257,000103: 43,2061 03023 TC SETVHFLG # VB87 SET VHF RANGE FLAG 010258,000104: 43,2062 03027 TC RESETVHF # VB88 RESET VHF RANGE FLAG 010259,000105: 43,2063 02745 TC V89PERF # V89-ALIGN X OR PRF CSM AXIS TO LOS (R63) 010260,000106: 43,2064 03142 TC V90PERF # VB90-OUT OF PLAN PARAMETERS (R36) 010261,000107: 43,2065 02762 TC GOSHOSUM # VB91 TEMP FOR HYBRID AND STG. 010262,000108: 43,2066 02360 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST 010263,000109: 43,2067 02755 TC WMATRXNG # VB93 CLEAR RENDWFLG 010264,000110: 43,2070 03126 TC VERB94 # VB94 DO R64 010265,000111: 43,2071 02120 TC ALM/END # VB95 SPARE 010266,000112: 43,2072 13150 TCF VERB96 # VB96 SET QUITFLAG TO STOP INTEGRATION 010267,000113: 43,2073 02275 TC GOLOADLV # VB97 PLEASE PERFORM ENGINE-FAIL (R41) 010268,000114: 43,2074 02120 TC ALM/END # VB98 SPARE 010269,000115: 43,2075 02275 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE 010270,000116: 010271,000117: # END OF EXTENDED VERB FAN 010272,000118: 010273,000119: 43,2076 11044 TESTXACT CCS EXTVBACT 010274,000120: 43,2077 02120 TC ALM/END # YES, TURN ON OPERATOR ERROR LIGHT 010275,000121: 43,2100 30100 CA FLAGWRD4 # ARE PRIOS USING DSKY 010276,000122: 43,2101 72123 MASK OC24100 010277,000123: 43,2102 10000 CCS A 010278,000124: 43,2103 02120 TC ALM/END 010279,000125: 010280,000126: 43,2104 34112 CAF OCT24 # SET BITS 3 AND 5 010281,000127: 43,2105 55044 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY 010282,000128: # SYSTEM BUSY 010283,000129: 010284,000130: 43,2106 30002 CA Q 010285,000131: 43,2107 54155 TS MPAC +1 010286,000132: 010287,000133: 43,2110 45016 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB 010288,000134: 43,2111 04170 TC NVSUB 010289,000135: 43,2112 02113 TC +1 010290,000136: 43,2113 00155 TC MPAC +1 010291,000137: 010292,000138: 43,2114 04400 XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT. 010293,000139: 43,2115 05534 TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS. 010294,000140: # Page 238 010295,000141: 43,2116 5534 TERMEXTV EQUALS ENDEXT 010296,000142: 43,2116 5534 ENDEXTVB EQUALS ENDEXT 010297,000143: 010298,000144: 43,2116 35021 XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS. 010299,000145: 43,2117 02105 TC SETXTACT 010300,000146: 010301,000147: 43,2120 04400 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT 010302,000148: 43,2121 04701 GOPIN TC POSTJUMP 010303,000149: 43,2122 21272 CADR PINBRNCH 010304,000150: 010305,000151: 43,2123 24100 OC24100 OCT 24100 010306,000152: 010307,000153: # Page 239 010308,000154: # VBZERO VERB 40 DESCRIPTION 010309,000155: 010310,000156: # 1. REQUIRE NOUN 20 (ICDU ANGLES) 010311,000157: # 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM 010312,000158: # 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. 010313,000159: # 4. SET EXT VERB DISPLAY ACTIVE FLAG. 010314,000160: # 5. EXECUTE IMUZERO (ZERO IMU CDU ANGLES). 010315,000161: # 6. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). 010316,000162: # 7. RELEASE EXT. VERB DISPLAY SYSTEM. 010317,000163: 010318,000164: 43,2124 02136 VBZERO TC OP/INERT 010319,000165: 43,2125 02127 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20) 010320,000166: 43,2126 02120 TC ALM/END # RETURN HERE IF NOUN = OCDU(91) 010321,000167: # (NOT IN USE YET) 010322,000168: 010323,000169: 43,2127 02271 IMUZEROK TC CKMODCAD # KEYBOARD REQUEST FOR ISS CDUZERO 010324,000170: 43,2130 04662 TC BANKCALL 010325,000171: 43,2131 16577 CADR IMUZERO 010326,000172: 010327,000173: 43,2132 04662 TC BANKCALL # STALL 010328,000174: 43,2133 17577 CADR IMUSTALL 010329,000175: 43,2134 02135 TC +1 010330,000176: 010331,000177: 43,2135 02121 TC GOPIN 010332,000178: 010333,000179: 43,2136 44112 OP/INERT CS OCT24 010334,000180: 43,2137 61002 AD NOUNREG 010335,000181: 43,2140 00006 EXTEND 010336,000182: 43,2141 12476 BZF XACT0Q # IF = 20. 010337,000183: 010338,000184: 43,2142 24002 INCR Q 010339,000185: 43,2143 62147 AD OPIMDIFF # -71 010340,000186: 43,2144 00006 EXTEND 010341,000187: 43,2145 12476 BZF XACT0Q 010342,000188: 010343,000189: 43,2146 02120 TC ALM/END # ILLEGAL. 010344,000190: 010345,000191: 43,2147 77670 OPIMDIFF DEC -71 B-14 010346,000192: 010347,000193: # Page 240 010348,000194: # VBCOARK VERB 41 DESCRIPTION 010349,000195: # COARSE ALIGN IMU OR RADAR 010350,000196: 010351,000197: # 1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR. 010352,000198: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. 010353,000199: 010354,000200: # CASE 1 NOUN 20 (ICDU ANGLES) 010355,000201: # 3. SET EXT VERB DISPLAY ACTIVE FLAG. 010356,000202: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). 010357,000203: # RESPONSES 010358,000204: # A. TERMINATE 010359,000205: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010360,000206: # B. PROCEED 010361,000207: # 1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES). 010362,000208: # RESPONSES: 010363,000209: # A. TERMINATE 010364,000210: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010365,000211: # B. PROCEED 010366,000212: # 1. EXECUTE ICORK2. 010367,000213: # C. ENTER 010368,000214: # 1. INCREMENT CDU ANGLES 010369,000215: # 2. EXECUTE ICORK2 010370,000216: # C. ENTER 010371,000217: # 1. EXECUTE ICORK2 010372,000218: # ICORK2 010373,000219: # 1. RE-DISPLAY VERB 41. 010374,000220: # 2. EXECUTE IMUCCARS (IMU COARSE ALIGN). 010375,000221: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). 010376,000222: # 4. RELEASE EXT VERB DISPLAY SYSTEM. 010377,000223: 010378,000224: # CASE 2 NOUN 91 (OCDU ANGLES) 010379,000225: # 5. (REQUIRE OPTICS SWITCH TO BE AT COMUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE 010380,000226: # OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117 010381,000227: # AND RELEASE EXT VERB DISPLAY SYSTEM). 010382,000228: # 6. RESPONSES TO V29,N92 010383,000229: # A. TERMINATE 010384,000230: # RELEASE EXT VERB DISPLAY SYS. 010385,000231: # B. PROCEED OR ENTER 010386,000232: # RE-DISPLAY VERB 41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING. 010387,000233: # RELEASE EXT VERB DISPLAY SYSTEM. 010388,000234: 010389,000235: 43,2150 02136 VBCOARK TC OP/INERT 010390,000236: 43,2151 02153 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20) 010391,000237: 43,2152 02175 TC OPTCOARK # RETURN HERE IF NOUN = OCDU (91) 010392,000238: 010393,000239: # RETURNS TO L+1 IF NOUN 20 -- TO L+2 IF NOUN 91. 010394,000240: 010395,000241: 43,2153 02271 IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD 010396,000242: 43,2154 02076 TC TESTXACT 010397,000243: 43,2155 32173 CAF VNLODCDU # CALL FOR THETAD LOAD 010398,000244: 43,2156 04662 TC BANKCALL 010399,000245: 43,2157 20561 CADR GOXDSPF 010400,000246: 43,2160 05534 TC TERMEXTV 010401,000247: 43,2161 12162 TCF +1 010402,000248: # Page 241 010403,000249: 010404,000250: 43,2162 32174 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB. 010405,000251: 43,2163 04662 TC BANKCALL 010406,000252: 43,2164 21042 CADR EXDSPRET 010407,000253: 010408,000254: 43,2165 04662 TC BANKCALL # CALL MODE SWITCHING PROG 010409,000255: 43,2166 16663 CADR IMUCOARS 010410,000256: 010411,000257: 43,2167 04662 TC BANKCALL # STALL 010412,000258: 43,2170 17577 CADR IMUSTALL 010413,000259: 43,2171 05534 TC ENDEXTVB 010414,000260: 43,2172 05534 TC ENDEXTVB 010415,000261: 010416,000262: 43,2173 06226 VNLODCDU VN 2522 010417,000263: 43,2174 12200 IMUCOARV VN 4100 010418,000264: 010419,000265: # Page 242 010420,000266: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD 010421,000267: 010422,000268: 43,2175 31323 OPTCOARK CA OPTCADR 010423,000269: 43,2176 02272 TC CKMODCAD +1 010424,000270: 43,2177 02076 TC TESTXACT 010425,000271: 43,2200 35056 CAF EBANK5 010426,000272: 43,2201 54003 TS EBANK 010427,000273: 010428,000274: 43,2202 11314 CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER 010429,000275: 43,2203 02210 TC +5 # SWITCH AT COMPUTER 010430,000276: 43,2204 02205 TC +1 # NOT ON COMPUTER 010431,000277: 43,2205 04400 TC FALTON # TURN ON OPERATOR ERR 010432,000278: 43,2206 05650 TC ALARM # AND ALARM 010433,000279: 43,2207 00115 OCT 00115 010434,000280: 010435,000281: 43,2210 11303 CCS OPTIND # SEE IF OPTICS AVAILABLE 010436,000282: 43,2211 02217 TC OPTC1 # IN USE 010437,000283: 43,2212 02217 TC OPTC1 # IN USE 010438,000284: 43,2213 02217 TC OPTC1 # IN USE 010439,000285: 010440,000286: 43,2214 05650 TC ALARM # OPTICS RESERVED (OPTIND=-0) 010441,000287: 43,2215 00117 OCT 00117 010442,000288: 43,2216 05534 TC ENDEXT 010443,000289: 010444,000290: 43,2217 32237 OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS 010445,000291: 43,2220 04662 TC BANKCALL 010446,000292: 43,2221 20561 CADR GOXDSPF 010447,000293: 43,2222 05534 TC TERMEXTV 010448,000294: 43,2223 02224 TC +1 # PROCEED 010449,000295: 010450,000296: 43,2224 31773 CA SAC 010451,000297: 43,2225 55161 TS DESOPTS 010452,000298: 43,2226 31775 CA PAC 010453,000299: 43,2227 55160 TS DESOPTT 010454,000300: 43,2230 32174 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB 010455,000301: 43,2231 04662 TC BANKCALL 010456,000302: 43,2232 21042 CADR EXDSPRET 010457,000303: 010458,000304: 43,2233 35017 CAF ONE 010459,000305: 43,2234 55303 TS OPTIND # SET COARS WORKING 010460,000306: 010461,000307: 43,2235 05534 TC ENDEXTVB 010462,000308: 43,2236 05534 TC ENDEXTVB 010463,000309: 010464,000310: 43,2237 06134 VNLD0CDU VN 2492 010465,000311: 43,2240 43,2174 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS. 010466,000312: 010467,000313: # Page 243 010468,000314: # IMUFINEK VERB 42 DESCRIPTION 010469,000315: # FINE ALIGN IMU 010470,000316: 010471,000317: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH. 010472,000318: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES.... 010473,000319: # RESPONSES 010474,000320: # A. TERMINATE 010475,000321: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010476,000322: # B. PROCEED OR ENTER 010477,000323: # 1. RE-DISPLAY VERB 42 010478,000324: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING). 010479,000325: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER) 010480,000326: # A. FAILED 010481,000327: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010482,000328: # B. GOOD 010483,000329: # 1. EXECUTE IMUPULSE (TORQUE IRIGS). 010484,000330: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM. 010485,000331: 010486,000332: 43,2240 02271 IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING. 010487,000333: 43,2241 02076 TC TESTXACT 010488,000334: 43,2242 32267 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS 010489,000335: 43,2243 04662 TC BANKCALL 010490,000336: 43,2244 20561 CADR GOXDSPF 010491,000337: 43,2245 05534 TC TERMEXTV 010492,000338: 43,2246 02247 TC +1 # PROCEED WITHOUT A LOAD 010493,000339: 010494,000340: 43,2247 32270 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB 010495,000341: 43,2250 04662 TC BANKCALL 010496,000342: 43,2251 21042 CADR EXDSPRET 010497,000343: 010498,000344: 43,2252 04662 TC BANKCALL # CALL MODE SWITCH PROG 010499,000345: 43,2253 17073 CADR IMUFINE 010500,000346: 010501,000347: 43,2254 04662 TC BANKCALL # HIBERNATION 010502,000348: 43,2255 17577 CADR IMUSTALL 010503,000349: 43,2256 05534 TC ENDEXTVB 010504,000350: 010505,000351: 43,2257 32266 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS 010506,000352: 43,2260 04662 TC BANKCALL 010507,000353: 43,2261 17206 CADR IMUPULSE 010508,000354: 010509,000355: 43,2262 04662 TC BANKCALL # WAIT FOR PULSES TO GET OUT. 010510,000356: 43,2263 17577 CADR IMUSTALL 010511,000357: 43,2264 05534 TC ENDEXTVB 010512,000358: 43,2265 05534 TC ENDEXTVB 010513,000359: 010514,000360: 43,2266 02757 LGYROBIN ECADR OGC 010515,000361: 43,2267 06335 VNLODGYR VN 2593 010516,000362: 43,2270 12400 IMUFINEV VN 4200 # FINE ALIGN VERB 010517,000363: 010518,000364: 43,2271 31322 CKMODCAD CA MODECADR 010519,000365: # Page 244 010520,000366: 43,2272 00006 EXTEND 010521,000367: 43,2273 16711 BZF TCQ 010522,000368: 43,2274 02120 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT 010523,000369: 010524,000370: # GOLOADLV VERB 50 DESCRIPTION 010525,000371: # AND OTHER PLEASE 010526,000372: # DO SOMETHING VERBS 010527,000373: 010528,000374: # PLEASE PERFORM, MARK, CALIBRATE, ETC. 010529,000375: 010530,000376: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE 010531,000377: # SAME RECALL AS A COMPLETED LOAD. 010532,000378: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED. 010533,000379: 010534,000380: 43,2275 04447 GOLOADLV TC FLASHOFF 010535,000381: 43,2276 34215 CAF PINSUPBT 010536,000382: 43,2277 00006 EXTEND 010537,000383: 43,2300 01007 WRITE SUPERBNK # TURN ON FE7 010538,000384: 43,2301 04701 TC POSTJUMP 010539,000385: 43,2302 40,2000 SBANK= PINSUPER 010540,000386: 43,2302 62001 CADR LOADLV1 010541,000387: 010542,000388: # V60 VERB 60 010543,000389: 43,2303 00006 V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL 010544,000390: 43,2304 30033 DCA CDUX # TO PRESENT ATTITUDE 010545,000391: 43,2305 53334 DXCH CPHIX 010546,000392: 43,2306 30034 CA CDUZ 010547,000393: 43,2307 55335 TS CPHIX +2 010548,000394: 43,2310 02121 TC GOPIN 010549,000395: 010550,000396: # V61 VERB 61 010551,000397: 43,2311 05560 V61 TC DOWNFLAG # SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE 010552,000398: 43,2312 00006 ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED 010553,000399: 43,2313 02121 TC GOPIN 010554,000400: 010555,000401: # V62 VERB 62 010556,000402: 43,2314 05546 V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), 010557,000403: 43,2315 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED 010558,000404: 010559,000405: 43,2316 05546 TC UPFLAG # SET N22ORN17 TO 1 (FLAGWRD9,BIT6), 010560,000406: 43,2317 00220 ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22 010561,000407: 43,2320 02121 TC GOPIN 010562,000408: 010563,000409: # V63 VERB 63 010564,000410: 43,2321 05546 V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), 010565,000411: 43,2322 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED 010566,000412: 010567,000413: 43,2323 05560 TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6), 010568,000414: # Page 245 010569,000415: 43,2324 00220 ADRES N22ORN17 # COMPUTE TOAL ASTRONAUT ATTITUDE ERROR 010570,000416: 43,2325 02121 TC GOPIN 010571,000417: 010572,000418: # Page 246 010573,000419: # ALINTIME VERB 55 DESCRIPTION 010574,000420: 010575,000421: # 1. SET EXT VERB DISPLAY BUSY FLAG. 010576,000422: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK. 010577,000423: # 3. REQUIRE EXECUTION OF VERB 23. 010578,000424: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME. 010579,000425: # 5. RELEASE EXT VERB DISPLAY SYSTEM. 010580,000426: 010581,000427: 43,2326 COUNT 04/R33 010582,000428: 010583,000429: 43,2326 02076 ALINTIME TC TESTXACT 010584,000430: 010585,000431: 43,2327 32357 CAF VNLODDT 010586,000432: 43,2330 04662 TC BANKCALL 010587,000433: 43,2331 20561 CADR GOMARKF 010588,000434: 43,2332 05534 TC ENDEXT # TERMINATE 010589,000435: 43,2333 05534 TC ENDEXT # PROCEED 010590,000436: 43,2334 42356 CS DEC23 # DATA IN OR RESEQUENCE (UNLIKELY) 010591,000437: 43,2335 60154 AD MPAC # RECALL LEFT VERB IN MPAC 010592,000438: 43,2336 00006 EXTEND 010593,000439: 43,2337 12341 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL 010594,000440: 43,2340 05534 TC ENDEXT # WITH V23 (DATA IN). 010595,000441: 010596,000442: 43,2341 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1. 010597,000443: 43,2342 35021 CAF ZERO 010598,000444: 43,2343 54156 TS MPAC +2 # NEEDED FOR TP AGREE 010599,000445: 43,2344 54001 TS L # ZERO T1 + 2 WHILE ALIGNING. 010600,000446: 43,2345 52025 DXCH TIME2 010601,000447: 43,2346 52155 DXCH MPAC 010602,000448: 43,2347 53052 DXCH DSPTEM2 +1 # INCREMENT 010603,000449: 43,2350 20155 DAS MPAC 010604,000450: 010605,000451: 43,2351 07226 TC TPAGREE # FORCE SIGN AGREEMENT. 010606,000452: 43,2352 52155 DXCH MPAC # NEW CLOCK. 010607,000453: 43,2353 20025 DAS TIME2 010608,000454: 43,2354 00003 RELINT 010609,000455: 43,2355 05534 UPDTMEND TC ENDEXT 010610,000456: 43,2356 00027 DEC23 DEC 23 B-14 # V 23 010611,000457: 010612,000458: 43,2357 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME 010613,000459: 010614,000460: # Page 247 010615,000461: # SYSTEST VERB 92 DESCRIPTION 010616,000462: # OPERATE SELECTED SYSTEM TEST. 010617,000463: 010618,000464: # 1. REQUIRE P00 OR P00- OR TURN ON OPERATOR ERROR. 010619,000465: # 2. TURN OFF DAP IF IT IS ON. 010620,000466: # 3. DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17). 010621,000467: # 4. UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20. 010622,000468: 010623,000469: # TSELECT 010624,000470: # 1. IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND 010625,000471: # REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE) 010626,000472: 010627,000473: 43,2360 E5,1425 EBANK= QPLACE 010628,000474: 010629,000475: 43,2360 COUNT 04/EXTVB 010630,000476: 010631,000477: 43,2360 02730 SYSTEST TC CHKP00H 010632,000478: 43,2361 30075 CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11) 010633,000479: 43,2362 75004 MASK NOP01BIT 010634,000480: 43,2363 00006 EXTEND 010635,000481: 43,2364 12367 BZF V92CONT # IF IT'S NOT YET SET, CONTINUE 010636,000482: 43,2365 05721 TC P00DOO # IT'S ON. SEND NODO ALARM FOR P07 010637,000483: 43,2366 01521 OCT 1521 010638,000484: 43,2367 02734 V92CONT TC EXDAPOFF # TURN DAP OFF IF IT'S ON 010639,000485: 43,2370 35002 CAF PRIO20 010640,000486: 43,2371 05147 TC FINDVAC 010641,000487: 43,2372 E5,1425 EBANK= QPLACE 010642,000488: 43,2372 30,2000 SBANK= IMUSUPER 010643,000489: 43,2372 02002 66065 2CADR REDO 010644,000490: 010645,000491: 43,2374 02121 TC GOPIN 010646,000492: 010647,000493: # REDO AND TSELECT ARE NOW IN SYSTEM TEST. 010648,000494: 010649,000495: 43,2375 COUNT* $$/EXTVB 010650,000496: # CKOPTVB VERB 65 DESCRIPTION 010651,000497: # OPTICAL VERIFICATION FOR PRELAUNCH. 010652,000498: # 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17. 010653,000499: 010654,000500: 43,2375 05364 CKOPTVB TC CHECKMM 010655,000501: 43,2376 00002 MM 02 B-14 # I WONDER IF PRELAUNCH IS RUNNING 010656,000502: 43,2377 02120 TC ALM/END # NOT RUNNING OPERATOR ERROR 010657,000503: 43,2400 00004 INHINT 010658,000504: 43,2401 35070 CAF PRIO16 # PRELAUNCH OPTICAL VERIFICATION 010659,000505: 43,2402 05147 TC FINDVAC 010660,000506: 43,2403 E5,1425 EBANK= QPLACE 010661,000507: 43,2403 02000 66065 2CADR COMPVER # STANDARD LEADIN TO GCOMPVER. 010662,000508: 010663,000509: 43,2405 02121 TC GOPIN 010664,000510: 010665,000511: # Page 248 010666,000512: # V 78 .... TO CHANGE GYROCOMPASS AZIMUTH 010667,000513: 010668,000514: 43,2406 05364 CHAZFOGC TC CHECKMM # IS IT PRELAUNCH 010669,000515: 43,2407 00002 MM 02 B-14 010670,000516: 43,2410 02120 TC ALM/END # NO -- OPERATOR ERROR 010671,000517: 010672,000518: 43,2411 35070 CAF PRIO16 # PRELAUNCH AZIMUTH CHANGE 010673,000519: 43,2412 05147 TC FINDVAC 010674,000520: 43,2413 E5,1671 EBANK= XSM 010675,000521: 43,2413 03742 66065 2CADR AZMTHCG1 010676,000522: 010677,000523: 43,2415 05412 TC PHASCHNG 010678,000524: 43,2416 00174 OCT 00174 010679,000525: 43,2417 02121 TC GOPIN 010680,000526: # Page 249 010681,000527: # IMUATTCK VERB 43 DESCRIPTION 010682,000528: # LOAD IMU ATTITUDE ERROR METERS 010683,000529: 010684,000530: # 1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF. 010685,000531: # 2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY 010686,000532: # FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN. 010687,000533: # 3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE. 010688,000534: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). 010689,000535: # 5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS 010690,000536: # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. 010691,000537: # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY. 010692,000538: 010693,000539: 43,2420 02730 IMUATTCK TC CHKP00H 010694,000540: 010695,000541: 43,2421 32477 CAF OCTAL30 # SEE IF IMU ZERO AND IMU COARSE ARE ON 010696,000542: 43,2422 00006 EXTEND 010697,000543: 43,2423 02012 RAND CHAN12 010698,000544: 43,2424 10000 CCS A 010699,000545: 43,2425 12120 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON 010700,000546: 010701,000547: 43,2426 02465 TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF 010702,000548: 43,2427 02076 TC TESTXACT # AFTER 010703,000549: 43,2430 45033 CS OCT50 # REMOVE COARSE AND ECTR ENABLE 010704,000550: 43,2431 00006 EXTEND 010705,000551: 43,2432 03012 WAND CHAN12 010706,000552: 010707,000553: 43,2433 32173 CAF VNLODCDU 010708,000554: 43,2434 04662 TC BANKCALL 010709,000555: 43,2435 20561 CADR GOXDSPF 010710,000556: 43,2436 12452 TCF TRMATTCK 010711,000557: 43,2437 02440 TC +1 010712,000558: 43,2440 35057 CAF EBANK6 010713,000559: 43,2441 54003 TS EBANK # SET E6 FOR NEEDLES. 010714,000560: 010715,000561: 43,2442 E6,1476 EBANK= AK 010716,000562: 010717,000563: 43,2442 04662 TC BANKCALL # INITIALIZE CURRENT DAC AND 010718,000564: 43,2443 42443 CADR NEEDLE11 # COMMAND VALUES. 010719,000565: 010720,000566: 43,2444 04662 TC BANKCALL # ENABLE ERROR COUNTERS. 010721,000567: 43,2445 42462 CADR NEEDLER2 010722,000568: 010723,000569: 43,2446 35016 CAF TWO # 4 MS MIN. 010724,000570: 43,2447 05245 TC WAITLIST 010725,000571: 43,2450 E6,1476 EBANK= AK 010726,000572: 43,2450 02455 66106 2CADR ATTCK1 010727,000573: 010728,000574: 43,2452 02465 TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF 010729,000575: 43,2453 15534 TCF ENDEXT # AFTER 010730,000576: 43,2454 02121 TC GOPIN 010731,000577: # Page 250 010732,000578: 43,2455 00006 ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REQS. 010733,000579: 43,2456 31156 DCA THETAD 010734,000580: 43,2457 53477 DXCH AK 010735,000581: 43,2460 31157 CAE THETAD +2 010736,000582: 43,2461 55500 TS AK +2 010737,000583: 010738,000584: 43,2462 04740 TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES 010739,000585: 43,2463 42476 CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED. 010740,000586: 010741,000587: 43,2464 05324 TC TASKOVER 010742,000588: 010743,000589: 43,2465 35013 CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED 010744,000590: 43,2466 70101 MASK FLAGWRD5 010745,000591: 43,2467 10000 CCS A 010746,000592: 43,2470 00002 TC Q # YES 010747,000593: 43,2471 35013 CAF BIT5 010748,000594: 43,2472 00006 EXTEND 010749,000595: 43,2473 02030 RAND CHAN30 010750,000596: 43,2474 10000 CCS A 010751,000597: 43,2475 16706 TCF Q+1 010752,000598: 43,2476 00002 XACT0Q TC Q # YES 010753,000599: 010754,000600: 43,2477 00030 OCTAL30 OCT 30 010755,000601: 43,2500 02730 VB64 TC CHKP00H # DEMAND PROGRAM 00. 010756,000602: 43,2501 02076 TC TESTXACT # IF DISPLAY SYS. NOT BUSY, MAKE IT BUSY. 010757,000603: 43,2502 00004 INHINT 010758,000604: 43,2503 35004 CAF PRIO4 010759,000605: 43,2504 05147 TC FINDVAC 010760,000606: 43,2505 E4,1720 EBANK= RHOSB 010761,000607: 43,2505 03652 64104 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES. 010762,000608: 010763,000609: 43,2507 05217 TC ENDOFJOB 010764,000610: 010765,000611: # ENATMA VERB 58 DESCRIPTION 010766,000612: # ENABLE AUTOMATIC ATTITUDE MANEUVER 010767,000613: 010768,000614: # VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC 010769,000615: # ACTIVITY. 010770,000616: 010771,000617: 43,2510 05560 ENATMA TC DOWNFLAG # RESET STIKFLAG. 010772,000618: 43,2511 00020 ADRES STIKFLAG # BIT 14 FLAG 1 010773,000619: 43,2512 02121 TC GOPIN 010774,000620: 010775,000621: # Page 251 010776,000622: # STROKON VERB 68 DESCRIPTION 010777,000623: # STROKE TEST SETUP/ENABLE 010778,000624: # 1. SET EXT VERB DISPLAY BUSY FLAG 010779,000625: # 2. SCHEDULE STRKTST1 WITH PRIORITY 30. 010780,000626: # 3. RELEASE EXT VERB DISPLAY. 010781,000627: 010782,000628: 43,2513 E6,1625 EBANK= T5TVCDT 010783,000629: 43,2513 40102 STROKON CS FLAGWRD6 # V68 PERMITTED ONLY DURING TVC 010784,000630: 43,2514 74105 MASK OCT60000 010785,000631: 43,2515 00006 EXTEND 010786,000632: 43,2516 62120 BZMF ALM/END # NOT TVC....FLASH OP ERROR LIGHT 010787,000633: 43,2517 34371 CAF PRIO30 # JOB REQUEST, TO SET UP STROKE TEST, 010788,000634: 43,2520 05134 TC NOVAC # INCLUDING INITIALIZATIONS 010789,000635: 43,2521 40,2000 SBANK= PINSUPER # Added RSB 2009. 010790,000636: 43,2521 E6,1574 EBANK= STROKER 010791,000637: 43,2521 03501 40106 2CADR STRKTSTI 010792,000638: 010793,000639: 43,2523 02121 TC GOPIN 010794,000640: 010795,000641: # STABLISH VERB 46 DESCRIPTION 010796,000642: # ESTABLISH G AND N AUTOPILOT CONTROL 010797,000643: # 1. SETS UP EITHER RCS, ENTRY, OR SATURN 010798,000644: # 2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER 010799,000645: # FROM HIGH BW TO LOW BW 010800,000646: 010801,000647: 010802,000648: 43,2524 35057 STABLISH CAF EBANK6 # V46 - SET EBANK TO E6 010803,000649: 43,2525 54003 TS EBANK 010804,000650: 010805,000651: 43,2526 40102 CS FLAGWRD6 # TEST FOR TVC 010806,000652: 43,2527 74105 MASK OCT60000 010807,000653: 43,2530 00006 EXTEND 010808,000654: 43,2531 62541 BZMF +8 010809,000655: 010810,000656: 43,2532 31466 CAE DAPDATR1 # TET FOR CSM/LM 010811,000657: 43,2533 75002 MASK BIT14 010812,000658: 43,2534 00006 EXTEND 010813,000659: 43,2535 62540 BZMF +3 010814,000660: 010815,000661: 43,2536 04701 TC POSTJUMP # CSM/LM, SO PERFORM HB TO LB SWITCH-OVER 010816,000662: 43,2537 36351 CADR PRESWTCH 010817,000663: 010818,000664: 43,2540 02120 +3 TC ALM/END 010819,000665: 010820,000666: 43,2541 04701 +8 TC POSTJUMP # SET UP RCS, ENTRY, OR SATURN-STICK DAP 010821,000667: 43,2542 65606 CADR DAPFIG 010822,000668: # Page 252 010823,000669: # CREMANU VERB 49 DESCRIPTION 010824,000670: # START AUTOMATIC ATTITUDE MANEUVER 010825,000671: 010826,000672: # 1. REQUIRE PROGRAM 00 ACTIVE. 010827,000673: # 2. SET EXT VERB DISPLAY BUSY FLAG. 010828,000674: # 3. SCHEDULE R62DISP WITH PRIORITY 10. 010829,000675: # 4. RELEASE EXT VERB DISPLAY. 010830,000676: 010831,000677: # R62DISP 010832,000678: # 1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP 010833,000679: # 4 FOR RESTART OF DISPLAY SEQUENCE. 010834,000680: # RESPONSES 010835,000681: # A. TERMINATE 010836,000682: # 1. GOTOP00H 010837,000683: # B. PROCEED 010838,000684: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS. 010839,000685: # 2. EXECUTE R60CSM (ATTITUDE MANEUVER). 010840,000686: # 3. ZERO GROUP 4 (END R62). 010841,000687: # C. ENTER 010842,000688: # 1. REPEAT FLASHING V06,N22. 010843,000689: 010844,000690: 43,2543 02730 CREWMANU TC CHKP00H # DEMAND P00 010845,000691: 010846,000692: 43,2544 02076 TC TESTXACT 010847,000693: 010848,000694: 43,2545 35003 CAF PRIO10 010849,000695: 43,2546 05147 TC FINDVAC 010850,000696: 43,2547 1155 EBANK= CPHI 010851,000697: 43,2547 02330 56102 2CADR R62DISP 010852,000698: 010853,000699: 43,2551 05217 TC ENDOFJOB 010854,000700: 010855,000701: # Page 253 010856,000702: # DAPDISP VERB 48 DESCRIPTION 010857,000703: # LOAD AUTOPILOT DATA (ROUTINE R03) 010858,000704: 010859,000705: # 0. CHECKFAIL AND RETURN IF TVC. 010860,000706: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG. 010861,000707: # 2. LOWER PRIORITY TO 10. 010862,000708: # 3. DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION). 010863,000709: # 4. UPON PROCEED RESPONSE, EXECUTE S41.2. 010864,000710: # 5. DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.) 010865,000711: # 6. UPON PROCEED RESPONSE EXECUTE S40.14. 010866,000712: # 7. DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM) 010867,000713: # 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM. 010868,000714: 010869,000715: 43,2552 COUNT* $$/EXTVB 010870,000716: 010871,000717: 43,2552 40102 DAPDISP CS FLAGWRD6 010872,000718: 43,2553 74105 MASK OCT60000 010873,000719: 43,2554 00006 EXTEND 010874,000720: 43,2555 62557 BZMF +2 # TVC = 10, CS YIELDS 01, BZMF TO CONTINUE 010875,000721: 43,2556 02120 TC ALM/END # RETURN IF TVC 010876,000722: 010877,000723: 43,2557 02076 TC TESTXACT 010878,000724: 43,2560 04662 TC BANKCALL 010879,000725: 43,2561 64000 CADR DAPDISP1 010880,000726: 42,2000 BANK 42 010881,000727: 42,2000 SETLOC EXTVBS 010882,000728: 42,2000 BANK 010883,000729: 42,2000 COUNT 24/R03 010884,000730: 010885,000731: 42,2000 35057 DAPDISP1 CAF EBANK6 010886,000732: 42,2001 54003 TS EBANK 010887,000733: 010888,000734: 42,2002 35003 CAF PRIO10 010889,000735: 42,2003 05210 TC PRIOCHNG 010890,000736: 010891,000737: 42,2004 32061 DONOUN46 CAF V04N46 # R1 R2 010892,000738: 42,2005 04662 TC BANKCALL # DAPDATR1 DAPDATR2 010893,000739: 42,2006 20561 CADR GOXDSPF # GOXDSP ROUTINES USED FOR EXTENDED VERBS. 010894,000740: 010895,000741: 42,2007 05534 TC ENDEXT # EXT. VBS GO TO ENDEXT, NOT ENDOFJOB. 010896,000742: 42,2010 02012 TC +2 010897,000743: 42,2011 02004 TC DONOUN46 010898,000744: 010899,000745: 42,2012 31466 CA DAPDATR1 010900,000746: 42,2013 75014 MASK BIT4 010901,000747: 42,2014 10000 CCS A 010902,000748: 42,2015 12054 TCF MAXIN 010903,000749: 42,2016 05560 TC DOWNFLAG 010904,000750: 42,2017 00212 ADRES MAXDBFLG 010905,000751: 42,2020 04662 MAXOUT TC BANKCALL 010906,000752: 42,2021 40347 CADR S41.2 010907,000753: 010908,000754: 42,2022 32060 DONOUN47 CAF V06N47 # R1 R2 R3 010909,000755: # Page 254 010910,000756: 42,2023 04662 TC BANKCALL # CSM WGT. LEM WGT. BLANK 010911,000757: 42,2024 20561 CADR GOXDSPF 010912,000758: 010913,000759: 42,2025 05534 TC ENDEXT 010914,000760: 42,2026 02030 TC +2 010915,000761: 42,2027 02022 TC DONOUN47 010916,000762: 42,2030 31466 CAE DAPDATR1 # DO MASS PROPERTIES CALCULATION ONLY IF 010917,000763: 42,2031 74371 MASK PRIO30 # CONFIG = 1(CSM), 2 (CSM/LM), 6(CSM/LMA) 010918,000764: 42,2032 00006 EXTEND 010919,000765: 42,2033 12046 BZF DONOUN48 # SKIP IF 0,4 010920,000766: 42,2034 40000 COM 010921,000767: 42,2035 74371 MASK PRIO30 010922,000768: 42,2036 00006 EXTEND 010923,000769: 42,2037 12046 BZF DONOUN48 # SKIP IF 3,7 010924,000770: 42,2040 00004 INHINT 010925,000771: 42,2041 04740 TC IBNKCALL 010926,000772: 42,2042 13366 CADR MASSPROP # UPDATE IXX, IAVG, IAVG/TLX 010927,000773: 010928,000774: 42,2043 00003 RELINT 010929,000775: 42,2044 04662 TC BANKCALL 010930,000776: 42,2045 40500 CADR S40.14 # COMPUTE RCS DAP STUFF 010931,000777: 010932,000778: 42,2046 32057 DONOUN48 CAF V0648 # R1 R2 R3 010933,000779: 42,2047 04662 TC BANKCALL # PTRIM YTRIM BLANK 010934,000780: 42,2050 20561 CADR GOXDSPF 010935,000781: 010936,000782: 42,2051 05534 TC ENDEXT 010937,000783: 42,2052 05534 TC ENDEXT 010938,000784: 42,2053 02046 TC DONOUN48 010939,000785: 010940,000786: 42,2054 05546 MAXIN TC UPFLAG 010941,000787: 42,2055 00212 ADRES MAXDBFLG 010942,000788: 42,2056 02020 TC MAXOUT 010943,000789: 010944,000790: 42,2057 01460 V0648 VN 0648 010945,000791: 42,2060 01457 V06N47 VN 0647 010946,000792: 42,2061 01056 V04N46 VN 0446 010947,000793: 43,2562 BANK 43 010948,000794: 43,2000 SETLOC EXTVERBS 010949,000795: 43,2000 BANK 010950,000796: 010951,000797: 43,2562 COUNT* $$/EXTVB 010952,000798: 010953,000799: # V82PERF VERB82 DESCRIPTION 010954,000800: # REQUEST ORBIT PARAMETERS DISPLAY (R30) 010955,000801: 010956,000802: # 1. IF AVERAGE G IS OFF: 010957,000803: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS 010958,000804: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT 010959,000805: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ I. 010960,000806: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC). 010961,000807: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE 010962,000808: # Page 255 010963,000809: # RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE 010964,000810: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE 010965,000811: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 010966,000812: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE). 010967,000813: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS 010968,000814: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND. 010969,000815: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E. 010970,000816: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS 010971,000817: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S. 010972,000818: 010973,000819: # 2. IF AVERAGE G IS ON: 010974,000820: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS 010975,000821: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS 010976,000822: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF. 010977,000823: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). 010978,000824: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR 010979,000825: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS. 010980,000826: 010981,000827: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE 010982,000828: # ABOVE REMARKS. 010983,000829: 010984,000830: 43,2562 02076 V82PERF TC TESTXACT 010985,000831: 010986,000832: 43,2563 35063 CAF PRIO7 010987,000833: 43,2564 05210 TC PRIOCHNG 010988,000834: 43,2565 04701 TC POSTJUMP 010989,000835: 43,2566 46332 CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB. 010990,000836: 010991,000837: # VB83PERF VERB 83 DESCRIPTION 010992,000838: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31) 010993,000839: 010994,000840: # 1. SET EXT VERB DISPLAY BUSY FLAG. 010995,000841: # 2. SCHEDULE V83CALL WITH PRIORITY 10. 010996,000842: # A. DISPLAY 010997,000843: # R1 RANGE 010998,000844: # R2 RANGE RATE 010999,000845: # R3 THETA 011000,000846: 011001,000847: 43,2567 02076 V83PERF TC TESTXACT 011002,000848: 43,2570 00004 INHINT 011003,000849: 43,2571 40105 CS FLAGWRD9 # SET R31 FLAG-BIT 4 FLAGWRD9 011004,000850: 43,2572 75014 MASK R31FLBIT 011005,000851: 43,2573 26105 ADS FLAGWRD9 011006,000852: 43,2574 35061 CAF PRIO5 011007,000853: 43,2575 05134 TC NOVAC 011008,000854: 43,2576 30,2000 SBANK= LOWSUPER # Added by RSB 2009 011009,000855: 43,2576 E4,1770 EBANK= SUBEXIT 011010,000856: 43,2576 02000 62064 2CADR R31CALL 011011,000857: 011012,000858: 43,2600 05217 TC ENDOFJOB 011013,000859: 011014,000860: # Page 256 011015,000861: 43,2601 02076 V85PERF TC TESTXACT 011016,000862: 43,2602 00004 INHINT 011017,000863: 43,2603 45014 CS R31FLBIT # RESET R31 FLAG TO INDICATE R34 011018,000864: 43,2604 70105 MASK FLAGWRD9 011019,000865: 43,2605 54105 TS FLAGWRD9 011020,000866: 43,2606 02574 TC V83PERF +5 011021,000867: # Page 257 011022,000868: # GOTOR21 VERB 57 011023,000869: # GOTOR23- VERB 54 DESCRIPTION 011024,000870: # SET UP MARKING FOR R22 (REND TRACK DATA PROC) 011025,000871: # 1. SET EXT VERB DISPLAY BUSY FLAG 011026,000872: # 2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET, 011027,000873: # SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406 011028,000874: # 3. RELEASE EXT VERB DISPLAY SYSTEM 011029,000875: 011030,000876: 43,2607 05560 GOTOR21 TC DOWNFLAG # CLEAR R23FLG 011031,000877: 43,2610 00025 ADRES R23FLG # BIT 9 FLAG 1 011032,000878: 43,2611 02614 TC +3 011033,000879: 43,2612 05546 GOTOR23 TC UPFLAG # SET R23FLG 011034,000880: 43,2613 00025 ADRES R23FLG # BIT 9 FLAG 1 011035,000881: 43,2614 02076 TC TESTXACT 011036,000882: 43,2615 30074 CA FLAGWRD0 # VB 57 UNACCEPTABLE UNLESS BOTH 011037,000883: 43,2616 75011 MASK RNDVZBIT # RENDEZVOUS AND TRACK FLAGS ON 011038,000884: 43,2617 00006 EXTEND 011039,000885: 43,2620 12643 BZF R22ALARM 011040,000886: 011041,000887: 43,2621 30075 CA FLAGWRD1 011042,000888: 43,2622 75013 MASK TRACKBIT 011043,000889: 43,2623 00006 EXTEND 011044,000890: 43,2624 12643 BZF R22ALARM 011045,000891: 011046,000892: 43,2625 30075 CA FLAGWRD1 # TEST R23FLG 011047,000893: 43,2626 75007 MASK R23BIT 011048,000894: 43,2627 00006 EXTEND 011049,000895: 43,2630 12636 BZF REGR21 # R21 011050,000896: 43,2631 35070 CAF PRIO16 011051,000897: 43,2632 05134 TC NOVAC 011052,000898: 43,2633 E7,1725 EBANK= MRKBUF1 011053,000899: 43,2633 02470 76067 2CADR R23CSM 011054,000900: 011055,000901: 43,2635 05217 TC ENDOFJOB 011056,000902: 43,2636 35070 REGR21 CAF PRIO16 011057,000903: 43,2637 05134 TC NOVAC 011058,000904: 43,2640 E7,1725 EBANK= MRKBUF1 011059,000905: 43,2640 02466 76067 2CADR R21CSM 011060,000906: 011061,000907: 43,2642 05217 TC ENDOFJOB 011062,000908: 43,2643 05650 R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND 011063,000909: 43,2644 00406 OCT 00406 # NOR TRACK FLAG WERE ON. 011064,000910: 43,2645 05534 TC ENDEXT 011065,000911: 011066,000912: # Page 258 011067,000913: # VERB 86 DESCRIPTION 011068,000914: # V86 IS TO R23 AS MARK REJECT IS TO R21 011069,000915: # V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE) 011070,000916: 011071,000917: 43,2646 E7,1725 EBANK= MRKBUF1 011072,000918: 43,2646 35060 V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23) 011073,000919: 43,2647 56003 XCH EBANK 011074,000920: 43,2650 37716 CA NEGONE 011075,000921: 43,2651 55725 TS MRKBUF1 011076,000922: 43,2652 02121 TC GOPIN 011077,000923: 011078,000924: # Page 259 011079,000925: # TRACKTRM VERB 56 DESCRIPTION 011080,000926: # TERMINATE TRACKING (P20) 011081,000927: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS. 011082,000928: # 2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOP00H (REQUEST PROGRAM 00). 011083,000929: # 3. REQUIRE R22 RUNNING OR GO TO PINBRNCH. 011084,000930: # 4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22 011085,000931: # 3. KNOCK DOWN RENDEZFOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS. 011086,000932: # 4. GO TO ENEMA (SOFTWARE RESTART). 011087,000933: # REFERENCE 011088,000934: # P20 RENDEZVOUS NAVIGATION 011089,000935: # R21 RENDEZVOUS TRACKING SIGHTING MARK. 011090,000936: # R22 RENDEZVOUS TRACKING DATA PROCESSING. 011091,000937: 011092,000938: 43,2653 35011 TRACKTRM CA RNDVZBIT # IS REND FLAG ON 011093,000939: 43,2654 70074 MASK FLAGWRD0 011094,000940: 43,2655 00006 EXTEND 011095,000941: 43,2656 12121 BZF GOPIN # NO 011096,000942: 011097,000943: 43,2657 05560 TC DOWNFLAG 011098,000944: 43,2660 00010 ADRES RNDVZFLG 011099,000945: 011100,000946: 43,2661 35013 CA TRACKBIT # IS TRACK FLAG ON 011101,000947: 43,2662 70075 MASK FLAGWRD1 011102,000948: 43,2663 00006 EXTEND 011103,000949: 43,2664 12121 BZF GOPIN # NO 011104,000950: 011105,000951: 43,2665 05560 TC DOWNFLAG 011106,000952: 43,2666 00031 ADRES TRACKFLG 011107,000953: 011108,000954: 43,2667 05560 TC DOWNFLAG 011109,000955: 43,2670 00027 ADRES UPDATFLG 011110,000956: 011111,000957: 43,2671 05560 TC DOWNFLAG 011112,000958: 43,2672 00007 ADRES IMUSE 011113,000959: 011114,000960: 43,2673 35057 CAF EBANK6 011115,000961: 43,2674 54003 TS EBANK 011116,000962: 011117,000963: 43,2675 00004 INHINT 011118,000964: 43,2676 04526 TC STOPRATE 011119,000965: 011120,000966: 43,2677 37716 CAF NEGONE 011121,000967: 43,2700 55303 TS OPTIND 011122,000968: 011123,000969: 43,2701 06006 TC INTPRET 011124,000970: 43,2702 77624 CALL 011125,000971: 43,2703 27442 INTSTALL # DON'T INTERRUPT INTEGRATION 011126,000972: 43,2704 77776 EXIT 011127,000973: 011128,000974: 43,2705 05372 TC 2PHSCHNG 011129,000975: # Page 260 011130,000976: 43,2706 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY 011131,000977: 43,2707 00001 OCT 1 # ALSO KILL GROUP 1 011132,000978: 011133,000979: 43,2710 00004 CLEANOUT INHINT 011134,000980: 43,2711 04701 TC POSTJUMP 011135,000981: 43,2712 12651 CADR ENEMA # CAUSE RESTART 011136,000982: 011137,000983: # LEMVEC VERB 80 DESCRIPTION 011138,000984: # UPDATE LEM STATE VECTOR 011139,000985: # RESET VEHUPFLG TO 0 011140,000986: 011141,000987: 43,2713 05560 LEMVEC TC DOWNFLAG 011142,000988: 43,2714 00026 ADRES VEHUPFLG # VEHUPFLG DOWN INDICATES LEM 011143,000989: 011144,000990: 43,2715 12121 TCF GOPIN 011145,000991: 011146,000992: # CSMVEC VERB 81 DESCRIPTION 011147,000993: # UPDATE CSM STATE VECTOR 011148,000994: # SET VEHUPFLG TO 1 011149,000995: 011150,000996: 43,2716 05546 CSMVEC TC UPFLAG 011151,000997: 43,2717 00026 ADRES VEHUPFLG # VEHUPFLG UP INDICATES CM 011152,000998: 011153,000999: 43,2720 12121 TCF GOPIN 011154,001000: 011155,001001: # DNEDUMP VERB 74 DESCRIPTION 011156,001002: # INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP. 011157,001003: 011158,001004: # 1. SET EXT VERB DISPLAY BUSY FLAG. 011159,001005: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY. 011160,001006: # 3. RELEASE EXT VERB DISPLAY. 011161,001007: 011162,001008: 43,2721 0010 EBANK= 10 011163,001009: 43,2721 32724 DNEDUMP CAF LDNDUMPI 011164,001010: 43,2722 54335 TS DNTMGOTO 011165,001011: 43,2723 02121 TC GOPIN 011166,001012: 011167,001013: 43,2724 43,2721 V74 EQUALS DNEDUMP 011168,001014: 43,2724 03722 LDNDUMPI REMADR DNDUMPI 011169,001015: 011170,001016: # LFTFLGON VERB 75 DESCRIPTION 011171,001017: # SET LIFT-OFF FLAG 011172,001018: # 1. SETUP GRRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG. 011173,001019: # 2. RETURN VIA PINBRNCH 011174,001020: 011175,001021: 43,2725 05546 LFTFLGON TC UPFLAG # VB 75 -- SET LIFTOFF FLAG BIT 011176,001022: 43,2726 00125 ADRES GRRBKFLG # BIT 5 FLAG 5 011177,001023: 43,2727 02121 TC GOPIN 011178,001024: 011179,001025: # Page 261 011180,001026: 43,2730 31011 CHKP00H CA MODREG 011181,001027: 43,2731 00006 EXTEND 011182,001028: 43,2732 16711 BZF TCQ 011183,001029: 43,2733 12120 TCF ALM/END 011184,001030: 011185,001031: 43,2734 00006 EXDAPOFF EXTEND 011186,001032: 43,2735 32744 DCA IDLECADR # SET T5 TO IDLE. 011187,001033: 43,2736 53313 DXCH T5LOC 011188,001034: 43,2737 44105 CS OCT60000 011189,001035: 43,2740 70102 MASK FLAGWRD6 # RESET DAPBITS 1 AND 2. 011190,001036: 43,2741 54102 TS FLAGWRD6 011191,001037: 43,2742 00002 TC Q 011192,001038: 011193,001039: 43,2743 40,2000 SBANK= PINSUPER # Added RSB 2009 011194,001040: 43,2743 E6,1423 EBANK= PACTOFF 011195,001041: 43,2743 03153 12106 IDLECADR 2CADR T5IDLOC 011196,001042: 011197,001043: # Page 262 011198,001044: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63) 011199,001045: # 011200,001046: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND 011201,001047: # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS 011202,001048: # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM. 011203,001049: 011204,001050: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND 011205,001051: # EXIT R63, OTHERWISE CONTINUE. 011206,001052: 011207,001053: # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS 011208,001054: # ORIENTATION KNOWN TO CGC, CONTINUE. 011209,001055: 011210,001056: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO 011211,001057: # BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS (R2=1). 011212,001058: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE 011213,001059: # AFTER KEYING IN PROCEED. 011214,001060: 011215,001061: # 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG 011216,001062: # FOR PREFERRED AXIS. RESET FLAG FOR X AXIS. 011217,001063: 011218,001064: # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED 011219,001065: 011220,001066: # R63COMP JOB: 011221,001067: 011222,001068: # UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS. 011223,001069: 011224,001070: # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM. 011225,001071: 011226,001072: # DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG 011227,001073: # ARE STORED FOR LATER R60CSM CALL. 011228,001074: 011229,001075: # 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE. 011230,001076: 011231,001077: # 7. RECYCLE: RETURN TO STEP 5. 011232,001078: # TERMINATE: EXIT R63 ROUTINE 011233,001079: # PROCEED: RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER. 011234,001080: 011235,001081: 43,2745 02730 V89PERF TC CHKP00H # DEMAND P00 011236,001082: 43,2746 02076 TC TESTXACT 011237,001083: 43,2747 00004 INHINT 011238,001084: 43,2750 35003 CAF PRIO10 011239,001085: 43,2751 05147 TC FINDVAC 011240,001086: 43,2752 30,2000 SBANK= LOWSUPER # Added by RSB 2009. 011241,001087: 43,2752 E4,1715 EBANK= P21TIME 011242,001088: 43,2752 03712 70064 2CADR V89CALL 011243,001089: 011244,001090: 43,2754 15217 TCF ENDOFJOB 011245,001091: 011246,001092: 43,2755 05560 WMATRXNG TC DOWNFLAG # RESET RENDWFLAG 011247,001093: 43,2756 00131 ADRES RENDWFLG 011248,001094: # Page 263 011249,001095: 011250,001096: 43,2757 05560 TC DOWNFLAG # RESET ORBWFLAG 011251,001097: 43,2760 00066 ADRES ORBWFLAG 011252,001098: 43,2761 02121 TC GOPIN 011253,001099: 011254,001100: 43,2762 43,2762 GOSHOSUM EQUALS SHOWSUM 011255,001101: 011256,001102: 43,2762 02730 SHOWSUM TC CHKP00H 011257,001103: 43,2763 02076 TC TESTXACT # * 011258,001104: 43,2764 35017 CAF S+1 # * 011259,001105: 43,2765 55376 TS SKEEP6 # * SHOWSUM OPTION 011260,001106: 43,2766 35021 CAF S+ZERO # * 011261,001107: 43,2767 55362 TS SMODE # * TURN OFF SELF-CHECK 011262,001108: 43,2770 33247 CA SELFADRS # * 011263,001109: 43,2771 55361 TS SELFRET # * 011264,001110: 43,2772 03524 TC STSHOSUM # * ENTER ROPECHK 011265,001111: 011266,001112: 43,2773 23372 SDISPLAY LXCH SKEEP2 # * BNK NO FOR DSP 011267,001113: 43,2774 23373 LXCH SKEEP3 # * BUGGER WORD FOR DSP 011268,001114: 43,2775 33246 NOKILL CA ADRS1 # * 011269,001115: 43,2776 54156 TS MPAC +2 # * 011270,001116: 43,2777 33010 CA VNCON # * 0501 011271,001117: 43,3000 04662 TC BANKCALL # * 011272,001118: 43,3001 20561 CADR GOXDSPF # * 011273,001119: 43,3002 03005 TC +3 # * 011274,001120: 43,3003 03635 TC NXTBNK # * 011275,001121: 43,3004 02775 TC NOKILL # * 011276,001122: 43,3005 33247 CA SELFADRS 011277,001123: 43,3006 55371 TS SKEEP1 011278,001124: 011279,001125: 43,3007 05534 TC ENDEXT # * 011280,001126: 011281,001127: 43,3010 01201 VNCON VN 501 # * 011282,001128: 011283,001129: 43,3011 31376 ENDSUMS CA SKEEP6 # * 011284,001130: 43,3012 00006 EXTEND # * 011285,001131: 43,3013 13340 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN. 011286,001132: 43,3014 03524 TC STSHOSUM # * START SHOWSUM AGAIN. 011287,001133: 011288,001134: 011289,001135: # VB 76 --- SET PREFERRED ATTITUDE FLAG --- DRIVE TO PREFERRED. 011290,001136: 011291,001137: 43,3015 05546 SETPRFLG TC UPFLAG 011292,001138: 43,3016 00120 ADRES PRFTRKAT # BIT 10 FLAG 5 011293,001139: 43,3017 02121 TC GOPIN 011294,001140: 011295,001141: # VB 77 --- RESET PREFERRED ATTITUDE FLAG --- DRIVE TO +X-AXIS ATT. 011296,001142: 011297,001143: 43,3020 05560 RESETPRF TC DOWNFLAG 011298,001144: 43,3021 00120 ADRES PRFTRKAT # BIT 10 FLAG 5 011299,001145: 43,3022 02121 TC GOPIN 011300,001146: 011301,001147: # Page 264 011302,001148: # VB 87 --- SET VHF RANGE FLAG --- ALLOWS R22 TO ACCEPT RANGE DATA. 011303,001149: 011304,001150: 43,3023 06006 SETVHFLG TC INTPRET 011305,001151: 43,3024 77414 SET EXIT 011306,001152: 43,3025 04466 VHFRFLAG 011307,001153: 43,3026 02121 TC GOPIN 011308,001154: 011309,001155: # VB 88 --- RESET VHF RANGE FLAG --- STOPS ACCEPTANCE OF RANGE DATA. 011310,001156: 011311,001157: 43,3027 06006 RESETVHF TC INTPRET 011312,001158: 43,3030 77414 CLEAR EXIT 011313,001159: 43,3031 04666 VHFRFLAG 011314,001160: 43,3032 05631 TC TRFAILOF # TRACKER FAIL LIGHT 011315,001161: 011316,001162: 43,3033 02121 TC GOPIN 011317,001163: 011318,001164: # VERB 66. VEHICLES ARE ATTACHED. --- MOVE THIS VEHICLE STATE VECTOR TO 011319,001165: # OTHER VEHICLE STATE VECTOR. 011320,001166: 011321,001167: # USE SUBROUTINE GENTRAN. 011322,001168: 011323,001169: 43,3034 E3,1554 EBANK= RRECTHIS 011324,001170: 43,3034 35003 ATTACHED CAF PRIO10 011325,001171: 43,3035 05147 TC FINDVAC 011326,001172: 43,3036 E3,1554 EBANK= RRECTHIS 011327,001173: 43,3036 03041 66103 2CADR ATTACHIT 011328,001174: 011329,001175: 43,3040 05217 TC ENDOFJOB 011330,001176: 011331,001177: 43,3041 06006 ATTACHIT TC INTPRET 011332,001178: 43,3042 77624 CALL 011333,001179: 43,3043 27442 INTSTALL 011334,001180: 43,3044 43014 SET BON 011335,001181: 43,3045 04064 MOONOTH 011336,001182: 43,3046 04303 MOONTHIS 011337,001183: 43,3047 67052 +3 011338,001184: 43,3050 77614 CLEAR 011339,001185: 43,3051 04264 MOONOTH 011340,001186: 43,3052 77776 EXIT 011341,001187: 43,3053 33100 CAF OCT51 011342,001188: 43,3054 05606 TC GENTRAN 011343,001189: 43,3055 01554 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN 011344,001190: 43,3056 01626 ADRES RRECTOTH 011345,001191: 011346,001192: 43,3057 00003 TACHEXIT RELINT 011347,001193: 43,3060 06006 TC INTPRET 011348,001194: 43,3061 77624 CALL # UPDATE RN, VN, R-OTHER, V-OTHER 011349,001195: 43,3062 26731 PTOACSM 011350,001196: # Page 265 011351,001197: 43,3063 45154 LXA,2 CALL 011352,001198: 43,3064 02150 PBODY 011353,001199: 43,3065 20237 SVDWN1 011354,001200: 43,3066 77624 CALL 011355,001201: 43,3067 20263 SVDWN2 011356,001202: 43,3070 77776 EXIT 011357,001203: 011358,001204: 43,3071 33101 CAF TCPINAD 011359,001205: 43,3072 50120 INDEX FIXLOC 011360,001206: 43,3073 54052 TS QPRET 011361,001207: 43,3074 04701 TC POSTJUMP 011362,001208: 43,3075 27457 CADR INTWAKE 011363,001209: 011364,001210: 43,3076 77634 TCPIN RTB 011365,001211: 43,3077 21272 PINBRNCH 011366,001212: 011367,001213: 43,3100 00051 OCT51 OCT 51 011368,001214: 43,3101 67076 TCPINAD CADR TCPIN 011369,001215: 011370,001216: # VERB 47. MOVE LM STATE VECTOR INTO CSM STATE VECTOR 011371,001217: 011372,001218: 43,3102 35003 LMTOCMSV CAF PRIO10 011373,001219: 43,3103 05147 TC FINDVAC 011374,001220: 43,3104 E3,1554 EBANK= RRECTHIS 011375,001221: 43,3104 03107 66103 2CADR LMTOCM 011376,001222: 011377,001223: 43,3106 05217 TC ENDOFJOB 011378,001224: 011379,001225: 43,3107 06006 LMTOCM TC INTPRET 011380,001226: 43,3110 77624 CALL 011381,001227: 43,3111 27442 INTSTALL 011382,001228: 43,3112 43014 SET BON 011383,001229: 43,3113 04063 MOONTHIS 011384,001230: 43,3114 04304 MOONOTH 011385,001231: 43,3115 67120 +3 011386,001232: 43,3116 77614 CLEAR 011387,001233: 43,3117 04263 MOONTHIS 011388,001234: 43,3120 77776 EXIT 011389,001235: 011390,001236: 43,3121 33100 CAF OCT51 011391,001237: 43,3122 05606 TC GENTRAN 011392,001238: 43,3123 01626 ADRES RRECTOTH # LM STATE VECTOR INTO CM VIA GENTRAN 011393,001239: 43,3124 01554 ADRES RRECTHIS 011394,001240: 011395,001241: 43,3125 13057 TCF TACHEXIT 011396,001242: 011397,001243: # VERB 94 --- DO R64 VIA ENEMA TO PICK UP IN P23. 011398,001244: 011399,001245: 43,3126 35005 VERB94 CAF V94FLBIT 011400,001246: 43,3127 70105 MASK FLAGWRD9 # IS V94FLAG SET 011401,001247: # Page 266 011402,001248: 43,3130 00006 EXTEND 011403,001249: 43,3131 12120 BZF ALM/END # NO --- OPERATOR ERROR 011404,001250: 011405,001251: 43,3132 05560 TC DOWNFLAG 011406,001252: 43,3133 00213 ADRES V94FLAG 011407,001253: 011408,001254: 43,3134 05364 TC CHECKMM # IS IT P23 011409,001255: 43,3135 00027 MM 23 B-14 011410,001256: 43,3136 02120 TC ALM/END # NO -- OPERATOR ERROR 011411,001257: 43,3137 05412 TC PHASCHNG 011412,001258: 43,3140 00112 OCT 112 # SET GROUP 2 TO DO R64 011413,001259: 011414,001260: 43,3141 02710 TC CLEANOUT # CAUSE RESTART 011415,001261: 011416,001262: # V90PERF VERB 90 DESCRIPTION 011417,001263: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36) 011418,001264: 011419,001265: # 1. SET EXT VERB DISPLAY BUSY FLAG. 011420,001266: # 2. SCHEDULE R36 CALL WITH PRIORITY 10 011421,001267: # A. DISPLAY 011422,001268: # TIME OF EVENT -- HOURS, MINUTES, SECONDS 011423,001269: # Y OUT-OF-PLANE POSITION -- NAUTICAL MILES 011424,001270: # YDOT OUT-OF-PLANE VELOCITY -- FEET/SECOND 011425,001271: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD 011426,001272: # DIRECTION VECTOR IN HORIZONTAL PLANE -- DEGREES 011427,001273: 011428,001274: 43,3142 02076 V90PERF TC TESTXACT 011429,001275: 43,3143 35063 CAF PRIO7 # R36,V90 011430,001276: 43,3144 05147 TC FINDVAC 011431,001277: 43,3145 40,2000 SBANK= PINSUPER # Added RSB 2009 011432,001278: 43,3145 E4,1726 EBANK= RPASS36 011433,001279: 43,3145 02164 40104 2CADR R36 011434,001280: 011435,001281: 43,3147 15217 TCF ENDOFJOB 011436,001282: 011437,001283: # VERB 96 SET QUITFLAG TO STOP INTEGRATION 011438,001284: 011439,001285: 43,3150 05546 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT 011440,001286: 43,3151 00221 ADRES QUITFLAG # AT NEXT TIMESTEP 011441,001287: 011442,001288: 43,3152 05546 TC UPFLAG 011443,001289: 43,3153 00204 ADRES V96ONFLG 011444,001290: 43,3154 35021 CAF ZERO 011445,001291: 43,3155 04701 TC POSTJUMP 011446,001292: 43,3156 10011 CADR V37 # GO TO P00 011447,001293: 011448,001294: 43,3157 E5,1751 EBANK= LANDMARK 011449,001295: 43,3157 05364 V52 TC CHECKMM # IS P22 OPERATING 011450,001296: 43,3160 00026 MM 22 B-14 011451,001297: 43,3161 02120 TC ALM/END # NO 011452,001298: 43,3162 33200 CAF LANDBANK 011453,001299: 43,3163 54003 TS EBANK 011454,001300: 011455,001301: # Page 267 011456,001302: 43,3164 45063 CS PRIO7 # YES SET BITS 12,11,10 OF LANDMARK = 011457,001303: 43,3165 71751 MASK LANDMARK # BITS 14,13,12 OF MARKSTAT AFTER 011458,001304: 43,3166 55751 TS LANDMARK # SUBT. THEM FROM 5 TO GET OFFSET 011459,001305: 43,3167 31330 CA MARKSTAT # MARK NO. 011460,001306: 43,3170 54021 TS SR 011461,001307: 43,3171 30021 CA SR 011462,001308: 43,3172 30021 CA SR 011463,001309: 43,3173 75063 MASK PRIO7 011464,001310: 43,3174 40000 CS A 011465,001311: 43,3175 65061 AD PRIO5 011466,001312: 43,3176 27751 ADS LANDMARK 011467,001313: 43,3177 02121 TC GOPIN 011468,001314: 43,3200 02751 LANDBANK ECADR LANDMARK 011469,001315: 011470,001316: # VERB 67 ASTRONAUT DISPLAY OF W MATRIX 011471,001317: 011472,001318: 43,3201 02076 V67 TC TESTXACT 011473,001319: 43,3202 35061 CAF PRIO5 011474,001320: 43,3203 05147 TC FINDVAC 011475,001321: 43,3204 E5,1400 EBANK= W 011476,001322: 43,3204 03624 60105 2CADR V67CALL 011477,001323: 011478,001324: 43,3206 05217 TC ENDOFJOB 011479,001325: 011480,001326: # VB 44. SET SURFACE FLAG. 011481,001327: 011482,001328: 43,3207 05546 SETSURF TC UPFLAG 011483,001329: 43,3210 00177 ADRES SURFFLAG 011484,001330: 43,3211 12121 TCF GOPIN 011485,001331: 011486,001332: # VB 45. RESET SURFACE FLAG 011487,001333: 011488,001334: 43,3212 05560 RESTSRF TC DOWNFLAG 011489,001335: 43,3213 00177 ADRES SURFFLAG 011490,001336: 43,3214 12121 TCF GOPIN End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc