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