Source Code
|
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
011010,000002: # Copyright: Public domain.
011011,000003: # Filename: EXTENDED_VERBS.agc
011012,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
011013,000005: # build 072. This is for the Command Module's (CM)
011014,000006: # Apollo Guidance Computer (AGC), we believe for
011015,000007: # Apollo 15-17.
011016,000008: # Assembler: yaYUL
011017,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
011018,000010: # Website: www.ibiblio.org/apollo/index.html
011019,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
011020,000012: # Mod history: 2009-08-04 JL Adapted from corresponding Comanche 055 file.
011021,000013: # 2010-01-31 JL Fixed build errors.
011022,000014: # 2010-02-13 JL Fixed errors on p260, p261.
011023,000015: # 2010-02-16 JL Added some SBANK= directives on pages 258, 262, 271, 274 to fix rope image errors.
011024,000016: # 2010-02-20 RSB Un-##'d this header.
011025,000017:
|
|
Page 249 |
011027,000019:
011028,000020: 43,2000 SETLOC EXTVERBS
011029,000021: 43,2000 BANK
011030,000022:
011031,000023: 43,2000 E5,1757 EBANK= OGC
011032,000024:
011033,000025: 43,2000 COUNT* $$/EXTVB
011034,000026:
011035,000027: # FAN-OUT
011036,000028:
011037,000029: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
011038,000030: 43,2001 02002 TC LST2FAN # FAN AS BEFROE.
011039,000031:
011040,000032: 43,2002 02121 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY).
011041,000033: 43,2003 02133 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
011042,000034: # 91 ONLY)
011043,000035: 43,2004 02227 TC IMUFINEK # VB42 FINE ALIGN IMU
011044,000036: 43,2005 02364 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
011045,000037: 43,2006 03064 TC SETSURF # VB44 SET SURFACE FLAG
011046,000038: 43,2007 03062 TC RESTSRF # VB45 RESET SURFACE FLAG
011047,000039: 43,2010 02451 TC STABLISH # VB46 ESTABLISH G+C CONTROL.
011048,000040: 43,2011 03001 TC LMTOCMSV # VB47 MOVE LM STATE VECTOR INTO CM
011049,000041: 43,2012 02544 TC DAPDISP # VB48 LOAD A/P DATA.
011050,000042: 43,2013 12535 TCF CREWMANU # VB 49 START AUTOMATIC ATTITUDE MANEUVER
011051,000043: 43,2014 02265 TC GOLOADLV # VB50 PLEASE PERFORM
011052,000044: 43,2015 02265 TC GOLOADLV # VB51 PLEASE MARK
011053,000045: 43,2016 03037 TC V52 # VB52 SET OFFSET NO. FOR P22
011054,000046: 43,2017 02265 TC GOLOADLV # VB53 PLEASE PERFORM COAS MARK
011055,000047: 43,2020 02600 TC GOTOR23 # V54 START R23 (R-21 BACKUP)
011056,000048: 43,2021 02312 TC ALINTIME # VB55 ALIGN TIME
011057,000049: 43,2022 02641 TC TRACKTRM # VB56 TERMINATE TRACKING (P20 +P25)
011058,000050: 43,2023 03102 TC V57CALL # V57 FULTKFLG SETTING OPTION
011059,000051: 43,2024 02445 TC ENATMA # VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
011060,000052: 43,2025 02265 TC GOLOADLV # VB59 PLEASE CALIBRATE
011061,000053: 43,2026 02273 TC V60 # VB60 SET CPHIX (N17) EQUAL TO CDU
011062,000054: 43,2027 02301 TC V61 # VB61 SELECT MODE I
011063,000055: 43,2030 02304 TC V62 # VB62 SELECT MODE II, ERROR WRT N22
011064,000056: 43,2031 02307 TC V63 # VB63 SELECT MODE III, ERROR WRT N17
011065,000057: 43,2032 02437 TC VB64 # VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
011066,000058: 43,2033 02342 TC CKOPTVB # V 65 E OPTICAL VERIFICATION FOR PRELAUNC
011067,000059: 43,2034 02774 TC ATTACHED # VB 66 ATTACHED. MOVE THIS TO OTHER STATE
011068,000060: 43,2035 03054 TC V67 # VB67 WMATRIX MONITOR
011069,000061: 43,2036 02116 TC ALM/END # VB68 SPARE
011070,000062: 43,2037 02037 VERB69 TC VERB69 # VB 69 CAUSE RESTART
011071,000063: 43,2040 03656 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
011072,000064: 43,2041 03660 TC V71UPDAT # VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
011073,000065: 43,2042 03662 TC V72UPDAT # VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
011074,000066: 43,2043 03664 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
011075,000067: 43,2044 02706 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
011076,000068: # FOR ERASABLE DUMP.
011077,000069: 43,2045 02713 TC LFTFLGON # VB75 SET LIFTOFF FLAG.
011078,000070: 43,2046 02116 TC ALM/END # VB76 SPARE
|
|
Page 250 |
011080,000072: 43,2047 02116 TC ALM/END # VB77 SPARE
011081,000073: 43,2050 02352 TC CHAZFOGC # CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
011082,000074: 43,2051 02116 TC ALM/END # VB79 SPARE
011083,000075: 43,2052 02703 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR
011084,000076: 43,2053 02705 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
011085,000077: 43,2054 02557 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
011086,000078: 43,2055 02564 TC V83PERF # VB83 RANGE, RANGE RATE, +X AXIS (R31)
011087,000079: 43,2056 02116 TC ALM/END # V84 SPARE
011088,000080: 43,2057 02574 TC V85PERF # VB85 RANGE, RANGE RATE, SLOS (R34)
011089,000081: 43,2060 02621 TC V86PERF # VB86 BACKUP MARK REJECT
011090,000082: 43,2061 02773 TC SETVHFLG # VB87 SET VHF RANGE FLAG
011091,000083: 43,2062 02770 TC RESETVHF # VB88 RESET VHF RANGE FLAG
011092,000084: 43,2063 02722 TC V89PERF # V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
011093,000085: 43,2064 03022 TC V90PERF # VB90-OUT OF PLANE PARAMETERS (R36)
011094,000086: 43,2065 02735 TC GOSHOSUM # VB91 TEMP FOR HYBRID AND STG.
011095,000087: 43,2066 02116 TC ALM/END # VB92 SPARE
011096,000088: 43,2067 02731 TC WMATRXNG # VB93 CLEAR RENDWFLG
011097,000089: 43,2070 03006 TC VERB94 # VB94 DO R64
011098,000090: 43,2071 02116 TC ALM/END # VB95 SPARE
011099,000091: 43,2072 13030 TCF VERB96 # VB96 SET QUITFLAG TO STOP INTEGRATION
011100,000092: 43,2073 02265 TC GOLOADLV # V97 PLEASE PERFORM ENGINE-FAIL (R41)
011101,000093: 43,2074 02116 TC ALM/END # VB98 SPARE
011102,000094: 43,2075 02265 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
011103,000095:
011104,000096: # END OF EXTENDED VERB FAN
011105,000097:
011106,000098: 43,2076 11247 TESTXACT CCS EXTVBACT
011107,000099: 43,2077 02116 TC ALM/END # YES, TURN ON OPERATOR ERROR LIGHT
011108,000100: 43,2100 30100 CA FLAGWRD4 # ARE PRIOS USING DSKY
011109,000101: 43,2101 77646 MASK 14,12,7
011110,000102: 43,2102 10000 CCS A
011111,000103: 43,2103 02116 TC ALM/END
011112,000104:
011113,000105: 43,2104 34124 CAF OCT24 # SET BITS 3 AND 5
011114,000106: 43,2105 55247 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
011115,000107: # SYSTEM BUSY
011116,000108:
011117,000109: 43,2106 30002 CA Q
011118,000110: 43,2107 54155 TS MPAC +1
011119,000111:
011120,000112: 43,2110 44767 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
011121,000113: 43,2111 04202 TC NVSUB
011122,000114: 43,2112 02113 TC +1
011123,000115: 43,2113 10067 CCS NEWJOB # ALLOW POSSIBLE WAITING DISPLAY (FROM
011124,000116: 43,2114 05152 TC CHANG1 # RELDSP) TO COME UP.
011125,000117:
011126,000118: 43,2115 00155 TC MPAC +1
011127,000119:
011128,000120: 43,2116 5524 TERMEXTV EQUALS ENDEXT
011129,000121:
|
|
Page 251 |
011131,000123:
011132,000124: 43,2116 5524 ENDEXTVB EQUALS ENDEXT
011133,000125:
011134,000126: 43,2116 04362 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
011135,000127: 43,2117 04655 GOPIN TC POSTJUMP
011136,000128: 43,2120 21275 CADR PINBRNCH
011137,000129:
|
|
Page 252 |
011139,000131:
011140,000132: # VBZERO VERB 40 DESCRIPTION
011141,000133: 43,2121 31335 VBZERO CA MODECADR # KEYBOARD REQUEST FOR ISS CDU ZERO
011142,000134: 43,2122 00006 EXTEND
011143,000135: 43,2123 12125 BZF +2
011144,000136: 43,2124 02116 TC ALM/END
011145,000137: 43,2125 04636 TC BANKCALL
011146,000138: 43,2126 16627 CADR IMUZERO
011147,000139:
011148,000140: 43,2127 04636 TC BANKCALL # STALL
011149,000141: 43,2130 17644 CADR IMUSTALL
011150,000142: 43,2131 02132 TC +1
011151,000143:
011152,000144: 43,2132 02117 TC GOPIN
011153,000145:
|
|
Page 253 |
011155,000147:
011156,000148: # VBCOARK VERB 41 DESCRIPTION
011157,000149: # COARSE ALIGN IMU OR RADAR
011158,000150:
011159,000151: # 1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
011160,000152: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
011161,000153: # CASE 1 NOUN 20 (ICDU ANGLES)
011162,000154: # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
011163,000155: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
011164,000156: # RESPONSES
011165,000157: # A. TERMINATE
011166,000158: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
011167,000159: # B. PROCEED
011168,000160: # 1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
011169,000161: # RESPONSES:
011170,000162: # A. TERMINATE
011171,000163: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
011172,000164: # B. PROCEED
011173,000165: # 1. EXECUTE ICORK2.
011174,000166: # C. ENTER
011175,000167: # 1. INCREMENT CDU ANGLES
011176,000168: # 2. EXECUTE ICORK2.
011177,000169: # C. ENTER
011178,000170: # 1. EXECUTE ICORK2.
011179,000171: # ICORK2
011180,000172: # 1. RE-DISPLAY VERB 41.
011181,000173: # 2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
011182,000174: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
011183,000175: # 4. RELEASE EXT VERB DISPLAY SYSTEM.
011184,000176: # CASE 2 NOUN 91 (OCDU ANGLES)
011185,000177: # 5. (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
011186,000178: # OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
011187,000179: # AND RELEASE EXT VERB DISPLAY SYSTEM).
011188,000180: # 6. RESPONSES TO V29,N92
011189,000181: # A. TERMINATE
011190,000182: # RELEASE EXT VERB DISPLAY SYSTEM
011191,000183: # B. PROCEED OR ENTER
011192,000184: # RE-DISPLAY VERB 41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
011193,000185: # RELEASE EXT VERB DISPLAY SYSTEM.
011194,000186:
011195,000187: 43,2133 44124 VBCOARK CS OCT24
011196,000188: 43,2134 61205 AD NOUNREG
011197,000189: 43,2135 00006 EXTEND
011198,000190: 43,2136 12143 BZF IMUCOARK # NOUN 20
011199,000191:
011200,000192: 43,2137 62165 AD OPIMDIFF # -71
011201,000193: 43,2140 00006 EXTEND
011202,000194: 43,2141 12166 BZF OPTCOARK # NOUN 91
011203,000195:
011204,000196: 43,2142 02116 TC ALM/END # WRONG NOUN
011205,000197:
011206,000198: 43,2143 02076 IMUCOARK TC TESTXACT # COARSE ALIGN FROM KEYBOARD
|
|
Page 254 |
011208,000200: 43,2144 32163 CAF VNLODCDU # CALL FOR THETAD LOAD
011209,000201: 43,2145 04636 TC BANKCALL
011210,000202: 43,2146 20576 CADR GOXDSPF
011211,000203: 43,2147 05524 TC TERMEXTV
011212,000204: 43,2150 12151 TCF +1
011213,000205:
011214,000206: 43,2151 32164 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
011215,000207: 43,2152 04636 TC BANKCALL
011216,000208: 43,2153 21064 CADR EXDSPRET
011217,000209:
011218,000210: 43,2154 02260 TC CKMODCAD
011219,000211: 43,2155 04636 TC BANKCALL # CALL MODE SWITCHING PROG
011220,000212: 43,2156 16724 CADR IMUCOARS
011221,000213:
011222,000214: 43,2157 04636 TC BANKCALL # STALL
011223,000215: 43,2160 17644 CADR IMUSTALL
011224,000216: 43,2161 05524 TC ENDEXTVB
011225,000217: 43,2162 05524 TC ENDEXTVB
011226,000218:
011227,000219: 43,2163 06226 VNLODCDU VN 2522
011228,000220: 43,2164 12200 IMUCOARV VN 4100
011229,000221: 43,2165 77670 OPIMDIFF DEC -71 B-14
011230,000222:
|
|
Page 255 |
011232,000224:
011233,000225: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
011234,000226:
011235,000227: 43,2166 02714 OPTCOARK TC CHKPOOH # ENSURE IN POO
011236,000228: 43,2167 02076 TC TESTXACT
011237,000229: 43,2170 35043 CAF EBANK5
011238,000230: 43,2171 54003 TS EBANK
011239,000231:
011240,000232: 43,2172 11354 CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER
011241,000233: 43,2173 02200 TC +5 # SWITCH AT COMPUTER
011242,000234: 43,2174 02175 TC +1 # NOT ON COMPUTER
011243,000235: 43,2175 04362 TC FALTON # TURN ON OPERATOR ERR
011244,000236: 43,2176 05671 TC ALARM # AND ALARM
011245,000237: 43,2177 00115 OCT 00115
011246,000238:
011247,000239: 43,2200 11323 CCS OPTIND # SEE IF OPTICS AVAILABLE
011248,000240: 43,2201 02207 TC OPTC1 # IN USE
011249,000241: 43,2202 02207 TC OPTC1 # IN USE
011250,000242: 43,2203 02207 TC OPTC1 # IN USE
011251,000243:
011252,000244: 43,2204 05671 TC ALARM # OPTICS RESERVED (OPTIND=-0)
011253,000245: 43,2205 00117 OCT 00117
011254,000246: 43,2206 05524 TC ENDEXT
011255,000247:
011256,000248: 43,2207 32226 OPTC1 CAF VNLDOCDU # VERB-NOUN TO LOAD OPTICS CDUS
011257,000249: 43,2210 04636 TC BANKCALL
011258,000250: 43,2211 20576 CADR GOXDSPF
011259,000251: 43,2212 05524 TC TERMEXTV
011260,000252: 43,2213 02214 TC +1 # PROCEED
011261,000253:
011262,000254: 43,2214 31773 CA SAC
011263,000255: 43,2215 55313 TS DESOPTS
011264,000256: 43,2216 31775 CA PAC
011265,000257: 43,2217 55312 TS DESOPTT
011266,000258: 43,2220 32164 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
011267,000259: 43,2221 04636 TC BANKCALL
011268,000260: 43,2222 21064 CADR EXDSPRET
011269,000261:
011270,000262: 43,2223 34770 CAF ONE
011271,000263: 43,2224 55323 TS OPTIND # SET COARS WORKING
011272,000264:
011273,000265: 43,2225 05524 TC ENDEXTVB
011274,000266:
011275,000267: 43,2226 06134 VNLDOCDU VN 2492
011276,000268: 43,2227 43,2164 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
011277,000269:
|
|
Page 256 |
011279,000271:
011280,000272: # IMUFINEK VERB 42 DESCRIPTION
011281,000273: # FINE ALIGN IMU
011282,000274:
011283,000275: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
011284,000276: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
011285,000277: # RESPONSES
011286,000278: # A. TERMINATE
011287,000279: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
011288,000280: # B. PROCEED OR ENTER
011289,000281: # 1. RE-DISPLAY VERB 42
011290,000282: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
011291,000283: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
011292,000284: # A. FAILED
011293,000285: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
011294,000286: # B. GOOD
011295,000287: # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
011296,000288: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
011297,000289:
011298,000290: 43,2227 02076 IMUFINEK TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
011299,000291: 43,2230 32256 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
011300,000292: 43,2231 04636 TC BANKCALL
011301,000293: 43,2232 20576 CADR GOXDSPF
011302,000294: 43,2233 05524 TC TERMEXTV
011303,000295: 43,2234 02235 TC +1 # PROCEED WITHOUT A LOAD
011304,000296:
011305,000297: 43,2235 32257 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
011306,000298: 43,2236 04636 TC BANKCALL
011307,000299: 43,2237 21064 CADR EXDSPRET
011308,000300:
011309,000301: 43,2240 02260 TC CKMODCAD
011310,000302: 43,2241 04636 TC BANKCALL # CALL MODE SWITCH PROG
011311,000303: 43,2242 17133 CADR IMUFINE
011312,000304:
011313,000305: 43,2243 04636 TC BANKCALL # HIBERNATION
011314,000306: 43,2244 17644 CADR IMUSTALL
011315,000307: 43,2245 05524 TC ENDEXTVB
011316,000308:
011317,000309: 43,2246 32255 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS
011318,000310: 43,2247 04636 TC BANKCALL
011319,000311: 43,2250 17244 CADR IMUPULSE
011320,000312:
011321,000313: 43,2251 04636 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
011322,000314: 43,2252 17644 CADR IMUSTALL
011323,000315: 43,2253 05524 TC ENDEXTVB
011324,000316: 43,2254 05524 TC ENDEXTVB
011325,000317:
011326,000318: 43,2255 02757 LGYROBIN ECADR OGC
011327,000319: 43,2256 06335 VNLODGYR VN 2593
011328,000320: 43,2257 12400 IMUFINEV VN 4200 # FINE ALIGN VERB
011329,000321:
011330,000322: 43,2260 31335 CKMODCAD CA MODECADR
|
|
Page 257 |
011332,000324: 43,2261 00006 EXTEND
011333,000325: 43,2262 16711 BZF TCQ
011334,000326: 43,2263 04362 TC FALTON
011335,000327: 43,2264 05524 TC ENDEXTVB
011336,000328:
011337,000329: # GOLOADLV VERB 50 DESCRIPTION
011338,000330: # AND OTHER PLEASE
011339,000331: # DO SOMETHING VERBS
011340,000332:
011341,000333: # PLEASE PERFORM, MARK, CALIBRATE, ETC.
011342,000334:
011343,000335: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
011344,000336: # SAME RECALL AS A COMPLETED LOAD.
011345,000337: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
011346,000338:
011347,000339: 43,2265 04417 GOLOADLV TC FLASHOFF
011348,000340: 43,2266 34223 CAF PINSUPBT
011349,000341: 43,2267 00006 EXTEND
011350,000342: 43,2270 01007 WRITE SUPERBNK # TURN ON FE7
011351,000343: 43,2271 04655 TC POSTJUMP
011352,000344: 43,2272 40,2000 SBANK= PINSUPER
011353,000345: 43,2272 63001 CADR LOADLV1
011354,000346:
011355,000347: # V60 VERB 60
011356,000348:
011357,000349: 43,2273 00006 V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
011358,000350: 43,2274 30033 DCA CDUX # TO PRESENT ATTITUDE
011359,000351: 43,2275 53014 DXCH CPHIX
011360,000352: 43,2276 30034 CA CDUZ
011361,000353: 43,2277 55015 TS CPHIX +2
011362,000354: 43,2300 02117 TC GOPIN
011363,000355:
011364,000356: # V61 VERB 61
011365,000357:
011366,000358: 43,2301 03065 V61 TC DOWNX # CLEAR NEEDLFLG, PHASE
011367,000359: 43,2302 00006 ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED
011368,000360: 43,2303 03071 SETNEEDL TC UPX # SET NEEDLFLG, TOTAL ATT ERR DISPLAYED
011369,000361:
011370,000362: # V62 VERB 62
011371,000363:
011372,000364: 43,2304 05547 V62 TC UPFLAG
011373,000365: 43,2305 00220 ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22
011374,000366: 43,2306 02303 TC SETNEEDL
011375,000367:
011376,000368: # V63 VERB 63
011377,000369:
011378,000370: 43,2307 05561 V63 TC DOWNFLAG
011379,000371: 43,2310 00220 ADRES N22ORN17 # COMPUTE TOAL ASTRONAUT ATTITUDE ERROR
011380,000372: 43,2311 02303 TC SETNEEDL
011381,000373:
|
|
Page 258 |
011383,000375:
011384,000376: # ALINTIME VERB 55 DESCRIPTION
011385,000377: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011386,000378: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011387,000379: # 3. REQUIRE EXECUTION OF VERB 23.
011388,000380: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011389,000381: # 5. RELEASE EXT VERB DISPLAY SYSTEM.
011390,000382:
011391,000383: 43,2312 COUNT* $$/R33
011392,000384: 43,2312 02076 ALINTIME TC TESTXACT
011393,000385:
011394,000386: 43,2313 32341 CAF VNLODDT
011395,000387: 43,2314 04636 TC BANKCALL
011396,000388: 43,2315 20576 CADR GOMARKF
011397,000389: 43,2316 05524 TC ENDEXT # TERMINATE
011398,000390: 43,2317 05524 TC ENDEXT # PROCEED
011399,000391: 43,2320 44615 CS DEC23 # DATA IN OR RESEQUENCE (UNLIKELY)
011400,000392: 43,2321 60154 AD MPAC # RECALL LEFT VERB IN MPAC
011401,000393: 43,2322 00006 EXTEND
011402,000394: 43,2323 12325 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
011403,000395: 43,2324 05524 TC ENDEXT # WITH V23 (DATA IN).
011404,000396: 43,2325 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
011405,000397: 43,2326 34772 CAF ZERO
011406,000398: 43,2327 54001 TS L # ZERO T1 & 2 WHILE ALIGNING.
011407,000399: 43,2330 52025 DXCH TIME2
011408,000400: 43,2331 52155 DXCH MPAC
011409,000401: 43,2332 53255 DXCH DSPTEM2 +1 # INCREMENT
011410,000402: 43,2333 20155 DAS MPAC
011411,000403:
011412,000404: 43,2334 07224 TC DPAGREE # FORCE SIGN AGREEMENT
011413,000405: 43,2335 52155 DXCH MPAC # NEW CLOCK.
011414,000406: 43,2336 20025 DAS TIME2
011415,000407: 43,2337 00003 RELINT
011416,000408: 43,2340 05524 UPDTMEND TC ENDEXT
011417,000409: 43,2341 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
011418,000410:
011419,000411: # REDO AND TSELECT ARE NOW IN SYSTEM TEST.
011420,000412:
011421,000413: 43,2342 COUNT* $$/EXTVB
011422,000414: # CKOPTVB VERB 65 DESCRIPTION
011423,000415: # OPTICAL VERIFICATION FOR PRELAUNCH.
011424,000416: # 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
011425,000417:
011426,000418: 43,2342 05354 CKOPTVB TC CHECKMM
011427,000419: 43,2343 00002 MM 02 B-14 # I WONDER IF PRELAUNCH IS RUNNING
011428,000420: 43,2344 02116 TC ALM/END # NOT RUNNING OPERATOR ERROR
011429,000421: 43,2345 35055 CAF PRIO16 # PRELAUNCH OPTICAL VERIFICATION
011430,000422: 43,2346 05135 TC FINDVAC
011431,000423: 43,2347 E5,1425 EBANK= QPLACE
|
|
Added by JL, 2010-02-16 |
011433,000425: 43,2347 30,2000 SBANK= LOWSUPER
|
|
End |
011435,000427: 43,2347 02000 66065 2CADR COMPVER # STANDARD LEADIN TO GCOMPVER.
011436,000428:
|
|
Page 259 |
011438,000430: 43,2351 02117 TC GOPIN
011439,000431:
011440,000432: # V 78 .... TO CHANGE GYROCOMPASS AZIMUTH
011441,000433:
011442,000434: 43,2352 05354 CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
011443,000435: 43,2353 00002 MM 02 B-14
011444,000436: 43,2354 02116 TC ALM/END # NO - OPERATOR ERROR
011445,000437:
011446,000438: 43,2355 35055 CAF PRIO16 # PRELAUNCH AZIMUTH CHANGE
011447,000439: 43,2356 05135 TC FINDVAC
011448,000440: 43,2357 E5,1671 EBANK= XSM
011449,000441: 43,2357 03132 66105 2CADR AZMTHCG1
011450,000442:
011451,000443: 43,2361 05402 TC PHASCHNG
011452,000444: 43,2362 00174 OCT 00174
011453,000445: 43,2363 01,2146 4P17SPT1 = 4.17SPOT
011454,000446: 43,2363 02117 TC GOPIN
011455,000447:
|
|
Page 260 |
011457,000449:
011458,000450: # IMUATTCK VERB 43 DESCRIPTION
011459,000451: # LOAD IMU ATTITUDE ERROR METERS
011460,000452: # 1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
011461,000453: # 2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
011462,000454: # FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
011463,000455: # 3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
011464,000456: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
011465,000457: # 5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
011466,000458: # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
011467,000459: # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
011468,000460:
011469,000461: 43,2364 02714 IMUATTCK TC CHKPOOH
011470,000462:
011471,000463: 43,2365 35001 CAF BITS4&5 # CHECK IF IMU ZERO AND IMU COARSE ARE ON
011472,000464: 43,2366 00006 EXTEND
011473,000465: 43,2367 02012 RAND CHAN12
011474,000466: 43,2370 10000 CCS A
011475,000467: 43,2371 12116 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
011476,000468:
011477,000469: 43,2372 02427 TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
011478,000470: 43,2373 02076 TC TESTXACT # AFTER
011479,000471: 43,2374 45004 CS OCT50 # REMOVE COARSE AND ECTR ENABLE.
011480,000472: 43,2375 00006 EXTEND
011481,000473: 43,2376 03012 WAND CHAN12
011482,000474:
011483,000475: 43,2377 32163 CAF VNLODCDU
011484,000476: 43,2400 04636 TC BANKCALL
011485,000477: 43,2401 20576 CADR GOXDSPF
011486,000478: 43,2402 12414 TCF TRMATTCK
011487,000479: 43,2403 02404 TC +1
011488,000480: 43,2404 04611 TC E6SETTER # FOR NEEDLES.
011489,000481:
011490,000482: 43,2405 E6,1476 EBANK= AK
011491,000483:
011492,000484: 43,2405 04636 TC BANKCALL # INITIALIZE CURRENT DAC AND
011493,000485: 43,2406 42450 CADR NEEDLE11 # COMMAND VALUES.
011494,000486:
011495,000487: 43,2407 04636 TC BANKCALL # ENABLE ERROR COUNTERS.
011496,000488: 43,2410 42467 CADR NEEDLER2
011497,000489:
011498,000490: 43,2411 34767 CAF TWO # 4 MS MIN.
011499,000491: 43,2412 05223 TC TWIDDLE
011500,000492: 43,2413 02417 ADRES ATTCK1
011501,000493: 43,2414 02427 TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
011502,000494: 43,2415 15524 TCF ENDEXT # AFTER
011503,000495: 43,2416 02117 TC GOPIN
011504,000496:
011505,000497: 43,2417 00006 ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REGS.
011506,000498: 43,2420 31310 DCA THETAD
|
|
Page 261 |
011508,000500: 43,2421 53477 DXCH AK
011509,000501: 43,2422 31311 CAE THETAD +2
011510,000502: 43,2423 55500 TS AK +2
011511,000503:
011512,000504: 43,2424 04714 TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES
011513,000505: 43,2425 42503 CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED.
011514,000506:
011515,000507: 43,2426 05314 TC TASKOVER
011516,000508:
011517,000509: 43,2427 34764 CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED
011518,000510: 43,2430 70101 MASK FLAGWRD5
011519,000511: 43,2431 10000 CCS A
011520,000512: 43,2432 00002 XACT0Q TC Q # YES
011521,000513: 43,2433 34764 CAF BIT5
011522,000514: 43,2434 00006 EXTEND
011523,000515: 43,2435 02030 RAND CHAN30
011524,000516: 43,2436 15651 TCF INCRQCK
011525,000517: 43,2437 02076 VB64 TC TESTXACT
011526,000518: 43,2440 34755 CAF PRIO4
011527,000519: 43,2441 05135 TC FINDVAC
011528,000520: 43,2442 E4,1711 EBANK= RHOSB
011529,000521: 43,2442 03504 64104 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES.
011530,000522:
011531,000523: 43,2444 05205 TC ENDOFJOB
011532,000524:
011533,000525: # ENATMA VERB 58 DESCRIPTION
011534,000526: # ENABLE AUTOMATIC ATTITUDE MANEUVER
011535,000527:
011536,000528: # VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC ACT-
011537,000529: # IVITY.
011538,000530:
011539,000531: 43,2445 05547 ENATMA TC UPFLAG # SET FLAG TO ENABLE R60 MANEUVER
011540,000532: 43,2446 00055 ADRES V50N18FL
011541,000533: 43,2447 03065 TC DOWNX # RESET STIKFLAG.
011542,000534: 43,2450 00020 ADRES STIKFLAG
011543,000535:
011544,000536: # STABLISH VERB 46 DESCRIPTION
011545,000537: # ESTABLISH G AND N AUTOPILOT CONTROL
011546,000538: # 1. SETS UP EITHER RCS, ENTRY, OR SATURN
011547,000539: # 2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER
011548,000540: # FROM HIGH BW TO LOW BW
011549,000541:
011550,000542:
011551,000543: 43,2451 04611 STABLISH TC E6SETTER
011552,000544:
011553,000545: 43,2452 40102 CS FLAGWRD6 # TEST FOR TVC
011554,000546: 43,2453 74076 MASK DPCONFIG
011555,000547: 43,2454 00006 EXTEND
011556,000548: 43,2455 62465 BZMF DAPFIG
|
|
Page 262 |
011558,000550: 43,2456 31465 CAE DAPDATR1 # TET FOR CSM/LM
011559,000551: 43,2457 74753 MASK BIT14
011560,000552: 43,2460 00006 EXTEND
011561,000553: 43,2461 62116 BZMF ALM/END # CSM, SO ALARM AND EXIT
011562,000554:
011563,000555: 43,2462 04636 TC BANKCALL # CSM/LM, SO PERFORM HB TO LB SWITCH-OVER
011564,000556: 43,2463 36344 CADR SWICHOVR
011565,000557:
011566,000558: 43,2464 02117 TC GOPIN
011567,000559:
011568,000560: 43,2465 44760 DAPFIG CS BIT9 # TURN OFF SIVB TAKEOVER
011569,000561: 43,2466 00006 EXTEND
011570,000562: 43,2467 03012 WAND CHAN12
011571,000563: 43,2470 31465 CAE DAPDATR1 # DETERMINE VEHICLE CONFIGURATION
011572,000564: 43,2471 00006 EXTEND
011573,000565: 43,2472 74766 MP BIT3 # RIGHT SHIFT 4 OCTAL DIGITS
011574,000566: 43,2473 76214 MASK THREE # (IN CASE BIT 15 IS USED)
011575,000567: 43,2474 00004 INHINT
011576,000568: 43,2475 50000 INDEX A
011577,000569: 43,2476 12477 TCF +1 # BRANCH BASED ON CONFIG
011578,000570: 43,2477 12522 TCF NODAPUP # CM..ACTIVATE NODAP
011579,000571: 43,2500 12517 TCF RCSDAPUP # CSM..ACTIVATE RCSDAP
011580,000572: 43,2501 12517 TCF RCSDAPUP # CSM/LM ACTIVATE RCSDAP
011581,000573: 43,2502 00006 SATSTKON EXTEND
011582,000574: 43,2503 32516 DCA 2REDOSAT
011583,000575: 43,2504 52113 DXCH T5LOC
011584,000576: 43,2505 34750 CAF POSMAX
011585,000577: 43,2506 54030 TS TIME5
011586,000578: 43,2507 40102 CS FLAGWRD6 # TURN ON BITS 15,14 OF FLAGWRD6
011587,000579: 43,2510 74076 MASK DPCONFIG
011588,000580: 43,2511 26102 ADS FLAGWRD6 # SATSTICK CONTROL OF T5
011589,000581: 43,2512 04714 TC IBNKCALL # ZERO JET CHANNELS IN 14MS AND THEN
011590,000582: 43,2513 42642 CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED
011591,000583: 43,2514 02117 TC GOPIN # EXIT THUS BECAUSE WE CAME VIA V46
011592,000584:
011593,000585: 43,2515 E6,1704 EBANK= SPOLYARG
|
|
Added by JL, 2010-02-16 |
011595,000587: 43,2515 40,2000 SBANK= PINSUPER
|
|
End |
011597,000589: 43,2515 02000 54106 2REDOSAT 2CADR REDOSAT
011598,000590:
011599,000591: 43,2517 04714 RCSDAPUP TC IBNKCALL
011600,000592: 43,2520 42042 CADR RCSDAPON
011601,000593: 43,2521 12117 TCF GOPIN
011602,000594:
011603,000595: 43,2522 04714 NODAPUP TC IBNKCALL # ZERO JET CHANNELS IN 14 MS. AND THEN
011604,000596: 43,2523 42642 CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED.
011605,000597: 43,2524 34770 CAF BIT1
011606,000598: 43,2525 55340 TS HOLDFLAG # KILL KALCMANU JOB
011607,000599:
011608,000600: 43,2526 00006 EXDAPOFF EXTEND
011609,000601: 43,2527 32721 DCA IDLECADR # SET T5 TO IDLE
|
|
Page 263 |
011611,000603: 43,2530 52113 DXCH T5LOC
011612,000604: 43,2531 44076 CS DPCONFIG
011613,000605: 43,2532 70102 MASK FLAGWRD6
011614,000606: 43,2533 54102 TS FLAGWRD6
011615,000607:
011616,000608: 43,2534 02117 TC GOPIN
011617,000609:
|
|
Page 264 |
011619,000611:
011620,000612: # CREMANU VERB 49 DESCRIPTION
011621,000613: # START AUTOMATIC ATTITUDE MANEUVER
011622,000614: # 1. REQUIRE PROGRAM 00 ACTIVE.
011623,000615: # 2. SET EXT VERB DISPLAY BUSY FLAG.
011624,000616: # 3. SCHEDULE R62DISP WITH PRIORITY 10.
011625,000617: # 4. RELEASE EXT VERB DISPLAY.
011626,000618:
011627,000619: # R62DISP
011628,000620: # 1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP
011629,000621: # 4 FOR RESTART OF DISPLAY SEQUENCE.
011630,000622: # RESPONSES
011631,000623: # A. TERMINATE
011632,000624: # 1. GO TO GOTOPOOH
011633,000625: # B. PROCEED
011634,000626: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
011635,000627: # 2. EXECUTE R60CSM (ATTITUDE MANEUVER).
011636,000628: # 3. ZERO GROUP 4 (END R62).
011637,000629: # C. ENTER
011638,000630: # 1. REPEAT FLASHING V06,N22.
011639,000631:
011640,000632: 43,2535 02714 CREWMANU TC CHKPOOH # DEMAND P00
011641,000633:
011642,000634: 43,2536 02076 TC TESTXACT
011643,000635:
011644,000636: 43,2537 34754 CAF PRIO10
011645,000637: 43,2540 05135 TC FINDVAC
011646,000638: 43,2541 E6,1774 EBANK= R61CNTR
011647,000639: 43,2541 02427 56106 2CADR R62DISP
011648,000640:
011649,000641: 43,2543 05205 TC ENDOFJOB
|
|
Page 265 |
011651,000643: # DAPDISP VERB 48 DESCRIPTION
011652,000644: # LOAD AUTOPILOT DATA (ROUTINE R03)
011653,000645: # 0. CHECKFAIL AND RETURN IF TVC.
011654,000646: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
011655,000647: # 2. LOWER PRIORITY TO 10.
011656,000648: # 3. DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
011657,000649: # 4. UPON PROCEED RESPONSE, EXECUTE S41.2.
011658,000650: # 5. DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
011659,000651: # 6. UPON PROCEED RESPONSE EXECUTE S40.14.
011660,000652: # 7. DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
011661,000653: # 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM
011662,000654:
011663,000655: 43,2544 COUNT* $$/EXTVB
011664,000656: 43,2544 40102 DAPDISP CS FLAGWRD6
011665,000657: 43,2545 74076 MASK DPCONFIG
011666,000658: 43,2546 00006 EXTEND
011667,000659: 43,2547 62551 BZMF +2 # TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
011668,000660: 43,2550 02116 TC ALM/END # RETURN IF TVC
011669,000661:
011670,000662: 43,2551 02076 TC TESTXACT
011671,000663: 43,2552 34754 CAF PRIO10
011672,000664: 43,2553 05121 TC NOVAC
011673,000665: 43,2554 E6,1465 EBANK= DAPDATR1
011674,000666: 43,2554 02000 64106 2CADR DONOUN46
011675,000667:
011676,000668: 43,2556 05205 TC ENDOFJOB
011677,000669:
011678,000670: 42,2000 SETLOC EXTVBS
011679,000671: 42,2000 BANK
011680,000672: 42,2000 COUNT* $$/R03
011681,000673: 42,2000 32055 DONOUN46 CAF V04N46 # R1 R2
011682,000674: 42,2001 04636 TC BANKCALL # DAPDATR1 DAPDATR2
011683,000675: 42,2002 20576 CADR GOXDSPF # GOXDSP ROUTINES USED FOR EXTENDED VERBS.
011684,000676:
011685,000677: 42,2003 05524 TC ENDEXT # EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
011686,000678: 42,2004 02006 TC +2
011687,000679: 42,2005 02000 TC DONOUN46
011688,000680:
011689,000681: 42,2006 31465 CA DAPDATR1
011690,000682: 42,2007 74765 MASK BIT4
011691,000683: 42,2010 10000 CCS A
011692,000684: 42,2011 12050 TCF MAXIN
011693,000685: 42,2012 05561 TC DOWNFLAG
011694,000686: 42,2013 00212 ADRES MAXDBFLG
011695,000687: 42,2014 04636 MAXOUT TC BANKCALL
011696,000688: 42,2015 40463 CADR S41.2
011697,000689:
011698,000690: 42,2016 32054 DONOUN47 CAF V06N47 # R1 R2 R3
011699,000691: 42,2017 04636 TC BANKCALL # CSM WGT. LEM WGT. BLANK
011700,000692: 42,2020 20576 CADR GOXDSPF
|
|
Page 266 |
011702,000694: 42,2021 05524 TC ENDEXT
011703,000695: 42,2022 02024 TC +2
011704,000696: 42,2023 02016 TC DONOUN47
011705,000697: 42,2024 31465 CAE DAPDATR1 # DO MASS PROPERTIES CALCULATION ONLY IF
011706,000698: 42,2025 74346 MASK PRIO30 # CONFIG = 1(CSM), 2(CSM/LM), 6(CSM/LMA)
011707,000699: 42,2026 00006 EXTEND
011708,000700: 42,2027 12042 BZF DONOUN48 # SKIP IF 0, 4
011709,000701: 42,2030 40000 COM
011710,000702: 42,2031 74346 MASK PRIO30
011711,000703: 42,2032 00006 EXTEND
011712,000704: 42,2033 12042 BZF DONOUN48 # SKIP IF 3, 7
011713,000705: 42,2034 00004 INHINT
011714,000706: 42,2035 04714 TC IBNKCALL
011715,000707: 42,2036 13313 CADR MASSPROP # UPDATE IXX, IAVG, IAVG/TLX
011716,000708:
011717,000709: 42,2037 00003 RELINT
011718,000710: 42,2040 04636 TC BANKCALL
011719,000711: 42,2041 40614 CADR S40.14 # COMPUTE RCS DAP STUFF
011720,000712:
011721,000713: 42,2042 32053 DONOUN48 CAF V0648 # R1 R2 R3
011722,000714: 42,2043 04636 TC BANKCALL # PTRIM YTRIM BLANK
011723,000715: 42,2044 20576 CADR GOXDSPF
011724,000716:
011725,000717: 42,2045 05524 TC ENDEXT
011726,000718: 42,2046 05524 TC ENDEXT
011727,000719: 42,2047 02042 TC DONOUN48
011728,000720:
011729,000721: 42,2050 05547 MAXIN TC UPFLAG
011730,000722: 42,2051 00212 ADRES MAXDBFLG
011731,000723: 42,2052 02014 TC MAXOUT
011732,000724:
011733,000725: 42,2053 01460 V0648 VN 0648
011734,000726: 42,2054 01457 V06N47 VN 0647
011735,000727: 42,2055 01056 V04N46 VN 0446
011736,000728: 43,2557 BANK 43
011737,000729: 43,2000 SETLOC EXTVERBS
011738,000730: 43,2000 BANK
011739,000731:
011740,000732: 43,2557 COUNT* $$/EXTVB
011741,000733:
011742,000734: # V82PERF VERB82 DESCRIPTION
011743,000735: # REQUEST ORBIT PARAMETERS DISPLAY (R30)
011744,000736: # 1. IF AVERAGE G IS OFF:
011745,000737: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011746,000738: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
011747,000739: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
011748,000740: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011749,000741: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011750,000742: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
011751,000743: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011752,000744: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
011753,000745: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
|
|
Page 267 |
011755,000747: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
011756,000748: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011757,000749: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011758,000750: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011759,000751: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011760,000752:
011761,000753: # 2.IF AVERAGE G IS ON:
011762,000754: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
011763,000755: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
011764,000756: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011765,000757: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011766,000758: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011767,000759: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011768,000760:
011769,000761: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
011770,000762: # ABOVE REMARKS.
011771,000763:
011772,000764: 43,2557 02076 V82PERF TC TESTXACT
011773,000765: 43,2560 35051 CAF PRIO7
011774,000766: 43,2561 05176 TC PRIOCHNG
011775,000767: 43,2562 04655 TC POSTJUMP
011776,000768: 43,2563 46330 CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB.
011777,000769:
011778,000770: # VB83PERF VERB 83 DESCRIPTION
011779,000771: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011780,000772: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011781,000773: # 2. SCHEDULE V83CALL WITH PRIORITY 10.
011782,000774: # A. DISPLAY
011783,000775: # R1 RANGE
011784,000776: # R2 RANGE RATE
011785,000777: # R3 THETA
011786,000778:
011787,000779: 43,2564 02076 V83PERF TC TESTXACT
011788,000780: 43,2565 05547 TC UPFLAG
011789,000781: 43,2566 00222 ADRES R31FLAG
011790,000782: 43,2567 35047 +3 CAF PRIO5
011791,000783: 43,2570 05121 TC NOVAC
|
|
Added by RSB 2009 |
011793,000785: 43,2571 30,2000 SBANK= LOWSUPER
|
|
End add |
011795,000787: 43,2571 E4,1760 EBANK= SUBEXIT
011796,000788: 43,2571 02000 62064 2CADR R31CALL
011797,000789:
011798,000790: 43,2573 05205 TC ENDOFJOB
011799,000791:
011800,000792: 43,2574 02076 V85PERF TC TESTXACT
011801,000793: 43,2575 05561 TC DOWNFLAG # RESET R31 FLAG TO INDICATE R34
011802,000794: 43,2576 00222 ADRES R31FLAG
011803,000795: 43,2577 02567 TC V83PERF +3
|
|
Page 268 |
011805,000797:
011806,000798: # GOTOR23 VERB 54 DESCRIPTION
011807,000799: # SET UP MARKING FOR R22 (REND TRACK DATA PROC)
011808,000800: # 1. SET EXT VERB DISPLAY BUSY FLAG
011809,000801: # 2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
011810,000802: # SCHEDULE R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
011811,000803: # 3. RELEASE EXT VERB DISPLAY SYSTEM
011812,000804:
011813,000805: 43,2600 02076 GOTOR23 TC TESTXACT
011814,000806: 43,2601 30074 CA FLAGWRD0 # V54 UNACCEPTABLE UNLESS BOTH
011815,000807: 43,2602 74762 MASK RNDVZBIT # RENDEZVOUS AND TRACK FLAGS ON
011816,000808: 43,2603 00006 EXTEND
011817,000809: 43,2604 12616 BZF R22ALARM
011818,000810:
011819,000811: 43,2605 30075 CA FLAGWRD1
011820,000812: 43,2606 74764 MASK TRACKBIT
011821,000813: 43,2607 00006 EXTEND
011822,000814: 43,2610 12616 BZF R22ALARM
011823,000815:
011824,000816: 43,2611 35055 CAF PRIO16 # LOWER THAN R22
011825,000817: 43,2612 05121 TC NOVAC
011826,000818: 43,2613 E7,1722 EBANK= MRKBUF1
011827,000819: 43,2613 02263 76067 2CADR R23CSM
011828,000820:
011829,000821: 43,2615 05205 TC ENDOFJOB
011830,000822: 43,2616 05671 R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND
011831,000823: 43,2617 00406 OCT 00406 # NOR TRACK FLAG WERE ON.
011832,000824: 43,2620 05524 TC ENDEXT
011833,000825:
|
|
Page 269 |
011835,000827: # VERB 86 DESCRIPTION
011836,000828: # V86 IS TO R23 AS MARK REJECT IS TO R21
011837,000829: # V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE)
011838,000830:
011839,000831: 43,2621 E7,1722 EBANK= MRKBUF1
011840,000832: 43,2621 04606 V86PERF TC E7SETTER # BACKUP MARK REJ.
011841,000833: 43,2622 31722 CA MRKBUF1
011842,000834: 43,2623 00006 EXTEND
011843,000835: 43,2624 12627 BZF +3
011844,000836: 43,2625 00006 EXTEND
011845,000837: 43,2626 62632 BZMF BKRJCT
011846,000838:
011847,000839: 43,2627 37702 CA NEGONE
011848,000840: 43,2630 55722 TS MRKBUF1
011849,000841: 43,2631 02117 TC GOPIN
011850,000842: 43,2632 34762 BKRJCT CAF R22CABIT
011851,000843: 43,2633 70105 MASK FLAGWRD9
011852,000844: 43,2634 00006 EXTEND
011853,000845: 43,2635 12117 BZF GOPIN
011854,000846:
011855,000847: 43,2636 05547 TC UPFLAG
011856,000848: 43,2637 00231 ADRES REJCTFLG
011857,000849: 43,2640 12117 TCF GOPIN
011858,000850:
|
|
Page 270 |
011860,000852: # TRACKTRM VERB 56 DESCRIPTION
011861,000853: # TERMINATE TRACKING (P20)
011862,000854: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011863,000855: # 2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
011864,000856: # 3. REQUIRE R22 RUNNING OR GO TO PINBRNCH.
011865,000857: # 4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
011866,000858: # 3. KNOCK DOWN RENDEZVOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
011867,000859: # 4. GO TO ENEMA (SOFTWARE RESTART).
011868,000860: # REFERENCE
011869,000861: # P20 RENDEZVOUS NAVIGATION.
011870,000862: # R21 RENDEZVOUS TRACKING SIGHTING MARK.
011871,000863: # R22 RENDEZVOUS TRACKING DATA PROCESSING.
011872,000864:
011873,000865: 43,2641 06006 TRACKTRM TC INTPRET
011874,000866: 43,2642 43014 CLEAR BON
011875,000867: 43,2643 04275 R67FLAG
011876,000868: 43,2644 04306 UTFLAG
011877,000869: 43,2645 66655 TRACKCHK
011878,000870: 43,2646 43014 BOFF CLEAR
011879,000871: 43,2647 00350 RNDVZFLG
011880,000872: 43,2650 66701 EXPIN1
011881,000873: 43,2651 05270 AUTOSEQ
011882,000874: 43,2652 43014 CLEAR CLEAR
011883,000875: 43,2653 01261 R21MARK
011884,000876: 43,2654 00670 UPDATFLG
011885,000877: 43,2655 43014 TRACKCHK BOFCLR CLEAR
011886,000878: 43,2656 00652 TRACKFLG
011887,000879: 43,2657 66676 EXPIN
011888,000880: 43,2660 00267 IMUSE
011889,000881: 43,2661 43014 CLEAR CLEAR
011890,000882: 43,2662 00270 RNDVZFLG
011891,000883: 43,2663 04266 UTFLAG
011892,000884: 43,2664 45034 RTB CALL
011893,000885: 43,2665 11030 INITSUBB # DO STOPRATE AND RESTOREDB
011894,000886: 43,2666 27516 INTSTALL # DONT INTERRUPT INTEGRATION
011895,000887: 43,2667 77776 EXIT
011896,000888:
011897,000889: 43,2670 05362 TC 2PHSCHNG
011898,000890: 43,2671 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
011899,000891: 43,2672 00001 OCT 1 # ALSO KILL GROUP 1
011900,000892:
011901,000893: 43,2673 00004 CLEANOUT INHINT
011902,000894: 43,2674 04655 TC POSTJUMP
011903,000895: 43,2675 12712 CADR ENEMA # CAUSE RESTART
011904,000896:
011905,000897: 43,2676 43014 EXPIN CLEAR CLEAR
011906,000898: 43,2677 00270 RNDVZFLG
011907,000899: 43,2700 04266 UTFLAG
011908,000900: 43,2701 77776 EXPIN1 EXIT
|
|
Page 271 |
011910,000902: 43,2702 02117 TC GOPIN
011911,000903:
011912,000904: # LEMVEC VERB 80 DESCRIPTION
011913,000905: # UPDATE LEM STATE VECTOR
011914,000906: # RESET VEHUPFLG TO 0
011915,000907:
011916,000908: 43,2703 03065 LEMVEC TC DOWNX
011917,000909: 43,2704 00026 ADRES VEHUPFLG # VEHUPFLG DOWN INDICATES LEM
011918,000910:
011919,000911: 43,2705 03071 CSMVEC TC UPX # VEHUPFLG UP INDICATES CM.
011920,000912:
011921,000913: # CSMVEC VERB 81 DESCRIPTION
011922,000914: # UPDATE CSM STATE VECTOR
011923,000915: # SET VEHUPFLG TO 1
011924,000916:
011925,000917: # DNEDUMP VERB 74 DESCRIPTION
011926,000918: # INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011927,000919: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011928,000920: # 3. RELEASE EXT VERB DISPLAY.
011929,000921:
011930,000922: 43,2706 32711 DNEDUMP CAF LDNDUMPI
011931,000923: 43,2707 54334 TS DNTMGOTO
011932,000924: 43,2710 02117 TC GOPIN
011933,000925:
011934,000926: 43,2711 43,2706 V74 EQUALS DNEDUMP
011935,000927: 43,2711 03643 LDNDUMPI REMADR DNDUMPI
011936,000928:
011937,000929: # LFTFLGON VERB 75 DESCRIPTION
011938,000930: # SET LIFT-OFF FLAG
011939,000931: # 1. SETUP GRRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
011940,000932: # 2. RETURN VIA PINBRNCH
011941,000933:
011942,000934: 43,2712 00125 ADRES GRRBKFLG # MUST PRECEDE LFTFLGON
011943,000935: 43,2713 03071 LFTFLGON TC UPX
011944,000936:
011945,000937: 43,2714 31214 CHKPOOH CA MODREG
011946,000938: 43,2715 00006 EXTEND
011947,000939: 43,2716 16711 BZF TCQ
011948,000940: 43,2717 12116 TCF ALM/END
011949,000941:
011950,000942: 43,2720 E6,1423 EBANK= PACTOFF
|
|
Added by JL, 2010-02-16 |
011952,000944: 43,2720 40,2000 SBANK= PINSUPER
|
|
End |
011954,000946: 43,2720 03226 12106 IDLECADR 2CADR T5IDLOC
011955,000947:
|
|
Page 272 |
011957,000949: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011958,000950:
011959,000951: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND
011960,000952: # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
011961,000953: # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
011962,000954:
011963,000955: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
011964,000956: # EXIT R63, OTHERWISE CONTINUE.
011965,000957:
011966,000958: # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
011967,000959: # ORIENTATION KNOWN TO CGC, CONTINUE.
011968,000960:
011969,000961: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011970,000962: # BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
011971,000963: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V 22 E 2 E. CONTINUE
011972,000964: # AFTER KEYING IN PROCEED.
011973,000965:
011974,000966: # 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
011975,000967: # FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
011976,000968:
011977,000969: # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
011978,000970:
011979,000971: # R63COMP JOB:
011980,000972:
011981,000973: # UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
011982,000974:
011983,000975: # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
011984,000976:
011985,000977: # DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
011986,000978: # ARE STORED FOR LATER R60CSM CALL.
011987,000979:
011988,000980: # 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
011989,000981:
011990,000982: # 7. RECYCLE- RETURN TO STEP 5.
011991,000983: # TERMINATE- EXIT R63 ROUTINE
011992,000984: # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
011993,000985:
011994,000986: 43,2722 02714 V89PERF TC CHKPOOH # DEMAND P00
011995,000987: 43,2723 02076 TC TESTXACT
011996,000988: 43,2724 34754 CAF PRIO10
011997,000989: 43,2725 05135 TC FINDVAC
|
|
Added by RSB 2009 |
011999,000991: 43,2726 30,2000 SBANK= LOWSUPER
|
|
End add |
012001,000993: 43,2726 E6,1774 EBANK= R61CNTR
012002,000994: 43,2726 02377 62066 2CADR V89CALL
012003,000995:
012004,000996: 43,2730 15205 TCF ENDOFJOB
012005,000997:
012006,000998: 43,2731 05561 WMATRXNG TC DOWNFLAG # RESET RENDWFLG
012007,000999: 43,2732 00131 ADRES RENDWFLG
012008,001000: 43,2733 03065 TC DOWNX
|
|
Page 273 |
012010,001002: 43,2734 00066 ADRES ORBWFLAG
012011,001003:
012012,001004: 43,2735 43,2735 GOSHOSUM EQUALS SHOWSUM
012013,001005:
012014,001006: 43,2735 02714 SHOWSUM TC CHKPOOH
012015,001007: 43,2736 02076 TC TESTXACT # *
012016,001008: 43,2737 34770 CAF S+1 # *
012017,001009: 43,2740 55376 TS SKEEP6 # * SHOWSUM OPTION
012018,001010: 43,2741 34772 CAF S+ZERO # *
012019,001011: 43,2742 55362 TS SMODE # * TURN OFF SELF-CHECK
012020,001012: 43,2743 33177 CA SELFADRS # *
012021,001013: 43,2744 55361 TS SELFRET # *
012022,001014: 43,2745 03454 TC STSHOSUM # * ENTER ROPECHK
012023,001015:
012024,001016: 43,2746 23372 SDISPLAY LXCH SKEEP2 # * BNK NO FOR DSP
012025,001017: 43,2747 23373 LXCH SKEEP3 # * BUGGER WORD FOR DSP
012026,001018: 43,2750 33176 NOKILL CA ADRS1 # *
012027,001019: 43,2751 54156 TS MPAC +2 # *
012028,001020: 43,2752 32763 CA VNCON # * 0501
012029,001021: 43,2753 04636 TC BANKCALL # *
012030,001022: 43,2754 20576 CADR GOXDSPF # *
012031,001023: 43,2755 02760 TC +3 # *
012032,001024: 43,2756 03565 TC NXTBNK # *
012033,001025: 43,2757 02750 TC NOKILL # *
012034,001026: 43,2760 33177 CA SELFADRS
012035,001027: 43,2761 55371 TS SKEEP1
012036,001028:
012037,001029: 43,2762 05524 TC ENDEXT # *
012038,001030:
012039,001031: 43,2763 01201 VNCON VN 501 # *
012040,001032:
012041,001033: 43,2764 31376 ENDSUMS CA SKEEP6 # *
012042,001034: 43,2765 00006 EXTEND # *
012043,001035: 43,2766 13270 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
012044,001036: 43,2767 03454 TC STSHOSUM # * START SHOWSUM AGAIN.
012045,001037:
012046,001038:
012047,001039: # VB 87 SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
012048,001040:
012049,001041: # VB 88 RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
012050,001042:
012051,001043: 43,2770 05632 RESETVHF TC TRFAILOF # TRACKER FAIL LIGHT
012052,001044: 43,2771 03065 TC DOWNX
012053,001045: 43,2772 00215 ADRES VHFRFLAG
012054,001046: 43,2773 03071 SETVHFLG TC UPX # V87 SET VHF RANGE FLAG
012055,001047:
012056,001048: # VERB 66. VEHICLES ARE ATTACHED. - MOVE THIS VEHICLE STATE VECTOR TO
012057,001049: # OTHER VEHICLE STATE VECTOR.
012058,001050:
|
|
Page 274 |
012060,001052: # USE SUBROUTINE GENTRAN.
012061,001053:
012062,001054: 43,2774 E3,1554 EBANK= RRECTHIS
012063,001055: 43,2774 34754 ATTACHED CAF PRIO10
012064,001056: 43,2775 05135 TC FINDVAC
012065,001057: 43,2776 E3,1554 EBANK= RRECTHIS
|
|
Added by JL, 2010-02-16 |
012067,001059: 43,2776 40,2000 SBANK= PINSUPER
|
|
End |
012069,001061: 43,2776 02000 36103 2CADR ATTACHIT
012070,001062:
012071,001063: 43,3000 05205 TC ENDOFJOB
012072,001064:
012073,001065: 17,2000 SETLOC EXTVRBS1
012074,001066: 17,2000 BANK
012075,001067: 17,2000 COUNT* $$/EXTVB
012076,001068: 17,2000 06006 ATTACHIT TC INTPRET
012077,001069: 17,2001 77624 CALL
012078,001070: 17,2002 27516 INTSTALL
012079,001071: 17,2003 43014 SET BON
012080,001072: 17,2004 04064 MOONOTH
012081,001073: 17,2005 04303 MOONTHIS
012082,001074: 17,2006 36011 CMMOVE
012083,001075: 17,2007 77614 CLEAR
012084,001076: 17,2010 04264 MOONOTH
012085,001077: 17,2011 77776 CMMOVE EXIT
012086,001078: 17,2012 32032 CAF OCT51
012087,001079: 17,2013 05607 TC GENTRAN
012088,001080: 17,2014 01554 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
012089,001081: 17,2015 01626 ADRES RRECTOTH
012090,001082:
012091,001083: 17,2016 06006 TACHEXIT TC INTPRET
012092,001084: 17,2017 77624 CALL # UPDATE RN, VN, R-OTHER, V-OTHER
012093,001085: 17,2020 27005 PTOACSM
012094,001086: 17,2021 45154 LXA,2 CALL
012095,001087: 17,2022 02150 PBODY
012096,001088: 17,2023 20240 SVDWN1
012097,001089: 17,2024 77624 CALL
012098,001090: 17,2025 20264 SVDWN2
012099,001091: 17,2026 77624 CALL
012100,001092: 17,2027 27525 INTWAKE0
012101,001093: 17,2030 77634 TCPIN RTB
012102,001094: 17,2031 21275 PINBRNCH
012103,001095:
012104,001096: 17,2032 00051 OCT51 OCT 51
012105,001097:
012106,001098: 43,2000 SETLOC EXTVERBS
012107,001099: 43,2000 BANK
012108,001100: 43,3001 COUNT* $$/EXTVB
012109,001101:
012110,001102: # VERB 47 MOVE LM STATE VECTOR INTO CSM STATE VECTOR.
012111,001103:
012112,001104: 43,3001 34754 LMTOCMSV CAF PRIO10
012113,001105: 43,3002 05135 TC FINDVAC
|
|
Page 275 |
012115,001107: 43,3003 E3,1554 EBANK= RRECTHIS
012116,001108: 43,3003 02033 36103 2CADR LMTOCM
012117,001109:
012118,001110: 43,3005 05205 TC ENDOFJOB
012119,001111:
012120,001112: 17,2000 SETLOC EXTVRBS1
012121,001113: 17,2000 BANK
012122,001114:
012123,001115: 17,2033 COUNT* $$/EXTVB
012124,001116: 17,2033 06006 LMTOCM TC INTPRET
012125,001117: 17,2034 77624 CALL
012126,001118: 17,2035 27516 INTSTALL
012127,001119: 17,2036 43014 SET BON
012128,001120: 17,2037 04063 MOONTHIS
012129,001121: 17,2040 04304 MOONOTH
012130,001122: 17,2041 36044 LMMOVE
012131,001123: 17,2042 77614 CLEAR
012132,001124: 17,2043 04263 MOONTHIS
012133,001125: 17,2044 77776 LMMOVE EXIT
012134,001126: 17,2045 32032 CAF OCT51
012135,001127: 17,2046 05607 TC GENTRAN
012136,001128: 17,2047 01626 ADRES RRECTOTH # LM STATE VECTOR INTO CM VIA GENTRAN
012137,001129: 17,2050 01554 ADRES RRECTHIS
012138,001130:
012139,001131: 17,2051 12016 TCF TACHEXIT
012140,001132:
012141,001133: # VERB 94 DO R64 VIA ENEMA TO PICK UP IN P23.
012142,001134:
012143,001135: 43,2000 SETLOC EXTVERBS
012144,001136: 43,2000 BANK
012145,001137: 43,3006 COUNT* $$/EXTVB
012146,001138: 43,3006 34756 VERB94 CAF V94FLBIT
012147,001139: 43,3007 70105 MASK FLAGWRD9 # IS V94FLAG SET
012148,001140: 43,3010 00006 EXTEND
012149,001141: 43,3011 12116 BZF ALM/END # NO - OPERATOR ERROR
012150,001142:
012151,001143: 43,3012 05561 TC DOWNFLAG
012152,001144: 43,3013 00213 ADRES V94FLAG
012153,001145:
012154,001146: 43,3014 05354 TC CHECKMM # IS IT P23
012155,001147: 43,3015 00027 MM 23 B-14
012156,001148: 43,3016 02116 TC ALM/END # NO - OPERATOR ERROR
012157,001149: 43,3017 05402 TC PHASCHNG
012158,001150: 43,3020 00112 OCT 112 # SET GROUP 2 TO DO R64
012159,001151:
012160,001152: 43,3021 01,2044 2P11SPT1 = 2.11SPOT
012161,001153: 43,3021 02673 TC CLEANOUT # CAUSE RESTART
012162,001154:
012163,001155: # V90PERF VERB 90 DESCRIPTION
012164,001156: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
|
|
Page 276 |
012166,001158: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012167,001159: # 2. SCHEDULE R36 CALL WITH PRIORITY 10
012168,001160: # A. DISPLAY
012169,001161: # TIME OF EVENT - HOURS , MINUTES , SECONDS
012170,001162: # Y OUT-OF-PLANE POSITION - NAUTICAL MILES
012171,001163: # YDOT OUT-OF-PLANE VELOCITY - FEET/SECOND
012172,001164: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
012173,001165: # DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
012174,001166:
012175,001167: 43,3022 02076 V90PERF TC TESTXACT
012176,001168: 43,3023 35051 CAF PRIO7 # R36,V90
012177,001169: 43,3024 05135 TC FINDVAC
012178,001170: 43,3025 40,2000 SBANK= PINSUPER
012179,001171: 43,3025 E7,1412 EBANK= TIG
012180,001172: 43,3025 02000 50107 2CADR R36
012181,001173:
012182,001174: 43,3027 15205 TCF ENDOFJOB
012183,001175:
012184,001176: # VERB 96 SET QUITFLAG TO STOP INTEGRATION.
012185,001177:
012186,001178: 43,3030 05547 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012187,001179: 43,3031 00221 ADRES QUITFLAG # AT NEXT TIMESTEP
012188,001180:
012189,001181: 43,3032 05547 TC UPFLAG
012190,001182: 43,3033 00204 ADRES V96ONFLG
012191,001183: 43,3034 34772 CAF ZERO
012192,001184: 43,3035 04655 TC POSTJUMP
012193,001185: 43,3036 10007 CADR V37 # GO TO POO
012194,001186:
012195,001187: 43,3037 E7,1751 EBANK= LANDMARK
012196,001188: 43,3037 05354 V52 TC CHECKMM # IS P22 OPERATING
012197,001189: 43,3040 00026 MM 22 B-14
012198,001190: 43,3041 02116 TC ALM/END # NO
012199,001191: 43,3042 04606 TC E7SETTER
012200,001192: 43,3043 45051 CS PRIO7 # YES SET BITS 12,11,10 OF LANDMARK =
012201,001193: 43,3044 71751 MASK LANDMARK # NO. OF MARKS TO GET OFFSET MARK NO.
012202,001194: 43,3045 55751 TS LANDMARK
012203,001195:
012204,001196: 43,3046 31747 CA 8NN # NO. OF MARKS
012205,001197: 43,3047 00006 EXTEND
012206,001198: 43,3050 74757 MP BIT10
012207,001199: 43,3051 30001 CA L
012208,001200: 43,3052 27751 ADS LANDMARK
012209,001201: 43,3053 02117 TC GOPIN
012210,001202:
012211,001203: # VERB 67 ASTRONAUT DISPLAY OF W MATRIX
012212,001204:
012213,001205: 43,3054 02076 V67 TC TESTXACT
012214,001206: 43,3055 35047 CAF PRIO5
012215,001207: 43,3056 05135 TC FINDVAC
|
|
Page 277 |
012217,001209: 43,3057 E5,1400 EBANK= W
012218,001210: 43,3057 03636 60105 2CADR V67CALL
012219,001211:
012220,001212: 43,3061 05205 TC ENDOFJOB
012221,001213:
012222,001214: # VB 45. RESET SURFACE FLAG
012223,001215:
012224,001216: 43,3062 03065 RESTSRF TC DOWNX
012225,001217: 43,3063 00177 ADRES SURFFLAG
012226,001218: 43,3064 03071 SETSURF TC UPX # VB 44. SET SURFACE FLAG
012227,001219:
|
|
Page 278 |
012229,001221:
012230,001222: # DOWNX, UPX FLAG SETTING AND RESETTING FOR EXTENDED VERBS.
012231,001223:
012232,001224: # RETURN IS TO GOPIN.
012233,001225:
012234,001226: # CALLING SEQUENCES:
012235,001227:
012236,001228: # FOR DOWNX
012237,001229:
012238,001230: # TC DOWNX
012239,001231: # ADRES (FLAG NAME)
012240,001232:
012241,001233: # FOR UPX
012242,001234:
012243,001235: # ADRES (FLAG NAME)
012244,001236: # TC UPX
012245,001237:
012246,001238: 43,3065 COUNT* $$/FLAG
012247,001239: 43,3065 30002 DOWNX CA Q
012248,001240: 43,3066 05565 TC DEBIT
012249,001241: 43,3067 70001 MASK L
012250,001242: 43,3070 13077 TCF COMXFLG
012251,001243:
012252,001244: 43,3071 30002 UPX CA Q
012253,001245: 43,3072 67701 AD NEG2
012254,001246: 43,3073 05565 TC DEBIT
012255,001247: 43,3074 40000 COM
012256,001248: 43,3075 00006 EXTEND
012257,001249: 43,3076 04001 ROR LCHAN
012258,001250:
012259,001251: 43,3077 50061 COMXFLG INDEX ITEMP1
012260,001252: 43,3100 54074 TS FLAGWRD0
012261,001253: 43,3101 12117 TCF GOPIN
012262,001254:
|
|
Page 279 |
012264,001256:
012265,001257: # VERB 57 SET FULL TRACK OPTION
012266,001258:
012267,001259: 43,3102 COUNT* $$/EXTVB
012268,001260: 43,3102 02076 V57CALL TC TESTXACT
012269,001261:
012270,001262: 43,3103 34766 PARTRACK CAF BIT3 # OPTION 4 SPECIFY CONDITION OF FULTKFLG
012271,001263: 43,3104 55255 TS OPTIONX
012272,001264:
012273,001265: 43,3105 34767 PRTRCK CAF FULTKBIT
012274,001266: 43,3106 70106 MASK FLGWRD10
012275,001267: 43,3107 00006 EXTEND
012276,001268: 43,3110 13112 BZF +2 # FULTKFLG NOT SET
012277,001269:
012278,001270: 43,3111 34770 CAF BIT1 # FULTKFLG SET
012279,001271: 43,3112 55256 TS OPTIONX +1
012280,001272: 43,3113 33131 CAF V04N12
012281,001273: 43,3114 04636 TC BANKCALL
012282,001274: 43,3115 20576 CADR GOXDSPF
012283,001275: 43,3116 05524 TC ENDEXT
012284,001276: 43,3117 05524 TC ENDEXT
012285,001277: 43,3120 31256 CA OPTIONX +1
012286,001278: 43,3121 00006 EXTEND
012287,001279: 43,3122 13126 BZF +4
012288,001280: 43,3123 05547 TC UPFLAG
012289,001281: 43,3124 00243 ADRES FULTKFLG
012290,001282: 43,3125 13105 TCF PRTRCK
012291,001283:
012292,001284: 43,3126 05561 TC DOWNFLAG
012293,001285: 43,3127 00243 ADRES FULTKFLG
012294,001286: 43,3130 13105 TCF PRTRCK
012295,001287:
012296,001288: 43,3131 01014 V04N12 VN 0412
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc