Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
010318,000002: ## Copyright: Public domain.
010319,000003: ## Filename: EXTENDED_VERBS.agc
010320,000004: ## Purpose: A section of Skylark revision 048.
010321,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
010322,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
010323,000007: ## this software are available; instead, this file was created via
010324,000008: ## disassembly of dumps of the core rope modules actually flown on
010325,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
010326,000010: ## Museum of Space History.
010327,000011: ## Assembler: yaYUL
010328,000012: ## Contact: Ron Burkey <info@sandroid.org>.
010329,000013: ## Website: www.ibiblio.org/apollo/index.html
010330,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
010331,000015: ## 2024-03-05 MAS Updated for Skylark 48.
010332,000016:
010333,000017:
010334,000018: 43,2000 SETLOC EXTVERBS
010335,000019: 43,2000 BANK
010336,000020:
010337,000021: 43,2000 E5,1757 EBANK= OGC
010338,000022:
010339,000023: 43,2000 COUNT* $$/EXTVB
010340,000024:
010341,000025: # FAN-OUT
010342,000026:
010343,000027: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
010344,000028: 43,2001 02002 TC LST2FAN # FAN AS BEFORE.
010345,000029:
010346,000030: 43,2002 02121 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY).
010347,000031: 43,2003 02133 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010348,000032: # 91 ONLY)
010349,000033: 43,2004 02227 TC IMUFINEK # VB42 FINE ALIGN IMU
010350,000034: 43,2005 02364 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
010351,000035: 43,2006 02541 TC DKDISP # VB44 LOAD DOCKED A/P DATA.
010352,000036: 43,2007 02570 TC DKDAPON # VB45 DOCKED DAP TURN ON.
010353,000037: 43,2010 02443 TC STABLISH # VB46 ESTABLISH G+C CONTROL.
010354,000038: 43,2011 03047 TC LMTOCMSV # VB47 MOVE LM STATE VECTOR INTO CM
010355,000039: 43,2012 02614 TC DAPDISP # VB48 LOAD A/P DATA.
010356,000040: 43,2013 12532 TCF CREWMANU # VB 49 START AUTOMATIC ATTITUDE MANEUVER
010357,000041: 43,2014 02265 TC GOLOADLV # VB50 PLEASE PERFORM
010358,000042: 43,2015 02265 TC GOLOADLV # VB51 PLEASE MARK
010359,000043: 43,2016 02116 TC ALM/END # VB52 SPARE
010360,000044: 43,2017 02265 TC GOLOADLV # VB53 PLEASE PERFORM COAS MARK
010361,000045: 43,2020 02650 TC GOTOR23 # V54 START R23 (R21-BACKUP)
010362,000046: 43,2021 02312 TC ALINTIME # VB55 ALIGN TIME
010363,000047: 43,2022 02711 TC TRACKTRM # VB56 TERMINATE TRACKING (P20 +P25)
010364,000048: 43,2023 03145 TC V57CALL # V57 FULTKFLG SETTING OPTION
010365,000049: 43,2024 02437 TC ENATMA # VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
010366,000050: 43,2025 02607 TC DKJTENBL # VB59 ENABLE JETS INHIBITED BY DOCKED DAP
010367,000051: 43,2026 02273 TC V60 # VB60 SET CPHIX (N17) EQUAL TO CDU
010368,000052: 43,2027 02301 TC V61 # VB61 SELECT MODE I
010369,000053: 43,2030 02304 TC V62 # VB62 SELECT MODE II, ERROR WRT N22
010370,000054: 43,2031 02307 TC V63 # VB63 SELECT MODE III, ERROR WRT N17
010371,000055: 43,2032 03077 TC R64 # VB64 TRANSFORM OPTICS ANGLES TO TRACKING
010372,000056: 43,2033 02342 TC CKOPTVB # V 65 E OPTICAL VERIFICATION FOR PRELAUNC
010373,000057: 43,2034 03042 TC ATTACHED # VB 66 ATTACHED. MOVE THIS TO OTHER STATE
010374,000058: 43,2035 03071 TC V67 # VB67 WMATRIX MONITOR
010375,000059: 43,2036 02116 TC ALM/END # VB68 SPARE
010376,000060: 43,2037 02037 VERB69 TC VERB69 # VB 69 CAUSE RESTART
010377,000061: 43,2040 03721 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
010378,000062: 43,2041 03723 TC V71UPDAT # VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
010379,000063: 43,2042 03725 TC V72UPDAT # VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
010380,000064: 43,2043 03727 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
010381,000065: 43,2044 02756 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010382,000066: # FOR ERASABLE DUMP.
010383,000067: 43,2045 02763 TC LFTFLGON # VB75 SET LIFTOFF FLAG.
010384,000068: 43,2046 13105 TCF V76CALL # VB76 START R27 IN P20
010385,000069: 43,2047 13125 TCF V77CALL # VB77 KILL R27
010386,000070: 43,2050 02352 TC CHAZFOGC # CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
010387,000071: 43,2051 02116 TC ALM/END # VB79 SPARE
010388,000072: 43,2052 02753 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR
010389,000073: 43,2053 02755 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
010390,000074: 43,2054 02627 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010391,000075: 43,2055 02634 TC V83PERF # VB83 RANGE, RANGE RATE, +X AXIS (R31)
010392,000076: 43,2056 02116 TC ALM/END # V84 SPARE
010393,000077: 43,2057 02644 TC V85PERF # VB85 RANGE, RANGE RATE, SLOS (R34)
010394,000078: 43,2060 02671 TC V86PERF # VB86 BACKUP MARK REJECT
010395,000079: 43,2061 03041 TC SETVHFLG # VB87 SET VHF RANGE FLAG
010396,000080: 43,2062 03036 TC RESETVHF # VB88 RESET VHF RANGE FLAG
010397,000081: 43,2063 02772 TC V89PERF # V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
010398,000082: 43,2064 03054 TC V90PERF # VB90-OUT OF PLANE PARAMETERS %R36"
010399,000083: 43,2065 03003 TC GOSHOSUM # VB91 TEMP FOR HYBRID AND STG.
010400,000084: 43,2066 02116 TC ALM/END # VB92 SPARE
010401,000085: 43,2067 03001 TC WMATRXNG # VB93 CLEAR RENDWFLG
010402,000086: 43,2070 02116 TC ALM/END # VB94 SPARE
010403,000087: 43,2071 02116 TC ALM/END # VB95 SPARE
010404,000088: 43,2072 13062 TCF VERB96 # VB96 SET QUITFLAG TO STOP INTEGRATION
010405,000089: 43,2073 02265 TC GOLOADLV # V97 PLEASE PERFORM ENGINE-FAIL (R41)
010406,000090: 43,2074 02116 TC ALM/END # VB98 SPARE
010407,000091: 43,2075 02265 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
010408,000092:
010409,000093: # END OF EXTENDED VERB FAN
010410,000094:
010411,000095: 43,2076 11237 TESTXACT CCS EXTVBACT
010412,000096: 43,2077 02116 TC ALM/END # YES. TURN ON OPERATOR ERROR LIGHT
010413,000097: 43,2100 30100 CA FLAGWRD4 # ARE PRIOS USING DSKY
010414,000098: 43,2101 77646 MASK 14,12,7
010415,000099: 43,2102 10000 CCS A
010416,000100: 43,2103 02116 TC ALM/END
010417,000101:
010418,000102: 43,2104 34124 CAF OCT24 # SET BITS 3 AND 5
010419,000103: 43,2105 55237 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
010420,000104: # SYSTEM BUSY
010421,000105:
010422,000106: 43,2106 30002 CA Q
010423,000107: 43,2107 54155 TS MPAC +1
010424,000108:
010425,000109: 43,2110 45000 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
010426,000110: 43,2111 04202 TC NVSUB
010427,000111: 43,2112 02113 TC +1
010428,000112: 43,2113 10067 CCS NEWJOB # ALLOW POSSIBLE WAITING DISPLAY (FROM
010429,000113: 43,2114 05165 TC CHANG1 # RELDSP) TO COME UP.
010430,000114:
010431,000115: 43,2115 00155 TC MPAC +1
010432,000116:
010433,000117: 43,2116 5537 TERMEXTV EQUALS ENDEXT
010434,000118:
010435,000119:
010436,000120: 43,2116 5537 ENDEXTVB EQUALS ENDEXT
010437,000121:
010438,000122: 43,2116 04362 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
010439,000123: 43,2117 04666 GOPIN TC POSTJUMP
010440,000124: 43,2120 21155 CADR PINBRNCH
010441,000125:
010442,000126:
010443,000127: # VBZERO VERB 40 DESCRIPTION
010444,000128: 43,2121 31325 VBZERO CA MODECADR # KEYBOARD REQUEST FOR ISS CDU ZERO
010445,000129: 43,2122 00006 EXTEND
010446,000130: 43,2123 12125 BZF +2
010447,000131: 43,2124 02116 TC ALM/END
010448,000132: 43,2125 04647 TC BANKCALL
010449,000133: 43,2126 16560 CADR IMUZERO
010450,000134:
010451,000135: 43,2127 04647 TC BANKCALL # STALL
010452,000136: 43,2130 17575 CADR IMUSTALL
010453,000137: 43,2131 02132 TC +1
010454,000138:
010455,000139: 43,2132 02117 TC GOPIN
010456,000140:
010457,000141:
010458,000142: # VBCOARK VERB 41 DESCRIPTION
010459,000143: # COURSE ALIGN IMU OR OPTICS
010460,000144:
010461,000145: # 1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
010462,000146: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010463,000147: # CASE 1 NOUN 20 (ICDU ANGLES)
010464,000148: # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
010465,000149: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010466,000150: # RESPONSES
010467,000151: # A. TERMINATE
010468,000152: # 1. RELEASE EXT VERB DISPLAY SYSTEM
010469,000153: # B. PROCEED
010470,000154: # 1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
010471,000155: # RESPONSES
010472,000156: # A. TERMINATE
010473,000157: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
010474,000158: # B. PROCEED
010475,000159: # 1. EXECUTE ICORK2.
010476,000160: # C. ENTER
010477,000161: # 1. INCREMENT CDU ANGLES
010478,000162: # 2. EXECUTE ICORK2.
010479,000163: # C. ENTER
010480,000164: # 1. EXECUTE ICORK2.
010481,000165: # ICORK2
010482,000166: # 1. RE-DISPLAY VERB 41.
010483,000167: # 2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
010484,000168: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010485,000169: # 4. RELEASE EXT VERB DISPLAY SYSTEM.
010486,000170: # CASE 2 NOUN 91 (OCDU ANGLES)
010487,000171: # 5. (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
010488,000172: # OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
010489,000173: # AND RELEASE EXT VERB DISPLAY SYSTEM).
010490,000174: # 6. RESPONSES TO V29,N92.
010491,000175: # A. TERMINATE
010492,000176: # RELEASE EXT VERB DISPLAY SYSTEM
010493,000177: # B. PROCEED OR ENTER
010494,000178: # RE-DISPLAY V41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
010495,000179: # RELEASE EXT VERB DISPLAY SYSTEM.
010496,000180:
010497,000181: 43,2133 44124 VBCOARK CS OCT24
010498,000182: 43,2134 61175 AD NOUNREG
010499,000183: 43,2135 00006 EXTEND
010500,000184: 43,2136 12143 BZF IMUCOARK # NOUN 20
010501,000185:
010502,000186: 43,2137 62165 AD OPIMDIFF # -71
010503,000187: 43,2140 00006 EXTEND
010504,000188: 43,2141 12166 BZF OPTCOARK # NOUN 91
010505,000189:
010506,000190: 43,2142 02116 TC ALM/END # WRONG NOUN
010507,000191:
010508,000192: 43,2143 02076 IMUCOARK TC TESTXACT # COARSE ALIGN FROM KEYBOARD
010509,000193: 43,2144 32163 CAF VNLODCDU # CALL FOR THETAD LOAD
010510,000194: 43,2145 04647 TC BANKCALL
010511,000195: 43,2146 20456 CADR GOXDSPF
010512,000196: 43,2147 05537 TC TERMEXTV
010513,000197: 43,2150 12151 TCF +1
010514,000198:
010515,000199: 43,2151 32164 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
010516,000200: 43,2152 04647 TC BANKCALL
010517,000201: 43,2153 20744 CADR EXDSPRET
010518,000202:
010519,000203: 43,2154 02260 TC CKMODCAD
010520,000204: 43,2155 04647 TC BANKCALL # CALL MODE SWITCHING PROG
010521,000205: 43,2156 16655 CADR IMUCOARS
010522,000206:
010523,000207: 43,2157 04647 TC BANKCALL # STALL
010524,000208: 43,2160 17575 CADR IMUSTALL
010525,000209: 43,2161 05537 TC ENDEXTVB
010526,000210: 43,2162 05537 TC ENDEXTVB
010527,000211:
010528,000212: 43,2163 06226 VNLODCDU VN 2522
010529,000213: 43,2164 12200 IMUCOARV VN 4100
010530,000214: 43,2165 77670 OPIMDIFF DEC -71 B-14
010531,000215:
010532,000216:
010533,000217: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
010534,000218:
010535,000219: 43,2166 02764 OPTCOARK TC CHKPOOH # ENSURE IN POO
010536,000220: 43,2167 02076 TC TESTXACT
010537,000221: 43,2170 35055 CAF EBANK5
010538,000222: 43,2171 54003 TS EBANK
010539,000223:
010540,000224: 43,2172 11346 CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER
010541,000225: 43,2173 02200 TC +5 # SWITCH AT COMPUTER
010542,000226: 43,2174 02175 TC +1 # NOT ON COMPUTER
010543,000227: 43,2175 04362 TC FALTON # TURN ON OPERATOR ERR
010544,000228: 43,2176 05644 TC ALARM # AND ALARM
010545,000229: 43,2177 00115 OCT 00115
010546,000230:
010547,000231: 43,2200 11313 CCS OPTIND # SEE IF OPTICS AVAILABLE
010548,000232: 43,2201 02207 TC OPTC1 # IN USE
010549,000233: 43,2202 02207 TC OPTC1 # IN USE
010550,000234: 43,2203 02207 TC OPTC1 # IN USE
010551,000235:
010552,000236: 43,2204 05644 TC ALARM # OPTICS RESERVED (OPTIND=-0)
010553,000237: 43,2205 00117 OCT 00117
010554,000238: 43,2206 05537 TC ENDEXT
010555,000239:
010556,000240: 43,2207 32226 OPTC1 CAF VNLDOCDU # VERB-NOUN TO LOAD OPTICS CDUS
010557,000241: 43,2210 04647 TC BANKCALL
010558,000242: 43,2211 20456 CADR GOXDSPF
010559,000243: 43,2212 05537 TC TERMEXTV
010560,000244: 43,2213 02214 TC +1 # PROCEED
010561,000245:
010562,000246: 43,2214 31773 CA SAC
010563,000247: 43,2215 55303 TS DESOPTS
010564,000248: 43,2216 31775 CA PAC
010565,000249: 43,2217 55302 TS DESOPTT
010566,000250: 43,2220 32164 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
010567,000251: 43,2221 04647 TC BANKCALL
010568,000252: 43,2222 20744 CADR EXDSPRET
010569,000253:
010570,000254: 43,2223 35001 CAF ONE
010571,000255: 43,2224 55313 TS OPTIND # SET COARS WORKING
010572,000256:
010573,000257: 43,2225 05537 TC ENDEXTVB
010574,000258:
010575,000259: 43,2226 06134 VNLDOCDU VN 2492
010576,000260: 43,2227 43,2164 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
010577,000261:
010578,000262:
010579,000263: # IMUFINEK VERB 42 DESCRIPTION
010580,000264: # FINE ALIGN IMU
010581,000265:
010582,000266: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
010583,000267: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
010584,000268: # RESPONSES
010585,000269: # A. TERMINATE
010586,000270: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
010587,000271: # B. PROCEED OR ENTER
010588,000272: # 1. RE-DISPLAY VERB 42
010589,000273: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
010590,000274: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
010591,000275: # A. FAILED
010592,000276: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
010593,000277: # B. GOOD
010594,000278: # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
010595,000279: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
010596,000280:
010597,000281: 43,2227 02076 IMUFINEK TC TESTXACT # FINE ALIGN WITH GYRO TORQUING
010598,000282: 43,2230 32256 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
010599,000283: 43,2231 04647 TC BANKCALL
010600,000284: 43,2232 20456 CADR GOXDSPF
010601,000285: 43,2233 05537 TC TERMEXTV
010602,000286: 43,2234 02235 TC +1 # PROCEED WITHOUT A LOAD
010603,000287:
010604,000288: 43,2235 32257 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
010605,000289: 43,2236 04647 TC BANKCALL
010606,000290: 43,2237 20744 CADR EXDSPRET
010607,000291:
010608,000292: 43,2240 02260 TC CKMODCAD
010609,000293: 43,2241 04647 TC BANKCALL # CALL MODE SWITCH PROG
010610,000294: 43,2242 17064 CADR IMUFINE
010611,000295:
010612,000296: 43,2243 04647 TC BANKCALL # HIBERNATION
010613,000297: 43,2244 17575 CADR IMUSTALL
010614,000298: 43,2245 05537 TC ENDEXTVB
010615,000299:
010616,000300: 43,2246 32255 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
010617,000301: 43,2247 04647 TC BANKCALL
010618,000302: 43,2250 17175 CADR IMUPULSE
010619,000303:
010620,000304: 43,2251 04647 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
010621,000305: 43,2252 17575 CADR IMUSTALL
010622,000306: 43,2253 05537 TC ENDEXTVB
010623,000307: 43,2254 05537 TC ENDEXTVB
010624,000308:
010625,000309: 43,2255 02757 LGYROBIN ECADR OGC
010626,000310: 43,2256 06335 VNLODGYR VN 2593
010627,000311: 43,2257 12400 IMUFINEV VN 4200 # FINE ALIGN VERB
010628,000312:
010629,000313: 43,2260 31325 CKMODCAD CA MODECADR
010630,000314: 43,2261 00006 EXTEND
010631,000315: 43,2262 16711 BZF TCQ
010632,000316: 43,2263 04362 TC FALTON
010633,000317: 43,2264 05537 TC ENDEXTVB
010634,000318:
010635,000319: # GOLOADLV VERB 50 DESCRIPTION
010636,000320: # AND OTHER PLEASE
010637,000321: # DO SOMETHING VERBS
010638,000322:
010639,000323: # PLEASE PERFORM, MARK, CALIBRATE, ETC.
010640,000324:
010641,000325: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
010642,000326: # SAME RECALL AS A COMPLETED LOAD.
010643,000327: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
010644,000328:
010645,000329: 43,2265 04417 GOLOADLV TC FLASHOFF
010646,000330: 43,2266 34223 CAF PINSUPBT
010647,000331: 43,2267 00006 EXTEND
010648,000332: 43,2270 01007 WRITE SUPERBNK # TURN ON FE7
010649,000333: 43,2271 04666 TC POSTJUMP
010650,000334: 43,2272 40,2000 SBANK= PINSUPER
010651,000335: 43,2272 63003 CADR LOADLV1
010652,000336:
010653,000337: # V60 VERB 60
010654,000338:
010655,000339: 43,2273 00006 V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
010656,000340: 43,2274 30033 DCA CDUX # TO PRESENT ATTITUDE
010657,000341: 43,2275 53007 DXCH CPHIX
010658,000342: 43,2276 30034 CA CDUZ
010659,000343: 43,2277 55010 TS CPHIX +2
010660,000344: 43,2300 02117 TC GOPIN
010661,000345:
010662,000346: # V61 VERB 61
010663,000347:
010664,000348: 43,2301 03130 V61 TC DOWNX # CLEAR NEEDLFLG, PHASE
010665,000349: 43,2302 00006 ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED
010666,000350: 43,2303 03134 SETNEEDL TC UPX # SET NEEDLFLG, TOTAL ATT ERR DISPLAYED
010667,000351:
010668,000352: # V62 VERB 62
010669,000353:
010670,000354: 43,2304 07710 V62 TC UPFLAG
010671,000355: 43,2305 00220 ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22
010672,000356: 43,2306 02303 TC SETNEEDL
010673,000357:
010674,000358: # V63 VERB 63
010675,000359:
010676,000360: 43,2307 07722 V63 TC DOWNFLAG
010677,000361: 43,2310 00220 ADRES N22ORN17 # COMPUTE TOTAL ASTRONAUT ATTITUDE ERROR
010678,000362: 43,2311 02303 TC SETNEEDL
010679,000363:
010680,000364:
010681,000365: # ALINTIME VERB 55 DESCRIPTION
010682,000366: # 1. SET EXT VERB DISPLAY BUSY FLAG.
010683,000367: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
010684,000368: # 3. REQUIRE EXECUTION OF VERB 23.
010685,000369: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
010686,000370: # 5. RELEASE EXT VERB DISPLAY SYSTEM
010687,000371:
010688,000372: 43,2312 COUNT* $$/R33
010689,000373: 43,2312 02076 ALINTIME TC TESTXACT
010690,000374:
010691,000375: 43,2313 32341 CAF VNLODDT
010692,000376: 43,2314 04647 TC BANKCALL
010693,000377: 43,2315 20456 CADR GOMARKF
010694,000378: 43,2316 05537 TC ENDEXT # TERMINATE
010695,000379: 43,2317 05537 TC ENDEXT # PROCEED
010696,000380: 43,2320 44626 CS DEC23 # DATA IN OR RESEQUENCE (UNLIKELY)
010697,000381: 43,2321 60154 AD MPAC # RECALL LEFT VERB IN MPAC
010698,000382: 43,2322 00006 EXTEND
010699,000383: 43,2323 12325 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
010700,000384: 43,2324 05537 TC ENDEXT # WITH V23 (DATA IN).
010701,000385: 43,2325 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
010702,000386: 43,2326 35003 CAF ZERO
010703,000387: 43,2327 54001 TS L # ZERO T1 & 2 WHILE ALIGNING.
010704,000388: 43,2330 52025 DXCH TIME2
010705,000389: 43,2331 52155 DXCH MPAC
010706,000390: 43,2332 53245 DXCH DSPTEM2 +1 # INCREMENT
010707,000391: 43,2333 20155 DAS MPAC
010708,000392:
010709,000393: 43,2334 07224 TC DPAGREE # FORCE SIGN AGREEMENT
010710,000394: 43,2335 52155 DXCH MPAC # NEW CLOCK.
010711,000395: 43,2336 20025 DAS TIME2
010712,000396: 43,2337 00003 RELINT
010713,000397: 43,2340 05537 UPDTMEND TC ENDEXT
010714,000398: 43,2341 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
010715,000399:
010716,000400: # REDO AND TSELECT ARE NOW IN SYSTEM TEST.
010717,000401:
010718,000402: 43,2342 COUNT* $$/EXTVB
010719,000403: # CKOPTVB VERB 65 DESCRIPTION
010720,000404: # OPTICAL VERIFICATION FOR PRELAUNCH.
010721,000405: # 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
010722,000406:
010723,000407: 43,2342 05367 CKOPTVB TC CHECKMM
010724,000408: 43,2343 00002 MM 02 B-14 # I WONDER IF PRELAUNCH IS RUNNING
010725,000409: 43,2344 02116 TC ALM/END # NOT RUNNING OPERATOR ERROR
010726,000410: 43,2345 35067 CAF PRIO16 # PRELAUNCH OPTICAL VERIFICATION
010727,000411: 43,2346 05150 TC FINDVAC
010728,000412: 43,2347 E5,1425 EBANK= QPLACE
010729,000413: 43,2347 02000 66065 2CADR COMPVER # STANDARD LEADIN TO GCOMPVER.
010730,000414:
010731,000415: 43,2351 02117 TC GOPIN
010732,000416:
010733,000417: # V 78 .... TO CHANGE GYROCOMPASS AZIMUTH
010734,000418:
010735,000419: 43,2352 05367 CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
010736,000420: 43,2353 00002 MM 02 B-14
010737,000421: 43,2354 02116 TC ALM/END # NO - OPERATOR ERROR
010738,000422:
010739,000423: 43,2355 35067 CAF PRIO16 # PRELAUNCH AZIMUTH CHANGE
010740,000424: 43,2356 05150 TC FINDVAC
010741,000425: 43,2357 E5,1660 EBANK= XSM
010742,000426: 43,2357 03175 66105 2CADR AZMTHCG1
010743,000427:
010744,000428: 43,2361 05415 TC PHASCHNG
010745,000429: 43,2362 00174 OCT 00174
010746,000430: 43,2363 01,2154 4P17SPT1 = 4.17SPOT
010747,000431: 43,2363 02117 TC GOPIN
010748,000432:
010749,000433:
010750,000434: # IMUATTCK VERB 43 DESCRIPTION
010751,000435: # LOAD IMU ATTITUDE ERROR METERS
010752,000436: # 1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
010753,000437: # 2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
010754,000438: # FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
010755,000439: # 3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
010756,000440: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010757,000441: # 5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
010758,000442: # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
010759,000443: # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
010760,000444:
010761,000445: 43,2364 02764 IMUATTCK TC CHKPOOH
010762,000446:
010763,000447: 43,2365 35012 CAF BITS4&5 # CHECK IF IMU ZERO AND IMU COARSE ARE ON
010764,000448: 43,2366 00006 EXTEND
010765,000449: 43,2367 02012 RAND CHAN12
010766,000450: 43,2370 10000 CCS A
010767,000451: 43,2371 12116 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
010768,000452:
010769,000453: 43,2372 02427 TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
010770,000454: 43,2373 02076 TC TESTXACT # AFTER
010771,000455: 43,2374 45016 CS OCT50 # REMOVE COARSE AND ECTR ENABLE.
010772,000456: 43,2375 00006 EXTEND
010773,000457: 43,2376 03012 WAND CHAN12
010774,000458:
010775,000459: 43,2377 32163 CAF VNLODCDU
010776,000460: 43,2400 04647 TC BANKCALL
010777,000461: 43,2401 20456 CADR GOXDSPF
010778,000462: 43,2402 12414 TCF TRMATTCK
010779,000463: 43,2403 02404 TC +1
010780,000464: 43,2404 04611 TC E6SETTER # FOR NEEDLES.
010781,000465:
010782,000466: 43,2405 E6,1525 EBANK= AK
010783,000467:
010784,000468: 43,2405 04647 TC BANKCALL # INITIALIZE CURRENT DAC AND
010785,000469: 43,2406 31703 CADR NEEDLE11 # COMMAND VALUES
010786,000470:
010787,000471: 43,2407 04647 TC BANKCALL # ENABLE ERROR COUNTERS.
010788,000472: 43,2410 31722 CADR NEEDLER2
010789,000473:
010790,000474: 43,2411 35000 CAF TWO # 4 MS MIN.
010791,000475: 43,2412 05236 TC TWIDDLE
010792,000476: 43,2413 02417 ADRES ATTCK1
010793,000477: 43,2414 02427 TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFRER LIFTOFF
010794,000478: 43,2415 15537 TCF ENDEXT # AFTER
010795,000479: 43,2416 02117 TC GOPIN
010796,000480:
010797,000481: 43,2417 00006 ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REGS.
010798,000482: 43,2420 31300 DCA THETAD
010799,000483: 43,2421 53526 DXCH AK
010800,000484: 43,2422 31301 CAE THETAD +2
010801,000485: 43,2423 55527 TS AK +2
010802,000486:
010803,000487: 43,2424 04725 TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES
010804,000488: 43,2425 31736 CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED.
010805,000489:
010806,000490: 43,2426 05327 TC TASKOVER
010807,000491:
010808,000492: 43,2427 34775 CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED
010809,000493: 43,2430 70101 MASK FLAGWRD5
010810,000494: 43,2431 10000 CCS A
010811,000495: 43,2432 00002 XACT0Q TC Q # YES
010812,000496: 43,2433 34775 CAF BIT5
010813,000497: 43,2434 00006 EXTEND
010814,000498: 43,2435 02030 RAND CHAN30
010815,000499: 43,2436 15624 TCF INCRQCK
010816,000500:
010817,000501: # ENATMA VERB 58 DESCRIPTION
010818,000502: # ENABLE AUTOMATIC ATTITUDE MANEUVER
010819,000503:
010820,000504: # VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERUPTIONS BY RHC ACT-
010821,000505: # IVITY.
010822,000506:
010823,000507: 43,2437 07710 ENATMA TC UPFLAG # SET FLAG TO ENABLE R60 MANEUVER
010824,000508: 43,2440 00055 ADRES V50N18FL
010825,000509: 43,2441 03130 TC DOWNX # RESET STIKFLAG.
010826,000510: 43,2442 00020 ADRES STIKFLAG
010827,000511:
010828,000512: # STABLISH VERB 46 DESCRIPTION
010829,000513: # ESTABLISH G & N AUTOPILOT CONTROL
010830,000514: # 1. SETS UP EITHER RCS, ENTRY, OR SATURN
010831,000515: # 2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER
010832,000516: # FROM HIGH BW TO LOW BW
010833,000517:
010834,000518:
010835,000519: 43,2443 04611 STABLISH TC E6SETTER
010836,000520:
010837,000521: 43,2444 40102 CS FLAGWRD6 # TEST FOR TVC
010838,000522: 43,2445 74076 MASK DPCONFIG
010839,000523: 43,2446 00006 EXTEND
010840,000524: 43,2447 62457 BZMF DAPFIG
010841,000525: 43,2450 31514 CAE DAPDATR1 # TET FOR CSM/LM
010842,000526: 43,2451 74764 MASK BIT14
010843,000527: 43,2452 00006 EXTEND
010844,000528: 43,2453 62116 BZMF ALM/END # CSM, SO ALARM AND EXIT
010845,000529:
010846,000530: 43,2454 04647 TC BANKCALL # CSM/LM, SO PERFORM HB TO LB SWITCH-OVER
010847,000531: 43,2455 36402 CADR SWICHOVR
010848,000532:
010849,000533: 43,2456 02117 TC GOPIN
010850,000534:
010851,000535: 43,2457 44771 DAPFIG CS BIT9 # TURN OFF SIVB TAKEOVER
010852,000536: 43,2460 00006 EXTEND
010853,000537: 43,2461 03012 WAND CHAN12
010854,000538: 43,2462 31514 CAE DAPDATR1 # DETERMINE VEHICLE CONFIGURATION
010855,000539: 43,2463 00006 EXTEND
010856,000540: 43,2464 74777 MP BIT3 # RIGHT SHIFT 4 OCTAL DIGITS
010857,000541: 43,2465 76214 MASK THREE # (IN CASE BIT 15 IS USED)
010858,000542: 43,2466 00004 INHINT
010859,000543: 43,2467 50000 INDEX A
010860,000544: 43,2470 12471 TCF +1 # BRANCH BASED ON CONFIG
010861,000545: 43,2471 12517 TCF NODAPUP # CM.. ACTIVATE NODAP
010862,000546: 43,2472 12511 TCF RCSDAPUP # CSM..ACTIVATE RCSDAP
010863,000547: 43,2473 12511 TCF RCSDAPUP # CSM/LM ACTIVATE RCSDAP
010864,000548: 43,2474 00006 SATSTKON EXTEND
010865,000549: 43,2475 32510 DCA 2REDOSAT
010866,000550: 43,2476 52113 DXCH T5LOC
010867,000551: 43,2477 34761 CAF POSMAX
010868,000552: 43,2500 54030 TS TIME5
010869,000553: 43,2501 40102 CS FLAGWRD6 # TURN ON BITS 15,14 OF FLAGWRD6
010870,000554: 43,2502 74076 MASK DPCONFIG
010871,000555: 43,2503 26102 ADS FLAGWRD6 # SATSTICK CONTROL OF T5
010872,000556: 43,2504 04725 TC IBNKCALL # ZERO JET CHANNELS IN 14MS AND THEN
010873,000557: 43,2505 42515 CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED
010874,000558: 43,2506 02117 TC GOPIN # EXIT THUS BECAUSE WE CAME VIA V46
010875,000559:
010876,000560: 43,2507 E6,1735 EBANK= SPOLYARG
010877,000561: 43,2507 02000 54106 2REDOSAT 2CADR REDOSAT
010878,000562:
010879,000563: 43,2511 44774 RCSDAPUP CS 45/46BIT
010880,000564: 43,2512 70077 MASK FLAGWRD3
010881,000565: 43,2513 54077 TS FLAGWRD3
010882,000566: 43,2514 04725 TC IBNKCALL
010883,000567: 43,2515 45504 CADR RCSDAPON
010884,000568: 43,2516 12117 TCF GOPIN
010885,000569:
010886,000570: 43,2517 04725 NODAPUP TC IBNKCALL # ZERO JET CHANNELS IN 14 MS. AND THEN
010887,000571: 43,2520 42515 CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED.
010888,000572: 43,2521 35001 CAF BIT1
010889,000573: 43,2522 55330 TS HOLDFLAG # KILL KALCMANU JOB
010890,000574:
010891,000575: 43,2523 00006 EXDAPOFF EXTEND
010892,000576: 43,2524 32771 DCA IDLECADR # SET T5 TO IDLE
010893,000577: 43,2525 52113 DXCH T5LOC
010894,000578: 43,2526 44076 CS DPCONFIG
010895,000579: 43,2527 70102 MASK FLAGWRD6
010896,000580: 43,2530 54102 TS FLAGWRD6
010897,000581:
010898,000582: 43,2531 02117 TC GOPIN
010899,000583:
010900,000584:
010901,000585: # CREWMANU VERB 49 DESCRIPTION
010902,000586: # START AUTOMATIC ATTITUDE MANEUVER
010903,000587: # 1. REQUIRE PROGRAM 00 ACTIVE.
010904,000588: # 2. SET EXT VERB DISPLAY BUSY FLAG.
010905,000589: # 3. SCHEDULE R62DISP WITH PRIORITY 10.
010906,000590: # 4. RELEASE EXT VERB DISPLAY.
010907,000591:
010908,000592: # R62DISP
010909,000593: # 1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP
010910,000594: # 4 FOR RESTART OF DISPLAY SEQUENCE.
010911,000595: # RESPONSES
010912,000596: # A. TERMINATE
010913,000597: # 1. GO TO GOTOPOOH.
010914,000598: # B. PROCEED
010915,000599: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010916,000600: # 2. EXECUTE R60CSM (ATTITUDE MANEUVER).
010917,000601: # 3. ZERO GROUP 4 (END R62).
010918,000602: # C. ENTER
010919,000603: # 1. REPEAT FLASHING V06,N22.
010920,000604:
010921,000605: 43,2532 02764 CREWMANU TC CHKPOOH # DEMAND POO
010922,000606:
010923,000607: 43,2533 02076 TC TESTXACT
010924,000608:
010925,000609: 43,2534 34765 CAF PRIO10
010926,000610: 43,2535 05150 TC FINDVAC
010927,000611: 43,2536 E6,1776 EBANK= R61CNTR
010928,000612: 43,2536 02337 56106 2CADR R62DISP
010929,000613:
010930,000614: 43,2540 05220 TC ENDOFJOB
010931,000615:
010932,000616: 43,2541 02076 DKDISP TC TESTXACT
010933,000617: 43,2542 34765 CAF PRIO10
010934,000618: 43,2543 05211 TC PRIOCHNG
010935,000619:
010936,000620: 43,2544 32567 DONOUN87 CAF V05N87
010937,000621: 43,2545 04647 TC BANKCALL
010938,000622: 43,2546 20456 CADR GOXDSPF
010939,000623: 43,2547 05537 TC ENDEXT
010940,000624: 43,2550 02552 TC DONOUN89
010941,000625: 43,2551 02544 TC DONOUN87
010942,000626:
010943,000627: 43,2552 07722 DONOUN89 TC DOWNFLAG
010944,000628: 43,2553 00060 ADRES 500**FLG
010945,000629: 43,2554 07722 TC DOWNFLAG
010946,000630: 43,2555 00061 ADRES 501**FLG
010947,000631:
010948,000632: 43,2556 35051 CAF V06N89
010949,000633: 43,2557 04647 TC BANKCALL
010950,000634: 43,2560 20467 CADR GOMARKFR
010951,000635: 43,2561 05537 TC ENDEXT
010952,000636: 43,2562 05537 TC ENDEXT
010953,000637: 43,2563 02552 TC DONOUN89
010954,000638:
010955,000639: 43,2564 34777 CAF BIT3
010956,000640: 43,2565 05531 TC BLANKET
010957,000641: 43,2566 15220 TCF ENDOFJOB
010958,000642:
010959,000643: 43,2567 01327 V05N87 VN 0587
010960,000644:
010961,000645: 43,2570 04611 DKDAPON TC E6SETTER
010962,000646: 43,2571 05367 TC CHECKMM
010963,000647: 43,2572 00050 MM 40 B-14
010964,000648: 43,2573 12575 TCF +2
010965,000649: 43,2574 12116 TCF ALM/END
010966,000650:
010967,000651: 43,2575 44771 CS BIT9
010968,000652: 43,2576 00006 EXTEND
010969,000653: 43,2577 03012 WAND CHAN12
010970,000654:
010971,000655: 43,2600 00004 INHINT
010972,000656: 43,2601 40077 CS FLAGWRD3
010973,000657: 43,2602 74774 MASK 45/46BIT
010974,000658: 43,2603 26077 ADS FLAGWRD3
010975,000659:
010976,000660: 43,2604 04725 TC IBNKCALL
010977,000661: 43,2605 45504 CADR RCSDAPON
010978,000662:
010979,000663: 43,2606 02117 TC GOPIN
010980,000664:
010981,000665: 43,2607 04611 DKJTENBL TC E6SETTER
010982,000666: 43,2610 35003 CAF ZERO
010983,000667: 43,2611 55471 TS CH5FAIL
010984,000668: 43,2612 55472 TS CH6FAIL
010985,000669: 43,2613 12117 TCF GOPIN
010986,000670:
010987,000671:
010988,000672:
010989,000673: # DAPDISP VERB 48 DESCRIPTION
010990,000674: # LOAD AUTOPILOT DATA (ROUTINE R03)
010991,000675: # 0. CHECKFAIL AND RETURN IF TVC.
010992,000676: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010993,000677: # 2. LOWER PRIORITY TO 10.
010994,000678: # 3. DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
010995,000679: # 4. UPON PROCEED RESPONSE, EXECUTE S41.2.
010996,000680: # 5. DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
010997,000681: # 6. UPON PROCEED RESPONSE EXECUTE S40.14.
010998,000682: # 7. DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
010999,000683: # 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DESPLAY SYSTEM
011000,000684:
011001,000685: 43,2614 COUNT* $$/EXTVB
011002,000686: 43,2614 40102 DAPDISP CS FLAGWRD6
011003,000687: 43,2615 74076 MASK DPCONFIG
011004,000688: 43,2616 00006 EXTEND
011005,000689: 43,2617 62621 BZMF +2 # TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
011006,000690: 43,2620 02116 TC ALM/END # RETURN IF TVC
011007,000691:
011008,000692: 43,2621 02076 TC TESTXACT
011009,000693: 43,2622 34765 CAF PRIO10
011010,000694: 43,2623 05134 TC NOVAC
011011,000695: 43,2624 E6,1514 EBANK= DAPDATR1
011012,000696: 43,2624 02000 64106 2CADR DONOUN46
011013,000697:
011014,000698: 43,2626 05220 TC ENDOFJOB
011015,000699:
011016,000700: 42,2000 SETLOC EXTVBS
011017,000701: 42,2000 BANK
011018,000702: 42,2000 COUNT* $$/R03
011019,000703: 42,2000 32061 DONOUN46 CAF V04N46 # R1 R2
011020,000704: 42,2001 04647 TC BANKCALL # DAPDATR1 DAPDATR2
011021,000705: 42,2002 20456 CADR GOXDSPF # GOXDSP ROUTINES USED FOR EXTENDED VERBS.
011022,000706:
011023,000707: 42,2003 05537 TC ENDEXT # EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
011024,000708: 42,2004 02006 TC +2
011025,000709: 42,2005 02000 TC DONOUN46
011026,000710:
011027,000711: 42,2006 31514 CA DAPDATR1
011028,000712: 42,2007 74776 MASK BIT4
011029,000713: 42,2010 10000 CCS A
011030,000714: 42,2011 12054 TCF MAXIN
011031,000715: 42,2012 07722 TC DOWNFLAG
011032,000716: 42,2013 00212 ADRES MAXDBFLG
011033,000717: 42,2014 51476 MAXOUT INDEX WHICHX2
011034,000718: 42,2015 12016 TCF +1
011035,000719: 42,2016 04647 TC BANKCALL
011036,000720: 42,2017 40420 CADR S41.2
011037,000721:
011038,000722: 42,2020 32060 DONOUN47 CAF V06N47 # R1 R2 R3
011039,000723: 42,2021 04647 TC BANKCALL # CSM WGT. LEM WGT. BLANK
011040,000724: 42,2022 20456 CADR GOXDSPF
011041,000725: 42,2023 05537 TC ENDEXT
011042,000726: 42,2024 02026 TC +2
011043,000727: 42,2025 02020 TC DONOUN47
011044,000728: 42,2026 31514 CAE DAPDATR1 # DO MASS PROPERTIES CALCULATION ONLY IF
011045,000729: 42,2027 74346 MASK PRIO30 # CONFIG = 1(CSM), 2(CSM/LM), 6(CSM/LMA)
011046,000730: 42,2030 00006 EXTEND
011047,000731: 42,2031 12046 BZF DONOUN48 # SKIP IF 0, 4
011048,000732: 42,2032 40000 COM
011049,000733: 42,2033 74346 MASK PRIO30
011050,000734: 42,2034 00006 EXTEND
011051,000735: 42,2035 12046 BZF DONOUN48 # SKIP IF 3, 7
011052,000736: 42,2036 00004 INHINT
011053,000737: 42,2037 04725 TC IBNKCALL
011054,000738: 42,2040 13311 CADR MASSPROP # UPDATE IXX, IAVG, IAVG/TLX
011055,000739:
011056,000740: 42,2041 00003 RELINT
011057,000741: 42,2042 51476 INDEX WHICHX2
011058,000742: 42,2043 12044 TCF +1
011059,000743: 42,2044 04647 TC BANKCALL
011060,000744: 42,2045 40551 CADR S40.14 # COMPUTE RCS DAP STUFF
011061,000745:
011062,000746: 42,2046 32057 DONOUN48 CAF V0648 # R1 R2 R3
011063,000747: 42,2047 04647 TC BANKCALL # PTRIM YTRIM BLANK
011064,000748: 42,2050 20456 CADR GOXDSPF
011065,000749:
011066,000750: 42,2051 05537 TC ENDEXT
011067,000751: 42,2052 05537 TC ENDEXT
011068,000752: 42,2053 02046 TC DONOUN48
011069,000753:
011070,000754: 42,2054 07710 MAXIN TC UPFLAG
011071,000755: 42,2055 00212 ADRES MAXDBFLG
011072,000756: 42,2056 02014 TC MAXOUT
011073,000757:
011074,000758: 42,2057 01460 V0648 VN 0648
011075,000759: 42,2060 01457 V06N47 VN 0647
011076,000760: 42,2061 01056 V04N46 VN 0446
011077,000761: 43,2627 BANK 43
011078,000762: 43,2000 SETLOC EXTVERBS
011079,000763: 43,2000 BANK
011080,000764:
011081,000765: 43,2627 COUNT* $$/EXTVB
011082,000766:
011083,000767: # V82PERF VERB82 DESCRIPTION
011084,000768: # REQUEST ORBIT PARAMETERS DISPLAY (R30)
011085,000769: # 1. IF AVERAGE G IS OFF:
011086,000770: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011087,000771: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
011088,000772: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
011089,000773: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011090,000774: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011091,000775: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
011092,000776: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011093,000777: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
011094,000778: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011095,000779: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
011096,000780: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011097,000781: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011098,000782: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011099,000783: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011100,000784:
011101,000785: # 2.IF AVERAGE G IS ON:
011102,000786: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
011103,000787: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
011104,000788: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011105,000789: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011106,000790: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011107,000791: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011108,000792:
011109,000793: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
011110,000794: # ABOVE REMARKS.
011111,000795:
011112,000796: 43,2627 02076 V82PERF TC TESTXACT
011113,000797: 43,2630 35063 CAF PRIO7
011114,000798: 43,2631 05211 TC PRIOCHNG
011115,000799: 43,2632 04666 TC POSTJUMP
011116,000800: 43,2633 46434 CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB.
011117,000801:
011118,000802: # VB83PERF VERB 83 DESCRIPTION
011119,000803: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011120,000804: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011121,000805: # 2. SCHEDULE V83CALL WITH PRIORITY 10.
011122,000806: # A. DISPLAY
011123,000807: # R1 RANGE
011124,000808: # R2 RANGE RATE
011125,000809: # R3 THETA
011126,000810:
011127,000811: 43,2634 02076 V83PERF TC TESTXACT
011128,000812: 43,2635 07710 TC UPFLAG
011129,000813: 43,2636 00222 ADRES R31FLAG
011130,000814: 43,2637 35061 +3 CAF PRIO5
011131,000815: 43,2640 05134 TC NOVAC
011132,000816: 43,2641 E4,1636 EBANK= SUBEXIT
011133,000817: 43,2641 02000 62064 2CADR R31CALL
011134,000818:
011135,000819: 43,2643 05220 TC ENDOFJOB
011136,000820:
011137,000821: 43,2644 02076 V85PERF TC TESTXACT
011138,000822: 43,2645 07722 TC DOWNFLAG # RESET R31 FLAG TO INDICATE R34
011139,000823: 43,2646 00222 ADRES R31FLAG
011140,000824: 43,2647 02637 TC V83PERF +3
011141,000825:
011142,000826: # GOTOR23 VERB 54 DESCRIPTION
011143,000827: # SET UP MARKING FOR R22 (REND TRACK DATA PROC)
011144,000828: # 1. SET EXT VERB DISPLAY BUSY FLAG
011145,000829: # 2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
011146,000830: # SCHEDULE R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
011147,000831: # 3. RELEASE EXT VERB DISPLAY SYSTEM
011148,000832:
011149,000833: 43,2650 02076 GOTOR23 TC TESTXACT
011150,000834: 43,2651 30074 CA FLAGWRD0 # V54 UNACCEPTABLE UNLESS BOTH
011151,000835: 43,2652 74773 MASK RNDVZBIT # RENDEZVOUS AND TRACK FLAGS ON
011152,000836: 43,2653 00006 EXTEND
011153,000837: 43,2654 12666 BZF R22ALARM
011154,000838:
011155,000839: 43,2655 30075 CA FLAGWRD1
011156,000840: 43,2656 74775 MASK TRACKBIT
011157,000841: 43,2657 00006 EXTEND
011158,000842: 43,2660 12666 BZF R22ALARM
011159,000843:
011160,000844: 43,2661 35067 CAF PRIO16 # LOWER THAN R22
011161,000845: 43,2662 05134 TC NOVAC
011162,000846: 43,2663 E7,1702 EBANK= MRKBUF1
011163,000847: 43,2663 02152 76067 2CADR R23CSM
011164,000848:
011165,000849: 43,2665 05220 TC ENDOFJOB
011166,000850: 43,2666 05644 R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND
011167,000851: 43,2667 00406 OCT 00406 # NOR TRACK FLAG WERE ON.
011168,000852: 43,2670 05537 TC ENDEXT
011169,000853:
011170,000854: # VERB 86 DESCRIPTION
011171,000855: # V86 IS TO R23 AS MARK REJECT IS TO R21
011172,000856: # V86 IS THE MARK REJECT FOR R23(THE BACKUP MARKING ROUTINE)
011173,000857:
011174,000858: 43,2671 E7,1702 EBANK= MRKBUF1
011175,000859: 43,2671 04606 V86PERF TC E7SETTER # BACKUP MARK REJ.
011176,000860: 43,2672 31702 CA MRKBUF1
011177,000861: 43,2673 00006 EXTEND
011178,000862: 43,2674 12677 BZF +3
011179,000863: 43,2675 00006 EXTEND
011180,000864: 43,2676 62702 BZMF BKRJCT
011181,000865:
011182,000866: 43,2677 37702 CA NEGONE
011183,000867: 43,2700 55702 TS MRKBUF1
011184,000868: 43,2701 02117 TC GOPIN
011185,000869: 43,2702 34773 BKRJCT CAF R22CABIT
011186,000870: 43,2703 70105 MASK FLAGWRD9
011187,000871: 43,2704 00006 EXTEND
011188,000872: 43,2705 12117 BZF GOPIN
011189,000873:
011190,000874: 43,2706 07710 TC UPFLAG
011191,000875: 43,2707 00231 ADRES REJCTFLG
011192,000876: 43,2710 12117 TCF GOPIN
011193,000877:
011194,000878: # TRACKTRM VERB 56 DESCRIPTION
011195,000879: # TERMINATE TRACKING (P20)
011196,000880: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011197,000881: # 2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
011198,000882: # 3. REQUIRE R22 RUNNING OR GO TO PINBRNCH.
011199,000883: # 4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
011200,000884: # 3. KNOCK DOWN RENDEZVOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
011201,000885: # 4. GO TO ENEMA (SOFTWARE RESTART).
011202,000886: # REFERENCE
011203,000887: # P20 RENDEZVOUS NAVIGATION.
011204,000888: # R21 RENDEZVOUS TRACKING SIGHTING MARK.
011205,000889: # R22 RENDEZVOUS TRACKING DATA PROCESSING.
011206,000890:
011207,000891: 43,2711 06006 TRACKTRM TC INTPRET
011208,000892: 43,2712 43014 CLEAR BON
011209,000893: 43,2713 04275 R67FLAG
011210,000894: 43,2714 04306 UTFLAG
011211,000895: 43,2715 66725 TRACKCHK
011212,000896: 43,2716 43014 BOFF CLEAR
011213,000897: 43,2717 00350 RNDVZFLG
011214,000898: 43,2720 66751 EXPIN1
011215,000899: 43,2721 05270 AUTOSEQ
011216,000900: 43,2722 43014 CLEAR CLEAR
011217,000901: 43,2723 01261 R21MARK
011218,000902: 43,2724 00670 UPDATFLG
011219,000903: 43,2725 43014 TRACKCHK BOFCLR CLEAR
011220,000904: 43,2726 00652 TRACKFLG
011221,000905: 43,2727 66746 EXPIN
011222,000906: 43,2730 00267 IMUSE
011223,000907: 43,2731 43014 CLEAR CLEAR
011224,000908: 43,2732 00270 RNDVZFLG
011225,000909: 43,2733 04266 UTFLAG
011226,000910: 43,2734 45034 RTB CALL
011227,000911: 43,2735 10737 INITSUBB # DO STOPRATE AND RESTOREDB
011228,000912: 43,2736 11720 INTSTALL # DONT INTERRUPT INTEGRATION
011229,000913: 43,2737 77776 EXIT
011230,000914:
011231,000915: 43,2740 05375 TC 2PHSCHNG
011232,000916: 43,2741 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
011233,000917: 43,2742 00001 OCT 1 # ALSO KILL GROUP 1
011234,000918:
011235,000919: 43,2743 00004 CLEANOUT INHINT
011236,000920: 43,2744 04666 TC POSTJUMP
011237,000921: 43,2745 12615 CADR ENEMA # CAUSE RESTART
011238,000922:
011239,000923: 43,2746 43014 EXPIN CLEAR CLEAR
011240,000924: 43,2747 00270 RNDVZFLG
011241,000925: 43,2750 04266 UTFLAG
011242,000926: 43,2751 77776 EXPIN1 EXIT
011243,000927: 43,2752 02117 TC GOPIN
011244,000928:
011245,000929: # LEMVEC VERB 80 DESCRIPTION
011246,000930: # UPDATE LEM STATE VECTOR
011247,000931: # RESET VEHUPFLG TO 0
011248,000932:
011249,000933: 43,2753 03130 LEMVEC TC DOWNX
011250,000934: 43,2754 00026 ADRES VEHUPFLG # VEHUPFLG DOWN INDICATES LEM
011251,000935:
011252,000936: 43,2755 03134 CSMVEC TC UPX # VEHUPFLG UP INDICATES CM.
011253,000937:
011254,000938: # CSMVEC VERB 81 DESCRIPTION
011255,000939: # UPDATE CSM STATE VECTOR
011256,000940: # SET VEHUPFLG TO 1
011257,000941:
011258,000942: # DNEDUMP VERB 74 DESCRIPTION
011259,000943: # INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011260,000944: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011261,000945: # 3. RELEASE EXT VERB DISPLAY.
011262,000946:
011263,000947: 43,2756 32761 DNEDUMP CAF LDNDUMPI
011264,000948: 43,2757 54334 TS DNTMGOTO
011265,000949: 43,2760 02117 TC GOPIN
011266,000950:
011267,000951: 43,2761 43,2756 V74 EQUALS DNEDUMP
011268,000952: 43,2761 03641 LDNDUMPI REMADR DNDUMPI
011269,000953:
011270,000954: # LFTFLGON VERB 75 DESCRIPTION
011271,000955: # SET LIFT-OFF FLAG
011272,000956: # 1. SETUP GGRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
011273,000957: # 2. RETURN VIA PINBRNCH
011274,000958:
011275,000959: 43,2762 00125 ADRES GRRBKFLG # MUST PRECEDE LFTFLGON
011276,000960: 43,2763 03134 LFTFLGON TC UPX
011277,000961:
011278,000962: 43,2764 31204 CHKPOOH CA MODREG
011279,000963: 43,2765 00006 EXTEND
011280,000964: 43,2766 16711 BZF TCQ
011281,000965: 43,2767 12116 TCF ALM/END
011282,000966:
011283,000967: 43,2770 E6,1410 EBANK= PACTOFF
011284,000968: 43,2770 03132 12106 IDLECADR 2CADR T5IDLOC
011285,000969:
011286,000970: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011287,000971:
011288,000972: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
011289,000973: # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
011290,000974: # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
011291,000975:
011292,000976: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
011293,000977: # EXIT R63, OTHERWISE CONTINUE.
011294,000978:
011295,000979: # 2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
011296,000980: # ORIENTATION KNOWN TO CGC, CONTINUE.
011297,000981:
011298,000982: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011299,000983: # BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
011300,000984: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V 22 E 2 E. CONTINUE
011301,000985: # AFTER KEYING IN PROCEED.
011302,000986:
011303,000987: # 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
011304,000988: # FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
011305,000989:
011306,000990: # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
011307,000991:
011308,000992: # R63COMP JOB:
011309,000993:
011310,000994: # UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
011311,000995:
011312,000996: # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
011313,000997:
011314,000998: # DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
011315,000999: # ARE STORED FOR LATER R60CSM CALL.
011316,001000:
011317,001001: # 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
011318,001002:
011319,001003: # 7. RECYCLE- RETURN TO STEP 5.
011320,001004: # TERMINATE- EXIT R63 ROUTINE
011321,001005: # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
011322,001006:
011323,001007: 43,2772 02764 V89PERF TC CHKPOOH # DEMAND P00
011324,001008: 43,2773 02076 TC TESTXACT
011325,001009: 43,2774 34765 CAF PRIO10
011326,001010: 43,2775 05150 TC FINDVAC
011327,001011: 43,2776 E6,1776 EBANK= R61CNTR
011328,001012: 43,2776 02310 62066 2CADR V89CALL
011329,001013:
011330,001014: 43,3000 15220 TCF ENDOFJOB
011331,001015:
011332,001016: 43,3001 03130 WMATRXNG TC DOWNX # RESET RENDWFLG
011333,001017: 43,3002 00131 ADRES RENDWFLG
011334,001018:
011335,001019: 43,3003 43,3003 GOSHOSUM EQUALS SHOWSUM
011336,001020:
011337,001021: 43,3003 02764 SHOWSUM TC CHKPOOH
011338,001022: 43,3004 02076 TC TESTXACT # *
011339,001023: 43,3005 35001 CAF S+1 # *
011340,001024: 43,3006 55376 TS SKEEP6 # * SHOWSUM OPTION
011341,001025: 43,3007 35003 CAF S+ZERO # *
011342,001026: 43,3010 55362 TS SMODE # * TURN OFF SELF-CHECK
011343,001027: 43,3011 33242 CA SELFADRS # *
011344,001028: 43,3012 55361 TS SELFRET # *
011345,001029: 43,3013 03517 TC STSHOSUM # * ENTER ROPECHK
011346,001030:
011347,001031: 43,3014 23372 SDISPLAY LXCH SKEEP2 # * BNK NO FOR DSP
011348,001032: 43,3015 23373 LXCH SKEEP3 # * BUGGER WORD FOR DSP
011349,001033: 43,3016 33241 NOKILL CA ADRS1 # *
011350,001034: 43,3017 54156 TS MPAC +2 # *
011351,001035: 43,3020 33031 CA VNCON # * 0501
011352,001036: 43,3021 04647 TC BANKCALL # *
011353,001037: 43,3022 20456 CADR GOXDSPF # *
011354,001038: 43,3023 03026 TC +3 # *
011355,001039: 43,3024 03630 TC NXTBNK # *
011356,001040: 43,3025 03016 TC NOKILL # *
011357,001041: 43,3026 33242 CA SELFADRS
011358,001042: 43,3027 55371 TS SKEEP1
011359,001043:
011360,001044: 43,3030 05537 TC ENDEXT # *
011361,001045:
011362,001046: 43,3031 01201 VNCON VN 501 # *
011363,001047:
011364,001048: 43,3032 31376 ENDSUMS CA SKEEP6 # *
011365,001049: 43,3033 00006 EXTEND # *
011366,001050: 43,3034 13333 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
011367,001051: 43,3035 03517 TC STSHOSUM # * START SHOWSUM AGAIN.
011368,001052:
011369,001053:
011370,001054: # VB 87 SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
011371,001055:
011372,001056: # VB 88 RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
011373,001057:
011374,001058: 43,3036 05605 RESETVHF TC TRFAILOF # TRACKER FAIL LIGHT
011375,001059: 43,3037 03130 TC DOWNX
011376,001060: 43,3040 00215 ADRES VHFRFLAG
011377,001061: 43,3041 03134 SETVHFLG TC UPX # V87 SET VHF RANGE FLAG
011378,001062:
011379,001063: # VERB 66. VEHICLES ARE ATTACHED. - MOVE THIS VEHICLE STATE VECTOR TO
011380,001064: # OTHER VEHICLE STATE VECTOR.
011381,001065:
011382,001066: # USE SUBROUTINE GENTRAN.
011383,001067:
011384,001068: 43,3042 E3,1554 EBANK= RRECTHIS
011385,001069: 43,3042 34765 ATTACHED CAF PRIO10
011386,001070: 43,3043 05150 TC FINDVAC
011387,001071: 43,3044 E3,1554 EBANK= RRECTHIS
011388,001072: 43,3044 02030 36103 2CADR ATTACHIT
011389,001073:
011390,001074: 43,3046 05220 TC ENDOFJOB
011391,001075:
011392,001076: 17,2000 SETLOC EXTVRBS1
011393,001077: 17,2000 BANK
011394,001078: 17,2030 COUNT* $$/EXTVB
011395,001079: 17,2030 06006 ATTACHIT TC INTPRET
011396,001080: 17,2031 77624 CALL
011397,001081: 17,2032 11720 INTSTALL
011398,001082: 17,2033 77776 CMMOVE EXIT
011399,001083: 17,2034 32053 CAF OCT51
011400,001084: 17,2035 05562 TC GENTRAN
011401,001085: 17,2036 01554 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
011402,001086: 17,2037 01626 ADRES RRECTOTH
011403,001087:
011404,001088: 17,2040 06006 TACHEXIT TC INTPRET
011405,001089: 17,2041 77624 CALL # UPDATE RN, VN, R-OTHER, V-OTHER
011406,001090: 17,2042 11325 PTOACSM
011407,001091: 17,2043 77624 CALL
011408,001092: 17,2044 20226 SVDWN1
011409,001093: 17,2045 77624 CALL
011410,001094: 17,2046 20245 SVDWN2
011411,001095: 17,2047 77624 CALL
011412,001096: 17,2050 11727 INTWAKE0
011413,001097: 17,2051 77634 TCPIN RTB
011414,001098: 17,2052 21155 PINBRNCH
011415,001099:
011416,001100: 17,2053 00051 OCT51 OCT 51
011417,001101:
011418,001102: 43,2000 SETLOC EXTVERBS
011419,001103: 43,2000 BANK
011420,001104: 43,3047 COUNT* $$/EXTVB
011421,001105:
011422,001106: # VERB 47 MOVE LM STATE VECTOR INTO CM STATE VECTOR.
011423,001107:
011424,001108: 43,3047 34765 LMTOCMSV CAF PRIO10
011425,001109: 43,3050 05150 TC FINDVAC
011426,001110: 43,3051 E3,1554 EBANK= RRECTHIS
011427,001111: 43,3051 02054 36103 2CADR LMTOCM
011428,001112:
011429,001113: 43,3053 05220 TC ENDOFJOB
011430,001114:
011431,001115: 17,2000 SETLOC EXTVRBS1
011432,001116: 17,2000 BANK
011433,001117:
011434,001118: 17,2054 COUNT* $$/EXTVB
011435,001119: 17,2054 06006 LMTOCM TC INTPRET
011436,001120: 17,2055 77624 CALL
011437,001121: 17,2056 11720 INTSTALL
011438,001122: 17,2057 77776 LMMOVE EXIT
011439,001123: 17,2060 32053 CAF OCT51
011440,001124: 17,2061 05562 TC GENTRAN
011441,001125: 17,2062 01626 ADRES RRECTOTH # LM STATE VECTOR INTO CM VIA GENTRAN
011442,001126: 17,2063 01554 ADRES RRECTHIS
011443,001127:
011444,001128: 17,2064 12040 TCF TACHEXIT
011445,001129:
011446,001130: 43,2000 SETLOC EXTVERBS
011447,001131: 43,2000 BANK
011448,001132: 43,3054 COUNT* $$/EXTVB
011449,001133:
011450,001134: # V90PERF VERB 90 DESCRIPTION
011451,001135: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011452,001136: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011453,001137: # 2. SCHEDULE R36 CALL WITH PRIORITY 10
011454,001138: # A. DISPLAY
011455,001139: # TIME OF EVENT - HOURS , MINUTES , SECONDS
011456,001140: # Y OUT-OF-PLANE POSITION - NAUTICAL MILES
011457,001141: # YDOT OUT-OF-PLANE VELOCITY - FEET/SECOND
011458,001142: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
011459,001143: # DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
011460,001144:
011461,001145: 43,3054 02076 V90PERF TC TESTXACT
011462,001146: 43,3055 35063 CAF PRIO7 # R36.V90
011463,001147: 43,3056 05150 TC FINDVAC
011464,001148: 43,3057 40,2000 SBANK= PINSUPER
011465,001149: 43,3057 E7,1412 EBANK= TIG
011466,001150: 43,3057 02330 46107 2CADR R36
011467,001151:
011468,001152: 43,3061 15220 TCF ENDOFJOB
011469,001153:
011470,001154: # VERB 96 SET QUITFLAG TO STOP INTEGRATION.
011471,001155:
011472,001156: 43,3062 07710 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
011473,001157: 43,3063 00221 ADRES QUITFLAG # AT NEXT TIMESTEP
011474,001158:
011475,001159: 43,3064 07710 TC UPFLAG
011476,001160: 43,3065 00204 ADRES V96ONFLG
011477,001161: 43,3066 35003 CAF ZERO
011478,001162: 43,3067 04666 TC POSTJUMP
011479,001163: 43,3070 10007 CADR V37 # GO TO POO
011480,001164:
011481,001165: # VERB 67 ASTRONAUT DISPLAY OF W MATRIX
011482,001166:
011483,001167: 43,3071 02076 V67 TC TESTXACT
011484,001168: 43,3072 35061 CAF PRIO5
011485,001169: 43,3073 05150 TC FINDVAC
011486,001170: 43,3074 E5,1400 EBANK= W
011487,001171: 43,3074 03640 60105 2CADR V67CALL
011488,001172:
011489,001173: 43,3076 05220 TC ENDOFJOB
011490,001174:
011491,001175:
011492,001176: 43,3077 02076 R64 TC TESTXACT
011493,001177: 43,3100 34765 CAF PRIO10
011494,001178: 43,3101 05150 TC FINDVAC
011495,001179: 43,3102 E7,1702 EBANK= MRKBUF1
011496,001180: 43,3102 03561 62107 2CADR V64PERF
011497,001181:
011498,001182: 43,3104 05220 TC ENDOFJOB
011499,001183:
011500,001184:
011501,001185: 43,3105 02076 V76CALL TC TESTXACT
011502,001186: 43,3106 33127 CAF V0672
011503,001187: 43,3107 04647 TC BANKCALL
011504,001188: 43,3110 20456 CADR GOXDSPF
011505,001189: 43,3111 15537 TCF ENDEXT
011506,001190: 43,3112 13114 TCF +2
011507,001191: 43,3113 13106 TCF V76CALL +1
011508,001192:
011509,001193: 43,3114 00004 INHINT
011510,001194: 43,3115 34766 CAF R27BIT
011511,001195: 43,3116 65001 AD R27UP1BT
011512,001196: 43,3117 65000 AD R27UP2BT
011513,001197: 43,3120 40000 COM
011514,001198: 43,3121 70107 MASK FLGWRD11
011515,001199: 43,3122 64766 AD R27BIT
011516,001200: 43,3123 54107 TS FLGWRD11
011517,001201: 43,3124 15537 TCF ENDEXTVB
011518,001202:
011519,001203: 43,3125 03130 V77CALL TC DOWNX
011520,001204: 43,3126 00250 ADRES R27FLAG
011521,001205:
011522,001206: 43,3127 01510 V0672 VN 0672
011523,001207:
011524,001208:
011525,001209: # DOWNX, UPX FLAG SETTING AND RESETTING FOR EXTENDED VERBS.
011526,001210:
011527,001211: # RETURN IS TO GOPIN.
011528,001212:
011529,001213: # CALLING SEQUENCES:
011530,001214:
011531,001215: # FOR DOWNX
011532,001216:
011533,001217: # TC DOWNX
011534,001218: # ADRES (FLAG NAME)
011535,001219:
011536,001220: # FOR UPX
011537,001221:
011538,001222: # ADRES (FLAG NAME)
011539,001223: # TC UPX
011540,001224:
011541,001225: 43,3130 COUNT* $$/FLAG
011542,001226: 43,3130 30002 DOWNX CA Q
011543,001227: 43,3131 07726 TC DEBIT
011544,001228: 43,3132 70001 MASK L
011545,001229: 43,3133 13142 TCF COMXFLG
011546,001230:
011547,001231: 43,3134 30002 UPX CA Q
011548,001232: 43,3135 67701 AD NEG2
011549,001233: 43,3136 07726 TC DEBIT
011550,001234: 43,3137 40000 COM
011551,001235: 43,3140 00006 EXTEND
011552,001236: 43,3141 04001 ROR LCHAN
011553,001237:
011554,001238: 43,3142 50061 COMXFLG INDEX ITEMP1
011555,001239: 43,3143 54074 TS FLAGWRD0
011556,001240: 43,3144 12117 TCF GOPIN
011557,001241:
011558,001242:
011559,001243: # VERB 57 SET FULL TRACK OPTION
011560,001244:
011561,001245: 43,3145 COUNT* $$/EXTVB
011562,001246: 43,3145 02076 V57CALL TC TESTXACT
011563,001247:
011564,001248: 43,3146 34777 PARTRACK CAF BIT3 # OPTION 4 SPECIFY CONDITION OF FULTKFLG
011565,001249: 43,3147 55245 TS OPTIONX
011566,001250:
011567,001251: 43,3150 35000 PRTRCK CAF FULTKBIT
011568,001252: 43,3151 70106 MASK FLGWRD10
011569,001253: 43,3152 00006 EXTEND
011570,001254: 43,3153 13155 BZF +2 # FULTKFLG NOT SET
011571,001255:
011572,001256: 43,3154 35001 CAF BIT1 # FULTKFLG SET
011573,001257: 43,3155 55246 TS OPTIONX +1
011574,001258: 43,3156 33174 CAF V04N12
011575,001259: 43,3157 04647 TC BANKCALL
011576,001260: 43,3160 20456 CADR GOXDSPF
011577,001261: 43,3161 05537 TC ENDEXT
011578,001262: 43,3162 05537 TC ENDEXT
011579,001263: 43,3163 31246 CA OPTIONX +1
011580,001264: 43,3164 00006 EXTEND
011581,001265: 43,3165 13171 BZF +4
011582,001266: 43,3166 07710 TC UPFLAG
011583,001267: 43,3167 00243 ADRES FULTKFLG
011584,001268: 43,3170 13150 TCF PRTRCK
011585,001269:
011586,001270: 43,3171 07722 TC DOWNFLAG
011587,001271: 43,3172 00243 ADRES FULTKFLG
011588,001272: 43,3173 13150 TCF PRTRCK
011589,001273:
011590,001274: 43,3174 01014 V04N12 VN 0412
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc