Source Code

010151,000001: # Copyright: Public domain. 010152,000002: # Filename: EXTENDED_VERBS.agc 010153,000003: # Purpose: Part of the source code for Comanche, build 055. It 010154,000004: # is part of the source code for the Command Module's 010155,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11. 010156,000006: # Assembler: yaYUL 010157,000007: # Reference: pp. 236-267 010158,000008: # Contact: Ron Burkey <info@sandroid.org>, 010159,000009: # Fabrizio Bernardini <fabrizio@spacecraft.it> 010160,000010: # Website: http://www.ibiblio.org/apollo. 010161,000011: # Mod history: 2009-05-18 FB Transcription Batch 3 Assignment. 010162,000012: # 2009-05-20 RSB Corrections: POODOO -> P00DOO, 010163,000013: # GOTOPOOH -> GOTOP00H, added a couple of 010164,000014: # missing instructions in Verb 96. 010165,000015: # 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to 010166,000016: # CA FLAGWRD1. Added a variety of SBANK= 010167,000017: # statements prior to 2CADRs. One day I'll 010168,000018: # have to figure out what yaYUL is doing 010169,000019: # wrong with those .... 010170,000020: # 2010-08-29 JL Fixed +3 and +8 pseudo-labels which were accidentally symbols. 010171,000021: # 2011-05-08 JL Flagged SBANK= workarounds for future removal. 010172,000022: # 2011-05-17 JL Removed all SBANK= workarounds. 010173,000023: 010174,000024: # The contents of the "Comanche055" files, in general, are transcribed 010175,000025: # from scanned documents. 010176,000026: 010177,000027: # Assemble revision 055 of AGC program Comanche by NASA 010178,000028: # 2021113-051. April 1, 1969. 010179,000029: 010180,000030: # This AGC program shall also be referred to as Colossus 2A 010181,000031: 010182,000032: # Prepared by 010183,000033: # Massachusetts Institute of Technology 010184,000034: # 75 Cambridge Parkway 010185,000035: # Cambridge, Massachusetts 010186,000036: 010187,000037: # under NASA contract NAS 9-4065. 010188,000038: 010189,000039: # Refer directly to the online document mentioned above for further 010190,000040: # information. Please report any errors to info@sandroid.org. 010191,000041: 010192,000042: # Page 236 010193,000043: 07,2441 BANK 7 010194,000044: 43,2000 SETLOC EXTVERBS 010195,000045: 43,2000 BANK 010196,000046: 010197,000047: 43,2000 0002757 EBANK= OGC 010198,000048: 010199,000049: 43,2000 COUNT* $$/EXTVB 010200,000050: 010201,000051: # FAN-OUT 010202,000052: 010203,000053: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC 010204,000054: 43,2001 02002 TC LST2FAN # FAN AS BEFROE. 010205,000055: 010206,000056: 43,2002 02124 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY) 010207,000057: 43,2003 02150 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR 010208,000058: # 91 ONLY) 010209,000059: 43,2004 02240 TC IMUFINEK # VB42 FINE ALIGN IMU 010210,000060: 43,2005 02420 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS. 010211,000061: 43,2006 03207 TC SETSURF # VB44 SET SURFACE FLAG 010212,000062: 43,2007 03212 TC RESTSRF # VB45 RESET SURFACE FLAG 010213,000063: 43,2010 02524 TC STABLISH # VB46 ESTABLISH G+C CONTROL 010214,000064: 43,2011 03102 TC LMTOCMSV # VB47 MOVE LM STATE VECTOR INTO CM 010215,000065: 43,2012 02552 TC DAPDISP # VB48 LOAD A/P DATA 010216,000066: 43,2013 12543 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER 010217,000067: 43,2014 02275 TC GOLOADLV # VB50 PLEASE PERFORM 010218,000068: 43,2015 02275 TC GOLOADLV # VB51 PLEASE MARK 010219,000069: 43,2016 03157 TC V52 # VB52 SET OFFSET NO. FOR P22 010220,000070: 43,2017 02275 TC GOLOADLV # VB53 PLEASE PERFORM COAS MARK 010221,000071: 43,2020 02612 TC GOTOR23 # VB54 PLEASE MARK (R-21 BACKUP) 010222,000072: 43,2021 02326 TC ALINTIME # VB55 ALIGN TIME 010223,000073: 43,2022 02653 TC TRACKTRM # VB56 TERMINATE TRACKING (P20 + P25) 010224,000074: 43,2023 02607 TC GOTOR21 # VB57 START R21 REND TRACK SIGHT MARK ROUT 010225,000075: 43,2024 02510 TC ENATMA # VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER 010226,000076: 43,2025 02275 TC GOLOADLV # VB59 PLEASE CALIBRATE 010227,000077: 43,2026 02303 TC V60 # VB60 SET CPHIX (N17) EQUAL TO CDU 010228,000078: 43,2027 02311 TC V61 # VB61 SELECT MODE I 010229,000079: 43,2030 02314 TC V62 # VB62 SELECT MODE II, ERROR WRT N22 010230,000080: 43,2031 02321 TC V63 # VB63 SELECT MODE III, ERROR WRT N17 010231,000081: 43,2032 02500 TC VB64 # VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES 010232,000082: 43,2033 02375 TC CKOPTVB # V 65 E OPTICAL VERIFICATION FOR PRELAUNC 010233,000083: 43,2034 03034 TC ATTACHED # VB66 ATTACHED. MOVE THIS TO OTHER STATE 010234,000084: 43,2035 03201 TC V67 # VB67 W MATRIX MONITOR 010235,000085: 43,2036 02513 TC STROKON # VB68 CSM STROKE TEST ON. 010236,000086: 43,2037 02037 VERB69 TC VERB69 # VB69 CAUSE RESTART 010237,000087: 43,2040 03726 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME. 010238,000088: 43,2041 03730 TC V71UPDAT # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS 010239,000089: 43,2042 03732 TC V72UPDAT # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS 010240,000090: 43,2043 03734 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL) 010241,000091: 43,2044 02721 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM 010242,000092: # FOR ERASABLE DUMP. 010243,000093: 43,2045 02725 TC LFTFLGON # VB75 SET LIFTOFF FLAG. 010244,000094: # Page 237 010245,000095: 43,2046 03015 TC SETPRFLG # VB76 SET PREFERRED ATTITUDE FLAG 010246,000096: 43,2047 03020 TC RESETPRF # VB77 RESET PREFERRED ATT. FLAG 010247,000097: 43,2050 02406 TC CHAZFOGC # CHANGE GYROCOMPASS LAUNCH AZIMUTH V78 010248,000098: 43,2051 02120 TC ALM/END # V79 SPARE 010249,000099: 43,2052 02713 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR 010250,000100: 43,2053 02716 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR 010251,000101: 43,2054 02562 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30) 010252,000102: 43,2055 02567 TC V83PERF # VB83 RANGE, RANGE RATE, +X AXIS (R31) 010253,000103: 43,2056 02120 TC ALM/END # V84 SPARE 010254,000104: 43,2057 02601 TC V85PERF # VB85 RANGE, RANGE RATE, SLOS (R32) 010255,000105: 43,2060 02646 TC V86PERF # VB86 BACKUP MARK REJECT 010256,000106: 43,2061 03023 TC SETVHFLG # VB87 SET VHF RANGE FLAG 010257,000107: 43,2062 03027 TC RESETVHF # VB88 RESET VHF RANGE FLAG 010258,000108: 43,2063 02745 TC V89PERF # V89-ALIGN X OR PRF CSM AXIS TO LOS (R63) 010259,000109: 43,2064 03142 TC V90PERF # VB90-OUT OF PLAN PARAMETERS (R36) 010260,000110: 43,2065 02762 TC GOSHOSUM # VB91 TEMP FOR HYBRID AND STG. 010261,000111: 43,2066 02360 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST 010262,000112: 43,2067 02755 TC WMATRXNG # VB93 CLEAR RENDWFLG 010263,000113: 43,2070 03126 TC VERB94 # VB94 DO R64 010264,000114: 43,2071 02120 TC ALM/END # VB95 SPARE 010265,000115: 43,2072 13150 TCF VERB96 # VB96 SET QUITFLAG TO STOP INTEGRATION 010266,000116: 43,2073 02275 TC GOLOADLV # VB97 PLEASE PERFORM ENGINE-FAIL (R41) 010267,000117: 43,2074 02120 TC ALM/END # VB98 SPARE 010268,000118: 43,2075 02275 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE 010269,000119: 010270,000120: # END OF EXTENDED VERB FAN 010271,000121: 010272,000122: 43,2076 11044 TESTXACT CCS EXTVBACT 010273,000123: 43,2077 02120 TC ALM/END # YES, TURN ON OPERATOR ERROR LIGHT 010274,000124: 43,2100 30100 CA FLAGWRD4 # ARE PRIOS USING DSKY 010275,000125: 43,2101 72123 MASK OC24100 010276,000126: 43,2102 10000 CCS A 010277,000127: 43,2103 02120 TC ALM/END 010278,000128: 010279,000129: 43,2104 34112 CAF OCT24 # SET BITS 3 AND 5 010280,000130: 43,2105 55044 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY 010281,000131: # SYSTEM BUSY 010282,000132: 010283,000133: 43,2106 30002 CA Q 010284,000134: 43,2107 54155 TS MPAC +1 010285,000135: 010286,000136: 43,2110 45016 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB 010287,000137: 43,2111 04170 TC NVSUB 010288,000138: 43,2112 02113 TC +1 010289,000139: 43,2113 00155 TC MPAC +1 010290,000140: 010291,000141: 43,2114 04400 XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT. 010292,000142: 43,2115 05534 TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS. 010293,000143: # Page 238 010294,000144: 43,2116 5534 TERMEXTV EQUALS ENDEXT 010295,000145: 43,2116 5534 ENDEXTVB EQUALS ENDEXT 010296,000146: 010297,000147: 43,2116 35021 XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS. 010298,000148: 43,2117 02105 TC SETXTACT 010299,000149: 010300,000150: 43,2120 04400 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT 010301,000151: 43,2121 04701 GOPIN TC POSTJUMP 010302,000152: 43,2122 21272 CADR PINBRNCH 010303,000153: 010304,000154: 43,2123 24100 OC24100 OCT 24100 010305,000155: 010306,000156: # Page 239 010307,000157: # VBZERO VERB 40 DESCRIPTION 010308,000158: 010309,000159: # 1. REQUIRE NOUN 20 (ICDU ANGLES) 010310,000160: # 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM 010311,000161: # 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. 010312,000162: # 4. SET EXT VERB DISPLAY ACTIVE FLAG. 010313,000163: # 5. EXECUTE IMUZERO (ZERO IMU CDU ANGLES). 010314,000164: # 6. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). 010315,000165: # 7. RELEASE EXT. VERB DISPLAY SYSTEM. 010316,000166: 010317,000167: 43,2124 02136 VBZERO TC OP/INERT 010318,000168: 43,2125 02127 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20) 010319,000169: 43,2126 02120 TC ALM/END # RETURN HERE IF NOUN = OCDU(91) 010320,000170: # (NOT IN USE YET) 010321,000171: 010322,000172: 43,2127 02271 IMUZEROK TC CKMODCAD # KEYBOARD REQUEST FOR ISS CDUZERO 010323,000173: 43,2130 04662 TC BANKCALL 010324,000174: 43,2131 16577 CADR IMUZERO 010325,000175: 010326,000176: 43,2132 04662 TC BANKCALL # STALL 010327,000177: 43,2133 17577 CADR IMUSTALL 010328,000178: 43,2134 02135 TC +1 010329,000179: 010330,000180: 43,2135 02121 TC GOPIN 010331,000181: 010332,000182: 43,2136 44112 OP/INERT CS OCT24 010333,000183: 43,2137 61002 AD NOUNREG 010334,000184: 43,2140 00006 EXTEND 010335,000185: 43,2141 12476 BZF XACT0Q # IF = 20. 010336,000186: 010337,000187: 43,2142 24002 INCR Q 010338,000188: 43,2143 62147 AD OPIMDIFF # -71 010339,000189: 43,2144 00006 EXTEND 010340,000190: 43,2145 12476 BZF XACT0Q 010341,000191: 010342,000192: 43,2146 02120 TC ALM/END # ILLEGAL. 010343,000193: 010344,000194: 43,2147 77670 OPIMDIFF DEC -71 B-14 010345,000195: 010346,000196: # Page 240 010347,000197: # VBCOARK VERB 41 DESCRIPTION 010348,000198: # COARSE ALIGN IMU OR RADAR 010349,000199: 010350,000200: # 1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR. 010351,000201: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. 010352,000202: 010353,000203: # CASE 1 NOUN 20 (ICDU ANGLES) 010354,000204: # 3. SET EXT VERB DISPLAY ACTIVE FLAG. 010355,000205: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). 010356,000206: # RESPONSES 010357,000207: # A. TERMINATE 010358,000208: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010359,000209: # B. PROCEED 010360,000210: # 1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES). 010361,000211: # RESPONSES: 010362,000212: # A. TERMINATE 010363,000213: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010364,000214: # B. PROCEED 010365,000215: # 1. EXECUTE ICORK2. 010366,000216: # C. ENTER 010367,000217: # 1. INCREMENT CDU ANGLES 010368,000218: # 2. EXECUTE ICORK2 010369,000219: # C. ENTER 010370,000220: # 1. EXECUTE ICORK2 010371,000221: # ICORK2 010372,000222: # 1. RE-DISPLAY VERB 41. 010373,000223: # 2. EXECUTE IMUCCARS (IMU COARSE ALIGN). 010374,000224: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). 010375,000225: # 4. RELEASE EXT VERB DISPLAY SYSTEM. 010376,000226: 010377,000227: # CASE 2 NOUN 91 (OCDU ANGLES) 010378,000228: # 5. (REQUIRE OPTICS SWITCH TO BE AT COMUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE 010379,000229: # OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117 010380,000230: # AND RELEASE EXT VERB DISPLAY SYSTEM). 010381,000231: # 6. RESPONSES TO V29,N92 010382,000232: # A. TERMINATE 010383,000233: # RELEASE EXT VERB DISPLAY SYS. 010384,000234: # B. PROCEED OR ENTER 010385,000235: # RE-DISPLAY VERB 41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING. 010386,000236: # RELEASE EXT VERB DISPLAY SYSTEM. 010387,000237: 010388,000238: 43,2150 02136 VBCOARK TC OP/INERT 010389,000239: 43,2151 02153 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20) 010390,000240: 43,2152 02175 TC OPTCOARK # RETURN HERE IF NOUN = OCDU (91) 010391,000241: 010392,000242: # RETURNS TO L+1 IF NOUN 20 -- TO L+2 IF NOUN 91. 010393,000243: 010394,000244: 43,2153 02271 IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD 010395,000245: 43,2154 02076 TC TESTXACT 010396,000246: 43,2155 32173 CAF VNLODCDU # CALL FOR THETAD LOAD 010397,000247: 43,2156 04662 TC BANKCALL 010398,000248: 43,2157 20561 CADR GOXDSPF 010399,000249: 43,2160 05534 TC TERMEXTV 010400,000250: 43,2161 12162 TCF +1 010401,000251: # Page 241 010402,000252: 010403,000253: 43,2162 32174 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB. 010404,000254: 43,2163 04662 TC BANKCALL 010405,000255: 43,2164 21042 CADR EXDSPRET 010406,000256: 010407,000257: 43,2165 04662 TC BANKCALL # CALL MODE SWITCHING PROG 010408,000258: 43,2166 16663 CADR IMUCOARS 010409,000259: 010410,000260: 43,2167 04662 TC BANKCALL # STALL 010411,000261: 43,2170 17577 CADR IMUSTALL 010412,000262: 43,2171 05534 TC ENDEXTVB 010413,000263: 43,2172 05534 TC ENDEXTVB 010414,000264: 010415,000265: 43,2173 06226 VNLODCDU VN 2522 010416,000266: 43,2174 12200 IMUCOARV VN 4100 010417,000267: 010418,000268: # Page 242 010419,000269: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD 010420,000270: 010421,000271: 43,2175 31323 OPTCOARK CA OPTCADR 010422,000272: 43,2176 02272 TC CKMODCAD +1 010423,000273: 43,2177 02076 TC TESTXACT 010424,000274: 43,2200 35056 CAF EBANK5 010425,000275: 43,2201 54003 TS EBANK 010426,000276: 010427,000277: 43,2202 11314 CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER 010428,000278: 43,2203 02210 TC +5 # SWITCH AT COMPUTER 010429,000279: 43,2204 02205 TC +1 # NOT ON COMPUTER 010430,000280: 43,2205 04400 TC FALTON # TURN ON OPERATOR ERR 010431,000281: 43,2206 05650 TC ALARM # AND ALARM 010432,000282: 43,2207 00115 OCT 00115 010433,000283: 010434,000284: 43,2210 11303 CCS OPTIND # SEE IF OPTICS AVAILABLE 010435,000285: 43,2211 02217 TC OPTC1 # IN USE 010436,000286: 43,2212 02217 TC OPTC1 # IN USE 010437,000287: 43,2213 02217 TC OPTC1 # IN USE 010438,000288: 010439,000289: 43,2214 05650 TC ALARM # OPTICS RESERVED (OPTIND=-0) 010440,000290: 43,2215 00117 OCT 00117 010441,000291: 43,2216 05534 TC ENDEXT 010442,000292: 010443,000293: 43,2217 32237 OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS 010444,000294: 43,2220 04662 TC BANKCALL 010445,000295: 43,2221 20561 CADR GOXDSPF 010446,000296: 43,2222 05534 TC TERMEXTV 010447,000297: 43,2223 02224 TC +1 # PROCEED 010448,000298: 010449,000299: 43,2224 31773 CA SAC 010450,000300: 43,2225 55161 TS DESOPTS 010451,000301: 43,2226 31775 CA PAC 010452,000302: 43,2227 55160 TS DESOPTT 010453,000303: 43,2230 32174 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB 010454,000304: 43,2231 04662 TC BANKCALL 010455,000305: 43,2232 21042 CADR EXDSPRET 010456,000306: 010457,000307: 43,2233 35017 CAF ONE 010458,000308: 43,2234 55303 TS OPTIND # SET COARS WORKING 010459,000309: 010460,000310: 43,2235 05534 TC ENDEXTVB 010461,000311: 43,2236 05534 TC ENDEXTVB 010462,000312: 010463,000313: 43,2237 06134 VNLD0CDU VN 2492 010464,000314: 43,2240 43,2174 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS. 010465,000315: 010466,000316: # Page 243 010467,000317: # IMUFINEK VERB 42 DESCRIPTION 010468,000318: # FINE ALIGN IMU 010469,000319: 010470,000320: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH. 010471,000321: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES.... 010472,000322: # RESPONSES 010473,000323: # A. TERMINATE 010474,000324: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010475,000325: # B. PROCEED OR ENTER 010476,000326: # 1. RE-DISPLAY VERB 42 010477,000327: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING). 010478,000328: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER) 010479,000329: # A. FAILED 010480,000330: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010481,000331: # B. GOOD 010482,000332: # 1. EXECUTE IMUPULSE (TORQUE IRIGS). 010483,000333: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM. 010484,000334: 010485,000335: 43,2240 02271 IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING. 010486,000336: 43,2241 02076 TC TESTXACT 010487,000337: 43,2242 32267 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS 010488,000338: 43,2243 04662 TC BANKCALL 010489,000339: 43,2244 20561 CADR GOXDSPF 010490,000340: 43,2245 05534 TC TERMEXTV 010491,000341: 43,2246 02247 TC +1 # PROCEED WITHOUT A LOAD 010492,000342: 010493,000343: 43,2247 32270 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB 010494,000344: 43,2250 04662 TC BANKCALL 010495,000345: 43,2251 21042 CADR EXDSPRET 010496,000346: 010497,000347: 43,2252 04662 TC BANKCALL # CALL MODE SWITCH PROG 010498,000348: 43,2253 17073 CADR IMUFINE 010499,000349: 010500,000350: 43,2254 04662 TC BANKCALL # HIBERNATION 010501,000351: 43,2255 17577 CADR IMUSTALL 010502,000352: 43,2256 05534 TC ENDEXTVB 010503,000353: 010504,000354: 43,2257 32266 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS 010505,000355: 43,2260 04662 TC BANKCALL 010506,000356: 43,2261 17206 CADR IMUPULSE 010507,000357: 010508,000358: 43,2262 04662 TC BANKCALL # WAIT FOR PULSES TO GET OUT. 010509,000359: 43,2263 17577 CADR IMUSTALL 010510,000360: 43,2264 05534 TC ENDEXTVB 010511,000361: 43,2265 05534 TC ENDEXTVB 010512,000362: 010513,000363: 43,2266 02757 LGYROBIN ECADR OGC 010514,000364: 43,2267 06335 VNLODGYR VN 2593 010515,000365: 43,2270 12400 IMUFINEV VN 4200 # FINE ALIGN VERB 010516,000366: 010517,000367: 43,2271 31322 CKMODCAD CA MODECADR 010518,000368: # Page 244 010519,000369: 43,2272 00006 EXTEND 010520,000370: 43,2273 16711 BZF TCQ 010521,000371: 43,2274 02120 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT 010522,000372: 010523,000373: # GOLOADLV VERB 50 DESCRIPTION 010524,000374: # AND OTHER PLEASE 010525,000375: # DO SOMETHING VERBS 010526,000376: 010527,000377: # PLEASE PERFORM, MARK, CALIBRATE, ETC. 010528,000378: 010529,000379: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE 010530,000380: # SAME RECALL AS A COMPLETED LOAD. 010531,000381: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED. 010532,000382: 010533,000383: 43,2275 04447 GOLOADLV TC FLASHOFF 010534,000384: 43,2276 34215 CAF PINSUPBT 010535,000385: 43,2277 00006 EXTEND 010536,000386: 43,2300 01007 WRITE SUPERBNK # TURN ON FE7 010537,000387: 43,2301 04701 TC POSTJUMP 010538,000388: 43,2302 40,2000 SBANK= PINSUPER 010539,000389: 43,2302 62001 CADR LOADLV1 010540,000390: 010541,000391: # V60 VERB 60 010542,000392: 43,2303 00006 V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL 010543,000393: 43,2304 30033 DCA CDUX # TO PRESENT ATTITUDE 010544,000394: 43,2305 53334 DXCH CPHIX 010545,000395: 43,2306 30034 CA CDUZ 010546,000396: 43,2307 55335 TS CPHIX +2 010547,000397: 43,2310 02121 TC GOPIN 010548,000398: 010549,000399: # V61 VERB 61 010550,000400: 43,2311 05560 V61 TC DOWNFLAG # SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE 010551,000401: 43,2312 00006 ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED 010552,000402: 43,2313 02121 TC GOPIN 010553,000403: 010554,000404: # V62 VERB 62 010555,000405: 43,2314 05546 V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), 010556,000406: 43,2315 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED 010557,000407: 010558,000408: 43,2316 05546 TC UPFLAG # SET N22ORN17 TO 1 (FLAGWRD9,BIT6), 010559,000409: 43,2317 00220 ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22 010560,000410: 43,2320 02121 TC GOPIN 010561,000411: 010562,000412: # V63 VERB 63 010563,000413: 43,2321 05546 V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), 010564,000414: 43,2322 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED 010565,000415: 010566,000416: 43,2323 05560 TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6), 010567,000417: # Page 245 010568,000418: 43,2324 00220 ADRES N22ORN17 # COMPUTE TOAL ASTRONAUT ATTITUDE ERROR 010569,000419: 43,2325 02121 TC GOPIN 010570,000420: 010571,000421: # Page 246 010572,000422: # ALINTIME VERB 55 DESCRIPTION 010573,000423: 010574,000424: # 1. SET EXT VERB DISPLAY BUSY FLAG. 010575,000425: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK. 010576,000426: # 3. REQUIRE EXECUTION OF VERB 23. 010577,000427: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME. 010578,000428: # 5. RELEASE EXT VERB DISPLAY SYSTEM. 010579,000429: 010580,000430: 43,2326 COUNT 04/R33 010581,000431: 010582,000432: 43,2326 02076 ALINTIME TC TESTXACT 010583,000433: 010584,000434: 43,2327 32357 CAF VNLODDT 010585,000435: 43,2330 04662 TC BANKCALL 010586,000436: 43,2331 20561 CADR GOMARKF 010587,000437: 43,2332 05534 TC ENDEXT # TERMINATE 010588,000438: 43,2333 05534 TC ENDEXT # PROCEED 010589,000439: 43,2334 42356 CS DEC23 # DATA IN OR RESEQUENCE (UNLIKELY) 010590,000440: 43,2335 60154 AD MPAC # RECALL LEFT VERB IN MPAC 010591,000441: 43,2336 00006 EXTEND 010592,000442: 43,2337 12341 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL 010593,000443: 43,2340 05534 TC ENDEXT # WITH V23 (DATA IN). 010594,000444: 010595,000445: 43,2341 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1. 010596,000446: 43,2342 35021 CAF ZERO 010597,000447: 43,2343 54156 TS MPAC +2 # NEEDED FOR TP AGREE 010598,000448: 43,2344 54001 TS L # ZERO T1 + 2 WHILE ALIGNING. 010599,000449: 43,2345 52025 DXCH TIME2 010600,000450: 43,2346 52155 DXCH MPAC 010601,000451: 43,2347 53052 DXCH DSPTEM2 +1 # INCREMENT 010602,000452: 43,2350 20155 DAS MPAC 010603,000453: 010604,000454: 43,2351 07226 TC TPAGREE # FORCE SIGN AGREEMENT. 010605,000455: 43,2352 52155 DXCH MPAC # NEW CLOCK. 010606,000456: 43,2353 20025 DAS TIME2 010607,000457: 43,2354 00003 RELINT 010608,000458: 43,2355 05534 UPDTMEND TC ENDEXT 010609,000459: 43,2356 00027 DEC23 DEC 23 B-14 # V 23 010610,000460: 010611,000461: 43,2357 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME 010612,000462: 010613,000463: # Page 247 010614,000464: # SYSTEST VERB 92 DESCRIPTION 010615,000465: # OPERATE SELECTED SYSTEM TEST. 010616,000466: 010617,000467: # 1. REQUIRE P00 OR P00- OR TURN ON OPERATOR ERROR. 010618,000468: # 2. TURN OFF DAP IF IT IS ON. 010619,000469: # 3. DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17). 010620,000470: # 4. UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20. 010621,000471: 010622,000472: # TSELECT 010623,000473: # 1. IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND 010624,000474: # REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE) 010625,000475: 010626,000476: 43,2360 E5,1425 EBANK= QPLACE 010627,000477: 010628,000478: 43,2360 COUNT 04/EXTVB 010629,000479: 010630,000480: 43,2360 02730 SYSTEST TC CHKP00H 010631,000481: 43,2361 30075 CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11) 010632,000482: 43,2362 75004 MASK NOP01BIT 010633,000483: 43,2363 00006 EXTEND 010634,000484: 43,2364 12367 BZF V92CONT # IF IT'S NOT YET SET, CONTINUE 010635,000485: 43,2365 05721 TC P00DOO # IT'S ON. SEND NODO ALARM FOR P07 010636,000486: 43,2366 01521 OCT 1521 010637,000487: 43,2367 02734 V92CONT TC EXDAPOFF # TURN DAP OFF IF IT'S ON 010638,000488: 43,2370 35002 CAF PRIO20 010639,000489: 43,2371 05147 TC FINDVAC 010640,000490: 43,2372 E5,1425 EBANK= QPLACE 010641,000491: 43,2372 30,2000 SBANK= IMUSUPER 010642,000492: 43,2372 02002 66065 2CADR REDO 010643,000493: 010644,000494: 43,2374 02121 TC GOPIN 010645,000495: 010646,000496: # REDO AND TSELECT ARE NOW IN SYSTEM TEST. 010647,000497: 010648,000498: 43,2375 COUNT* $$/EXTVB 010649,000499: # CKOPTVB VERB 65 DESCRIPTION 010650,000500: # OPTICAL VERIFICATION FOR PRELAUNCH. 010651,000501: # 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17. 010652,000502: 010653,000503: 43,2375 05364 CKOPTVB TC CHECKMM 010654,000504: 43,2376 00002 MM 02 B-14 # I WONDER IF PRELAUNCH IS RUNNING 010655,000505: 43,2377 02120 TC ALM/END # NOT RUNNING OPERATOR ERROR 010656,000506: 43,2400 00004 INHINT 010657,000507: 43,2401 35070 CAF PRIO16 # PRELAUNCH OPTICAL VERIFICATION 010658,000508: 43,2402 05147 TC FINDVAC 010659,000509: 43,2403 E5,1425 EBANK= QPLACE 010660,000510: 43,2403 02000 66065 2CADR COMPVER # STANDARD LEADIN TO GCOMPVER. 010661,000511: 010662,000512: 43,2405 02121 TC GOPIN 010663,000513: 010664,000514: # Page 248 010665,000515: # V 78 .... TO CHANGE GYROCOMPASS AZIMUTH 010666,000516: 010667,000517: 43,2406 05364 CHAZFOGC TC CHECKMM # IS IT PRELAUNCH 010668,000518: 43,2407 00002 MM 02 B-14 010669,000519: 43,2410 02120 TC ALM/END # NO -- OPERATOR ERROR 010670,000520: 010671,000521: 43,2411 35070 CAF PRIO16 # PRELAUNCH AZIMUTH CHANGE 010672,000522: 43,2412 05147 TC FINDVAC 010673,000523: 43,2413 0002671 EBANK= XSM 010674,000524: 43,2413 03742 66065 2CADR AZMTHCG1 010675,000525: 010676,000526: 43,2415 05412 TC PHASCHNG 010677,000527: 43,2416 00174 OCT 00174 010678,000528: 43,2417 02121 TC GOPIN 010679,000529: # Page 249 010680,000530: # IMUATTCK VERB 43 DESCRIPTION 010681,000531: # LOAD IMU ATTITUDE ERROR METERS 010682,000532: 010683,000533: # 1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF. 010684,000534: # 2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY 010685,000535: # FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN. 010686,000536: # 3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE. 010687,000537: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). 010688,000538: # 5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS 010689,000539: # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. 010690,000540: # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY. 010691,000541: 010692,000542: 43,2420 02730 IMUATTCK TC CHKP00H 010693,000543: 010694,000544: 43,2421 32477 CAF OCTAL30 # SEE IF IMU ZERO AND IMU COARSE ARE ON 010695,000545: 43,2422 00006 EXTEND 010696,000546: 43,2423 02012 RAND CHAN12 010697,000547: 43,2424 10000 CCS A 010698,000548: 43,2425 12120 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON 010699,000549: 010700,000550: 43,2426 02465 TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF 010701,000551: 43,2427 02076 TC TESTXACT # AFTER 010702,000552: 43,2430 45033 CS OCT50 # REMOVE COARSE AND ECTR ENABLE 010703,000553: 43,2431 00006 EXTEND 010704,000554: 43,2432 03012 WAND CHAN12 010705,000555: 010706,000556: 43,2433 32173 CAF VNLODCDU 010707,000557: 43,2434 04662 TC BANKCALL 010708,000558: 43,2435 20561 CADR GOXDSPF 010709,000559: 43,2436 12452 TCF TRMATTCK 010710,000560: 43,2437 02440 TC +1 010711,000561: 43,2440 35057 CAF EBANK6 010712,000562: 43,2441 54003 TS EBANK # SET E6 FOR NEEDLES. 010713,000563: 010714,000564: 43,2442 E6,1476 EBANK= AK 010715,000565: 010716,000566: 43,2442 04662 TC BANKCALL # INITIALIZE CURRENT DAC AND 010717,000567: 43,2443 42443 CADR NEEDLE11 # COMMAND VALUES. 010718,000568: 010719,000569: 43,2444 04662 TC BANKCALL # ENABLE ERROR COUNTERS. 010720,000570: 43,2445 42462 CADR NEEDLER2 010721,000571: 010722,000572: 43,2446 35016 CAF TWO # 4 MS MIN. 010723,000573: 43,2447 05245 TC WAITLIST 010724,000574: 43,2450 E6,1476 EBANK= AK 010725,000575: 43,2450 02455 66106 2CADR ATTCK1 010726,000576: 010727,000577: 43,2452 02465 TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF 010728,000578: 43,2453 15534 TCF ENDEXT # AFTER 010729,000579: 43,2454 02121 TC GOPIN 010730,000580: # Page 250 010731,000581: 43,2455 00006 ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REQS. 010732,000582: 43,2456 31156 DCA THETAD 010733,000583: 43,2457 53477 DXCH AK 010734,000584: 43,2460 31157 CAE THETAD +2 010735,000585: 43,2461 55500 TS AK +2 010736,000586: 010737,000587: 43,2462 04740 TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES 010738,000588: 43,2463 42476 CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED. 010739,000589: 010740,000590: 43,2464 05324 TC TASKOVER 010741,000591: 010742,000592: 43,2465 35013 CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED 010743,000593: 43,2466 70101 MASK FLAGWRD5 010744,000594: 43,2467 10000 CCS A 010745,000595: 43,2470 00002 TC Q # YES 010746,000596: 43,2471 35013 CAF BIT5 010747,000597: 43,2472 00006 EXTEND 010748,000598: 43,2473 02030 RAND CHAN30 010749,000599: 43,2474 10000 CCS A 010750,000600: 43,2475 16706 TCF Q+1 010751,000601: 43,2476 00002 XACT0Q TC Q # YES 010752,000602: 010753,000603: 43,2477 00030 OCTAL30 OCT 30 010754,000604: 43,2500 02730 VB64 TC CHKP00H # DEMAND PROGRAM 00. 010755,000605: 43,2501 02076 TC TESTXACT # IF DISPLAY SYS. NOT BUSY, MAKE IT BUSY. 010756,000606: 43,2502 00004 INHINT 010757,000607: 43,2503 35004 CAF PRIO4 010758,000608: 43,2504 05147 TC FINDVAC 010759,000609: 43,2505 E4,1720 EBANK= RHOSB 010760,000610: 43,2505 03652 64104 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES. 010761,000611: 010762,000612: 43,2507 05217 TC ENDOFJOB 010763,000613: 010764,000614: # ENATMA VERB 58 DESCRIPTION 010765,000615: # ENABLE AUTOMATIC ATTITUDE MANEUVER 010766,000616: 010767,000617: # VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC 010768,000618: # ACTIVITY. 010769,000619: 010770,000620: 43,2510 05560 ENATMA TC DOWNFLAG # RESET STIKFLAG. 010771,000621: 43,2511 00020 ADRES STIKFLAG # BIT 14 FLAG 1 010772,000622: 43,2512 02121 TC GOPIN 010773,000623: 010774,000624: # Page 251 010775,000625: # STROKON VERB 68 DESCRIPTION 010776,000626: # STROKE TEST SETUP/ENABLE 010777,000627: # 1. SET EXT VERB DISPLAY BUSY FLAG 010778,000628: # 2. SCHEDULE STRKTST1 WITH PRIORITY 30. 010779,000629: # 3. RELEASE EXT VERB DISPLAY. 010780,000630: 010781,000631: 43,2513 E6,1625 EBANK= T5TVCDT 010782,000632: 43,2513 40102 STROKON CS FLAGWRD6 # V68 PERMITTED ONLY DURING TVC 010783,000633: 43,2514 74105 MASK OCT60000 010784,000634: 43,2515 00006 EXTEND 010785,000635: 43,2516 62120 BZMF ALM/END # NOT TVC....FLASH OP ERROR LIGHT 010786,000636: 43,2517 34371 CAF PRIO30 # JOB REQUEST, TO SET UP STROKE TEST, 010787,000637: 43,2520 05134 TC NOVAC # INCLUDING INITIALIZATIONS 010788,000638: 43,2521 E6,1574 EBANK= STROKER 010789,000639: 43,2521 03501 40106 2CADR STRKTSTI 010790,000640: 010791,000641: 43,2523 02121 TC GOPIN 010792,000642: 010793,000643: # STABLISH VERB 46 DESCRIPTION 010794,000644: # ESTABLISH G AND N AUTOPILOT CONTROL 010795,000645: # 1. SETS UP EITHER RCS, ENTRY, OR SATURN 010796,000646: # 2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER 010797,000647: # FROM HIGH BW TO LOW BW 010798,000648: 010799,000649: 010800,000650: 43,2524 35057 STABLISH CAF EBANK6 # V46 - SET EBANK TO E6 010801,000651: 43,2525 54003 TS EBANK 010802,000652: 010803,000653: 43,2526 40102 CS FLAGWRD6 # TEST FOR TVC 010804,000654: 43,2527 74105 MASK OCT60000 010805,000655: 43,2530 00006 EXTEND

2010-08-30 (jiml): yaYUL expects either an octal or explicit decimal offset. Original source was 'BZMF +8'. Added 'D' to explicitly specify decimal offset.

010808,000658: 43,2531           62541                          BZMF     +8D                                   
010809,000659: 
010810,000660: 43,2532           31466                          CAE      DAPDATR1                              #  TET FOR CSM/LM
010811,000661: 43,2533           75002                          MASK     BIT14                                 
010812,000662: 43,2534           00006                          EXTEND                                         
010813,000663: 43,2535           62540                          BZMF     +3                                    
010814,000664: 
010815,000665: 43,2536           04701                          TC       POSTJUMP                              #  CSM/LM, SO PERFORM HB TO LB SWITCH-OVER
010816,000666: 43,2537           36351                          CADR     PRESWTCH                              
010817,000667: 
010818,000668: 43,2540           02120                 +3       TC       ALM/END                               
010819,000669: 
010820,000670: 43,2541           04701                 +8       TC       POSTJUMP                              #  SET UP RCS, ENTRY, OR SATURN-STICK DAP
010821,000671: 43,2542           65606                          CADR     DAPFIG                                
010822,000672:                                                                                                 #  Page 252
010823,000673:                                                                                                 #  CREMANU        VERB 49         DESCRIPTION
010824,000674:                                                                                                 #         START AUTOMATIC ATTITUDE MANEUVER
010825,000675: 
010826,000676:                                                                                                 #         1.      REQUIRE PROGRAM 00 ACTIVE.
010827,000677:                                                                                                 #         2.      SET EXT VERB DISPLAY BUSY FLAG.
010828,000678:                                                                                                 #         3.      SCHEDULE R62DISP WITH PRIORITY 10.
010829,000679:                                                                                                 #         4.      RELEASE EXT VERB DISPLAY.
010830,000680: 
010831,000681:                                                                                                 #         R62DISP
010832,000682:                                                                                                 #         1.      DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES).  UPON IMMEDIATE RETURN, SET-UP GROUP
010833,000683:                                                                                                 #                 4 FOR RESTART OF DISPLAY SEQUENCE.
010834,000684:                                                                                                 #                 RESPONSES
010835,000685:                                                                                                 #                 A.      TERMINATE
010836,000686:                                                                                                 #                         1.      GOTOP00H
010837,000687:                                                                                                 #                 B.      PROCEED
010838,000688:                                                                                                 #                         1.      SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010839,000689:                                                                                                 #                         2.      EXECUTE R60CSM (ATTITUDE MANEUVER).
010840,000690:                                                                                                 #                         3.      ZERO GROUP 4 (END R62).
010841,000691:                                                                                                 #                 C.      ENTER
010842,000692:                                                                                                 #                         1.      REPEAT FLASHING V06,N22.
010843,000693: 
010844,000694: 43,2543           02730        CREWMANU          TC       CHKP00H                               #  DEMAND P00
010845,000695: 
010846,000696: 43,2544           02076                          TC       TESTXACT                              
010847,000697: 
010848,000698: 43,2545           35003                          CAF      PRIO10                                
010849,000699: 43,2546           05147                          TC       FINDVAC                               
010850,000700: 43,2547     1155                                 EBANK=   CPHI                                  
010851,000701: 43,2547           02330 56102                    2CADR    R62DISP                               
010852,000702: 
010853,000703: 43,2551           05217                          TC       ENDOFJOB                              
010854,000704: 
010855,000705:                                                                                                 #  Page 253
010856,000706:                                                                                                 #  DAPDISP        VERB 48         DESCRIPTION
010857,000707:                                                                                                 #         LOAD AUTOPILOT DATA (ROUTINE R03)
010858,000708: 
010859,000709:                                                                                                 #         0.      CHECKFAIL AND RETURN IF TVC.
010860,000710:                                                                                                 #         1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010861,000711:                                                                                                 #         2.      LOWER PRIORITY TO 10.
010862,000712:                                                                                                 #         3.      DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION).
010863,000713:                                                                                                 #         4.      UPON PROCEED RESPONSE, EXECUTE S41.2.
010864,000714:                                                                                                 #         5.      DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
010865,000715:                                                                                                 #         6.      UPON PROCEED RESPONSE EXECUTE S40.14.
010866,000716:                                                                                                 #         7.      DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
010867,000717:                                                                                                 #         8.      UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM.
010868,000718: 
010869,000719: 43,2552                                          COUNT*   $$/EXTVB                              
010870,000720: 
010871,000721: 43,2552           40102        DAPDISP           CS       FLAGWRD6                              
010872,000722: 43,2553           74105                          MASK     OCT60000                              
010873,000723: 43,2554           00006                          EXTEND                                         
010874,000724: 43,2555           62557                          BZMF     +2                                    #  TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
010875,000725: 43,2556           02120                          TC       ALM/END                               #  RETURN IF TVC
010876,000726: 
010877,000727: 43,2557           02076                          TC       TESTXACT                              
010878,000728: 43,2560           04662                          TC       BANKCALL                              
010879,000729: 43,2561           64000                          CADR     DAPDISP1                              
010880,000730: 42,2000                                          BANK     42                                    
010881,000731: 42,2000                                          SETLOC   EXTVBS                                
010882,000732: 42,2000                                          BANK                                           
010883,000733: 42,2000                                          COUNT    24/R03                                
010884,000734: 
010885,000735: 42,2000           35057        DAPDISP1          CAF      EBANK6                                
010886,000736: 42,2001           54003                          TS       EBANK                                 
010887,000737: 
010888,000738: 42,2002           35003                          CAF      PRIO10                                
010889,000739: 42,2003           05210                          TC       PRIOCHNG                              
010890,000740: 
010891,000741: 42,2004           32061        DONOUN46          CAF      V04N46                                #         R1              R2
010892,000742: 42,2005           04662                          TC       BANKCALL                              #         DAPDATR1        DAPDATR2
010893,000743: 42,2006           20561                          CADR     GOXDSPF                               #  GOXDSP ROUTINES USED FOR EXTENDED VERBS.
010894,000744: 
010895,000745: 42,2007           05534                          TC       ENDEXT                                #  EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
010896,000746: 42,2010           02012                          TC       +2                                    
010897,000747: 42,2011           02004                          TC       DONOUN46                              
010898,000748: 
010899,000749: 42,2012           31466                          CA       DAPDATR1                              
010900,000750: 42,2013           75014                          MASK     BIT4                                  
010901,000751: 42,2014           10000                          CCS      A                                     
010902,000752: 42,2015           12054                          TCF      MAXIN                                 
010903,000753: 42,2016           05560                          TC       DOWNFLAG                              
010904,000754: 42,2017           00212                          ADRES    MAXDBFLG                              
010905,000755: 42,2020           04662        MAXOUT            TC       BANKCALL                              
010906,000756: 42,2021           40347                          CADR     S41.2                                 
010907,000757: 
010908,000758: 42,2022           32060        DONOUN47          CAF      V06N47                                #         R1              R2              R3
010909,000759:                                                                                                 #  Page 254
010910,000760: 42,2023           04662                          TC       BANKCALL                              #         CSM WGT.        LEM WGT.        BLANK
010911,000761: 42,2024           20561                          CADR     GOXDSPF                               
010912,000762: 
010913,000763: 42,2025           05534                          TC       ENDEXT                                
010914,000764: 42,2026           02030                          TC       +2                                    
010915,000765: 42,2027           02022                          TC       DONOUN47                              
010916,000766: 42,2030           31466                          CAE      DAPDATR1                              #  DO MASS PROPERTIES CALCULATION ONLY IF
010917,000767: 42,2031           74371                          MASK     PRIO30                                #  CONFIG = 1(CSM), 2 (CSM/LM), 6(CSM/LMA)
010918,000768: 42,2032           00006                          EXTEND                                         
010919,000769: 42,2033           12046                          BZF      DONOUN48                              #  SKIP IF 0,4
010920,000770: 42,2034           40000                          COM                                            
010921,000771: 42,2035           74371                          MASK     PRIO30                                
010922,000772: 42,2036           00006                          EXTEND                                         
010923,000773: 42,2037           12046                          BZF      DONOUN48                              #  SKIP IF 3,7
010924,000774: 42,2040           00004                          INHINT                                         
010925,000775: 42,2041           04740                          TC       IBNKCALL                              
010926,000776: 42,2042           13366                          CADR     MASSPROP                              #  UPDATE IXX, IAVG, IAVG/TLX
010927,000777: 
010928,000778: 42,2043           00003                          RELINT                                         
010929,000779: 42,2044           04662                          TC       BANKCALL                              
010930,000780: 42,2045           40500                          CADR     S40.14                                #  COMPUTE RCS DAP STUFF
010931,000781: 
010932,000782: 42,2046           32057        DONOUN48          CAF      V0648                                 #         R1              R2              R3
010933,000783: 42,2047           04662                          TC       BANKCALL                              #         PTRIM           YTRIM           BLANK
010934,000784: 42,2050           20561                          CADR     GOXDSPF                               
010935,000785: 
010936,000786: 42,2051           05534                          TC       ENDEXT                                
010937,000787: 42,2052           05534                          TC       ENDEXT                                
010938,000788: 42,2053           02046                          TC       DONOUN48                              
010939,000789: 
010940,000790: 42,2054           05546        MAXIN             TC       UPFLAG                                
010941,000791: 42,2055           00212                          ADRES    MAXDBFLG                              
010942,000792: 42,2056           02020                          TC       MAXOUT                                
010943,000793: 
010944,000794: 42,2057           01460        V0648             VN       0648                                  
010945,000795: 42,2060           01457        V06N47            VN       0647                                  
010946,000796: 42,2061           01056        V04N46            VN       0446                                  
010947,000797: 43,2562                                          BANK     43                                    
010948,000798: 43,2000                                          SETLOC   EXTVERBS                              
010949,000799: 43,2000                                          BANK                                           
010950,000800: 
010951,000801: 43,2562                                          COUNT*   $$/EXTVB                              
010952,000802: 
010953,000803:                                                                                                 #  V82PERF        VERB82          DESCRIPTION
010954,000804:                                                                                                 #         REQUEST ORBIT PARAMETERS DISPLAY (R30)
010955,000805: 
010956,000806:                                                                                                 #         1.      IF AVERAGE G IS OFF:
010957,000807:                                                                                                 #                         FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
010958,000808:                                                                                                 #                          TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
010959,000809:                                                                                                 #                          CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ I.
010960,000810:                                                                                                 #                         SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
010961,000811:                                                                                                 #                         CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
010962,000812:                                                                                                 #  Page 255
010963,000813:                                                                                                 #                          RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
010964,000814:                                                                                                 #                          HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
010965,000815:                                                                                                 #                          HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
010966,000816:                                                                                                 #                          INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
010967,000817:                                                                                                 #                         FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
010968,000818:                                                                                                 #                          NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
010969,000819:                                                                                                 #                          ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
010970,000820:                                                                                                 #                          DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
010971,000821:                                                                                                 #                          ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
010972,000822: 
010973,000823:                                                                                                 #         2.      IF AVERAGE G IS ON:
010974,000824:                                                                                                 #                         CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
010975,000825:                                                                                                 #                          FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
010976,000826:                                                                                                 #                          OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
010977,000827:                                                                                                 #                         FLASH MONITOR V16N44 (HAPO, HPER, TFF).
010978,000828:                                                                                                 #                          IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
010979,000829:                                                                                                 #                          RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
010980,000830: 
010981,000831:                                                                                                 #  ADDENDUM:      HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
010982,000832:                                                                                                 #                 ABOVE REMARKS.
010983,000833: 
010984,000834: 43,2562           02076        V82PERF           TC       TESTXACT                              
010985,000835: 
010986,000836: 43,2563           35063                          CAF      PRIO7                                 
010987,000837: 43,2564           05210                          TC       PRIOCHNG                              
010988,000838: 43,2565           04701                          TC       POSTJUMP                              
010989,000839: 43,2566           46332                          CADR     V82CALL                               #  ***** V82CALL MUST NOT BE A FINDVAC JOB.
010990,000840: 
010991,000841:                                                                                                 #  VB83PERF       VERB 83         DESCRIPTION
010992,000842:                                                                                                 #         REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
010993,000843: 
010994,000844:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
010995,000845:                                                                                                 #         2.      SCHEDULE V83CALL WITH PRIORITY 10.
010996,000846:                                                                                                 #                 A.      DISPLAY
010997,000847:                                                                                                 #                         R1      RANGE
010998,000848:                                                                                                 #                         R2      RANGE RATE
010999,000849:                                                                                                 #                         R3      THETA
011000,000850: 
011001,000851: 43,2567           02076        V83PERF           TC       TESTXACT                              
011002,000852: 43,2570           00004                          INHINT                                         
011003,000853: 43,2571           40105                          CS       FLAGWRD9                              #  SET R31 FLAG-BIT 4 FLAGWRD9
011004,000854: 43,2572           75014                          MASK     R31FLBIT                              
011005,000855: 43,2573           26105                          ADS      FLAGWRD9                              
011006,000856: 43,2574           35061                          CAF      PRIO5                                 
011007,000857: 43,2575           05134                          TC       NOVAC                                 
011008,000858: 43,2576  E4,1770                                 EBANK=   SUBEXIT                               
011009,000859: 43,2576           02000 62064                    2CADR    R31CALL                               
011010,000860: 
011011,000861: 43,2600           05217                          TC       ENDOFJOB                              
011012,000862: 
011013,000863:                                                                                                 #  Page 256
011014,000864: 43,2601           02076        V85PERF           TC       TESTXACT                              
011015,000865: 43,2602           00004                          INHINT                                         
011016,000866: 43,2603           45014                          CS       R31FLBIT                              #  RESET R31 FLAG TO INDICATE R34
011017,000867: 43,2604           70105                          MASK     FLAGWRD9                              
011018,000868: 43,2605           54105                          TS       FLAGWRD9                              
011019,000869: 43,2606           02574                          TC       V83PERF    +5                         
011020,000870:                                                                                                 #  Page 257
011021,000871:                                                                                                 #         GOTOR21         VERB 57
011022,000872:                                                                                                 #         GOTOR23-        VERB 54         DESCRIPTION
011023,000873:                                                                                                 #  SET UP MARKING FOR R22 (REND TRACK DATA PROC)
011024,000874:                                                                                                 #  1.     SET EXT VERB DISPLAY BUSY FLAG
011025,000875:                                                                                                 #  2.     IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
011026,000876:                                                                                                 #         SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
011027,000877:                                                                                                 #  3.     RELEASE EXT VERB DISPLAY SYSTEM
011028,000878: 
011029,000879: 43,2607           05560        GOTOR21           TC       DOWNFLAG                              #  CLEAR R23FLG
011030,000880: 43,2610           00025                          ADRES    R23FLG                                #  BIT 9 FLAG 1
011031,000881: 43,2611           02614                          TC       +3                                    
011032,000882: 43,2612           05546        GOTOR23           TC       UPFLAG                                #  SET R23FLG
011033,000883: 43,2613           00025                          ADRES    R23FLG                                #  BIT 9 FLAG 1
011034,000884: 43,2614           02076                          TC       TESTXACT                              
011035,000885: 43,2615           30074                          CA       FLAGWRD0                              #  VB 57  UNACCEPTABLE UNLESS BOTH
011036,000886: 43,2616           75011                          MASK     RNDVZBIT                              #         RENDEZVOUS AND TRACK FLAGS ON
011037,000887: 43,2617           00006                          EXTEND                                         
011038,000888: 43,2620           12643                          BZF      R22ALARM                              
011039,000889: 
011040,000890: 43,2621           30075                          CA       FLAGWRD1                              
011041,000891: 43,2622           75013                          MASK     TRACKBIT                              
011042,000892: 43,2623           00006                          EXTEND                                         
011043,000893: 43,2624           12643                          BZF      R22ALARM                              
011044,000894: 
011045,000895: 43,2625           30075                          CA       FLAGWRD1                              #  TEST R23FLG
011046,000896: 43,2626           75007                          MASK     R23BIT                                
011047,000897: 43,2627           00006                          EXTEND                                         
011048,000898: 43,2630           12636                          BZF      REGR21                                #  R21
011049,000899: 43,2631           35070                          CAF      PRIO16                                
011050,000900: 43,2632           05134                          TC       NOVAC                                 
011051,000901: 43,2633  E7,1725                                 EBANK=   MRKBUF1                               
011052,000902: 43,2633           02470 76067                    2CADR    R23CSM                                
011053,000903: 
011054,000904: 43,2635           05217                          TC       ENDOFJOB                              
011055,000905: 43,2636           35070        REGR21            CAF      PRIO16                                
011056,000906: 43,2637           05134                          TC       NOVAC                                 
011057,000907: 43,2640  E7,1725                                 EBANK=   MRKBUF1                               
011058,000908: 43,2640           02466 76067                    2CADR    R21CSM                                
011059,000909: 
011060,000910: 43,2642           05217                          TC       ENDOFJOB                              
011061,000911: 43,2643           05650        R22ALARM          TC       ALARM                                 #  VERB 57 WAS SELECTED AND NEITHER REND
011062,000912: 43,2644           00406                          OCT      00406                                 #         NOR TRACK FLAG WERE ON.
011063,000913: 43,2645           05534                          TC       ENDEXT                                
011064,000914: 
011065,000915:                                                                                                 #  Page 258
011066,000916:                                                                                                 #  VERB 86        DESCRIPTION
011067,000917:                                                                                                 #         V86 IS TO R23 AS MARK REJECT IS TO R21
011068,000918:                                                                                                 #         V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE)
011069,000919: 
011070,000920: 43,2646  E7,1725                                 EBANK=   MRKBUF1                               
011071,000921: 43,2646           35060        V86PERF           CAF      EBANK7                                #  BACKUP MARK REJECT (R23)
011072,000922: 43,2647           56003                          XCH      EBANK                                 
011073,000923: 43,2650           37716                          CA       NEGONE                                
011074,000924: 43,2651           55725                          TS       MRKBUF1                               
011075,000925: 43,2652           02121                          TC       GOPIN                                 
011076,000926: 
011077,000927:                                                                                                 #  Page 259
011078,000928:                                                                                                 #  TRACKTRM       VERB 56         DESCRIPTION
011079,000929:                                                                                                 #         TERMINATE TRACKING (P20)
011080,000930:                                                                                                 #         1.      KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011081,000931:                                                                                                 #         2.      REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOP00H (REQUEST PROGRAM 00).
011082,000932:                                                                                                 #         3.      REQUIRE R22 RUNNING OR GO TO PINBRNCH.
011083,000933:                                                                                                 #         4.      IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22
011084,000934:                                                                                                 #         3.      KNOCK DOWN RENDEZFOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
011085,000935:                                                                                                 #         4.      GO TO ENEMA (SOFTWARE RESTART).
011086,000936:                                                                                                 #         REFERENCE
011087,000937:                                                                                                 #                 P20     RENDEZVOUS      NAVIGATION
011088,000938:                                                                                                 #                 R21     RENDEZVOUS      TRACKING SIGHTING MARK.
011089,000939:                                                                                                 #                 R22     RENDEZVOUS      TRACKING DATA PROCESSING.
011090,000940: 
011091,000941: 43,2653           35011        TRACKTRM          CA       RNDVZBIT                              #  IS REND FLAG ON
011092,000942: 43,2654           70074                          MASK     FLAGWRD0                              
011093,000943: 43,2655           00006                          EXTEND                                         
011094,000944: 43,2656           12121                          BZF      GOPIN                                 #  NO
011095,000945: 
011096,000946: 43,2657           05560                          TC       DOWNFLAG                              
011097,000947: 43,2660           00010                          ADRES    RNDVZFLG                              
011098,000948: 
011099,000949: 43,2661           35013                          CA       TRACKBIT                              #  IS TRACK FLAG ON
011100,000950: 43,2662           70075                          MASK     FLAGWRD1                              
011101,000951: 43,2663           00006                          EXTEND                                         
011102,000952: 43,2664           12121                          BZF      GOPIN                                 #  NO
011103,000953: 
011104,000954: 43,2665           05560                          TC       DOWNFLAG                              
011105,000955: 43,2666           00031                          ADRES    TRACKFLG                              
011106,000956: 
011107,000957: 43,2667           05560                          TC       DOWNFLAG                              
011108,000958: 43,2670           00027                          ADRES    UPDATFLG                              
011109,000959: 
011110,000960: 43,2671           05560                          TC       DOWNFLAG                              
011111,000961: 43,2672           00007                          ADRES    IMUSE                                 
011112,000962: 
011113,000963: 43,2673           35057                          CAF      EBANK6                                
011114,000964: 43,2674           54003                          TS       EBANK                                 
011115,000965: 
011116,000966: 43,2675           00004                          INHINT                                         
011117,000967: 43,2676           04526                          TC       STOPRATE                              
011118,000968: 
011119,000969: 43,2677           37716                          CAF      NEGONE                                
011120,000970: 43,2700           55303                          TS       OPTIND                                
011121,000971: 
011122,000972: 43,2701           06006                          TC       INTPRET                               
011123,000973: 43,2702           77624                          CALL                                           
011124,000974: 43,2703           27442                                   INTSTALL                              #  DON'T INTERRUPT INTEGRATION
011125,000975: 43,2704           77776                          EXIT                                           
011126,000976: 
011127,000977: 43,2705           05372                          TC       2PHSCHNG                              
011128,000978:                                                                                                 #  Page 260
011129,000979: 43,2706           00002                          OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
011130,000980: 43,2707           00001                          OCT      1                                     #  ALSO KILL GROUP 1
011131,000981: 
011132,000982: 43,2710           00004        CLEANOUT          INHINT                                         
011133,000983: 43,2711           04701                          TC       POSTJUMP                              
011134,000984: 43,2712           12651                          CADR     ENEMA                                 #  CAUSE RESTART
011135,000985: 
011136,000986:                                                                                                 #  LEMVEC VERB 80         DESCRIPTION
011137,000987:                                                                                                 #         UPDATE LEM STATE VECTOR
011138,000988:                                                                                                 #                 RESET VEHUPFLG TO 0
011139,000989: 
011140,000990: 43,2713           05560        LEMVEC            TC       DOWNFLAG                              
011141,000991: 43,2714           00026                          ADRES    VEHUPFLG                              #  VEHUPFLG DOWN INDICATES LEM
011142,000992: 
011143,000993: 43,2715           12121                          TCF      GOPIN                                 
011144,000994: 
011145,000995:                                                                                                 #  CSMVEC VERB 81         DESCRIPTION
011146,000996:                                                                                                 #         UPDATE CSM STATE VECTOR
011147,000997:                                                                                                 #                 SET VEHUPFLG TO 1
011148,000998: 
011149,000999: 43,2716           05546        CSMVEC            TC       UPFLAG                                
011150,001000: 43,2717           00026                          ADRES    VEHUPFLG                              #  VEHUPFLG UP INDICATES CM
011151,001001: 
011152,001002: 43,2720           12121                          TCF      GOPIN                                 
011153,001003: 
011154,001004:                                                                                                 #  DNEDUMP        VERB 74         DESCRIPTION
011155,001005:                                                                                                 #         INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011156,001006: 
011157,001007:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011158,001008:                                                                                                 #         2.      REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011159,001009:                                                                                                 #         3.      RELEASE EXT VERB DISPLAY.
011160,001010: 
011161,001011: 43,2721     0010                                 EBANK=   10                                    
011162,001012: 43,2721           32724        DNEDUMP           CAF      LDNDUMPI                              
011163,001013: 43,2722           54335                          TS       DNTMGOTO                              
011164,001014: 43,2723           02121                          TC       GOPIN                                 
011165,001015: 
011166,001016: 43,2724  43,2721               V74               EQUALS   DNEDUMP                               
011167,001017: 43,2724           03722        LDNDUMPI          REMADR   DNDUMPI                               
011168,001018: 
011169,001019:                                                                                                 #  LFTFLGON       VERB 75         DESCRIPTION
011170,001020:                                                                                                 #         SET LIFT-OFF FLAG
011171,001021:                                                                                                 #         1.      SETUP GRRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
011172,001022:                                                                                                 #         2.      RETURN VIA PINBRNCH
011173,001023: 
011174,001024: 43,2725           05546        LFTFLGON          TC       UPFLAG                                #  VB 75 -- SET LIFTOFF FLAG BIT
011175,001025: 43,2726           00125                          ADRES    GRRBKFLG                              #  BIT 5 FLAG 5
011176,001026: 43,2727           02121                          TC       GOPIN                                 
011177,001027: 
011178,001028:                                                                                                 #  Page 261
011179,001029: 43,2730           31011        CHKP00H           CA       MODREG                                
011180,001030: 43,2731           00006                          EXTEND                                         
011181,001031: 43,2732           16711                          BZF      TCQ                                   
011182,001032: 43,2733           12120                          TCF      ALM/END                               
011183,001033: 
011184,001034: 43,2734           00006        EXDAPOFF          EXTEND                                         
011185,001035: 43,2735           32744                          DCA      IDLECADR                              #  SET T5 TO IDLE.
011186,001036: 43,2736           53313                          DXCH     T5LOC                                 
011187,001037: 43,2737           44105                          CS       OCT60000                              
011188,001038: 43,2740           70102                          MASK     FLAGWRD6                              #  RESET DAPBITS 1 AND 2.
011189,001039: 43,2741           54102                          TS       FLAGWRD6                              
011190,001040: 43,2742           00002                          TC       Q                                     
011191,001041: 
011192,001042: 43,2743  E6,1423                                 EBANK=   PACTOFF                               
011193,001043: 43,2743           03153 12106  IDLECADR          2CADR    T5IDLOC                               
011194,001044: 
011195,001045:                                                                                                 #  Page 262
011196,001046:                                                                                                 #  VERB 89        DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011197,001047:                                                                                                 #  
011198,001048:                                                                                                 #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 IS USED.  CALCULATES AND
011199,001049:                                                                                                 #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
011200,001050:                                                                                                 #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
011201,001051: 
011202,001052:                                                                                                 #  1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
011203,001053:                                                                                                 #  EXIT R63, OTHERWISE CONTINUE.
011204,001054: 
011205,001055:                                                                                                 #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH).  IF IMU ON AND ITS
011206,001056:                                                                                                 #  ORIENTATION KNOWN TO CGC, CONTINUE.
011207,001057: 
011208,001058:                                                                                                 #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011209,001059:                                                                                                 #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS (R2=1).
011210,001060:                                                                                                 #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
011211,001061:                                                                                                 #  AFTER KEYING IN PROCEED.
011212,001062: 
011213,001063:                                                                                                 #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED.  SET FLAG
011214,001064:                                                                                                 #  FOR PREFERRED AXIS.  RESET FLAG FOR X AXIS.
011215,001065: 
011216,001066:                                                                                                 #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
011217,001067: 
011218,001068:                                                                                                 #         R63COMP JOB:
011219,001069: 
011220,001070:                                                                                                 #                 UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS.
011221,001071: 
011222,001072:                                                                                                 #                 CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
011223,001073: 
011224,001074:                                                                                                 #                 DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
011225,001075:                                                                                                 #                 ARE STORED FOR LATER R60CSM CALL.
011226,001076: 
011227,001077:                                                                                                 #  6.  FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
011228,001078: 
011229,001079:                                                                                                 #  7.  RECYCLE:  RETURN TO STEP 5.
011230,001080:                                                                                                 #      TERMINATE:  EXIT R63 ROUTINE
011231,001081:                                                                                                 #      PROCEED:  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
011232,001082: 
011233,001083: 43,2745           02730        V89PERF           TC       CHKP00H                               #  DEMAND P00
011234,001084: 43,2746           02076                          TC       TESTXACT                              
011235,001085: 43,2747           00004                          INHINT                                         
011236,001086: 43,2750           35003                          CAF      PRIO10                                
011237,001087: 43,2751           05147                          TC       FINDVAC                               
011238,001088: 43,2752  E4,1715                                 EBANK=   P21TIME                               
011239,001089: 43,2752           03712 70064                    2CADR    V89CALL                               
011240,001090: 
011241,001091: 43,2754           15217                          TCF      ENDOFJOB                              
011242,001092: 
011243,001093: 43,2755           05560        WMATRXNG          TC       DOWNFLAG                              #  RESET RENDWFLAG
011244,001094: 43,2756           00131                          ADRES    RENDWFLG                              
011245,001095:                                                                                                 #  Page 263
011246,001096: 
011247,001097: 43,2757           05560                          TC       DOWNFLAG                              #  RESET ORBWFLAG
011248,001098: 43,2760           00066                          ADRES    ORBWFLAG                              
011249,001099: 43,2761           02121                          TC       GOPIN                                 
011250,001100: 
011251,001101: 43,2762  43,2762               GOSHOSUM          EQUALS   SHOWSUM                               
011252,001102: 
011253,001103: 43,2762           02730        SHOWSUM           TC       CHKP00H                               
011254,001104: 43,2763           02076                          TC       TESTXACT                              #  *
011255,001105: 43,2764           35017                          CAF      S+1                                   #  *
011256,001106: 43,2765           55376                          TS       SKEEP6                                #  * SHOWSUM OPTION
011257,001107: 43,2766           35021                          CAF      S+ZERO                                #  *
011258,001108: 43,2767           55362                          TS       SMODE                                 #  * TURN OFF SELF-CHECK
011259,001109: 43,2770           33247                          CA       SELFADRS                              #  *
011260,001110: 43,2771           55361                          TS       SELFRET                               #  *
011261,001111: 43,2772           03524                          TC       STSHOSUM                              #  * ENTER ROPECHK
011262,001112: 
011263,001113: 43,2773           23372        SDISPLAY          LXCH     SKEEP2                                #  * BNK NO FOR DSP
011264,001114: 43,2774           23373                          LXCH     SKEEP3                                #  * BUGGER WORD FOR DSP
011265,001115: 43,2775           33246        NOKILL            CA       ADRS1                                 #  *
011266,001116: 43,2776           54156                          TS       MPAC       +2                         #  *
011267,001117: 43,2777           33010                          CA       VNCON                                 #  * 0501
011268,001118: 43,3000           04662                          TC       BANKCALL                              #  *
011269,001119: 43,3001           20561                          CADR     GOXDSPF                               #  *
011270,001120: 43,3002           03005                          TC       +3                                    #  *
011271,001121: 43,3003           03635                          TC       NXTBNK                                #  *
011272,001122: 43,3004           02775                          TC       NOKILL                                #  *
011273,001123: 43,3005           33247                          CA       SELFADRS                              
011274,001124: 43,3006           55371                          TS       SKEEP1                                
011275,001125: 
011276,001126: 43,3007           05534                          TC       ENDEXT                                #  *
011277,001127: 
011278,001128: 43,3010           01201        VNCON             VN       501                                   #  *
011279,001129: 
011280,001130: 43,3011           31376        ENDSUMS           CA       SKEEP6                                #  *
011281,001131: 43,3012           00006                          EXTEND                                         #  *
011282,001132: 43,3013           13340                          BZF      SELFCHK                               #  * ROPECHK, START SELFCHK AGAIN.
011283,001133: 43,3014           03524                          TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
011284,001134: 
011285,001135: 
011286,001136:                                                                                                 #  VB 76 --- SET PREFERRED ATTITUDE FLAG --- DRIVE TO PREFERRED.
011287,001137: 
011288,001138: 43,3015           05546        SETPRFLG          TC       UPFLAG                                
011289,001139: 43,3016           00120                          ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011290,001140: 43,3017           02121                          TC       GOPIN                                 
011291,001141: 
011292,001142:                                                                                                 #  VB 77 --- RESET PREFERRED ATTITUDE FLAG --- DRIVE TO +X-AXIS ATT.
011293,001143: 
011294,001144: 43,3020           05560        RESETPRF          TC       DOWNFLAG                              
011295,001145: 43,3021           00120                          ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011296,001146: 43,3022           02121                          TC       GOPIN                                 
011297,001147: 
011298,001148:                                                                                                 #  Page 264
011299,001149:                                                                                                 #  VB 87 --- SET VHF RANGE FLAG --- ALLOWS R22 TO ACCEPT RANGE DATA.
011300,001150: 
011301,001151: 43,3023           06006        SETVHFLG          TC       INTPRET                               
011302,001152: 43,3024           77414                          SET      EXIT                                  
011303,001153: 43,3025           04466                                   VHFRFLAG                              
011304,001154: 43,3026           02121                          TC       GOPIN                                 
011305,001155: 
011306,001156:                                                                                                 #  VB 88 --- RESET VHF RANGE FLAG --- STOPS ACCEPTANCE OF RANGE DATA.
011307,001157: 
011308,001158: 43,3027           06006        RESETVHF          TC       INTPRET                               
011309,001159: 43,3030           77414                          CLEAR    EXIT                                  
011310,001160: 43,3031           04666                                   VHFRFLAG                              
011311,001161: 43,3032           05631                          TC       TRFAILOF                              #  TRACKER FAIL LIGHT
011312,001162: 
011313,001163: 43,3033           02121                          TC       GOPIN                                 
011314,001164: 
011315,001165:                                                                                                 #  VERB 66.       VEHICLES ARE ATTACHED. --- MOVE THIS VEHICLE STATE VECTOR TO
011316,001166:                                                                                                 #                 OTHER VEHICLE STATE VECTOR.
011317,001167: 
011318,001168:                                                                                                 #  USE SUBROUTINE GENTRAN.
011319,001169: 
011320,001170: 43,3034  E3,1554                                 EBANK=   RRECTHIS                              
011321,001171: 43,3034           35003        ATTACHED          CAF      PRIO10                                
011322,001172: 43,3035           05147                          TC       FINDVAC                               
011323,001173: 43,3036  E3,1554                                 EBANK=   RRECTHIS                              
011324,001174: 43,3036           03041 66103                    2CADR    ATTACHIT                              
011325,001175: 
011326,001176: 43,3040           05217                          TC       ENDOFJOB                              
011327,001177: 
011328,001178: 43,3041           06006        ATTACHIT          TC       INTPRET                               
011329,001179: 43,3042           77624                          CALL                                           
011330,001180: 43,3043           27442                                   INTSTALL                              
011331,001181: 43,3044           43014                          SET      BON                                   
011332,001182: 43,3045           04064                                   MOONOTH                               
011333,001183: 43,3046           04303                                   MOONTHIS                              
011334,001184: 43,3047           67052                                   +3                                    
011335,001185: 43,3050           77614                          CLEAR                                          
011336,001186: 43,3051           04264                                   MOONOTH                               
011337,001187: 43,3052           77776                          EXIT                                           
011338,001188: 43,3053           33100                          CAF      OCT51                                 
011339,001189: 43,3054           05606                          TC       GENTRAN                               
011340,001190: 43,3055           01554                          ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
011341,001191: 43,3056           01626                          ADRES    RRECTOTH                              
011342,001192: 
011343,001193: 43,3057           00003        TACHEXIT          RELINT                                         
011344,001194: 43,3060           06006                          TC       INTPRET                               
011345,001195: 43,3061           77624                          CALL                                           #  UPDATE RN, VN, R-OTHER, V-OTHER
011346,001196: 43,3062           26731                                   PTOACSM                               
011347,001197:                                                                                                 #  Page 265
011348,001198: 43,3063           45154                          LXA,2    CALL                                  
011349,001199: 43,3064           02150                                   PBODY                                 
011350,001200: 43,3065           20237                                   SVDWN1                                
011351,001201: 43,3066           77624                          CALL                                           
011352,001202: 43,3067           20263                                   SVDWN2                                
011353,001203: 43,3070           77776                          EXIT                                           
011354,001204: 
011355,001205: 43,3071           33101                          CAF      TCPINAD                               
011356,001206: 43,3072           50120                          INDEX    FIXLOC                                
011357,001207: 43,3073           54052                          TS       QPRET                                 
011358,001208: 43,3074           04701                          TC       POSTJUMP                              
011359,001209: 43,3075           27457                          CADR     INTWAKE                               
011360,001210: 
011361,001211: 43,3076           77634        TCPIN             RTB                                            
011362,001212: 43,3077           21272                                   PINBRNCH                              
011363,001213: 
011364,001214: 43,3100           00051        OCT51             OCT      51                                    
011365,001215: 43,3101           67076        TCPINAD           CADR     TCPIN                                 
011366,001216: 
011367,001217:                                                                                                 #  VERB 47.  MOVE LM STATE VECTOR INTO CSM STATE VECTOR
011368,001218: 
011369,001219: 43,3102           35003        LMTOCMSV          CAF      PRIO10                                
011370,001220: 43,3103           05147                          TC       FINDVAC                               
011371,001221: 43,3104  E3,1554                                 EBANK=   RRECTHIS                              
011372,001222: 43,3104           03107 66103                    2CADR    LMTOCM                                
011373,001223: 
011374,001224: 43,3106           05217                          TC       ENDOFJOB                              
011375,001225: 
011376,001226: 43,3107           06006        LMTOCM            TC       INTPRET                               
011377,001227: 43,3110           77624                          CALL                                           
011378,001228: 43,3111           27442                                   INTSTALL                              
011379,001229: 43,3112           43014                          SET      BON                                   
011380,001230: 43,3113           04063                                   MOONTHIS                              
011381,001231: 43,3114           04304                                   MOONOTH                               
011382,001232: 43,3115           67120                                   +3                                    
011383,001233: 43,3116           77614                          CLEAR                                          
011384,001234: 43,3117           04263                                   MOONTHIS                              
011385,001235: 43,3120           77776                          EXIT                                           
011386,001236: 
011387,001237: 43,3121           33100                          CAF      OCT51                                 
011388,001238: 43,3122           05606                          TC       GENTRAN                               
011389,001239: 43,3123           01626                          ADRES    RRECTOTH                              #  LM STATE VECTOR INTO CM VIA GENTRAN
011390,001240: 43,3124           01554                          ADRES    RRECTHIS                              
011391,001241: 
011392,001242: 43,3125           13057                          TCF      TACHEXIT                              
011393,001243: 
011394,001244:                                                                                                 #  VERB 94 --- DO R64 VIA ENEMA TO PICK UP IN P23.
011395,001245: 
011396,001246: 43,3126           35005        VERB94            CAF      V94FLBIT                              
011397,001247: 43,3127           70105                          MASK     FLAGWRD9                              #  IS V94FLAG SET
011398,001248:                                                                                                 #  Page 266
011399,001249: 43,3130           00006                          EXTEND                                         
011400,001250: 43,3131           12120                          BZF      ALM/END                               #  NO --- OPERATOR ERROR
011401,001251: 
011402,001252: 43,3132           05560                          TC       DOWNFLAG                              
011403,001253: 43,3133           00213                          ADRES    V94FLAG                               
011404,001254: 
011405,001255: 43,3134           05364                          TC       CHECKMM                               #  IS IT P23
011406,001256: 43,3135           00027                          MM       23         B-14                       
011407,001257: 43,3136           02120                          TC       ALM/END                               #  NO -- OPERATOR ERROR
011408,001258: 43,3137           05412                          TC       PHASCHNG                              
011409,001259: 43,3140           00112                          OCT      112                                   #  SET GROUP 2 TO DO R64
011410,001260: 
011411,001261: 43,3141           02710                          TC       CLEANOUT                              #  CAUSE RESTART
011412,001262: 
011413,001263:                                                                                                 #  V90PERF        VERB 90         DESCRIPTION
011414,001264:                                                                                                 #         REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011415,001265: 
011416,001266:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011417,001267:                                                                                                 #         2.      SCHEDULE R36 CALL WITH PRIORITY 10
011418,001268:                                                                                                 #                 A.      DISPLAY
011419,001269:                                                                                                 #                         TIME OF EVENT -- HOURS, MINUTES, SECONDS
011420,001270:                                                                                                 #                         Y       OUT-OF-PLANE POSITION -- NAUTICAL MILES
011421,001271:                                                                                                 #                         YDOT    OUT-OF-PLANE VELOCITY -- FEET/SECOND
011422,001272:                                                                                                 #                         PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
011423,001273:                                                                                                 #                                 DIRECTION VECTOR IN HORIZONTAL PLANE -- DEGREES
011424,001274: 
011425,001275: 43,3142           02076        V90PERF           TC       TESTXACT                              
011426,001276: 43,3143           35063                          CAF      PRIO7                                 #  R36,V90
011427,001277: 43,3144           05147                          TC       FINDVAC                               
011428,001278: 43,3145  E4,1726                                 EBANK=   RPASS36                               
011429,001279: 43,3145           02164 40104                    2CADR    R36                                   
011430,001280: 
011431,001281: 43,3147           15217                          TCF      ENDOFJOB                              
011432,001282: 
011433,001283:                                                                                                 #  VERB 96  SET QUITFLAG TO STOP INTEGRATION
011434,001284: 
011435,001285: 43,3150           05546        VERB96            TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
011436,001286: 43,3151           00221                          ADRES    QUITFLAG                              #         AT NEXT TIMESTEP
011437,001287: 
011438,001288: 43,3152           05546                          TC       UPFLAG                                
011439,001289: 43,3153           00204                          ADRES    V96ONFLG                              
011440,001290: 43,3154           35021                          CAF      ZERO                                  
011441,001291: 43,3155           04701                          TC       POSTJUMP                              
011442,001292: 43,3156           10011                          CADR     V37                                   #  GO TO P00
011443,001293: 
011444,001294: 43,3157  0002751                                 EBANK=   LANDMARK                              
011445,001295: 43,3157           05364        V52               TC       CHECKMM                               #  IS P22 OPERATING
011446,001296: 43,3160           00026                          MM       22         B-14                       
011447,001297: 43,3161           02120                          TC       ALM/END                               #  NO
011448,001298: 43,3162           33200                          CAF      LANDBANK                              
011449,001299: 43,3163           54003                          TS       EBANK                                 
011450,001300: 
011451,001301:                                                                                                 #  Page 267
011452,001302: 43,3164           45063                          CS       PRIO7                                 #  YES    SET BITS 12,11,10 OF LANDMARK =
011453,001303: 43,3165           71751                          MASK     LANDMARK                              #         BITS 14,13,12 OF MARKSTAT AFTER
011454,001304: 43,3166           55751                          TS       LANDMARK                              #         SUBT. THEM FROM 5 TO GET OFFSET
011455,001305: 43,3167           31330                          CA       MARKSTAT                              #         MARK NO.
011456,001306: 43,3170           54021                          TS       SR                                    
011457,001307: 43,3171           30021                          CA       SR                                    
011458,001308: 43,3172           30021                          CA       SR                                    
011459,001309: 43,3173           75063                          MASK     PRIO7                                 
011460,001310: 43,3174           40000                          CS       A                                     
011461,001311: 43,3175           65061                          AD       PRIO5                                 
011462,001312: 43,3176           27751                          ADS      LANDMARK                              
011463,001313: 43,3177           02121                          TC       GOPIN                                 
011464,001314: 43,3200           02751        LANDBANK          ECADR    LANDMARK                              
011465,001315: 
011466,001316:                                                                                                 #  VERB 67  ASTRONAUT DISPLAY OF W MATRIX
011467,001317: 
011468,001318: 43,3201           02076        V67               TC       TESTXACT                              
011469,001319: 43,3202           35061                          CAF      PRIO5                                 
011470,001320: 43,3203           05147                          TC       FINDVAC                               
011471,001321: 43,3204  0002400                                 EBANK=   W                                     
011472,001322: 43,3204           03624 60105                    2CADR    V67CALL                               
011473,001323: 
011474,001324: 43,3206           05217                          TC       ENDOFJOB                              
011475,001325: 
011476,001326:                                                                                                 #  VB 44. SET SURFACE FLAG.
011477,001327: 
011478,001328: 43,3207           05546        SETSURF           TC       UPFLAG                                
011479,001329: 43,3210           00177                          ADRES    SURFFLAG                              
011480,001330: 43,3211           12121                          TCF      GOPIN                                 
011481,001331: 
011482,001332:                                                                                                 #  VB 45. RESET SURFACE FLAG
011483,001333: 
011484,001334: 43,3212           05560        RESTSRF           TC       DOWNFLAG                              
011485,001335: 43,3213           00177                          ADRES    SURFFLAG                              
011486,001336: 43,3214           12121                          TCF      GOPIN                                 

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