Source Code

009865,000001: # Copyright: Public domain. 009866,000002: # Filename: EXTENDED_VERBS.agc 009867,000003: # Purpose: Part of the source code for Colossus, build 249. 009868,000004: # It is part of the source code for the Command Module's (CM) 009869,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 009870,000006: # Assembler: yaYUL 009871,000007: # Reference: pp. 232-264 of 1701.pdf. 009872,000008: # Contact: Ron Burkey <info@sandroid.org>. 009873,000009: # Website: www.ibiblio.org/apollo. 009874,000010: # Mod history: 08/07/04 RSB Began adapting from corresponding Luminary 009875,000011: # 131 file. 009876,000012: # 2011-05-07 JL Removed workarounds. Flag SBANK= workarounds 009877,000013: # for future removal. 009878,000014: 009879,000015: # The contents of the "Colossus249" files, in general, are transcribed 009880,000016: # from a scanned document obtained from MIT's website, 009881,000017: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 009882,000018: # document read, in part: 009883,000019: 009884,000020: # Assemble revision 249 of AGC program Colossus by NASA 009885,000021: # 2021111-041. October 28, 1968. 009886,000022: 009887,000023: # This AGC program shall also be referred to as 009888,000024: # Colossus 1A 009889,000025: 009890,000026: # Prepared by 009891,000027: # Massachusetts Institute of Technology 009892,000028: # 75 Cambridge Parkway 009893,000029: # Cambridge, Massachusetts 009894,000030: # under NASA contract NAS 9-4065. 009895,000031: 009896,000032: # Refer directly to the online document mentioned above for further information. 009897,000033: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 009898,000034: 009899,000035: # In some cases, where the source code for Luminary 131 overlaps that of 009900,000036: # Colossus 249, this code is instead copied from the corresponding Luminary 131 009901,000037: # source file, and then is proofed to incorporate any changes. 009902,000038: 009903,000039: # Page 232 009904,000040: 07,2440 BANK 7 009905,000041: 43,2000 SETLOC EXTVERBS 009906,000042: 43,2000 BANK 009907,000043: 009908,000044: 43,2000 0002757 EBANK= OGC 009909,000045: 009910,000046: 43,2000 COUNT* $$/EXTVB 009911,000047: 009912,000048: # FAN-OUT 009913,000049: 009914,000050: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC 009915,000051: 43,2001 02002 TC LST2FAN # FAN AS BEFROE. 009916,000052: 009917,000053: 43,2002 02124 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY) 009918,000054: 43,2003 02150 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR 009919,000055: # 91 ONLY) 009920,000056: 43,2004 02240 TC IMUFINEK # VB42 FINE ALIGN IMU 009921,000057: 43,2005 02412 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS. 009922,000058: 43,2006 03203 TC SETSURF # VB44 SET SURFACE FLAG 009923,000059: 43,2007 03206 TC RESTSRF # VB45 RESET SURFACE FLAG 009924,000060: 43,2010 02516 TC STABLISH # VB46 ESTABLISH G+C CONTROL 009925,000061: 43,2011 03100 TC LMTOCMSV # VB47 MOVE LM STATE VECTOR INTO CM 009926,000062: 43,2012 02536 TC DAPDISP # VB48 LOAD A/P DATA 009927,000063: 43,2013 12527 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER 009928,000064: 43,2014 02275 TC GOLOADLV # VB50 PLEASE PERFORM 009929,000065: 43,2015 02275 TC GOLOADLV # VB51 PLEASE MARK 009930,000066: 43,2016 03153 TC V52 # VB52 SET OFFSET NO. FOR P22 009931,000067: 43,2017 02275 TC GOLOADLV # VB53 PLEASE PERFORM COAS MARK 009932,000068: 43,2020 02576 TC GOTOR23 # VB54 PLEASE MARK 009933,000069: 43,2021 02326 TC ALINTIME # VB55 ALIGN TIME 009934,000070: 43,2022 02637 TC TRACKTRM # VB56 TERMINATE TRACKING -- P20 + P25 009935,000071: 43,2023 02573 TC GOTOR21 # VB57 START R21 REND TRACK SIGHT MARK ROUT 009936,000072: 43,2024 02502 TC ENATMA # VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER 009937,000073: 43,2025 02275 TC GOLOADLV # VB59 PLEASE CALIBRATE 009938,000074: 43,2026 02303 TC V60 # VB60 SET CPHIX (N17) EQUAL TO CDU 009939,000075: 43,2027 02311 TC V61 # VB61 SELECT MODE I 009940,000076: 43,2030 02314 TC V62 # VB62 SELECT MODE II, ERROR WRT N22 009941,000077: 43,2031 02321 TC V63 # VB63 SELECT MODE III, ERROR WRT N17 009942,000078: 43,2032 02472 TC VB64 # VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES 009943,000079: 43,2033 02367 TC CKOPTVB # VB65 V65 & OPTICAL VERIFICATION FOR PRELAUNCH 009944,000080: 43,2034 03032 TC ATTACHED # VB66 ATTACHED MOVE THIS TO OTHER STATE 009945,000081: 43,2035 03175 TC V67 # VB67 W MATRIX MONITOR 009946,000082: 43,2036 02505 TC STROKON # VB68 CSM STROKE TEST ON 009947,000083: 43,2037 02037 VERB69 TC VERB69 # VB69 CAUSE RESTART 009948,000084: 43,2040 03722 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME. 009949,000085: 43,2041 03724 TC V71UPDAT # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS 009950,000086: 43,2042 03726 TC V72UPDAT # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS 009951,000087: 43,2043 03730 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL) 009952,000088: 43,2044 02706 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM 009953,000089: # FOR ERASABLE DUMP. 009954,000090: 43,2045 02712 TC LFTFLGON # VB75 SET LIFTOFF FLAG. 009955,000091: # Page 233 009956,000092: 43,2046 03013 TC SETPRFLG # VB76 SET PREFERRED ATTITUDE FLAG 009957,000093: 43,2047 03016 TC RESETPRF # VB77 RESET PREFERRED ATT. FLAG 009958,000094: 43,2050 02400 TC CHAZFOGC # CHANGE GYROCOMPASS LAUNCH AZIMUTH V78 009959,000095: 43,2051 03004 TC CALLR35 # VB79 REQU LUNAR LNDMRK SELECTION (R35) 009960,000096: 43,2052 02700 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR 009961,000097: 43,2053 02703 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR 009962,000098: 43,2054 02546 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30) 009963,000099: 43,2055 02553 TC V83PERF # VB83 RANGE, RANGE RATE, +X AXIS (R31) 009964,000100: 43,2056 02120 TC ALM/END # V84 SPARE 009965,000101: 43,2057 02565 TC V85PERF # VB85 RANGE, RANGE RATE, SLOS (R32) 009966,000102: 43,2060 02632 TC V86PERF # VB86 BACKUP MARK REJECT 009967,000103: 43,2061 03021 TC SETVHFLG # VB87 SET VHF RANGE FLAG 009968,000104: 43,2062 03025 TC RESETVHF # VB88 RESET VHF RANGE FLAG 009969,000105: 43,2063 02732 TC V89PERF # VB89 ALIGN X OR PRF CSM AXIS TO LOS (R63) 009970,000106: 43,2064 03140 TC V90PERF # VB90 OUT OF PLAN PARAMETERS (R36) 009971,000107: 43,2065 02751 TC GOSHOSUM # VB91 TEMP FOR HYBRID AND STG. 009972,000108: 43,2066 02360 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST 009973,000109: 43,2067 02742 TC WMATRXNG # VB93 CLEAR RENDWFLG 009974,000110: 43,2070 03124 TC VERB94 # VB94 DO R64 009975,000111: 43,2071 02120 TC ALM/END # VB95 SPARE 009976,000112: 43,2072 13146 TCF VERB96 # VB96 SET QUITFLAG TO STOP INTEGRATION 009977,000113: 43,2073 02275 TC GOLOADLV # VB97 PLEASE PERFORM ENGINE-FAIL (R41) 009978,000114: 43,2074 02120 TC ALM/END # VB98 SPARE 009979,000115: 43,2075 02275 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE 009980,000116: 009981,000117: # END OF EXTENDED VERB FAN 009982,000118: 009983,000119: 43,2076 11044 TESTXACT CCS EXTVBACT 009984,000120: 43,2077 02120 TC ALM/END # YES, TURN ON OPERATOR ERROR LIGHT 009985,000121: 43,2100 30100 CA FLAGWRD4 # ARE PRIOS USING DSKY 009986,000122: 43,2101 72123 MASK OC24100 009987,000123: 43,2102 10000 CCS A 009988,000124: 43,2103 02120 TC ALM/END # YES 009989,000125: 009990,000126: 43,2104 34112 CAF OCT24 # SET BITS 3 AND 5 009991,000127: 43,2105 55044 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY 009992,000128: # SYSTEM BUSY 009993,000129: 009994,000130: 43,2106 30002 CA Q 009995,000131: 43,2107 54155 TS MPAC +1 009996,000132: 009997,000133: 43,2110 44711 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB 009998,000134: 43,2111 04170 TC NVSUB 009999,000135: 43,2112 02113 TC +1 010000,000136: 43,2113 00155 TC MPAC +1 010001,000137: 010002,000138: 43,2114 04400 XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT. 010003,000139: 43,2115 05423 TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS. 010004,000140: # Page 234 010005,000141: 43,2116 5423 TERMEXTV EQUALS ENDEXT 010006,000142: 43,2116 5423 ENDEXTVB EQUALS ENDEXT 010007,000143: 010008,000144: 43,2116 34714 XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS. 010009,000145: 43,2117 02105 TC SETXTACT 010010,000146: 010011,000147: 43,2120 04400 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT 010012,000148: 43,2121 04574 GOPIN TC POSTJUMP 010013,000149: 43,2122 21176 CADR PINBRNCH 010014,000150: 010015,000151: 43,2123 24100 OC24100 OCT 24100 010016,000152: 010017,000153: # Page 235 010018,000154: # VBZERO VERB 40 DESCRIPTION 010019,000155: 010020,000156: # 1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES). 010021,000157: # 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM 010022,000158: # 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. 010023,000159: # 4. SET EXT VERB DISPLAY ACTIVE FLAG. 010024,000160: # 5. EXECUTE IMUZERO (ZERO IMU CDU ANGLES). 010025,000161: # 6. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). 010026,000162: # 7. RELEASE EXT. VERB DISPLAY SYSTEM. 010027,000163: 010028,000164: 43,2124 02136 VBZERO TC OP/INERT 010029,000165: 43,2125 02127 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20) 010030,000166: 43,2126 02120 TC ALM/END # RETURN HERE IF NOUN = OCDU(91) 010031,000167: # (NOT IN USE YET) 010032,000168: 010033,000169: 43,2127 02271 IMUZEROK TC CKMODCAD # KEYBOARD REQUEST FOR ISS CDUZERO 010034,000170: 43,2130 04555 TC BANKCALL 010035,000171: 43,2131 16516 CADR IMUZERO 010036,000172: 010037,000173: 43,2132 04555 TC BANKCALL # STALL 010038,000174: 43,2133 17516 CADR IMUSTALL 010039,000175: 43,2134 02135 TC +1 010040,000176: 010041,000177: 43,2135 02121 TC GOPIN # IMUZERO 010042,000178: 010043,000179: 43,2136 44112 OP/INERT CS OCT24 010044,000180: 43,2137 61002 AD NOUNREG 010045,000181: 43,2140 00006 EXTEND 010046,000182: 43,2141 12470 BZF XACT0Q # IF = 20. 010047,000183: 010048,000184: 43,2142 24002 INCR Q 010049,000185: 43,2143 62147 AD OPIMDIFF # -71 010050,000186: 43,2144 00006 EXTEND 010051,000187: 43,2145 12470 BZF XACT0Q 010052,000188: 010053,000189: 43,2146 02120 TC ALM/END # ILLEGAL 010054,000190: 010055,000191: 43,2147 77670 OPIMDIFF DEC -71 B-14 010056,000192: 010057,000193: # Page 236 010058,000194: # VBCOARK VERB 41 DESCRIPTION 010059,000195: # COARSE ALIGN IMU OR RADAR 010060,000196: 010061,000197: # 1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR. 010062,000198: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. 010063,000199: # *** CASE 1, NOUN 20 (ICDU ANGLES) *** 010064,000200: # 3. SET EXT VERB DISPLAY ACTIVE FLAG. 010065,000201: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). 010066,000202: # RESPONSES 010067,000203: # A. TERMINATE 010068,000204: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010069,000205: # B. PROCEED 010070,000206: # 1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES). 010071,000207: # RESPONSES: 010072,000208: # A. TERMINATE 010073,000209: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010074,000210: # B. PROCEED 010075,000211: # 1. EXECUTE ICORK2. 010076,000212: # C. ENTER 010077,000213: # 1. INCREMENT CDU ANGLES 010078,000214: # 2. EXECUTE ICORK2 010079,000215: # C. ENTER 010080,000216: # 1. EXECUTE ICORK2 010081,000217: # ICORK2 010082,000218: # 1. RE-DISPLAY VERB 41. 010083,000219: # 2. EXECUTE IMUCCARS (IMU COARSE ALIGN). 010084,000220: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). 010085,000221: # 4. RELEASE EXT VERB DISPLAY SYSTEM. 010086,000222: # *** CASE 2, NOUN 91 (OCDU ANGLES) *** 010087,000223: # 5. (REQUIRE OPTICS SWITCH TO BE AT COMUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE 010088,000224: # OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117 010089,000225: # AND RELEASE EXT VERB DISPLAY SYSTEM). 010090,000226: # 6. RESPONSES TO V29,N92 010091,000227: # A. TERMINATE 010092,000228: # 1. RELEASE EXT VERB DISPLAY SYS. 010093,000229: # B. PROCEED OR ENTER 010094,000230: # RE-DISPLAY VERB 41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING. 010095,000231: # RELEASE EXT VERB DISPLAY SYSTEM. 010096,000232: 010097,000233: 43,2150 02136 VBCOARK TC OP/INERT 010098,000234: 43,2151 02153 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20) 010099,000235: 43,2152 02175 TC OPTCOARK # RETURN HERE IF NOUN = OCDU (91) 010100,000236: 010101,000237: # RETURNS TO L+1 IF NOUN 20 -- TO L+2 IF NOUN 91. 010102,000238: 010103,000239: 43,2153 02271 IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD. 010104,000240: 43,2154 02076 TC TESTXACT 010105,000241: 43,2155 32173 CAF VNLODCDU # CALL FOR THETAD LOAD 010106,000242: 43,2156 04555 TC BANKCALL 010107,000243: 43,2157 20465 CADR GOXDSPF 010108,000244: 43,2160 05423 TC TERMEXTV 010109,000245: 43,2161 12162 TCF +1 010110,000246: # Page 237 010111,000247: 010112,000248: 43,2162 32174 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB 010113,000249: 43,2163 04555 TC BANKCALL 010114,000250: 43,2164 20746 CADR EXDSPRET 010115,000251: 010116,000252: 43,2165 04555 TC BANKCALL # CALL MODE SWITCHING PROG 010117,000253: 43,2166 16602 CADR IMUCOARS 010118,000254: 010119,000255: 43,2167 04555 TC BANKCALL # STALL 010120,000256: 43,2170 17516 CADR IMUSTALL 010121,000257: 43,2171 05423 TC ENDEXTVB 010122,000258: 43,2172 05423 TC ENDEXTVB 010123,000259: 010124,000260: 43,2173 06226 VNLODCDU VN 2522 010125,000261: 43,2174 12200 IMUCOARV VN 4100 010126,000262: 010127,000263: # Page 238 010128,000264: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD 010129,000265: 010130,000266: 43,2175 31323 OPTCOARK CA OPTCADR 010131,000267: 43,2176 02272 TC CKMODCAD +1 010132,000268: 43,2177 02076 TC TESTXACT 010133,000269: 43,2200 34751 CAF EBANK5 010134,000270: 43,2201 54003 TS EBANK 010135,000271: 010136,000272: 43,2202 11314 CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER 010137,000273: 43,2203 02210 TC +5 # SWITCH AT COMPUTER 010138,000274: 43,2204 02205 TC +1 # NOT ON COMPUTER 010139,000275: 43,2205 04400 TC FALTON # TURN ON OPERATOR ERR 010140,000276: 43,2206 05537 TC ALARM # AND ALARM 010141,000277: 43,2207 00115 OCT 00115 010142,000278: 010143,000279: 43,2210 11303 CCS OPTIND # SEE IF OPTICS AVAILABLE 010144,000280: 43,2211 02217 TC OPTC1 # IN USE 010145,000281: 43,2212 02217 TC OPTC1 # IN USE 010146,000282: 43,2213 02217 TC OPTC1 # IN USE 010147,000283: 010148,000284: 43,2214 05537 TC ALARM # OPTICS RESERVED (OPTIND=-0) 010149,000285: 43,2215 00117 OCT 00117 010150,000286: 43,2216 05423 TC ENDEXT 010151,000287: 010152,000288: 43,2217 32237 OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS 010153,000289: 43,2220 04555 TC BANKCALL 010154,000290: 43,2221 20465 CADR GOXDSPF 010155,000291: 43,2222 05423 TC TERMEXTV 010156,000292: 43,2223 02224 TC +1 # PROCEED 010157,000293: 010158,000294: 43,2224 31773 CA SAC 010159,000295: 43,2225 55161 TS DESOPTS 010160,000296: 43,2226 31775 CA PAC 010161,000297: 43,2227 55160 TS DESOPTT 010162,000298: 43,2230 32174 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB 010163,000299: 43,2231 04555 TC BANKCALL 010164,000300: 43,2232 20746 CADR EXDSPRET 010165,000301: 010166,000302: 43,2233 34712 CAF ONE 010167,000303: 43,2234 55303 TS OPTIND # SET COARS WORKING 010168,000304: 010169,000305: 43,2235 05423 TC ENDEXTVB 010170,000306: 43,2236 05423 TC ENDEXTVB 010171,000307: 010172,000308: 43,2237 06134 VNLD0CDU VN 2492 010173,000309: 43,2240 43,2174 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS 010174,000310: 010175,000311: # Page 239 010176,000312: # IMUFINEK VERB 42 DESCRIPTION 010177,000313: # FINE ALIGN IMU 010178,000314: 010179,000315: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH. 010180,000316: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES.... 010181,000317: # RESPONSES 010182,000318: # A. TERMINATE 010183,000319: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010184,000320: # B. PROCEED OR ENTER 010185,000321: # 1. RE-DISPLAY VERB 42 010186,000322: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING). 010187,000323: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER) 010188,000324: # A. FAILED 010189,000325: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010190,000326: # B. GOOD 010191,000327: # 1. EXECUTE IMUPULSE (TORQUE IRIGS). 010192,000328: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM. 010193,000329: 010194,000330: 43,2240 02271 IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING. 010195,000331: 43,2241 02076 TC TESTXACT 010196,000332: 43,2242 32267 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS 010197,000333: 43,2243 04555 TC BANKCALL 010198,000334: 43,2244 20465 CADR GOXDSPF 010199,000335: 43,2245 05423 TC TERMEXTV 010200,000336: 43,2246 02247 TC +1 # PROCEED WITHOUT A LOAD 010201,000337: 010202,000338: 43,2247 32270 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB 010203,000339: 43,2250 04555 TC BANKCALL 010204,000340: 43,2251 20746 CADR EXDSPRET 010205,000341: 010206,000342: 43,2252 04555 TC BANKCALL # CALL MODE SWITCH PROG 010207,000343: 43,2253 17012 CADR IMUFINE 010208,000344: 010209,000345: 43,2254 04555 TC BANKCALL # HIBERNATION 010210,000346: 43,2255 17516 CADR IMUSTALL 010211,000347: 43,2256 05423 TC ENDEXTVB 010212,000348: 010213,000349: 43,2257 32266 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS 010214,000350: 43,2260 04555 TC BANKCALL 010215,000351: 43,2261 17125 CADR IMUPULSE 010216,000352: 010217,000353: 43,2262 04555 TC BANKCALL # WAIT FOR PULSES TO GET OUT. 010218,000354: 43,2263 17516 CADR IMUSTALL 010219,000355: 43,2264 05423 TC ENDEXTVB 010220,000356: 43,2265 05423 TC ENDEXTVB 010221,000357: 010222,000358: 43,2266 02757 LGYROBIN ECADR OGC 010223,000359: 43,2267 06335 VNLODGYR VN 2593 010224,000360: 43,2270 12400 IMUFINEV VN 4200 # FINE ALIGN VERB 010225,000361: 010226,000362: 43,2271 31322 CKMODCAD CA MODECADR 010227,000363: # Page 240 010228,000364: 43,2272 00006 EXTEND 010229,000365: 43,2273 16711 BZF TCQ 010230,000366: 43,2274 02120 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT 010231,000367: 010232,000368: # GOLOADLV VERB 50 DESCRIPTION 010233,000369: # AND OTHER PLEASE 010234,000370: # DO SOMETHING VERBS 010235,000371: 010236,000372: # PLEASE PERFORM, MARK, CALIBRATE, ETC. 010237,000373: 010238,000374: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE 010239,000375: # SAME RECALL AS A COMPLETED LOAD. 010240,000376: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED. 010241,000377: 010242,000378: 43,2275 04447 GOLOADLV TC FLASHOFF 010243,000379: 43,2276 34215 CAF PINSUPBT 010244,000380: 43,2277 00006 EXTEND 010245,000381: 43,2300 01007 WRITE SUPERBNK # TURN ON FE7 010246,000382: 43,2301 04574 TC POSTJUMP 010247,000383: 43,2302 40,2000 SBANK= PINSUPER 010248,000384: 43,2302 62001 CADR LOADLV1 010249,000385: 010250,000386: # V60 VERB 60 010251,000387: 43,2303 00006 V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL 010252,000388: 43,2304 30033 DCA CDUX # TO PRESENT ATTITUDE 010253,000389: 43,2305 53334 DXCH CPHIX 010254,000390: 43,2306 30034 CA CDUZ 010255,000391: 43,2307 55335 TS CPHIX +2 010256,000392: 43,2310 02121 TC GOPIN 010257,000393: 010258,000394: # V61 VERB 61 010259,000395: 43,2311 05447 V61 TC DOWNFLAG # SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE 010260,000396: 43,2312 00006 ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED 010261,000397: 43,2313 02121 TC GOPIN 010262,000398: 010263,000399: # V62 VERB 62 010264,000400: 43,2314 05435 V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), 010265,000401: 43,2315 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED 010266,000402: 010267,000403: 43,2316 05435 TC UPFLAG # SET N22ORN17 TO 1 (FLAGWRD9,BIT6), 010268,000404: 43,2317 00220 ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22 010269,000405: 43,2320 02121 TC GOPIN 010270,000406: 010271,000407: # V63 VERB 63 010272,000408: 43,2321 05435 V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), 010273,000409: 43,2322 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED 010274,000410: 010275,000411: 43,2323 05447 TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6), 010276,000412: # Page 241 010277,000413: 43,2324 00220 ADRES N22ORN17 # COMPUTE TOAL ASTRONAUT ATTITUDE ERROR 010278,000414: 43,2325 02121 TC GOPIN 010279,000415: 010280,000416: # Page 242 010281,000417: # ALINTIME VERB 55 DESCRIPTION 010282,000418: 010283,000419: # 1. SET EXT VERB DISPLAY BUSY FLAG. 010284,000420: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK. 010285,000421: # 3. REQUIRE EXECUTION OF VERB 23. 010286,000422: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME. 010287,000423: # 5. RELEASE EXT VERB DISPLAY SYSTEM. 010288,000424: 010289,000425: 43,2326 COUNT 04/R33 010290,000426: 010291,000427: 43,2326 02076 ALINTIME TC TESTXACT 010292,000428: 43,2327 32357 CAF VNLODDT 010293,000429: 43,2330 04555 TC BANKCALL 010294,000430: 43,2331 20465 CADR GOMARKF 010295,000431: 43,2332 05423 TC ENDEXT # TERMINATE 010296,000432: 43,2333 05423 TC ENDEXT # PROCEED 010297,000433: 43,2334 42356 CS DEC23 # DATA IN OR RESEQUENCE (UNLIKELY) 010298,000434: 43,2335 60154 AD MPAC # RECALL LEFT VERB IN MPAC 010299,000435: 43,2336 00006 EXTEND 010300,000436: 43,2337 12341 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL 010301,000437: 43,2340 05423 TC ENDEXT # WITH V23 (DATA IN). 010302,000438: 010303,000439: 43,2341 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1. 010304,000440: 43,2342 34714 CAF ZERO 010305,000441: 43,2343 54156 TS MPAC +2 # NEEDED FOR TP AGREE 010306,000442: 43,2344 54001 TS L # ZERO T1 + 2 WHILE ALIGNING. 010307,000443: 43,2345 52025 DXCH TIME2 010308,000444: 43,2346 52155 DXCH MPAC 010309,000445: 43,2347 53052 DXCH DSPTEM2 +1 # INCREMENT 010310,000446: 43,2350 20155 DAS MPAC 010311,000447: 010312,000448: 43,2351 07226 TC TPAGREE # FORCE SIGN AGREEMENT. 010313,000449: 43,2352 52155 DXCH MPAC # NEW CLOCK. 010314,000450: 43,2353 20025 DAS TIME2 010315,000451: 43,2354 00003 RELINT 010316,000452: 43,2355 05423 UPDTMEND TC ENDEXT 010317,000453: 43,2356 00027 DEC23 DEC 23 B-14 # V 23 010318,000454: 010319,000455: 43,2357 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME 010320,000456: 010321,000457: # Page 243 010322,000458: # SYSTEST VERB 92 DESCRIPTION 010323,000459: # OPERATE SELECTED SYSTEM TEST. 010324,000460: 010325,000461: # 1. REQUIRE P00 OR P00- OR TURN ON OPERATOR ERROR. 010326,000462: # 2. TURN OFF DAP IF IT IS ON. 010327,000463: # 3. DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17). 010328,000464: # 4. UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20. 010329,000465: 010330,000466: # TSELECT 010331,000467: # 1. IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND 010332,000468: # REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE) 010333,000469: 010334,000470: 43,2360 E5,1425 EBANK= QPLACE 010335,000471: 010336,000472: 43,2360 COUNT 04/EXTVB 010337,000473: 010338,000474: 43,2360 02715 SYSTEST TC CHKP00H 010339,000475: 43,2361 02721 TC EXDAPOFF 010340,000476: 43,2362 34675 CAF PRIO20 010341,000477: 43,2363 05042 TC FINDVAC 010342,000478: 43,2364 E5,1425 EBANK= QPLACE 010343,000479: 43,2364 30,2000 SBANK= IMUSUPER 010344,000480: 43,2364 02002 66065 2CADR REDO 010345,000481: 010346,000482: 43,2366 02121 TC GOPIN 010347,000483: # REDO AND TSELECT ARE NOW IN SYSTEM TEST. 010348,000484: 010349,000485: 43,2367 COUNT* $$/EXTVB 010350,000486: # CKOPTVB VERB 65 DESCRIPTION 010351,000487: # OPTICAL VERIFICATION FOR PRELAUNCH 010352,000488: # 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17. 010353,000489: 010354,000490: 43,2367 05253 CKOPTVB TC CHECKMM 010355,000491: 43,2370 00002 MM 02 B-14 # I WONDER IF PRELAUNCH IS RUNNING 010356,000492: 43,2371 02120 TC ALM/END # NOT RUNNING OPERATOR ERROR 010357,000493: 43,2372 00004 INHINT 010358,000494: 43,2373 34763 CAF PRIO16 # PRELAUNCH OPTICAL VERIFICATION 010359,000495: 43,2374 05042 TC FINDVAC 010360,000496: 43,2375 E5,1425 EBANK= QPLACE 010361,000497: 43,2375 02000 66065 2CADR COMPVER # STANDARD LEADIN TO GCOMPVER. 010362,000498: 010363,000499: 43,2377 02121 TC GOPIN 010364,000500: 010365,000501: # V 76 .... TO CHANGE GYROCOMPASS AZIMUTH 010366,000502: 010367,000503: 43,2400 05253 CHAZFOGC TC CHECKMM # IS IT PRELAUNCH 010368,000504: 43,2401 00002 MM 02 B-14 010369,000505: 43,2402 02120 TC ALM/END # NO -- OPERATOR ERROR 010370,000506: # Page 244 010371,000507: 43,2403 34763 CAF PRIO16 # PRELAUNCH AZIMUTH CHANGE 010372,000508: 43,2404 05042 TC FINDVAC 010373,000509: 43,2405 0002671 EBANK= XSM 010374,000510: 43,2405 03736 66065 2CADR AZMTHCG1 010375,000511: 010376,000512: 43,2407 05301 TC PHASCHNG 010377,000513: 43,2410 00174 OCT 00174 010378,000514: 43,2411 02121 TC GOPIN 010379,000515: # Page 245 010380,000516: # IMUATTCK VERB 43 DESCRIPTION 010381,000517: # LOAD IMU ATTITUDE ERROR METERS 010382,000518: 010383,000519: # 1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF. 010384,000520: # 2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY 010385,000521: # FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN. 010386,000522: # 3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE. 010387,000523: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). 010388,000524: # 5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS 010389,000525: # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. 010390,000526: # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY. 010391,000527: 010392,000528: 43,2412 02715 IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS 010393,000529: 010394,000530: 43,2413 32471 CAF OCTAL30 # SEE IF IMU ZERO AND IMU COARSE ARE ON 010395,000531: 43,2414 00006 EXTEND 010396,000532: 43,2415 02012 RAND CHAN12 010397,000533: 43,2416 10000 CCS A 010398,000534: 43,2417 12120 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON 010399,000535: 010400,000536: 43,2420 02457 TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF 010401,000537: 43,2421 02076 TC TESTXACT # AFTER 010402,000538: 43,2422 44726 CS OCT50 # REMOVE COARSE AND ECTR ENABLE 010403,000539: 43,2423 00006 EXTEND 010404,000540: 43,2424 03012 WAND CHAN12 010405,000541: 010406,000542: 43,2425 32173 CAF VNLODCDU 010407,000543: 43,2426 04555 TC BANKCALL 010408,000544: 43,2427 20465 CADR GOXDSPF 010409,000545: 43,2430 12444 TCF TRMATTCK 010410,000546: 43,2431 02432 TC +1 010411,000547: 43,2432 34752 CAF EBANK6 010412,000548: 43,2433 54003 TS EBANK # SET E6 FOR NEEDLES. 010413,000549: 010414,000550: 43,2434 E6,1476 EBANK= AK 010415,000551: 010416,000552: 43,2434 04555 TC BANKCALL # INITIALIZE CURRENT DAC AND 010417,000553: 43,2435 42427 CADR NEEDLE11 # COMMAND VALUES. 010418,000554: 010419,000555: 43,2436 04555 TC BANKCALL # ENABLE ERROR COUNTERS. 010420,000556: 43,2437 42446 CADR NEEDLER2 010421,000557: 010422,000558: 43,2440 34711 CAF TWO # 4 MS MIN. 010423,000559: 43,2441 05140 TC WAITLIST 010424,000560: 43,2442 E6,1476 EBANK= AK 010425,000561: 43,2442 02447 66106 2CADR ATTCK1 010426,000562: 010427,000563: 43,2444 02457 TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF 010428,000564: 43,2445 15423 TCF ENDEXT # AFTER 010429,000565: 43,2446 02121 TC GOPIN 010430,000566: # Page 246 010431,000567: 43,2447 00006 ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REQS. 010432,000568: 43,2450 31156 DCA THETAD 010433,000569: 43,2451 53477 DXCH AK 010434,000570: 43,2452 31157 CAE THETAD +2 010435,000571: 43,2453 55500 TS AK +2 010436,000572: 010437,000573: 43,2454 04633 TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 364 PULSES 010438,000574: 43,2455 42462 CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED. 010439,000575: 010440,000576: 43,2456 05213 TC TASKOVER 010441,000577: 010442,000578: 43,2457 34706 CKLFTBTS CAF BIT5 # HAS LIFTOFF OCCURRED 010443,000579: 43,2460 70101 MASK FLAGWRD5 010444,000580: 43,2461 10000 CCS A 010445,000581: 43,2462 00002 TC Q # YES 010446,000582: 43,2463 34706 CAF BIT5 010447,000583: 43,2464 00006 EXTEND 010448,000584: 43,2465 02030 RAND CHAN30 010449,000585: 43,2466 10000 CCS A 010450,000586: 43,2467 16706 TCF Q+1 010451,000587: 43,2470 00002 XACT0Q TC Q # YES 010452,000588: 010453,000589: 43,2471 00030 OCTAL30 OCT 30 010454,000590: 43,2472 02715 VB64 TC CHKP00H # DEMAND PROGRAM 00. 010455,000591: 43,2473 02076 TC TESTXACT # IF DISPLAY SYS. NOT BUSY, MAKE IT BUSY. 010456,000592: 43,2474 00004 INHINT 010457,000593: 43,2475 34677 CAF PRIO4 010458,000594: 43,2476 05042 TC FINDVAC 010459,000595: 43,2477 E4,1720 EBANK= RHOSB 010460,000596: 43,2477 03565 64104 2CADR SBANDANT # CALC. DISPLAY S-BAND ANTENNA ANGLES. 010461,000597: 010462,000598: 43,2501 05112 TC ENDOFJOB 010463,000599: 010464,000600: # ENATMA VERB 58 DESCRIPTION 010465,000601: # ENABLE AUTOMATIC ATTITUDE MANEUVER 010466,000602: 010467,000603: # VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC 010468,000604: # ACTIVITY. 010469,000605: 010470,000606: 43,2502 05447 ENATMA TC DOWNFLAG # RESET STIKFLAG 010471,000607: 43,2503 00020 ADRES STIKFLAG # BIT 14 FLAG 1 010472,000608: 43,2504 02121 TC GOPIN 010473,000609: 010474,000610: # STROKON VERB 68 DESCRIPTION 010475,000611: # STROKE TEST SETUP/ENABLE 010476,000612: # 1. SET EXT VERB DISPLAY BUSY FLAG 010477,000613: # 2. SCHEDULE STRKTST1 WITH PRIORITY 30. 010478,000614: # 3. RELEASE EXT VERB DISPLAY. 010479,000615: # Page 247 010480,000616: 010481,000617: 43,2505 E6,1635 EBANK= T5TVCDT 010482,000618: 43,2505 40102 STROKON CS FLAGWRD6 010483,000619: 43,2506 74105 MASK OCT60000 010484,000620: 43,2507 00006 EXTEND 010485,000621: 43,2510 62120 BZMF ALM/END 010486,000622: 43,2511 34371 CAF PRIO30 # JOB REQUEST TO SET UP STROKE TEST, 010487,000623: 43,2512 05027 TC NOVAC # INCLUDING INITIALIZATIONS

[WORKAROUND] RSB 2004

010489,000625: 43,2513  40,2000                                 SBANK=   PINSUPER                              

[WORKAROUND]

010491,000627: 43,2513  E6,1614                                 EBANK=   STROKER                               
010492,000628: 43,2513           03446 40106                    2CADR    STRKTSTI                              
010493,000629: 
010494,000630: 43,2515           02121                          TC       GOPIN                                 
010495,000631: 
010496,000632:                                                                                                 #  STABLISH       VERB 46         DESCRIPTION
010497,000633:                                                                                                 #         ESTABLISH G AND N CONTROL
010498,000634:                                                                                                 #         1.      IF TVC DAP IS ON, ALARM AND RETURN OTHERWISE REQUIRE EXT VERB DISPLAY SYSTEM
010499,000635:                                                                                                 #                 AVAILABLE, SET BUSY FLAG AND GO TO DAPFIG TO DETERMIN VEHICLE CONFIGURATION.
010500,000636: 
010501,000637: 43,2516           40102        STABLISH          CS       FLAGWRD6                              #  VB 46
010502,000638: 43,2517           74105                          MASK     OCT60000                              #  NOT PERMITTED WHEN TVC DAP IS ON.
010503,000639: 43,2520           00006                          EXTEND                                         
010504,000640: 43,2521           62523                          BZMF     +2                                    
010505,000641: 43,2522           02120                          TC       ALM/END                               
010506,000642: 43,2523           34752                          CAF      EBANK6                                #  SET EBANK TO E6
010507,000643: 43,2524           54003                          TS       EBANK                                 
010508,000644: 43,2525           04574                          TC       POSTJUMP                              
010509,000645: 43,2526           65521                          CADR     DAPFIG                                
010510,000646:                                                                                                 #  Page 248
010511,000647:                                                                                                 #  CREMANU        VERB 49         DESCRIPTION
010512,000648:                                                                                                 #         START AUTOMATIC ATTITUDE MANEUVER
010513,000649: 
010514,000650:                                                                                                 #         1.      REQUIRE PROGRAM 00 ACTIVE.
010515,000651:                                                                                                 #         2.      SET EXT VERB DISPLAY BUSY FLAG.
010516,000652:                                                                                                 #         3.      SCHEDULE R62DISP WITH PRIORITY 10.
010517,000653:                                                                                                 #         4.      RELEASE EXT VERB DISPLAY.
010518,000654: 
010519,000655:                                                                                                 #         R62DISP
010520,000656:                                                                                                 #         1.      DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES).  UPON IMMEDIATE RETURN, SET-UP GROUP
010521,000657:                                                                                                 #                 4 FOR RESTART OF DISPLAY SEQUENCE.
010522,000658:                                                                                                 #                 RESPONSES
010523,000659:                                                                                                 #                 A.      TERMINATE
010524,000660:                                                                                                 #                         1.      GOTOP00H
010525,000661:                                                                                                 #                 B.      PROCEED
010526,000662:                                                                                                 #                         1.      SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010527,000663:                                                                                                 #                         2.      EXECUTE R60CSM (ATTITUDE MANEUVER).
010528,000664:                                                                                                 #                         3.      ZERO GROUP 4 (END R62).
010529,000665:                                                                                                 #                 C.      ENTER
010530,000666:                                                                                                 #                         1.      REPEAT FLASHING V06,N22.
010531,000667: 
010532,000668: 43,2527           02715        CREWMANU          TC       CHKP00H                               #  DEMAND P00
010533,000669: 
010534,000670: 43,2530           02076                          TC       TESTXACT                              
010535,000671: 
010536,000672: 43,2531           34676                          CAF      PRIO10                                
010537,000673: 43,2532           05042                          TC       FINDVAC                               
010538,000674: 43,2533     1155                                 EBANK=   CPHI                                  
010539,000675: 43,2533           02330 56102                    2CADR    R62DISP                               
010540,000676: 
010541,000677: 43,2535           05112                          TC       ENDOFJOB                              
010542,000678: 
010543,000679:                                                                                                 #  Page 249
010544,000680:                                                                                                 #  DAPDISP        VERB 48         DESCRIPTION
010545,000681:                                                                                                 #         LOAD AUTOPILOT DATA (ROUTINE R03)
010546,000682: 
010547,000683:                                                                                                 #         0.      CHECKFAIL AND RETURN IF TVC.
010548,000684:                                                                                                 #         1.      REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010549,000685:                                                                                                 #         2.      LOWER PRIORITY TO 10.
010550,000686:                                                                                                 #         3.      DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION).
010551,000687:                                                                                                 #         4.      UPON PROCEED RESPONSE, EXECUTE S41.2.
010552,000688:                                                                                                 #         5.      DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
010553,000689:                                                                                                 #         6.      UPON PROCEED RESPONSE EXECUTE S40.14.
010554,000690:                                                                                                 #         7.      DISPLAY FLASHING V06,N47 (DISPLAY PITCH TRIM, YAW TRIM)
010555,000691:                                                                                                 #         8.      UPON PROCEED REPSONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM.
010556,000692: 
010557,000693: 43,2536                                          COUNT*   $$/EXTVB                              
010558,000694: 
010559,000695: 43,2536           40102        DAPDISP           CS       FLAGWRD6                              
010560,000696: 43,2537           74105                          MASK     OCT60000                              
010561,000697: 43,2540           00006                          EXTEND                                         
010562,000698: 43,2541           62543                          BZMF     +2                                    #  TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
010563,000699: 43,2542           02120                          TC       ALM/END                               #  RETURN IF TVC
010564,000700: 
010565,000701: 43,2543           02076                          TC       TESTXACT                              
010566,000702: 43,2544           04555                          TC       BANKCALL                              
010567,000703: 43,2545           64000                          CADR     DAPDISP1                              
010568,000704: 42,2000                                          BANK     42                                    
010569,000705: 42,2000                                          SETLOC   EXTVBS                                
010570,000706: 42,2000                                          BANK                                           
010571,000707: 42,2000                                          COUNT    24/R03                                
010572,000708: 
010573,000709: 42,2000           34752        DAPDISP1          CAF      EBANK6                                
010574,000710: 42,2001           54003                          TS       EBANK                                 
010575,000711: 
010576,000712: 42,2002           34676                          CAF      PRIO10                                
010577,000713: 42,2003           05103                          TC       PRIOCHNG                              
010578,000714: 
010579,000715: 42,2004           32061        DONOUN46          CAF      V04N46                                #         R1              R2
010580,000716: 42,2005           04555                          TC       BANKCALL                              #         DAPDATR1        DAPDATR2
010581,000717: 42,2006           20465                          CADR     GOXDSPF                               #  GOXDSP ROUTINES USED FOR EXTENDED VERBS.
010582,000718: 
010583,000719: 42,2007           05423                          TC       ENDEXT                                #  EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
010584,000720: 42,2010           02012                          TC       +2                                    
010585,000721: 42,2011           02004                          TC       DONOUN46                              
010586,000722: 
010587,000723: 42,2012           31466                          CA       DAPDATR1                              
010588,000724: 42,2013           74707                          MASK     BIT4                                  
010589,000725: 42,2014           10000                          CCS      A                                     
010590,000726: 42,2015           12054                          TCF      MAXIN                                 
010591,000727: 42,2016           05447                          TC       DOWNFLAG                              
010592,000728: 42,2017           00212                          ADRES    MAXDBFLG                              
010593,000729: 42,2020           04555        MAXOUT            TC       BANKCALL                              
010594,000730: 42,2021           40146                          CADR     S41.2                                 
010595,000731: 
010596,000732: 42,2022           32060        DONOUN47          CAF      V06N47                                #         R1              R2              R3
010597,000733:                                                                                                 #  Page 250
010598,000734: 42,2023           04555                          TC       BANKCALL                              #         CSM WGT.        LEM WGT.        BLANK
010599,000735: 42,2024           20465                          CADR     GOXDSPF                               
010600,000736: 
010601,000737: 42,2025           05423                          TC       ENDEXT                                
010602,000738: 42,2026           02030                          TC       +2                                    
010603,000739: 42,2027           02022                          TC       DONOUN47                              
010604,000740: 42,2030           31466                          CAE      DAPDATR1                              #  DO MASS PROPERTIES CALCULATION ONLY IF
010605,000741: 42,2031           74371                          MASK     PRIO30                                #  CONFIG = 1(CSM), 2 (CSM/LM), 6(CSM/LMA)
010606,000742: 42,2032           00006                          EXTEND                                         
010607,000743: 42,2033           12046                          BZF      DONOUN48                              #  SKIP IF 0,4
010608,000744: 42,2034           40000                          COM                                            
010609,000745: 42,2035           74371                          MASK     PRIO30                                
010610,000746: 42,2036           00006                          EXTEND                                         
010611,000747: 42,2037           12046                          BZF      DONOUN48                              #  SKIP IF 3,7
010612,000748: 42,2040           00004                          INHINT                                         
010613,000749: 42,2041           04633                          TC       IBNKCALL                              
010614,000750: 42,2042           13207                          CADR     MASSPROP                              #  UPDATE IXX, IAVG, IAVG/TLK
010615,000751: 
010616,000752: 42,2043           00003                          RELINT                                         
010617,000753: 42,2044           04555                          TC       BANKCALL                              
010618,000754: 42,2045           40277                          CADR     S40.14                                #  COMPUTE RCS DAP STUFF
010619,000755: 
010620,000756: 42,2046           32057        DONOUN48          CAF      V0648                                 #         R1              R2              R3
010621,000757: 42,2047           04555                          TC       BANKCALL                              #         PTRIM           YTRIM           BLANK
010622,000758: 42,2050           20465                          CADR     GOXDSPF                               
010623,000759: 
010624,000760: 42,2051           05423                          TC       ENDEXT                                
010625,000761: 42,2052           05423                          TC       ENDEXT                                
010626,000762: 42,2053           02046                          TC       DONOUN48                              
010627,000763: 
010628,000764: 42,2054           05435        MAXIN             TC       UPFLAG                                
010629,000765: 42,2055           00212                          ADRES    MAXDBFLG                              
010630,000766: 42,2056           02020                          TC       MAXOUT                                
010631,000767: 
010632,000768: 42,2057           01460        V0648             VN       0648                                  
010633,000769: 42,2060           01457        V06N47            VN       0647                                  
010634,000770: 42,2061           01056        V04N46            VN       0446                                  
010635,000771: 43,2546                                          BANK     43                                    
010636,000772: 43,2000                                          SETLOC   EXTVERBS                              
010637,000773: 43,2000                                          BANK                                           
010638,000774: 
010639,000775: 43,2546                                          COUNT*   $$/EXTVB                              
010640,000776: 
010641,000777:                                                                                                 #  V82PERF        VERB82          DESCRIPTION
010642,000778:                                                                                                 #         REQUEST ORBIT PARAMETERS DISPLAY (R30)
010643,000779: 
010644,000780:                                                                                                 #         1.      IF AVERAGE G IS OFF:
010645,000781:                                                                                                 #                         FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
010646,000782:                                                                                                 #                         TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
010647,000783:                                                                                                 #                         CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ I.
010648,000784:                                                                                                 #                         SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
010649,000785:                                                                                                 #                         CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
010650,000786:                                                                                                 #  Page 251
010651,000787:                                                                                                 #                         RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
010652,000788:                                                                                                 #                         HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
010653,000789:                                                                                                 #                         HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 
010654,000790:                                                                                                 #                         INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
010655,000791:                                                                                                 #                         FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
010656,000792:                                                                                                 #                         NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
010657,000793:                                                                                                 #                         ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
010658,000794:                                                                                                 #                         DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
010659,000795:                                                                                                 #                         ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
010660,000796: 
010661,000797:                                                                                                 #         2.      IF AVERAGE G IS ON:
010662,000798:                                                                                                 #                         CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
010663,000799:                                                                                                 #                         FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
010664,000800:                                                                                                 #                         OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
010665,000801:                                                                                                 #                         FLASH MONITOR V16N44 (HAPO, HPER, TFF).
010666,000802:                                                                                                 #                         IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
010667,000803:                                                                                                 #                         RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
010668,000804: 
010669,000805:                                                                                                 #  ADDENDUM:      HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
010670,000806:                                                                                                 #                 ABOVE REMARKS.
010671,000807: 
010672,000808: 43,2546           02076        V82PERF           TC       TESTXACT                              
010673,000809: 
010674,000810: 43,2547           34756                          CAF      PRIO7                                 
010675,000811: 43,2550           05103                          TC       PRIOCHNG                              
010676,000812: 43,2551           04574                          TC       POSTJUMP                              
010677,000813: 43,2552           46332                          CADR     V82CALL                               #  **** V82CALL MUST NOT BE A FINDVAC JOB
010678,000814: 
010679,000815:                                                                                                 #  VB83PERF       VERB 83         DESCRIPTION
010680,000816:                                                                                                 #         REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
010681,000817: 
010682,000818:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
010683,000819:                                                                                                 #         2.      SCHEDULE V83CALL WITH PRIORITY 10.
010684,000820:                                                                                                 #                 A.      DISPLAY
010685,000821:                                                                                                 #                         R1      RANGE
010686,000822:                                                                                                 #                         R2      RANGE RATE
010687,000823:                                                                                                 #                         R3      THETA
010688,000824: 
010689,000825: 43,2553           02076        V83PERF           TC       TESTXACT                              
010690,000826: 43,2554           00004                          INHINT                                         
010691,000827: 43,2555           40105                          CS       FLAGWRD9                              #  SET R31 FLAG-BIT 4 FLAGWRD9
010692,000828: 43,2556           74707                          MASK     BIT4                                  
010693,000829: 43,2557           26105                          ADS      FLAGWRD9                              
010694,000830: 43,2560           34754                          CAF      PRIO5                                 
010695,000831: 43,2561           05027                          TC       NOVAC                                 

[WORKAROUND] RSB 2004

010697,000833: 43,2562  30,2000                                 SBANK=   LOWSUPER                              

[WORKAROUND]

010699,000835: 43,2562  E4,1770                                 EBANK=   SUBEXIT                               
010700,000836: 43,2562           03150 72064                    2CADR    R31CALL                               
010701,000837: 
010702,000838: 43,2564           05112                          TC       ENDOFJOB                              
010703,000839: 
010704,000840:                                                                                                 #  Page 252
010705,000841: 43,2565           02076        V85PERF           TC       TESTXACT                              
010706,000842: 43,2566           00004                          INHINT                                         
010707,000843: 43,2567           44707                          CS       BIT4                                  #  RESET R31 FLAG TO INDICATE R34
010708,000844: 43,2570           70105                          MASK     FLAGWRD9                              
010709,000845: 43,2571           54105                          TS       FLAGWRD9                              
010710,000846: 43,2572           02560                          TC       V83PERF    +5                         
010711,000847:                                                                                                 #  Page 253
010712,000848:                                                                                                 #         GOTOR21         VERB 57
010713,000849:                                                                                                 #         GOTOR23         VERB 54         DESCRIPTION
010714,000850:                                                                                                 #  SET UP MARKING FOR R22 (REND TRACK DATA PROC)
010715,000851:                                                                                                 #  1.     SET EXT VERB DISPLAY BUSY FLAG
010716,000852:                                                                                                 #  2.     IF KZND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
010717,000853:                                                                                                 #         SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
010718,000854:                                                                                                 #  3.     RELEASE EXT VERB DISPLAY SYSTEM
010719,000855: 
010720,000856: 43,2573           05447        GOTOR21           TC       DOWNFLAG                              #  CLEAR R23FLG
010721,000857: 43,2574           00025                          ADRES    R23FLG                                #  BIT 9 FLAG 1
010722,000858: 43,2575           02600                          TC       +3                                    
010723,000859: 43,2576           05435        GOTOR23           TC       UPFLAG                                #  SET R23FLG
010724,000860: 43,2577           00025                          ADRES    R23FLG                                #  BIT 9 FLAG 1
010725,000861: 43,2600           02076                          TC       TESTXACT                              
010726,000862: 43,2601           30074                          CA       FLAGWRD0                              #  VB 57  UNACCEPTABLE UNLESS BOTH
010727,000863: 43,2602           74704                          MASK     BIT7                                  #         RENDEZVOUS AND TRACK FLAGS ON
010728,000864: 43,2603           00006                          EXTEND                                         
010729,000865: 43,2604           12627                          BZF      R22ALARM                              
010730,000866: 
010731,000867: 43,2605           30075                          CA       FLAGWRD1                              
010732,000868: 43,2606           74706                          MASK     BIT5                                  
010733,000869: 43,2607           00006                          EXTEND                                         
010734,000870: 43,2610           12627                          BZF      R22ALARM                              
010735,000871: 
010736,000872: 43,2611           30075                          CA       FLAGWRD1                              #  TEST R23FLG
010737,000873: 43,2612           74702                          MASK     BIT9                                  
010738,000874: 43,2613           00006                          EXTEND                                         
010739,000875: 43,2614           12622                          BZF      REGR21                                #  R21
010740,000876: 43,2615           34763                          CAF      PRIO16                                
010741,000877: 43,2616           05027                          TC       NOVAC                                 
010742,000878: 43,2617  E7,1725                                 EBANK=   MRKBUF1                               
010743,000879: 43,2617           02447 76067                    2CADR    R23CSM                                
010744,000880: 
010745,000881: 43,2621           05112                          TC       ENDOFJOB                              
010746,000882: 43,2622           34763        REGR21            CAF      PRIO16                                
010747,000883: 43,2623           05027                          TC       NOVAC                                 
010748,000884: 43,2624  E7,1725                                 EBANK=   MRKBUF1                               
010749,000885: 43,2624           02445 76067                    2CADR    R21CSM                                
010750,000886: 
010751,000887: 43,2626           05112                          TC       ENDOFJOB                              
010752,000888: 43,2627           05537        R22ALARM          TC       ALARM                                 #  VERB 57 WAS SELECTED AND NEITHER REND
010753,000889: 43,2630           00406                          OCT      00406                                 #         NOR TRACK FLAG WERE ONE.
010754,000890: 43,2631           05423                          TC       ENDEXT                                
010755,000891: 
010756,000892:                                                                                                 #  Page 254
010757,000893:                                                                                                 #  VERB 86        DESCRIPTION
010758,000894:                                                                                                 #         V86 IS TO R23 AS MARK REJECT IS TO R21
010759,000895:                                                                                                 #         V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE)
010760,000896: 
010761,000897: 43,2632  E7,1725                                 EBANK=   MRKBUF1                               
010762,000898: 43,2632           34753        V86PERF           CAF      EBANK7                                #  BACKUP MARK REJECT (R23
010763,000899: 43,2633           56003                          XCH      EBANK                                 
010764,000900: 43,2634           37716                          CA       NEGONE                                
010765,000901: 43,2635           55725                          TS       MRKBUF1                               
010766,000902: 43,2636           02121                          TC       GOPIN                                 
010767,000903: 
010768,000904:                                                                                                 #  Page 255
010769,000905:                                                                                                 #  TRACKTRM       VERB 56         DESCRIPTION
010770,000906:                                                                                                 #         TERMINATE TRACKING (P20)
010771,000907:                                                                                                 #         1.      KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
010772,000908:                                                                                                 #         2.      REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOP00H (REQUEST PROGRAM 00).
010773,000909:                                                                                                 #         3.      REQUIRE R22 RUNNING OR GO TO PINBRNCH.
010774,000910:                                                                                                 #         4.      IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22
010775,000911:                                                                                                 #         3.      KNOCK DOWN RENDEZFOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
010776,000912:                                                                                                 #         4.      GO TO ENEMA (SOFTWARE RESTART).
010777,000913:                                                                                                 #         REFERENCE
010778,000914:                                                                                                 #                 P20     RENDEZVOUS      NAVIGATION
010779,000915:                                                                                                 #                 R21     RENDEZVOUS      TRACKING SIGHTING MARK.
010780,000916:                                                                                                 #                 R22     RENDEZVOUS      TRACKING DATA PROCESSING.
010781,000917: 
010782,000918: 43,2637           34704        TRACKTRM          CA       BIT7                                  #  IS REND FLAG ON
010783,000919: 43,2640           70074                          MASK     FLAGWRD0                              
010784,000920: 43,2641           00006                          EXTEND                                         
010785,000921: 43,2642           12121                          BZF      GOPIN                                 #  NO
010786,000922: 
010787,000923: 43,2643           05447                          TC       DOWNFLAG                              
010788,000924: 43,2644           00010                          ADRES    RNDVZFLG                              
010789,000925: 
010790,000926: 43,2645           34706                          CA       BIT5                                  #  IS TRACK FLAG ON
010791,000927: 43,2646           70075                          MASK     FLAGWRD1                              
010792,000928: 43,2647           00006                          EXTEND                                         
010793,000929: 43,2650           12121                          BZF      GOPIN                                 #  NO
010794,000930: 
010795,000931: 43,2651           05447                          TC       DOWNFLAG                              
010796,000932: 43,2652           00031                          ADRES    TRACKFLG                              
010797,000933: 
010798,000934: 43,2653           05447                          TC       DOWNFLAG                              
010799,000935: 43,2654           00027                          ADRES    UPDATFLG                              
010800,000936: 
010801,000937: 43,2655           05447                          TC       DOWNFLAG                              
010802,000938: 43,2656           00007                          ADRES    IMUSE                                 
010803,000939: 
010804,000940: 43,2657           34752                          CAF      EBANK6                                
010805,000941: 43,2660           54003                          TS       EBANK                                 
010806,000942: 
010807,000943: 43,2661           00004                          INHINT                                         
010808,000944: 43,2662           04555                          TC       BANKCALL                              
010809,000945: 43,2663           45245                          CADR     STOPRATE                              
010810,000946: 
010811,000947: 43,2664           37716                          CAF      NEGONE                                
010812,000948: 43,2665           55303                          TS       OPTIND                                
010813,000949: 
010814,000950: 43,2666           06006                          TC       INTPRET                               
010815,000951: 43,2667           77624                          CALL                                           
010816,000952: 43,2670           27371                                   INTSTALL                              #  DON'T INTERRUPT INTEGRATION
010817,000953: 43,2671           77776                          EXIT                                           
010818,000954:                                                                                                 #  Page 256
010819,000955: 43,2672           05261                          TC       2PHSCHNG                              
010820,000956: 43,2673           00002                          OCT      2                                     #  KILL GROUP 2 TO HALT P20 ACTIVITY
010821,000957: 43,2674           00001                          OCT      1                                     #  ALSO KILL GROUP 1
010822,000958: 
010823,000959: 43,2675           00004        CLEANOUT          INHINT                                         
010824,000960: 43,2676           04574                          TC       POSTJUMP                              
010825,000961: 43,2677           12641                          CADR     ENEMA                                 #  CAUSE RESTART
010826,000962: 
010827,000963:                                                                                                 #  LEMVEC VERB 80         DESCRIPTION
010828,000964:                                                                                                 #         UPDATE LEM STATE VECTOR
010829,000965:                                                                                                 #                 RESET VEHUPFLG TO 0
010830,000966: 
010831,000967: 43,2700           05447        LEMVEC            TC       DOWNFLAG                              
010832,000968: 43,2701           00026                          ADRES    VEHUPFLG                              #  VEHUPFLG DOWN INDICATES LEM
010833,000969: 
010834,000970: 43,2702           12121                          TCF      GOPIN                                 
010835,000971: 
010836,000972:                                                                                                 #  CSMVEC VERB 81         DESCRIPTION
010837,000973:                                                                                                 #         UPDATE CSM STATE VECTOR
010838,000974:                                                                                                 #                 SET VEHUPFLG TO 1
010839,000975: 
010840,000976: 43,2703           05435        CSMVEC            TC       UPFLAG                                
010841,000977: 43,2704           00026                          ADRES    VEHUPFLG                              #  VEHUPFLG UP INDICATES CM
010842,000978: 
010843,000979: 43,2705           12121                          TCF      GOPIN                                 
010844,000980: 
010845,000981:                                                                                                 #  DNEDUMP        VERB 74         DESCRIPTION
010846,000982:                                                                                                 #         INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
010847,000983: 
010848,000984:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
010849,000985:                                                                                                 #         2.      REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
010850,000986:                                                                                                 #         3.      RELEASE EXT VERB DISPLAY.
010851,000987: 
010852,000988: 43,2706     0010                                 EBANK=   10                                    
010853,000989: 43,2706           32711        DNEDUMP           CAF      LDNDUMPI                              
010854,000990: 43,2707           54335                          TS       DNTMGOTO                              
010855,000991: 43,2710           02121                          TC       GOPIN                                 
010856,000992: 
010857,000993: 43,2711  43,2706               V74               EQUALS   DNEDUMP                               
010858,000994: 43,2711           03543        LDNDUMPI          REMADR   DNDUMPI                               
010859,000995: 
010860,000996:                                                                                                 #  LFTFLGON       VERB 75         DESCRIPTION
010861,000997:                                                                                                 #         SET LIFT-OFF FLAG
010862,000998:                                                                                                 #         1.      SETUP GRRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
010863,000999:                                                                                                 #         2.      RETURN VIA PINBRNCH
010864,001000: 
010865,001001: 43,2712           05435        LFTFLGON          TC       UPFLAG                                #  VB 75 -- SET LIFTOFF FLAG BIT
010866,001002: 43,2713           00125                          ADRES    GRRBKFLG                              #  BIT 5 FLAG 5
010867,001003:                                                                                                 #  Page 257
010868,001004: 43,2714           02121                          TC       GOPIN                                 
010869,001005: 
010870,001006: 43,2715           31011        CHKP00H           CA       MODREG                                
010871,001007: 43,2716           00006                          EXTEND                                         
010872,001008: 43,2717           16711                          BZF      TCQ                                   
010873,001009: 43,2720           12120                          TCF      ALM/END                               
010874,001010: 
010875,001011: 43,2721           00006        EXDAPOFF          EXTEND                                         
010876,001012: 43,2722           32731                          DCA      IDLECADR                              #  SET T5 TO IDLE.
010877,001013: 43,2723           53313                          DXCH     T5LOC                                 
010878,001014: 43,2724           44105                          CS       OCT60000                              
010879,001015: 43,2725           70102                          MASK     FLAGWRD6                              #  RESET DAPBITS 1 AND 2.
010880,001016: 43,2726           54102                          TS       FLAGWRD6                              
010881,001017: 43,2727           00002                          TC       Q                                     
010882,001018: 

