Source Code
010154,000001: # Copyright: Public domain.
010155,000002: # Filename: EXTENDED_VERBS.agc
010156,000003: # Purpose: Part of the source code for Comanche, build 055. It
010157,000004: # is part of the source code for the Command Module's
010158,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11.
010159,000006: # Assembler: yaYUL
010160,000007: # Reference: pp. 236-267
010161,000008: # Contact: Ron Burkey <info@sandroid.org>,
010162,000009: # Fabrizio Bernardini <fabrizio@spacecraft.it>
010163,000010: # Website: http://www.ibiblio.org/apollo.
010164,000011: # Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
010165,000012: # 2009-05-20 RSB Corrections: POODOO -> P00DOO,
010166,000013: # GOTOPOOH -> GOTOP00H, added a couple of
010167,000014: # missing instructions in Verb 96.
010168,000015: # 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to
010169,000016: # CA FLAGWRD1. Added a variety of SBANK=
010170,000017: # statements prior to 2CADRs. One day I'll
010171,000018: # have to figure out what yaYUL is doing
010172,000019: # wrong with those ....
010173,000020:
010174,000021: # The contents of the "Comanche055" files, in general, are transcribed
010175,000022: # from scanned documents.
010176,000023:
010177,000024: # Assemble revision 055 of AGC program Comanche by NASA
010178,000025: # 2021113-051. April 1, 1969.
010179,000026:
010180,000027: # This AGC program shall also be referred to as Colossus 2A
010181,000028:
010182,000029: # Prepared by
010183,000030: # Massachussets Institute of Technology
010184,000031: # 75 Cambridge Parkway
010185,000032: # Cambridge, Massachusetts
010186,000033:
010187,000034: # under NASA contract NAS 9-4065.
010188,000035:
010189,000036: # Refer directly to the online document mentioned above for further
010190,000037: # information. Please report any errors to info@sandroid.org.
010191,000038:
010192,000039: # Page 236
010193,000040: 07,2441 BANK 7
010194,000041: 43,2000 SETLOC EXTVERBS
010195,000042: 43,2000 BANK
010196,000043:
010197,000044: 43,2000 E5,1757 EBANK= OGC
010198,000045:
010199,000046: 43,2000 COUNT* $$/EXTVB
010200,000047:
010201,000048: # FAN-OUT
010202,000049:
010203,000050: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
010204,000051: 43,2001 02002 TC LST2FAN # FAN AS BEFROE.
010205,000052:
010206,000053: 43,2002 02124 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY)
010207,000054: 43,2003 02150 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010208,000055: # 91 ONLY)
010209,000056: 43,2004 02240 TC IMUFINEK # VB42 FINE ALIGN IMU
010210,000057: 43,2005 02420 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
010211,000058: 43,2006 03207 TC SETSURF # VB44 SET SURFACE FLAG
010212,000059: 43,2007 03212 TC RESTSRF # VB45 RESET SURFACE FLAG
010213,000060: 43,2010 02524 TC STABLISH # VB46 ESTABLISH G+C CONTROL
010214,000061: 43,2011 03102 TC LMTOCMSV # VB47 MOVE LM STATE VECTOR INTO CM
010215,000062: 43,2012 02552 TC DAPDISP # VB48 LOAD A/P DATA
010216,000063: 43,2013 12543 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER
010217,000064: 43,2014 02275 TC GOLOADLV # VB50 PLEASE PERFORM
010218,000065: 43,2015 02275 TC GOLOADLV # VB51 PLEASE MARK
010219,000066: 43,2016 03157 TC V52 # VB52 SET OFFSET NO. FOR P22
010220,000067: 43,2017 02275 TC GOLOADLV # VB53 PLEASE PERFORM COAS MARK
010221,000068: 43,2020 02612 TC GOTOR23 # VB54 PLEASE MARK (R-21 BACKUP)
010222,000069: 43,2021 02326 TC ALINTIME # VB55 ALIGN TIME
010223,000070: 43,2022 02653 TC TRACKTRM # VB56 TERMINATE TRACKING (P20 + P25)
010224,000071: 43,2023 02607 TC GOTOR21 # VB57 START R21 REND TRACK SIGHT MARK ROUT
010225,000072: 43,2024 02510 TC ENATMA # VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
010226,000073: 43,2025 02275 TC GOLOADLV # VB59 PLEASE CALIBRATE
010227,000074: 43,2026 02303 TC V60 # VB60 SET CPHIX (N17) EQUAL TO CDU
010228,000075: 43,2027 02311 TC V61 # VB61 SELECT MODE I
010229,000076: 43,2030 02314 TC V62 # VB62 SELECT MODE II, ERROR WRT N22
010230,000077: 43,2031 02321 TC V63 # VB63 SELECT MODE III, ERROR WRT N17
010231,000078: 43,2032 02500 TC VB64 # VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES
010232,000079: 43,2033 02375 TC CKOPTVB # V 65 E OPTICAL VERIFICATION FOR PRELAUNC
010233,000080: 43,2034 03034 TC ATTACHED # VB66 ATTACHED. MOVE THIS TO OTHER STATE
010234,000081: 43,2035 03201 TC V67 # VB67 W MATRIX MONITOR
010235,000082: 43,2036 02513 TC STROKON # VB68 CSM STROKE TEST ON.
010236,000083: 43,2037 02037 VERB69 TC VERB69 # VB69 CAUSE RESTART
010237,000084: 43,2040 03726 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
010238,000085: 43,2041 03730 TC V71UPDAT # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS
010239,000086: 43,2042 03732 TC V72UPDAT # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS
010240,000087: 43,2043 03734 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL)
010241,000088: 43,2044 02721 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010242,000089: # FOR ERASABLE DUMP.
010243,000090: 43,2045 02725 TC LFTFLGON # VB75 SET LIFTOFF FLAG.
010244,000091: # Page 237
010245,000092: 43,2046 03015 TC SETPRFLG # VB76 SET PREFERRED ATTITUDE FLAG
010246,000093: 43,2047 03020 TC RESETPRF # VB77 RESET PREFERRED ATT. FLAG
010247,000094: 43,2050 02406 TC CHAZFOGC # CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
010248,000095: 43,2051 02120 TC ALM/END # V79 SPARE
010249,000096: 43,2052 02713 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR
010250,000097: 43,2053 02716 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
010251,000098: 43,2054 02562 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010252,000099: 43,2055 02567 TC V83PERF # VB83 RANGE, RANGE RATE, +X AXIS (R31)
010253,000100: 43,2056 02120 TC ALM/END # V84 SPARE
010254,000101: 43,2057 02601 TC V85PERF # VB85 RANGE, RANGE RATE, SLOS (R32)
010255,000102: 43,2060 02646 TC V86PERF # VB86 BACKUP MARK REJECT
010256,000103: 43,2061 03023 TC SETVHFLG # VB87 SET VHF RANGE FLAG
010257,000104: 43,2062 03027 TC RESETVHF # VB88 RESET VHF RANGE FLAG
010258,000105: 43,2063 02745 TC V89PERF # V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
010259,000106: 43,2064 03142 TC V90PERF # VB90-OUT OF PLAN PARAMETERS (R36)
010260,000107: 43,2065 02762 TC GOSHOSUM # VB91 TEMP FOR HYBRID AND STG.
010261,000108: 43,2066 02360 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST
010262,000109: 43,2067 02755 TC WMATRXNG # VB93 CLEAR RENDWFLG
010263,000110: 43,2070 03126 TC VERB94 # VB94 DO R64
010264,000111: 43,2071 02120 TC ALM/END # VB95 SPARE
010265,000112: 43,2072 13150 TCF VERB96 # VB96 SET QUITFLAG TO STOP INTEGRATION
010266,000113: 43,2073 02275 TC GOLOADLV # VB97 PLEASE PERFORM ENGINE-FAIL (R41)
010267,000114: 43,2074 02120 TC ALM/END # VB98 SPARE
010268,000115: 43,2075 02275 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
010269,000116:
010270,000117: # END OF EXTENDED VERB FAN
010271,000118:
010272,000119: 43,2076 11044 TESTXACT CCS EXTVBACT
010273,000120: 43,2077 02120 TC ALM/END # YES, TURN ON OPERATOR ERROR LIGHT
010274,000121: 43,2100 30100 CA FLAGWRD4 # ARE PRIOS USING DSKY
010275,000122: 43,2101 72123 MASK OC24100
010276,000123: 43,2102 10000 CCS A
010277,000124: 43,2103 02120 TC ALM/END
010278,000125:
010279,000126: 43,2104 34112 CAF OCT24 # SET BITS 3 AND 5
010280,000127: 43,2105 55044 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
010281,000128: # SYSTEM BUSY
010282,000129:
010283,000130: 43,2106 30002 CA Q
010284,000131: 43,2107 54155 TS MPAC +1
010285,000132:
010286,000133: 43,2110 45016 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
010287,000134: 43,2111 04170 TC NVSUB
010288,000135: 43,2112 02113 TC +1
010289,000136: 43,2113 00155 TC MPAC +1
010290,000137:
010291,000138: 43,2114 04400 XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT.
010292,000139: 43,2115 05534 TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS.
010293,000140: # Page 238
010294,000141: 43,2116 5534 TERMEXTV EQUALS ENDEXT
010295,000142: 43,2116 5534 ENDEXTVB EQUALS ENDEXT
010296,000143:
010297,000144: 43,2116 35021 XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS.
010298,000145: 43,2117 02105 TC SETXTACT
010299,000146:
010300,000147: 43,2120 04400 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
010301,000148: 43,2121 04701 GOPIN TC POSTJUMP
010302,000149: 43,2122 21272 CADR PINBRNCH
010303,000150:
010304,000151: 43,2123 24100 OC24100 OCT 24100
010305,000152:
010306,000153: # Page 239
010307,000154: # VBZERO VERB 40 DESCRIPTION
010308,000155:
010309,000156: # 1. REQUIRE NOUN 20 (ICDU ANGLES)
010310,000157: # 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM
010311,000158: # 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010312,000159: # 4. SET EXT VERB DISPLAY ACTIVE FLAG.
010313,000160: # 5. EXECUTE IMUZERO (ZERO IMU CDU ANGLES).
010314,000161: # 6. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010315,000162: # 7. RELEASE EXT. VERB DISPLAY SYSTEM.
010316,000163:
010317,000164: 43,2124 02136 VBZERO TC OP/INERT
010318,000165: 43,2125 02127 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
010319,000166: 43,2126 02120 TC ALM/END # RETURN HERE IF NOUN = OCDU(91)
010320,000167: # (NOT IN USE YET)
010321,000168:
010322,000169: 43,2127 02271 IMUZEROK TC CKMODCAD # KEYBOARD REQUEST FOR ISS CDUZERO
010323,000170: 43,2130 04662 TC BANKCALL
010324,000171: 43,2131 16577 CADR IMUZERO
010325,000172:
010326,000173: 43,2132 04662 TC BANKCALL # STALL
010327,000174: 43,2133 17577 CADR IMUSTALL
010328,000175: 43,2134 02135 TC +1
010329,000176:
010330,000177: 43,2135 02121 TC GOPIN
010331,000178:
010332,000179: 43,2136 44112 OP/INERT CS OCT24
010333,000180: 43,2137 61002 AD NOUNREG
010334,000181: 43,2140 00006 EXTEND
010335,000182: 43,2141 12476 BZF XACT0Q # IF = 20.
010336,000183:
010337,000184: 43,2142 24002 INCR Q
010338,000185: 43,2143 62147 AD OPIMDIFF # -71
010339,000186: 43,2144 00006 EXTEND
010340,000187: 43,2145 12476 BZF XACT0Q
010341,000188:
010342,000189: 43,2146 02120 TC ALM/END # ILLEGAL.
010343,000190:
010344,000191: 43,2147 77670 OPIMDIFF DEC -71 B-14
010345,000192:
010346,000193: # Page 240
010347,000194: # VBCOARK VERB 41 DESCRIPTION
010348,000195: # COARSE ALIGN IMU OR RADAR
010349,000196:
010350,000197: # 1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR.
010351,000198: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010352,000199:
010353,000200: # CASE 1 NOUN 20 (ICDU ANGLES)
010354,000201: # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
010355,000202: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010356,000203: # RESPONSES
010357,000204: # A. TERMINATE
010358,000205: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
010359,000206: # B. PROCEED
010360,000207: # 1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
010361,000208: # RESPONSES:
010362,000209: # A. TERMINATE
010363,000210: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
010364,000211: # B. PROCEED
010365,000212: # 1. EXECUTE ICORK2.
010366,000213: # C. ENTER
010367,000214: # 1. INCREMENT CDU ANGLES
010368,000215: # 2. EXECUTE ICORK2
010369,000216: # C. ENTER
010370,000217: # 1. EXECUTE ICORK2
010371,000218: # ICORK2
010372,000219: # 1. RE-DISPLAY VERB 41.
010373,000220: # 2. EXECUTE IMUCCARS (IMU COARSE ALIGN).
010374,000221: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010375,000222: # 4. RELEASE EXT VERB DISPLAY SYSTEM.
010376,000223:
010377,000224: # CASE 2 NOUN 91 (OCDU ANGLES)
010378,000225: # 5. (REQUIRE OPTICS SWITCH TO BE AT COMUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
010379,000226: # OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
010380,000227: # AND RELEASE EXT VERB DISPLAY SYSTEM).
010381,000228: # 6. RESPONSES TO V29,N92
010382,000229: # A. TERMINATE
010383,000230: # RELEASE EXT VERB DISPLAY SYS.
010384,000231: # B. PROCEED OR ENTER
010385,000232: # RE-DISPLAY VERB 41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
010386,000233: # RELEASE EXT VERB DISPLAY SYSTEM.
010387,000234:
010388,000235: 43,2150 02136 VBCOARK TC OP/INERT
010389,000236: 43,2151 02153 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
010390,000237: 43,2152 02175 TC OPTCOARK # RETURN HERE IF NOUN = OCDU (91)
010391,000238:
010392,000239: # RETURNS TO L+1 IF NOUN 20 -- TO L+2 IF NOUN 91.
010393,000240:
010394,000241: 43,2153 02271 IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD
010395,000242: 43,2154 02076 TC TESTXACT
010396,000243: 43,2155 32173 CAF VNLODCDU # CALL FOR THETAD LOAD
010397,000244: 43,2156 04662 TC BANKCALL
010398,000245: 43,2157 20561 CADR GOXDSPF
010399,000246: 43,2160 05534 TC TERMEXTV
010400,000247: 43,2161 12162 TCF +1
010401,000248: # Page 241
010402,000249:
010403,000250: 43,2162 32174 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
010404,000251: 43,2163 04662 TC BANKCALL
010405,000252: 43,2164 21042 CADR EXDSPRET
010406,000253:
010407,000254: 43,2165 04662 TC BANKCALL # CALL MODE SWITCHING PROG
010408,000255: 43,2166 16663 CADR IMUCOARS
010409,000256:
010410,000257: 43,2167 04662 TC BANKCALL # STALL
010411,000258: 43,2170 17577 CADR IMUSTALL
010412,000259: 43,2171 05534 TC ENDEXTVB
010413,000260: 43,2172 05534 TC ENDEXTVB
010414,000261:
010415,000262: 43,2173 06226 VNLODCDU VN 2522
010416,000263: 43,2174 12200 IMUCOARV VN 4100
010417,000264:
010418,000265: # Page 242
010419,000266: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
010420,000267:
010421,000268: 43,2175 31323 OPTCOARK CA OPTCADR
010422,000269: 43,2176 02272 TC CKMODCAD +1
010423,000270: 43,2177 02076 TC TESTXACT
010424,000271: 43,2200 35056 CAF EBANK5
010425,000272: 43,2201 54003 TS EBANK
010426,000273:
010427,000274: 43,2202 11314 CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER
010428,000275: 43,2203 02210 TC +5 # SWITCH AT COMPUTER
010429,000276: 43,2204 02205 TC +1 # NOT ON COMPUTER
010430,000277: 43,2205 04400 TC FALTON # TURN ON OPERATOR ERR
010431,000278: 43,2206 05650 TC ALARM # AND ALARM
010432,000279: 43,2207 00115 OCT 00115
010433,000280:
010434,000281: 43,2210 11303 CCS OPTIND # SEE IF OPTICS AVAILABLE
010435,000282: 43,2211 02217 TC OPTC1 # IN USE
010436,000283: 43,2212 02217 TC OPTC1 # IN USE
010437,000284: 43,2213 02217 TC OPTC1 # IN USE
010438,000285:
010439,000286: 43,2214 05650 TC ALARM # OPTICS RESERVED (OPTIND=-0)
010440,000287: 43,2215 00117 OCT 00117
010441,000288: 43,2216 05534 TC ENDEXT
010442,000289:
010443,000290: 43,2217 32237 OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS
010444,000291: 43,2220 04662 TC BANKCALL
010445,000292: 43,2221 20561 CADR GOXDSPF
010446,000293: 43,2222 05534 TC TERMEXTV
010447,000294: 43,2223 02224 TC +1 # PROCEED
010448,000295:
010449,000296: 43,2224 31773 CA SAC
010450,000297: 43,2225 55161 TS DESOPTS
010451,000298: 43,2226 31775 CA PAC
010452,000299: 43,2227 55160 TS DESOPTT
010453,000300: 43,2230 32174 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
010454,000301: 43,2231 04662 TC BANKCALL
010455,000302: 43,2232 21042 CADR EXDSPRET
010456,000303:
010457,000304: 43,2233 35017 CAF ONE
010458,000305: 43,2234 55303 TS OPTIND # SET COARS WORKING
010459,000306:
010460,000307: 43,2235 05534 TC ENDEXTVB
010461,000308: 43,2236 05534 TC ENDEXTVB
010462,000309:
010463,000310: 43,2237 06134 VNLD0CDU VN 2492
010464,000311: 43,2240 43,2174 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
010465,000312:
010466,000313: # Page 243
010467,000314: # IMUFINEK VERB 42 DESCRIPTION
010468,000315: # FINE ALIGN IMU
010469,000316:
010470,000317: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
010471,000318: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
010472,000319: # RESPONSES
010473,000320: # A. TERMINATE
010474,000321: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
010475,000322: # B. PROCEED OR ENTER
010476,000323: # 1. RE-DISPLAY VERB 42
010477,000324: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
010478,000325: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
010479,000326: # A. FAILED
010480,000327: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
010481,000328: # B. GOOD
010482,000329: # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
010483,000330: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
010484,000331:
010485,000332: 43,2240 02271 IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING.
010486,000333: 43,2241 02076 TC TESTXACT
010487,000334: 43,2242 32267 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
010488,000335: 43,2243 04662 TC BANKCALL
010489,000336: 43,2244 20561 CADR GOXDSPF
010490,000337: 43,2245 05534 TC TERMEXTV
010491,000338: 43,2246 02247 TC +1 # PROCEED WITHOUT A LOAD
010492,000339:
010493,000340: 43,2247 32270 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
010494,000341: 43,2250 04662 TC BANKCALL
010495,000342: 43,2251 21042 CADR EXDSPRET
010496,000343:
010497,000344: 43,2252 04662 TC BANKCALL # CALL MODE SWITCH PROG
010498,000345: 43,2253 17073 CADR IMUFINE
010499,000346:
010500,000347: 43,2254 04662 TC BANKCALL # HIBERNATION
010501,000348: 43,2255 17577 CADR IMUSTALL
010502,000349: 43,2256 05534 TC ENDEXTVB
010503,000350:
010504,000351: 43,2257 32266 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS
010505,000352: 43,2260 04662 TC BANKCALL
010506,000353: 43,2261 17206 CADR IMUPULSE
010507,000354:
010508,000355: 43,2262 04662 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
010509,000356: 43,2263 17577 CADR IMUSTALL
010510,000357: 43,2264 05534 TC ENDEXTVB
010511,000358: 43,2265 05534 TC ENDEXTVB
010512,000359:
010513,000360: 43,2266 02757 LGYROBIN ECADR OGC
010514,000361: 43,2267 06335 VNLODGYR VN 2593
010515,000362: 43,2270 12400 IMUFINEV VN 4200 # FINE ALIGN VERB
010516,000363:
010517,000364: 43,2271 31322 CKMODCAD CA MODECADR
010518,000365: # Page 244
010519,000366: 43,2272 00006 EXTEND
010520,000367: 43,2273 16711 BZF TCQ
010521,000368: 43,2274 02120 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT
010522,000369:
010523,000370: # GOLOADLV VERB 50 DESCRIPTION
010524,000371: # AND OTHER PLEASE
010525,000372: # DO SOMETHING VERBS
010526,000373:
010527,000374: # PLEASE PERFORM, MARK, CALIBRATE, ETC.
010528,000375:
010529,000376: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
010530,000377: # SAME RECALL AS A COMPLETED LOAD.
010531,000378: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
010532,000379:
010533,000380: 43,2275 04447 GOLOADLV TC FLASHOFF
010534,000381: 43,2276 34215 CAF PINSUPBT
010535,000382: 43,2277 00006 EXTEND
010536,000383: 43,2300 01007 WRITE SUPERBNK # TURN ON FE7
010537,000384: 43,2301 04701 TC POSTJUMP
010538,000385: 43,2302 40,2000 SBANK= PINSUPER
010539,000386: 43,2302 62001 CADR LOADLV1
010540,000387:
010541,000388: # V60 VERB 60
010542,000389: 43,2303 00006 V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
010543,000390: 43,2304 30033 DCA CDUX # TO PRESENT ATTITUDE
010544,000391: 43,2305 53334 DXCH CPHIX
010545,000392: 43,2306 30034 CA CDUZ
010546,000393: 43,2307 55335 TS CPHIX +2
010547,000394: 43,2310 02121 TC GOPIN
010548,000395:
010549,000396: # V61 VERB 61
010550,000397: 43,2311 05560 V61 TC DOWNFLAG # SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE
010551,000398: 43,2312 00006 ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED
010552,000399: 43,2313 02121 TC GOPIN
010553,000400:
010554,000401: # V62 VERB 62
010555,000402: 43,2314 05546 V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010556,000403: 43,2315 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
010557,000404:
010558,000405: 43,2316 05546 TC UPFLAG # SET N22ORN17 TO 1 (FLAGWRD9,BIT6),
010559,000406: 43,2317 00220 ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22
010560,000407: 43,2320 02121 TC GOPIN
010561,000408:
010562,000409: # V63 VERB 63
010563,000410: 43,2321 05546 V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010564,000411: 43,2322 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
010565,000412:
010566,000413: 43,2323 05560 TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6),
010567,000414: # Page 245
010568,000415: 43,2324 00220 ADRES N22ORN17 # COMPUTE TOAL ASTRONAUT ATTITUDE ERROR
010569,000416: 43,2325 02121 TC GOPIN
010570,000417:
010571,000418: # Page 246
010572,000419: # ALINTIME VERB 55 DESCRIPTION
010573,000420:
010574,000421: # 1. SET EXT VERB DISPLAY BUSY FLAG.
010575,000422: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
010576,000423: # 3. REQUIRE EXECUTION OF VERB 23.
010577,000424: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
010578,000425: # 5. RELEASE EXT VERB DISPLAY SYSTEM.
010579,000426:
010580,000427: 43,2326 COUNT 04/R33
010581,000428:
010582,000429: 43,2326 02076 ALINTIME TC TESTXACT
010583,000430:
010584,000431: 43,2327 32357 CAF VNLODDT
010585,000432: 43,2330 04662 TC BANKCALL
010586,000433: 43,2331 20561 CADR GOMARKF
010587,000434: 43,2332 05534 TC ENDEXT # TERMINATE
010588,000435: 43,2333 05534 TC ENDEXT # PROCEED
010589,000436: 43,2334 42356 CS DEC23 # DATA IN OR RESEQUENCE (UNLIKELY)
010590,000437: 43,2335 60154 AD MPAC # RECALL LEFT VERB IN MPAC
010591,000438: 43,2336 00006 EXTEND
010592,000439: 43,2337 12341 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
010593,000440: 43,2340 05534 TC ENDEXT # WITH V23 (DATA IN).
010594,000441:
010595,000442: 43,2341 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
010596,000443: 43,2342 35021 CAF ZERO
010597,000444: 43,2343 54156 TS MPAC +2 # NEEDED FOR TP AGREE
010598,000445: 43,2344 54001 TS L # ZERO T1 + 2 WHILE ALIGNING.
010599,000446: 43,2345 52025 DXCH TIME2
010600,000447: 43,2346 52155 DXCH MPAC
010601,000448: 43,2347 53052 DXCH DSPTEM2 +1 # INCREMENT
010602,000449: 43,2350 20155 DAS MPAC
010603,000450:
010604,000451: 43,2351 07226 TC TPAGREE # FORCE SIGN AGREEMENT.
010605,000452: 43,2352 52155 DXCH MPAC # NEW CLOCK.
010606,000453: 43,2353 20025 DAS TIME2
010607,000454: 43,2354 00003 RELINT
010608,000455: 43,2355 05534 UPDTMEND TC ENDEXT
010609,000456: 43,2356 00027 DEC23 DEC 23 B-14 # V 23
010610,000457:
010611,000458: 43,2357 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
010612,000459:
010613,000460: # Page 247
010614,000461: # SYSTEST VERB 92 DESCRIPTION
010615,000462: # OPERATE SELECTED SYSTEM TEST.
010616,000463:
010617,000464: # 1. REQUIRE P00 OR P00- OR TURN ON OPERATOR ERROR.
010618,000465: # 2. TURN OFF DAP IF IT IS ON.
010619,000466: # 3. DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17).
010620,000467: # 4. UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20.
010621,000468:
010622,000469: # TSELECT
010623,000470: # 1. IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND
010624,000471: # REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE)
010625,000472:
010626,000473: 43,2360 E5,1425 EBANK= QPLACE
010627,000474:
010628,000475: 43,2360 COUNT 04/EXTVB
010629,000476:
010630,000477: 43,2360 02730 SYSTEST TC CHKP00H
010631,000478: 43,2361 30075 CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11)
010632,000479: 43,2362 75004 MASK NOP01BIT
010633,000480: 43,2363 00006 EXTEND
010634,000481: 43,2364 12367 BZF V92CONT # IF IT'S NOT YET SET, CONTINUE
010635,000482: 43,2365 05721 TC P00DOO # IT'S ON. SEND NODO ALARM FOR P07
010636,000483: 43,2366 01521 OCT 1521
010637,000484: 43,2367 02734 V92CONT TC EXDAPOFF # TURN DAP OFF IF IT'S ON
010638,000485: 43,2370 35002 CAF PRIO20
010639,000486: 43,2371 05147 TC FINDVAC
010640,000487: 43,2372 E5,1425 EBANK= QPLACE
010641,000488: 43,2372 30,2000 SBANK= IMUSUPER
010642,000489: 43,2372 02002 66065 2CADR REDO
010643,000490:
010644,000491: 43,2374 02121 TC GOPIN
010645,000492:
010646,000493: # REDO AND TSELECT ARE NOW IN SYSTEM TEST.
010647,000494:
010648,000495: 43,2375 COUNT* $$/EXTVB
010649,000496: # CKOPTVB VERB 65 DESCRIPTION
010650,000497: # OPTICAL VERIFICATION FOR PRELAUNCH.
010651,000498: # 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
010652,000499:
010653,000500: 43,2375 05364 CKOPTVB TC CHECKMM
010654,000501: 43,2376 00002 MM 02 B-14 # I WONDER IF PRELAUNCH IS RUNNING
010655,000502: 43,2377 02120 TC ALM/END # NOT RUNNING OPERATOR ERROR
010656,000503: 43,2400 00004 INHINT
010657,000504: 43,2401 35070 CAF PRIO16 # PRELAUNCH OPTICAL VERIFICATION
010658,000505: 43,2402 05147 TC FINDVAC
010659,000506: 43,2403 E5,1425 EBANK= QPLACE
010660,000507: 43,2403 02000 66065 2CADR COMPVER # STANDARD LEADIN TO GCOMPVER.
010661,000508:
010662,000509: 43,2405 02121 TC GOPIN
010663,000510:
010664,000511: # Page 248
010665,000512: # V 78 .... TO CHANGE GYROCOMPASS AZIMUTH
010666,000513:
010667,000514: 43,2406 05364 CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
010668,000515: 43,2407 00002 MM 02 B-14
010669,000516: 43,2410 02120 TC ALM/END # NO -- OPERATOR ERROR
010670,000517:
010671,000518: 43,2411 35070 CAF PRIO16 # PRELAUNCH AZIMUTH CHANGE
010672,000519: 43,2412 05147 TC FINDVAC
010673,000520: 43,2413 E5,1671 EBANK= XSM
010674,000521: 43,2413 03742 66065 2CADR AZMTHCG1
010675,000522:
010676,000523: 43,2415 05412 TC PHASCHNG
010677,000524: 43,2416 00174 OCT 00174
010678,000525: 43,2417 02121 TC GOPIN
010679,000526: # Page 249
010680,000527: # IMUATTCK VERB 43 DESCRIPTION
010681,000528: # LOAD IMU ATTITUDE ERROR METERS
010682,000529:
010683,000530: # 1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
010684,000531: # 2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
010685,000532: # FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
010686,000533: # 3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE.
010687,000534: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010688,000535: # 5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
010689,000536: # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
010690,000537: # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
010691,000538:
010692,000539: 43,2420 02730 IMUATTCK TC CHKP00H
010693,000540:
010694,000541: 43,2421 32477 CAF OCTAL30 # SEE IF IMU ZERO AND IMU COARSE ARE ON
010695,000542: 43,2422 00006 EXTEND
010696,000543: 43,2423 02012 RAND CHAN12
010697,000544: 43,2424 10000 CCS A
010698,000545: 43,2425 12120 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
010699,000546:
010700,000547: 43,2426 02465 TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
010701,000548: 43,2427 02076 TC TESTXACT # AFTER
010702,000549: 43,2430 45033 CS OCT50 # REMOVE COARSE AND ECTR ENABLE
010703,000550: 43,2431 00006 EXTEND
010704,000551: 43,2432 03012 WAND CHAN12
010705,000552:
010706,000553: 43,2433 32173 CAF VNLODCDU
010707,000554: 43,2434 04662 TC BANKCALL
010708,000555: 43,2435 20561 CADR GOXDSPF
010709,000556: 43,2436 12452 TCF TRMATTCK
010710,000557: 43,2437 02440 TC +1
010711,000558: 43,2440 35057 CAF EBANK6
010712,000559: 43,2441 54003 TS EBANK # SET E6 FOR NEEDLES.
010713,000560:
010714,000561: 43,2442 E6,1476 EBANK= AK
010715,000562:
010716,000563: 43,2442 04662 TC BANKCALL # INITIALIZE CURRENT DAC AND
010717,000564: 43,2443 42443 CADR NEEDLE11 # COMMAND VALUES.
010718,000565:
010719,000566: 43,2444 04662 TC BANKCALL # ENABLE ERROR COUNTERS.
010720,000567: 43,2445 42462 CADR NEEDLER2
010721,000568:
010722,000569: 43,2446 35016 CAF TWO # 4 MS MIN.
010723,000570: 43,2447 05245 TC WAITLIST
010724,000571: 43,2450 E6,1476 EBANK= AK
010725,000572: 43,2450 02455 66106 2CADR ATTCK1
010726,000573:
010727,000574: 43,2452 02465 TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
010728,000575: 43,2453 15534 TCF ENDEXT # AFTER
010729,000576: 43,2454 02121 TC GOPIN
010730,000577: # Page 250
010731,000578: 43,2455 00006 ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REQS.
010732,000579: 43,2456 31156 DCA THETAD
010733,000580: 43,2457 53477 DXCH AK
010734,000581: 43,2460 31157 CAE THETAD +2
010735,000582: 43,2461 55500 TS AK +2
010736,000583:
010737,000584: 43,2462 04740 TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES
010738,000585: 43,2463 42476 CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED.
010739,000586:
010740,000587: 43,2464 05324 TC TASKOVER
010741,000588:
010742,000589: 43,2465 35013 CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED
010743,000590: 43,2466 70101 MASK FLAGWRD5
010744,000591: 43,2467 10000 CCS A
010745,000592: 43,2470 00002 TC Q # YES
010746,000593: 43,2471 35013 CAF BIT5
010747,000594: 43,2472 00006 EXTEND
010748,000595: 43,2473 02030 RAND CHAN30
010749,000596: 43,2474 10000 CCS A
010750,000597: 43,2475 16706 TCF Q+1
010751,000598: 43,2476 00002 XACT0Q TC Q # YES
010752,000599:
010753,000600: 43,2477 00030 OCTAL30 OCT 30
010754,000601: 43,2500 02730 VB64 TC CHKP00H # DEMAND PROGRAM 00.
010755,000602: 43,2501 02076 TC TESTXACT # IF DISPLAY SYS. NOT BUSY, MAKE IT BUSY.
010756,000603: 43,2502 00004 INHINT
010757,000604: 43,2503 35004 CAF PRIO4
010758,000605: 43,2504 05147 TC FINDVAC
010759,000606: 43,2505 E4,1720 EBANK= RHOSB
010760,000607: 43,2505 03652 64104 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES.
010761,000608:
010762,000609: 43,2507 05217 TC ENDOFJOB
010763,000610:
010764,000611: # ENATMA VERB 58 DESCRIPTION
010765,000612: # ENABLE AUTOMATIC ATTITUDE MANEUVER
010766,000613:
010767,000614: # VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC
010768,000615: # ACTIVITY.
010769,000616:
010770,000617: 43,2510 05560 ENATMA TC DOWNFLAG # RESET STIKFLAG.
010771,000618: 43,2511 00020 ADRES STIKFLAG # BIT 14 FLAG 1
010772,000619: 43,2512 02121 TC GOPIN
010773,000620:
010774,000621: # Page 251
010775,000622: # STROKON VERB 68 DESCRIPTION
010776,000623: # STROKE TEST SETUP/ENABLE
010777,000624: # 1. SET EXT VERB DISPLAY BUSY FLAG
010778,000625: # 2. SCHEDULE STRKTST1 WITH PRIORITY 30.
010779,000626: # 3. RELEASE EXT VERB DISPLAY.
010780,000627:
010781,000628: 43,2513 E6,1625 EBANK= T5TVCDT
010782,000629: 43,2513 40102 STROKON CS FLAGWRD6 # V68 PERMITTED ONLY DURING TVC
010783,000630: 43,2514 74105 MASK OCT60000
010784,000631: 43,2515 00006 EXTEND
010785,000632: 43,2516 62120 BZMF ALM/END # NOT TVC....FLASH OP ERROR LIGHT
010786,000633: 43,2517 34371 CAF PRIO30 # JOB REQUEST, TO SET UP STROKE TEST,
010787,000634: 43,2520 05134 TC NOVAC # INCLUDING INITIALIZATIONS
010788,000635: 43,2521 40,2000 SBANK= PINSUPER # Added RSB 2009.
010789,000636: 43,2521 E6,1574 EBANK= STROKER
010790,000637: 43,2521 03501 40106 2CADR STRKTSTI
010791,000638:
010792,000639: 43,2523 02121 TC GOPIN
010793,000640:
010794,000641: # STABLISH VERB 46 DESCRIPTION
010795,000642: # ESTABLISH G AND N AUTOPILOT CONTROL
010796,000643: # 1. SETS UP EITHER RCS, ENTRY, OR SATURN
010797,000644: # 2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER
010798,000645: # FROM HIGH BW TO LOW BW
010799,000646:
010800,000647:
010801,000648: 43,2524 35057 STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
010802,000649: 43,2525 54003 TS EBANK
010803,000650:
010804,000651: 43,2526 40102 CS FLAGWRD6 # TEST FOR TVC
010805,000652: 43,2527 74105 MASK OCT60000
010806,000653: 43,2530 00006 EXTEND
010807,000654: 43,2531 62541 BZMF +8
010808,000655:
010809,000656: 43,2532 31466 CAE DAPDATR1 # TET FOR CSM/LM
010810,000657: 43,2533 75002 MASK BIT14
010811,000658: 43,2534 00006 EXTEND
010812,000659: 43,2535 62540 BZMF +3
010813,000660:
010814,000661: 43,2536 04701 TC POSTJUMP # CSM/LM, SO PERFORM HB TO LB SWITCH-OVER
010815,000662: 43,2537 36351 CADR PRESWTCH
010816,000663:
010817,000664: 43,2540 02120 +3 TC ALM/END
010818,000665:
010819,000666: 43,2541 04701 +8 TC POSTJUMP # SET UP RCS, ENTRY, OR SATURN-STICK DAP
010820,000667: 43,2542 65606 CADR DAPFIG
010821,000668: # Page 252
010822,000669: # CREMANU VERB 49 DESCRIPTION
010823,000670: # START AUTOMATIC ATTITUDE MANEUVER
010824,000671:
010825,000672: # 1. REQUIRE PROGRAM 00 ACTIVE.
010826,000673: # 2. SET EXT VERB DISPLAY BUSY FLAG.
010827,000674: # 3. SCHEDULE R62DISP WITH PRIORITY 10.
010828,000675: # 4. RELEASE EXT VERB DISPLAY.
010829,000676:
010830,000677: # R62DISP
010831,000678: # 1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP
010832,000679: # 4 FOR RESTART OF DISPLAY SEQUENCE.
010833,000680: # RESPONSES
010834,000681: # A. TERMINATE
010835,000682: # 1. GOTOP00H
010836,000683: # B. PROCEED
010837,000684: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010838,000685: # 2. EXECUTE R60CSM (ATTITUDE MANEUVER).
010839,000686: # 3. ZERO GROUP 4 (END R62).
010840,000687: # C. ENTER
010841,000688: # 1. REPEAT FLASHING V06,N22.
010842,000689:
010843,000690: 43,2543 02730 CREWMANU TC CHKP00H # DEMAND P00
010844,000691:
010845,000692: 43,2544 02076 TC TESTXACT
010846,000693:
010847,000694: 43,2545 35003 CAF PRIO10
010848,000695: 43,2546 05147 TC FINDVAC
010849,000696: 43,2547 1155 EBANK= CPHI
010850,000697: 43,2547 02330 56102 2CADR R62DISP
010851,000698:
010852,000699: 43,2551 05217 TC ENDOFJOB
010853,000700:
010854,000701: # Page 253
010855,000702: # DAPDISP VERB 48 DESCRIPTION
010856,000703: # LOAD AUTOPILOT DATA (ROUTINE R03)
010857,000704:
010858,000705: # 0. CHECKFAIL AND RETURN IF TVC.
010859,000706: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010860,000707: # 2. LOWER PRIORITY TO 10.
010861,000708: # 3. DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION).
010862,000709: # 4. UPON PROCEED RESPONSE, EXECUTE S41.2.
010863,000710: # 5. DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
010864,000711: # 6. UPON PROCEED RESPONSE EXECUTE S40.14.
010865,000712: # 7. DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
010866,000713: # 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM.
010867,000714:
010868,000715: 43,2552 COUNT* $$/EXTVB
010869,000716:
010870,000717: 43,2552 40102 DAPDISP CS FLAGWRD6
010871,000718: 43,2553 74105 MASK OCT60000
010872,000719: 43,2554 00006 EXTEND
010873,000720: 43,2555 62557 BZMF +2 # TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
010874,000721: 43,2556 02120 TC ALM/END # RETURN IF TVC
010875,000722:
010876,000723: 43,2557 02076 TC TESTXACT
010877,000724: 43,2560 04662 TC BANKCALL
010878,000725: 43,2561 64000 CADR DAPDISP1
010879,000726: 42,2000 BANK 42
010880,000727: 42,2000 SETLOC EXTVBS
010881,000728: 42,2000 BANK
010882,000729: 42,2000 COUNT 24/R03
010883,000730:
010884,000731: 42,2000 35057 DAPDISP1 CAF EBANK6
010885,000732: 42,2001 54003 TS EBANK
010886,000733:
010887,000734: 42,2002 35003 CAF PRIO10
010888,000735: 42,2003 05210 TC PRIOCHNG
010889,000736:
010890,000737: 42,2004 32061 DONOUN46 CAF V04N46 # R1 R2
010891,000738: 42,2005 04662 TC BANKCALL # DAPDATR1 DAPDATR2
010892,000739: 42,2006 20561 CADR GOXDSPF # GOXDSP ROUTINES USED FOR EXTENDED VERBS.
010893,000740:
010894,000741: 42,2007 05534 TC ENDEXT # EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
010895,000742: 42,2010 02012 TC +2
010896,000743: 42,2011 02004 TC DONOUN46
010897,000744:
010898,000745: 42,2012 31466 CA DAPDATR1
010899,000746: 42,2013 75014 MASK BIT4
010900,000747: 42,2014 10000 CCS A
010901,000748: 42,2015 12054 TCF MAXIN
010902,000749: 42,2016 05560 TC DOWNFLAG
010903,000750: 42,2017 00212 ADRES MAXDBFLG
010904,000751: 42,2020 04662 MAXOUT TC BANKCALL
010905,000752: 42,2021 40347 CADR S41.2
010906,000753:
010907,000754: 42,2022 32060 DONOUN47 CAF V06N47 # R1 R2 R3
010908,000755: # Page 254
010909,000756: 42,2023 04662 TC BANKCALL # CSM WGT. LEM WGT. BLANK
010910,000757: 42,2024 20561 CADR GOXDSPF
010911,000758:
010912,000759: 42,2025 05534 TC ENDEXT
010913,000760: 42,2026 02030 TC +2
010914,000761: 42,2027 02022 TC DONOUN47
010915,000762: 42,2030 31466 CAE DAPDATR1 # DO MASS PROPERTIES CALCULATION ONLY IF
010916,000763: 42,2031 74371 MASK PRIO30 # CONFIG = 1(CSM), 2 (CSM/LM), 6(CSM/LMA)
010917,000764: 42,2032 00006 EXTEND
010918,000765: 42,2033 12046 BZF DONOUN48 # SKIP IF 0,4
010919,000766: 42,2034 40000 COM
010920,000767: 42,2035 74371 MASK PRIO30
010921,000768: 42,2036 00006 EXTEND
010922,000769: 42,2037 12046 BZF DONOUN48 # SKIP IF 3,7
010923,000770: 42,2040 00004 INHINT
010924,000771: 42,2041 04740 TC IBNKCALL
010925,000772: 42,2042 13366 CADR MASSPROP # UPDATE IXX, IAVG, IAVG/TLX
010926,000773:
010927,000774: 42,2043 00003 RELINT
010928,000775: 42,2044 04662 TC BANKCALL
010929,000776: 42,2045 40500 CADR S40.14 # COMPUTE RCS DAP STUFF
010930,000777:
010931,000778: 42,2046 32057 DONOUN48 CAF V0648 # R1 R2 R3
010932,000779: 42,2047 04662 TC BANKCALL # PTRIM YTRIM BLANK
010933,000780: 42,2050 20561 CADR GOXDSPF
010934,000781:
010935,000782: 42,2051 05534 TC ENDEXT
010936,000783: 42,2052 05534 TC ENDEXT
010937,000784: 42,2053 02046 TC DONOUN48
010938,000785:
010939,000786: 42,2054 05546 MAXIN TC UPFLAG
010940,000787: 42,2055 00212 ADRES MAXDBFLG
010941,000788: 42,2056 02020 TC MAXOUT
010942,000789:
010943,000790: 42,2057 01460 V0648 VN 0648
010944,000791: 42,2060 01457 V06N47 VN 0647
010945,000792: 42,2061 01056 V04N46 VN 0446
010946,000793: 43,2562 BANK 43
010947,000794: 43,2000 SETLOC EXTVERBS
010948,000795: 43,2000 BANK
010949,000796:
010950,000797: 43,2562 COUNT* $$/EXTVB
010951,000798:
010952,000799: # V82PERF VERB82 DESCRIPTION
010953,000800: # REQUEST ORBIT PARAMETERS DISPLAY (R30)
010954,000801:
010955,000802: # 1. IF AVERAGE G IS OFF:
010956,000803: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
010957,000804: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
010958,000805: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ I.
010959,000806: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
010960,000807: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
010961,000808: # Page 255
010962,000809: # RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
010963,000810: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
010964,000811: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
010965,000812: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
010966,000813: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
010967,000814: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
010968,000815: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
010969,000816: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
010970,000817: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
010971,000818:
010972,000819: # 2. IF AVERAGE G IS ON:
010973,000820: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
010974,000821: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
010975,000822: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
010976,000823: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
010977,000824: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
010978,000825: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
010979,000826:
010980,000827: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
010981,000828: # ABOVE REMARKS.
010982,000829:
010983,000830: 43,2562 02076 V82PERF TC TESTXACT
010984,000831:
010985,000832: 43,2563 35063 CAF PRIO7
010986,000833: 43,2564 05210 TC PRIOCHNG
010987,000834: 43,2565 04701 TC POSTJUMP
010988,000835: 43,2566 46332 CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB.
010989,000836:
010990,000837: # VB83PERF VERB 83 DESCRIPTION
010991,000838: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
010992,000839:
010993,000840: # 1. SET EXT VERB DISPLAY BUSY FLAG.
010994,000841: # 2. SCHEDULE V83CALL WITH PRIORITY 10.
010995,000842: # A. DISPLAY
010996,000843: # R1 RANGE
010997,000844: # R2 RANGE RATE
010998,000845: # R3 THETA
010999,000846:
011000,000847: 43,2567 02076 V83PERF TC TESTXACT
011001,000848: 43,2570 00004 INHINT
011002,000849: 43,2571 40105 CS FLAGWRD9 # SET R31 FLAG-BIT 4 FLAGWRD9
011003,000850: 43,2572 75014 MASK R31FLBIT
011004,000851: 43,2573 26105 ADS FLAGWRD9
011005,000852: 43,2574 35061 CAF PRIO5
011006,000853: 43,2575 05134 TC NOVAC
011007,000854: 43,2576 30,2000 SBANK= LOWSUPER # Added by RSB 2009
011008,000855: 43,2576 E4,1770 EBANK= SUBEXIT
011009,000856: 43,2576 02000 62064 2CADR R31CALL
011010,000857:
011011,000858: 43,2600 05217 TC ENDOFJOB
011012,000859:
011013,000860: # Page 256
011014,000861: 43,2601 02076 V85PERF TC TESTXACT
011015,000862: 43,2602 00004 INHINT
011016,000863: 43,2603 45014 CS R31FLBIT # RESET R31 FLAG TO INDICATE R34
011017,000864: 43,2604 70105 MASK FLAGWRD9
011018,000865: 43,2605 54105 TS FLAGWRD9
011019,000866: 43,2606 02574 TC V83PERF +5
011020,000867: # Page 257
011021,000868: # GOTOR21 VERB 57
011022,000869: # GOTOR23- VERB 54 DESCRIPTION
011023,000870: # SET UP MARKING FOR R22 (REND TRACK DATA PROC)
011024,000871: # 1. SET EXT VERB DISPLAY BUSY FLAG
011025,000872: # 2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
011026,000873: # SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
011027,000874: # 3. RELEASE EXT VERB DISPLAY SYSTEM
011028,000875:
011029,000876: 43,2607 05560 GOTOR21 TC DOWNFLAG # CLEAR R23FLG
011030,000877: 43,2610 00025 ADRES R23FLG # BIT 9 FLAG 1
011031,000878: 43,2611 02614 TC +3
011032,000879: 43,2612 05546 GOTOR23 TC UPFLAG # SET R23FLG
011033,000880: 43,2613 00025 ADRES R23FLG # BIT 9 FLAG 1
011034,000881: 43,2614 02076 TC TESTXACT
011035,000882: 43,2615 30074 CA FLAGWRD0 # VB 57 UNACCEPTABLE UNLESS BOTH
011036,000883: 43,2616 75011 MASK RNDVZBIT # RENDEZVOUS AND TRACK FLAGS ON
011037,000884: 43,2617 00006 EXTEND
011038,000885: 43,2620 12643 BZF R22ALARM
011039,000886:
011040,000887: 43,2621 30075 CA FLAGWRD1
011041,000888: 43,2622 75013 MASK TRACKBIT
011042,000889: 43,2623 00006 EXTEND
011043,000890: 43,2624 12643 BZF R22ALARM
011044,000891:
011045,000892: 43,2625 30075 CA FLAGWRD1 # TEST R23FLG
011046,000893: 43,2626 75007 MASK R23BIT
011047,000894: 43,2627 00006 EXTEND
011048,000895: 43,2630 12636 BZF REGR21 # R21
011049,000896: 43,2631 35070 CAF PRIO16
011050,000897: 43,2632 05134 TC NOVAC
011051,000898: 43,2633 E7,1725 EBANK= MRKBUF1
011052,000899: 43,2633 02470 76067 2CADR R23CSM
011053,000900:
011054,000901: 43,2635 05217 TC ENDOFJOB
011055,000902: 43,2636 35070 REGR21 CAF PRIO16
011056,000903: 43,2637 05134 TC NOVAC
011057,000904: 43,2640 E7,1725 EBANK= MRKBUF1
011058,000905: 43,2640 02466 76067 2CADR R21CSM
011059,000906:
011060,000907: 43,2642 05217 TC ENDOFJOB
011061,000908: 43,2643 05650 R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND
011062,000909: 43,2644 00406 OCT 00406 # NOR TRACK FLAG WERE ON.
011063,000910: 43,2645 05534 TC ENDEXT
011064,000911:
011065,000912: # Page 258
011066,000913: # VERB 86 DESCRIPTION
011067,000914: # V86 IS TO R23 AS MARK REJECT IS TO R21
011068,000915: # V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE)
011069,000916:
011070,000917: 43,2646 E7,1725 EBANK= MRKBUF1
011071,000918: 43,2646 35060 V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23)
011072,000919: 43,2647 56003 XCH EBANK
011073,000920: 43,2650 37716 CA NEGONE
011074,000921: 43,2651 55725 TS MRKBUF1
011075,000922: 43,2652 02121 TC GOPIN
011076,000923:
011077,000924: # Page 259
011078,000925: # TRACKTRM VERB 56 DESCRIPTION
011079,000926: # TERMINATE TRACKING (P20)
011080,000927: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011081,000928: # 2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOP00H (REQUEST PROGRAM 00).
011082,000929: # 3. REQUIRE R22 RUNNING OR GO TO PINBRNCH.
011083,000930: # 4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22
011084,000931: # 3. KNOCK DOWN RENDEZFOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
011085,000932: # 4. GO TO ENEMA (SOFTWARE RESTART).
011086,000933: # REFERENCE
011087,000934: # P20 RENDEZVOUS NAVIGATION
011088,000935: # R21 RENDEZVOUS TRACKING SIGHTING MARK.
011089,000936: # R22 RENDEZVOUS TRACKING DATA PROCESSING.
011090,000937:
011091,000938: 43,2653 35011 TRACKTRM CA RNDVZBIT # IS REND FLAG ON
011092,000939: 43,2654 70074 MASK FLAGWRD0
011093,000940: 43,2655 00006 EXTEND
011094,000941: 43,2656 12121 BZF GOPIN # NO
011095,000942:
011096,000943: 43,2657 05560 TC DOWNFLAG
011097,000944: 43,2660 00010 ADRES RNDVZFLG
011098,000945:
011099,000946: 43,2661 35013 CA TRACKBIT # IS TRACK FLAG ON
011100,000947: 43,2662 70075 MASK FLAGWRD1
011101,000948: 43,2663 00006 EXTEND
011102,000949: 43,2664 12121 BZF GOPIN # NO
011103,000950:
011104,000951: 43,2665 05560 TC DOWNFLAG
011105,000952: 43,2666 00031 ADRES TRACKFLG
011106,000953:
011107,000954: 43,2667 05560 TC DOWNFLAG
011108,000955: 43,2670 00027 ADRES UPDATFLG
011109,000956:
011110,000957: 43,2671 05560 TC DOWNFLAG
011111,000958: 43,2672 00007 ADRES IMUSE
011112,000959:
011113,000960: 43,2673 35057 CAF EBANK6
011114,000961: 43,2674 54003 TS EBANK
011115,000962:
011116,000963: 43,2675 00004 INHINT
011117,000964: 43,2676 04526 TC STOPRATE
011118,000965:
011119,000966: 43,2677 37716 CAF NEGONE
011120,000967: 43,2700 55303 TS OPTIND
011121,000968:
011122,000969: 43,2701 06006 TC INTPRET
011123,000970: 43,2702 77624 CALL
011124,000971: 43,2703 27442 INTSTALL # DON'T INTERRUPT INTEGRATION
011125,000972: 43,2704 77776 EXIT
011126,000973:
011127,000974: 43,2705 05372 TC 2PHSCHNG
011128,000975: # Page 260
011129,000976: 43,2706 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
011130,000977: 43,2707 00001 OCT 1 # ALSO KILL GROUP 1
011131,000978:
011132,000979: 43,2710 00004 CLEANOUT INHINT
011133,000980: 43,2711 04701 TC POSTJUMP
011134,000981: 43,2712 12651 CADR ENEMA # CAUSE RESTART
011135,000982:
011136,000983: # LEMVEC VERB 80 DESCRIPTION
011137,000984: # UPDATE LEM STATE VECTOR
011138,000985: # RESET VEHUPFLG TO 0
011139,000986:
011140,000987: 43,2713 05560 LEMVEC TC DOWNFLAG
011141,000988: 43,2714 00026 ADRES VEHUPFLG # VEHUPFLG DOWN INDICATES LEM
011142,000989:
011143,000990: 43,2715 12121 TCF GOPIN
011144,000991:
011145,000992: # CSMVEC VERB 81 DESCRIPTION
011146,000993: # UPDATE CSM STATE VECTOR
011147,000994: # SET VEHUPFLG TO 1
011148,000995:
011149,000996: 43,2716 05546 CSMVEC TC UPFLAG
011150,000997: 43,2717 00026 ADRES VEHUPFLG # VEHUPFLG UP INDICATES CM
011151,000998:
011152,000999: 43,2720 12121 TCF GOPIN
011153,001000:
011154,001001: # DNEDUMP VERB 74 DESCRIPTION
011155,001002: # INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011156,001003:
011157,001004: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011158,001005: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011159,001006: # 3. RELEASE EXT VERB DISPLAY.
011160,001007:
011161,001008: 43,2721 0010 EBANK= 10
011162,001009: 43,2721 32724 DNEDUMP CAF LDNDUMPI
011163,001010: 43,2722 54335 TS DNTMGOTO
011164,001011: 43,2723 02121 TC GOPIN
011165,001012:
011166,001013: 43,2724 43,2721 V74 EQUALS DNEDUMP
011167,001014: 43,2724 03722 LDNDUMPI REMADR DNDUMPI
011168,001015:
011169,001016: # LFTFLGON VERB 75 DESCRIPTION
011170,001017: # SET LIFT-OFF FLAG
011171,001018: # 1. SETUP GRRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
011172,001019: # 2. RETURN VIA PINBRNCH
011173,001020:
011174,001021: 43,2725 05546 LFTFLGON TC UPFLAG # VB 75 -- SET LIFTOFF FLAG BIT
011175,001022: 43,2726 00125 ADRES GRRBKFLG # BIT 5 FLAG 5
011176,001023: 43,2727 02121 TC GOPIN
011177,001024:
011178,001025: # Page 261
011179,001026: 43,2730 31011 CHKP00H CA MODREG
011180,001027: 43,2731 00006 EXTEND
011181,001028: 43,2732 16711 BZF TCQ
011182,001029: 43,2733 12120 TCF ALM/END
011183,001030:
011184,001031: 43,2734 00006 EXDAPOFF EXTEND
011185,001032: 43,2735 32744 DCA IDLECADR # SET T5 TO IDLE.
011186,001033: 43,2736 53313 DXCH T5LOC
011187,001034: 43,2737 44105 CS OCT60000
011188,001035: 43,2740 70102 MASK FLAGWRD6 # RESET DAPBITS 1 AND 2.
011189,001036: 43,2741 54102 TS FLAGWRD6
011190,001037: 43,2742 00002 TC Q
011191,001038:
011192,001039: 43,2743 40,2000 SBANK= PINSUPER # Added RSB 2009
011193,001040: 43,2743 E6,1423 EBANK= PACTOFF
011194,001041: 43,2743 03153 12106 IDLECADR 2CADR T5IDLOC
011195,001042:
011196,001043: # Page 262
011197,001044: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011198,001045: #
011199,001046: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND
011200,001047: # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
011201,001048: # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
011202,001049:
011203,001050: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
011204,001051: # EXIT R63, OTHERWISE CONTINUE.
011205,001052:
011206,001053: # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
011207,001054: # ORIENTATION KNOWN TO CGC, CONTINUE.
011208,001055:
011209,001056: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011210,001057: # BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS (R2=1).
011211,001058: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
011212,001059: # AFTER KEYING IN PROCEED.
011213,001060:
011214,001061: # 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
011215,001062: # FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
011216,001063:
011217,001064: # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
011218,001065:
011219,001066: # R63COMP JOB:
011220,001067:
011221,001068: # UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS.
011222,001069:
011223,001070: # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
011224,001071:
011225,001072: # DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
011226,001073: # ARE STORED FOR LATER R60CSM CALL.
011227,001074:
011228,001075: # 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
011229,001076:
011230,001077: # 7. RECYCLE: RETURN TO STEP 5.
011231,001078: # TERMINATE: EXIT R63 ROUTINE
011232,001079: # PROCEED: RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
011233,001080:
011234,001081: 43,2745 02730 V89PERF TC CHKP00H # DEMAND P00
011235,001082: 43,2746 02076 TC TESTXACT
011236,001083: 43,2747 00004 INHINT
011237,001084: 43,2750 35003 CAF PRIO10
011238,001085: 43,2751 05147 TC FINDVAC
011239,001086: 43,2752 30,2000 SBANK= LOWSUPER # Added by RSB 2009.
011240,001087: 43,2752 E4,1715 EBANK= P21TIME
011241,001088: 43,2752 03712 70064 2CADR V89CALL
011242,001089:
011243,001090: 43,2754 15217 TCF ENDOFJOB
011244,001091:
011245,001092: 43,2755 05560 WMATRXNG TC DOWNFLAG # RESET RENDWFLAG
011246,001093: 43,2756 00131 ADRES RENDWFLG
011247,001094: # Page 263
011248,001095:
011249,001096: 43,2757 05560 TC DOWNFLAG # RESET ORBWFLAG
011250,001097: 43,2760 00066 ADRES ORBWFLAG
011251,001098: 43,2761 02121 TC GOPIN
011252,001099:
011253,001100: 43,2762 43,2762 GOSHOSUM EQUALS SHOWSUM
011254,001101:
011255,001102: 43,2762 02730 SHOWSUM TC CHKP00H
011256,001103: 43,2763 02076 TC TESTXACT # *
011257,001104: 43,2764 35017 CAF S+1 # *
011258,001105: 43,2765 55376 TS SKEEP6 # * SHOWSUM OPTION
011259,001106: 43,2766 35021 CAF S+ZERO # *
011260,001107: 43,2767 55362 TS SMODE # * TURN OFF SELF-CHECK
011261,001108: 43,2770 33247 CA SELFADRS # *
011262,001109: 43,2771 55361 TS SELFRET # *
011263,001110: 43,2772 03524 TC STSHOSUM # * ENTER ROPECHK
011264,001111:
011265,001112: 43,2773 23372 SDISPLAY LXCH SKEEP2 # * BNK NO FOR DSP
011266,001113: 43,2774 23373 LXCH SKEEP3 # * BUGGER WORD FOR DSP
011267,001114: 43,2775 33246 NOKILL CA ADRS1 # *
011268,001115: 43,2776 54156 TS MPAC +2 # *
011269,001116: 43,2777 33010 CA VNCON # * 0501
011270,001117: 43,3000 04662 TC BANKCALL # *
011271,001118: 43,3001 20561 CADR GOXDSPF # *
011272,001119: 43,3002 03005 TC +3 # *
011273,001120: 43,3003 03635 TC NXTBNK # *
011274,001121: 43,3004 02775 TC NOKILL # *
011275,001122: 43,3005 33247 CA SELFADRS
011276,001123: 43,3006 55371 TS SKEEP1
011277,001124:
011278,001125: 43,3007 05534 TC ENDEXT # *
011279,001126:
011280,001127: 43,3010 01201 VNCON VN 501 # *
011281,001128:
011282,001129: 43,3011 31376 ENDSUMS CA SKEEP6 # *
011283,001130: 43,3012 00006 EXTEND # *
011284,001131: 43,3013 13340 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
011285,001132: 43,3014 03524 TC STSHOSUM # * START SHOWSUM AGAIN.
011286,001133:
011287,001134:
011288,001135: # VB 76 --- SET PREFERRED ATTITUDE FLAG --- DRIVE TO PREFERRED.
011289,001136:
011290,001137: 43,3015 05546 SETPRFLG TC UPFLAG
011291,001138: 43,3016 00120 ADRES PRFTRKAT # BIT 10 FLAG 5
011292,001139: 43,3017 02121 TC GOPIN
011293,001140:
011294,001141: # VB 77 --- RESET PREFERRED ATTITUDE FLAG --- DRIVE TO +X-AXIS ATT.
011295,001142:
011296,001143: 43,3020 05560 RESETPRF TC DOWNFLAG
011297,001144: 43,3021 00120 ADRES PRFTRKAT # BIT 10 FLAG 5
011298,001145: 43,3022 02121 TC GOPIN
011299,001146:
011300,001147: # Page 264
011301,001148: # VB 87 --- SET VHF RANGE FLAG --- ALLOWS R22 TO ACCEPT RANGE DATA.
011302,001149:
011303,001150: 43,3023 06006 SETVHFLG TC INTPRET
011304,001151: 43,3024 77414 SET EXIT
011305,001152: 43,3025 04466 VHFRFLAG
011306,001153: 43,3026 02121 TC GOPIN
011307,001154:
011308,001155: # VB 88 --- RESET VHF RANGE FLAG --- STOPS ACCEPTANCE OF RANGE DATA.
011309,001156:
011310,001157: 43,3027 06006 RESETVHF TC INTPRET
011311,001158: 43,3030 77414 CLEAR EXIT
011312,001159: 43,3031 04666 VHFRFLAG
011313,001160: 43,3032 05631 TC TRFAILOF # TRACKER FAIL LIGHT
011314,001161:
011315,001162: 43,3033 02121 TC GOPIN
011316,001163:
011317,001164: # VERB 66. VEHICLES ARE ATTACHED. --- MOVE THIS VEHICLE STATE VECTOR TO
011318,001165: # OTHER VEHICLE STATE VECTOR.
011319,001166:
011320,001167: # USE SUBROUTINE GENTRAN.
011321,001168:
011322,001169: 43,3034 E3,1554 EBANK= RRECTHIS
011323,001170: 43,3034 35003 ATTACHED CAF PRIO10
011324,001171: 43,3035 05147 TC FINDVAC
011325,001172: 43,3036 E3,1554 EBANK= RRECTHIS
011326,001173: 43,3036 03041 66103 2CADR ATTACHIT
011327,001174:
011328,001175: 43,3040 05217 TC ENDOFJOB
011329,001176:
011330,001177: 43,3041 06006 ATTACHIT TC INTPRET
011331,001178: 43,3042 77624 CALL
011332,001179: 43,3043 27442 INTSTALL
011333,001180: 43,3044 43014 SET BON
011334,001181: 43,3045 04064 MOONOTH
011335,001182: 43,3046 04303 MOONTHIS
011336,001183: 43,3047 67052 +3
011337,001184: 43,3050 77614 CLEAR
011338,001185: 43,3051 04264 MOONOTH
011339,001186: 43,3052 77776 EXIT
011340,001187: 43,3053 33100 CAF OCT51
011341,001188: 43,3054 05606 TC GENTRAN
011342,001189: 43,3055 01554 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
011343,001190: 43,3056 01626 ADRES RRECTOTH
011344,001191:
011345,001192: 43,3057 00003 TACHEXIT RELINT
011346,001193: 43,3060 06006 TC INTPRET
011347,001194: 43,3061 77624 CALL # UPDATE RN, VN, R-OTHER, V-OTHER
011348,001195: 43,3062 26731 PTOACSM
011349,001196: # Page 265
011350,001197: 43,3063 45154 LXA,2 CALL
011351,001198: 43,3064 02150 PBODY
011352,001199: 43,3065 20237 SVDWN1
011353,001200: 43,3066 77624 CALL
011354,001201: 43,3067 20263 SVDWN2
011355,001202: 43,3070 77776 EXIT
011356,001203:
011357,001204: 43,3071 33101 CAF TCPINAD
011358,001205: 43,3072 50120 INDEX FIXLOC
011359,001206: 43,3073 54052 TS QPRET
011360,001207: 43,3074 04701 TC POSTJUMP
011361,001208: 43,3075 27457 CADR INTWAKE
011362,001209:
011363,001210: 43,3076 77634 TCPIN RTB
011364,001211: 43,3077 21272 PINBRNCH
011365,001212:
011366,001213: 43,3100 00051 OCT51 OCT 51
011367,001214: 43,3101 67076 TCPINAD CADR TCPIN
011368,001215:
011369,001216: # VERB 47. MOVE LM STATE VECTOR INTO CSM STATE VECTOR
011370,001217:
011371,001218: 43,3102 35003 LMTOCMSV CAF PRIO10
011372,001219: 43,3103 05147 TC FINDVAC
011373,001220: 43,3104 E3,1554 EBANK= RRECTHIS
011374,001221: 43,3104 03107 66103 2CADR LMTOCM
011375,001222:
011376,001223: 43,3106 05217 TC ENDOFJOB
011377,001224:
011378,001225: 43,3107 06006 LMTOCM TC INTPRET
011379,001226: 43,3110 77624 CALL
011380,001227: 43,3111 27442 INTSTALL
011381,001228: 43,3112 43014 SET BON
011382,001229: 43,3113 04063 MOONTHIS
011383,001230: 43,3114 04304 MOONOTH
011384,001231: 43,3115 67120 +3
011385,001232: 43,3116 77614 CLEAR
011386,001233: 43,3117 04263 MOONTHIS
011387,001234: 43,3120 77776 EXIT
011388,001235:
011389,001236: 43,3121 33100 CAF OCT51
011390,001237: 43,3122 05606 TC GENTRAN
011391,001238: 43,3123 01626 ADRES RRECTOTH # LM STATE VECTOR INTO CM VIA GENTRAN
011392,001239: 43,3124 01554 ADRES RRECTHIS
011393,001240:
011394,001241: 43,3125 13057 TCF TACHEXIT
011395,001242:
011396,001243: # VERB 94 --- DO R64 VIA ENEMA TO PICK UP IN P23.
011397,001244:
011398,001245: 43,3126 35005 VERB94 CAF V94FLBIT
011399,001246: 43,3127 70105 MASK FLAGWRD9 # IS V94FLAG SET
011400,001247: # Page 266
011401,001248: 43,3130 00006 EXTEND
011402,001249: 43,3131 12120 BZF ALM/END # NO --- OPERATOR ERROR
011403,001250:
011404,001251: 43,3132 05560 TC DOWNFLAG
011405,001252: 43,3133 00213 ADRES V94FLAG
011406,001253:
011407,001254: 43,3134 05364 TC CHECKMM # IS IT P23
011408,001255: 43,3135 00027 MM 23 B-14
011409,001256: 43,3136 02120 TC ALM/END # NO -- OPERATOR ERROR
011410,001257: 43,3137 05412 TC PHASCHNG
011411,001258: 43,3140 00112 OCT 112 # SET GROUP 2 TO DO R64
011412,001259:
011413,001260: 43,3141 02710 TC CLEANOUT # CAUSE RESTART
011414,001261:
011415,001262: # V90PERF VERB 90 DESCRIPTION
011416,001263: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011417,001264:
011418,001265: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011419,001266: # 2. SCHEDULE R36 CALL WITH PRIORITY 10
011420,001267: # A. DISPLAY
011421,001268: # TIME OF EVENT -- HOURS, MINUTES, SECONDS
011422,001269: # Y OUT-OF-PLANE POSITION -- NAUTICAL MILES
011423,001270: # YDOT OUT-OF-PLANE VELOCITY -- FEET/SECOND
011424,001271: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
011425,001272: # DIRECTION VECTOR IN HORIZONTAL PLANE -- DEGREES
011426,001273:
011427,001274: 43,3142 02076 V90PERF TC TESTXACT
011428,001275: 43,3143 35063 CAF PRIO7 # R36,V90
011429,001276: 43,3144 05147 TC FINDVAC
011430,001277: 43,3145 40,2000 SBANK= PINSUPER # Added RSB 2009
011431,001278: 43,3145 E4,1726 EBANK= RPASS36
011432,001279: 43,3145 02164 40104 2CADR R36
011433,001280:
011434,001281: 43,3147 15217 TCF ENDOFJOB
011435,001282:
011436,001283: # VERB 96 SET QUITFLAG TO STOP INTEGRATION
011437,001284:
011438,001285: 43,3150 05546 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
011439,001286: 43,3151 00221 ADRES QUITFLAG # AT NEXT TIMESTEP
011440,001287:
011441,001288: 43,3152 05546 TC UPFLAG
011442,001289: 43,3153 00204 ADRES V96ONFLG
011443,001290: 43,3154 35021 CAF ZERO
011444,001291: 43,3155 04701 TC POSTJUMP
011445,001292: 43,3156 10011 CADR V37 # GO TO P00
011446,001293:
011447,001294: 43,3157 E5,1751 EBANK= LANDMARK
011448,001295: 43,3157 05364 V52 TC CHECKMM # IS P22 OPERATING
011449,001296: 43,3160 00026 MM 22 B-14
011450,001297: 43,3161 02120 TC ALM/END # NO
011451,001298: 43,3162 33200 CAF LANDBANK
011452,001299: 43,3163 54003 TS EBANK
011453,001300:
011454,001301: # Page 267
011455,001302: 43,3164 45063 CS PRIO7 # YES SET BITS 12,11,10 OF LANDMARK =
011456,001303: 43,3165 71751 MASK LANDMARK # BITS 14,13,12 OF MARKSTAT AFTER
011457,001304: 43,3166 55751 TS LANDMARK # SUBT. THEM FROM 5 TO GET OFFSET
011458,001305: 43,3167 31330 CA MARKSTAT # MARK NO.
011459,001306: 43,3170 54021 TS SR
011460,001307: 43,3171 30021 CA SR
011461,001308: 43,3172 30021 CA SR
011462,001309: 43,3173 75063 MASK PRIO7
011463,001310: 43,3174 40000 CS A
011464,001311: 43,3175 65061 AD PRIO5
011465,001312: 43,3176 27751 ADS LANDMARK
011466,001313: 43,3177 02121 TC GOPIN
011467,001314: 43,3200 02751 LANDBANK ECADR LANDMARK
011468,001315:
011469,001316: # VERB 67 ASTRONAUT DISPLAY OF W MATRIX
011470,001317:
011471,001318: 43,3201 02076 V67 TC TESTXACT
011472,001319: 43,3202 35061 CAF PRIO5
011473,001320: 43,3203 05147 TC FINDVAC
011474,001321: 43,3204 E5,1400 EBANK= W
011475,001322: 43,3204 03624 60105 2CADR V67CALL
011476,001323:
011477,001324: 43,3206 05217 TC ENDOFJOB
011478,001325:
011479,001326: # VB 44. SET SURFACE FLAG.
011480,001327:
011481,001328: 43,3207 05546 SETSURF TC UPFLAG
011482,001329: 43,3210 00177 ADRES SURFFLAG
011483,001330: 43,3211 12121 TCF GOPIN
011484,001331:
011485,001332: # VB 45. RESET SURFACE FLAG
011486,001333:
011487,001334: 43,3212 05560 RESTSRF TC DOWNFLAG
011488,001335: 43,3213 00177 ADRES SURFFLAG
011489,001336: 43,3214 12121 TCF GOPIN
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc