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 FLAGWRD9
This 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