Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
011946,000002: ## Copyright: Public domain.
011947,000003: ## Filename: EXTENDED_VERBS.agc
011948,000004: ## Purpose: A section of LUM69 revision 2.
011949,000005: ## It is part of the reconstructed source code for the flown
011950,000006: ## version of the flight software for the Lunar Module's (LM)
011951,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
011952,000008: ## been recreated from a copy of Luminary revsion 069, using
011953,000009: ## changes present in Luminary 099 which were described in
011954,000010: ## Luminary memos 75 and 78. The code has been adapted such
011955,000011: ## that the resulting bugger words exactly match those specified
011956,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
011957,000013: ## relatively high confidence that the reconstruction is correct.
011958,000014: ## Reference: pp. 277-315
011959,000015: ## Assembler: yaYUL
011960,000016: ## Contact: Ron Burkey <info@sandroid.org>.
011961,000017: ## Website: www.ibiblio.org/apollo/index.html
011962,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
011963,000019:
|
|
Page 277
|
011965,000021: 07,2667 BANK 7
011966,000022: 43,2000 SETLOC EXTVERBS
011967,000023: 43,2000 BANK
011968,000024:
011969,000025: 43,2000 E5,1737 EBANK= OGC
011970,000026:
011971,000027: 43,2000 COUNT* $$/EXTVB
011972,000028: # FAN-OUT
011973,000029:
011974,000030: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
011975,000031: 43,2001 02002 TC LST2FAN # FAN AS BEFORE.
011976,000032:
011977,000033: 43,2002 02130 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
011978,000034: 43,2003 02171 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
011979,000035: # 72 ONLY)
011980,000036: 43,2004 02340 TC IMUFINEK # VB42 FINE ALIGN IMU
011981,000037: 43,2005 02717 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
011982,000038: 43,2006 02302 TC RRDESEND # VB44 TERMINATE CONTINUOUS DESIGNATE
011983,000039: 43,2007 02120 TC ALM/END # VB45 SPARE
011984,000040: 43,2010 02120 TC ALM/END # VB46 SPARE
011985,000041: 43,2011 02377 TC V47TXACT # VB47 AGS INITIALIZATION
011986,000042: 43,2012 03143 TC DAPDISP # VB48 LOAD A/P DATA
011987,000043: 43,2013 13025 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER
011988,000044: 43,2014 02371 TC GOLOADLV # VB50 PLEASE PERFORM
011989,000045: 43,2015 02120 TC ALM/END # VB51 SPARE
011990,000046: 43,2016 02371 TC GOLOADLV # VB52 PLEASE MARK X - RETICLE.
011991,000047: 43,2017 02371 TC GOLOADLV # VB53 PLEASE MARK Y - RETICLE.
011992,000048: 43,2020 02371 TC GOLOADLV # VB54 PLEASE MARK X OR Y - RETICLE
011993,000049: 43,2021 02411 TC ALINTIME # VB55 ALIGN TIME
011994,000050: 43,2022 03034 TC TRMTRACK # VB56 TERMINATE TRACKING - P20 + P25
011995,000051: 43,2023 02322 TC LRON # VB57 PERMIT LANDING RADAR UPDATES
011996,000052: 43,2024 02325 TC LROFF # VB58 INHIBIT LANDING RADAR UPDATES
011997,000053: 43,2025 02120 TC ALM/END # VB59 SPARE
011998,000054: 43,2026 02151 TC LRPOS2K # VB60 COMMAND LR TO POSITION 2.
011999,000055: 43,2027 02163 TC DAPATTER # VB61 DISPLAY DAP ATTITUDE ERROR
012000,000056: 43,2030 02166 TC TOTATTER # VB62 DISPLAY TOTAL ATTITUDE ERROR
012001,000057: 43,2031 02424 TC R04 # VB63 SAMPLE RADAR ONCE PER SECOND
012002,000058: 43,2032 02710 TC VB64 # VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
012003,000059: 43,2033 03227 TC SNUFFOUT # VB65 DISABLE U,V JETS DURING DPS BURNS.
012004,000060: 43,2034 03150 TC ATTACHED # VB66 ATTACHED MOVE THIS TO OTHER STATE
012005,000061: 43,2035 03221 TC V67 # VB67 W MATRIX MONITOR
012006,000062: 43,2036 02330 TC P64NOW # VB68 START P64 IMMEDIATELY.
012007,000063: 43,2037 02037 VERB69 TC VERB69 # VB69 FORCE A HARDWARE RESTART
012008,000064: 43,2040 03732 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
012009,000065: 43,2041 03734 TC V71UPDAT # VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
012010,000066: 43,2042 03736 TC V72UPDAT # VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
012011,000067: 43,2043 03740 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
012012,000068: 43,2044 03053 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
012013,000069: # FOR ERASABLE DUMP.
012014,000070: 43,2045 03232 TC OUTSNUFF # VB75 ENABLE U,V JETS DURING DPS BURNS.
012015,000071:
|
|
Page 278
|
012017,000073: 43,2046 03011 TC MINIMP # VB76 MINIMUM IMPULSE MODE
012018,000074: 43,2047 03016 TC NOMINIMP # VB77 RATE COMMAND MODE
012019,000075: 43,2050 02414 TC R77 # VB78 START LR SPURIOUS RETURN TEST
012020,000076: 43,2051 02627 TC R77END # VB79 TERMINATE LR SPURIOUS RETURN TEST
012021,000077: 43,2052 03057 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR
012022,000078: 43,2053 03062 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
012023,000079: 43,2054 02756 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
012024,000080: 43,2055 02766 TC V83PERF # VB83 REQUEST REND PARAM DISPLAY (R31)
012025,000081: 43,2056 02120 TC ALM/END # VB84 SPARE
012026,000082: 43,2057 03235 TC VERB85 # VB85 DISPLAY RR LOS AZ AND ELEV
012027,000083: 43,2060 02120 TC ALM/END # VB86 SPARE
012028,000084: 43,2061 02120 TC ALM/END # VB87 SPARE
012029,000085: 43,2062 02120 TC ALM/END # VB88 SPARE
012030,000086: 43,2063 02774 TC V89PERF # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
012031,000087: 43,2064 03003 TC V90PERF # VB90 OUT OF PLANE RENDEZVOUS DISPLAY
012032,000088: 43,2065 03106 TC GOSHOSUM # VB91 DISPLAY BANK SUM.
012033,000089: 43,2066 03072 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST.
012034,000090: 43,2067 03101 TC WMATRXNG # VB93 CLEAR RENDWFLG
012035,000091: 43,2070 02120 TC ALM/END # VB94 SPARE
012036,000092: 43,2071 03067 TC UPDATOFF # VB95 NO STATE VECTOR UPDATE ALLOWED
012037,000093: 43,2072 03214 TC VERB96 # VB96 INTERRUPT INTEGRATION AND GO TO POO
012038,000094: 43,2073 02371 TC GOLOADLV # VB97 PLEASE VERIFY ENGINE FAILURE
012039,000095: 43,2074 02120 TC ALM/END # VB98 SPARE
012040,000096: 43,2075 02371 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
012041,000097:
012042,000098: # END OF EXTENDED VERB FAN
012043,000099:
012044,000100: 43,2076 11044 TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY
012045,000101: 43,2077 02120 TC ALM/END # YES, TURN ON OPERATOR LIGHT
012046,000102: 43,2100 30100 CA FLAGWRD4 # ARE PRIORITY DISPLAYS USING DSKY
012047,000103: 43,2101 72127 MASK OC24100
012048,000104: 43,2102 10000 CCS A
012049,000105: 43,2103 02120 TC ALM/END # YES
012050,000106: 43,2104 36007 CAF OCT24 # SET BITS 3 AND 5
012051,000107: 43,2105 55044 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
012052,000108: # SYSTEM BUSY
012053,000109:
012054,000110: 43,2106 30002 CA Q
012055,000111: 43,2107 54155 TS MPAC +1
012056,000112:
012057,000113: 43,2110 44752 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
012058,000114: 43,2111 04154 TC NVSUB
012059,000115: 43,2112 02113 TC +1
012060,000116: 43,2113 00155 TC MPAC +1
012061,000117:
012062,000118: 43,2114 04364 XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT.
012063,000119: 43,2115 05472 TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS.
012064,000120:
012065,000121: 43,2116 5472 TERMEXTV EQUALS ENDEXT
012066,000122:
|
|
Page 279
|
012068,000124: 43,2116 5472 ENDEXTVB EQUALS ENDEXT
012069,000125:
012070,000126: 43,2116 34755 XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS.
012071,000127: 43,2117 02105 TC SETXTACT
012072,000128:
012073,000129: 43,2120 04364 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
012074,000130: 43,2121 04635 GOPIN TC POSTJUMP
012075,000131: 43,2122 20723 CADR PINBRNCH
012076,000132:
012077,000133: 43,2123 31011 CHKPOOH CA MODREG # CHECK FOR POO OR POO-.
012078,000134: 43,2124 00006 EXTEND
012079,000135: 43,2125 16741 BZF TCQ
012080,000136: 43,2126 02120 TC ALM/END
012081,000137:
012082,000138: 43,2127 24100 OC24100 OCT 24100
012083,000139:
|
|
Page 280
|
012085,000141: # VBZERO VERB 40 DESCRIPTION
012086,000142:
012087,000143: # 1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
012088,000144: # 2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
012089,000145: # FOR N72, CHECK IF EITHER RADAR IS IN USE.
012090,000146: # 3. EXECUTE THE CDU ZERO.
012091,000147: # 4. STALL UNTILL THE ZERO IS DONE.
012092,000148: # 5. DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
012093,000149: # 6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
012094,000150:
012095,000151: 43,2130 02174 VBZERO TC OP/INERT
012096,000152: 43,2131 02133 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
012097,000153: 43,2132 02142 TC RRZEROK # RETURN HERE IF NOUN = RCDU(72)
012098,000154: 43,2133 02405 IMUZEROK TC CKMODCAD
012099,000155: 43,2134 04616 TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO
012100,000156: 43,2135 16667 CADR IMUZERO
012101,000157:
012102,000158: 43,2136 04616 TC BANKCALL # STALL
012103,000159: 43,2137 17671 CADR IMUSTALL
012104,000160: 43,2140 02141 TC +1
012105,000161:
012106,000162: 43,2141 02121 TC GOPIN # IMUZERO
012107,000163:
012108,000164: 43,2142 02652 RRZEROK TC RDRUSECK
012109,000165: 43,2143 04616 TC BANKCALL
012110,000166: 43,2144 52343 CADR RRZERO
012111,000167:
012112,000168: 43,2145 04616 RWAITK TC BANKCALL
012113,000169: 43,2146 17667 CADR RADSTALL
012114,000170: 43,2147 12150 TCF +1
012115,000171: 43,2150 02121 TC GOPIN # RRZERO
012116,000172:
012117,000173: # LRPOS2K VERB 60 DESCRIPTION
012118,000174: # COMMAND LANDING RADAR TO POSITION 2
012119,000175: # 1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
012120,000176: # 2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
012121,000177: # THE PRESCRIBED TIME.
012122,000178: # 3. RE-ESTABLISH THE DISPLAYS.
012123,000179:
012124,000180: 43,2151 02652 LRPOS2K TC RDRUSECK
012125,000181: 43,2152 04616 TC BANKCALL # COMMAND LR TO POSITION 2
012126,000182: 43,2153 53471 CADR LRPOS2
012127,000183: 43,2154 04616 TC BANKCALL
012128,000184: 43,2155 17667 CADR RADSTALL
012129,000185: 43,2156 02160 TC LRP2ALM
012130,000186: 43,2157 02121 TC GOPIN
012131,000187:
012132,000188: 43,2160 05567 LRP2ALM TC ALARM
012133,000189: 43,2161 00523 OCT 523
012134,000190: 43,2162 02121 TC GOPIN
012135,000191:
|
|
Page 281
|
012137,000193:
012138,000194: # V61 VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
012139,000195:
012140,000196: 43,2163 05516 DAPATTER TC DOWNFLAG
012141,000197: 43,2164 00013 ADRES NEEDLFLG
012142,000198: 43,2165 02121 TC GOPIN
012143,000199:
012144,000200: # V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
012145,000201:
012146,000202: 43,2166 05504 TOTATTER TC UPFLAG
012147,000203: 43,2167 00013 ADRES NEEDLFLG
012148,000204: 43,2170 02121 TC GOPIN
012149,000205:
|
|
Page 282
|
012151,000207: # VBCOARK VERB 41 DESCRIPTION
012152,000208: # COARSE ALIGN IMU OR RADAR
012153,000209: # 1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
012154,000210: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
012155,000211: # CASE 1 NOUN 20 (ICDU ANGLES)
012156,000212: # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
012157,000213: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
012158,000214: # RESPONSES
012159,000215: # A. TERMINATE
012160,000216: # 1. RELEASE EXT VERB DISPLAY SYSTEM
012161,000217: # B. PROCEED
012162,000218: # 1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
012163,000219: # C. ENTER
012164,000220: # 1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
012165,000221: # ICORK2
012166,000222: # 1. RE-DISPLAY VERB 41.
012167,000223: # 2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
012168,000224: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
012169,000225: # 4. RELEASE EXT VERB DISPLAY SYSTEM.
012170,000226: # CASE 2 NOUN 72 (RCDU ANGLES)
012171,000227: # EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
012172,000228: # 5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
012173,000229: # RESPONSES
012174,000230: # A. TERMINATE
012175,000231: # 1. RELEASE EXT VERB DISPLAY SYS.
012176,000232: # B. PROCEED OR ENTER
012177,000233: # 1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
012178,000234: # 2. RE-DISPLAY VERB 41.
012179,000235: # 3. SCHEDULE RRDESK2 WITH PRIORITY 20.
012180,000236: # 4. RELEASE EXT VERB DISPLAY SYS.
012181,000237:
012182,000238: # AURLOKON
012183,000239:
012184,000240: # 1. FLASH V04 N12 R1 = 00006 R2 = 00002
012185,000241: # RESPONSES
012186,000242: # A. TERMINATE
012187,000243: # B. PROCEED
012188,000244: # 1. RESET LOCK-ON SWITCH
012189,000245: # 2. SET CONTINUOUS DESIGNATE FLAG
012190,000246: # 3. DISABLE R25
012191,000247: # C. V22 E 1 E, R1 = 00001, PROCEED
012192,000248: # 1. SET LOCK-ON SWITCH
012193,000249: 43,2171 02174 VBCOARK TC OP/INERT
012194,000250: 43,2172 02205 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
012195,000251: 43,2173 02227 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (72)
012196,000252: # RETURNS TO L+1 IF IMU OR L+2 IF RR.
012197,000253:
012198,000254: 43,2174 46007 OP/INERT CS OCT24
012199,000255: 43,2175 61002 AD NOUNREG
012200,000256: 43,2176 00006 EXTEND
012201,000257:
|
|
Page 283
|
012203,000259: 43,2177 16741 BZF TCQ # IF = 20.
012204,000260:
012205,000261: 43,2200 62204 AD RRIMUDIF # -52
012206,000262: 43,2201 00006 EXTEND
012207,000263: 43,2202 16736 BZF Q+1
012208,000264:
012209,000265: 43,2203 02120 TC ALM/END # ILLEGAL.
012210,000266:
012211,000267: 43,2204 77713 RRIMUDIF DEC -52 B-14 # THE IMU
012212,000268: 43,2205 02405 IMUCOARK TC CKMODCAD
012213,000269: 43,2206 02076 TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
012214,000270: 43,2207 32225 CAF VNLODCDU # CALL FOR THETAD LOAD
012215,000271: 43,2210 04616 TC BANKCALL
012216,000272: 43,2211 20212 CADR GOXDSPF
012217,000273: 43,2212 05472 TC TERMEXTV
012218,000274: 43,2213 12214 TCF +1
012219,000275:
012220,000276: 43,2214 32226 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
012221,000277: 43,2215 04616 TC BANKCALL
012222,000278: 43,2216 20473 CADR EXDSPRET
012223,000279:
012224,000280: 43,2217 04616 TC BANKCALL # CALL MODE SWITCHING PROG
012225,000281: 43,2220 16753 CADR IMUCOARS
012226,000282:
012227,000283: 43,2221 04616 TC BANKCALL # STALL
012228,000284: 43,2222 17671 CADR IMUSTALL
012229,000285: 43,2223 05472 TC ENDEXTVB
012230,000286: 43,2224 05472 TC ENDEXTVB
012231,000287:
012232,000288: 43,2225 06226 VNLODCDU VN 2522
012233,000289: 43,2226 12200 IMUCOARV VN 4100
012234,000290:
|
|
Page 284
|
012236,000292: # DESIGNATE TO DESIRED GIMBAL ANGLES.
012237,000293:
012238,000294: 43,2227 02652 RRDESNBK TC RDRUSECK
012239,000295: 43,2230 02076 TC TESTXACT
012240,000296: 43,2231 34745 CA RNDVZBIT # IS P20 RUNNING?
012241,000297: 43,2232 70074 MASK FLAGWRD0
012242,000298: 43,2233 10000 CCS A
012243,000299: 43,2234 12114 TCF XACTALM # OPERATOR ERROR IF IN P20
012244,000300: 43,2235 42321 CS OCT41000 # TERMINATE PRESENT DESIGNATION
012245,000301: 43,2236 00004 INHINT # RELINT DONE IN GOXDSPF
012246,000302: 43,2237 70110 MASK RADMODES
012247,000303: 43,2240 54110 TS RADMODES
012248,000304:
012249,000305: 43,2241 32260 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
012250,000306: 43,2242 04616 TC BANKCALL
012251,000307: 43,2243 20212 CADR GOXDSPF
012252,000308: 43,2244 05472 TC TERMEXTV
012253,000309: 43,2245 12241 TCF -4 # V33
012254,000310:
012255,000311: 43,2246 04616 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
012256,000312: 43,2247 46000 CADR AURLOKON
012257,000313:
012258,000314: 43,2250 32226 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
012259,000315: 43,2251 04616 TC BANKCALL
012260,000316: 43,2252 20473 CADR EXDSPRET
012261,000317:
012262,000318: 43,2253 34736 CAF PRIO20
012263,000319: 43,2254 05105 TC FINDVAC
012264,000320: 43,2255 E7,1454 EBANK= LOSCOUNT
012265,000321: 43,2255 02261 66107 2CADR RRDESK2
012266,000322:
012267,000323: 43,2257 15472 TCF TERMEXTV # FREES DISPLAY.
012268,000324:
012269,000325: 43,2260 06111 VNLDRCDU VN 2473
012270,000326: 43,2261 43,2226 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
012271,000327:
012272,000328: 43,2261 04616 RRDESK2 TC BANKCALL
012273,000329: 43,2262 52475 CADR RRDESNB
012274,000330:
012275,000331: 43,2263 02264 TC +1 # DUMMY NEEDED SINCE DESRETRN DOES INCR
012276,000332: 43,2264 30167 CA PRIORITY
012277,000333: 43,2265 75004 MASK LOW9
012278,000334: 43,2266 10000 CCS A
012279,000335: 43,2267 50000 INDEX A
012280,000336: 43,2270 54000 TS A # RELEASE THIS JOBS VAC AREA.
012281,000337: 43,2271 40000 COM # INSURE ENDOFJOB DOES A NOVAC END (BZMF).
012282,000338: 43,2272 26167 ADS PRIORITY
012283,000339: 43,2273 04616 TC BANKCALL # WAIT FOR COMPLETION OF DESIGNATE
012284,000340: 43,2274 17667 CADR RADSTALL
012285,000341:
|
|
Page 285
|
012287,000343: 43,2275 02277 TC +2 # BADEND-NO LOCKON OR OUT OF LIMITS
012288,000344: 43,2276 05155 TC ENDOFJOB # GOODEND-LOCKON ACHIEVED
012289,000345: 43,2277 05567 TC ALARM
012290,000346: 43,2300 00503 OCT 503 # TURN ON ALARM LIGHT -503 DESIGNATE FAIL
012291,000347: 43,2301 05155 TC ENDOFJOB
012292,000348:
012293,000349: 43,2302 10110 RRDESEND CCS RADMODES # TERMINATE CONTINUOUS DESIGNATE ONLY
012294,000350: 43,2303 12121 TCF GOPIN
012295,000351: 43,2304 12121 TCF GOPIN
012296,000352: 43,2305 12306 TCF +1
012297,000353: 43,2306 42321 CS OCT41000 # BEGDES GOES TO ENDRADAR
012298,000354: 43,2307 00004 INHINT # RELINT DONE IN DOWNFLAG
012299,000355: 43,2310 70110 MASK RADMODES
012300,000356: 43,2311 54110 TS RADMODES
012301,000357: 43,2312 06011 TC CLRADMOD
012302,000358: 43,2313 34777 CAF 1SEC
012303,000359: 43,2314 04616 TC BANKCALL
012304,000360: 43,2315 01735 CADR DELAYJOB
012305,000361: 43,2316 05516 TC DOWNFLAG # ENABLE R25 GIMBAL MONITOR
012306,000362: 43,2317 00126 ADRES NORRMON
012307,000363: 43,2320 12121 TCF GOPIN
012308,000364: 43,2321 41000 OCT41000 OCT 41000 # CONTINUOUS DESIGNATE - DESIGNATE
012309,000365:
|
|
Page 286
|
012311,000367: 23,2000 BANK 23
012312,000368: 23,2000 SETLOC EXTVB1
012313,000369: 23,2000 BANK
012314,000370: 23,2000 COUNT* $$/EXTVB
012315,000371:
012316,000372: 23,2000 04645 AURLOKON TC MAKECADR
012317,000373: 23,2001 55113 TS DESRET
012318,000374: 23,2002 34752 CAF TWO
012319,000375: 23,2003 55052 TS OPTIONX +1
012320,000376: 23,2004 36241 CAF SIX # OPTION CODE FOR V04N12
012321,000377: 23,2005 55051 TS OPTIONX
012322,000378:
012323,000379: 23,2006 32037 -5 CAF V04N1272
012324,000380: 23,2007 04616 TC BANKCALL # R2 00001 LOCK-ON
012325,000381: 23,2010 20231 CADR GOMARKFR
012326,000382: 23,2011 15472 TCF ENDEXT # V34
012327,000383: 23,2012 12017 TCF +5 # V33
012328,000384: 23,2013 12006 TCF -5 # V32
012329,000385: 23,2014 34751 CAF BIT3
012330,000386: 23,2015 05464 TC BLANKET
012331,000387: 23,2016 05155 TC ENDOFJOB
012332,000388:
012333,000389: 23,2017 31052 +5 CA OPTIONX +1
012334,000390: 23,2020 74752 MASK BIT2
012335,000391: 23,2021 10000 CCS A
012336,000392: 23,2022 12026 TCF NOLOKON
012337,000393: 23,2023 05504 TC UPFLAG
012338,000394: 23,2024 00012 ADRES LOKONSW
012339,000395: 23,2025 12034 TCF AURLKON1
012340,000396:
012341,000397: 23,2026 05516 NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMODES TO
012342,000398: 23,2027 00012 ADRES LOKONSW # INDICATE THAT CONTINUOUS DESIGNATION IS
012343,000399: 23,2030 05504 TC UPFLAG # WANTED (TO BE TERMINATED BY V44.)
012344,000400: 23,2031 00264 ADRES CDESFLAG
012345,000401: 23,2032 05504 TC UPFLAG # SET NO RR ANGLE MONITOR FLAG.
012346,000402: 23,2033 00126 ADRES NORRMON # (DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
012347,000403: 23,2034 00003 AURLKON1 RELINT
012348,000404: 23,2035 31113 CA DESRET
012349,000405: 23,2036 14640 TCF BANKJUMP
012350,000406:
012351,000407:
012352,000408: 23,2037 01014 V04N1272 VN 412
012353,000409: 23,2040 77757 -LOKONFG OCT -20
012354,000410:
012355,000411: 43,2322 BANK 43
012356,000412: 43,2000 SETLOC EXTVERBS
012357,000413: 43,2000 BANK
012358,000414: 43,2322 COUNT* $$/EXTVB
012359,000415:
012360,000416: 43,2322 05504 LRON TC UPFLAG # PERMIT INCORPORATION OF LR DATA V57
012361,000417:
|
|
Page 287
|
012363,000419: 43,2323 00254 ADRES LRINH
012364,000420: 43,2324 12121 TCF GOPIN
012365,000421:
012366,000422: 43,2325 05516 LROFF TC DOWNFLAG # INHIBIT INCORPORATION OF LR DATA V58
012367,000423: 43,2326 00254 ADRES LRINH
012368,000424: 43,2327 12121 TCF GOPIN
012369,000425:
012370,000426:
012371,000427: # THIS EXTENDED VERB CAUSES P63 TO SWITCH INTO P64.
012372,000428:
012373,000429:
012374,000430: 43,2330 E7,1425 EBANK= TENDBRAK
012375,000431: 43,2330 05321 P64NOW TC CHECKMM # ARE WE CURRENTLY IN P63?
012376,000432: 43,2331 00077 DEC 63 B-14
012377,000433: 43,2332 12120 TCF ALM/END # NO LIGHT OPERATOR ERROR LIGHT.
012378,000434: 43,2333 35016 CAF EBANK7
012379,000435: 43,2334 54003 TS EBANK
012380,000436: 43,2335 34733 CAF POSMAX
012381,000437: 43,2336 55425 TS TENDBRAK
012382,000438: 43,2337 12121 TCF GOPIN
012383,000439:
012384,000440: 43,2340 E5,1737 EBANK= OGC
012385,000441:
|
|
Page 288
|
012387,000443: # IMUFINEK VERB 42 DESCRIPTION
012388,000444: # FINE ALIGN IMU
012389,000445: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
012390,000446: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
012391,000447: # RESPONSES
012392,000448: # A. TERMINATE
012393,000449: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
012394,000450: # B. PROCEED OR ENTER
012395,000451: # 1. RE-DISPLAY VERB 42
012396,000452: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
012397,000453: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
012398,000454: # A. FAILED
012399,000455: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
012400,000456: # B. GOOD
012401,000457: # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
012402,000458: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
012403,000459:
012404,000460: 43,2340 02405 IMUFINEK TC CKMODCAD
012405,000461: 43,2341 02076 TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
012406,000462: 43,2342 32367 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
012407,000463: 43,2343 04616 TC BANKCALL
012408,000464: 43,2344 20212 CADR GOXDSPF
012409,000465: 43,2345 05472 TC TERMEXTV
012410,000466: 43,2346 02347 TC +1 # PROCEED WITHOUT A LOAD
012411,000467:
012412,000468: 43,2347 32370 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
012413,000469: 43,2350 04616 TC BANKCALL
012414,000470: 43,2351 20473 CADR EXDSPRET
012415,000471:
012416,000472: 43,2352 04616 TC BANKCALL # CALL MODE SWITCH PROG
012417,000473: 43,2353 17163 CADR IMUFINE
012418,000474:
012419,000475: 43,2354 04616 TC BANKCALL # HIBERNATION
012420,000476: 43,2355 17671 CADR IMUSTALL
012421,000477: 43,2356 05472 TC ENDEXTVB
012422,000478:
012423,000479: 43,2357 32366 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
012424,000480: 43,2360 04616 TC BANKCALL
012425,000481: 43,2361 17276 CADR IMUPULSE
012426,000482:
012427,000483: 43,2362 04616 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
012428,000484: 43,2363 17671 CADR IMUSTALL
012429,000485: 43,2364 05472 TC ENDEXTVB
012430,000486: 43,2365 05472 TC ENDEXTVB
012431,000487:
012432,000488: 43,2366 02737 LGYROBIN ECADR OGC
012433,000489: 43,2367 06335 VNLODGYR VN 2593
012434,000490: 43,2370 12400 IMUFINEV VN 4200
012435,000491: # GOLOADLV VERB 50 DESCRIPTION
012436,000492: # AND OTHER PLEASE
012437,000493:
|
|
Page 289
|
012439,000495: # DO SOMETHING VERBS
012440,000496: # PLEASE PERFORM, MARK, CALIBRATE, ETC.
012441,000497: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
012442,000498: # SAME RECALL AS A COMPLETED LOAD.
012443,000499: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
012444,000500:
012445,000501: 43,2371 40,2000 SBANK= PINSUPER # FOR LOADLV1 AND SHOWSUM CADR'S.
012446,000502:
012447,000503: 43,2371 04433 GOLOADLV TC FLASHOFF
012448,000504:
012449,000505: 43,2372 34201 CAF PINSUPBT
012450,000506: 43,2373 00006 EXTEND
012451,000507: 43,2374 01007 WRITE SUPERBNK
012452,000508: 43,2375 04635 TC POSTJUMP
012453,000509: 43,2376 62001 CADR LOADLV1
012454,000510:
012455,000511: # VERB 47 - AGS INITIALIZATION - R47.
012456,000512:
012457,000513: # SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
012458,000514:
012459,000515: 43,2377 02076 V47TXACT TC TESTXACT # NO OTHER EXTVERB.
012460,000516: 43,2400 34740 CAF PRIO4
012461,000517: 43,2401 05105 TC FINDVAC
012462,000518: 43,2402 E4,1604 EBANK= AGSBUFF
012463,000519: 43,2402 02015 64064 2CADR AGSINIT
012464,000520:
012465,000521: 43,2404 05155 TC ENDOFJOB
012466,000522:
012467,000523: 43,2405 31304 CKMODCAD CA MODECADR
012468,000524: 43,2406 00006 EXTEND
012469,000525: 43,2407 16741 BZF TCQ
012470,000526: 43,2410 02120 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT
012471,000527:
|
|
Page 290
|
012473,000529: # ALINTIME VERB 55 DESCRIPTION
012474,000530: # REQUIRE POO OR POO-.
012475,000531: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012476,000532: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
012477,000533: # 3. REQUIRE EXECUTION OF VERB 23.
012478,000534: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
012479,000535: # 5. RELEASE EXT VERB DISPLAY SYSTEM
012480,000536:
012481,000537: 43,2411 02076 ALINTIME TC TESTXACT
012482,000538: 43,2412 04635 TC POSTJUMP # NO ROOM IN 43
012483,000539: 43,2413 64002 CADR R33
012484,000540:
012485,000541: 42,2002 BANK 42
012486,000542: 42,2000 SETLOC SBAND
012487,000543: 42,2000 BANK
012488,000544: 42,2002 COUNT* $$/R33
012489,000545:
012490,000546: 42,2002 35021 R33 CAF PRIO7
012491,000547: 42,2003 05146 TC PRIOCHNG
012492,000548: 42,2004 32034 CAF VNLODDT
012493,000549: 42,2005 04616 TC BANKCALL
012494,000550: 42,2006 20212 CADR GOXDSPF
012495,000551: 42,2007 05472 TC ENDEXT # TERMINATE
012496,000552: 42,2010 05472 TC ENDEXT # PROCEED
012497,000553: 42,2011 42033 CS DEC23 # DATA IN OR RESEQUENCE(UNLIKELY)
012498,000554: 42,2012 60154 AD MPAC # RECALL LEFT VERB IN MPAC
012499,000555: 42,2013 00006 EXTEND
012500,000556: 42,2014 12016 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
012501,000557: 42,2015 05472 TC ENDEXT # WITH V23 (DATA IN).
012502,000558:
012503,000559: 42,2016 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
012504,000560: 42,2017 34755 CAF ZERO
012505,000561: 42,2020 54156 TS MPAC +2 # NEEDED FOR TP AGREE
012506,000562: 42,2021 54001 TS L # ZERO T1 + 2 WHILE ALIGNING.
012507,000563: 42,2022 52025 DXCH TIME2
012508,000564: 42,2023 52155 DXCH MPAC
012509,000565: 42,2024 53052 DXCH DSPTEM2 +1 # INCREMENT
012510,000566: 42,2025 20155 DAS MPAC
012511,000567:
012512,000568: 42,2026 07256 TC TPAGREE # FORCE SIGN AGREEMENT.
012513,000569: 42,2027 52155 DXCH MPAC # NEW CLOCK.
012514,000570: 42,2030 20025 DAS TIME2
012515,000571: 42,2031 00003 RELINT
012516,000572: 42,2032 05472 UPDTMEND TC ENDEXT
012517,000573:
012518,000574: 42,2033 00027 DEC23 DEC 23 B-14 # V 23
012519,000575:
012520,000576: 42,2034 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
012521,000577:
|
|
Page 291
|
012523,000579: # SET UP FOR RADAR SAMPLING.
012524,000580:
012525,000581: 42,2035 BANK 42
012526,000582: 43,2000 SETLOC EXTVERBS
012527,000583: 43,2000 BANK
012528,000584:
012529,000585: 43,2414 E4,1604 EBANK= RSTACK
012530,000586:
012531,000587: 43,2414 COUNT* $$/R0477
012532,000588:
012533,000589: 43,2414 02652 R77 TC RDRUSECK # TRY TO AVOID THE 1210.
012534,000590: 43,2415 30077 CA FLAGWRD3 # IS R04 RUNNING?
012535,000591: 43,2416 74743 MASK R04FLBIT
012536,000592: 43,2417 10000 CCS A
012537,000593: 43,2420 02120 TC ALM/END # YES.
012538,000594: 43,2421 05504 TC UPFLAG
012539,000595: 43,2422 00117 ADRES R77FLAG
012540,000596: 43,2423 12430 TCF R04Z
012541,000597:
012542,000598: 43,2424 02652 R04 TC RDRUSECK # TRY TO AVOID THE 1210.
012543,000599: 43,2425 02076 TC TESTXACT
012544,000600: 43,2426 05504 TC UPFLAG
012545,000601: 43,2427 00063 ADRES R04FLAG # SET R04FLAG FOR ALARMS
012546,000602:
012547,000603: 43,2430 34741 R04Z CAF EBANK4
012548,000604: 43,2431 54003 TS EBANK
012549,000605: 43,2432 32650 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
012550,000606: 43,2433 55761 TS RSAMPDT
012551,000607: 43,2434 34755 CAF ZERO
012552,000608: 43,2435 55760 TS RTSTLOC
012553,000609: 43,2436 55762 TS RFAILCNT # ZERO BAD SAMPLE COUNTER
012554,000610:
012555,000611: 43,2437 00004 INHINT
012556,000612: 43,2440 42651 CS LRPOSCAL # INITIALIZE
012557,000613: 43,2441 70110 MASK RADMODES # BIT 9 LR RANGE LOW SCALE =0
012558,000614: 43,2442 54110 TS RADMODES # BIT 6 LR POS 1 =0
012559,000615: 43,2443 32651 CAF LRPOSCAL # BIT 3 RR RANGE LOW SCALE =0
012560,000616: 43,2444 00006 EXTEND
012561,000617: 43,2445 02033 RAND CHAN33
012562,000618: 43,2446 26110 ADS RADMODES
012563,000619: 43,2447 00003 RELINT
012564,000620:
012565,000621: 43,2450 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
012566,000622: 43,2451 74743 MASK R04FLBIT
012567,000623: 43,2452 10000 CCS A
012568,000624: 43,2453 12605 TCF R04K
012569,000625:
012570,000626: 43,2454 34753 CAF ONE # INDICATES RENDEZVOUS DESIRED
012571,000627: 43,2455 55052 TS OPTIONX +1
012572,000628: 43,2456 34751 R04A CAF BIT3 # OPTION CODE FOR V04N12
012573,000629:
|
|
Page 292
|
012575,000631: 43,2457 55051 TS OPTIONX
012576,000632: 43,2460 32645 CAF V04N12X
012577,000633: 43,2461 04616 TC BANKCALL # R2 00001 RENDEZVOUS RADAR
012578,000634: 43,2462 20231 CADR GOMARKFR # 00002 LANDING RADAR
012579,000635: 43,2463 12613 TCF R04END # V34
012580,000636: 43,2464 12471 TCF +5 # V33
012581,000637: 43,2465 12460 TCF R04A +2 # R2
012582,000638: 43,2466 34751 CAF BIT3
012583,000639: 43,2467 05464 TC BLANKET
012584,000640: 43,2470 05155 TC ENDOFJOB
012585,000641:
012586,000642: 43,2471 31052 CA OPTIONX +1 # SAVE DESIRED OPTION RR =1 LR =2
012587,000643: 43,2472 55755 TS RTSTDEX
012588,000644:
012589,000645: 43,2473 36241 R04X CAF SIX # RR OR LR DESIRED
012590,000646: 43,2474 71755 MASK RTSTDEX
012591,000647: 43,2475 10000 CCS A
012592,000648: 43,2476 12607 TCF R04L # LANDING RADAR
012593,000649: 43,2477 55757 TS RTSTBASE # FOR RR BASE = 0, MAX = 1
012594,000650:
012595,000651: 43,2500 34752 R04B CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
012596,000652: 43,2501 00006 EXTEND
012597,000653: 43,2502 02033 RAND CHAN33
012598,000654: 43,2503 00006 EXTEND
012599,000655: 43,2504 12515 BZF R04C # YES
012600,000656:
012601,000657: 43,2505 32647 CAF 201R04 # REQUEST SELECTION OF RR AUTO MODE
012602,000658: 43,2506 55045 TS DSPTEM1
012603,000659: 43,2507 32646 CAF V50N25X
012604,000660: 43,2510 04616 TC BANKCALL
012605,000661: 43,2511 20223 CADR GOMARK4
012606,000662: 43,2512 12613 TCF R04END # V34
012607,000663: 43,2513 12500 TCF R04B # V33
012608,000664: 43,2514 12505 TCF -7 # E
012609,000665:
012610,000666: 43,2515 34736 R04C CAF BIT14 # ENABLE RR AUTO TRACKER
012611,000667: 43,2516 00006 EXTEND
012612,000668: 43,2517 05012 WOR CHAN12
012613,000669:
012614,000670: 43,2520 34752 CAF TWO
012615,000671: 43,2521 55756 TS RTSTMAX # FOR SEQUENTIAL STORAGE
012616,000672:
012617,000673: 43,2522 05203 TC WAITLIST
012618,000674: 43,2523 E4,1604 EBANK= RSTACK
012619,000675: 43,2523 02003 52104 2CADR RADSAMP
012620,000676:
012621,000677: 43,2525 00003 RELINT
012622,000678:
012623,000679: 43,2526 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
012624,000680: 43,2527 74743 MASK R04FLBIT
012625,000681:
|
|
Page 293
|
012627,000683: 43,2530 10000 CCS A
012628,000684: 43,2531 12121 TCF GOPIN # R77
012629,000685:
012630,000686: 43,2532 36241 CAF SIX # RR OR LR
012631,000687: 43,2533 71755 MASK RTSTDEX
012632,000688: 43,2534 10000 CCS A
012633,000689: 43,2535 12552 TCF R04LR # LR
012634,000690:
012635,000691: 43,2536 32641 R04RR CAF V16N72 # DISPLAY RR CDU ANGLES (1/SEC)
012636,000692: 43,2537 04616 TC BANKCALL # R1 + XXX.XX DEG TRUNNION
012637,000693: 43,2540 20212 CADR GOMARKF # R2 + XXX.XX DEG SHAFT
012638,000694: 43,2541 12613 TCF R04END # V34 R3 BLANK
012639,000695: 43,2542 12544 TCF +2 # V33
012640,000696: 43,2543 12536 TCF R04RR # V32
012641,000697:
012642,000698: 43,2544 32642 CAF V16N78 # DISPLAY RR RANGE AND RANGE RATE (1/SEC)
012643,000699: 43,2545 04616 TC BANKCALL # R1 +- XXX.XX NM RANGE
012644,000700: 43,2546 20212 CADR GOMARKF # R2 +- XXXXX. FPS RANGE RATE
012645,000701: 43,2547 12613 TCF R04END # V34 R3 BLANK
012646,000702: 43,2550 12566 TCF R04Y # V33
012647,000703: 43,2551 12536 TCF R04RR # V32
012648,000704:
012649,000705: 43,2552 32643 R04LR CAF V16N66 # DISPLAY LR RANGE AND POSITION (1/SEC)
012650,000706: 43,2553 04616 TC BANKCALL # R1 +- XXXXX. FT LR RANGE
012651,000707: 43,2554 20212 CADR GOMARKF # R2 + 0000X. POS. NO.
012652,000708: 43,2555 12613 TCF R04END # V34 R3 BLANK
012653,000709: 43,2556 12560 TCF +2 # V33
012654,000710: 43,2557 12552 TCF R04LR # V32
012655,000711:
012656,000712: 43,2560 32644 CAF V16N67 # DISPLAY LR VELX, VELY, VELZ (1/SEC)
012657,000713: 43,2561 04616 TC BANKCALL # R1 +- XXXXX. FPS LR V(X)
012658,000714: 43,2562 20212 CADR GOMARKF # R2 +- XXXXX. FPS LR V(Y)
012659,000715: 43,2563 12613 TCF R04END # V34 R3 +- XXXXX. FPS LR V(Z)
012660,000716: 43,2564 12566 TCF R04Y # V33
012661,000717: 43,2565 12552 TCF R04LR # V32
012662,000718:
012663,000719: 43,2566 34755 R04Y CAF ZERO # TO TERMINATE SAMPLING
012664,000720: 43,2567 55761 TS RSAMPDT
012665,000721: 43,2570 35000 CAF 2SECS # WAIT FOR LAST RADARUPT
012666,000722: 43,2571 04616 TC BANKCALL
012667,000723: 43,2572 01735 CADR DELAYJOB
012668,000724: 43,2573 32650 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
012669,000725: 43,2574 55761 TS RSAMPDT
012670,000726: 43,2575 34755 CAF ZERO # FOR STORING RESULTS
012671,000727: 43,2576 55760 TS RTSTLOC
012672,000728: 43,2577 36241 CAF SIX
012673,000729: 43,2600 71755 MASK RTSTDEX
012674,000730: 43,2601 10000 CCS A
012675,000731: 43,2602 44753 CS ONE # WAS LR
012676,000732: 43,2603 64752 AD TWO # WAS RR
012677,000733:
|
|
Page 294
|
012679,000735:
012680,000736: 43,2604 12472 TCF R04X -1
012681,000737:
012682,000738: 43,2605 34766 R04K CAF 250MS+1 # SAMPLE 4 LR COMPONENTS PER SECOND.
012683,000739: 43,2606 55761 TS RSAMPDT
012684,000740:
012685,000741: 43,2607 34752 R04L CAF TWO
012686,000742: 43,2610 55757 TS RTSTBASE # FOR LR BASE = 2, MAX = 3
012687,000743: 43,2611 36241 CAF SIX
012688,000744: 43,2612 12521 TCF R04C +4
012689,000745: 43,2613 34755 R04END CAF ZERO # ZERO RSAMPDT
012690,000746: 43,2614 55761 TS RSAMPDT # TO TERMINATE SAMPLING
012691,000747: 43,2615 34744 CAF BIT8 # WAIT 1.28 SECONDS FOR POSSIBLE
012692,000748: 43,2616 04616 TC BANKCALL # PENDING RUPT.
012693,000749: 43,2617 01735 CADR DELAYJOB
012694,000750:
012695,000751: 43,2620 00004 INHINT
012696,000752: 43,2621 44736 CS BIT14 # DISABLE RR AUTO TRACKER
012697,000753: 43,2622 00006 EXTEND
012698,000754: 43,2623 03012 WAND CHAN12
012699,000755:
012700,000756: 43,2624 05516 TC DOWNFLAG
012701,000757: 43,2625 00063 ADRES R04FLAG # SIGNAL END OF R04.
012702,000758:
012703,000759: 43,2626 05472 TC ENDEXT
012704,000760:
012705,000761: 43,2627 34741 R77END CAF EBANK4 # TO TERMINATE SAMPLING
012706,000762: 43,2630 54003 TS EBANK
012707,000763: 43,2631 34755 CAF ZERO
012708,000764: 43,2632 55761 TS RSAMPDT
012709,000765: 43,2633 34746 CAF BIT6 # WAIT 320 MS FOR POSSIBLE
012710,000766: 43,2634 04616 TC BANKCALL # PENDING RUPT.
012711,000767: 43,2635 01735 CADR DELAYJOB
012712,000768:
012713,000769: 43,2636 05516 TC DOWNFLAG
012714,000770: 43,2637 00117 ADRES R77FLAG
012715,000771: 43,2640 12121 TCF GOPIN
012716,000772:
012717,000773: 43,2641 04110 V16N72 VN 1672
012718,000774: 43,2642 04116 V16N78 VN 1678
012719,000775: 43,2643 04102 V16N66 VN 1666
012720,000776: 43,2644 04103 V16N67 VN 1667
012721,000777: 43,2645 01014 V04N12X VN 412
012722,000778: 43,2646 14431 V50N25X VN 5025
012723,000779: 43,2647 00201 201R04 OCT 00201
012724,000780: 43,2650 00145 1SEC+1 DEC 101 B-14
012725,000781: 43,2651 4766 250MS+1 EQUALS CALLCODE
012726,000782: 43,2651 00444 LRPOSCAL OCT 444
012727,000783:
|
|
Page 295
|
012729,000785: 43,2652 40077 RDRUSECK CS FLAGWRD3 # IS R29 ON?
012730,000786: 43,2653 74741 MASK NR29FBIT
012731,000787: 43,2654 10000 CCS A
012732,000788: 43,2655 02120 TC ALM/END # YES
012733,000789: 43,2656 30101 CA FLAGWRD5 # IS R77 RUNNING?
012734,000790: 43,2657 74741 MASK R77FLBIT
012735,000791: 43,2660 10000 CCS A
012736,000792: 43,2661 02120 TC ALM/END # YES.
012737,000793: 43,2662 40103 CS FLAGWRD7 # IS SERVICER RUNNING AND HENCE POSSIBLY
012738,000794: 43,2663 74746 MASK V37FLBIT # R12 USING THE LR?
012739,000795: 43,2664 10000 CCS A
012740,000796: 43,2665 12672 TCF CHECKRR # NO
012741,000797: 43,2666 40107 CS FLGWRD11 # YES, IS R12 ON?
012742,000798: 43,2667 74735 MASK LRBYBIT
012743,000799: 43,2670 10000 CCS A
012744,000800: 43,2671 02120 TC ALM/END # YES
012745,000801: 43,2672 40075 CHECKRR CS FLAGWRD1 # IS THE TRACK FLAG SET AND HENCE POSSIBLY
012746,000802: 43,2673 74747 MASK TRACKBIT # P20 USING THE RR?
012747,000803: 43,2674 10000 CCS A
012748,000804: 43,2675 12702 TCF CHECKP22 # NO, CHECK FOR P22.
012749,000805:
012750,000806: 43,2676 30074 CKRNDBIT CA FLAGWRD0 # YES, BUT IS IT P25?
012751,000807: 43,2677 74745 MASK RNDVZBIT
012752,000808: 43,2700 10000 CCS A
012753,000809: 43,2701 02120 TC ALM/END
012754,000810: 43,2702 41011 CHECKP22 CS MODREG
012755,000811: 43,2703 62707 AD DEC22
012756,000812: 43,2704 00006 EXTEND
012757,000813: 43,2705 12120 BZF ALM/END
012758,000814: 43,2706 00002 TC Q
012759,000815:
012760,000816: 43,2707 00026 DEC22 DEC 22 B-14
012761,000817:
012762,000818: 43,2710 COUNT* $$/EXTVB
012763,000819:
012764,000820: 43,2710 02123 VB64 TC CHKPOOH # DEMAND PROGRAM 00.
012765,000821: 43,2711 02076 TC TESTXACT # IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
012766,000822: 43,2712 34740 CAF PRIO4
012767,000823: 43,2713 05105 TC FINDVAC
012768,000824: 43,2714 E4,1604 EBANK= ALPHASB
012769,000825: 43,2714 03602 64104 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES.
012770,000826:
012771,000827: 43,2716 05155 TC ENDOFJOB
012772,000828:
|
|
Page 296
|
012774,000830: # IMUATTCK VERB 43 DESCRIPTION
012775,000831: # LOAD IMU ATTITUDE ERROR METERS
012776,000832: # 1. REQUIRE POO OR FRESH START.
012777,000833: # 2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
012778,000834: # 3. REQUIRE THAT NEEDLES BE OFF.
012779,000835: # 4. REQUEST LOAD OF N22 (VAUES TO BE DISPLAYED).
012780,000836: # 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
012781,000837:
012782,000838: 43,2717 02123 IMUATTCK TC CHKPOOH # VB 76 - LOAD IMU ATT. ERROR METERS
012783,000839:
012784,000840: 43,2720 34763 CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU
012785,000841: 43,2721 00006 EXTEND # CDUS BITS ARE ON
012786,000842: 43,2722 02012 RAND CHAN12
012787,000843: 43,2723 10000 CCS A
012788,000844: 43,2724 12120 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
012789,000845:
012790,000846: 43,2725 34355 CAF BIT13-14 # BOTH BITS 13 AND 14 MUST BE 1
012791,000847: 43,2726 00006 EXTEND # INDICATING THE MODE SELECTED IS OFF.
012792,000848: 43,2727 06031 RXOR CHAN31
012793,000849: 43,2730 74355 MASK BIT13-14
012794,000850: 43,2731 00006 EXTEND
012795,000851: 43,2732 12734 BZF +2 # NEEDLES IS OFF.
012796,000852: 43,2733 12120 TCF ALM/END # EXIT. NEEDLES IS ON.
012797,000853:
012798,000854: 43,2734 02076 TC TESTXACT
012799,000855:
012800,000856: 43,2735 32225 CAF VNLODCDU
012801,000857: 43,2736 04616 TC BANKCALL
012802,000858: 43,2737 20212 CADR GOXDSPF
012803,000859: 43,2740 05472 TC ENDEXT # V34
012804,000860: 43,2741 02742 TC +1
012805,000861: 43,2742 32755 CAF V43K # REDISPLAY OUR VERB.
012806,000862: 43,2743 04616 TC BANKCALL
012807,000863: 43,2744 20473 CADR EXDSPRET
012808,000864: 43,2745 34746 CAF BIT6
012809,000865: 43,2746 00006 EXTEND
012810,000866: 43,2747 05012 WOR CHAN12 # ENABLE ERROR COUNTERS.
012811,000867: 43,2750 34752 CAF TWO
012812,000868: 43,2751 05203 TC WAITLIST # PUT OUT COMMANDS IN .32 SECONDS.
012813,000869: 43,2752 0321 EBANK= THETAD
012814,000870: 43,2752 02035 64100 2CADR ATTCK2
012815,000871:
012816,000872: 43,2754 15472 TCF ENDEXT
012817,000873:
012818,000874: 42,2035 BANK 42
012819,000875: 42,2000 SETLOC PINBALL3 # SOMETHING IN B42.
012820,000876: 42,2000 BANK
012821,000877:
012822,000878: 42,2035 COUNT* $$/EXTVB
012823,000879:
|
|
Page 297
|
012825,000881: 42,2035 34752 ATTCK2 CAF TWO # PUT OUT COMMANDS.
012826,000882: 42,2036 54002 +1 TS Q # CDU WILL LIMIT EXCESS DATA.
012827,000883: 42,2037 50000 INDEX A
012828,000884: 42,2040 30321 CA THETAD
012829,000885: 42,2041 00006 EXTEND
012830,000886: 42,2042 72053 MP ATTSCALE
012831,000887: 42,2043 50002 INDEX Q
012832,000888: 42,2044 56050 XCH CDUXCMD
012833,000889: 42,2045 10002 CCS Q
012834,000890: 42,2046 12036 TCF ATTCK2 +1
012835,000891:
012836,000892: 42,2047 37737 CAF 13,14,15
012837,000893: 42,2050 00006 EXTEND
012838,000894: 42,2051 05014 WOR CHAN14
012839,000895: 42,2052 15261 TCF TASKOVER # LEAVE ERROR COUNTERS ENABLED.
012840,000896:
012841,000897: 42,2053 03146 ATTSCALE DEC 0.1
012842,000898:
012843,000899: 07,2667 BANK 7
012844,000900: 43,2000 SETLOC EXTVERBS
012845,000901: 43,2000 BANK
012846,000902:
012847,000903: 43,2755 COUNT* $$/EXTVB
012848,000904:
012849,000905: 43,2755 12600 V43K VN 4300
012850,000906: # V82PERF VERB 82 DESCRIPTION
012851,000907: # REQUEST ORBIT PARAMETERS DISPLAY (R30)
012852,000908: # 1. IF AVERAGE G IS OFF:
012853,000909: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
012854,000910: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
012855,000911: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
012856,000912: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
012857,000913: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
012858,000914: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
012859,000915: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
012860,000916: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
012861,000917: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
012862,000918: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
012863,000919: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
012864,000920: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
012865,000921: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
012866,000922: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
012867,000923:
012868,000924: # 2. IF AVERAGE G IS ON:
012869,000925: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
012870,000926: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
012871,000927: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
012872,000928: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
012873,000929: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
012874,000930: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
012875,000931:
|
|
Page 298
|
012877,000933: 43,2756 02076 V82PERF TC TESTXACT
012878,000934:
012879,000935: 43,2757 35021 CAF PRIO7 # LESS THAN LAMBERT. R30,V82
012880,000936: 43,2760 05146 TC PRIOCHNG
012881,000937: 43,2761 00006 EXTEND
012882,000938: 43,2762 32765 DCA V82CON
012883,000939: 43,2763 05165 TC SUPDXCHZ # V82CALL IN DIFF SUPERBANK FROM V82PERF
012884,000940:
012885,000941: 43,2764 E4,1722 EBANK= HAPO
012886,000942: 43,2764 03242 44104 V82CON 2CADR V82CALL
012887,000943:
012888,000944:
012889,000945: # VB83PERF VERB 83 DESCRIPTION
012890,000946: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
012891,000947: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012892,000948: # 2. SCHEDULE R31CALL WITH PRIORITY 5.
012893,000949: # A. DISPLAY
012894,000950: # R1 RANGE
012895,000951: # R2 RANGE RATE
012896,000952: # R3 THETA
012897,000953:
012898,000954: 43,2766 02076 V83PERF TC TESTXACT
012899,000955:
012900,000956: 43,2767 34752 CAF BIT2
012901,000957: 43,2770 05203 TC WAITLIST
012902,000958: 43,2771 E7,1607 EBANK= TSTRT
012903,000959: 43,2771 03113 76067 2CADR R31CALL
012904,000960:
012905,000961: 43,2773 05155 TC ENDOFJOB
012906,000962:
012907,000963: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
012908,000964:
012909,000965: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
012910,000966: # DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
012911,000967:
012912,000968: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
012913,000969: # EXIT R63, OTHERWISE CONTINUE.
012914,000970:
012915,000971: # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
012916,000972: # ORIENTATION KNOWN TO LGC, CONTINUE.
012917,000973:
012918,000974: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
012919,000975: # BE POINTED AT CSM. INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
012920,000976: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
012921,000977: # AFTER KEYING IN PROCEED.
012922,000978:
012923,000979: # 4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
012924,000980:
012925,000981: # 5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
012926,000982:
|
|
Page 299
|
012928,000984: # HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
012929,000985: # PREPARED FOR VECPOINT.
012930,000986:
012931,000987: # 6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
012932,000988: # BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
012933,000989:
012934,000990: # 7. RECYCLE - RETURN TO STEP 4.
012935,000991: # TERMINATE - EXIT R63.
012936,000992: # PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
012937,000993:
012938,000994:
012939,000995: 43,2774 02123 V89PERF TC CHKPOOH
012940,000996: 43,2775 02076 TC TESTXACT
012941,000997: 43,2776 34737 CAF PRIO10
012942,000998: 43,2777 05105 TC FINDVAC
012943,000999: 43,3000 E4,1612 EBANK= RONE
012944,001000: 43,3000 02000 54104 2CADR V89CALL
012945,001001: 43,3002 05155 TC ENDOFJOB
012946,001002:
012947,001003: # V90PERF VERB 90 DESCRIPTION
012948,001004: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
012949,001005: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012950,001006: # 2. SCHEDULE R36 CALL WITH PRIORITY 10
012951,001007: # A. DISPLAY
012952,001008: # TIME OF EVENT - HOURS , MINUTES , SECONDS
012953,001009: # Y OUT-OF-PLANE POSITION - NAUTICAL MILES
012954,001010: # YDOT OUT-OF-PLANE VELOCITY - FEET/SECOND
012955,001011: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
012956,001012: # DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
012957,001013:
012958,001014: 43,3003 02076 V90PERF TC TESTXACT
012959,001015: 43,3004 35021 CAF PRIO7 # R36,V90
012960,001016: 43,3005 05105 TC FINDVAC
012961,001017: 43,3006 E4,1612 EBANK= RPASS36
012962,001018: 43,3006 02613 10104 2CADR R36
012963,001019: 43,3010 15155 TCF ENDOFJOB
012964,001020: # MINIMP VERB 76 DESCRIPTION
012965,001021: # MINIMUM IMPULSE MODE
012966,001022: # 1. SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
012967,001023:
012968,001024: 43,3011 00004 MINIMP INHINT
012969,001025: 43,3012 40111 CS DAPBOOLS
012970,001026: 43,3013 74735 MASK PULSES # PULSES = 1 INDICATES MIN IMP MODE
012971,001027: 43,3014 26111 ADS DAPBOOLS
012972,001028: 43,3015 12121 TCF GOPIN # RETURN VIA PINBRNCH
012973,001029:
012974,001030: # NOMINIMP VERB 77 DESCRIPTION
012975,001031: # RATE COMMAND MODE
012976,001032:
|
|
Page 300
|
012978,001034: # 1. SET MINIMUM IMPULSE RHC MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
012979,001035: # 2. MOVE CDUX,CDUY,CDUZ INTO CDUXD,CDUYD,CDUZD.
012980,001036:
012981,001037: 43,3016 00004 NOMINIMP INHINT
012982,001038: 43,3017 44735 CS PULSES
012983,001039: 43,3020 70111 MASK DAPBOOLS
012984,001040: 43,3021 54111 TS DAPBOOLS # PULSES = 0 NOT IN MINIMUM UMPULSE MODE
012985,001041: 43,3022 04674 TC IBNKCALL
012986,001042: 43,3023 40153 CADR ZATTEROR
012987,001043: 43,3024 02121 TC GOPIN
012988,001044:
|
|
Page 301
|
012990,001046: # CREWMANU VERB 49 DESCRIPTION
012991,001047: # START AUTOMATIC ATTITUDE MANEUVER
012992,001048: # 1. REQUIRE PROGRAM 00 ACTIVE.
012993,001049: # 2. SET EXT VERB DISPLAY BUSY FLAG.
012994,001050: # 3. SCHEDULE R62DISP WITH PRIORITY 10.
012995,001051: # 4. RELEASE EXT VERB DISPLAY.
012996,001052:
012997,001053: # R62DISP
012998,001054: # 1. DISPLAY FLASHING V06,N22.
012999,001055: # RESPONSES
013000,001056: # A. TERMINATE
013001,001057: # 1. GO TO GOTOPOOH.
013002,001058: # B. PROCEED
013003,001059: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
013004,001060: # 2. EXECUTE R60LEM (ATTITUDE MANEUVER).
013005,001061: # C. ENTER
013006,001062: # 1. REPEAT FLASHING V06,N22.
013007,001063:
013008,001064: 43,3025 02123 CREWMANU TC CHKPOOH # DEMAND POO
013009,001065:
013010,001066: 43,3026 02076 TC TESTXACT
013011,001067:
013012,001068: 43,3027 34737 CAF PRIO10
013013,001069: 43,3030 05105 TC FINDVAC
013014,001070: 43,3031 E6,1674 EBANK= BCDU
013015,001071: 43,3031 02065 46106 2CADR R62DISP
013016,001072: 43,3033 05155 TC ENDOFJOB
013017,001073:
|
|
Page 302
|
013019,001075: # TRMTRACK VERB 56 DESCRIPTION
013020,001076: # TERMINATE TRACKING (P20 AND P25).
013021,001077: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
013022,001078: # 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
013023,001079: # 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
013024,001080:
013025,001081: # V56TOVAC
013026,001082: # 1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
013027,001083: # 2. ZERO GROUP 2 TO HALT P20.
013028,001084: # 3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
013029,001085:
013030,001086: 43,3034 33052 TRMTRACK CA BITS9+7 # IS REND OR P25 FLAG ON
013031,001087: 43,3035 70074 MASK FLAGWRD0
013032,001088: 43,3036 00006 EXTEND
013033,001089: 43,3037 12121 BZF GOPIN # NO
013034,001090:
013035,001091: 43,3040 05516 TC DOWNFLAG
013036,001092: 43,3041 00010 ADRES RNDVZFLG
013037,001093:
013038,001094: 43,3042 05516 TC DOWNFLAG
013039,001095: 43,3043 00006 ADRES P25FLAG
013040,001096:
013041,001097: 43,3044 34747 CA TRACKBIT # IS TRACK FLAG ON?
013042,001098: 43,3045 70075 MASK FLAGWRD1
013043,001099: 43,3046 00006 EXTEND
013044,001100: 43,3047 12121 BZF GOPIN
013045,001101:
013046,001102: 43,3050 04635 TC POSTJUMP
013047,001103: 43,3051 64054 CADR TRMTRAK1
013048,001104:
013049,001105: 43,3052 00500 BITS9+7 OCT 500
013050,001106:
013051,001107: 42,2000 SETLOC SBAND # BANK 42
013052,001108: 42,2000 BANK
013053,001109:
013054,001110: 42,2054 COUNT* $$/EXTVB
013055,001111:
013056,001112: 42,2054 05516 TRMTRAK1 TC DOWNFLAG
013057,001113: 42,2055 00027 ADRES UPDATFLG # UPDATE FLAG DOWN
013058,001114: 42,2056 05516 TC DOWNFLAG
013059,001115: 42,2057 00031 ADRES TRACKFLG # TRACK FLAG DOWN
013060,001116: 42,2060 05516 TC DOWNFLAG
013061,001117: 42,2061 00007 ADRES IMUSE
013062,001118:
013063,001119: 42,2062 06036 TC INTPRET
013064,001120: 42,2063 77624 CALL
013065,001121: 42,2064 27412 INTSTALL # DONT INTERRUPT INTEGRATION
013066,001122: 42,2065 77776 EXIT
013067,001123:
013068,001124: 42,2066 05353 TC PHASCHNG
013069,001125:
|
|
Page 303
|
013071,001127: 42,2067 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
013072,001128:
013073,001129: 42,2070 00004 INHINT
013074,001130: 42,2071 04674 TC IBNKCALL # ZERO THE COMMANDED RATES TO STOP
013075,001131: 42,2072 40165 CADR STOPRATE # MANEUVER
013076,001132:
013077,001133: 42,2073 04674 TC IBNKCALL
013078,001134: 42,2074 40123 CADR RESTORDB
013079,001135:
013080,001136: 42,2075 06011 TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES.
013081,001137:
013082,001138: 42,2076 44736 CS BIT14 # DISABLE LOCKON
013083,001139: 42,2077 00006 EXTEND
013084,001140: 42,2100 03012 WAND CHAN12
013085,001141: 42,2101 04635 TC POSTJUMP
013086,001142: 42,2102 12771 CADR GOPROG2 # CAUSE RESTART.
013087,001143:
013088,001144: # DNEDUMP VERB 74 DESCRIPTION
013089,001145: # INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
013090,001146: # 1. SET EXT VERB DISPLAY BUSY FLAG.
013091,001147: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
013092,001148: # 3. RELEASE EXT VERB DISPLAY.
013093,001149:
013094,001150: 43,2000 SETLOC EXTVERBS
013095,001151: 43,2000 BANK
013096,001152:
013097,001153: 43,3053 COUNT* $$/EXTVB
013098,001154:
013099,001155: 43,3053 0400 EBANK= 400
013100,001156: 43,3053 33056 DNEDUMP CAF LDNDUMPI
013101,001157: 43,3054 54335 TS DNTMGOTO
013102,001158: 43,3055 02121 TC GOPIN
013103,001159:
013104,001160: 43,3056 43,3053 V74 EQUALS DNEDUMP
013105,001161: 43,3056 03631 LDNDUMPI REMADR DNDUMPI
013106,001162:
013107,001163:
013108,001164: # LEMVEC VERB 80 DESCRIPTION
013109,001165: # UPDATE LEM STATE VECTOR
013110,001166: # RESET VEHUPFLG TO 0
013111,001167:
013112,001168: 43,3057 05516 LEMVEC TC DOWNFLAG
013113,001169: 43,3060 00026 ADRES VEHUPFLG # VB 80 - VEHUPFLG DOWN INDICATES LEM
013114,001170:
013115,001171: 43,3061 03064 TC NOUPDOWN
013116,001172: # CSMVEC VERB 81 DESCRIPTION
013117,001173: # UPDATE CSM STATE VECTOR
013118,001174: # SET VEHUPFLG TO 1
013119,001175:
013120,001176: 43,3062 05504 CSMVEC TC UPFLAG
013121,001177:
|
|
Page 304
|
013123,001179: 43,3063 00026 ADRES VEHUPFLG # VB 81 - VEHUPFLG UP INDICATES CSM
013124,001180:
013125,001181: 43,3064 05516 NOUPDOWN TC DOWNFLAG
013126,001182: 43,3065 00030 ADRES NOUPFLAG
013127,001183:
013128,001184: 43,3066 12121 TCF GOPIN
013129,001185:
013130,001186: # UPDATOFF VERB 95 DESCRIPTION
013131,001187: # INHIBIT STATE VECTOR UPDATES BY INCORP
013132,001188: # SET NOUPFLAG TO 1
013133,001189:
013134,001190: 43,3067 05504 UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
013135,001191: 43,3070 00030 ADRES NOUPFLAG
013136,001192:
013137,001193: 43,3071 02121 TC GOPIN
013138,001194:
|
|
Page 305
|
013140,001196: # SYSTEST VERB 92 DESCRIPTION
013141,001197: # OPERATE IMU PERFORMANCE TEST.
013142,001198: # 1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
013143,001199: # 2. SET EXT VERB BUSY FLAG.
013144,001200: 43,3072 E5,1417 EBANK= QPLACE
013145,001201:
013146,001202: 43,3072 02123 SYSTEST TC CHKPOOH # DEMAND POO
013147,001203:
013148,001204: 43,3073 02076 TC TESTXACT
013149,001205:
013150,001206: 43,3074 37707 CAF PRIO22
013151,001207: 43,3075 05105 TC FINDVAC
013152,001208: 43,3076 E5,1417 EBANK= QPLACE
013153,001209: 43,3076 37,2000 SBANK= IMUSUPER
013154,001210: 43,3076 02002 76065 2CADR REDO
013155,001211:
013156,001212: 43,3100 05155 TC ENDOFJOB
013157,001213:
013158,001214: # VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
013159,001215:
013160,001216: 43,3101 00004 WMATRXNG INHINT
013161,001217: 43,3102 44753 CS RENDWBIT
013162,001218: 43,3103 70101 MASK FLAGWRD5
013163,001219: 43,3104 54101 TS FLAGWRD5
013164,001220:
013165,001221: 43,3105 02121 TC GOPIN
013166,001222:
013167,001223: 43,3106 43,3106 GOSHOSUM EQUALS SHOWSUM
013168,001224:
013169,001225: 43,3106 02123 SHOWSUM TC CHKPOOH # *
013170,001226: 43,3107 02076 TC TESTXACT # *
013171,001227: 43,3110 35021 CAF PRIO7 # ALLOW OTHER CHARINS.
013172,001228: 43,3111 05146 TC PRIOCHNG
013173,001229: 43,3112 34753 CAF S+1 # *
013174,001230: 43,3113 55376 TS SKEEP6 # * SHOWSUM OPTION
013175,001231: 43,3114 34755 CAF S+ZERO # *
013176,001232: 43,3115 55362 TS SMODE # * TURN OFF SELF-CHECK
013177,001233: 43,3116 33253 CA SELFADRS # *
013178,001234: 43,3117 55361 TS SELFRET # *
013179,001235: 43,3120 03530 TC STSHOSUM # * ENTER ROPECHK
013180,001236:
013181,001237: 43,3121 23372 SDISPLAY LXCH SKEEP2 # * BANK # FOR DISPLAY
013182,001238: 43,3122 23373 LXCH SKEEP3 # * BUGGER WORD FOR DISPLAY
013183,001239: 43,3123 33252 NOKILL CA ADRS1 # *
013184,001240: 43,3124 54156 TS MPAC +2 # *
013185,001241: 43,3125 33136 CA VNCON # * 0501
013186,001242: 43,3126 04616 TC BANKCALL # *
013187,001243: 43,3127 20212 CADR GOXDSPF # *
013188,001244: 43,3130 03133 TC +3 # *
013189,001245: 43,3131 03641 TC NXTBNK # *
013190,001246:
|
|
Page 306
|
013192,001248: 43,3132 03123 TC NOKILL # *
013193,001249: 43,3133 33253 CA SELFADRS
013194,001250: 43,3134 55371 TS SKEEP1
013195,001251:
013196,001252: 43,3135 05472 TC ENDEXT # *
013197,001253:
013198,001254: 43,3136 01201 VNCON VN 501 # *
013199,001255:
013200,001256: 43,3137 31376 ENDSUMS CA SKEEP6 # *
013201,001257: 43,3140 00006 EXTEND # *
013202,001258: 43,3141 13344 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
013203,001259: 43,3142 03530 TC STSHOSUM # * START SHOWSUM AGAIN.
013204,001260:
|
|
Page 307
|
013206,001262: # DAPDISP VERB 48 DESCRIPTION
013207,001263: # LOAD AUTO PILOT DATA
013208,001264: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
013209,001265: # 2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
013210,001266: # 3. RELEASE EXT VERB DISPLAY SYSTEM.
013211,001267: 43,3143 02076 DAPDISP TC TESTXACT
013212,001268: 43,3144 35021 CAF PRIO7 # R03
013213,001269: 43,3145 05146 TC PRIOCHNG
013214,001270: 43,3146 04635 TC POSTJUMP
013215,001271: 43,3147 40004 CADR DAPDATA1
013216,001272: 34,2000 BANK 34
013217,001273: 20,2000 SETLOC LOADDAP
013218,001274: 20,2000 BANK
013219,001275:
013220,001276: 20,2004 COUNT* $$/R03
013221,001277:
013222,001278: 20,2004 30,2000 SBANK= LOWSUPER # FOR SUBSEQUENT LOW 2CADR'S.
013223,001279:
013224,001280: 20,2004 32114 DAPDATA1 CAF BOOLSMSK # SET DISPLAY ACCORDING TO DAPBOOLS BITS.
013225,001281: 20,2005 70111 MASK DAPBOOLS # LM
013226,001282: 20,2006 55343 TS DAPDATR1 # LM
013227,001283: 20,2007 40106 CS FLGWRD10 # SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
013228,001284: 20,2010 74737 MASK APSFLBIT
013229,001285: 20,2011 10000 CCS A
013230,001286: 20,2012 34736 CAF BIT14
013231,001287: 20,2013 27343 ADS DAPDATR1
013232,001288: 20,2014 31343 CHKDATA1 CAE DAPDATR1 # IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
013233,001289: 20,2015 74355 MASK BIT13-14 # A ONE INTO BIT 13.
013234,001290: 20,2016 00006 EXTEND
013235,001291: 20,2017 12034 BZF FORCEONE
013236,001292: 20,2020 31343 CAE DAPDATR1 # ENSURE THAT NO ILLEGAL BITS SET BY CREW.
013237,001293: 20,2021 72113 MSKDATR1 MASK DSPLYMSK
013238,001294: 20,2022 55343 TS DAPDATR1
013239,001295: 20,2023 32112 CAF V01N46 # LM
013240,001296: 20,2024 04616 TC BANKCALL
013241,001297: 20,2025 20231 CADR GOXDSPFR
013242,001298: 20,2026 15472 TCF ENDEXT # V34E TERMINATE
013243,001299: 20,2027 12037 TCF DPDAT1 # V33E PROCEED
013244,001300: 20,2030 12014 TCF CHKDATA1 # E NEW DATA CHECK AND REDISPLAY
013245,001301: 20,2031 36241 CAF REVCNT # BITS 2 & 3: BLANKS R2 & R3.
013246,001302: 20,2032 05464 TC BLANKET
013247,001303: 20,2033 15155 TCF ENDOFJOB
013248,001304: 20,2034 34737 FORCEONE CAF BIT13
013249,001305: 20,2035 27343 ADS DAPDATR1
013250,001306: 20,2036 12021 TCF MSKDATR1
013251,001307:
013252,001308: 20,2037 00004 DPDAT1 INHINT # INHINT FOR SETTING OF FLAG BITS AND MASS
013253,001309: 20,2040 44737 CS APSFLBIT # ON BASIS OF DISPLAYED DAPDATR1.
013254,001310: 20,2041 70106 MASK FLGWRD10
013255,001311: 20,2042 54001 TS L # SET APSFLAG TO BE COMPLEMENT OF BIT 14.
013256,001312:
|
|
Page 308
|
013258,001314: 20,2043 41343 CS DAPDATR1
013259,001315: 20,2044 74736 MASK BIT14
013260,001316: 20,2045 10000 CCS A
013261,001317: 20,2046 34737 CAF APSFLBIT
013262,001318: 20,2047 60001 AD L
013263,001319: 20,2050 54106 TS FLGWRD10
013264,001320: 20,2051 41343 CS DAPDATR1 # SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
013265,001321: 20,2052 74355 MASK BIT13-14 # MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
013266,001322: 20,2053 10000 CCS A # 13 AND 14 ARE SET.
013267,001323: 20,2054 44737 CS CSMDOCKD
013268,001324: 20,2055 62114 AD BOOLSMSK
013269,001325: 20,2056 71343 MASK DAPDATR1
013270,001326: 20,2057 54001 TS L
013271,001327: 20,2060 42114 CS BOOLSMSK
013272,001328: 20,2061 70111 MASK DAPBOOLS
013273,001329: 20,2062 60001 AD L
013274,001330: 20,2063 54111 TS DAPBOOLS
013275,001331: 20,2064 74737 MASK CSMDOCKD # LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
013276,001332: 20,2065 10000 CCS A # MASS IS USUALLY ALREADY OKAY, SO DO
013277,001333: 20,2066 31332 CAE CSMMASS # NOT TOUCH ITS LOW-ORDER PART.
013278,001334: 20,2067 61331 AD LEMMASS
013279,001335: 20,2070 55244 TS MASS
013280,001336: 20,2071 30111 CAE DAPBOOLS
013281,001337: 20,2072 74741 MASK ACC4OR2X # 2 OR 4 JET X-TRANSLATION
013282,001338: 20,2073 00006 EXTEND # (BIT ACC4OR2X = 1 FOR 4 JETS)
013283,001339: 20,2074 12101 BZF +5
013284,001340: 20,2075 44735 CS BIT15
013285,001341: 20,2076 70075 MASK FLAGWRD1 # CLEAR NJTSFLAG TO 0 FOR 4 JETS
013286,001342: 20,2077 54075 TS FLAGWRD1
013287,001343: 20,2100 12104 TCF +4
013288,001344: 20,2101 40075 CS FLAGWRD1 # SET NJTSFLAG TO 1 FOR 2 JETS
013289,001345: 20,2102 74735 MASK BIT15
013290,001346: 20,2103 26075 ADS FLAGWRD1
013291,001347: 20,2104 30111 CA DAPBOOLS # SELECT DESIRED KALCMANU AUTOMATIC
013292,001348: 20,2105 76244 MASK THREE # MANEUVER RATE
013293,001349: 20,2106 60000 DOUBLE # RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
013294,001350: 20,2107 55325 TS RATEINDX # ARE DP
013295,001351: 20,2110 04635 TC POSTJUMP
013296,001352: 20,2111 02203 CADR STIKLOAD
013297,001353:
013298,001354: 20,2112 00256 V01N46 VN 0146
013299,001355: 20,2113 33113 DSPLYMSK OCT 33113
013300,001356: 20,2114 13113 BOOLSMSK OCT 13113
013301,001357: 01,2203 BANK 01
013302,001358: 01,2000 SETLOC LOADDAP1
013303,001359: 01,2000 BANK
013304,001360:
013305,001361: 01,2203 COUNT* $$/R03
013306,001362:
013307,001363: 01,2203 35015 STIKLOAD CAF EBANK6
013308,001364:
|
|
Page 309
|
013310,001366: 01,2204 54003 TS EBANK
013311,001367: 01,2205 E6,1442 EBANK= STIKSENS
013312,001368: 01,2205 34745 CA RHCSCALE # SET STICK SENSITIVITY TO CORRESPOND TO A
013313,001369: 01,2206 70111 MASK DAPBOOLS # MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
013314,001370: 01,2207 10000 CCS A # 20 D/S(NORMAL) OR 4 D/S(FINE), SCALED
013315,001371: 01,2210 32334 CA NORMAL # AT 45 D/S.
013316,001372: 01,2211 62335 AD FINE
013317,001373: 01,2212 55442 TS STIKSENS
013318,001374: 01,2213 32337 CA -0.6D/S
013319,001375: 01,2214 55474 TS -RATEDB # LM-ONLY BREAKOUT LEVEL IS .6 D/S.
013320,001376: 01,2215 34737 CA CSMDOCKD # IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
013321,001377: 01,2216 70111 MASK DAPBOOLS # BY 10. NORMAL SCALING IS THEN 2 D/S AND
013322,001378: 01,2217 00006 EXTEND # FINE SCALING IS 0.4 D/S
013323,001379: 01,2220 12227 BZF +7 # BRANCH IF CSM IS NOT DOCKED.
013324,001380: 01,2221 31442 CA STIKSENS
013325,001381: 01,2222 00006 EXTEND
013326,001382: 01,2223 72336 MP 1/10
013327,001383: 01,2224 55442 TS STIKSENS
013328,001384: 01,2225 32340 CA -0.3D/S # CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
013329,001385: 01,2226 55474 TS -RATEDB
013330,001386: 01,2227 00003 RELINT # PROCEED TO NOUN 47, MASS LOAD,
013331,001387:
013332,001388: 01,2230 32331 DAPDATA2 CAF V0647
013333,001389: 01,2231 04616 TC BANKCALL
013334,001390: 01,2232 20231 CADR GOXDSPFR
013335,001391: 01,2233 12241 TCF ENDR03 # V34E TERMINATE. FIRST SET DB, DO 1/ACCS
013336,001392: 01,2234 12245 TCF DAPDAT2 # V33E PROCEED
013337,001393: 01,2235 12230 TCF DAPDATA2 # LOAD NEW DATA AND RECYCLE
013338,001394: 01,2236 34751 CAF BIT3 # BLANKS R3
013339,001395: 01,2237 05464 TC BLANKET # LM
013340,001396: 01,2240 15155 TCF ENDOFJOB
013341,001397: 01,2241 00004 ENDR03 INHINT
013342,001398: 01,2242 04674 TC IBNKCALL
013343,001399: 01,2243 40123 CADR RESTORDB
013344,001400: 01,2244 15472 TCF ENDEXT # DOES RELINT
013345,001401:
013346,001402: 01,2245 40106 DAPDAT2 CS FLGWRD10 # DETERMINE STAGE FROM APSFLAG
013347,001403: 01,2246 74737 MASK APSFLBIT
013348,001404: 01,2247 10000 CCS A
013349,001405: 01,2250 32000 CA MINLMD
013350,001406: 01,2251 62001 AD MINMINLM
013351,001407: 01,2252 61331 AD LEMMASS # LEMMASS MUST BE GREATER THAN EMPTY LEM
013352,001408: 01,2253 00006 EXTEND
013353,001409: 01,2254 62230 BZMF DAPDATA2 # ASK FOR NEW MASSES
013354,001410: 01,2255 30111 CAE DAPBOOLS
013355,001411: 01,2256 74737 MASK CSMDOCKD
013356,001412: 01,2257 00006 EXTEND
013357,001413: 01,2260 12266 BZF LEMALONE # SKIP TEST ON CSMMASS IF NOT DOCKED.
013358,001414: 01,2261 44741 CS MINCSM # TEST CSM MASS
013359,001415: 01,2262 61332 AD CSMMASS # CSMMASS MUST BE GREATER THAN EMPTY CSM
013360,001416:
|
|
Page 310
|
013362,001418: 01,2263 00006 EXTEND
013363,001419: 01,2264 62230 BZMF DAPDATA2 # ASK FOR NEW MASSES
013364,001420: 01,2265 31332 CAE CSMMASS # DOCKED: MASS = CSMMASS + LEMMASS
013365,001421: 01,2266 61331 LEMALONE AD LEMMASS # LEM ALONE: MASS = LEMMASS
013366,001422: 01,2267 22007 ZL
013367,001423: 01,2270 53245 DXCH MASS
013368,001424: 01,2271 00004 INHINT
013369,001425: 01,2272 04674 TC IBNKCALL # SET DEADBANK AND COMPUTE MOMENTS OF
013370,001426: 01,2273 40123 CADR RESTORDB # INERTIA.
013371,001427: 01,2274 00003 RELINT # PROCEED TO NOUN 48 (OR END).
013372,001428:
013373,001429: 01,2275 40106 DAPDATA3 CS FLGWRD10
013374,001430: 01,2276 74737 MASK APSFLBIT
013375,001431: 01,2277 00006 EXTEND # END ROUTINE IF LEM HAS STAGED,
013376,001432: 01,2300 15472 BZF ENDEXT
013377,001433: 01,2301 32332 CAF V06N48 # DISPLAY TRIM ANGLES AND REQUEST RESPONSE
013378,001434: 01,2302 04616 TC BANKCALL
013379,001435: 01,2303 20231 CADR GOXDSPFR
013380,001436: 01,2304 05472 TC ENDEXT
013381,001437: 01,2305 12312 TCF DPDAT3 # V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
013382,001438: 01,2306 12301 TCF -5 # LOAD NEW DATA AND RECYCLE
013383,001439: 01,2307 34751 CAF BIT3
013384,001440: 01,2310 05464 TC BLANKET # BLANK R3
013385,001441: 01,2311 15155 TCF ENDOFJOB
013386,001442: 01,2312 34753 DPDAT3 CAF BIT1 # GO TO TRIMGIMB VIA WAITLIST SO IT
013387,001443: 01,2313 00004 INHINT # CAN USE FIXDELAY AND VARDELAY
013388,001444: 01,2314 05203 TC WAITLIST
013389,001445: 01,2315 E6,1401 EBANK= ROLLTIME
013390,001446: 01,2315 03106 56066 2CADR TRIMGIMB
013391,001447: 01,2317 15155 TCF ENDOFJOB # DOES A RELINT
013392,001448: 01,2320 32333 TRIMDONE CAF V50N48
013393,001449: 01,2321 04616 TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03
013394,001450: 01,2322 20237 CADR GOMARK3R
013395,001451: 01,2323 05472 TC ENDEXT # V34E TERMINATE
013396,001452: 01,2324 05472 TC ENDEXT
013397,001453: 01,2325 05472 TC ENDEXT
013398,001454: 01,2326 36007 CAF OCT24 # BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
013399,001455: 01,2327 05464 TC BLANKET
013400,001456: 01,2330 15155 TCF ENDOFJOB
013401,001457:
013402,001458: 01,2331 01457 V0647 VN 0647
013403,001459: 01,2332 01460 V06N48 VN 0648
013404,001460:
013405,001461: 01,2333 14460 V50N48 VN 5048
013406,001462: 01,2334 25101 NORMAL DEC .660214
013407,001463: # NORMAL SCALING IS 20 D/S
013408,001464: 01,2335 05220 FINE DEC .165054 # FINE STICK SCALING (4 D/S).
013409,001465: 01,2336 03146 1/10 DEC .1 # FACTOR FOR CSM-DOCKED SCALING
013410,001466: 01,2337 77445 -0.6D/S DEC -218 B-14
013411,001467:
|
|
Page 311
|
013413,001469:
013414,001470: 01,2340 77622 -0.3D/S DEC -109 B-14
013415,001471:
|
|
Page 312
|
013417,001473: # VERB 66. VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
013418,001474: # OTHER VEHICLE STATE VECTOR.
013419,001475:
013420,001476: # USE SUBROUTINE GENTRAN.
013421,001477:
013422,001478: 07,2667 BANK 7
013423,001479: 43,2000 SETLOC EXTVERBS
013424,001480: 43,2000 BANK
013425,001481:
013426,001482: 43,3150 COUNT* $$/EXTVB
013427,001483:
013428,001484: 43,3150 E3,1626 EBANK= RRECTHIS
013429,001485:
013430,001486: 43,3150 34737 ATTACHED CAF PRIO10
013431,001487: 43,3151 05105 TC FINDVAC
013432,001488: 43,3152 E3,1626 EBANK= RRECTHIS
013433,001489:
013434,001490: 43,3152 03155 66103 2CADR ATTACHIT
013435,001491:
013436,001492: 43,3154 05155 TC ENDOFJOB
013437,001493:
013438,001494: 43,3155 06036 ATTACHIT TC INTPRET
013439,001495: 43,3156 77624 CALL
013440,001496: 43,3157 27412 INTSTALL
013441,001497: 43,3160 43014 SET BON
013442,001498: 43,3161 04063 MOONOTH
013443,001499: 43,3162 04304 MOONTHIS
013444,001500: 43,3163 67166 +3
013445,001501: 43,3164 77614 CLEAR
013446,001502: 43,3165 04263 MOONOTH
013447,001503: 43,3166 77776 EXIT
013448,001504: 43,3167 33212 CAF OCT51
013449,001505: 43,3170 05544 TC GENTRAN
013450,001506: 43,3171 01626 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
013451,001507: 43,3172 01554 ADRES RRECTOTH
013452,001508:
013453,001509: 43,3173 00003 RELINT
013454,001510: 43,3174 06036 TC INTPRET
013455,001511: 43,3175 77624 CALL # UPDATE R-OTHER, V-OTHER
013456,001512: 43,3176 26760 PTOALEM
013457,001513: 43,3177 45154 LXA,2 CALL
013458,001514: 43,3200 02030 PBODY
013459,001515: 43,3201 26114 SVDWN1
013460,001516: 43,3202 77776 EXIT
013461,001517:
013462,001518: 43,3203 33213 CAF TCPINAD
013463,001519: 43,3204 50120 INDEX FIXLOC
013464,001520: 43,3205 54052 TS QPRET
013465,001521: 43,3206 04635 TC POSTJUMP
013466,001522: 43,3207 27427 CADR INTWAKE # FREE INTEGRATION AND EXIT.
013467,001523:
|
|
Page 313
|
013469,001525:
013470,001526: 43,3210 77634 TCPIN RTB
013471,001527: 43,3211 20723 PINBRNCH
013472,001528:
013473,001529: 43,3212 00051 OCT51 OCT 51
013474,001530: 43,3213 67210 TCPINAD CADR TCPIN
013475,001531:
013476,001532: # VERB 96 SET QUITFLAG TO STOP INTEGRATION.
013477,001533:
013478,001534: # GO TO V37 WITH ZERO TO CAUSE POO.
013479,001535: # STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
013480,001536: # THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
013481,001537:
013482,001538: 43,3214 05504 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
013483,001539: 43,3215 00221 ADRES QUITFLAG # AT NEXT TIMESTEP
013484,001540:
013485,001541: 43,3216 34755 CAF ZERO
013486,001542: 43,3217 04635 TC POSTJUMP
013487,001543: 43,3220 10037 CADR V37 # GO TO POO
013488,001544:
013489,001545:
013490,001546: # VERB 67: DISPLAY OF W MATRIX
013491,001547:
013492,001548: 43,3221 02076 V67 TC TESTXACT
013493,001549: 43,3222 35017 CAF PRIO5
013494,001550: 43,3223 05105 TC FINDVAC
013495,001551: 43,3224 E4,1604 EBANK= WWPOS
013496,001552: 43,3224 02011 62064 2CADR V67CALL
013497,001553:
013498,001554: 43,3226 05155 TC ENDOFJOB
013499,001555:
013500,001556: # VERB 65 DISABLE U,V JETS DURING DPS BURNS
013501,001557:
013502,001558: 43,3227 05504 SNUFFOUT TC UPFLAG
013503,001559: 43,3230 00115 ADRES SNUFFER
013504,001560: 43,3231 02121 TC GOPIN
013505,001561:
013506,001562: # VERB 75 ENABLE U,V JETS DURING DPS BURNS
013507,001563:
013508,001564: 43,3232 05516 OUTSNUFF TC DOWNFLAG
013509,001565: 43,3233 00115 ADRES SNUFFER
013510,001566: 43,3234 02121 TC GOPIN
013511,001567: # VERB 85 DISPLAY RR LOS AZIMUTH AND ELEVATION.
013512,001568:
013513,001569: # AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0 - 90 DEG IN THE +Y HEMISPHERE,
013514,001570: # 360 - 270 DEG IN THE -Y HEMISPHERE.
013515,001571:
013516,001572: # ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0 - 360 ABOUT +Y.
013517,001573:
013518,001574: 43,3235 E7,1750 EBANK= TANGNB
013519,001575:
|
|
Page 314
|
013521,001577: 43,3235 02076 VERB85 TC TESTXACT
013522,001578: 43,3236 04635 TC POSTJUMP
013523,001579: 43,3237 60000 CADR DSPRRLOS
013524,001580:
013525,001581: 40,2000 SETLOC PINBALL1
013526,001582: 40,2000 BANK
013527,001583:
013528,001584: 40,2000 COUNT* $$/EXTVB
013529,001585:
013530,001586: 40,2000 35017 DSPRRLOS CAF PRIO5
013531,001587: 40,2001 05105 TC FINDVAC
013532,001588: 40,2002 E7,1750 EBANK= TANGNB
013533,001589: 40,2002 02017 60107 2CADR RRLOSDSP
013534,001590: 40,2004 34740 CAF PRIO4
013535,001591: 40,2005 05146 TC PRIOCHNG
013536,001592: 40,2006 32076 CAF V16N56
013537,001593: 40,2007 04616 TC BANKCALL
013538,001594: 40,2010 20231 CADR GOMARKFR
013539,001595: 40,2011 05563 TC B5OFF
013540,001596: 40,2012 05563 TC B5OFF
013541,001597: 40,2013 05563 TC B5OFF
013542,001598:
013543,001599: 40,2014 34751 CAF BIT3
013544,001600: 40,2015 05464 TC BLANKET
013545,001601: 40,2016 05155 TC ENDOFJOB
013546,001602:
013547,001603: 40,2017 00006 RRLOSDSP EXTEND
013548,001604: 40,2020 30036 DCA CDUT
013549,001605: 40,2021 53751 DXCH TANGNB
013550,001606: 40,2022 06036 TC INTPRET
013551,001607: 40,2023 77624 CALL
013552,001608: 40,2024 46041 RRNB # GET RR LOS IN BODY AXES.
013553,001609: 40,2025 00001 STORE 0D # UNIT LOS
013554,001610: 40,2026 14007 STODL 6D
013555,001611: 40,2027 06424 HI6ZEROS
013556,001612: 40,2030 24011 STOVL 8D
013557,001613: 40,2031 00007 6D
013558,001614: 40,2032 77656 UNIT
013559,001615: 40,2033 00007 STORE 6D # UNIT OF LOS PROJ IN X-Z PLANE
013560,001616: 40,2034 77641 DOT
013561,001617: 40,2035 06416 UNITZ
013562,001618: 40,2036 24021 STOVL COSTH # 16D
013563,001619: 40,2037 06422 UNITX
013564,001620: 40,2040 77641 DOT
013565,001621: 40,2041 00007 6D
013566,001622: 40,2042 34023 STCALL SINTH # 18D
013567,001623: 40,2043 47222 ARCTRIG
013568,001624: 40,2044 43244 BPL DAD # INSURE DISPLAY OF 0 - 360 DEG.
013569,001625: 40,2045 60047 +2
013570,001626:
|
|
Page 315
|
013572,001628: 40,2046 06432 DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
013573,001629: 40,2047 26207 STOVL RR-ELEV
013574,001630: 40,2050 00001 0D
013575,001631: 40,2051 77641 DOT
013576,001632: 40,2052 06420 UNITY
013577,001633: 40,2053 24023 STOVL SINTH
013578,001634: 40,2054 00001 0D
013579,001635: 40,2055 77641 DOT
013580,001636: 40,2056 00007 6D
013581,001637: 40,2057 34021 STCALL COSTH
013582,001638: 40,2060 47222 ARCTRIG
013583,001639: 40,2061 43244 BPL DAD # INSURE DISPLAY OF 0 - 360 DEG.
013584,001640: 40,2062 60064 +2
013585,001641: 40,2063 06432 DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
013586,001642: 40,2064 02205 STORE RR-AZ
013587,001643: 40,2065 77776 EXIT
013588,001644: 40,2066 34777 CA 1SEC
013589,001645: 40,2067 04616 TC BANKCALL
013590,001646: 40,2070 01735 CADR DELAYJOB
013591,001647:
013592,001648: 40,2071 34747 CA BIT5
013593,001649: 40,2072 71044 MASK EXTVBACT
013594,001650: 40,2073 10000 CCS A
013595,001651: 40,2074 02017 TC RRLOSDSP
013596,001652: 40,2075 05472 TC ENDEXT
013597,001653:
013598,001654: 40,2076 04070 V16N56 VN 1656
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc