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