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