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