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