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