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