[WORKAROUND] RSB 2004

010884,001020: 43,2730  40,2000                                 SBANK=   PINSUPER                              

[WORKAROUND]

010886,001022: 43,2730  E6,1425                                 EBANK=   PACTOFF                               
010887,001023: 43,2730           03143 12106  IDLECADR          2CADR    T5IDLOC                               
010888,001024: 
010889,001025:                                                                                                 #  Page 258
010890,001026:                                                                                                 #  VERB 89        DESCRIPTION     RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
010891,001027:                                                                                                 #  
010892,001028:                                                                                                 #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 IS USED.  CALCULATES AND
010893,001029:                                                                                                 #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
010894,001030:                                                                                                 #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
010895,001031: 
010896,001032:                                                                                                 #  1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
010897,001033:                                                                                                 #  EXIT R63, OTHERWISE CONTINUE.
010898,001034: 
010899,001035:                                                                                                 #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH).  IF IMU ON AND ITS
010900,001036:                                                                                                 #  ORIENTATION KNOWN TO CGC,CONTINUE.
010901,001037: 
010902,001038:                                                                                                 #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
010903,001039:                                                                                                 #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS (R2=1).
010904,001040:                                                                                                 #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
010905,001041:                                                                                                 #  AFTER KEYING IN PROCEED.
010906,001042: 
010907,001043:                                                                                                 #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED.  SET FLAG
010908,001044:                                                                                                 #  FOR PREFERRED AXIS.  RESET FLAG FOR X AXIS.
010909,001045: 
010910,001046:                                                                                                 #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
010911,001047: 
010912,001048:                                                                                                 #         R63COMP JOB:
010913,001049: 
010914,001050:                                                                                                 #                 UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS.
010915,001051: 
010916,001052:                                                                                                 #                 CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
010917,001053: 
010918,001054:                                                                                                 #                 DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
010919,001055:                                                                                                 #                 ARE STORED FOR LATER R60CSM CALL.
010920,001056: 
010921,001057:                                                                                                 #  6.  FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
010922,001058: 
010923,001059:                                                                                                 #  7.  RECYCLE:  RETURN TO STEP 5.
010924,001060:                                                                                                 #      TERMINATE:  EXIT R63 ROUTINE
010925,001061:                                                                                                 #      PROCEED:  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
010926,001062: 
010927,001063: 43,2732           02715        V89PERF           TC       CHKP00H                               #  DEMAND P00
010928,001064: 43,2733           02076                          TC       TESTXACT                              
010929,001065: 43,2734           00004                          INHINT                                         
010930,001066: 43,2735           34676                          CAF      PRIO10                                
010931,001067: 43,2736           05042                          TC       FINDVAC                               

[WORKAROUND] RSB 2004

010933,001069: 43,2737  30,2000                                 SBANK=   LOWSUPER                              

[WORKAROUND]

010935,001071: 43,2737  E4,1715                                 EBANK=   P21TIME                               
010936,001072: 43,2737           03601 70064                    2CADR    V89CALL                               
010937,001073: 
010938,001074: 43,2741           15112                          TCF      ENDOFJOB                              
010939,001075: 
010940,001076: 43,2742           00004        WMATRXNG          INHINT                                         #  VB 86 -- CLEAR RENDWFLG TO REINITIALIZE
010941,001077: 43,2743           44712                          CS       BIT1                                  #            W-MATRIX.
010942,001078:                                                                                                 #  Page 259
010943,001079: 43,2744           70101                          MASK     FLAGWRD5                              
010944,001080: 43,2745           54101                          TS       FLAGWRD5                              
010945,001081: 
010946,001082: 43,2746           05447                          TC       DOWNFLAG                              #  RESET ORBWFLAG
010947,001083: 43,2747           00066                          ADRES    ORBWFLAG                              
010948,001084: 43,2750           02121                          TC       GOPIN                                 
010949,001085: 
010950,001086: 43,2751  43,2751               GOSHOSUM          EQUALS   SHOWSUM                               
010951,001087: 
010952,001088: 43,2751           02715        SHOWSUM           TC       CHKP00H                               
010953,001089: 43,2752           02076                          TC       TESTXACT                              #  *
010954,001090: 43,2753           34712                          CAF      S+1                                   #  *
010955,001091: 43,2754           55376                          TS       SKEEP6                                #  * SHOWSUM OPTION
010956,001092: 43,2755           34714                          CAF      S+ZERO                                #  *
010957,001093: 43,2756           55362                          TS       SMODE                                 #  * TURN OFF SELF-CHECK
010958,001094: 43,2757           33243                          CA       SELFADRS                              #  *
010959,001095: 43,2760           55361                          TS       SELFRET                               #  *
010960,001096: 43,2761           03520                          TC       STSHOSUM                              #  * ENTER ROPECHK
010961,001097: 43,2762           23372        SDISPLAY          LXCH     SKEEP2                                #  * BNK NO FOR DSP
010962,001098: 43,2763           23373                          LXCH     SKEEP3                                #  * BUGGER WORD FOR DSP
010963,001099: 43,2764           33242        NOKILL            CA       ADRS1                                 #  *
010964,001100: 43,2765           54156                          TS       MPAC       +2                         #  *
010965,001101: 43,2766           32777                          CA       VNCON                                 #  * 0501
010966,001102: 43,2767           04555                          TC       BANKCALL                              #  *
010967,001103: 43,2770           20465                          CADR     GOXDSPF                               #  *
010968,001104: 43,2771           02774                          TC       +3                                    #  *
010969,001105: 43,2772           03631                          TC       NXTBNK                                #  *
010970,001106: 43,2773           02764                          TC       NOKILL                                #  *
010971,001107: 43,2774           33243                          CA       SELFADRS                              
010972,001108: 43,2775           55371                          TS       SKEEP1                                
010973,001109: 
010974,001110: 43,2776           05423                          TC       ENDEXT                                #  *
010975,001111: 43,2777           01201        VNCON             VN       501                                   #  *
010976,001112: 43,3000           31376        ENDSUMS           CA       SKEEP6                                #  *
010977,001113: 43,3001           00006                          EXTEND                                         #  *
010978,001114: 43,3002           13334                          BZF      SELFCHK                               #  * ROPECHK: START SELFCHK AGAIN
010979,001115: 43,3003           03520                          TC       STSHOSUM                              #  * START SHOWSUM AGAIN.
010980,001116: 
010981,001117:                                                                                                 #  VERB79 --- REQUEST LUNAR LANDMARK SELECT.  RESTRICTED TO P00.
010982,001118: 
010983,001119: 43,3004           02715        CALLR35           TC       CHKP00H                               
010984,001120: 43,3005           02076                          TC       TESTXACT                              
010985,001121: 
010986,001122: 43,3006           34754                          CAF      PRIO5                                 
010987,001123: 43,3007           05042                          TC       FINDVAC                               
010988,001124: 43,3010  E4,1725                                 EBANK=   KLOOPCNT                              
010989,001125: 43,3010           03215 62064                    2CADR    LNDMKSEL                              
010990,001126:                                                                                                 #  Page 260
010991,001127: 43,3012           05112                          TC       ENDOFJOB                              #  R35 WILL DO ENDEXT
010992,001128: 
010993,001129:                                                                                                 #  VB 76 --- SET PREFERRED ATTITUDE FLAG --- DRIVE TO PREFERRED.
010994,001130: 
010995,001131: 43,3013           05435        SETPRFLG          TC       UPFLAG                                
010996,001132: 43,3014           00120                          ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
010997,001133: 43,3015           02121                          TC       GOPIN                                 
010998,001134: 
010999,001135:                                                                                                 #  VB 77 --- RESET PREFERRED ATTITUDE FLAG --- DRIVE TO +X-AXIS ATT.
011000,001136: 
011001,001137: 43,3016           05447        RESETPRF          TC       DOWNFLAG                              
011002,001138: 43,3017           00120                          ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
011003,001139: 43,3020           02121                          TC       GOPIN                                 
011004,001140: 
011005,001141:                                                                                                 #  VB 87 --- SET VHF RANGE FLAG --- ALLOWS R22 TO ACCEPT RANGE DATA.
011006,001142: 
011007,001143: 43,3021           06006        SETVHFLG          TC       INTPRET                               
011008,001144: 43,3022           77414                          SET      EXIT                                  
011009,001145: 43,3023           04466                                   VHFRFLAG                              
011010,001146: 43,3024           02121                          TC       GOPIN                                 
011011,001147: 
011012,001148:                                                                                                 #  VB 88 --- RESET VHF RANGE FLAG --- STOPS ACCEPTANCE OF RANGE DATA.
011013,001149: 
011014,001150: 43,3025           06006        RESETVHF          TC       INTPRET                               
011015,001151: 43,3026           77414                          CLEAR    EXIT                                  
011016,001152: 43,3027           04666                                   VHFRFLAG                              
011017,001153: 43,3030           05520                          TC       TRFAILOF                              #  TRACKER FAIL LIGHT
011018,001154: 
011019,001155: 43,3031           02121                          TC       GOPIN                                 
011020,001156: 
011021,001157:                                                                                                 #  VERB 66.       VEHICLES ARE ATTACHED. --- MOVE THIS VEHICLE STATE VECTOR TO
011022,001158:                                                                                                 #                 OTHER VEHICLE STATE VECTOR.
011023,001159: 
011024,001160:                                                                                                 #  USE SUBROUTINE GENTRAN.
011025,001161: 
011026,001162: 43,3032  E3,1554                                 EBANK=   RRECTHIS                              
011027,001163: 43,3032           34676        ATTACHED          CAF      PRIO10                                
011028,001164: 43,3033           05042                          TC       FINDVAC                               
011029,001165: 43,3034  E3,1554                                 EBANK=   RRECTHIS                              
011030,001166: 43,3034           03037 66103                    2CADR    ATTACHIT                              
011031,001167: 
011032,001168: 43,3036           05112                          TC       ENDOFJOB                              
011033,001169: 
011034,001170: 43,3037           06006        ATTACHIT          TC       INTPRET                               
011035,001171: 43,3040           77624                          CALL                                           
011036,001172: 43,3041           27371                                   INTSTALL                              
011037,001173:                                                                                                 #  Page 261
011038,001174: 43,3042           43014                          SET      BON                                   
011039,001175: 43,3043           04064                                   MOONOTH                               
011040,001176: 43,3044           04303                                   MOONTHIS                              
011041,001177: 43,3045           67050                                   +3                                    
011042,001178: 43,3046           77614                          CLEAR                                          
011043,001179: 43,3047           04264                                   MOONOTH                               
011044,001180: 43,3050           77776                          EXIT                                           
011045,001181: 43,3051           33076                          CAF      OCT51                                 
011046,001182: 43,3052           05475                          TC       GENTRAN                               
011047,001183: 43,3053           01554                          ADRES    RRECTHIS                              #  OUR STATE VECTOR INTO OTHER VIA GENTRAN
011048,001184: 43,3054           01626                          ADRES    RRECTOTH                              
011049,001185: 
011050,001186: 43,3055           00003        TACHEXIT          RELINT                                         
011051,001187: 43,3056           06006                          TC       INTPRET                               
011052,001188: 43,3057           77624                          CALL                                           #  UPDATE RN, VN, R-OTHER, V-OTHER
011053,001189: 43,3060           26662                                   PTOACSM                               
011054,001190: 43,3061           45154                          LXA,2    CALL                                  
011055,001191: 43,3062           02150                                   PBODY                                 
011056,001192: 43,3063           20237                                   SVDWN1                                
011057,001193: 43,3064           77624                          CALL                                           
011058,001194: 43,3065           20263                                   SVDWN2                                
011059,001195: 43,3066           77776                          EXIT                                           
011060,001196: 
011061,001197: 43,3067           33077                          CAF      TCPINAD                               
011062,001198: 43,3070           50120                          INDEX    FIXLOC                                
011063,001199: 43,3071           54052                          TS       QPRET                                 
011064,001200: 43,3072           04574                          TC       POSTJUMP                              
011065,001201: 43,3073           27406                          CADR     INTWAKE                               
011066,001202: 
011067,001203: 43,3074           77634        TCPIN             RTB                                            
011068,001204: 43,3075           21176                                   PINBRNCH                              
011069,001205: 
011070,001206: 43,3076           00051        OCT51             OCT      51                                    
011071,001207: 43,3077           67074        TCPINAD           CADR     TCPIN                                 
011072,001208: 
011073,001209:                                                                                                 #  VERB 47.  MOVE LM STATE VECTOR INTO CSM STATE VECTOR
011074,001210: 
011075,001211: 43,3100           34676        LMTOCMSV          CAF      PRIO10                                
011076,001212: 43,3101           05042                          TC       FINDVAC                               
011077,001213: 43,3102  E3,1554                                 EBANK=   RRECTHIS                              
011078,001214: 43,3102           03105 66103                    2CADR    LMTOCM                                
011079,001215: 
011080,001216: 43,3104           05112                          TC       ENDOFJOB                              
011081,001217: 
011082,001218: 43,3105           06006        LMTOCM            TC       INTPRET                               
011083,001219: 43,3106           77624                          CALL                                           
011084,001220: 43,3107           27371                                   INTSTALL                              
011085,001221: 43,3110           43014                          SET      BON                                   
011086,001222: 43,3111           04063                                   MOONTHIS                              
011087,001223: 43,3112           04304                                   MOONOTH                               
011088,001224:                                                                                                 #  Page 262
011089,001225: 43,3113           67116                                   +3                                    
011090,001226: 43,3114           77614                          CLEAR                                          
011091,001227: 43,3115           04263                                   MOONTHIS                              
011092,001228: 43,3116           77776                          EXIT                                           
011093,001229: 
011094,001230: 43,3117           33076                          CAF      OCT51                                 
011095,001231: 43,3120           05475                          TC       GENTRAN                               
011096,001232: 43,3121           01626                          ADRES    RRECTOTH                              #  LM STATE VECTOR INTO CM VIA GENTRAN
011097,001233: 43,3122           01554                          ADRES    RRECTHIS                              
011098,001234: 
011099,001235: 43,3123           13055                          TCF      TACHEXIT                              
011100,001236: 
011101,001237:                                                                                                 #  VERB 94 --- DO R64 VIA ENEMA TO PICK UP IN P23.
011102,001238: 
011103,001239: 43,3124           34700        VERB94            CAF      BIT11                                 
011104,001240: 43,3125           70105                          MASK     FLAGWRD9                              #  IS V94FLAG SET
011105,001241: 43,3126           00006                          EXTEND                                         
011106,001242: 43,3127           12120                          BZF      ALM/END                               #  NO --- OPERATOR ERROR
011107,001243: 
011108,001244: 43,3130           05447                          TC       DOWNFLAG                              
011109,001245: 43,3131           00213                          ADRES    V94FLAG                               
011110,001246: 
011111,001247: 43,3132           05253                          TC       CHECKMM                               #  IS IT P23
011112,001248: 43,3133           00027                          MM       23         B-14                       
011113,001249: 43,3134           02120                          TC       ALM/END                               #  NO -- OPERATOR ERROR
011114,001250: 43,3135           05301                          TC       PHASCHNG                              
011115,001251: 43,3136           00112                          OCT      112                                   #  SET GROUP 2 TO DO R64
011116,001252: 
011117,001253: 43,3137           02675                          TC       CLEANOUT                              #  CAUSE RESTART
011118,001254: 
011119,001255:                                                                                                 #  V90PERF        VERB 90         DESCRIPTION
011120,001256:                                                                                                 #         REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011121,001257: 
011122,001258:                                                                                                 #         1.      SET EXT VERB DISPLAY BUSY FLAG.
011123,001259:                                                                                                 #         2.      SCHEDULE R36 CALL WITH PRIORITY 10
011124,001260:                                                                                                 #                 A.      DISPLAY
011125,001261:                                                                                                 #                         TIME OF EVENT -- HOURS, MINUTES, SECONDS
011126,001262:                                                                                                 #                         Y       OUT-OF-PLANE POSITION -- NAUTICAL MILES
011127,001263:                                                                                                 #                         YDOT    OUT-OF-PLANE VELOCITY -- FEET/SECOND
011128,001264:                                                                                                 #                         PSI     ANGLE BTW LINE OF SIGHT AND FORWARD
011129,001265:                                                                                                 #                                 DIRECTION VECTOR IN HORIZONTAL PLANE -- DEGREES
011130,001266: 
011131,001267: 43,3140           02076        V90PERF           TC       TESTXACT                              
011132,001268: 43,3141           34756                          CAF      PRIO7                                 #  R36,V90
011133,001269: 43,3142           05042                          TC       FINDVAC                               

[WORKAROUND] RSB 2004

011135,001271: 43,3143  40,2000                                 SBANK=   PINSUPER                              

[WORKAROUND]

011137,001273: 43,3143  E4,1726                                 EBANK=   RPASS36                               
011138,001274: 43,3143           02746 10104                    2CADR    R36                                   
011139,001275: 
011140,001276: 43,3145           15112                          TCF      ENDOFJOB                              
011141,001277: 
011142,001278:                                                                                                 #  VERB 96 --- SET QUITFLAG TO STOP INTEGRATION
011143,001279: 
011144,001280: 43,3146           05435        VERB96            TC       UPFLAG                                #  QUITFLAG WILL CAUSE INTEGRATION TO EXIT
011145,001281:                                                                                                 #  Page 263
011146,001282: 43,3147           00221                          ADRES    QUITFLAG                              #         AT NEXT TIMESTEP
011147,001283: 
011148,001284: 43,3150           34714                          CAF      ZERO                                  
011149,001285: 43,3151           04574                          TC       POSTJUMP                              
011150,001286: 43,3152           10010                          CADR     V37                                   #  GO TO P00
011151,001287: 
011152,001288: 43,3153  0002751                                 EBANK=   LANDMARK                              
011153,001289: 43,3153           05253        V52               TC       CHECKMM                               #  IS P22 OPERATING
011154,001290: 43,3154           00026                          MM       22         B-14                       
011155,001291: 43,3155           02120                          TC       ALM/END                               #  NO
011156,001292: 43,3156           33174                          CAF      LANDBANK                              
011157,001293: 43,3157           54003                          TS       EBANK                                 
011158,001294: 
011159,001295: 43,3160           44756                          CS       PRIO7                                 #  YES    SET BITS 12,11,10 OF LANDMARK =
011160,001296: 43,3161           71751                          MASK     LANDMARK                              #         BITS 14,13,12 OF MARKSTATE AFTER
011161,001297: 43,3162           55751                          TS       LANDMARK                              #         ADDING 1 TO THEM TO GET OFFSET
011162,001298: 43,3163           31330                          CA       MARKSTAT                              #         MARK NO.
011163,001299: 43,3164           54021                          TS       SR                                    
011164,001300: 43,3165           30021                          CA       SR                                    
011165,001301: 43,3166           30021                          CA       SR                                    
011166,001302: 43,3167           74756                          MASK     PRIO7                                 
011167,001303: 43,3170           40000                          CS       A                                     
011168,001304: 43,3171           64754                          AD       PRIO5                                 
011169,001305: 43,3172           27751                          ADS      LANDMARK                              
011170,001306: 43,3173           02121                          TC       GOPIN                                 
011171,001307: 43,3174           02751        LANDBANK          ECADR    LANDMARK                              
011172,001308: 
011173,001309:                                                                                                 #  VERB 67 --- ASTRONAUT DISPLAY OF W MATRIX
011174,001310: 
011175,001311: 43,3175           02076        V67               TC       TESTXACT                              
011176,001312: 43,3176           34754                          CAF      PRIO5                                 
011177,001313: 43,3177           05042                          TC       FINDVAC                               
011178,001314: 43,3200  0002400                                 EBANK=   W                                     
011179,001315: 43,3200           03574 60105                    2CADR    V67CALL                               
011180,001316: 
011181,001317: 43,3202           05112                          TC       ENDOFJOB                              
011182,001318: 
011183,001319:                                                                                                 #  VB 44 --- SET SURFACE FLAG.
011184,001320: 
011185,001321: 43,3203           05435        SETSURF           TC       UPFLAG                                
011186,001322: 43,3204           00177                          ADRES    SURFFLAG                              
011187,001323: 43,3205           12121                          TCF      GOPIN                                 
011188,001324: 
011189,001325:                                                                                                 #  VB 45 --- RESET SURFACE FLAG
011190,001326: 
011191,001327: 43,3206           05447        RESTSRF           TC       DOWNFLAG                              
011192,001328: 43,3207           00177                          ADRES    SURFFLAG                              
011193,001329: 43,3210           12121                          TCF      GOPIN                                 
011194,001330:                                                                                                 #  Page 264
011195,001331:                                                                                                 #  ... is empty --- RSB 2004
011196,001332: 

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