Source Code
010769,000001: # Copyright: Public domain.
010770,000002: # Filename: EXTENDED_VERBS.agc
010771,000003: # Purpose: Part of the source code for Luminary 1A build 099.
010772,000004: # It is part of the source code for the Lunar Module's (LM)
010773,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
010774,000006: # Assembler: yaYUL
010775,000007: # Contact: Ron Burkey <info@sandroid.org>.
010776,000008: # Website: www.ibiblio.org/apollo.
010777,000009: # Pages: 262-300
010778,000010: # Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
010779,000011: # from the Luminary131/ file of the same
010780,000012: # name, using Luminary099 page images.
010781,000013: # 2009-06-05 RSB Corrected 5 typos.
010782,000014: # 2009-06-06 RSB Eliminated an extraneous 3-instruction block
010783,000015: # and added a missing instruction.
010784,000016: # 2009-06-07 RSB Added a couple of "SBANK=" for compatibility
010785,000017: # with yaYUL. Corrected a typo.
010786,000018: # 2010-12-31 JL Fixed page number comments.
010787,000019: # 2011-01-06 JL Added missing comment characters.
010788,000020: # 2011-05-08 JL Flagged SBANK= workarounds for future removal.
010789,000021:
010790,000022: # This source code has been transcribed or otherwise adapted from
010791,000023: # digitized images of a hardcopy from the MIT Museum. The digitization
010792,000024: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
010793,000025: # the Museum. Many thanks to both. The images (with suitable reduction
010794,000026: # in storage size and consequent reduction in image quality as well) are
010795,000027: # available online at www.ibiblio.org/apollo. If for some reason you
010796,000028: # find that the images are illegible, contact me at info@sandroid.org
010797,000029: # about getting access to the (much) higher-quality images which Paul
010798,000030: # actually created.
010799,000031:
010800,000032: # Notations on the hardcopy document read, in part:
010801,000033:
010802,000034: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
010803,000035: # 16:27 JULY 14, 1969
010804,000036:
010805,000037: # Page 262
010806,000038: 07,2667 BANK 7
010807,000039: 43,2000 SETLOC EXTVERBS
010808,000040: 43,2000 BANK
010809,000041:
010810,000042: 43,2000 E5,1737 EBANK= OGC
010811,000043:
010812,000044: 43,2000 COUNT* $$/EXTVB
010813,000045:
010814,000046: # FAN-OUT
010815,000047:
010816,000048: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
010817,000049: 43,2001 02002 TC LST2FAN # FAN AS BEFROE.
010818,000050:
010819,000051: 43,2002 02130 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
010820,000052: 43,2003 02171 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010821,000053: # 72 ONLY)
010822,000054: 43,2004 02330 TC IMUFINEK # VB42 FINE ALIGN IMU
010823,000055: 43,2005 02707 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
010824,000056: 43,2006 02302 TC RRDESEND # VB44 TERMINATE CONTINUOUS DESIGNATE
010825,000057: 43,2007 02120 TC ALM/END # VB45 SPARE
010826,000058: 43,2010 02120 TC ALM/END # VB46 SPARE
010827,000059: 43,2011 02367 TC V47TXACT # VB47 AGS INITIALIZATION
010828,000060: 43,2012 03135 TC DAPDISP # VB48 LOAD A/P DATA
010829,000061: 43,2013 13015 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER
010830,000062: 43,2014 02361 TC GOLOADLV # VB50 PLEASE PERFORM
010831,000063: 43,2015 02120 TC ALM/END # VB51 SPARE
010832,000064: 43,2016 02361 TC GOLOADLV # VB52 PLEASE MARK X -- RETICLE.
010833,000065: 43,2017 02361 TC GOLOADLV # VB53 PLEASE MARK Y -- RETICLE.
010834,000066: 43,2020 02361 TC GOLOADLV # VB54 PLEASE MARK X OR Y RETICLE
010835,000067: 43,2021 02401 TC ALINTIME # VB55 ALIGN TIME
010836,000068: 43,2022 03024 TC TRMTRACK # VB56 TERMINATE TRACKING -- P20 + P25
010837,000069: 43,2023 02322 TC LRON # VB57 PERMIT LANDING RADAR UPDATES
010838,000070: 43,2024 02325 TC LROFF # VB58 INHIBIT LANDING RADAR UPDATES
010839,000071: 43,2025 02120 TC ALM/END # VB59 SPARE
010840,000072: 43,2026 02151 TC LRPOS2K # VB60 COMMAND LR TO POSITION 2.
010841,000073: 43,2027 02163 TC DAPATTER # VB61 DISPLAY DAP ATTITUDE ERROR
010842,000074: 43,2030 02166 TC TOTATTER # VB62 DISPLAY TOTAL ATTITUDE ERROR
010843,000075: 43,2031 02414 TC R04 # VB63 SAMPLE RADAR ONCE PER SECOND
010844,000076: 43,2032 02700 TC VB64 # VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES
010845,000077: 43,2033 03221 TC SNUFFOUT # VB65 DISABLE U,V JETS DURING DPS BURNS.
010846,000078: 43,2034 03142 TC ATTACHED # VB66 ATTACHED MOVE THIS TO OTHER STATE
010847,000079: 43,2035 03213 TC V67 # VB67 W MATRIX MONITOR
010848,000080: 43,2036 02120 TC ALM/END # VB68 SPARE
010849,000081: 43,2037 02037 VERB69 TC VERB69 # VB69 FORCE A HARDWARE RESTART
010850,000082: 43,2040 03724 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
010851,000083: 43,2041 03726 TC V71UPDAT # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS.
010852,000084: 43,2042 03730 TC V72UPDAT # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS.
010853,000085: 43,2043 03732 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
010854,000086: 43,2044 03045 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010855,000087: # FOR ERASABLE DUMP.
010856,000088: 43,2045 03224 TC OUTSNUFF # VB75 ENABLE U,V JETS DURING DPS BURNS.
010857,000089: # Page 263
010858,000090: 43,2046 03001 TC MINIMP # VB76 MINIMUM IMPULSE MODE
010859,000091: 43,2047 03006 TC NOMINIMP # VB77 RATE COMMAND MODE
010860,000092: 43,2050 02404 TC R77 # VB78 START LR SPURIOUS RETURN TEST
010861,000093: 43,2051 02617 TC R77END # VB79 TERMINATE LR SPURIOUS RETURN TEST
010862,000094: 43,2052 03051 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR
010863,000095: 43,2053 03054 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
010864,000096: 43,2054 02746 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010865,000097: 43,2055 02756 TC V83PERF # VB83 REQUEST REND PARAM DISPLAY (R31)
010866,000098: 43,2056 02120 TC ALM/END # VB84 SPARE
010867,000099: 43,2057 03227 TC VERB85 # VB85 DISPLAY RR LOS AZ AND ELEV
010868,000100: 43,2060 02120 TC ALM/END # VB86 SPARE
010869,000101: 43,2061 02120 TC ALM/END # VB87 SPARE
010870,000102: 43,2062 02120 TC ALM/END # VB88 SPARE
010871,000103: 43,2063 02764 TC V89PERF # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
010872,000104: 43,2064 02773 TC V90PERF # VB90 OUT OF PLANE RENDEZVOUS DISPLAY
010873,000105: 43,2065 03100 TC GOSHOSUM # VB91 DISPLAY BANK SUM.
010874,000106: 43,2066 03064 TC SYSTEST # VB92 OPERAT IMU PERFORMANCE TEST.
010875,000107: 43,2067 03073 TC WMATRXNG # VB93 CLEAR RENDWFLG
010876,000108: 43,2070 02120 TC ALM/END # VB94 SPARE
010877,000109: 43,2071 03061 TC UPDATOFF # VB95 NO STATE VECTOR UPDATE ALLOWED
010878,000110: 43,2072 03206 TC VERB96 # VB96 INTERRUPT INTEGRATION AND GO TO P00
010879,000111: 43,2073 02361 TC GOLOADLV # VB97 PLEASE VERIFY ENGINE FAILURE
010880,000112: 43,2074 02120 TC ALM/END # VB98 SPARE
010881,000113: 43,2075 02361 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
010882,000114:
010883,000115: # END OF EXTENDED VERB FAN
010884,000116:
010885,000117: 43,2076 11044 TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY
010886,000118: 43,2077 02120 TC ALM/END # YES, TURN ON OPERATOR LIGHT
010887,000119: 43,2100 30100 CA FLAGWRD4 # ARE PRIORITY DISPLAYS USING DSKY
010888,000120: 43,2101 72127 MASK OC24100
010889,000121: 43,2102 10000 CCS A
010890,000122: 43,2103 02120 TC ALM/END # YES
010891,000123: 43,2104 36007 CAF OCT24 # SET 3, AND 5
010892,000124: 43,2105 55044 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
010893,000125: # SYSTEM BUSY
010894,000126:
010895,000127: 43,2106 30002 CA Q
010896,000128: 43,2107 54155 TS MPAC +1
010897,000129:
010898,000130: 43,2110 44752 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
010899,000131: 43,2111 04154 TC NVSUB
010900,000132: 43,2112 02113 TC +1
010901,000133: 43,2113 00155 TC MPAC +1
010902,000134:
010903,000135: 43,2114 04364 XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT.
010904,000136: 43,2115 05472 TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS.
010905,000137:
010906,000138: 43,2116 5472 TERMEXTV EQUALS ENDEXT
010907,000139: # Page 264
010908,000140: 43,2116 5472 ENDEXTVB EQUALS ENDEXT
010909,000141:
010910,000142: 43,2116 34755 XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS.
010911,000143: 43,2117 02105 TC SETXTACT
010912,000144:
010913,000145: 43,2120 04364 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
010914,000146: 43,2121 04635 GOPIN TC POSTJUMP
010915,000147: 43,2122 21050 CADR PINBRNCH
010916,000148:
010917,000149: 43,2123 31011 CHKP00H CA MODREG # CHECK FOR P00 OR P00-.
010918,000150: 43,2124 00006 EXTEND
010919,000151: 43,2125 16742 BZF TCQ
010920,000152: 43,2126 02120 TC ALM/END
010921,000153:
010922,000154: 43,2127 24100 OC24100 OCT 24100
010923,000155:
010924,000156: # Page 265
010925,000157: # VBZERO VERB 40 DESCRIPTION
010926,000158:
010927,000159: # 1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
010928,000160: # 2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
010929,000161: # FOR N72, CHECK IF EITHER RADAR IS IN USE.
010930,000162: # 3. EXECUTE THE CDU ZERO.
010931,000163: # 4. STALL UNTIL THE ZERO IS DONE.
010932,000164: # 5. DON'T DIFFERENTIATE BETWEEN A BAD OR GOOD RETURN.
010933,000165: # 6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
010934,000166:
010935,000167: 43,2130 02174 VBZERO TC OP/INERT
010936,000168: 43,2131 02133 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
010937,000169: 43,2132 02142 TC RRZEROK # RETURN HERE IF NOUN = RCDU(72)
010938,000170: 43,2133 02375 IMUZEROK TC CKMODCAD
010939,000171: 43,2134 04616 TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO
010940,000172: 43,2135 16714 CADR IMUZERO
010941,000173:
010942,000174: 43,2136 04616 TC BANKCALL # STALL
010943,000175: 43,2137 17716 CADR IMUSTALL
010944,000176: 43,2140 02141 TC +1
010945,000177:
010946,000178: 43,2141 02121 TC GOPIN # IMUZERO
010947,000179:
010948,000180: 43,2142 02642 RRZEROK TC RDRUSECK
010949,000181: 43,2143 04616 TC BANKCALL
010950,000182: 43,2144 52343 CADR RRZERO
010951,000183:
010952,000184: 43,2145 04616 RWAITK TC BANKCALL
010953,000185: 43,2146 17714 CADR RADSTALL
010954,000186: 43,2147 12150 TCF +1
010955,000187: 43,2150 02121 TC GOPIN # RRZERO
010956,000188:
010957,000189: # LRPOS2K VERB 60 DESCRIPTION
010958,000190: # COMMAND LANDING RADAR TO POSITION 2
010959,000191:
010960,000192: # 1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
010961,000193: # 2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
010962,000194: # THE PRESCRIBED TIME.
010963,000195: # 3. RE-ESTABLISH THE DISPLAYS.
010964,000196:
010965,000197: 43,2151 02642 LRPOS2K TC RDRUSECK
010966,000198: 43,2152 04616 TC BANKCALL # COMMAND LR TO POSITION 2
010967,000199: 43,2153 53471 CADR LRPOS2
010968,000200: 43,2154 04616 TC BANKCALL
010969,000201: 43,2155 17714 CADR RADSTALL
010970,000202: 43,2156 02160 TC LRP2ALM
010971,000203: 43,2157 02121 TC GOPIN
010972,000204:
010973,000205: 43,2160 05567 LRP2ALM TC ALARM
010974,000206: 43,2161 00523 OCT 523
010975,000207: 43,2162 02121 TC GOPIN
010976,000208: # Page 266
010977,000209:
010978,000210: # V61 VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
010979,000211:
010980,000212: 43,2163 05516 DAPATTER TC DOWNFLAG
010981,000213: 43,2164 00013 ADRES NEEDLFLG
010982,000214: 43,2165 02121 TC GOPIN
010983,000215:
010984,000216: # V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
010985,000217:
010986,000218: 43,2166 05504 TOTATTER TC UPFLAG
010987,000219: 43,2167 00013 ADRES NEEDLFLG
010988,000220: 43,2170 02121 TC GOPIN
010989,000221:
010990,000222: # Page 267
010991,000223: # VBCOARK VERB 41 DESCRIPTION
010992,000224: # COARSE ALIGN IMU OR RADAR
010993,000225:
010994,000226: # 1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
010995,000227: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010996,000228: # CASE 1, NOUN 20 (ICDU ANGLES)
010997,000229: # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
010998,000230: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010999,000231: # RESPONSES
011000,000232: # A. TERMINATE
011001,000233: # 1. RELEASE EXT VERB DISPLAY SYSTEM
011002,000234: # B. PROCEED
011003,000235: # 1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
011004,000236: # C. ENTER
011005,000237: # 1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
011006,000238: # ICORK2
011007,000239: # 1. RE-DISPLAY VERB 41.
011008,000240: # 2. EXECUTE IMUCCARS (IMU COARSE ALIGN).
011009,000241: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
011010,000242: # 4. RELEASE EXT VERB DISPLAY SYSTEM.
011011,000243: # CASE 2, NOUN 72 (RCDU ANGLES)
011012,000244: # EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
011013,000245: # 5. DISPLAY FLASHING V24, N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
011014,000246: # RESPONSES
011015,000247: # A. TERMINATE
011016,000248: # 1. RELEASE EXT VERB DISPLAY SYS.
011017,000249: # B. PROCEED OR ENTER
011018,000250: # 1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
011019,000251: # 2. RE-DISPLAY VERB 41.
011020,000252: # 3. SCHEDULE RRDESK2 WITH PRIORITY 20.
011021,000253: # 4. RELEASE EXT VERB DISPLAY SYS.
011022,000254: # AURLOKON
011023,000255: # 1. FLASH V04 N12 R1 = 00006 R2 = 00002
011024,000256: # RESPONSES
011025,000257: # A. TERMINATE
011026,000258: # B. PROCEED
011027,000259: # 1. RESET LOCK-ON SWITCH
011028,000260: # 2. SET CONTINUOUS DESIGNATE FLAG
011029,000261: # 3. DISABLE R25
011030,000262: # C. V22 E 1 E, R1 = 00001, PROCEED
011031,000263: # 1. SET LOCK-ON SWITCH
011032,000264:
011033,000265: 43,2171 02174 VBCOARK TC OP/INERT
011034,000266: 43,2172 02205 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
011035,000267: 43,2173 02227 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (72)
011036,000268:
011037,000269: # RETURNS TO L+1 IF IMU OR L+2 IF RR.
011038,000270:
011039,000271: 43,2174 46007 OP/INERT CS OCT24
011040,000272: 43,2175 61002 AD NOUNREG
011041,000273: 43,2176 00006 EXTEND
011042,000274: # Page 268
011043,000275: 43,2177 16742 BZF TCQ # IF = 20.
011044,000276:
011045,000277: 43,2200 62204 AD RRIMUDIF # -52
011046,000278: 43,2201 00006 EXTEND
011047,000279: 43,2202 16737 BZF Q+1
011048,000280:
011049,000281: 43,2203 02120 TC ALM/END # ILLEGAL.
011050,000282:
011051,000283: 43,2204 77713 RRIMUDIF DEC -52 B-14 # THE IMU
011052,000284: 43,2205 02375 IMUCOARK TC CKMODCAD
011053,000285: 43,2206 02076 TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
011054,000286: 43,2207 32225 CAF VNLODCDU # CALL FOR THETAD LOAD
011055,000287: 43,2210 04616 TC BANKCALL
011056,000288: 43,2211 20334 CADR GOXDSPF
011057,000289: 43,2212 05472 TC TERMEXTV
011058,000290: 43,2213 12214 TCF +1
011059,000291:
011060,000292: 43,2214 32226 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
011061,000293: 43,2215 04616 TC BANKCALL
011062,000294: 43,2216 20620 CADR EXDSPRET
011063,000295:
011064,000296: 43,2217 04616 TC BANKCALL # CALL MODE SWITCHING PROG
011065,000297: 43,2220 17000 CADR IMUCOARS
011066,000298:
011067,000299: 43,2221 04616 TC BANKCALL # STALL
011068,000300: 43,2222 17716 CADR IMUSTALL
011069,000301: 43,2223 05472 TC ENDEXTVB
011070,000302: 43,2224 05472 TC ENDEXTVB
011071,000303:
011072,000304: 43,2225 06226 VNLODCDU VN 2522
011073,000305: 43,2226 12200 IMUCOARV VN 4100
011074,000306:
011075,000307: # Page 269
011076,000308: # DESIGNATE TO DESIRED GIMBAL ANGLES.
011077,000309:
011078,000310: 43,2227 02642 RRDESNBK TC RDRUSECK
011079,000311: 43,2230 02076 TC TESTXACT
011080,000312: 43,2231 34745 CA RNDVZBIT # IS P20 RUNNING?
011081,000313: 43,2232 70074 MASK FLAGWRD0
011082,000314: 43,2233 10000 CCS A
011083,000315: 43,2234 12114 TCF XACTALM # OPERADOR ERROR IF IN P20
011084,000316: 43,2235 42321 CS OCT41000 # TERMINATE PRESENT DESIGNATION
011085,000317: 43,2236 00004 INHINT # RELINT DONE IN GOXDSPF
011086,000318: 43,2237 70110 MASK RADMODES
011087,000319: 43,2240 54110 TS RADMODES
011088,000320:
011089,000321: 43,2241 32260 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
011090,000322: 43,2242 04616 TC BANKCALL
011091,000323: 43,2243 20334 CADR GOXDSPF
011092,000324: 43,2244 05472 TC TERMEXTV
011093,000325: 43,2245 12241 TCF -4 # V33
011094,000326:
011095,000327: 43,2246 04616 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
011096,000328: 43,2247 46000 CADR AURLOKON
011097,000329:
011098,000330: 43,2250 32226 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
011099,000331: 43,2251 04616 TC BANKCALL
011100,000332: 43,2252 20620 CADR EXDSPRET
011101,000333:
011102,000334: 43,2253 34736 CAF PRIO20
011103,000335: 43,2254 05105 TC FINDVAC
011104,000336: 43,2255 E7,1456 EBANK= LOSCOUNT
011105,000337: 43,2255 02261 66107 2CADR RRDESK2
011106,000338:
011107,000339: 43,2257 15472 TCF TERMEXTV # FREES DISPLAY
011108,000340:
011109,000341: 43,2260 06111 VNLDRCDU VN 2473
011110,000342: 43,2261 43,2226 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
011111,000343:
011112,000344: 43,2261 04616 RRDESK2 TC BANKCALL
011113,000345: 43,2262 52475 CADR RRDESNB
011114,000346:
011115,000347: 43,2263 02264 TC +1 # DUMMY NEEDED SINCE DESRETRN DOES INCR
011116,000348: 43,2264 30167 CA PRIORITY
011117,000349: 43,2265 75004 MASK LOW9
011118,000350: 43,2266 10000 CCS A
011119,000351: 43,2267 50000 INDEX A
011120,000352: 43,2270 54000 TS A # RELEASE THIS JOB'S VAC AREA.
011121,000353: 43,2271 40000 COM # INSURE ENDOFJOB DOES A NOVAC END (BZMF).
011122,000354: 43,2272 26167 ADS PRIORITY
011123,000355: 43,2273 04616 TC BANKCALL # WAIT FOR COMPLETION OF DESIGNATE
011124,000356: 43,2274 17714 CADR RADSTALL
011125,000357: # Page 270
011126,000358: 43,2275 02277 TC +2 # BADEND -- NO LOCKON OR OUT OF LIMITS
011127,000359: 43,2276 05155 TC ENDOFJOB # GOODEND -- LOCKON ACHIEVED
011128,000360: 43,2277 05567 TC ALARM
011129,000361: 43,2300 00503 OCT 503 # TURN ON ALARM LIGHT -- 503 DESIGNATE FAIL
011130,000362:
011131,000363: 43,2301 05155 TC ENDOFJOB
011132,000364:
011133,000365: 43,2302 10110 RRDESEND CCS RADMODES # TERMINATE CONTINOUS DESIGNATE ONLY
011134,000366: 43,2303 12121 TCF GOPIN
011135,000367: 43,2304 12121 TCF GOPIN
011136,000368: 43,2305 12306 TCF +1
011137,000369: 43,2306 42321 CS OCT41000 # BEGDES GOES TO ENDRADAR
011138,000370: 43,2307 00004 INHINT # RELINT DONE IN DOWNFLAG
011139,000371: 43,2310 70110 MASK RADMODES
011140,000372: 43,2311 54110 TS RADMODES
011141,000373: 43,2312 06011 TC CLRADMOD
011142,000374: 43,2313 34777 CAF 1SEC
011143,000375: 43,2314 04616 TC BANKCALL
011144,000376: 43,2315 01735 CADR DELAYJOB
011145,000377: 43,2316 05516 TC DOWNFLAG # ENABLE R25 GIMBAL MONITOR
011146,000378: 43,2317 00126 ADRES NORRMON
011147,000379: 43,2320 12121 TCF GOPIN
011148,000380: 43,2321 41000 OCT41000 OCT 41000 # CONTINOUS DESIGNATE -- DESIGNATE
011149,000381:
011150,000382: # Page 271
011151,000383: 23,2000 BANK 23
011152,000384: 23,2000 SETLOC EXTVB1
011153,000385: 23,2000 BANK
011154,000386: 23,2000 COUNT* $$/EXTVB
011155,000387:
011156,000388: 23,2000 04645 AURLOKON TC MAKECADR
011157,000389: 23,2001 55113 TS DESRET
011158,000390: 23,2002 34752 CAF TWO
011159,000391: 23,2003 55052 TS OPTIONX +1
011160,000392: 23,2004 36242 CAF SIX # OPTION CODE FOR V04N12
011161,000393: 23,2005 55051 TS OPTIONX
011162,000394:
011163,000395: 23,2006 32037 -5 CAF V04N1272
011164,000396: 23,2007 04616 TC BANKCALL # R2 00001 LOCK-ON
011165,000397: 23,2010 20353 CADR GOMARKFR
011166,000398: 23,2011 15472 TCF ENDEXT # V34
011167,000399: 23,2012 12017 TCF +5 # V33
011168,000400: 23,2013 12006 TCF -5 # V32
011169,000401: 23,2014 34751 CAF BIT3
011170,000402: 23,2015 05464 TC BLANKET
011171,000403: 23,2016 05155 TC ENDOFJOB
011172,000404:
011173,000405: 23,2017 31052 +5 CA OPTIONX +1
011174,000406: 23,2020 74752 MASK BIT2
011175,000407: 23,2021 10000 CCS A
011176,000408: 23,2022 12026 TCF NOLOKON
011177,000409: 23,2023 05504 TC UPFLAG
011178,000410: 23,2024 00012 ADRES LOKONSW
011179,000411: 23,2025 12034 TCF AURLKON1
011180,000412:
011181,000413: 23,2026 05516 NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMADES TO
011182,000414: 23,2027 00012 ADRES LOKONSW # INDICATE THAT CONTINUOUS DESIGNATION IS
011183,000415: 23,2030 05504 TC UPFLAG # WANTED (TO BE TERMINATED BY V44.)
011184,000416: 23,2031 00264 ADRES CDESFLAG
011185,000417: 23,2032 05504 TC UPFLAG # SET NO RR ANGLE MONITOR FLAG.
011186,000418: 23,2033 00126 ADRES NORRMON # DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
011187,000419: 23,2034 00003 AURLKON1 RELINT
011188,000420: 23,2035 31113 CA DESRET
011189,000421: 23,2036 14640 TCF BANKJUMP
011190,000422:
011191,000423: 23,2037 01014 V04N1272 VN 412
011192,000424: 23,2040 77757 -LOKONFG OCT -20
011193,000425:
011194,000426: 43,2322 BANK 43
011195,000427: 43,2000 SETLOC EXTVERBS
011196,000428: 43,2000 BANK
011197,000429: 43,2322 COUNT* $$/EXTVB
011198,000430:
011199,000431: 43,2322 05504 LRON TC UPFLAG # PERMIT INCORPORATION OF LR DATA V57
011200,000432:
011201,000433: # Page 272
011202,000434: 43,2323 00254 ADRES LRINH
011203,000435: 43,2324 12121 TCF GOPIN
011204,000436:
011205,000437: 43,2325 05516 LROFF TC DOWNFLAG # INHIBIT INCORPORATION OF LR DATA V58
011206,000438: 43,2326 00254 ADRES LRINH
011207,000439: 43,2327 12121 TCF GOPIN
011208,000440:
011209,000441: 43,2330 E5,1737 EBANK= OGC
011210,000442:
011211,000443: # Page 273
011212,000444:
011213,000445: # IMUFINEK VERB 42 DESCRIPTION
011214,000446: # FINE ALIGN IMU
011215,000447:
011216,000448: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
011217,000449: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
011218,000450: # RESPONSES
011219,000451: # A. TERMINATE
011220,000452: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
011221,000453: # B. PROCEED OR ENTER
011222,000454: # 1. RE-DISPLAY VERB 42
011223,000455: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
011224,000456: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
011225,000457: # A. FAILED
011226,000458: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
011227,000459: # B. GOOD
011228,000460: # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
011229,000461: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
011230,000462:
011231,000463: 43,2330 02375 IMUFINEK TC CKMODCAD
011232,000464: 43,2331 02076 TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
011233,000465: 43,2332 32357 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
011234,000466: 43,2333 04616 TC BANKCALL
011235,000467: 43,2334 20334 CADR GOXDSPF
011236,000468: 43,2335 05472 TC TERMEXTV
011237,000469: 43,2336 02337 TC +1 # PROCEED WITHOUT A LOAD
011238,000470:
011239,000471: 43,2337 32360 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
011240,000472: 43,2340 04616 TC BANKCALL
011241,000473: 43,2341 20620 CADR EXDSPRET
011242,000474:
011243,000475: 43,2342 04616 TC BANKCALL # CALL MODE SWITCH PROG
011244,000476: 43,2343 17210 CADR IMUFINE
011245,000477:
011246,000478: 43,2344 04616 TC BANKCALL # HIBERNATION
011247,000479: 43,2345 17716 CADR IMUSTALL
011248,000480: 43,2346 05472 TC ENDEXTVB
011249,000481:
011250,000482: 43,2347 32356 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS
011251,000483: 43,2350 04616 TC BANKCALL
011252,000484: 43,2351 17323 CADR IMUPULSE
011253,000485:
011254,000486: 43,2352 04616 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
011255,000487: 43,2353 17716 CADR IMUSTALL
011256,000488: 43,2354 05472 TC ENDEXTVB
011257,000489: 43,2355 05472 TC ENDEXTVB
011258,000490:
011259,000491: 43,2356 02737 LGYROBIN ECADR OGC
011260,000492: 43,2357 06335 VNLODGYR VN 2593
011261,000493: 43,2360 12400 IMUFINEV VN 4200
011262,000494:
011263,000495: # GOLOADLV VERB 50 DESCRIPTION
011264,000496: # AND OTHER PLEASE
011265,000497: # Page 274
011266,000498: # DO SOMETHING VERBS
011267,000499:
011268,000500: # PLEASE PERFORM, MARK, CALIBRATE, ETC.
011269,000501:
011270,000502: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
011271,000503: # SAME RECALL AS A COMPLETED LOAD.
011272,000504: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
011273,000505:
011274,000506: 43,2361 40,2000 SBANK= PINSUPER # FOR LOADLV1 AND SHOWSUM CADR'S
011275,000507:
011276,000508: 43,2361 04433 GOLOADLV TC FLASHOFF
011277,000509:
011278,000510: 43,2362 34201 CAF PINSUPBT
011279,000511: 43,2363 00006 EXTEND
011280,000512: 43,2364 01007 WRITE SUPERBNK
011281,000513: 43,2365 04635 TC POSTJUMP
011282,000514: 43,2366 62001 CADR LOADLV1
011283,000515:
011284,000516: # VERB 47 -- AGS INITIALIZATION -- R47.
011285,000517:
011286,000518: # SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
011287,000519:
011288,000520: 43,2367 02076 V47TXACT TC TESTXACT # NO OTHER EXTVERB.
011289,000521: 43,2370 34740 CAF PRIO4
011290,000522: 43,2371 05105 TC FINDVAC
![]() |
[WORKAROUND] RSB 2009 |
011292,000524: 43,2372 30,2000 SBANK= LOWSUPER
![]() |
[WORKAROUND] |
011294,000526: 43,2372 E4,1600 EBANK= AGSBUFF
011295,000527: 43,2372 02005 64064 2CADR AGSINIT
011296,000528:
011297,000529: 43,2374 05155 TC ENDOFJOB
011298,000530:
011299,000531: 43,2375 31304 CKMODCAD CA MODECADR
011300,000532: 43,2376 00006 EXTEND
011301,000533: 43,2377 16742 BZF TCQ
011302,000534: 43,2400 02120 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT
011303,000535:
011304,000536: # Page 275
011305,000537: # ALINTIME VERB 55 DESCRIPTION
011306,000538: # REQUIRE P00 OR P00-.
011307,000539:
011308,000540: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011309,000541: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011310,000542: # 3. REQUIRE EXECUTION OF VERB 23.
011311,000543: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011312,000544: # 5. RELEASE EXT VERB DISPLAY SYSTEM
011313,000545:
011314,000546: 43,2401 02076 ALINTIME TC TESTXACT
011315,000547: 43,2402 04635 TC POSTJUMP # NO ROOM IN 43
011316,000548: 43,2403 64002 CADR R33
011317,000549:
011318,000550: 42,2002 BANK 42
011319,000551: 42,2000 SETLOC SBAND
011320,000552: 42,2000 BANK
011321,000553: 42,2002 COUNT* $$/R33
011322,000554:
011323,000555: 42,2002 35021 R33 CAF PRIO7
011324,000556: 42,2003 05146 TC PRIOCHNG
011325,000557: 42,2004 32034 CAF VNLODDT
011326,000558: 42,2005 04616 TC BANKCALL
011327,000559: 42,2006 20334 CADR GOXDSPF
011328,000560: 42,2007 05472 TC ENDEXT # TERMINATE
011329,000561: 42,2010 05472 TC ENDEXT # PROCEED
011330,000562: 42,2011 42033 CS DEC23 # DATA IN OR RESEQUENCE (UNLIKELY)
011331,000563: 42,2012 60154 AD MPAC # RECALL LEFT VERB IN MPAC
011332,000564: 42,2013 00006 EXTEND
011333,000565: 42,2014 12016 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
011334,000566: 42,2015 05472 TC ENDEXT # WITH V23 (DATA IN).
011335,000567:
011336,000568: 42,2016 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
011337,000569: 42,2017 34755 CAF ZERO
011338,000570: 42,2020 54156 TS MPAC +2 # NEEDED FOR TP AGREE
011339,000571: 42,2021 54001 TS L # ZERO T1 + 2 WHILE ALIGNING.
011340,000572: 42,2022 52025 DXCH TIME2
011341,000573: 42,2023 52155 DXCH MPAC
011342,000574: 42,2024 53052 DXCH DSPTEM2 +1 # INCREMENT
011343,000575: 42,2025 20155 DAS MPAC
011344,000576:
011345,000577: 42,2026 07257 TC TPAGREE # FORCE SIGN AGREEMENT.
011346,000578: 42,2027 52155 DXCH MPAC # NEW CLOCK.
011347,000579: 42,2030 20025 DAS TIME2
011348,000580: 42,2031 00003 RELINT
011349,000581: 42,2032 05472 UPDTMEND TC ENDEXT
011350,000582:
011351,000583: 42,2033 00027 DEC23 DEC 23 B-14 # V 23
011352,000584:
011353,000585: 42,2034 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
011354,000586:
011355,000587: # Page 276
011356,000588: # SET UP FOR RADAR SAMPLING.
011357,000589:
011358,000590: 42,2035 BANK 42
011359,000591: 43,2000 SETLOC EXTVERBS
011360,000592: 43,2000 BANK
011361,000593:
011362,000594: 43,2404 E4,1600 EBANK= RSTACK
011363,000595:
011364,000596: 43,2404 COUNT* $$/R0477
011365,000597:
011366,000598: 43,2404 02642 R77 TC RDRUSECK # TRY TO AVOID THE 1210.
011367,000599: 43,2405 30077 CA FLAGWRD3 # IS R04 RUNNING?
011368,000600: 43,2406 74743 MASK R04FLBIT
011369,000601: 43,2407 10000 CCS A
011370,000602: 43,2410 02120 TC ALM/END # YES.
011371,000603: 43,2411 05504 TC UPFLAG
011372,000604: 43,2412 00117 ADRES R77FLAG
011373,000605: 43,2413 12420 TCF R04Z
011374,000606:
011375,000607: 43,2414 02642 R04 TC RDRUSECK # TRY TO AVOID THE 1210.
011376,000608: 43,2415 02076 TC TESTXACT
011377,000609: 43,2416 05504 TC UPFLAG
011378,000610: 43,2417 00063 ADRES R04FLAG # SET R04FLAG FOR ALARMS
011379,000611:
011380,000612: 43,2420 34741 R04Z CAF EBANK4
011381,000613: 43,2421 54003 TS EBANK
011382,000614: 43,2422 32640 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
011383,000615: 43,2423 55755 TS RSAMPDT
011384,000616: 43,2424 34755 CAF ZERO
011385,000617: 43,2425 55754 TS RTSTLOC
011386,000618: 43,2426 55756 TS RFAILCNT # ZERO BAD SAMPLE COUNTER
011387,000619:
011388,000620: 43,2427 00004 INHINT
011389,000621: 43,2430 42641 CS LRPOSCAL # INITIALIZE
011390,000622: 43,2431 70110 MASK RADMODES # BIT 9 LR RANGE LOW SCALE =0
011391,000623: 43,2432 54110 TS RADMODES # BIT 6 LR POS 1 =0
011392,000624: 43,2433 32641 CAF LRPOSCAL # BIT 3 RR RANGE LOW SCALE =0
011393,000625: 43,2434 00006 EXTEND
011394,000626: 43,2435 02033 RAND CHAN33
011395,000627: 43,2436 26110 ADS RADMODES
011396,000628: 43,2437 00003 RELINT
011397,000629:
011398,000630: 43,2440 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
011399,000631: 43,2441 74743 MASK R04FLBIT
011400,000632: 43,2442 10000 CCS A
011401,000633: 43,2443 12575 TCF R04K
011402,000634:
011403,000635: 43,2444 34753 CAF ONE # INDICATES RENDEZVOUS DESIRED
011404,000636: 43,2445 55052 TS OPTIONX +1
011405,000637: 43,2446 34751 R04A CAF BIT3 # OPTION CODE FOR V04N12
011406,000638:
011407,000639: # Page 277
011408,000640: 43,2447 55051 TS OPTIONX
011409,000641: 43,2450 32635 CAF V04N12X
011410,000642: 43,2451 04616 TC BANKCALL # R2 00001 RENDEZVOUS RADAR
011411,000643: 43,2452 20353 CADR GOMARKFR # 00002 LANDING RADAR
011412,000644: 43,2453 12603 TCF R04END # V34
011413,000645: 43,2454 12461 TCF +5 # V33
011414,000646: 43,2455 12450 TCF R04A +2 # R2
011415,000647: 43,2456 34751 CAF BIT3
011416,000648: 43,2457 05464 TC BLANKET
011417,000649: 43,2460 05155 TC ENDOFJOB
011418,000650:
011419,000651: 43,2461 31052 CA OPTIONX +1 # SAVE DESIRED OPTION RR =1 LR =2
011420,000652: 43,2462 55751 TS RTSTDEX
011421,000653:
011422,000654: 43,2463 36242 R04X CAF SIX # RR OR LR DESIRED
011423,000655: 43,2464 71751 MASK RTSTDEX
011424,000656: 43,2465 10000 CCS A
011425,000657: 43,2466 12577 TCF R04L # LANDING RADAR
011426,000658: 43,2467 55753 TS RTSTBASE # FOR RR BASE =0, MAX =1
011427,000659:
011428,000660: 43,2470 34752 R04B CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
011429,000661: 43,2471 00006 EXTEND
011430,000662: 43,2472 02033 RAND CHAN33
011431,000663: 43,2473 00006 EXTEND
011432,000664: 43,2474 12505 BZF R04C # YES
011433,000665:
011434,000666: 43,2475 32637 CAF 201R04 # REQUEST SELECTION OF RR AUTO MODE
011435,000667: 43,2476 55045 TS DSPTEM1
011436,000668: 43,2477 32636 CAF V50N25X
011437,000669: 43,2500 04616 TC BANKCALL
011438,000670: 43,2501 20345 CADR GOMARK4
011439,000671: 43,2502 12603 TCF R04END # V34
011440,000672: 43,2503 12470 TCF R04B # V33
011441,000673: 43,2504 12475 TCF -7 # E
011442,000674:
011443,000675: 43,2505 34736 R04C CAF BIT14 # ENABLE RR AUTO TRACKER
011444,000676: 43,2506 00006 EXTEND
011445,000677: 43,2507 05012 WOR CHAN12
011446,000678:
011447,000679: 43,2510 34752 CAF TWO
011448,000680: 43,2511 55752 TS RTSTMAX # FOR SEQUENTIAL STORAGE
011449,000681:
011450,000682: 43,2512 05203 TC WAITLIST
![]() |
[WORKAROUND] RSB 2009 |
011452,000684: 43,2513 40,2000 SBANK= PINSUPER
![]() |
[WORKAROUND] |
011454,000686: 43,2513 E4,1600 EBANK= RSTACK
011455,000687: 43,2513 02003 52104 2CADR RADSAMP
011456,000688:
011457,000689: 43,2515 00003 RELINT
011458,000690:
011459,000691: 43,2516 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
011460,000692: 43,2517 74743 MASK R04FLBIT
011461,000693: # Page 278
011462,000694: 43,2520 10000 CCS A
011463,000695: 43,2521 12121 TCF GOPIN # R77
011464,000696:
011465,000697: 43,2522 36242 CAF SIX # RR OR LR
011466,000698: 43,2523 71751 MASK RTSTDEX
011467,000699: 43,2524 10000 CCS A
011468,000700: 43,2525 12542 TCF R04LR # LR
011469,000701:
011470,000702: 43,2526 32631 R04RR CAF V16N72 # DISPLAY RR CDU ANGLES (1/SEC)
011471,000703: 43,2527 04616 TC BANKCALL # R1 + XXX.XX DEG TRUNNION
011472,000704: 43,2530 20334 CADR GOMARKF # R2 + XXX.XX DEG SHAFT
011473,000705: 43,2531 12603 TCF R04END # V34 R3 BLANK
011474,000706: 43,2532 12534 TCF +2 # V33
011475,000707: 43,2533 12526 TCF R04RR # V32
011476,000708:
011477,000709: 43,2534 32632 CAF V16N78 # DISPLAY RR RANGE AND RANGE RATE (1/SEC)
011478,000710: 43,2535 04616 TC BANKCALL # R1 +- XXX.XX NM RANGE
011479,000711: 43,2536 20334 CADR GOMARKF # R2 +- XXXXX. FPS RANGE RATE
011480,000712: 43,2537 12603 TCF R04END # V34 R3 BLANK
011481,000713: 43,2540 12556 TCF R04Y # V33
011482,000714: 43,2541 12526 TCF R04RR # V32
011483,000715:
011484,000716: 43,2542 32633 R04LR CAF V16N66 # DISPLAY LR RANGE AND POSITON (1/SEC)
011485,000717: 43,2543 04616 TC BANKCALL # R1 +- XXXXX, FT LR RANGE
011486,000718: 43,2544 20334 CADR GOMARKF # R2 + 0000X. POS. NO.
011487,000719: 43,2545 12603 TCF R04END # V34 R3 BLANK
011488,000720: 43,2546 12550 TCF +2 # V33
011489,000721: 43,2547 12542 TCF R04LR # V32
011490,000722:
011491,000723: 43,2550 32634 CAF V16N67 # DISPLAY LR VELX, VELY, VELZ (1/SEC)
011492,000724: 43,2551 04616 TC BANKCALL # R1 +- XXXXX. FPS LR V(X)
011493,000725: 43,2552 20334 CADR GOMARKF # R2 +- XXXXX. FPS LR V(Y)
011494,000726: 43,2553 12603 TCF R04END # V34 R3 +- XXXXX. FPS LR V(Z)
011495,000727: 43,2554 12556 TCF R04Y # V33
011496,000728: 43,2555 12542 TCF R04LR # V32
011497,000729:
011498,000730: 43,2556 34755 R04Y CAF ZERO # TO TERMINATE SAMPLING.
011499,000731: 43,2557 55755 TS RSAMPDT
011500,000732: 43,2560 35000 CAF 2SECS # WAIT FOR LAST RADARUP
011501,000733: 43,2561 04616 TC BANKCALL
011502,000734: 43,2562 01735 CADR DELAYJOB
011503,000735: 43,2563 32640 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
011504,000736: 43,2564 55755 TS RSAMPDT
011505,000737: 43,2565 34755 CAF ZERO # FOR STORING RESULTS
011506,000738: 43,2566 55754 TS RTSTLOC
011507,000739: 43,2567 36242 CAF SIX
011508,000740: 43,2570 71751 MASK RTSTDEX
011509,000741: 43,2571 10000 CCS A
011510,000742: 43,2572 44753 CS ONE # WAS LR
011511,000743: 43,2573 64752 AD TWO # WAS RR
011512,000744: # Page 279
011513,000745:
011514,000746: 43,2574 12462 TCF R04X -1
011515,000747:
011516,000748: 43,2575 34766 R04K CAF 250MS+1 # SAMPLE 4 LR COMPONENTS PER SECOND.
011517,000749: 43,2576 55755 TS RSAMPDT
011518,000750:
011519,000751: 43,2577 34752 R04L CAF TWO
011520,000752: 43,2600 55753 TS RTSTBASE # FOR LR BASE =2, MAX =3
011521,000753: 43,2601 36242 CAF SIX
011522,000754: 43,2602 12511 TCF R04C +4
011523,000755: 43,2603 34755 R04END CAF ZERO # ZERO RSAMPDT
011524,000756: 43,2604 55755 TS RSAMPDT # TO TERMINATE SAMPLING
011525,000757: 43,2605 34744 CAF BIT8 # WAIT 1.28 SECONDS FOR POSSIBLE
011526,000758: 43,2606 04616 TC BANKCALL # PENDING RUPT.
011527,000759: 43,2607 01735 CADR DELAYJOB
011528,000760:
011529,000761: 43,2610 00004 INHINT
011530,000762: 43,2611 44736 CS BIT14 # DISABLE RR AUTO TRACKER.
011531,000763: 43,2612 00006 EXTEND
011532,000764: 43,2613 03012 WAND CHAN12
011533,000765:
011534,000766: 43,2614 05516 TC DOWNFLAG
011535,000767: 43,2615 00063 ADRES R04FLAG # SIGNAL END OF R04.
011536,000768:
011537,000769: 43,2616 05472 TC ENDEXT
011538,000770:
011539,000771: 43,2617 34741 R77END CAF EBANK4 # TO TERMINATE SAMPLING
011540,000772: 43,2620 54003 TS EBANK
011541,000773: 43,2621 34755 CAF ZERO
011542,000774: 43,2622 55755 TS RSAMPDT
011543,000775: 43,2623 34746 CAF BIT6 # WAIT 320 MS FOR POSSIBLE
011544,000776: 43,2624 04616 TC BANKCALL # PENDING RUPT.
011545,000777: 43,2625 01735 CADR DELAYJOB
011546,000778:
011547,000779: 43,2626 05516 TC DOWNFLAG
011548,000780: 43,2627 00117 ADRES R77FLAG
011549,000781: 43,2630 12121 TCF GOPIN
011550,000782:
011551,000783: 43,2631 04110 V16N72 VN 1672
011552,000784: 43,2632 04116 V16N78 VN 1678
011553,000785: 43,2633 04102 V16N66 VN 1666
011554,000786: 43,2634 04103 V16N67 VN 1667
011555,000787: 43,2635 01014 V04N12X VN 412
011556,000788: 43,2636 14431 V50N25X VN 5025
011557,000789: 43,2637 00201 201R04 OCT 00201
011558,000790: 43,2640 00145 1SEC+1 DEC 101 B-14
011559,000791: 43,2641 4766 250MS+1 EQUALS CALLCODE
011560,000792: 43,2641 00444 LRPOSCAL OCT 444
011561,000793:
011562,000794: # Page 280
011563,000795: 43,2642 40077 RDRUSECK CS FLAGWRD3 # IS R29 ON?
011564,000796: 43,2643 74741 MASK NR29FBIT
011565,000797: 43,2644 10000 CCS A
011566,000798: 43,2645 02120 TC ALM/END # YES
011567,000799: 43,2646 30101 CA FLAGWRD5 # IS R77 RUNNING?
011568,000800: 43,2647 74741 MASK R77FLBIT
011569,000801: 43,2650 10000 CCS A
011570,000802: 43,2651 02120 TC ALM/END # YES.
011571,000803: 43,2652 40103 CS FLAGWRD7 # IS SERVICER RUNNING AND HENCE POSSIBLY
011572,000804: 43,2653 74746 MASK V37FLBIT # R12 USING THE LR?
011573,000805: 43,2654 10000 CCS A
011574,000806: 43,2655 12662 TCF CHECKRR # NO
011575,000807: 43,2656 40107 CS FLGWRD11 # YES, IS R12 ON?
011576,000808: 43,2657 74735 MASK LRBYBIT
011577,000809: 43,2660 10000 CCS A
011578,000810: 43,2661 02120 TC ALM/END # YES
011579,000811: 43,2662 40075 CHECKRR CS FLAGWRD1 # IS THE TRACK FLAG SET AND HENCE POSSIBLY
011580,000812: 43,2663 74747 MASK TRACKBIT # P20 USING THE RR?
011581,000813: 43,2664 10000 CCS A
011582,000814: 43,2665 12672 TCF CHECKP22 # NO, CHECK FOR P22.
011583,000815:
011584,000816: 43,2666 30074 CKRNDBIT CA FLAGWRD0 # YES, BUT IS IT P25?
011585,000817: 43,2667 74745 MASK RNDVZBIT
011586,000818: 43,2670 10000 CCS A
011587,000819: 43,2671 02120 TC ALM/END
011588,000820: 43,2672 41011 CHECKP22 CS MODREG
011589,000821: 43,2673 62677 AD DEC22
011590,000822: 43,2674 00006 EXTEND
011591,000823: 43,2675 12120 BZF ALM/END
011592,000824: 43,2676 00002 TC Q
011593,000825:
011594,000826: 43,2677 00026 DEC22 DEC 22 B-14
011595,000827:
011596,000828: 43,2700 COUNT* $$/EXTVB
011597,000829:
011598,000830: 43,2700 02123 VB64 TC CHKP00H # DEMAND PROGRAM 00.
011599,000831: 43,2701 02076 TC TESTXACT # IF DISPLAY SYS. NOT BUSY MAKE IT BUSY.
011600,000832: 43,2702 34740 CAF PRIO4
011601,000833: 43,2703 05105 TC FINDVAC
011602,000834: 43,2704 E4,1600 EBANK= ALPHASB
011603,000835: 43,2704 03606 64104 2CADR SBANDANT # CALC., DISPLAY S-BAND ANTENNA ANGLES.
011604,000836:
011605,000837: 43,2706 05155 TC ENDOFJOB
011606,000838:
011607,000839: # Page 281
011608,000840: # IMUATTCK VERB 43 DESCRIPTION
011609,000841: # LOAD IMU ATTITUDE ERROR METERS
011610,000842:
011611,000843: # 1. REQUIRE P00 OR FRESH START.
011612,000844: # 2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
011613,000845: # 3. REQUIRE THAT NEEDLES BE OFF.
011614,000846: # 4. REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED).
011615,000847: # 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
011616,000848:
011617,000849: 43,2707 02123 IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS
011618,000850:
011619,000851: 43,2710 34763 CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU
011620,000852: 43,2711 00006 EXTEND # CDUS BITS ARE ON
011621,000853: 43,2712 02012 RAND CHAN12
011622,000854: 43,2713 10000 CCS A
011623,000855: 43,2714 12120 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
011624,000856:
011625,000857: 43,2715 34355 CAF BIT13-14 # BOTH BITS 13 AND 14 MUST BE 1
011626,000858: 43,2716 00006 EXTEND # INDICATING THE MODE SELECTED IS OFF.
011627,000859: 43,2717 06031 RXOR CHAN31
011628,000860: 43,2720 74355 MASK BIT13-14
011629,000861: 43,2721 00006 EXTEND
011630,000862: 43,2722 12724 BZF +2 # NEEDLES IS OFF.
011631,000863: 43,2723 12120 TCF ALM/END # EXIT. NEEDLES IS ON.
011632,000864:
011633,000865: 43,2724 02076 TC TESTXACT
011634,000866:
011635,000867: 43,2725 32225 CAF VNLODCDU
011636,000868: 43,2726 04616 TC BANKCALL
011637,000869: 43,2727 20334 CADR GOXDSPF
011638,000870: 43,2730 05472 TC ENDEXT # V34
011639,000871: 43,2731 02732 TC +1
011640,000872: 43,2732 32745 CAF V43K # REDISPLAY OUR VERB.
011641,000873: 43,2733 04616 TC BANKCALL
011642,000874: 43,2734 20620 CADR EXDSPRET
011643,000875: 43,2735 34746 CAF BIT6
011644,000876: 43,2736 00006 EXTEND
011645,000877: 43,2737 05012 WOR CHAN12 # ENABLE ERROR COUNTERS.
011646,000878: 43,2740 34752 CAF TWO
011647,000879: 43,2741 05203 TC WAITLIST # PUT OUT COMMANDS IN .32 SECONDS.
011648,000880: 43,2742 0321 EBANK= THETAD
011649,000881: 43,2742 02035 64100 2CADR ATTCK2
011650,000882:
011651,000883: 43,2744 15472 TCF ENDEXT
011652,000884:
011653,000885: 42,2035 BANK 42
011654,000886: 42,2000 SETLOC PINBALL3 # SOMETHING IN B42.
011655,000887: 42,2000 BANK
011656,000888:
011657,000889: 42,2035 COUNT* $$/EXTVB
011658,000890: # Page 282
011659,000891: 42,2035 34752 ATTCK2 CAF TWO # PUT OUT COMMANDS.
011660,000892: 42,2036 54002 +1 TS Q # CDU WILL LIMIT EXCESS DATA.
011661,000893: 42,2037 50000 INDEX A
011662,000894: 42,2040 30321 CA THETAD
011663,000895: 42,2041 00006 EXTEND
011664,000896: 42,2042 72053 MP ATTSCALE
011665,000897: 42,2043 50002 INDEX Q
011666,000898: 42,2044 56050 XCH CDUXCMD
011667,000899: 42,2045 10002 CCS Q
011668,000900: 42,2046 12036 TCF ATTCK2 +1
011669,000901:
011670,000902: 42,2047 37740 CAF 13,14,15
011671,000903: 42,2050 00006 EXTEND
011672,000904: 42,2051 05014 WOR CHAN14
011673,000905: 42,2052 15261 TCF TASKOVER # LEAVE ERROR COUNTERS ENABLED.
011674,000906:
011675,000907: 42,2053 03146 ATTSCALE DEC 0.1
011676,000908:
011677,000909: 07,2667 BANK 7
011678,000910: 43,2000 SETLOC EXTVERBS
011679,000911: 43,2000 BANK
011680,000912:
011681,000913: 43,2745 COUNT* $$/EXTVB
011682,000914:
011683,000915: 43,2745 12600 V43K VN 4300
011684,000916:
011685,000917: # V82PERF VERB82 DESCRIPTION
011686,000918: # REQUEST ORBIT PARAMETERS DISPLAY (R30)
011687,000919:
011688,000920: # 1. IF AVERAGE G IS OFF:
011689,000921: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011690,000922: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
011691,000923: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ I.
011692,000924: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011693,000925: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011694,000926: # RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
011695,000927: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011696,000928: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
011697,000929: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011698,000930: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
011699,000931: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011700,000932: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011701,000933: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011702,000934: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011703,000935:
011704,000936: # 2. IF AVERAGE G IS ON:
011705,000937: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
011706,000938: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
011707,000939: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011708,000940: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011709,000941: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011710,000942: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011711,000943:
011712,000944: # Page 283
011713,000945: 43,2746 02076 V82PERF TC TESTXACT
011714,000946:
011715,000947: 43,2747 35021 CAF PRIO7 # LESS THAN LAMBERT. R30,V82
011716,000948: 43,2750 05146 TC PRIOCHNG
011717,000949: 43,2751 00006 EXTEND
011718,000950: 43,2752 32755 DCA V82CON
011719,000951: 43,2753 05165 TC SUPDXCHZ # V82CALL IN DIFF SUPERBANK FROM V82PERF
011720,000952:
011721,000953: 43,2754 E4,1716 EBANK= HAPO
011722,000954: 43,2754 03242 44104 V82CON 2CADR V82CALL
011723,000955:
011724,000956: # VB83PERF VERB 83 DESCRIPTION
011725,000957: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011726,000958:
011727,000959: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011728,000960: # 2. SCHEDULE R31CALL WITH PRIORITY 5.
011729,000961: # A. DISPLAY
011730,000962: # R1 RANGE
011731,000963: # R2 RANGE RATE
011732,000964: # R3 THETA
011733,000965:
011734,000966: 43,2756 02076 V83PERF TC TESTXACT
011735,000967:
011736,000968: 43,2757 34752 CAF BIT2
011737,000969: 43,2760 05203 TC WAITLIST
011738,000970: 43,2761 E7,1611 EBANK= TSTRT
011739,000971: 43,2761 03674 60107 2CADR R31CALL
011740,000972:
011741,000973: 43,2763 05155 TC ENDOFJOB
011742,000974:
011743,000975: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011744,000976: #
011745,000977: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND
011746,000978: # DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
011747,000979:
011748,000980: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
011749,000981: # EXIT R63, OTHERWISE CONTINUE.
011750,000982:
011751,000983: # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
011752,000984: # ORIENTATION KNOWN TO LGC,CONTINUE.
011753,000985:
011754,000986: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011755,000987: # BE POINTED AT CSM. INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
011756,000988: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
011757,000989: # AFTER KEYING IN PROCEED.
011758,000990:
011759,000991: # 4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
011760,000992:
011761,000993: # 5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
011762,000994: # Page 284
011763,000995: # HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
011764,000996: # PREPARED FOR VECPOINT.
011765,000997:
011766,000998: # 6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
011767,000999: # BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
011768,001000:
011769,001001: # 7. RECYCLE -- RETURN TO STEP 4.
011770,001002: # TERMINATE -- EXIT R63.
011771,001003: # PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
011772,001004:
011773,001005: 43,2764 02123 V89PERF TC CHKP00H
011774,001006: 43,2765 02076 TC TESTXACT
011775,001007: 43,2766 34737 CAF PRIO10
011776,001008: 43,2767 05105 TC FINDVAC
011777,001009: 43,2770 E4,1606 EBANK= RONE
011778,001010: 43,2770 02022 54104 2CADR V89CALL
011779,001011:
011780,001012: 43,2772 05155 TC ENDOFJOB
011781,001013:
011782,001014: # V90PERF VERB 90 DESCRIPTION
011783,001015: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011784,001016:
011785,001017: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011786,001018: # 2. SCHEDULE R36 CALL WITH PRIORITY 10
011787,001019: # A. DISPLAY
011788,001020: # TIME OF EVENT -- HOURS, MINUTES, SECONDS
011789,001021: # Y OUT-OF-PLANE POSITION -- NAUTICAL MILES
011790,001022: # YDOT OUT-OF-PLANE VELOCITY -- FEET/SECOND
011791,001023: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
011792,001024: # DIRECTION VECTOR IN HORIZONTAL PLANE -- DEGREES
011793,001025:
011794,001026: 43,2773 02076 V90PERF TC TESTXACT
011795,001027: 43,2774 35021 CAF PRIO7 # R36,V90
011796,001028: 43,2775 05105 TC FINDVAC
011797,001029: 43,2776 E4,1606 EBANK= RPASS36
011798,001030: 43,2776 02656 10104 2CADR R36
011799,001031:
011800,001032: 43,3000 15155 TCF ENDOFJOB
011801,001033:
011802,001034: # MINIMP VERB 76 DESCRIPTION
011803,001035: # MINIMUM IMPULSE MODE
011804,001036:
011805,001037: # 1. SET MINIMUM IMPULSE RHO MODE FLAG TO 1.
011806,001038:
011807,001039: 43,3001 00004 MINIMP INHINT
011808,001040: 43,3002 40111 CS DAPBOOLS
011809,001041: 43,3003 74735 MASK PULSES # PULSES = 1 INDICATES MIN IMP MODE
011810,001042: 43,3004 26111 ADS DAPBOOLS
011811,001043: 43,3005 12121 TCF GOPIN # RETURN VIA PINBRNCH
011812,001044:
011813,001045: # NOMINIMP VERB 77 DESCRIPTION
011814,001046: # RATE COMMAND MODE
011815,001047:
011816,001048: # Page 285
011817,001049:
011818,001050:
011819,001051: # 1. SET MINIMUM IMPULSE RHO MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
011820,001052: # 2. MOVE CDUX, CDUY, CDUZ INTO CDUXD, CDUYD, CDUZD.
011821,001053:
011822,001054:
011823,001055: 43,3006 00004 NOMINIMP INHINT
011824,001056: 43,3007 44735 CS PULSES
011825,001057: 43,3010 70111 MASK DAPBOOLS
011826,001058: 43,3011 54111 TS DAPBOOLS # PULSES = NOT IN MINIMUM UMPULSE MODE
011827,001059: 43,3012 04674 TC IBNKCALL
011828,001060: 43,3013 40153 CADR ZATTEROR
011829,001061: 43,3014 02121 TC GOPIN
011830,001062:
011831,001063: # Page 286
011832,001064: # CREMANU VERB 49 DESCRIPTION
011833,001065: # START AUTOMATIC ATTITUDE MANEUVER
011834,001066:
011835,001067: # 1. REQUIRE PROGRAM 00 ACTIVE.
011836,001068: # 2. SET EXT VERB DISPLAY BUSY FLAG.
011837,001069: # 3. SCHEDULE R62DISP WITH PRIORITY 10.
011838,001070: # 4. RELEASE EXT VERB DISPLAY.
011839,001071:
011840,001072: # R62DISP
011841,001073: # 1. DISPLAY FLASHING V06,N22.
011842,001074: # RESPONSES
011843,001075: # A. TERMINATE
011844,001076: # 1. GOTOP00H
011845,001077: # B. PROCEED
011846,001078: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
011847,001079: # 2. EXECUTE R60LEM (ATTITUDE MANEUVER).
011848,001080: # C. ENTER
011849,001081: # 1. REPEAT FLASHING V06,N22.
011850,001082:
011851,001083: 43,3015 02123 CREWMANU TC CHKP00H # DEMAND P00
011852,001084:
011853,001085: 43,3016 02076 TC TESTXACT
011854,001086:
011855,001087: 43,3017 34737 CAF PRIO10
011856,001088: 43,3020 05105 TC FINDVAC
011857,001089: 43,3021 E6,1676 EBANK= BCDU
011858,001090: 43,3021 02103 46106 2CADR R62DISP
011859,001091:
011860,001092: 43,3023 05155 TC ENDOFJOB
011861,001093:
011862,001094: # Page 287
011863,001095: # TRMTRACK VERB 56 DESCRIPTION
011864,001096: # TERMINATE TRACKING (P20 AND P25).
011865,001097:
011866,001098: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011867,001099: # 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOP00H (REQUEST PROGRAM 00).
011868,001100: # 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
011869,001101:
011870,001102: # V56TOVAC
011871,001103: # 1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
011872,001104: # 2. ZERO GROUP 2 TO HALT P20.
011873,001105: # 3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
011874,001106:
011875,001107: 43,3024 33044 TRMTRACK CA BITS9+7 # IS REND OR P25 FLAG ON
011876,001108: 43,3025 70074 MASK FLAGWRD0
011877,001109: 43,3026 00006 EXTEND
011878,001110: 43,3027 12121 BZF GOPIN # NO
011879,001111:
011880,001112: 43,3030 05516 TC DOWNFLAG
011881,001113: 43,3031 00010 ADRES RNDVZFLG
011882,001114:
011883,001115: 43,3032 05516 TC DOWNFLAG
011884,001116: 43,3033 00006 ADRES P25FLAG
011885,001117:
011886,001118: 43,3034 05516 TC DOWNFLAG # ENSURE SEARCH FLAG IS OFF
011887,001119: 43,3035 00037 ADRES SRCHOPTN
011888,001120:
011889,001121: 43,3036 34747 CA TRACKBIT # IS TRACK FLAG ON?
011890,001122: 43,3037 70075 MASK FLAGWRD1
011891,001123: 43,3040 00006 EXTEND
011892,001124: 43,3041 12121 BZF GOPIN
011893,001125:
011894,001126: 43,3042 04635 TC POSTJUMP
011895,001127: 43,3043 64054 CADR TRMTRAK1
011896,001128:
011897,001129: 43,3044 00500 BITS9+7 OCT 500
011898,001130:
011899,001131: 42,2000 SETLOC SBAND # BANK 42
011900,001132: 42,2000 BANK
011901,001133:
011902,001134: 42,2054 COUNT* $$/EXTVB
011903,001135:
011904,001136: 42,2054 05516 TRMTRAK1 TC DOWNFLAG
011905,001137: 42,2055 00027 ADRES UPDATFLG # UPDATE FLAG DOWN
011906,001138: 42,2056 05516 TC DOWNFLAG
011907,001139: 42,2057 00031 ADRES TRACKFLG # TRACK FLAG DOWN
011908,001140: 42,2060 05516 TC DOWNFLAG
011909,001141: 42,2061 00007 ADRES IMUSE
011910,001142:
011911,001143: 42,2062 06037 TC INTPRET
011912,001144: 42,2063 77624 CALL
011913,001145: 42,2064 27414 INTSTALL # DON'T INTERRUPT INTEGRATION
011914,001146: # Page 288
011915,001147: 42,2065 77776 EXIT
011916,001148:
011917,001149: 42,2066 05353 TC PHASCHNG
011918,001150: 42,2067 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
011919,001151:
011920,001152: 42,2070 00004 INHINT
011921,001153: 42,2071 04674 TC IBNKCALL # ZERO THE COMMANDED RATES TO STOP
011922,001154: 42,2072 40165 CADR STOPRATE # MANEUVER
011923,001155:
011924,001156: 42,2073 04674 TC IBNKCALL
011925,001157: 42,2074 40123 CADR RESTORDB
011926,001158:
011927,001159: 42,2075 06011 TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES.
011928,001160:
011929,001161: 42,2076 44736 CS BIT14 # DISABLE LOCKON
011930,001162: 42,2077 00006 EXTEND
011931,001163: 42,2100 03012 WAND CHAN12
011932,001164: 42,2101 04635 TC POSTJUMP
011933,001165: 42,2102 12770 CADR GOPROG2 # CAUSE RESTART.
011934,001166:
011935,001167: # DNEDUMP VERB 74 DESCRIPTION
011936,001168: # INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011937,001169:
011938,001170: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011939,001171: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011940,001172: # 3. RELEASE EXT VERB DISPLAY.
011941,001173:
011942,001174: 43,2000 SETLOC EXTVERBS
011943,001175: 43,2000 BANK
011944,001176:
011945,001177: 43,3045 COUNT* $$/EXTVB
011946,001178:
011947,001179: 43,3045 0400 EBANK= 400
011948,001180: 43,3045 33050 DNEDUMP CAF LDNDUMPI
011949,001181: 43,3046 54335 TS DNTMGOTO
011950,001182: 43,3047 02121 TC GOPIN
011951,001183:
011952,001184: 43,3050 43,3045 V74 EQUALS DNEDUMP
011953,001185: 43,3050 03707 LDNDUMPI REMADR DNDUMPI
011954,001186:
011955,001187: # LEMVEC VERB 80 DESCRIPTION
011956,001188: # UPDATE LEM STATE VECTOR
011957,001189: # RESET VHUPFLG TC 0
011958,001190:
011959,001191: 43,3051 05516 LEMVEC TC DOWNFLAG
011960,001192: 43,3052 00026 ADRES VEHUPFLG # VB 80 -- VEHUPFLG DOWN INDICATES LEM
011961,001193:
011962,001194: 43,3053 03056 TC NOUPDOWN
011963,001195:
011964,001196: # CSMVEC VERB 81 DESCRIPTION
011965,001197: # UPDATE CSM STATE VECTOR
011966,001198: # Page 289
011967,001199: # SET VEHUPFLG TO 1
011968,001200:
011969,001201: 43,3054 05504 CSMVEC TC UPFLAG
011970,001202: 43,3055 00026 ADRES VEHUPFLG # VB 81 -- VEHUPFLG UP INDICATES CSM
011971,001203:
011972,001204: 43,3056 05516 NOUPDOWN TC DOWNFLAG
011973,001205: 43,3057 00030 ADRES NOUPFLAG
011974,001206:
011975,001207: 43,3060 12121 TCF GOPIN
011976,001208:
011977,001209: # UPDATOFF VERB 95 DESCRIPTION
011978,001210: # INHIBIT STATE VECTOR UPDATES BY INCORP
011979,001211: # SET NOUPFLAG TO 1
011980,001212:
011981,001213: 43,3061 05504 UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
011982,001214: 43,3062 00030 ADRES NOUPFLAG
011983,001215:
011984,001216: 43,3063 02121 TC GOPIN
011985,001217: # Page 290
011986,001218: # SYSTEST VERB 92 DESCRIPTION
011987,001219: # OPERATE IMU PERFORMANCE TEST.
011988,001220:
011989,001221: # 1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
011990,001222: # 2. SET EXT VERB BUSY FLAG.
011991,001223:
011992,001224: 43,3064 E5,1417 EBANK= QPLACE
011993,001225:
011994,001226: 43,3064 02123 SYSTEST TC CHKP00H # DEMAND P00
011995,001227:
011996,001228: 43,3065 02076 TC TESTXACT
011997,001229:
011998,001230: 43,3066 37710 CAF PRIO22
011999,001231: 43,3067 05105 TC FINDVAC
012000,001232: 43,3070 E5,1417 EBANK= QPLACE
012001,001233: 43,3070 37,2000 SBANK= IMUSUPER
012002,001234: 43,3070 02002 76065 2CADR REDO
012003,001235:
012004,001236: 43,3072 05155 TC ENDOFJOB
012005,001237:
012006,001238: # VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
012007,001239:
012008,001240: 43,3073 00004 WMATRXNG INHINT
012009,001241: 43,3074 44753 CS RENDWBIT
012010,001242: 43,3075 70101 MASK FLAGWRD5
012011,001243: 43,3076 54101 TS FLAGWRD5
012012,001244:
012013,001245: 43,3077 02121 TC GOPIN
012014,001246:
012015,001247: 43,3100 43,3100 GOSHOSUM EQUALS SHOWSUM
012016,001248:
012017,001249: 43,3100 02123 SHOWSUM TC CHKP00H # *
012018,001250: 43,3101 02076 TC TESTXACT # *
012019,001251: 43,3102 35021 CAF PRIO7 # * ALLOW OTHER CHARINS.
012020,001252: 43,3103 05146 TC PRIOCHNG # *
012021,001253: 43,3104 34753 CAF S+1 # *
012022,001254: 43,3105 55376 TS SKEEP6 # * SHOWSUM OPTION
012023,001255: 43,3106 34755 CAF S+ZERO # *
012024,001256: 43,3107 55362 TS SMODE # * TURN OFF SELF-CHECK
012025,001257: 43,3110 33245 CA SELFADRS # *
012026,001258: 43,3111 55361 TS SELFRET # *
012027,001259: 43,3112 03522 TC STSHOSUM # * ENTER ROPECHK
012028,001260:
012029,001261: 43,3113 23372 SDISPLAY LXCH SKEEP2 # * BANK # FOR DISPLAY
012030,001262: 43,3114 23373 LXCH SKEEP3 # * BUGGER WORD FOR DISPLAY
012031,001263: 43,3115 33244 NOKILL CA ADRS1 # *
012032,001264: 43,3116 54156 TS MPAC +2 # *
012033,001265: 43,3117 33130 CA VNCON # * 0501
012034,001266: 43,3120 04616 TC BANKCALL # *
012035,001267: 43,3121 20334 CADR GOXDSPF # *
012036,001268: 43,3122 03125 TC +3 # *
012037,001269: 43,3123 03633 TC NXTBNK # *
012038,001270: # Page 291
012039,001271: 43,3124 03115 TC NOKILL # *
012040,001272: 43,3125 33245 CA SELFADRS
012041,001273: 43,3126 55371 TS SKEEP1
012042,001274:
012043,001275: 43,3127 05472 TC ENDEXT # *
012044,001276: 43,3130 01201 VNCON VN 501 # *
012045,001277: 43,3131 31376 ENDSUMS CA SKEEP6 # *
012046,001278: 43,3132 00006 EXTEND # *
012047,001279: 43,3133 13336 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
012048,001280: 43,3134 03522 TC STSHOSUM # * START SHOWSUM AGAIN.
012049,001281:
012050,001282: # Page 292
012051,001283: # DAPDISP VERB 48 DESCRIPTION
012052,001284: # LOAD AUTO PILOT DATA
012053,001285:
012054,001286: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
012055,001287: # 2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
012056,001288: # 3. RELEASE EXT VERB DISPLAY SYSTEM.
012057,001289:
012058,001290: 43,3135 02076 DAPDISP TC TESTXACT
012059,001291: 43,3136 35021 CAF PRIO7 # R03
012060,001292: 43,3137 05146 TC PRIOCHNG
012061,001293: 43,3140 04635 TC POSTJUMP
012062,001294: 43,3141 40004 CADR DAPDATA1
012063,001295:
012064,001296: 34,2000 BANK 34
012065,001297: 20,2000 SETLOC LOADDAP
012066,001298: 20,2000 BANK
012067,001299:
012068,001300: 20,2004 COUNT* $$/R03
012069,001301:
012070,001302: 20,2004 30,2000 SBANK= LOWSUPER # FOR SUBSEQUENT LOW 2CADR'S
012071,001303:
012072,001304: 20,2004 32114 DAPDATA1 CAF BOOLSMSK # SET DISPLAY ACCORDING TO DAPBOOLS BITS.
012073,001305: 20,2005 70111 MASK DAPBOOLS # LM
012074,001306: 20,2006 55343 TS DAPDATR1 # LM
012075,001307: 20,2007 40106 CS FLGWRD10 # SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
012076,001308: 20,2010 74737 MASK APSFLBIT
012077,001309: 20,2011 10000 CCS A
012078,001310: 20,2012 34736 CAF BIT14
012079,001311: 20,2013 27343 ADS DAPDATR1
012080,001312: 20,2014 31343 CHKDATA1 CAE DAPDATR1 # IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
012081,001313: 20,2015 74355 MASK BIT13-14 # A ONE INTO BIT 13.
012082,001314: 20,2016 00006 EXTEND
012083,001315: 20,2017 12034 BZF FORCEONE
012084,001316: 20,2020 31343 CAE DAPDATR1 # ENSURE THAT NO ILLEGAL BITS SET BY CREW.
012085,001317: 20,2021 72113 MSKDATR1 MASK DSPLYMSK
012086,001318: 20,2022 55343 TS DAPDATR1
012087,001319: 20,2023 32112 CAF V01N46 # LM
012088,001320: 20,2024 04616 TC BANKCALL
012089,001321: 20,2025 20353 CADR GOXDSPFR
012090,001322: 20,2026 15472 TCF ENDEXT # V34E TERMINATE
012091,001323: 20,2027 12037 TCF DPDAT1 # V33E PROCEED
012092,001324: 20,2030 12014 TCF CHKDATA1 # E NEW DATA CHECK AND REDISPLAY
012093,001325: 20,2031 36242 CAF REVCNT # BITS 2 & 3: BLANKS R2 & R3.
012094,001326: 20,2032 05464 TC BLANKET
012095,001327: 20,2033 15155 TCF ENDOFJOB
012096,001328: 20,2034 34737 FORCEONE CAF BIT13
012097,001329: 20,2035 27343 ADS DAPDATR1
012098,001330: 20,2036 12021 TCF MSKDATR1
012099,001331:
012100,001332: 20,2037 00004 DPDAT1 INHINT # INHINT FOR SETTING OF FLAG BITS AND MASS
012101,001333: 20,2040 44737 CS APSFLBIT # ON BASIS OF DISPLAYED DAPDATR1.
012102,001334: 20,2041 70106 MASK FLGWRD10
012103,001335: 20,2042 54001 TS L # SET APSFLAG TO BE COMPLEMENT OF BIT 14.
012104,001336: # Page 293
012105,001337: 20,2043 41343 CS DAPDATR1
012106,001338: 20,2044 74736 MASK BIT14
012107,001339: 20,2045 10000 CCS A
012108,001340: 20,2046 34737 CAF APSFLBIT
012109,001341: 20,2047 60001 AD L
012110,001342: 20,2050 54106 TS FLGWRD10
012111,001343: 20,2051 41343 CS DAPDATR1 # SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
012112,001344: 20,2052 74355 MASK BIT13-14 # MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
012113,001345: 20,2053 10000 CCS A # 13 AND 14 ARE SET.
012114,001346: 20,2054 44737 CS CSMDOCKD
012115,001347: 20,2055 62114 AD BOOLSMSK
012116,001348: 20,2056 71343 MASK DAPDATR1
012117,001349: 20,2057 54001 TS L
012118,001350: 20,2060 42114 CS BOOLSMSK
012119,001351: 20,2061 70111 MASK DAPBOOLS
012120,001352: 20,2062 60001 AD L
012121,001353: 20,2063 54111 TS DAPBOOLS
012122,001354: 20,2064 74737 MASK CSMDOCKD # LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
012123,001355: 20,2065 10000 CCS A # MASS IS USUALLY OKAY, SO DO
012124,001356: 20,2066 31332 CAE CSMMASS # NOT TOUCH ITS LOW-ORDER PART.
012125,001357: 20,2067 61331 AD LEMMASS
012126,001358: 20,2070 55244 TS MASS
012127,001359: 20,2071 30111 CAE DAPBOOLS
012128,001360: 20,2072 74741 MASK ACC4OR2X # 2 OR 4 JET X-TRANSLATION
012129,001361: 20,2073 00006 EXTEND # (BIT ACC4OR2X = 1 FOR 4 JETS)
012130,001362: 20,2074 12101 BZF +5
012131,001363: 20,2075 44735 CS BIT15
012132,001364: 20,2076 70075 MASK FLAGWRD1 # CLEAR NJTSFLAG TO 0 FOR 4 JETS
012133,001365: 20,2077 54075 TS FLAGWRD1
012134,001366: 20,2100 12104 TCF +4
012135,001367: 20,2101 40075 CS FLAGWRD1 # SET NJTSFLAG TO 1 FOR 2 JETS
012136,001368: 20,2102 74735 MASK BIT15
012137,001369: 20,2103 26075 ADS FLAGWRD1
012138,001370: 20,2104 30111 CA DAPBOOLS # SELECT DESIRED KALCMANU AUTOMATIC
012139,001371: 20,2105 76245 MASK THREE # MANEUVER RATE
012140,001372: 20,2106 60000 DOUBLE # RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
012141,001373: 20,2107 55325 TS RATEINDX # ARE DP
012142,001374: 20,2110 04635 TC POSTJUMP
012143,001375: 20,2111 02206 CADR STIKLOAD
012144,001376:
012145,001377: 20,2112 00256 V01N46 VN 0146
012146,001378: 20,2113 33113 DSPLYMSK OCT 33113
012147,001379: 20,2114 13113 BOOLSMSK OCT 13113
012148,001380:
012149,001381: 01,2206 BANK 01
012150,001382: 01,2000 SETLOC LOADDAP1
012151,001383: 01,2000 BANK
012152,001384:
012153,001385: 01,2206 COUNT* $$/R03
012154,001386:
012155,001387: 01,2206 35015 STIKLOAD CAF EBANK6
012156,001388: # Page 294
012157,001389: 01,2207 54003 TS EBANK
012158,001390: 01,2210 E6,1444 EBANK= STIKSENS
012159,001391: 01,2210 34745 CA RHCSCALE # SET STICK SENSITIVITY TO CORRESPOND TO A
012160,001392: 01,2211 70111 MASK DAPBOOLS # MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
012161,001393: 01,2212 10000 CCS A # 20 D/S (NORMAL) OR 4 D/S (FINE), SCALED
012162,001394: 01,2213 32337 CA NORMAL # AT 45 D/S.
012163,001395: 01,2214 62340 AD FINE
012164,001396: 01,2215 55444 TS STIKSENS
012165,001397: 01,2216 32342 CA -0.6D/S
012166,001398: 01,2217 55476 TS -RATEDB # LM-ONLY BREAKOUT LEVEL IS .6 D/S.
012167,001399: 01,2220 34737 CA CSMDOCKD # IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
012168,001400: 01,2221 70111 MASK DAPBOOLS # BY 10. NORMAL SCALING IS THEN 2 D/S AND
012169,001401: 01,2222 00006 EXTEND # FINE SCALING IS 0.4 D/S
012170,001402: 01,2223 12232 BZF +7 # BRANCH IF CSM IS NOT DOCKED.
012171,001403: 01,2224 31444 CA STIKSENS
012172,001404: 01,2225 00006 EXTEND
012173,001405: 01,2226 72341 MP 1/10
012174,001406: 01,2227 55444 TS STIKSENS
012175,001407: 01,2230 32343 CA -0.3D/S # CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
012176,001408: 01,2231 55476 TS -RATEDB
012177,001409: 01,2232 00003 RELINT # PROCEED TO NOUN 47, MASS LOAD.
012178,001410:
012179,001411: 01,2233 32334 DAPDATA2 CAF V0647
012180,001412: 01,2234 04616 TC BANKCALL
012181,001413: 01,2235 20353 CADR GOXDSPFR
012182,001414: 01,2236 12244 TCF ENDR03 # V34E TERMINATE. FIRST SET DB. DO 1/ACCS
012183,001415: 01,2237 12250 TCF DAPDAT2 # V33E PROCEED
012184,001416: 01,2240 12233 TCF DAPDATA2 # LOAD NEW DATA AND RECYCLE
012185,001417: 01,2241 34751 CAF BIT3 # BLANKS R3
012186,001418: 01,2242 05464 TC BLANKET # LM
012187,001419: 01,2243 15155 TCF ENDOFJOB
012188,001420: 01,2244 00004 ENDR03 INHINT
012189,001421: 01,2245 04674 TC IBNKCALL
012190,001422: 01,2246 40123 CADR RESTORDB
012191,001423: 01,2247 15472 TCF ENDEXT # DOES RELINT
012192,001424:
012193,001425: 01,2250 40106 DAPDAT2 CS FLGWRD10 # DETERMINE STAGE FROM APSFLAG
012194,001426: 01,2251 74737 MASK APSFLBIT
012195,001427: 01,2252 10000 CCS A
012196,001428: 01,2253 32000 CA MINLMD
012197,001429: 01,2254 62001 AD MINMINLM
012198,001430: 01,2255 61331 AD LEMMASS # LEMMASS MUST BE GREATER THAN EMPTY LEM
012199,001431: 01,2256 00006 EXTEND
012200,001432: 01,2257 62233 BZMF DAPDATA2 # ASK FOR NEW MASSES
012201,001433: 01,2260 30111 CAE DAPBOOLS
012202,001434: 01,2261 74737 MASK CSMDOCKD
012203,001435: 01,2262 00006 EXTEND
012204,001436: 01,2263 12271 BZF LEMALONE # SKIP TEST ON CSMMASS IF NOT DOCKED.
012205,001437: 01,2264 44741 CS MINCSM # TEST CSM MASS
012206,001438: 01,2265 61332 AD CSMMASS # CSMMASS MUST BE GREATER THAN EMPTY CSM
012207,001439: # Page 295
012208,001440: 01,2266 00006 EXTEND
012209,001441: 01,2267 62233 BZMF DAPDATA2 # ASK FOR NEW MASSES
012210,001442: 01,2270 31332 CAE CSMMASS # DOCKED: MASS = CSMMASS + LEMMASS
012211,001443: 01,2271 61331 LEMALONE AD LEMMASS # LEM ALONE: MASS = LEMMASS
012212,001444: 01,2272 22007 ZL
012213,001445: 01,2273 53245 DXCH MASS
012214,001446: 01,2274 00004 INHINT
012215,001447: 01,2275 04674 TC IBNKCALL # SET DEADBANK AND COMPUTE MOMENTS OF
012216,001448: 01,2276 40123 CADR RESTORDB # INERTIA.
012217,001449: 01,2277 00003 RELINT # PROCEED TO NOUN 48 (OR END).
012218,001450:
012219,001451: 01,2300 40106 DAPDATA3 CS FLGWRD10
012220,001452: 01,2301 74737 MASK APSFLBIT
012221,001453: 01,2302 00006 EXTEND # END ROUTINE IF LEM HAS STAGED.
012222,001454: 01,2303 15472 BZF ENDEXT
012223,001455: 01,2304 32335 CAF V06N48 # DISPLAY TRIM ANGLES AND REQUEST RESPONSE
012224,001456: 01,2305 04616 TC BANKCALL
012225,001457: 01,2306 20353 CADR GOXDSPFR
012226,001458: 01,2307 05472 TC ENDEXT
012227,001459: 01,2310 12315 TCF DPDAT3 # V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
012228,001460: 01,2311 12304 TCF -5 # LOAD NEW DATA AND RECYCLE
012229,001461: 01,2312 34751 CAF BIT3
012230,001462: 01,2313 05464 TC BLANKET # BLANK R3
012231,001463: 01,2314 15155 TCF ENDOFJOB
012232,001464: 01,2315 34753 DPDAT3 CAF BIT1 # GO TO TRIMGIMB VIA WAITLIST SO IT
012233,001465: 01,2316 00004 INHINT # CAN USE FIXDELAY AND VARDELAY
012234,001466: 01,2317 05203 TC WAITLIST
012235,001467: 01,2320 E6,1401 EBANK= ROLLTIME
012236,001468: 01,2320 03217 56066 2CADR TRIMGIMB
012237,001469:
012238,001470: 01,2322 15155 TCF ENDOFJOB # DOES A RELINT
012239,001471: 01,2323 32336 TRIMDONE CAF V50N48
012240,001472: 01,2324 04616 TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03
012241,001473: 01,2325 20361 CADR GOMARK3R
012242,001474: 01,2326 05472 TC ENDEXT # V34E TERMINATE
012243,001475: 01,2327 05472 TC ENDEXT
012244,001476: 01,2330 05472 TC ENDEXT
012245,001477: 01,2331 36007 CAF OCT24 # BIT5 TO CHANGE TO PERFORM, 3 TO BLANK 43
012246,001478: 01,2332 05464 TC BLANKET
012247,001479: 01,2333 15155 TCF ENDOFJOB
012248,001480:
012249,001481: 01,2334 01457 V0647 VN 0647
012250,001482: 01,2335 01460 V06N48 VN 0648
012251,001483:
012252,001484: 01,2336 14460 V50N48 VN 5048
012253,001485: 01,2337 25101 NORMAL DEC .660214
012254,001486: # NORMAL SCALING IS 20 D/S
012255,001487: 01,2340 05220 FINE DEC .165054 # FINE STICK SCALING (4 D/S).
012256,001488: 01,2341 03146 1/10 DEC .1 # FACTOR FOR CSM-DOCKED SCALING
012257,001489: 01,2342 77445 -0.6D/S DEC -218 B-14
012258,001490:
012259,001491: # Page 296
012260,001492:
012261,001493: 01,2343 77622 -0.3D/S DEC -109 B-14
012262,001494:
012263,001495: # Page 297
012264,001496: # VERB 66 VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
012265,001497: # OTHER VEHICLE STATE VECTOR.
012266,001498:
012267,001499: # USE SUBROUTINE GENTRAN.
012268,001500:
012269,001501: 07,2667 BANK 7
012270,001502: 43,2000 SETLOC EXTVERBS
012271,001503: 43,2000 BANK
012272,001504:
012273,001505: 43,3142 COUNT* $$/EXTVB
012274,001506:
012275,001507: 43,3142 E3,1626 EBANK= RRECTHIS
012276,001508:
012277,001509: 43,3142 34737 ATTACHED CAF PRIO10
012278,001510: 43,3143 05105 TC FINDVAC
012279,001511: 43,3144 E3,1626 EBANK= RRECTHIS
012280,001512:
012281,001513: 43,3144 03147 66103 2CADR ATTACHIT
012282,001514:
012283,001515: 43,3146 05155 TC ENDOFJOB
012284,001516:
012285,001517: 43,3147 06037 ATTACHIT TC INTPRET
012286,001518: 43,3150 77624 CALL
012287,001519: 43,3151 27414 INTSTALL
012288,001520: 43,3152 43014 SET BON
012289,001521: 43,3153 04063 MOONOTH
012290,001522: 43,3154 04304 MOONTHIS
012291,001523: 43,3155 67160 +3
012292,001524: 43,3156 77614 CLEAR
012293,001525: 43,3157 04263 MOONOTH
012294,001526: 43,3160 77776 EXIT
012295,001527: 43,3161 33204 CAF OCT51
012296,001528: 43,3162 05544 TC GENTRAN
012297,001529: 43,3163 01626 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
012298,001530: 43,3164 01554 ADRES RRECTOTH
012299,001531:
012300,001532: 43,3165 00003 RELINT
012301,001533: 43,3166 06037 TC INTPRET
012302,001534: 43,3167 77624 CALL # UPDATE R-OTHER, V-OTHER
012303,001535: 43,3170 26760 PTOALEM
012304,001536: 43,3171 45154 LXA,2 CALL
012305,001537: 43,3172 02030 PBODY
012306,001538: 43,3173 26114 SVDWN1
012307,001539: 43,3174 77776 EXIT
012308,001540:
012309,001541: 43,3175 33205 CAF TCPINAD
012310,001542: 43,3176 50120 INDEX FIXLOC
012311,001543: 43,3177 54052 TS QPRET
012312,001544: 43,3200 04635 TC POSTJUMP
012313,001545: 43,3201 27425 CADR INTWAKE # FREE INTEGRATION AND EXIT.
012314,001546:
012315,001547: # Page 298
012316,001548:
012317,001549: 43,3202 77634 TCPIN RTB
012318,001550: 43,3203 21050 PINBRNCH
012319,001551:
012320,001552: 43,3204 00051 OCT51 OCT 51
012321,001553: 43,3205 67202 TCPINAD CADR TCPIN
012322,001554:
012323,001555: # VERB 96 SET QUITFLAT TO STOP INTEGRATION.
012324,001556:
012325,001557: # GO TO V37 WITH ZERO TO CAUSE P00.
012326,001558: # STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
012327,001559: # THUS ALLOWING A 10 MINUT PERIOD WITHOUT INTEGRATION.
012328,001560:
012329,001561: 43,3206 05504 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012330,001562: 43,3207 00221 ADRES QUITFLAG # AT NEXT TIMESTEP
012331,001563:
012332,001564: 43,3210 34755 CAF ZERO
012333,001565: 43,3211 04635 TC POSTJUMP
012334,001566: 43,3212 10040 CADR V37 # GO TO P00
012335,001567:
012336,001568: # VERB 67: DISPLAY OF W MATRIX
012337,001569:
012338,001570: 43,3213 02076 V67 TC TESTXACT
012339,001571: 43,3214 35017 CAF PRIO5
012340,001572: 43,3215 05105 TC FINDVAC
012341,001573: 43,3216 E4,1600 EBANK= WWPOS
012342,001574: 43,3216 02007 62064 2CADR V67CALL
012343,001575:
012344,001576: 43,3220 05155 TC ENDOFJOB
012345,001577:
012346,001578: # VERB 65 DISABLE U,V JETS DURING DPS BURNS
012347,001579:
012348,001580: 43,3221 05504 SNUFFOUT TC UPFLAG
012349,001581: 43,3222 00115 ADRES SNUFFER
012350,001582: 43,3223 02121 TC GOPIN
012351,001583:
012352,001584: # VERB 75 ENABLE U,V JETS DURING DPS BURNS
012353,001585:
012354,001586: 43,3224 05516 OUTSNUFF TC DOWNFLAG
012355,001587: 43,3225 00115 ADRES SNUFFER
012356,001588: 43,3226 02121 TC GOPIN
012357,001589:
012358,001590: # VERB 85 DISPLAY RR LOS AZIMUTH AND ELEVATION.
012359,001591:
012360,001592: # AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0-90 DEG IN THE +Y HEMISPHERE,
012361,001593: # 360-270 DEG IN THE -Y HEMISPHERE.
012362,001594: # Page 299
012363,001595: #
012364,001596: # ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0-360 ABOUT +Y.
012365,001597:
012366,001598: 43,3227 E4,1600 EBANK= RR-AZ
012367,001599: 43,3227 02076 VERB85 TC TESTXACT
012368,001600:
012369,001601: # Page 300
012370,001602:
012371,001603: 43,3230 04635 TC POSTJUMP
012372,001604: 43,3231 60000 CADR DSPRRLOS
012373,001605:
012374,001606: 40,2000 SETLOC PINBALL1
012375,001607: 40,2000 BANK
012376,001608:
012377,001609: 40,2000 COUNT* $$/EXTVB
012378,001610:
012379,001611: 40,2000 35017 DSPRRLOS CAF PRIO5
012380,001612: 40,2001 05105 TC FINDVAC
012381,001613: 40,2002 E4,1600 EBANK= RR-AZ
012382,001614: 40,2002 02017 60104 2CADR RRLOSDSP
012383,001615:
012384,001616: 40,2004 34740 CAF PRIO4
012385,001617: 40,2005 05146 TC PRIOCHNG
012386,001618: 40,2006 32076 CAF V16N56
012387,001619: 40,2007 04616 TC BANKCALL
012388,001620: 40,2010 20353 CADR GOMARKFR
012389,001621: 40,2011 05563 TC B5OFF
012390,001622: 40,2012 05563 TC B5OFF
012391,001623: 40,2013 05563 TC B5OFF
012392,001624:
012393,001625: 40,2014 34751 CAF BIT3
012394,001626: 40,2015 05464 TC BLANKET
012395,001627: 40,2016 05155 TC ENDOFJOB
012396,001628:
012397,001629: 40,2017 00006 RRLOSDSP EXTEND
012398,001630: 40,2020 30036 DCA CDUT
012399,001631: 40,2021 52155 DXCH MPAC
012400,001632: 40,2022 06037 TC INTPRET
012401,001633: 40,2023 77624 CALL
012402,001634: 40,2024 46065 RRNBMPAC # GET RR LOS IN BODY AXIS.
012403,001635: 40,2025 00001 STORE 0D # UNIT LOS
012404,001636: 40,2026 14007 STODL 6D
012405,001637: 40,2027 06522 HI6ZEROS
012406,001638: 40,2030 24011 STOVL 8D
012407,001639: 40,2031 00007 6D
012408,001640: 40,2032 77656 UNIT
012409,001641: 40,2033 00007 STORE 6D # UNIT OF LOS PROJ IN X-Z PLANE
012410,001642: 40,2034 77641 DOT
012411,001643: 40,2035 06514 UNITZ
012412,001644: 40,2036 24021 STOVL COSTH # 16D
012413,001645: 40,2037 06520 UNITX
012414,001646: 40,2040 77641 DOT
012415,001647: 40,2041 00007 6D
012416,001648: 40,2042 34023 STCALL SINTH # 18D
012417,001649: 40,2043 47320 ARCTRIG
012418,001650: 40,2044 43244 BPL DAD # INSURE DISPLAY OF 0-360 DEG.
012419,001651: 40,2045 60047 +2
012420,001652: 40,2046 06530 DPPOSMAX # INTRODUCES AND ERROR OF B-28 REVS.
012421,001653:
012422,001654: # Page 301
012423,001655:
012424,001656: 40,2047 26203 STOVL RR-ELEV
012425,001657: 40,2050 00001 0D
012426,001658: 40,2051 77641 DOT
012427,001659: 40,2052 06516 UNITY
012428,001660: 40,2053 24023 STOVL SINTH
012429,001661: 40,2054 00001 0D
012430,001662: 40,2055 77641 DOT
012431,001663: 40,2056 00007 6D
012432,001664: 40,2057 34021 STCALL COSTH
012433,001665: 40,2060 47320 ARCTRIG
012434,001666: 40,2061 43244 BPL DAD # INSURE DISPLAY OF 0-360 DEG.
012435,001667: 40,2062 60064 +2
012436,001668: 40,2063 06530 DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
012437,001669: 40,2064 02201 STORE RR-AZ
012438,001670: 40,2065 77776 EXIT
012439,001671: 40,2066 34777 CA 1SEC
012440,001672: 40,2067 04616 TC BANKCALL
012441,001673: 40,2070 01735 CADR DELAYJOB
012442,001674:
012443,001675: 40,2071 34747 CA BIT5
012444,001676: 40,2072 71044 MASK EXTVBACT
012445,001677: 40,2073 10000 CCS A
012446,001678: 40,2074 02017 TC RRLOSDSP
012447,001679: 40,2075 05472 TC ENDEXT
012448,001680:
012449,001681: 40,2076 04070 V16N56 VN 1656
012450,001682:
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc