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