Source Code
These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3),
the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments. Since no contemporary listings of Comanche 72/3 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
009749,000002: ## Copyright: Public domain. 009750,000003: ## Filename: EXTENDED_VERBS.agc 009751,000004: ## Purpose: A section of Manche72 revision 3. 009752,000005: ## It is part of the reconstructed source code for the final, flown 009753,000006: ## release of the software for the Command Module's (CM) Apollo 009754,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings 009755,000008: ## of this program are available; instead, this file was recreated 009756,000009: ## from a reconstructed copy of Comanche 072. It has been adapted 009757,000010: ## such that the resulting bugger words exactly match those 009758,000011: ## specified for Manche72 revision 3 in NASA drawing 2021153G, 009759,000012: ## which gives relatively high confidence that the reconstruction 009760,000013: ## is correct. 009761,000014: ## Assembler: yaYUL 009762,000015: ## Contact: Ron Burkey <info@sandroid.org>. 009763,000016: ## Website: www.ibiblio.org/apollo/index.html 009764,000017: ## Mod history: 2024-05-19 MAS Created from Comanche 072. 009765,000018: 009766,000019: 07,2441 BANK 7 009767,000020: 43,2000 SETLOC EXTVERBS 009768,000021: 43,2000 BANK 009769,000022: 009770,000023: 43,2000 E5,1757 EBANK= OGC 009771,000024: 009772,000025: 43,2000 COUNT* $$/EXTVB 009773,000026: 009774,000027: # FAN-OUT 009775,000028: 009776,000029: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC 009777,000030: 43,2001 02002 TC LST2FAN # FAN AS BEFORE. 009778,000031: 009779,000032: 43,2002 02126 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY). 009780,000033: 43,2003 02152 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR 009781,000034: # 91 ONLY) 009782,000035: 43,2004 02242 TC IMUFINEK # VB42 FINE ALIGN IMU 009783,000036: 43,2005 02422 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS. 009784,000037: 43,2006 03137 TC SETSURF # VB44 SET SURFACE FLAG 009785,000038: 43,2007 03142 TC RESTSRF # VB45 RESET SURFACE FLAG 009786,000039: 43,2010 02527 TC STABLISH # VB46 ESTABLISH G+C CONTROL. 009787,000040: 43,2011 03040 TC LMTOCMSV # VB47 MOVE LM STATE VECTOR INTO CM 009788,000041: 43,2012 02555 TC DAPDISP # VB48 LOAD A/P DATA. 009789,000042: 43,2013 12546 TCF CREWMANU # VB 49 START AUTOMATIC ATTITUDE MANEUVER 009790,000043: 43,2014 02277 TC GOLOADLV # VB50 PLEASE PERFORM 009791,000044: 43,2015 02277 TC GOLOADLV # VB51 PLEASE MARK 009792,000045: 43,2016 03110 TC V52 # VB52 SET OFFSET NO. FOR P22 009793,000046: 43,2017 02277 TC GOLOADLV # VB 53 PLEASE PERFORM COAS MARK 009794,000047: 43,2020 02611 TC GOTOR23 # V54 START R23 (R21-BACKUP) 009795,000048: 43,2021 02330 TC ALINTIME # VB55 ALIGN TIME 009796,000049: 43,2022 02652 TC TRACKTRM # VB56 TERMINATE TRACKING (P20 + P25) 009797,000050: 43,2023 02606 TC GOTOR21 # V57 START R21 REND TRACK SIGHT MARK ROUT 009798,000051: 43,2024 02511 TC ENATMA # VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER 009799,000052: 43,2025 02277 TC GOLOADLV # VB59 PLEASE CALIBRATE 009800,000053: 43,2026 02305 TC V60 # VB60 SET CPHIX (N17) EQUAL TO CDU 009801,000054: 43,2027 02313 TC V61 # VB61 SELECT MODE I 009802,000055: 43,2030 02316 TC V62 # VB62 SELECT MODE II, ERROR WRT N22 009803,000056: 43,2031 02323 TC V63 # VB63 SELECT MODE III, ERROR WRT N17 009804,000057: 43,2032 02502 TC VB64 # VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES 009805,000058: 43,2033 02377 TC CKOPTVB # V 65 E OPTICAL VERIFICATION FOR PRELAUNC 009806,000059: 43,2034 03033 TC ATTACHED # VB66 ATTACHED. MOVE THIS TO OTHER STATE 009807,000060: 43,2035 03131 TC V67 # VB67 W MATRIX MONITOR 009808,000061: 43,2036 02516 TC STROKON # VB68 CSM STROKE TEST ON. 009809,000062: 43,2037 02037 VERB69 TC VERB69 # VB69 CAUSE RESTART 009810,000063: 43,2040 03736 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME. 009811,000064: 43,2041 03740 TC V71UPDAT # VB71 UNIVERSAL UPDATE - BLOCK ADDRESS. 009812,000065: 43,2042 03742 TC V72UPDAT # VB72 UNIVERSAL UPDATE - SINGLE ADDRESS. 009813,000066: 43,2043 03744 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL). 009814,000067: 43,2044 02720 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM 009815,000068: # FOR ERASABLE DUMP. 009816,000069: 43,2045 02724 TC LFTFLGON # VB75 SET LIFTOFF FLAG. 009817,000070: 43,2046 03014 TC SETPRFLG # VB76 SET PREFERRED ATTITUDE FLAG 009818,000071: 43,2047 03017 TC RESETPRF # VB77 RESET PREFERRED ATT. FLAG 009819,000072: 43,2050 02410 TC CHAZFOGC # CHANGE GYROCOMPASS LAUNCH AZIMUTH V78 009820,000073: 43,2051 03145 TC V79 # VB79 START BARBECUE MODE ROUTINE (R64) 009821,000074: 43,2052 02712 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR 009822,000075: 43,2053 02715 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR 009823,000076: 43,2054 02565 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30) 009824,000077: 43,2055 02572 TC V83PERF # VB83 RANGE, RANGE RATE, +X AXIS (R31) 009825,000078: 43,2056 02122 TC ALM/END # V84 SPARE 009826,000079: 43,2057 02602 TC V85PERF # VB85 RANGE, RANGE RATE, SLOS (R34) 009827,000080: 43,2060 02645 TC V86PERF # VB86 BACKUP MARK REJECT 009828,000081: 43,2061 03022 TC SETVHFLG # VB87 SET VHF RANGE FLAG 009829,000082: 43,2062 03026 TC RESETVHF # VB88 RESET VHF RANGE FLAG 009830,000083: 43,2063 02745 TC V89PERF # V89-ALIGN X OR PRF CSM AXIS TO LOS (R63) 009831,000084: 43,2064 03073 TC V90PERF # VB90-OUT OF PLANE PARAMETERS %R36" 009832,000085: 43,2065 02761 TC GOSHOSUM # VB91 TEMP FOR HYBRID AND STG. 009833,000086: 43,2066 02362 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST 009834,000087: 43,2067 02754 TC WMATRXNG # VB93 CLEAR RENDWFLG 009835,000088: 43,2070 03057 TC VERB94 # VB94 DO R64 009836,000089: 43,2071 02122 TC ALM/END # VB95 SPARE 009837,000090: 43,2072 13101 TCF VERB96 # VB96 SET QUITFLAG TO STOP INTEGRATION 009838,000091: 43,2073 02277 TC GOLOADLV # V97 PLEASE PERFORM ENGINE-FAIL (R41) 009839,000092: 43,2074 02122 TC ALM/END # VB98 SPARE 009840,000093: 43,2075 02277 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE 009841,000094: 009842,000095: # END OF EXTENDED VERB FAN 009843,000096: 009844,000097: 43,2076 11044 TESTXACT CCS EXTVBACT 009845,000098: 43,2077 02122 TC ALM/END # YES. TURN ON OPERATOR ERROR LIGHT 009846,000099: 43,2100 30100 CA FLAGWRD4 # ARE PRIOS USING DSKY 009847,000100: 43,2101 72125 MASK OC24100 009848,000101: 43,2102 10000 CCS A 009849,000102: 43,2103 02122 TC ALM/END 009850,000103: 009851,000104: 43,2104 34112 CAF OCT24 # SET BITS 3 AND 5 009852,000105: 43,2105 55044 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY 009853,000106: # SYSTEM BUSY 009854,000107: 009855,000108: 43,2106 30002 CA Q 009856,000109: 43,2107 54155 TS MPAC +1 009857,000110: 009858,000111: 43,2110 45032 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB 009859,000112: 43,2111 04170 TC NVSUB 009860,000113: 43,2112 02113 TC +1
Reconstruction: The following two lines were added to Comanche 72 to correct anomaly COM-22, "V79, V41, V55, V42, do not perform CCS NEWJOB". |
009863,000116: 43,2113 10067 CCS NEWJOB # ALLOW POSSIBLE WAITING DISPLAY (FROM 009864,000117: 43,2114 05200 TC CHANG1 # RELDSP) TO COME UP. 009865,000118: 009866,000119: 43,2115 00155 TC MPAC +1 009867,000120: 009868,000121: 43,2116 04400 XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT. 009869,000122: 43,2117 05550 TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS. 009870,000123: 43,2120 5550 TERMEXTV EQUALS ENDEXT 009871,000124: 43,2120 5550 ENDEXTVB EQUALS ENDEXT 009872,000125: 009873,000126: 43,2120 35035 XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS. 009874,000127: 43,2121 02105 TC SETXTACT 009875,000128: 009876,000129: 43,2122 04400 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT 009877,000130: 43,2123 04715 GOPIN TC POSTJUMP 009878,000131: 43,2124 21272 CADR PINBRNCH 009879,000132: 009880,000133: 43,2125 24100 OC24100 OCT 24100 009881,000134: 009882,000135: # VBZERO VERB 40 DESCRIPTION 009883,000136: # ZERO 009884,000137: # 1. REQUIRE NOUN 20 (ICDU ANGLES) 009885,000138: # 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM 009886,000139: # 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. 009887,000140: # 4. SET EXT VERB DISPLAY ACTIVE FLAG. 009888,000141: # 5. EXECUTE IMUZERO (ZERO IMU CDU ANGLES). 009889,000142: # 6. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). 009890,000143: # 7. RELEASE EXT. VERB DISPLAY SYSTEM. 009891,000144: 009892,000145: 43,2126 02140 VBZERO TC OP/INERT 009893,000146: 43,2127 02131 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20) 009894,000147: 43,2130 02122 TC ALM/END # RETURN HERE IF NOUN = OCDU(91) 009895,000148: # (NOT IN USE YET) 009896,000149: 009897,000150: 43,2131 02273 IMUZEROK TC CKMODCAD # KEYBOARD REQUEST FOR ISS CDUZERO 009898,000151: 43,2132 04676 TC BANKCALL 009899,000152: 43,2133 16577 CADR IMUZERO 009900,000153: 009901,000154: 43,2134 04676 TC BANKCALL # STALL 009902,000155: 43,2135 17577 CADR IMUSTALL 009903,000156: 43,2136 02137 TC +1 009904,000157: 009905,000158: 43,2137 02123 TC GOPIN 009906,000159: 009907,000160: 43,2140 44112 OP/INERT CS OCT24 009908,000161: 43,2141 61002 AD NOUNREG 009909,000162: 43,2142 00006 EXTEND 009910,000163: 43,2143 12500 BZF XACT0Q # IF = 20. 009911,000164: 009912,000165: 43,2144 24002 INCR Q 009913,000166: 43,2145 62151 AD OPIMDIFF # -71 009914,000167: 43,2146 00006 EXTEND 009915,000168: 43,2147 12500 BZF XACT0Q 009916,000169: 009917,000170: 43,2150 02122 TC ALM/END # ILLEGAL. 009918,000171: 009919,000172: 43,2151 77670 OPIMDIFF DEC -71 B-14 009920,000173: 009921,000174: # VBCOARK VERB 41 DESCRIPTION 009922,000175: # COURSE ALIGN IMU OR OPTICS 009923,000176: 009924,000177: # 1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR 009925,000178: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. 009926,000179: 009927,000180: # CASE 1 NOUN 20 (ICDU ANGLES) 009928,000181: # 3. SET EXT VERB DISPLAY ACTIVE FLAG. 009929,000182: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). 009930,000183: # RESPONSES 009931,000184: # A. TERMINATE 009932,000185: # 1. RELEASE EXT VERB DISPLAY SYSTEM 009933,000186: # B. PROCEED 009934,000187: # 1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES). 009935,000188: # RESPONSES 009936,000189: # A. TERMINATE 009937,000190: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 009938,000191: # B. PROCEED 009939,000192: # 1. EXECUTE ICORK2. 009940,000193: # C. ENTER 009941,000194: # 1. INCREMENT CDU ANGLES 009942,000195: # 2. EXECUTE ICORK2. 009943,000196: # C. ENTER 009944,000197: # 1. EXECUTE ICORK2. 009945,000198: # ICORK2 009946,000199: # 1. RE-DISPLAY VERB 41. 009947,000200: # 2. EXECUTE IMUCOARS (IMU COARSE ALIGN). 009948,000201: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). 009949,000202: # 4. RELEASE EXT VERB DISPLAY SYSTEM. 009950,000203: 009951,000204: # CASE 2 NOUN 91 (OCDU ANGLES) 009952,000205: # 5. (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE 009953,000206: # OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117 009954,000207: # AND RELEASE EXT VERB DISPLAY SYSTEM). 009955,000208: # 6. RESPONSES TO V29,N92. 009956,000209: # A. TERMINATE 009957,000210: # RELEASE EXT VERB DISPLAY SYSTEM 009958,000211: # B. PROCEED OR ENTER 009959,000212: # RE-DISPLAY V41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING. 009960,000213: # RELEASE EXT VERB DISPLAY SYSTEM. 009961,000214: 009962,000215: 43,2152 02140 VBCOARK TC OP/INERT 009963,000216: 43,2153 02155 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20) 009964,000217: 43,2154 02177 TC OPTCOARK # RETURN HERE IF NOUN = OCDU (91) 009965,000218: 009966,000219: # RETURN TO L+1 IF NOUN 20 - TO L+2 IF NOUN 91. 009967,000220: 009968,000221: 43,2155 02273 IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD 009969,000222: 43,2156 02076 TC TESTXACT 009970,000223: 43,2157 32175 CAF VNLODCDU # CALL FOR THETAD LOAD 009971,000224: 43,2160 04676 TC BANKCALL 009972,000225: 43,2161 20561 CADR GOXDSPF 009973,000226: 43,2162 05550 TC TERMEXTV 009974,000227: 43,2163 12164 TCF +1 009975,000228: 009976,000229: 43,2164 32176 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB. 009977,000230: 43,2165 04676 TC BANKCALL 009978,000231: 43,2166 21042 CADR EXDSPRET 009979,000232: 009980,000233: 43,2167 04676 TC BANKCALL # CALL MODE SWITCHING PROG 009981,000234: 43,2170 16663 CADR IMUCOARS 009982,000235: 009983,000236: 43,2171 04676 TC BANKCALL # STALL 009984,000237: 43,2172 17577 CADR IMUSTALL 009985,000238: 43,2173 05550 TC ENDEXTVB 009986,000239: 43,2174 05550 TC ENDEXTVB 009987,000240: 009988,000241: 43,2175 06226 VNLODCDU VN 2522 009989,000242: 43,2176 12200 IMUCOARV VN 4100 009990,000243: 009991,000244: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD 009992,000245: 009993,000246: 43,2177 31323 OPTCOARK CA OPTCADR 009994,000247: 43,2200 02274 TC CKMODCAD +1 009995,000248: 43,2201 02076 TC TESTXACT 009996,000249: 43,2202 35072 CAF EBANK5 009997,000250: 43,2203 54003 TS EBANK 009998,000251: 009999,000252: 43,2204 11314 CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER 010000,000253: 43,2205 02212 TC +5 # SWITCH AT COMPUTER 010001,000254: 43,2206 02207 TC +1 # NOT ON COMPUTER 010002,000255: 43,2207 04400 TC FALTON # TURN ON OPERATOR ERR 010003,000256: 43,2210 05664 TC ALARM # AND ALARM 010004,000257: 43,2211 00115 OCT 00115 010005,000258: 010006,000259: 43,2212 11303 CCS OPTIND # SEE IF OPTICS AVAILABLE 010007,000260: 43,2213 02221 TC OPTC1 # IN USE 010008,000261: 43,2214 02221 TC OPTC1 # IN USE 010009,000262: 43,2215 02221 TC OPTC1 # IN USE 010010,000263: 010011,000264: 43,2216 05664 TC ALARM # OPTICS RESERVED (OPTIND=-0) 010012,000265: 43,2217 00117 OCT 00117 010013,000266: 43,2220 05550 TC ENDEXT 010014,000267: 010015,000268: 43,2221 32241 OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS 010016,000269: 43,2222 04676 TC BANKCALL 010017,000270: 43,2223 20561 CADR GOXDSPF 010018,000271: 43,2224 05550 TC TERMEXTV 010019,000272: 43,2225 02226 TC +1 # PROCEED 010020,000273: 010021,000274: 43,2226 31773 CA SAC 010022,000275: 43,2227 55161 TS DESOPTS 010023,000276: 43,2230 31775 CA PAC 010024,000277: 43,2231 55160 TS DESOPTT 010025,000278: 43,2232 32176 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB 010026,000279: 43,2233 04676 TC BANKCALL 010027,000280: 43,2234 21042 CADR EXDSPRET 010028,000281: 010029,000282: 43,2235 35033 CAF ONE 010030,000283: 43,2236 55303 TS OPTIND # SET COARS WORKING 010031,000284: 010032,000285: 43,2237 05550 TC ENDEXTVB 010033,000286: 43,2240 05550 TC ENDEXTVB 010034,000287: 010035,000288: 43,2241 06134 VNLD0CDU VN 2492 010036,000289: 43,2242 43,2176 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS. 010037,000290: 010038,000291: # IMUFINEK VERB 42 DESCRIPTION 010039,000292: # FINE ALIGN IMU 010040,000293: 010041,000294: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH. 010042,000295: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES.... 010043,000296: # RESPONSES 010044,000297: # A. TERMINATE 010045,000298: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010046,000299: # B. PROCEED OR ENTER 010047,000300: # 1. RE-DISPLAY VERB 42 010048,000301: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING). 010049,000302: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER) 010050,000303: # A. FAILED 010051,000304: # 1. RELEASE EXT VERB DISPLAY SYSTEM. 010052,000305: # B. GOOD 010053,000306: # 1. EXECUTE IMUPULSE (TORQUE IRIGS). 010054,000307: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM. 010055,000308: 010056,000309: 43,2242 02273 IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING 010057,000310: 43,2243 02076 TC TESTXACT 010058,000311: 43,2244 32271 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS 010059,000312: 43,2245 04676 TC BANKCALL 010060,000313: 43,2246 20561 CADR GOXDSPF 010061,000314: 43,2247 05550 TC TERMEXTV 010062,000315: 43,2250 02251 TC +1 # PROCEED WITHOUT A LOAD 010063,000316: 010064,000317: 43,2251 32272 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB 010065,000318: 43,2252 04676 TC BANKCALL 010066,000319: 43,2253 21042 CADR EXDSPRET 010067,000320: 010068,000321: 43,2254 04676 TC BANKCALL # CALL MODE SWITCH PROG 010069,000322: 43,2255 17073 CADR IMUFINE 010070,000323: 010071,000324: 43,2256 04676 TC BANKCALL # HIBERNATION 010072,000325: 43,2257 17577 CADR IMUSTALL 010073,000326: 43,2260 05550 TC ENDEXTVB 010074,000327: 010075,000328: 43,2261 32270 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS 010076,000329: 43,2262 04676 TC BANKCALL 010077,000330: 43,2263 17206 CADR IMUPULSE 010078,000331: 010079,000332: 43,2264 04676 TC BANKCALL # WAIT FOR PULSES TO GET OUT. 010080,000333: 43,2265 17577 CADR IMUSTALL 010081,000334: 43,2266 05550 TC ENDEXTVB 010082,000335: 43,2267 05550 TC ENDEXTVB 010083,000336: 010084,000337: 43,2270 02757 LGYROBIN ECADR OGC 010085,000338: 43,2271 06335 VNLODGYR VN 2593 010086,000339: 43,2272 12400 IMUFINEV VN 4200 # FINE ALIGN VERB 010087,000340: 010088,000341: 43,2273 31322 CKMODCAD CA MODECADR 010089,000342: 43,2274 00006 EXTEND 010090,000343: 43,2275 16711 BZF TCQ 010091,000344: 43,2276 02122 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT 010092,000345: 010093,000346: # GOLOADLV VERB 50 DESCRIPTION 010094,000347: # AND OTHER PLEASE 010095,000348: # DO SOMETHING VERBS 010096,000349: 010097,000350: # PLEASE PERFORM, MARK, CALIBRATE, ETC. 010098,000351: 010099,000352: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE 010100,000353: # SAME RECALL AS A COMPLETED LOAD. 010101,000354: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED. 010102,000355: 010103,000356: 43,2277 04447 GOLOADLV TC FLASHOFF 010104,000357: 43,2300 34215 CAF PINSUPBT 010105,000358: 43,2301 00006 EXTEND 010106,000359: 43,2302 01007 WRITE SUPERBNK # TURN ON FE7 010107,000360: 43,2303 04715 TC POSTJUMP 010108,000361: 43,2304 40,2000 SBANK= PINSUPER 010109,000362: 43,2304 62001 CADR LOADLV1 010110,000363: 010111,000364: # V60 VERB 60 010112,000365: 43,2305 00006 V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL 010113,000366: 43,2306 30033 DCA CDUX # TO PRESENT ATTITUDE 010114,000367: 43,2307 53334 DXCH CPHIX 010115,000368: 43,2310 30034 CA CDUZ 010116,000369: 43,2311 55335 TS CPHIX +2 010117,000370: 43,2312 02123 TC GOPIN 010118,000371: 010119,000372: # V61 VERB 61 010120,000373: 43,2313 05574 V61 TC DOWNFLAG # SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE 010121,000374: 43,2314 00006 ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED 010122,000375: 43,2315 02123 TC GOPIN 010123,000376: 010124,000377: # V62 VERB 62 010125,000378: 43,2316 05562 V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), 010126,000379: 43,2317 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED 010127,000380: 010128,000381: 43,2320 05562 TC UPFLAG # SET N22ORN17 TO 1 (FLAGWRD9,BIT6), 010129,000382: 43,2321 00220 ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22 010130,000383: 43,2322 02123 TC GOPIN 010131,000384: 010132,000385: # V63 VERB 63 010133,000386: 43,2323 05562 V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), 010134,000387: 43,2324 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED 010135,000388: 010136,000389: 43,2325 05574 TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6, 010137,000390: 43,2326 00220 ADRES N22ORN17 # COMPUTE TOTAL ASTRONAUT ATTITUDE ERROR 010138,000391: 43,2327 02123 TC GOPIN 010139,000392: 010140,000393: # ALINTIME VERB 55 DESCRIPTION 010141,000394: 010142,000395: # 1. SET EXT VERB DISPLAY BUSY FLAG. 010143,000396: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK. 010144,000397: # 3. REQUIRE EXECUTION OF VERB 23. 010145,000398: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME. 010146,000399: # 5. RELEASE EXT VERB DISPLAY SYSTEM 010147,000400: 010148,000401: 43,2330 COUNT 04/R33 010149,000402: 010150,000403: 43,2330 02076 ALINTIME TC TESTXACT 010151,000404: 010152,000405: 43,2331 32361 CAF VNLODDT 010153,000406: 43,2332 04676 TC BANKCALL 010154,000407: 43,2333 20561 CADR GOMARKF 010155,000408: 43,2334 05550 TC ENDEXT # TERMINATE 010156,000409: 43,2335 05550 TC ENDEXT # PROCEED 010157,000410: 43,2336 42360 CS DEC23 # DATA IN OR RESEQUENCE (UNLIKELY) 010158,000411: 43,2337 60154 AD MPAC # RECALL LEFT VERB IN MPAC 010159,000412: 43,2340 00006 EXTEND 010160,000413: 43,2341 12343 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL 010161,000414: 43,2342 05550 TC ENDEXT # WITH V23 (DATA IN). 010162,000415: 010163,000416: 43,2343 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1. 010164,000417: 43,2344 35035 CAF ZERO 010165,000418: 43,2345 54156 TS MPAC +2 # NEEDED FOR TP AGREE 010166,000419: 43,2346 54001 TS L # ZERO T1 & 2 WHILE ALIGNING. 010167,000420: 43,2347 52025 DXCH TIME2 010168,000421: 43,2350 52155 DXCH MPAC 010169,000422: 43,2351 53052 DXCH DSPTEM2 +1 # INCREMENT 010170,000423: 43,2352 20155 DAS MPAC 010171,000424: 010172,000425: 43,2353 07226 TC TPAGREE # FORCE SIGN AGREEMENT. 010173,000426: 43,2354 52155 DXCH MPAC # NEW CLOCK. 010174,000427: 43,2355 20025 DAS TIME2 010175,000428: 43,2356 00003 RELINT 010176,000429: 43,2357 05550 UPDTMEND TC ENDEXT 010177,000430: 43,2360 00027 DEC23 DEC 23 B-14 # V 23 010178,000431: 010179,000432: 43,2361 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME 010180,000433: 010181,000434: # SYSTEST VERB 92 DESCRIPTION 010182,000435: # OPERATE SELECTED SYSTEM TEST 010183,000436: 010184,000437: # 1. REQUIRE POO OR POO- OR TURN ON OPERATOR ERROR. 010185,000438: # 2. TURN OFF DAP IF IT IS ON. 010186,000439: # 3. DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17). 010187,000440: # 4. UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20. 010188,000441: 010189,000442: # TSELECT 010190,000443: # 1. IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND 010191,000444: # REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE) 010192,000445: 010193,000446: 43,2362 E5,1425 EBANK= QPLACE 010194,000447: 010195,000448: 43,2362 COUNT 04/EXTVB 010196,000449: 010197,000450: 43,2362 02727 SYSTEST TC CHKPOOH 010198,000451: 43,2363 30075 CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11) 010199,000452: 43,2364 75020 MASK NOP01BIT 010200,000453: 43,2365 00006 EXTEND 010201,000454: 43,2366 12371 BZF V92CONT # IF IT'S NOT YET SET, CONTINUE 010202,000455: 43,2367 05725 TC POODOO # IT'S ON. SEND NODO ALARM FOR P07 010203,000456: 43,2370 21521 OCT 21521 010204,000457: 43,2371 02733 V92CONT TC EXDAPOFF # TURN DAP OFF IT IT'S ON 010205,000458: 43,2372 35016 CAF PRIO20 010206,000459: 43,2373 05163 TC FINDVAC 010207,000460: 43,2374 E5,1425 EBANK= QPLACE 010208,000461: 43,2374 30,2000 SBANK= IMUSUPER 010209,000462: 43,2374 02002 66065 2CADR REDO 010210,000463: 010211,000464: 43,2376 02123 TC GOPIN 010212,000465: 010213,000466: # REDO AND TSELECT ARE NOW IN SYSTEM TEST. 010214,000467: 010215,000468: 43,2377 COUNT* $$/EXTVB 010216,000469: # CKOPTVB VERB 65 DESCRIPTION 010217,000470: # OPTICAL VERIFICATION FOR PRELAUNCH. 010218,000471: # 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17. 010219,000472: 010220,000473: 43,2377 05400 CKOPTVB TC CHECKMM 010221,000474: 43,2400 00002 MM 02 B-14 # I WONDER IF PRELAUNCH IS RUNNING 010222,000475: 43,2401 02122 TC ALM/END # NOT RUNNING OPERATOR ERROR 010223,000476: 43,2402 00004 INHINT 010224,000477: 43,2403 35104 CAF PRIO16 # PRELAUNCH OPTICAL VERIFICATION 010225,000478: 43,2404 05163 TC FINDVAC 010226,000479: 43,2405 E5,1425 EBANK= QPLACE 010227,000480: 43,2405 02000 66065 2CADR COMPVER # STANDARD LEADIN TO GCOMPVER. 010228,000481: 010229,000482: 43,2407 02123 TC GOPIN 010230,000483: 010231,000484: # V 78 .... TO CHANGE GYROCOMPASS AZIMUTH 010232,000485: 010233,000486: 43,2410 05400 CHAZFOGC TC CHECKMM # IS IT PRELAUNCH 010234,000487: 43,2411 00002 MM 02 B-14 010235,000488: 43,2412 02122 TC ALM/END # NO - OPERA TOR ERROR 010236,000489: 010237,000490: 43,2413 35104 CAF PRIO16 # PRELAUNCH AZIMUTH CHANGE 010238,000491: 43,2414 05163 TC FINDVAC 010239,000492: 43,2415 E5,1671 EBANK= XSM 010240,000493: 43,2415 03742 66065 2CADR AZMTHCG1 010241,000494: 010242,000495: 43,2417 05426 TC PHASCHNG 010243,000496: 43,2420 00174 OCT 00174 010244,000497: 43,2421 02123 TC GOPIN 010245,000498: # IMUATTCK VERB 43 DESCRIPTION 010246,000499: # LOAD IMU ATTITUDE ERROR METERS 010247,000500: 010248,000501: # 1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF. 010249,000502: # 2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY 010250,000503: # FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN. 010251,000504: # 3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE 010252,000505: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). 010253,000506: # 5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS 010254,000507: # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. 010255,000508: # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY. 010256,000509: 010257,000510: 43,2422 02727 IMUATTCK TC CHKPOOH 010258,000511: 010259,000512: 43,2423 32501 CAF OCTAL30 # CHECK IF IMU ZERO AND IMU COARSE ARE ON 010260,000513: 43,2424 00006 EXTEND 010261,000514: 43,2425 02012 RAND CHAN12 010262,000515: 43,2426 10000 CCS A 010263,000516: 43,2427 12122 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON 010264,000517: 010265,000518: 43,2430 02467 TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF 010266,000519: 43,2431 02076 TC TESTXACT # AFTER 010267,000520: 43,2432 45047 CS OCT50 # REMOVE COARSE AND ECTR ENABLE. 010268,000521: 43,2433 00006 EXTEND 010269,000522: 43,2434 03012 WAND CHAN12 010270,000523: 010271,000524: 43,2435 32175 CAF VNLODCDU 010272,000525: 43,2436 04676 TC BANKCALL 010273,000526: 43,2437 20561 CADR GOXDSPF 010274,000527: 43,2440 12454 TCF TRMATTCK 010275,000528: 43,2441 02442 TC +1 010276,000529: 43,2442 35073 CAF EBANK6 010277,000530: 43,2443 54003 TS EBANK # SET E6 FOR NEEDLES. 010278,000531: 010279,000532: 43,2444 E6,1476 EBANK= AK 010280,000533: 010281,000534: 43,2444 04676 TC BANKCALL # INITIALIZE CURRENT DAC AND 010282,000535: 43,2445 42455 CADR NEEDLE11 # COMMAND VALUES 010283,000536: 010284,000537: 43,2446 04676 TC BANKCALL # ENABLE ERROR COUNTERS. 010285,000538: 43,2447 42474 CADR NEEDLER2 010286,000539: 010287,000540: 43,2450 35032 CAF TWO # 4 MS MIN. 010288,000541: 43,2451 05261 TC WAITLIST 010289,000542: 43,2452 E6,1476 EBANK= AK 010290,000543: 43,2452 02457 66106 2CADR ATTCK1 010291,000544: 010292,000545: 43,2454 02467 TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFRER LIFTOFF 010293,000546: 43,2455 15550 TCF ENDEXT # AFTER 010294,000547: 43,2456 02123 TC GOPIN 010295,000548: 43,2457 00006 ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REGS. 010296,000549: 43,2460 31156 DCA THETAD 010297,000550: 43,2461 53477 DXCH AK 010298,000551: 43,2462 31157 CAE THETAD +2 010299,000552: 43,2463 55500 TS AK +2 010300,000553: 010301,000554: 43,2464 04754 TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES 010302,000555: 43,2465 42510 CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED. 010303,000556: 010304,000557: 43,2466 05340 TC TASKOVER 010305,000558: 010306,000559: 43,2467 35027 CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED 010307,000560: 43,2470 70101 MASK FLAGWRD5 010308,000561: 43,2471 10000 CCS A 010309,000562: 43,2472 00002 TC Q # YES 010310,000563: 43,2473 35027 CAF BIT5 010311,000564: 43,2474 00006 EXTEND 010312,000565: 43,2475 02030 RAND CHAN30 010313,000566: 43,2476 10000 CCS A 010314,000567: 43,2477 16706 TCF Q+1 010315,000568: 43,2500 00002 XACT0Q TC Q # YES 010316,000569: 010317,000570: 43,2501 00030 OCTAL30 OCT 30 010318,000571: 43,2502 02076 VB64 TC TESTXACT 010319,000572: 43,2503 00004 INHINT 010320,000573: 43,2504 35020 CAF PRIO4 010321,000574: 43,2505 05163 TC FINDVAC 010322,000575: 43,2506 E4,1720 EBANK= RHOSB 010323,000576: 43,2506 03651 64104 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES. 010324,000577: 010325,000578: 43,2510 05233 TC ENDOFJOB 010326,000579: 010327,000580: # ENATMA VERB 58 DESCRIPTION 010328,000581: # ENABLE AUTOMATIC ATTITUDE MANEUVER 010329,000582: 010330,000583: # VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERUPTIONS BY RHC ACT- 010331,000584: # IVITY. 010332,000585: 010333,000586: 43,2511 05574 ENATMA TC DOWNFLAG # RESET STIKFLAG. 010334,000587: 43,2512 00020 ADRES STIKFLAG # BIT 14 FLAG 1 010335,000588: 43,2513 05562 TC UPFLAG # SET FLAG TO ENABLE R60 MANEUVER 010336,000589: 43,2514 00055 ADRES V50N18FL 010337,000590: 43,2515 02123 TC GOPIN 010338,000591: 010339,000592: # STROKON VERB 68 DESCRIPTION 010340,000593: # STROKE TEST SETUP/ENABLE 010341,000594: # 1. SET EXT VERB DISPLAY BUSY FLAG 010342,000595: # 2. SCHEDULE STRKTST1 WITH PRIORITY 30. 010343,000596: # 3. RELEASE EXT VERB DISPLAY. 010344,000597: 010345,000598: 43,2516 E6,1625 EBANK= T5TVCDT 010346,000599: 43,2516 40102 STROKON CS FLAGWRD6 # V68 PERMITTED ONLY DURING TVC 010347,000600: 43,2517 74105 MASK OCT60000 010348,000601: 43,2520 00006 EXTEND 010349,000602: 43,2521 62122 BZMF ALM/END # NOT TVC....FLASH OP ERROR LIGHT 010350,000603: 43,2522 34371 CAF PRIO30 # JOB REQUEST, TO SET UP STROKE TEST, 010351,000604: 43,2523 05150 TC NOVAC # INCLUDING INITIALIZATIONS 010352,000605: 43,2524 E6,1574 EBANK= STROKER 010353,000606: 43,2524 03537 40106 2CADR STRKTSTI 010354,000607: 010355,000608: 43,2526 02123 TC GOPIN 010356,000609: 010357,000610: # STABLISH VERB 46 DESCRIPTION 010358,000611: # ESTABLISH G & N AUTOPILOT CONTROL 010359,000612: # 1. SETS UP EITHER RCS, ENTRY, OR SATURN 010360,000613: # 2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER 010361,000614: # FROM HIGH BW TO LOW BW 010362,000615: 010363,000616: 010364,000617: 43,2527 35073 STABLISH CAF EBANK6 # V46 - SET EBANK TO E6 010365,000618: 43,2530 54003 TS EBANK 010366,000619: 010367,000620: 43,2531 40102 CS FLAGWRD6 # TEST FOR TVC 010368,000621: 43,2532 74105 MASK OCT60000 010369,000622: 43,2533 00006 EXTEND 010370,000623: 43,2534 62544 BZMF +8D 010371,000624: 010372,000625: 43,2535 31466 CAE DAPDATR1 # TEST FOR CSM/LM 010373,000626: 43,2536 75016 MASK BIT14 010374,000627: 43,2537 00006 EXTEND 010375,000628: 43,2540 62543 BZMF +3 010376,000629: 010377,000630: 43,2541 04715 TC POSTJUMP # CSM/LM, SO PERFORM HB TO LB SWITCH-OVER 010378,000631: 43,2542 36407 CADR PRESWTCH 010379,000632: 010380,000633: 43,2543 02122 +3 TC ALM/END # CSM, SO ALARM AND EXIT 010381,000634: 010382,000635: 43,2544 04715 +8 TC POSTJUMP # SET UP RCS, ENTRY, OR SATURN-STICK DAP 010383,000636: 43,2545 65605 CADR DAPFIG 010384,000637: # CREWMANU VERB 49 DESCRIPTION 010385,000638: # START AUTOMATIC ATTITUDE MANEUVER 010386,000639: 010387,000640: # 1. REQUIRE PROGRAM 00 ACTIVE. 010388,000641: # 2. SET EXT VERB DISPLAY BUSY FLAG. 010389,000642: # 3. SCHEDULE R62DISP WITH PRIORITY 10. 010390,000643: # 4. RELEASE EXT VERB DISPLAY. 010391,000644: 010392,000645: # R62DISP 010393,000646: # 1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP 010394,000647: # 4 FOR RESTART OF DISPLAY SEQUENCE. 010395,000648: # RESPONSES 010396,000649: # A. TERMINATE 010397,000650: # 1. GO TO GOTOPOOH. 010398,000651: # B. PROCEED 010399,000652: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS. 010400,000653: # 2. EXECUTE R60CSM (ATTITUDE MANEUVER). 010401,000654: # 3. ZERO GROUP 4 (END R62). 010402,000655: # C. ENTER 010403,000656: # 1. REPEAT FLASHING V06,N22. 010404,000657: 010405,000658: 43,2546 02727 CREWMANU TC CHKPOOH # DEMAND POO 010406,000659: 010407,000660: 43,2547 02076 TC TESTXACT 010408,000661: 010409,000662: 43,2550 35017 CAF PRIO10 010410,000663: 43,2551 05163 TC FINDVAC 010411,000664: 43,2552 1155 EBANK= CPHI 010412,000665: 43,2552 02330 56102 2CADR R62DISP 010413,000666: 010414,000667: 43,2554 05233 TC ENDOFJOB 010415,000668: 010416,000669: # DAPDISP VERB 48 DESCRIPTION 010417,000670: # LOAD AUTOPILOT DATA (ROUTINE R03) 010418,000671: 010419,000672: # 0. CHECKFAIL AND RETURN IF TVC. 010420,000673: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG. 010421,000674: # 2. LOWER PRIORITY TO 10. 010422,000675: # 3. DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION) 010423,000676: # 4. UPON PROCEED RESPONSE, EXECUTE S41.2. 010424,000677: # 5. DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.) 010425,000678: # 6. UPON PROCEED RESPONSE EXECUTE S40.14. 010426,000679: # 7. DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM) 010427,000680: # 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DESPLAY SYSTEM 010428,000681: 010429,000682: 43,2555 COUNT* $$/EXTVB 010430,000683: 010431,000684: 43,2555 40102 DAPDISP CS FLAGWRD6 010432,000685: 43,2556 74105 MASK OCT60000 010433,000686: 43,2557 00006 EXTEND 010434,000687: 43,2560 62562 BZMF +2 # TVC = 10, CS YIELDS 01, BZMF TO CONTINUE 010435,000688: 43,2561 02122 TC ALM/END # RETURN IF TVC 010436,000689: 010437,000690: 43,2562 02076 TC TESTXACT 010438,000691: 43,2563 04676 TC BANKCALL 010439,000692: 43,2564 64000 CADR DAPDISP1 010440,000693: 42,2000 BANK 42 010441,000694: 42,2000 SETLOC EXTVBS 010442,000695: 42,2000 BANK 010443,000696: 42,2000 COUNT 24/R03 010444,000697: 010445,000698: 42,2000 35073 DAPDISP1 CAF EBANK6 010446,000699: 42,2001 54003 TS EBANK 010447,000700: 010448,000701: 42,2002 35017 CAF PRIO10 010449,000702: 42,2003 05224 TC PRIOCHNG 010450,000703: 010451,000704: 42,2004 32061 DONOUN46 CAF V04N46 # R1 R2 010452,000705: 42,2005 04676 TC BANKCALL # DAPDATR1 DAPDATR2 010453,000706: 42,2006 20561 CADR GOXDSPF # GOXDSP ROUTINES USED FOR EXTENDED VERBS. 010454,000707: 010455,000708: 42,2007 05550 TC ENDEXT # EXT. VBS GO TO ENDEXT, NOT ENDOFJOB. 010456,000709: 42,2010 02012 TC +2 010457,000710: 42,2011 02004 TC DONOUN46 010458,000711: 010459,000712: 42,2012 31466 CA DAPDATR1 010460,000713: 42,2013 75030 MASK BIT4 010461,000714: 42,2014 10000 CCS A 010462,000715: 42,2015 12054 TCF MAXIN 010463,000716: 42,2016 05574 TC DOWNFLAG 010464,000717: 42,2017 00212 ADRES MAXDBFLG 010465,000718: 42,2020 04676 MAXOUT TC BANKCALL 010466,000719: 42,2021 40366 CADR S41.2 010467,000720: 010468,000721: 42,2022 32060 DONOUN47 CAF V06N47 # R1 R2 R3 010469,000722: 42,2023 04676 TC BANKCALL # CSM WGT. LEM WGT. BLANK 010470,000723: 42,2024 20561 CADR GOXDSPF 010471,000724: 010472,000725: 42,2025 05550 TC ENDEXT 010473,000726: 42,2026 02030 TC +2 010474,000727: 42,2027 02022 TC DONOUN47 010475,000728: 42,2030 31466 CAE DAPDATR1 # DO MASS PROPERTIES CALCULATION ONLY IF 010476,000729: 42,2031 74371 MASK PRIO30 # CONFIG = 1(CSM), 2 (CSM/LM), 6(CSM/LMA) 010477,000730: 42,2032 00006 EXTEND 010478,000731: 42,2033 12046 BZF DONOUN48 # SKIP IF 0,4 010479,000732: 42,2034 40000 COM 010480,000733: 42,2035 74371 MASK PRIO30 010481,000734: 42,2036 00006 EXTEND 010482,000735: 42,2037 12046 BZF DONOUN48 # SKIP IF 3,7 010483,000736: 42,2040 00004 INHINT 010484,000737: 42,2041 04754 TC IBNKCALL 010485,000738: 42,2042 13370 CADR MASSPROP # UPDATE IXX, IAVG, IAVG/TLX 010486,000739: 010487,000740: 42,2043 00003 RELINT 010488,000741: 42,2044 04676 TC BANKCALL 010489,000742: 42,2045 40517 CADR S40.14 # COMPUTE RCS DAP STUFF 010490,000743: 010491,000744: 42,2046 32057 DONOUN48 CAF V0648 # R1 R2 R3 010492,000745: 42,2047 04676 TC BANKCALL # PTRIM YTRIM BLANK 010493,000746: 42,2050 20561 CADR GOXDSPF 010494,000747: 010495,000748: 42,2051 05550 TC ENDEXT 010496,000749: 42,2052 05550 TC ENDEXT 010497,000750: 42,2053 02046 TC DONOUN48 010498,000751: 010499,000752: 42,2054 05562 MAXIN TC UPFLAG 010500,000753: 42,2055 00212 ADRES MAXDBFLG 010501,000754: 42,2056 02020 TC MAXOUT 010502,000755: 010503,000756: 42,2057 01460 V0648 VN 0648 010504,000757: 42,2060 01457 V06N47 VN 0647 010505,000758: 42,2061 01056 V04N46 VN 0446 010506,000759: 43,2565 BANK 43 010507,000760: 43,2000 SETLOC EXTVERBS 010508,000761: 43,2000 BANK 010509,000762: 010510,000763: 43,2565 COUNT* $$/EXTVB 010511,000764: 010512,000765: # V82PERF VERB82 DESCRIPTION 010513,000766: # REQUEST ORBIT PARAMETERS DISPLAY (R30) 010514,000767: 010515,000768: # 1. IF AVERAGE G IS OFF: 010516,000769: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS 010517,000770: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT 010518,000771: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1. 010519,000772: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC). 010520,000773: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE 010521,000774: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE 010522,000775: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE 010523,000776: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 010524,000777: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE). 010525,000778: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS 010526,000779: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND. 010527,000780: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E. 010528,000781: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS 010529,000782: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S. 010530,000783: 010531,000784: # 2. IF AVERAGE G IS ON: 010532,000785: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS 010533,000786: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS 010534,000787: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF. 010535,000788: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). 010536,000789: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR 010537,000790: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS. 010538,000791: 010539,000792: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE 010540,000793: # ABOVE REMARKS. 010541,000794: 010542,000795: 43,2565 02076 V82PERF TC TESTXACT 010543,000796: 010544,000797: 43,2566 35077 CAF PRIO7 010545,000798: 43,2567 05224 TC PRIOCHNG 010546,000799: 43,2570 04715 TC POSTJUMP 010547,000800: 43,2571 46332 CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB. 010548,000801: 010549,000802: # VB83PERF VERB 83 DESCRIPTION 010550,000803: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31) 010551,000804: 010552,000805: # 1. SET EXT VERB DISPLAY BUSY FLAG. 010553,000806: # 2. SCHEDULE V83CALL WITH PRIORITY 10. 010554,000807: # A. DISPLAY 010555,000808: # R1 RANGE 010556,000809: # R2 RANGE RATE 010557,000810: # R3 THETA 010558,000811: 010559,000812: 43,2572 02076 V83PERF TC TESTXACT 010560,000813: 43,2573 05562 TC UPFLAG 010561,000814: 43,2574 00222 ADRES R31FLAG 010562,000815: 43,2575 35075 +3 CAF PRIO5 010563,000816: 43,2576 05150 TC NOVAC 010564,000817: 43,2577 E4,1770 EBANK= SUBEXIT 010565,000818: 43,2577 02000 62064 2CADR R31CALL 010566,000819: 010567,000820: 43,2601 05233 TC ENDOFJOB 010568,000821:
Reconstruction: In Comanche 67 and earlier, R31FLAG is taken down
with the sequence
INHINT CS R31FLBIT MASK FLAGWRD9 TS FLAGWRD9This coding was replaced with the more space-efficient DOWNFLAG call as part of ACB-98, "Delete INHINT before FINDVAC in V89". The apparent disconnect between the ACB title and this change is due to the fact that ACB forms did not have formal titles. Usually such forms only listed out a single change, but in this instance, the ACB form covers two different changes. The first change appearing on the form was apparently used as its title; this second change is therefore mentioned nowhere other than the original ACB form itself. |
010585,000838: 43,2602 02076 V85PERF TC TESTXACT 010586,000839: 43,2603 05574 TC DOWNFLAG # RESET R31 FLAG TO INDICATE R34 010587,000840: 43,2604 00222 ADRES R31FLAG 010588,000841: 43,2605 02575 TC V83PERF +3 010589,000842: # GOTOR21 VERB 57 010590,000843: # GOTOR23- VERB 54 DESCRIPTION 010591,000844: # SET UP MARKING FOR R22 (REND TRACK DATA PROC) 010592,000845: # 1. SET EXT VERB DISPLAY BUSY FLAG 010593,000846: # 2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET, 010594,000847: # SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406 010595,000848: # 3. RELEASE EXT VERB DISPLAY SYSTEM 010596,000849: 010597,000850: 43,2606 05574 GOTOR21 TC DOWNFLAG # CLEAR R23FLG 010598,000851: 43,2607 00025 ADRES R23FLG # BIT 9 FLAG 1 010599,000852: 43,2610 02613 TC +3 010600,000853: 43,2611 05562 GOTOR23 TC UPFLAG # SET R23FLG 010601,000854: 43,2612 00025 ADRES R23FLG # BIT 9 FLAG 1 010602,000855: 43,2613 02076 TC TESTXACT 010603,000856: 43,2614 30074 CA FLAGWRD0 # VB 57 UNNACCEPTABLE UNLESS BOTH 010604,000857: 43,2615 75025 MASK RNDVZBIT # RENDEZVOUS AND TRACK FLAGS ON 010605,000858: 43,2616 00006 EXTEND 010606,000859: 43,2617 12642 BZF R22ALARM 010607,000860: 010608,000861: 43,2620 30075 CA FLAGWRD1 010609,000862: 43,2621 75027 MASK TRACKBIT 010610,000863: 43,2622 00006 EXTEND 010611,000864: 43,2623 12642 BZF R22ALARM 010612,000865: 010613,000866: 43,2624 30075 CA FLAGWRD1 # TEST R23FLG 010614,000867: 43,2625 75023 MASK R23BIT 010615,000868: 43,2626 00006 EXTEND 010616,000869: 43,2627 12635 BZF REGR21 # R21 010617,000870: 43,2630 35104 CAF PRIO16 010618,000871: 43,2631 05150 TC NOVAC 010619,000872: 43,2632 E7,1725 EBANK= MRKBUF1 010620,000873: 43,2632 02501 76067 2CADR R23CSM 010621,000874: 010622,000875: 43,2634 05233 TC ENDOFJOB 010623,000876: 43,2635 35104 REGR21 CAF PRIO16 010624,000877: 43,2636 05150 TC NOVAC 010625,000878: 43,2637 E7,1725 EBANK= MRKBUF1 010626,000879: 43,2637 02477 76067 2CADR R21CSM 010627,000880: 010628,000881: 43,2641 05233 TC ENDOFJOB 010629,000882: 43,2642 05664 R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND 010630,000883: 43,2643 00406 OCT 00406 # NOR TRACK FLAG WERE ON. 010631,000884: 43,2644 05550 TC ENDEXT 010632,000885: 010633,000886: # VERB 86 DESCRIPTION 010634,000887: # V86 IS TO R23 AS MARK REJECT IS TO R21 010635,000888: # V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE) 010636,000889: 010637,000890: 43,2645 E7,1725 EBANK= MRKBUF1 010638,000891: 43,2645 35074 V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23) 010639,000892: 43,2646 56003 XCH EBANK 010640,000893: 43,2647 37716 CA NEGONE 010641,000894: 43,2650 55725 TS MRKBUF1 010642,000895: 43,2651 02123 TC GOPIN 010643,000896: 010644,000897: # TRACKTRM VERB 56 DESCRIPTION 010645,000898: # TERMINATE TRACKING (P20) 010646,000899: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS. 010647,000900: # 2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00). 010648,000901: # 3. REQUIRE R22 RUNNING OR GO TO PINBRNCH. 010649,000902: # 4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22. 010650,000903: # 3. KNOCK DOWN RENDEZVOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS. 010651,000904: # 4. GO TO ENEMA (SOFTWARE RESTART). 010652,000905: # REFERENCE 010653,000906: # P20 RENDEZVOUS NAVIGATION. 010654,000907: # R21 RENDEZVOUS TRACKING SIGHTING MARK. 010655,000908: # R22 RENDEZVOUS TRACKING DATA PROCESSING. 010656,000909: 010657,000910: 43,2652 35025 TRACKTRM CA RNDVZBIT # IS REND FLAG ON 010658,000911: 43,2653 70074 MASK FLAGWRD0 010659,000912: 43,2654 00006 EXTEND 010660,000913: 43,2655 12123 BZF GOPIN # NO 010661,000914: 010662,000915: 43,2656 05574 TC DOWNFLAG 010663,000916: 43,2657 00010 ADRES RNDVZFLG 010664,000917: 010665,000918: 43,2660 35027 CA TRACKBIT # IS TRACK FLAG ON 010666,000919: 43,2661 70075 MASK FLAGWRD1 010667,000920: 43,2662 00006 EXTEND 010668,000921: 43,2663 12123 BZF GOPIN # NO 010669,000922: 010670,000923: 43,2664 05574 TC DOWNFLAG 010671,000924: 43,2665 00031 ADRES TRACKFLG 010672,000925: 010673,000926: 43,2666 05574 TC DOWNFLAG 010674,000927: 43,2667 00027 ADRES UPDATFLG 010675,000928: 010676,000929: 43,2670 05574 TC DOWNFLAG 010677,000930: 43,2671 00007 ADRES IMUSE 010678,000931: 010679,000932: 43,2672 35073 CAF EBANK6 010680,000933: 43,2673 54003 TS EBANK 010681,000934: 010682,000935: 43,2674 00004 INHINT 010683,000936: 43,2675 04526 TC STOPRATE 010684,000937: 010685,000938: 43,2676 37716 CAF NEGONE 010686,000939: 43,2677 55303 TS OPTIND 010687,000940: 010688,000941: 43,2700 06006 TC INTPRET 010689,000942: 43,2701 77624 CALL 010690,000943: 43,2702 27446 INTSTALL # DONT INTERRUPT INTEGRATION 010691,000944: 43,2703 77776 EXIT 010692,000945: 010693,000946: 43,2704 05406 TC 2PHSCHNG 010694,000947: 43,2705 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY 010695,000948: 43,2706 00001 OCT 1 # ALSO KILL GROUP 1 010696,000949: 010697,000950: 43,2707 00004 CLEANOUT INHINT 010698,000951: 43,2710 04715 TC POSTJUMP 010699,000952: 43,2711 12651 CADR ENEMA # CAUSE RESTART 010700,000953: 010701,000954: # LEMVEC VERB 80 DESCRIPTION 010702,000955: # UPDATE LEM STATE VECTOR 010703,000956: # RESET VEHUPFLG TO 0 010704,000957: 010705,000958: 43,2712 05574 LEMVEC TC DOWNFLAG 010706,000959: 43,2713 00026 ADRES VEHUPFLG # VEHUPFLG DOWN INDICATES LEM 010707,000960: 010708,000961: 43,2714 12123 TCF GOPIN 010709,000962: 010710,000963: # CSMVEC VERB 81 DESCRIPTION 010711,000964: # UPDATE CSM STATE VECTOR 010712,000965: # SET VEHUPFLG TO 1 010713,000966: 010714,000967: 43,2715 05562 CSMVEC TC UPFLAG 010715,000968: 43,2716 00026 ADRES VEHUPFLG # VEHUPFLG UP INDICATES CM. 010716,000969: 010717,000970: 43,2717 12123 TCF GOPIN 010718,000971: 010719,000972: # DNEDUMP VERB 74 DESCRIPTION 010720,000973: # INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP. 010721,000974: 010722,000975: # 1. SET EXT VERB DISPLAY BUSY FLAG. 010723,000976: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY. 010724,000977: # 3. RELEASE EXT VERB DISPLAY. 010725,000978: 010726,000979: 43,2720 0010 EBANK= 10 010727,000980: 43,2720 32723 DNEDUMP CAF LDNDUMPI 010728,000981: 43,2721 54334 TS DNTMGOTO 010729,000982: 43,2722 02123 TC GOPIN 010730,000983: 010731,000984: 43,2723 43,2720 V74 EQUALS DNEDUMP 010732,000985: 43,2723 03715 LDNDUMPI REMADR DNDUMPI 010733,000986: 010734,000987: # LFTFLGON VERB 75 DESCRIPTION 010735,000988: # SET LIFT-OFF FLAG 010736,000989: # 1. SETUP GGRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG. 010737,000990: # 2. RETURN VIA PINBRNCH 010738,000991: 010739,000992: 43,2724 05562 LFTFLGON TC UPFLAG # VB 75 - SET LIFTOFF FLAG BIT 010740,000993: 43,2725 00125 ADRES GRRBKFLG # BIT 5 FLAG 5 010741,000994: 43,2726 02123 TC GOPIN 010742,000995: 010743,000996: 43,2727 31011 CHKPOOH CA MODREG 010744,000997: 43,2730 00006 EXTEND 010745,000998: 43,2731 16711 BZF TCQ 010746,000999: 43,2732 12122 TCF ALM/END 010747,001000:
Reconstruction: The INHINT instruction in EXDAPOFF below was added to correct anomaly COM-26, "Extended verb 92 flag 6 is changed while job is not in INHINT". Its exact placement is unfortunately ambiguous; while the placement shown here is the most likely, it could also have appeared one instruction later, one instruction earlier, or as the first instruction of the function. In all cases, the anomaly would be fixed, and the resulting bank checksum would be exactly the same. It is therefore unfortunately not possible for us to know its precise location without finding more detailed original sources. |
010757,001010: 43,2733 00006 EXDAPOFF EXTEND 010758,001011: 43,2734 32744 DCA IDLECADR # SET T5 TO IDLE. 010759,001012: 43,2735 53313 DXCH T5LOC 010760,001013: 43,2736 00004 INHINT 010761,001014: 43,2737 44105 CS OCT60000 010762,001015: 43,2740 70102 MASK FLAGWRD6 # RESET DAPBITS 1 AND 2. 010763,001016: 43,2741 54102 TS FLAGWRD6 010764,001017: 43,2742 00002 TC Q 010765,001018: 010766,001019: 43,2743 E6,1423 EBANK= PACTOFF 010767,001020: 43,2743 03155 12106 IDLECADR 2CADR T5IDLOC 010768,001021: 010769,001022: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63) 010770,001023: # 010771,001024: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND 010772,001025: # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS 010773,001026: # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM. 010774,001027: 010775,001028: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND 010776,001029: # EXIT R63, OTHERWISE CONTINUE. 010777,001030: 010778,001031: # 2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS 010779,001032: # ORIENTATION KNOWN TO CGC, CONTINUE. 010780,001033: 010781,001034: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO 010782,001035: # BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS. (R2=1). 010783,001036: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE 010784,001037: # AFTER KEYING IN PROCEED. 010785,001038: 010786,001039: # 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG 010787,001040: # FOR PREFERRED AXIS. RESET FLAG FOR X AXIS. 010788,001041: 010789,001042: # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED 010790,001043: 010791,001044: # R63COMP JOB: 010792,001045: 010793,001046: # UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS 010794,001047: 010795,001048: # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM. 010796,001049: 010797,001050: # DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG 010798,001051: # ARE STORED FOR LATER R60CSM CALL. 010799,001052: 010800,001053: # 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE. 010801,001054: 010802,001055: # 7. RECYCLE- RETURN TO STEP 5. 010803,001056: # TERMINATE- EXIT R63 ROUTINE 010804,001057: # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER. 010805,001058:
Reconstruction: In Comanche 67 and earlier, V89PERF contained an INHINT prior to the call to FINDVAC. It was deleted as part of ACB-98, "Delete INHINT before FINDVAC in V89". |
010809,001062: 43,2745 02727 V89PERF TC CHKPOOH # DEMAND P00 010810,001063: 43,2746 02076 TC TESTXACT 010811,001064: 43,2747 35017 CAF PRIO10 010812,001065: 43,2750 05163 TC FINDVAC 010813,001066: 43,2751 E4,1715 EBANK= P21TIME 010814,001067: 43,2751 03712 70064 2CADR V89CALL 010815,001068: 010816,001069: 43,2753 15233 TCF ENDOFJOB 010817,001070: 010818,001071: 43,2754 05574 WMATRXNG TC DOWNFLAG # RESET RENDWFLG 010819,001072: 43,2755 00131 ADRES RENDWFLG 010820,001073: 010821,001074: 43,2756 05574 TC DOWNFLAG # RESET ORBWFLAG 010822,001075: 43,2757 00066 ADRES ORBWFLAG 010823,001076: 43,2760 02123 TC GOPIN 010824,001077: 010825,001078: 43,2761 43,2761 GOSHOSUM EQUALS SHOWSUM 010826,001079: 010827,001080: 43,2761 02727 SHOWSUM TC CHKPOOH 010828,001081: 43,2762 02076 TC TESTXACT # * 010829,001082: 43,2763 35033 CAF S+1 # * 010830,001083: 43,2764 55376 TS SKEEP6 # * SHOWSUM OPTION 010831,001084: 43,2765 35035 CAF S+ZERO # * 010832,001085: 43,2766 55362 TS SMODE # * TURN OFF SELF-CHECK 010833,001086: 43,2767 33257 CA SELFADRS # * 010834,001087: 43,2770 55361 TS SELFRET # * 010835,001088: 43,2771 03534 TC STSHOSUM # * ENTER ROPECHK 010836,001089: 010837,001090: 43,2772 23372 SDISPLAY LXCH SKEEP2 # * BNK NO FOR DSP 010838,001091: 43,2773 23373 LXCH SKEEP3 # * BUGGER WORD FOR DSP 010839,001092: 43,2774 33256 NOKILL CA ADRS1 # * 010840,001093: 43,2775 54156 TS MPAC +2 # * 010841,001094: 43,2776 33007 CA VNCON # * 0501 010842,001095: 43,2777 04676 TC BANKCALL # * 010843,001096: 43,3000 20561 CADR GOXDSPF # * 010844,001097: 43,3001 03004 TC +3 # * 010845,001098: 43,3002 03645 TC NXTBNK # * 010846,001099: 43,3003 02774 TC NOKILL # * 010847,001100: 43,3004 33257 CA SELFADRS 010848,001101: 43,3005 55371 TS SKEEP1 010849,001102: 010850,001103: 43,3006 05550 TC ENDEXT # * 010851,001104: 010852,001105: 43,3007 01201 VNCON VN 501 # * 010853,001106: 010854,001107: 43,3010 31376 ENDSUMS CA SKEEP6 # * 010855,001108: 43,3011 00006 EXTEND # * 010856,001109: 43,3012 13350 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN. 010857,001110: 43,3013 03534 TC STSHOSUM # * START SHOWSUM AGAIN. 010858,001111: 010859,001112: 010860,001113: # VB 76 SET PREFERRED ATTITUDE FLAG - DRIVE TO PREFERRED. 010861,001114: 010862,001115: 43,3014 05562 SETPRFLG TC UPFLAG 010863,001116: 43,3015 00120 ADRES PRFTRKAT # BIT 10 FLAG 5 010864,001117: 43,3016 02123 TC GOPIN 010865,001118: 010866,001119: # VB 77 RESET PREFERRED ATTITUDE FLAG - DRIVE TO +X-AXIS ATT. 010867,001120: 010868,001121: 43,3017 05574 RESETPRF TC DOWNFLAG 010869,001122: 43,3020 00120 ADRES PRFTRKAT # BIT 10 FLAG 5 010870,001123: 43,3021 02123 TC GOPIN 010871,001124: 010872,001125: # VB 87 SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA. 010873,001126: 010874,001127: 43,3022 06006 SETVHFLG TC INTPRET 010875,001128: 43,3023 77414 SET EXIT 010876,001129: 43,3024 04466 VHFRFLAG 010877,001130: 43,3025 02123 TC GOPIN 010878,001131: 010879,001132: # VB 88 RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA. 010880,001133: 010881,001134: 43,3026 06006 RESETVHF TC INTPRET 010882,001135: 43,3027 77414 CLEAR EXIT 010883,001136: 43,3030 04666 VHFRFLAG 010884,001137: 43,3031 05645 TC TRFAILOF # TRACKER FAIL LIGHT 010885,001138: 010886,001139: 43,3032 02123 TC GOPIN 010887,001140: 010888,001141: # VERB 66. VEHICLES ARE ATTACHED.- MOVE THIS VEHICLE STATE VECTOR TO 010889,001142: # OTHER VEHICLE STATE VECTOR. 010890,001143: 010891,001144: # USE SUBROUTINE GENTRAN. 010892,001145: 010893,001146: 43,3033 E3,1554 EBANK= RRECTHIS 010894,001147: 43,3033 35017 ATTACHED CAF PRIO10 010895,001148: 43,3034 05163 TC FINDVAC 010896,001149: 43,3035 E3,1554 EBANK= RRECTHIS 010897,001150: 43,3035 02000 42103 2CADR ATTACHIT 010898,001151: 010899,001152: 43,3037 05233 TC ENDOFJOB 010900,001153: 010901,001154: 21,2000 SETLOC EXTVRBS2 010902,001155: 21,2000 BANK 010903,001156: 21,2000 COUNT* $$/EXTVB 010904,001157: 21,2000 06006 ATTACHIT TC INTPRET 010905,001158: 21,2001 77624 CALL 010906,001159: 21,2002 27446 INTSTALL 010907,001160: 21,2003 43014 SET BON 010908,001161: 21,2004 04064 MOONOTH 010909,001162: 21,2005 04303 MOONTHIS 010910,001163: 21,2006 36000 CMMOVE 010911,001164: 21,2007 52014 CLEAR GOTO 010912,001165: 21,2010 04264 MOONOTH 010913,001166: 21,2011 36000 CMMOVE 010914,001167: 010915,001168: 17,2000 SETLOC EXTVRBS1 010916,001169: 17,2000 BANK 010917,001170: 17,2000 COUNT* $$/EXTVB 010918,001171: 17,2000 77776 CMMOVE EXIT 010919,001172: 17,2001 32026 CAF OCT51 010920,001173: 17,2002 05622 TC GENTRAN 010921,001174: 17,2003 01554 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN 010922,001175: 17,2004 01626 ADRES RRECTOTH 010923,001176: 010924,001177: 17,2005 00003 TACHEXIT RELINT 010925,001178: 17,2006 06006 TC INTPRET 010926,001179: 17,2007 77624 CALL # UPDATE RN, VN, R-OTHER, V-OTHER 010927,001180: 17,2010 26740 PTOACSM 010928,001181: 17,2011 45154 LXA,2 CALL 010929,001182: 17,2012 02150 PBODY 010930,001183: 17,2013 20237 SVDWN1 010931,001184: 17,2014 77624 CALL 010932,001185: 17,2015 20263 SVDWN2 010933,001186: 17,2016 77776 EXIT 010934,001187: 010935,001188: 17,2017 32027 CAF TCPINAD 010936,001189: 17,2020 50120 INDEX FIXLOC 010937,001190: 17,2021 54052 TS QPRET 010938,001191: 17,2022 04715 TC POSTJUMP 010939,001192: 17,2023 27463 CADR INTWAKE 010940,001193: 010941,001194: 17,2024 77634 TCPIN RTB 010942,001195: 17,2025 21272 PINBRNCH 010943,001196: 010944,001197: 17,2026 00051 OCT51 OCT 51 010945,001198: 17,2027 36024 TCPINAD CADR TCPIN 010946,001199: 010947,001200: 43,2000 SETLOC EXTVERBS 010948,001201: 43,2000 BANK 010949,001202: 43,3040 COUNT* $$/EXTVB 010950,001203: 010951,001204: # VERB 47 MOVE LM STATE VECTOR INTO CM STATE VECTOR. 010952,001205: 010953,001206: 43,3040 35017 LMTOCMSV CAF PRIO10 010954,001207: 43,3041 05163 TC FINDVAC 010955,001208: 43,3042 E3,1554 EBANK= RRECTHIS 010956,001209: 43,3042 03045 66103 2CADR LMTOCM 010957,001210: 010958,001211: 43,3044 05233 TC ENDOFJOB 010959,001212: 010960,001213: 43,3045 06006 LMTOCM TC INTPRET 010961,001214: 43,3046 77624 CALL 010962,001215: 43,3047 27446 INTSTALL 010963,001216: 43,3050 43014 SET BON 010964,001217: 43,3051 04063 MOONTHIS 010965,001218: 43,3052 04304 MOONOTH 010966,001219: 43,3053 36030 LMMOVE 010967,001220: 43,3054 52014 CLEAR GOTO 010968,001221: 43,3055 04263 MOONTHIS 010969,001222: 43,3056 36030 LMMOVE 010970,001223: 010971,001224: 17,2000 SETLOC EXTVRBS1 010972,001225: 17,2000 BANK 010973,001226: 17,2030 COUNT* $$/EXTVB 010974,001227: 17,2030 77776 LMMOVE EXIT 010975,001228: 17,2031 32026 CAF OCT51 010976,001229: 17,2032 05622 TC GENTRAN 010977,001230: 17,2033 01626 ADRES RRECTOTH # LM STATE VECTOR INTO CM VIA GENTRAN 010978,001231: 17,2034 01554 ADRES RRECTHIS 010979,001232: 010980,001233: 17,2035 12005 TCF TACHEXIT 010981,001234: 010982,001235: 43,2000 SETLOC EXTVERBS 010983,001236: 43,2000 BANK 010984,001237: 43,3057 COUNT* $$/EXTVB 010985,001238: 010986,001239: # VERB 94 DO R64 VIA ENEMA TO PICK UP IN P23. 010987,001240: 010988,001241: 43,3057 35021 VERB94 CAF V94FLBIT 010989,001242: 43,3060 70105 MASK FLAGWRD9 # IS V94FLAG SET 010990,001243: 43,3061 00006 EXTEND 010991,001244: 43,3062 12122 BZF ALM/END # NO - OPERATOR ERROR 010992,001245: 010993,001246: 43,3063 05574 TC DOWNFLAG 010994,001247: 43,3064 00213 ADRES V94FLAG 010995,001248: 010996,001249: 43,3065 05400 TC CHECKMM # IS IT P23 010997,001250: 43,3066 00027 MM 23 B-14 010998,001251: 43,3067 02122 TC ALM/END # NO - OPERATOR ERROR 010999,001252: 43,3070 05426 TC PHASCHNG 011000,001253: 43,3071 00112 OCT 112 # SET GROUP 2 TO DO R64 011001,001254: 011002,001255: 43,3072 02707 TC CLEANOUT # CAUSE RESTART 011003,001256: 011004,001257: # V90PERF VERB 90 DESCRIPTION 011005,001258: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36) 011006,001259: 011007,001260: # 1. SET EXT VERB DISPLAY BUSY FLAG. 011008,001261: # 2. SCHEDULE R36 CALL WITH PRIORITY 10 011009,001262: # A. DISPLAY 011010,001263: # TIME OF EVENT - HOURS, MINUTES, SECONDS 011011,001264: # Y OUT-OF-PLANE POSITION - NAUTICAL MILES 011012,001265: # YDOT OUT-OF-PLANE VELOCITY - FEET/SECOND 011013,001266: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD 011014,001267: # DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES 011015,001268:
Reconstruction: In Comanche 67 and earlier, V90PERF starts R36 with EBANK= RPASS36 (erasable bank 4). It was changed to EBANK= TIG (erasable bank 7) as part of PCR-936.1, "Initialize V90 time to TIG". |
011019,001272: 43,3073 02076 V90PERF TC TESTXACT 011020,001273: 43,3074 35077 CAF PRIO7 # R36.V90 011021,001274: 43,3075 05163 TC FINDVAC 011022,001275: 43,3076 E7,1412 EBANK= TIG 011023,001276: 43,3076 02164 40107 2CADR R36 011024,001277: 011025,001278: 43,3100 15233 TCF ENDOFJOB 011026,001279: 011027,001280: # VERB 96 SET QUITFLAG TO STOP INTEGRATION. 011028,001281: 011029,001282: 43,3101 05562 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT 011030,001283: 43,3102 00221 ADRES QUITFLAG # AT NEXT TIMESTEP 011031,001284: 011032,001285: 43,3103 05562 TC UPFLAG 011033,001286: 43,3104 00204 ADRES V96ONFLG 011034,001287: 43,3105 35035 CAF ZERO 011035,001288: 43,3106 04715 TC POSTJUMP 011036,001289: 43,3107 10011 CADR V37 # GO TO POO 011037,001290: 011038,001291: 43,3110 E5,1751 EBANK= LANDMARK 011039,001292: 43,3110 05400 V52 TC CHECKMM # IS P22 OPERATING 011040,001293: 43,3111 00026 MM 22 B-14 011041,001294: 43,3112 02122 TC ALM/END # NO 011042,001295: 43,3113 35072 CAF LANDBANK 011043,001296: 43,3114 54003 TS EBANK 011044,001297: 011045,001298: 43,3115 45077 CS PRIO7 # YES SET BITS 12,11,10 OF LANDMARK = 011046,001299: 43,3116 71751 MASK LANDMARK # BITS 14,13,12 OF MARKSTAT AFTER 011047,001300: 43,3117 55751 TS LANDMARK # SUBT. THEM FROM 5 TO GET OFFSET 011048,001301: 43,3120 31330 CA MARKSTAT # MARK NO. 011049,001302: 43,3121 54021 TS SR 011050,001303: 43,3122 30021 CA SR 011051,001304: 43,3123 30021 CA SR 011052,001305: 43,3124 75077 MASK PRIO7 011053,001306: 43,3125 40000 CS A 011054,001307: 43,3126 65075 AD PRIO5 011055,001308: 43,3127 27751 ADS LANDMARK 011056,001309: 43,3130 02123 TC GOPIN 011057,001310: 43,3131 5072 LANDBANK = EBANK5 011058,001311: 011059,001312: # VERB 67 ASTRONAUT DISPLAY OF W MATRIX 011060,001313: 011061,001314: 43,3131 02076 V67 TC TESTXACT 011062,001315: 43,3132 35075 CAF PRIO5 011063,001316: 43,3133 05163 TC FINDVAC 011064,001317: 43,3134 E5,1400 EBANK= W 011065,001318: 43,3134 03632 60105 2CADR V67CALL 011066,001319: 011067,001320: 43,3136 05233 TC ENDOFJOB 011068,001321: 011069,001322: # VB 44. SET SURFACE FLAG. 011070,001323: 011071,001324: 43,3137 05562 SETSURF TC UPFLAG 011072,001325: 43,3140 00177 ADRES SURFFLAG 011073,001326: 43,3141 12123 TCF GOPIN 011074,001327: 011075,001328: # VB 45. RESET SURFACE FLAG. 011076,001329: 011077,001330: 43,3142 05574 RESTSRF TC DOWNFLAG 011078,001331: 43,3143 00177 ADRES SURFFLAG 011079,001332: 43,3144 12123 TCF GOPIN 011080,001333: 011081,001334: # VERB 79 START BARBECUE MODE ROUTINE (R64) 011082,001335: 011083,001336: 43,3145 02076 V79 TC TESTXACT 011084,001337: 43,3146 35073 CAF EBANK6 011085,001338: 43,3147 54003 TS EBANK 011086,001339: 011087,001340: 43,3150 33224 RATEMANU CAF V06N79 011088,001341: 43,3151 04676 TC BANKCALL 011089,001342: 43,3152 20561 CADR GOMARKF 011090,001343: 43,3153 15550 TCF ENDEXT 011091,001344: 43,3154 13156 TCF RATECOMP 011092,001345: 43,3155 13150 TCF RATEMANU 011093,001346: 011094,001347: 43,3156 00004 RATECOMP INHINT 011095,001348: 43,3157 04526 TC STOPRATE 011096,001349: 011097,001350: 43,3160 31572 CA THETADX 011098,001351: 43,3161 55646 TS CDUXD 011099,001352: 43,3162 31573 CA THETADY 011100,001353: 43,3163 55650 TS CDUYD 011101,001354: 43,3164 31574 CA THETADZ 011102,001355: 43,3165 55652 TS CDUZD 011103,001356: 011104,001357: 43,3166 11733 CCS DBPTC 011105,001358: 43,3167 65033 AD ONE 011106,001359: 43,3170 03172 TC +2 011107,001360: 43,3171 65033 AD ONE 011108,001361: 43,3172 55655 TS ADB 011109,001362: 011110,001363: 43,3173 31732 CA RATEPTC 011111,001364: 43,3174 00006 EXTEND 011112,001365: 43,3175 73222 MP RTOW 011113,001366: 43,3176 53526 DXCH WBODY 011114,001367: 43,3177 31732 CA RATEPTC 011115,001368: 43,3200 00006 EXTEND 011116,001369: 43,3201 73223 MP RTODEL 011117,001370: 43,3202 53576 DXCH DELCDUX 011118,001371: 011119,001372: 43,3203 31734 CA OPTPTC 011120,001373: 43,3204 00006 EXTEND 011121,001374: 43,3205 13215 BZF PTCROLL 011122,001375: 011123,001376: 43,3206 35035 CAF ZERO 011124,001377: 43,3207 53526 DXCH WBODY 011125,001378: 43,3210 53530 DXCH WBODY1 011126,001379: 43,3211 53576 DXCH DELCDUX 011127,001380: 43,3212 53600 DXCH DELCDUY 011128,001381: 011129,001382: 43,3213 45033 CS BIT1 011130,001383: 43,3214 03216 TC +2 011131,001384: 43,3215 45027 PTCROLL CS BIT5 011132,001385: 43,3216 55332 TS HOLDFLAG 011133,001386: 43,3217 71632 MASK CH31TEMP 011134,001387: 43,3220 55632 TS CH31TEMP 011135,001388: 43,3221 05550 TC ENDEXT 011136,001389: 011137,001390: 43,3222 00510 RTOW DEC .02 011138,001391: 43,3223 00122 RTODEL DEC .005 011139,001392: 43,3224 01517 V06N79 VN 0679 End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc