Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
009407,000002: ## Copyright: Public domain.
009408,000003: ## Filename: EXTENDED_VERBS.agc
009409,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance
009410,000005: ## It is part of the reconstructed source code for the Lunar
009411,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
009412,000007: ## No original listings of this program are available;
009413,000008: ## instead, this file was created via disassembly of dumps
009414,000009: ## of various revisions of Sundance core rope modules.
009415,000010: ## Assembler: yaYUL
009416,000011: ## Contact: Ron Burkey <info@sandroid.org>.
009417,000012: ## Website: www.ibiblio.org/apollo/index.html
009418,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69.
009419,000014:
009420,000015: ## Sundance 306
009421,000016:
009422,000017: 07,2622 BANK 7
009423,000018: 43,2000 SETLOC EXTVERBS
009424,000019: 43,2000 BANK
009425,000020:
009426,000021: 43,2000 E5,1737 EBANK= OGC
009427,000022:
009428,000023: 43,2000 COUNT* $$/EXTVB
009429,000024: # FAN-OUT
009430,000025:
009431,000026: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
009432,000027: 43,2001 02002 TC LST2FAN # FAN AS BEFORE.
009433,000028:
009434,000029: 43,2002 02130 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
009435,000030: 43,2003 02157 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
009436,000031: # 72 ONLY)
009437,000032: 43,2004 02303 TC IMUFINEK # VB42 FINE ALIGN IMU
009438,000033: 43,2005 02646 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
009439,000034: 43,2006 02262 TC RRDESEND # VB44 TERMINATE CONTINUOUS DESIGNATE
009440,000035: 43,2007 03216 TC V45 # VB45 W MATRIX MONITOR
009441,000036: 43,2010 02120 TC ALM/END # VB46 SPARE
009442,000037: 43,2011 02342 TC V47TXACT # VB47 AGS INITIALIZATION
009443,000038: 43,2012 03151 TC DAPDISP # VB48 LOAD A/P DATA
009444,000039: 43,2013 12765 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER
009445,000040: 43,2014 02334 TC GOLOADLV # VB50 PLEASE PERFORM
009446,000041: 43,2015 02120 TC ALM/END # VB51 SPARE
009447,000042: 43,2016 02334 TC GOLOADLV # VB52 PLEASE MARK X - RETICLE.
009448,000043: 43,2017 02334 TC GOLOADLV # VB53 PLEASE MARK Y - RETICLE.
009449,000044: 43,2020 02334 TC GOLOADLV # VB54 PLEASE MARK X OR Y - RETICLE
009450,000045: 43,2021 02354 TC ALINTIME # VB55 ALIGN TIME
009451,000046: 43,2022 03002 TC TRMTRACK # VB56 TERMINATE TRACKING - P20 + P25
009452,000047: 43,2023 02120 TC ALM/END # VB57 SPARE
009453,000048: 43,2024 02120 TC ALM/END # VB58 SPARE
009454,000049: 43,2025 02120 TC ALM/END # VB59 SPARE
009455,000050: 43,2026 02774 TC DAPATTER # VB60 DISPLAY DAP ATTITUDE ERROR
009456,000051: 43,2027 02152 TC LRPOS2K # VB61 COMMAND LR TO POSITION 2.
009457,000052: 43,2030 02414 TC R04 # VB62 SAMPLE RADAR ONCE PER SECOND
009458,000053: 43,2031 02777 TC TOTATTER # VB63 DISPLAY TOTAL ATTITUDE ERROR
009459,000054: 43,2032 02120 TC ALM/END # VB64 SPARE
009460,000055: 43,2033 03224 TC SNUFFOUT # VB65 DISABLE U,V JETS DURING DPS BURNS.
009461,000056: 43,2034 03156 TC ATTACHED # VB66 ATTACHED MOVE THIS TO OTHER STATE
009462,000057: 43,2035 02120 TC ALM/END # VB67 SPARE
009463,000058: 43,2036 02120 TC ALM/END # VB68 SPARE
009464,000059: 43,2037 02037 VERB69 TC VERB69 # VB69 FORCE A HARDWARE RESTART
009465,000060: 43,2040 03724 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
009466,000061: 43,2041 03726 TC V71UPDAT # VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
009467,000062: 43,2042 03730 TC V72UPDAT # VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
009468,000063: 43,2043 03732 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
009469,000064: 43,2044 03051 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
009470,000065: # FOR ERASABLE DUMP.
009471,000066: 43,2045 03227 TC OUTSNUFF # VB75 ENABLE U,V JETS DURING DPS BURNS.
009472,000067:
009473,000068: 43,2046 02741 TC MINIMP # VB76 MINIMUM IMPULSE MODE
009474,000069: 43,2047 02746 TC NOMINIMP # VB77 RATE COMMAND MODE
009475,000070: 43,2050 02406 TC R77 # VB78 START LR SPURIOUS RETURN TEST
009476,000071: 43,2051 02622 TC R77END # VB79 TERMINATE LR SPURIOUS RETURN TEST
009477,000072: 43,2052 03056 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR
009478,000073: 43,2053 03062 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
009479,000074: 43,2054 02706 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
009480,000075: 43,2055 02716 TC V83PERF # VB83 REQUEST REND PARAM DISPLAY (R31)
009481,000076: 43,2056 02757 TC R32 # VB84 START TARGET DELTA V (R32)
009482,000077: 43,2057 02120 TC ALM/END # VB85 SPARE
009483,000078: 43,2060 02120 TC ALM/END # VB86 SPARE
009484,000079: 43,2061 02120 TC ALM/END # VB87 SPARE
009485,000080: 43,2062 02120 TC ALM/END # VB88 SPARE
009486,000081: 43,2063 02724 TC V89PERF # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
009487,000082: 43,2064 02733 TC V90PERF # VB90 OUT OF PLANE RENDEZVOUS DISPLAY
009488,000083: 43,2065 03114 TC GOSHOSUM # VB91 DISPLAY BANK SUM.
009489,000084: 43,2066 03100 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST.
009490,000085: 43,2067 03107 TC WMATRXNG # VB93 CLEAR RENDWFLG
009491,000086: 43,2070 02120 TC ALM/END # VB94 SPARE
009492,000087: 43,2071 03075 TC UPDATOFF # VB95 NO STATE VECTOR UPDATE ALLOWED
009493,000088: 43,2072 03211 TC VERB96 # VB96 INTERRUPT INTEGRATION AND GO TO POO
009494,000089: 43,2073 02120 TC ALM/END # VB97 SPARE
009495,000090: 43,2074 02120 TC ALM/END # VB98 SPARE
009496,000091: 43,2075 02334 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
009497,000092:
009498,000093: # END OF EXTENDED VERB FAN
009499,000094:
009500,000095: 43,2076 11045 TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY
009501,000096: 43,2077 02120 TC ALM/END # YES, TURN ON OPERATOR LIGHT
009502,000097: 43,2100 30100 CA FLAGWRD4 # ARE PRIORITY DISPLAYS USING DSKY
009503,000098: 43,2101 72127 MASK OC24100
009504,000099: 43,2102 10000 CCS A
009505,000100: 43,2103 02120 TC ALM/END # YES
009506,000101: 43,2104 34112 CAF OCT24 # SET BITS 3 AND 5
009507,000102: 43,2105 55045 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
009508,000103: # SYSTEM BUSY
009509,000104:
009510,000105: 43,2106 30002 CA Q
009511,000106: 43,2107 54155 TS MPAC +1
009512,000107:
009513,000108: 43,2110 45025 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
009514,000109: 43,2111 04166 TC NVSUB
009515,000110: 43,2112 02113 TC +1
009516,000111: 43,2113 00155 TC MPAC +1
009517,000112:
009518,000113: 43,2114 04376 XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT.
009519,000114: 43,2115 05561 TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS.
009520,000115:
009521,000116: 43,2116 5561 TERMEXTV EQUALS ENDEXT
009522,000117:
009523,000118: 43,2116 5561 ENDEXTVB EQUALS ENDEXT
009524,000119:
009525,000120: 43,2116 35030 XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS.
009526,000121: 43,2117 02105 TC SETXTACT
009527,000122:
009528,000123: 43,2120 04376 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
009529,000124: 43,2121 04674 GOPIN TC POSTJUMP
009530,000125: 43,2122 20746 CADR PINBRNCH
009531,000126:
009532,000127: 43,2123 31012 CHKPOOH CA MODREG # CHECK FOR POO OR POO-.
009533,000128: 43,2124 00006 EXTEND
009534,000129: 43,2125 16716 BZF TCQ
009535,000130: 43,2126 02120 TC ALM/END
009536,000131:
009537,000132: 43,2127 24100 OC24100 OCT 24100
009538,000133:
009539,000134: # VBZERO VERB 40 DESCRIPTION
009540,000135:
009541,000136: # 1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
009542,000137: # 2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
009543,000138: # FOR N72, CHECK IF EITHER RADAR IS IN USE.
009544,000139: # 3. EXECUTE THE CDU ZERO.
009545,000140: # 4. STALL UNTILL THE ZERO IS DONE.
009546,000141: # 5. DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
009547,000142: # 6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
009548,000143:
009549,000144: 43,2130 02162 VBZERO TC OP/INERT
009550,000145: 43,2131 02133 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
009551,000146: 43,2132 02142 TC RRZEROK # RETURN HERE IF NOUN = RCDU(72)
009552,000147: 43,2133 02350 IMUZEROK TC CKMODCAD
009553,000148: 43,2134 04655 TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO
009554,000149: 43,2135 16622 CADR IMUZERO
009555,000150:
009556,000151: 43,2136 04655 TC BANKCALL # STALL
009557,000152: 43,2137 17625 CADR IMUSTALL
009558,000153: 43,2140 02141 TC +1
009559,000154:
009560,000155: 43,2141 02121 TC GOPIN # IMUZERO
009561,000156:
009562,000157: 43,2142 31310 RRZEROK CA RADCADR
009563,000158: 43,2143 02351 TC CKMODCAD +1
009564,000159: 43,2144 04655 TC BANKCALL
009565,000160: 43,2145 52322 CADR RRZERO
009566,000161:
009567,000162: 43,2146 04655 RWAITK TC BANKCALL
009568,000163: 43,2147 17623 CADR RADSTALL
009569,000164: 43,2150 12151 TCF +1
009570,000165: 43,2151 02121 TC GOPIN # RRZERO
009571,000166:
009572,000167: # LRPOS2K VERB 60 DESCRIPTION
009573,000168: # COMMAND LANDING RADAR TO POSITION 2
009574,000169: # 1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
009575,000170: # 2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
009576,000171: # THE PRESCRIBED TIME.
009577,000172: # 3. RE-ESTABLISH THE DISPLAYS.
009578,000173:
009579,000174: 43,2152 31310 LRPOS2K CA RADCADR
009580,000175: 43,2153 02351 TC CKMODCAD +1
009581,000176: 43,2154 04655 TC BANKCALL # COMMAND LR TO POSITION 2
009582,000177: 43,2155 53422 CADR LRPOS2
009583,000178: 43,2156 12146 TCF RWAITK
009584,000179:
009585,000180: # VBCOARK VERB 41 DESCRIPTION
009586,000181: # COARSE ALIGN IMU OR RADAR
009587,000182: # 1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
009588,000183: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
009589,000184: # CASE 1 NOUN 20 (ICDU ANGLES)
009590,000185: # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
009591,000186: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
009592,000187: # RESPONSES
009593,000188: # A. TERMINATE
009594,000189: # 1. RELEASE EXT VERB DISPLAY SYSTEM
009595,000190: # B. PROCEED
009596,000191: # 1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
009597,000192: # C. ENTER
009598,000193: # 1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
009599,000194: # ICORK2
009600,000195: # 1. RE-DISPLAY VERB 41.
009601,000196: # 2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
009602,000197: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
009603,000198: # 4. RELEASE EXT VERB DISPLAY SYSTEM.
009604,000199: # CASE 2 NOUN 72 (RCDU ANGLES)
009605,000200: # EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
009606,000201: # 5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
009607,000202: # RESPONSES
009608,000203: # A. TERMINATE
009609,000204: # 1. RELEASE EXT VERB DISPLAY SYS.
009610,000205: # B. PROCEED OR ENTER
009611,000206: # 1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
009612,000207: # 2. RE-DISPLAY VERB 41.
009613,000208: # 3. SCHEDULE RRDESK2 WITH PRIORITY 20.
009614,000209: # 4. RELEASE EXT VERB DISPLAY SYS.
009615,000210:
009616,000211: # AURLOKON
009617,000212:
009618,000213: # 1. FLASH V04 N12 R1 = 00006 R2 = 00002
009619,000214: # RESPONSES
009620,000215: # A. TERMINATE
009621,000216: # B. PROCEED
009622,000217: # 1. RESET LOCK-ON SWITCH
009623,000218: # 2. SET CONTINUOUS DESIGNATE FLAG
009624,000219: # 3. DISABLE R25
009625,000220: # C. V22 E 1 E, R1 = 00001, PROCEED
009626,000221: # 1. SET LOCK-ON SWITCH
009627,000222: 43,2157 02162 VBCOARK TC OP/INERT
009628,000223: 43,2160 02174 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
009629,000224: 43,2161 02216 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (72)
009630,000225: # RETURNS TO L+1 IF IMU OR L+2 IF RR.
009631,000226:
009632,000227: 43,2162 44112 OP/INERT CS OCT24
009633,000228: 43,2163 61003 AD NOUNREG
009634,000229: 43,2164 00006 EXTEND
009635,000230: 43,2165 16716 BZF TCQ # IF = 20.
009636,000231:
009637,000232: 43,2166 24002 INCR Q
009638,000233: 43,2167 62173 AD RRIMUDIF # -52
009639,000234: 43,2170 00006 EXTEND
009640,000235: 43,2171 16716 BZF TCQ
009641,000236:
009642,000237: 43,2172 02120 TC ALM/END # ILLEGAL.
009643,000238:
009644,000239: 43,2173 77713 RRIMUDIF DEC -52 B-14 # THE IMU
009645,000240: 43,2174 02350 IMUCOARK TC CKMODCAD
009646,000241: 43,2175 02076 TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
009647,000242: 43,2176 32214 CAF VNLODCDU # CALL FOR THETAD LOAD
009648,000243: 43,2177 04655 TC BANKCALL
009649,000244: 43,2200 20226 CADR GOXDSPF
009650,000245: 43,2201 05561 TC TERMEXTV
009651,000246: 43,2202 12203 TCF +1
009652,000247:
009653,000248: 43,2203 32215 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
009654,000249: 43,2204 04655 TC BANKCALL
009655,000250: 43,2205 20527 CADR EXDSPRET
009656,000251:
009657,000252: 43,2206 04655 TC BANKCALL # CALL MODE SWITCHING PROG
009658,000253: 43,2207 16711 CADR IMUCOARS
009659,000254:
009660,000255: 43,2210 04655 TC BANKCALL # STALL
009661,000256: 43,2211 17625 CADR IMUSTALL
009662,000257: 43,2212 05561 TC ENDEXTVB
009663,000258: 43,2213 05561 TC ENDEXTVB
009664,000259:
009665,000260: 43,2214 06226 VNLODCDU VN 2522
009666,000261: 43,2215 12200 IMUCOARV VN 4100
009667,000262:
009668,000263: # DESIGNATE TO DESIRED GIMBAL ANGLES.
009669,000264:
009670,000265: 43,2216 31310 RRDESNBK CA RADCADR
009671,000266: 43,2217 02351 TC CKMODCAD +1
009672,000267: 43,2220 02076 TC TESTXACT
009673,000268: 43,2221 35020 CA RNDVZBIT # IS P20 RUNNING?
009674,000269: 43,2222 70074 MASK FLAGWRD0
009675,000270: 43,2223 10000 CCS A
009676,000271: 43,2224 12114 TCF XACTALM # OPERATOR ERROR IF IN P20
009677,000272: 43,2225 42302 CS OCT41000 # TERMINATE PRESENT DESIGNATION
009678,000273: 43,2226 71101 MASK RADMODES
009679,000274: 43,2227 55101 TS RADMODES
009680,000275:
009681,000276: 43,2230 32247 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
009682,000277: 43,2231 04655 TC BANKCALL
009683,000278: 43,2232 20226 CADR GOXDSPF
009684,000279: 43,2233 05561 TC TERMEXTV
009685,000280: 43,2234 12230 TCF -4 # V33
009686,000281:
009687,000282: 43,2235 04655 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
009688,000283: 43,2236 64000 CADR AURLOKON
009689,000284:
009690,000285: 43,2237 32215 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
009691,000286: 43,2240 04655 TC BANKCALL
009692,000287: 43,2241 20527 CADR EXDSPRET
009693,000288:
009694,000289: 43,2242 35011 CAF PRIO20
009695,000290: 43,2243 05155 TC FINDVAC
009696,000291: 43,2244 E7,1433 EBANK= LOSCOUNT
009697,000292: 43,2244 02250 66107 2CADR RRDESK2
009698,000293:
009699,000294: 43,2246 15561 TCF TERMEXTV # FREES DISPLAY.
009700,000295:
009701,000296: 43,2247 06111 VNLDRCDU VN 2473
009702,000297: 43,2250 43,2215 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
009703,000298:
009704,000299: 43,2250 04655 RRDESK2 TC BANKCALL
009705,000300: 43,2251 52450 CADR RRDESNB
009706,000301:
009707,000302: 43,2252 02253 TC +1 # DUMMY NEEDED SINCE DESRETRN DOES INCR
009708,000303: 43,2253 04655 TC BANKCALL # WAIT FOR COMPLETION OF DESIGNATE
009709,000304: 43,2254 17623 CADR RADSTALL
009710,000305:
009711,000306: 43,2255 02257 TC +2 # BADEND-NO LOCKON OR OUT OF LIMITS
009712,000307: 43,2256 05225 TC ENDOFJOB # GOODEND-LOCKON ACHIEVED
009713,000308: 43,2257 05646 TC ALARM
009714,000309: 43,2260 00503 OCT 503 # TURN ON ALARM LIGHT -503 DESIGNATE FAIL
009715,000310: 43,2261 05225 TC ENDOFJOB
009716,000311:
009717,000312: 43,2262 11101 RRDESEND CCS RADMODES # TERMINATE CONTINUOUS DESIGNATE ONLY
009718,000313: 43,2263 12121 TCF GOPIN
009719,000314: 43,2264 12121 TCF GOPIN
009720,000315: 43,2265 12266 TCF +1
009721,000316: 43,2266 42302 CS OCT41000 # BEGDES GOES TO ENDRADAR
009722,000317: 43,2267 00004 INHINT # RELINT DONE IN DOWNFLAG
009723,000318: 43,2270 71101 MASK RADMODES
009724,000319: 43,2271 55101 TS RADMODES
009725,000320: 43,2272 04655 TC BANKCALL
009726,000321: 43,2273 51061 CADR CLRADMOD
009727,000322: 43,2274 35047 CAF 1SEC
009728,000323: 43,2275 04655 TC BANKCALL
009729,000324: 43,2276 01730 CADR DELAYJOB
009730,000325: 43,2277 05575 TC DOWNFLAG # ENABLE R25 GIMBAL MONITOR
009731,000326: 43,2300 00126 ADRES NORRMON
009732,000327: 43,2301 12121 TCF GOPIN
009733,000328: 43,2302 41000 OCT41000 OCT 41000 # CONTINUOUS DESIGNATE - DESIGNATE
009734,000329:
009735,000330: 23,2000 BANK 23
009736,000331: 42,2000 SETLOC EXTVB1
009737,000332: 42,2000 BANK
009738,000333: 42,2000 COUNT* $$/EXTVB
009739,000334:
009740,000335: 42,2000 04704 AURLOKON TC MAKECADR
009741,000336: 42,2001 55116 TS DESRET
009742,000337: 42,2002 35025 CAF TWO
009743,000338: 42,2003 55156 TS OPTION1 +1
009744,000339: 42,2004 36216 CAF SIX # OPTION CODE FOR V04N12
009745,000340: 42,2005 55155 TS OPTION1
009746,000341:
009747,000342: 42,2006 32045 -5 CAF V04N0672
009748,000343: 42,2007 04655 TC BANKCALL # R2 00001 LOCK-ON
009749,000344: 42,2010 20245 CADR GOMARKFR
009750,000345: 42,2011 15561 TCF ENDEXT # V34
009751,000346: 42,2012 12017 TCF +5 # V33
009752,000347: 42,2013 12006 TCF -5 # V32
009753,000348: 42,2014 35024 CAF BIT3
009754,000349: 42,2015 05553 TC BLANKET
009755,000350: 42,2016 05225 TC ENDOFJOB
009756,000351:
009757,000352: 42,2017 31156 +5 CA OPTION1 +1
009758,000353: 42,2020 75025 MASK BIT2
009759,000354: 42,2021 10000 CCS A
009760,000355: 42,2022 12025 TCF +3 # ON TERM.
009761,000356: 42,2023 35022 CAF LOKONBIT
009762,000357: 42,2024 12026 TCF +2
009763,000358: 42,2025 35030 CAF ZERO
009764,000359: 42,2026 00004 INHINT
009765,000360: 42,2027 56074 XCH STATE
009766,000361: 42,2030 72044 MASK -LOKONFG
009767,000362: 42,2031 26074 ADS STATE
009768,000363:
009769,000364: 42,2032 75022 MASK LOKONBIT # IF NO LOCK-ON CALLED FOR, SET BIT15 OF
009770,000365: 42,2033 10000 CCS A # RADMODES TO INDICATE THAT ARBITRARILY-
009771,000366: 42,2034 12041 TCF +5 # LONG DESIGNATION IS WANTED (TO BE
009772,000367:
009773,000368: 42,2035 35010 CAF BIT15 # TERMINATED BY FRESH START).
009774,000369: 42,2036 27101 ADS RADMODES
009775,000370: 42,2037 05563 TC UPFLAG
009776,000371: 42,2040 00126 ADRES NORRMON
009777,000372: 42,2041 00003 RELINT
009778,000373: 42,2042 31116 CA DESRET
009779,000374: 42,2043 14677 TCF BANKJUMP
009780,000375:
009781,000376: 42,2044 77757 -LOKONFG OCT -20
009782,000377: 42,2045 01006 V04N0672 VN 406
009783,000378:
009784,000379: 43,2303 BANK 43
009785,000380: 43,2000 SETLOC EXTVERBS
009786,000381: 43,2000 BANK
009787,000382: 43,2303 COUNT* $$/EXTVB
009788,000383:
009789,000384:
009790,000385: 43,2303 E5,1737 EBANK= OGC
009791,000386:
009792,000387: # IMUFINEK VERB 42 DESCRIPTION
009793,000388: # FINE ALIGN IMU
009794,000389: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
009795,000390: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
009796,000391: # RESPONSES
009797,000392: # A. TERMINATE
009798,000393: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
009799,000394: # B. PROCEED OR ENTER
009800,000395: # 1. RE-DISPLAY VERB 42
009801,000396: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
009802,000397: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
009803,000398: # A. FAILED
009804,000399: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
009805,000400: # B. GOOD
009806,000401: # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
009807,000402: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
009808,000403:
009809,000404: 43,2303 02350 IMUFINEK TC CKMODCAD
009810,000405: 43,2304 02076 TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
009811,000406: 43,2305 32332 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
009812,000407: 43,2306 04655 TC BANKCALL
009813,000408: 43,2307 20226 CADR GOXDSPF
009814,000409: 43,2310 05561 TC TERMEXTV
009815,000410: 43,2311 02312 TC +1 # PROCEED WITHOUT A LOAD
009816,000411:
009817,000412: 43,2312 32333 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
009818,000413: 43,2313 04655 TC BANKCALL
009819,000414: 43,2314 20527 CADR EXDSPRET
009820,000415:
009821,000416: 43,2315 04655 TC BANKCALL # CALL MODE SWITCH PROG
009822,000417: 43,2316 17121 CADR IMUFINE
009823,000418:
009824,000419: 43,2317 04655 TC BANKCALL # HIBERNATION
009825,000420: 43,2320 17625 CADR IMUSTALL
009826,000421: 43,2321 05561 TC ENDEXTVB
009827,000422:
009828,000423: 43,2322 32331 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
009829,000424: 43,2323 04655 TC BANKCALL
009830,000425: 43,2324 17234 CADR IMUPULSE
009831,000426:
009832,000427: 43,2325 04655 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
009833,000428: 43,2326 17625 CADR IMUSTALL
009834,000429: 43,2327 05561 TC ENDEXTVB
009835,000430: 43,2330 05561 TC ENDEXTVB
009836,000431:
009837,000432: 43,2331 02737 LGYROBIN ECADR OGC
009838,000433: 43,2332 06335 VNLODGYR VN 2593
009839,000434: 43,2333 12400 IMUFINEV VN 4200
009840,000435: # GOLOADLV VERB 50 DESCRIPTION
009841,000436: # AND OTHER PLEASE
009842,000437:
009843,000438: # DO SOMETHING VERBS
009844,000439: # PLEASE PERFORM, MARK, CALIBRATE, ETC.
009845,000440: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
009846,000441: # SAME RECALL AS A COMPLETED LOAD.
009847,000442: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
009848,000443:
009849,000444: 43,2334 40,2000 SBANK= PINSUPER # FOR LOADLV1 AND SHOWSUM CADR'S.
009850,000445:
009851,000446: 43,2334 04445 GOLOADLV TC FLASHOFF
009852,000447:
009853,000448: 43,2335 34213 CAF PINSUPBT
009854,000449: 43,2336 00006 EXTEND
009855,000450: 43,2337 01007 WRITE SUPERBNK
009856,000451: 43,2340 04674 TC POSTJUMP
009857,000452: 43,2341 62001 CADR LOADLV1
009858,000453:
009859,000454: # VERB 47 - AGS INITIALIZATION - R47.
009860,000455:
009861,000456: # SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
009862,000457:
009863,000458: 43,2342 02076 V47TXACT TC TESTXACT # NO OTHER EXTVERB.
009864,000459: 43,2343 35013 CAF PRIO4
009865,000460: 43,2344 05155 TC FINDVAC
009866,000461: 43,2345 E4,1606 EBANK= AGSBUFF
009867,000462: 43,2345 02000 60104 2CADR AGSINIT
009868,000463:
009869,000464: 43,2347 05225 TC ENDOFJOB
009870,000465:
009871,000466: 43,2350 31306 CKMODCAD CA MODECADR
009872,000467: 43,2351 00006 EXTEND
009873,000468: 43,2352 16716 BZF TCQ
009874,000469: 43,2353 02120 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT
009875,000470:
009876,000471: # ALINTIME VERB 55 DESCRIPTION
009877,000472: # REQUIRE POO OR POO-.
009878,000473: # 1. SET EXT VERB DISPLAY BUSY FLAG.
009879,000474: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
009880,000475: # 3. REQUIRE EXECUTION OF VERB 23.
009881,000476: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
009882,000477: # 5. RELEASE EXT VERB DISPLAY SYSTEM
009883,000478:
009884,000479: 43,2354 02076 ALINTIME TC TESTXACT
009885,000480: 43,2355 32405 CAF VNLODDT
009886,000481: 43,2356 04655 TC BANKCALL
009887,000482: 43,2357 20226 CADR GOXDSPF
009888,000483: 43,2360 05561 TC ENDEXT # TERMINATE
009889,000484: 43,2361 05561 TC ENDEXT # PROCEED
009890,000485: 43,2362 42404 CS DEC23 # DATA IN OR RESEQUENCE(UNLIKELY)
009891,000486: 43,2363 60154 AD MPAC # RECALL LEFT VERB IN MPAC
009892,000487: 43,2364 00006 EXTEND
009893,000488: 43,2365 12367 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
009894,000489: 43,2366 05561 TC ENDEXT # WITH V23 (DATA IN).
009895,000490:
009896,000491: 43,2367 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
009897,000492: 43,2370 35030 CAF ZERO
009898,000493: 43,2371 54156 TS MPAC +2 # NEEDED FOR TP AGREE
009899,000494: 43,2372 54001 TS L # ZERO T1 + 2 WHILE ALIGNING.
009900,000495: 43,2373 52025 DXCH TIME2
009901,000496: 43,2374 52155 DXCH MPAC
009902,000497: 43,2375 53053 DXCH DSPTEM2 +1 # INCREMENT
009903,000498: 43,2376 20155 DAS MPAC
009904,000499:
009905,000500: 43,2377 07231 TC TPAGREE # FORCE SIGN AGREEMENT.
009906,000501: 43,2400 52155 DXCH MPAC # NEW CLOCK.
009907,000502: 43,2401 20025 DAS TIME2
009908,000503: 43,2402 00003 RELINT
009909,000504: 43,2403 05561 UPDTMEND TC ENDEXT
009910,000505:
009911,000506: 43,2404 00027 DEC23 DEC 23 B-14 # V 23
009912,000507:
009913,000508: 43,2405 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
009914,000509:
009915,000510: # SET UP FOR RADAR SAMPLING.
009916,000511:
009917,000512: 42,2046 BANK 42
009918,000513: 43,2000 SETLOC EXTVERBS
009919,000514: 43,2000 BANK
009920,000515:
009921,000516: 43,2406 E4,1606 EBANK= RSTACK
009922,000517:
009923,000518: 43,2406 COUNT* $$/R0477
009924,000519:
009925,000520: 43,2406 02076 R77 TC TESTXACT
009926,000521: 43,2407 05575 TC DOWNFLAG
009927,000522: 43,2410 00063 ADRES R04FLAG
009928,000523: 43,2411 05563 TC UPFLAG
009929,000524: 43,2412 00117 ADRES R77FLAG
009930,000525: 43,2413 12423 TCF R04Z
009931,000526:
009932,000527: 43,2414 35020 R04 CAF RNDVZBIT
009933,000528: 43,2415 70074 MASK FLAGWRD0
009934,000529: 43,2416 10000 CCS A
009935,000530: 43,2417 02120 TC ALM/END
009936,000531: 43,2420 02076 TC TESTXACT
009937,000532: 43,2421 05563 TC UPFLAG
009938,000533: 43,2422 00063 ADRES R04FLAG # SET R04FLAG FOR ALARMS
009939,000534:
009940,000535: 43,2423 35014 R04Z CAF EBANK4
009941,000536: 43,2424 54003 TS EBANK
009942,000537: 43,2425 32643 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
009943,000538: 43,2426 55525 TS RSAMPDT
009944,000539: 43,2427 35030 CAF ZERO
009945,000540: 43,2430 55524 TS RTSTLOC
009946,000541: 43,2431 55526 TS RFAILCNT # ZERO BAD SAMPLE COUNTER
009947,000542:
009948,000543: 43,2432 00004 INHINT
009949,000544: 43,2433 42645 CS LRPOSCAL # INITIALIZE
009950,000545: 43,2434 71101 MASK RADMODES # BIT 9 LR RANGE LOW SCALE =0
009951,000546: 43,2435 55101 TS RADMODES # BIT 6 LR POS 1 =0
009952,000547: 43,2436 32645 CAF LRPOSCAL # BIT 3 RR RANGE LOW SCALE =0
009953,000548: 43,2437 00006 EXTEND
009954,000549: 43,2440 02033 RAND CHAN33
009955,000550: 43,2441 27101 ADS RADMODES
009956,000551: 43,2442 00003 RELINT
009957,000552:
009958,000553: 43,2443 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
009959,000554: 43,2444 75016 MASK R04FLBIT
009960,000555: 43,2445 10000 CCS A
009961,000556: 43,2446 12600 TCF R04K
009962,000557:
009963,000558: 43,2447 35026 CAF ONE # INDICATES RENDEZVOUS DESIRED
009964,000559: 43,2450 55156 TS OPTION1 +1
009965,000560: 43,2451 35024 R04A CAF BIT3 # OPTION CODE FOR V04N12
009966,000561:
009967,000562: 43,2452 55155 TS OPTION1
009968,000563: 43,2453 32640 CAF V04N06X
009969,000564: 43,2454 04655 TC BANKCALL # R2 00001 RENDEZVOUS RADAR
009970,000565: 43,2455 20245 CADR GOMARKFR # 00002 LANDING RADAR
009971,000566: 43,2456 12606 TCF R04END # V34
009972,000567: 43,2457 12464 TCF +5 # V33
009973,000568: 43,2460 12453 TCF R04A +2 # R2
009974,000569: 43,2461 35024 CAF BIT3
009975,000570: 43,2462 05553 TC BLANKET
009976,000571: 43,2463 05225 TC ENDOFJOB
009977,000572:
009978,000573: 43,2464 31156 CA OPTION1 +1 # SAVE DESIRED OPTION RR =1 LR =2
009979,000574: 43,2465 55521 TS RTSTDEX
009980,000575:
009981,000576: 43,2466 36216 R04X CAF SIX # RR OR LR DESIRED
009982,000577: 43,2467 71521 MASK RTSTDEX
009983,000578: 43,2470 10000 CCS A
009984,000579: 43,2471 12602 TCF R04L # LANDING RADAR
009985,000580: 43,2472 55523 TS RTSTBASE # FOR RR BASE = 0, MAX = 1
009986,000581:
009987,000582: 43,2473 35025 R04B CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
009988,000583: 43,2474 00006 EXTEND
009989,000584: 43,2475 02033 RAND CHAN33
009990,000585: 43,2476 00006 EXTEND
009991,000586: 43,2477 12510 BZF R04C # YES
009992,000587:
009993,000588: 43,2500 32642 CAF 201R04 # REQUEST SELECTION OF RR AUTO MODE
009994,000589: 43,2501 55046 TS DSPTEM1
009995,000590: 43,2502 32641 CAF V50N25X
009996,000591: 43,2503 04655 TC BANKCALL
009997,000592: 43,2504 20237 CADR GOMARK4
009998,000593: 43,2505 12606 TCF R04END # V34
009999,000594: 43,2506 12473 TCF R04B # V33
010000,000595: 43,2507 12500 TCF -7 # E
010001,000596:
010002,000597: 43,2510 35011 R04C CAF BIT14 # ENABLE RR AUTO TRACKER
010003,000598: 43,2511 00006 EXTEND
010004,000599: 43,2512 05012 WOR CHAN12
010005,000600:
010006,000601: 43,2513 35025 CAF TWO
010007,000602: 43,2514 55522 TS RTSTMAX # FOR SEQUENTIAL STORAGE
010008,000603:
010009,000604: 43,2515 05252 TC WAITLIST
010010,000605: 43,2516 E4,1606 EBANK= RSTACK
010011,000606: 43,2516 02000 52104 2CADR RADSAMP
010012,000607:
010013,000608: 43,2520 00003 RELINT
010014,000609:
010015,000610: 43,2521 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
010016,000611: 43,2522 75016 MASK R04FLBIT
010017,000612:
010018,000613: 43,2523 10000 CCS A
010019,000614: 43,2524 12121 TCF GOPIN # R77
010020,000615:
010021,000616: 43,2525 36216 CAF SIX # RR OR LR
010022,000617: 43,2526 71521 MASK RTSTDEX
010023,000618: 43,2527 10000 CCS A
010024,000619: 43,2530 12545 TCF R04LR # LR
010025,000620:
010026,000621: 43,2531 32634 R04RR CAF V16N72 # DISPLAY RR CDU ANGLES (1/SEC)
010027,000622: 43,2532 04655 TC BANKCALL # R1 + XXX.XX DEG TRUNNION
010028,000623: 43,2533 20226 CADR GOMARKF # R2 + XXX.XX DEG SHAFT
010029,000624: 43,2534 12606 TCF R04END # V34 R3 BLANK
010030,000625: 43,2535 12537 TCF +2 # V33
010031,000626: 43,2536 12531 TCF R04RR # V32
010032,000627:
010033,000628: 43,2537 32635 CAF V16N78 # DISPLAY RR RANGE AND RANGE RATE (1/SEC)
010034,000629: 43,2540 04655 TC BANKCALL # R1 +- XXX.XX NM RANGE
010035,000630: 43,2541 20226 CADR GOMARKF # R2 +- XXXXX. FPS RANGE RATE
010036,000631: 43,2542 12606 TCF R04END # V34 R3 BLANK
010037,000632: 43,2543 12561 TCF R04Y # V33
010038,000633: 43,2544 12531 TCF R04RR # V32
010039,000634:
010040,000635: 43,2545 32636 R04LR CAF V16N66 # DISPLAY LR RANGE AND POSITION (1/SEC)
010041,000636: 43,2546 04655 TC BANKCALL # R1 +- XXXXX. FT LR RANGE
010042,000637: 43,2547 20226 CADR GOMARKF # R2 + 0000X. POS. NO.
010043,000638: 43,2550 12606 TCF R04END # V34 R3 BLANK
010044,000639: 43,2551 12553 TCF +2 # V33
010045,000640: 43,2552 12545 TCF R04LR # V32
010046,000641:
010047,000642: 43,2553 32637 CAF V16N67 # DISPLAY LR VELX, VELY, VELZ (1/SEC)
010048,000643: 43,2554 04655 TC BANKCALL # R1 +- XXXXX. FPS LR V(X)
010049,000644: 43,2555 20226 CADR GOMARKF # R2 +- XXXXX. FPS LR V(Y)
010050,000645: 43,2556 12606 TCF R04END # V34 R3 +- XXXXX. FPS LR V(Z)
010051,000646: 43,2557 12561 TCF R04Y # V33
010052,000647: 43,2560 12545 TCF R04LR # V32
010053,000648:
010054,000649: 43,2561 35030 R04Y CAF ZERO # TO TERMINATE SAMPLING
010055,000650: 43,2562 55525 TS RSAMPDT
010056,000651: 43,2563 35050 CAF 2SECS # WAIT FOR LAST RADARUPT
010057,000652: 43,2564 04655 TC BANKCALL
010058,000653: 43,2565 01730 CADR DELAYJOB
010059,000654: 43,2566 32643 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
010060,000655: 43,2567 55525 TS RSAMPDT
010061,000656: 43,2570 35030 CAF ZERO # FOR STORING RESULTS
010062,000657: 43,2571 55524 TS RTSTLOC
010063,000658: 43,2572 36216 CAF SIX
010064,000659: 43,2573 71521 MASK RTSTDEX
010065,000660: 43,2574 10000 CCS A
010066,000661: 43,2575 45026 CS ONE # WAS LR
010067,000662: 43,2576 65025 AD TWO # WAS RR
010068,000663:
010069,000664:
010070,000665: 43,2577 12465 TCF R04X -1
010071,000666:
010072,000667: 43,2600 32644 R04K CAF 250MS+1 # SAMPLE 4 LR COMPONENTS PER SECOND.
010073,000668: 43,2601 55525 TS RSAMPDT
010074,000669:
010075,000670: 43,2602 35025 R04L CAF TWO
010076,000671: 43,2603 55523 TS RTSTBASE # FOR LR BASE = 2, MAX = 3
010077,000672: 43,2604 36216 CAF SIX
010078,000673: 43,2605 12514 TCF R04C +4
010079,000674: 43,2606 35030 R04END CAF ZERO # ZERO RSAMPDT
010080,000675: 43,2607 55525 TS RSAMPDT # TO TERMINATE SAMPLING
010081,000676: 43,2610 35017 CAF BIT8 # WAIT 1.28 SECONDS FOR POSSIBLE
010082,000677: 43,2611 04655 TC BANKCALL # PENDING RUPT.
010083,000678: 43,2612 01730 CADR DELAYJOB
010084,000679:
010085,000680: 43,2613 00004 INHINT
010086,000681: 43,2614 45011 CS BIT14 # DISABLE RR AUTO TRACKER
010087,000682: 43,2615 00006 EXTEND
010088,000683: 43,2616 03012 WAND CHAN12
010089,000684:
010090,000685: 43,2617 05575 TC DOWNFLAG
010091,000686: 43,2620 00063 ADRES R04FLAG # SIGNAL END OF R04.
010092,000687:
010093,000688: 43,2621 05561 TC ENDEXT
010094,000689:
010095,000690: 43,2622 35014 R77END CAF EBANK4 # TO TERMINATE SAMPLING
010096,000691: 43,2623 54003 TS EBANK
010097,000692: 43,2624 35030 CAF ZERO
010098,000693: 43,2625 55525 TS RSAMPDT
010099,000694: 43,2626 35021 CAF BIT6 # WAIT 320 MS FOR POSSIBLE
010100,000695: 43,2627 04655 TC BANKCALL # PENDING RUPT.
010101,000696: 43,2630 01730 CADR DELAYJOB
010102,000697:
010103,000698: 43,2631 05575 TC DOWNFLAG
010104,000699: 43,2632 00117 ADRES R77FLAG
010105,000700: 43,2633 15561 TCF ENDEXT
010106,000701:
010107,000702: 43,2634 04110 V16N72 VN 1672
010108,000703: 43,2635 04116 V16N78 VN 1678
010109,000704: 43,2636 04102 V16N66 VN 1666
010110,000705: 43,2637 04103 V16N67 VN 1667
010111,000706: 43,2640 01006 V04N06X VN 406
010112,000707: 43,2641 14431 V50N25X VN 5025
010113,000708: 43,2642 00201 201R04 OCT 00201
010114,000709: 43,2643 00145 1SEC+1 DEC 101 B-14
010115,000710: 43,2644 00032 250MS+1 DEC 26 B-14
010116,000711: 43,2645 00444 LRPOSCAL OCT 444
010117,000712:
010118,000713: 43,2646 COUNT* $$/EXTVB
010119,000714:
010120,000715: # IMUATTCK VERB 43 DESCRIPTION
010121,000716: # LOAD IMU ATTITUDE ERROR METERS
010122,000717: # 1. REQUIRE POO OR FRESH START.
010123,000718: # 2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
010124,000719: # 3. REQUIRE THAT NEEDLES BE OFF.
010125,000720: # 4. REQUEST LOAD OF N22 (VAUES TO BE DISPLAYED).
010126,000721: # 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
010127,000722:
010128,000723: 43,2646 02123 IMUATTCK TC CHKPOOH # VB 76 - LOAD IMU ATT. ERROR METERS
010129,000724:
010130,000725: 43,2647 32705 CAF SBITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU
010131,000726: 43,2650 00006 EXTEND # CDUS BITS ARE ON
010132,000727: 43,2651 02012 RAND CHAN12
010133,000728: 43,2652 10000 CCS A
010134,000729: 43,2653 12120 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
010135,000730:
010136,000731: 43,2654 34367 CAF BIT13-14 # BOTH BITS 13 AND 14 MUST BE 1
010137,000732: 43,2655 00006 EXTEND # INDICATING THE MODE SELECTED IS OFF.
010138,000733: 43,2656 06031 RXOR CHAN31
010139,000734: 43,2657 74367 MASK BIT13-14
010140,000735: 43,2660 00006 EXTEND
010141,000736: 43,2661 12663 BZF +2 # NEEDLES IS OFF.
010142,000737: 43,2662 12120 TCF ALM/END # EXIT. NEEDLES IS ON.
010143,000738:
010144,000739: 43,2663 02076 TC TESTXACT
010145,000740:
010146,000741: 43,2664 32214 CAF VNLODCDU
010147,000742: 43,2665 04655 TC BANKCALL
010148,000743: 43,2666 20226 CADR GOXDSPF
010149,000744: 43,2667 05561 TC ENDEXT # V34
010150,000745: 43,2670 02671 TC +1
010151,000746: 43,2671 32704 CAF V43K # REDISPLAY OUR VERB.
010152,000747: 43,2672 04655 TC BANKCALL
010153,000748: 43,2673 20527 CADR EXDSPRET
010154,000749: 43,2674 35021 CAF BIT6
010155,000750: 43,2675 00006 EXTEND
010156,000751: 43,2676 05012 WOR CHAN12 # ENABLE ERROR COUNTERS.
010157,000752: 43,2677 35025 CAF TWO
010158,000753: 43,2700 05252 TC WAITLIST # PUT OUT COMMANDS IN .32 SECONDS.
010159,000754: 43,2701 1206 EBANK= THETAD
010160,000755: 43,2701 02046 64102 2CADR ATTCK2
010161,000756:
010162,000757: 43,2703 15561 TCF ENDEXT
010163,000758:
010164,000759: 42,2046 BANK 42
010165,000760: 42,2000 SETLOC PINBALL3 # SOMETHING IN B42.
010166,000761: 42,2000 BANK
010167,000762:
010168,000763: 42,2046 COUNT* $$/EXTVB
010169,000764:
010170,000765: 42,2046 35025 ATTCK2 CAF TWO # PUT OUT COMMANDS.
010171,000766: 42,2047 54002 +1 TS Q # CDU WILL LIMIT EXCESS DATA.
010172,000767: 42,2050 50000 INDEX A
010173,000768: 42,2051 31206 CA THETAD
010174,000769: 42,2052 00006 EXTEND
010175,000770: 42,2053 75012 MP ATTSCALE
010176,000771: 42,2054 50002 INDEX Q
010177,000772: 42,2055 56050 XCH CDUXCMD
010178,000773: 42,2056 10002 CCS Q
010179,000774: 42,2057 12047 TCF ATTCK2 +1
010180,000775:
010181,000776: 42,2060 37711 CAF 13,14,15
010182,000777: 42,2061 00006 EXTEND
010183,000778: 42,2062 05014 WOR CHAN14
010184,000779: 42,2063 15321 TCF TASKOVER # LEAVE ERROR COUNTERS ENABLED.
010185,000780:
010186,000781: 42,2064 5012 ATTSCALE = BIT13
010187,000782:
010188,000783: 07,2622 BANK 7
010189,000784: 43,2000 SETLOC EXTVERBS
010190,000785: 43,2000 BANK
010191,000786:
010192,000787: 43,2704 COUNT* $$/EXTVB
010193,000788:
010194,000789: 43,2704 12600 V43K VN 4300
010195,000790: 43,2705 00030 SBITS4&5 OCT 30
010196,000791: # V82PERF VERB 82 DESCRIPTION
010197,000792: # REQUEST ORBIT PARAMETERS DISPLAY (R30)
010198,000793: # 1. IF AVERAGE G IS OFF:
010199,000794: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
010200,000795: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
010201,000796: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
010202,000797: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
010203,000798: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
010204,000799: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
010205,000800: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
010206,000801: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
010207,000802: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
010208,000803: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
010209,000804: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
010210,000805: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
010211,000806: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
010212,000807: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
010213,000808:
010214,000809: # 2. IF AVERAGE G IS ON:
010215,000810: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
010216,000811: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
010217,000812: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
010218,000813: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
010219,000814: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
010220,000815: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
010221,000816:
010222,000817: 43,2706 02076 V82PERF TC TESTXACT
010223,000818:
010224,000819: 43,2707 35071 CAF PRIO7 # LESS THAN LAMBERT. R30,V82
010225,000820: 43,2710 05216 TC PRIOCHNG
010226,000821: 43,2711 00006 EXTEND
010227,000822: 43,2712 32715 DCA V82CON
010228,000823: 43,2713 05235 TC SUPDXCHZ # V82CALL IN DIFF SUPERBANK FROM V82PERF
010229,000824:
010230,000825: 43,2714 E4,1660 EBANK= HAPO
010231,000826: 43,2714 03236 44104 V82CON 2CADR V82CALL
010232,000827:
010233,000828:
010234,000829: # VB83PERF VERB 83 DESCRIPTION
010235,000830: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
010236,000831: # 1. SET EXT VERB DISPLAY BUSY FLAG.
010237,000832: # 2. SCHEDULE R31CALL WITH PRIORITY 5.
010238,000833: # A. DISPLAY
010239,000834: # R1 RANGE
010240,000835: # R2 RANGE RATE
010241,000836: # R3 THETA
010242,000837:
010243,000838: 43,2716 02076 V83PERF TC TESTXACT
010244,000839:
010245,000840: 43,2717 35067 CAF PRIO5
010246,000841: 43,2720 05155 TC FINDVAC
010247,000842: 43,2721 E7,1564 EBANK= TSTRT
010248,000843: 43,2721 03265 76067 2CADR V83CALL
010249,000844:
010250,000845: 43,2723 05225 TC ENDOFJOB
010251,000846:
010252,000847: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
010253,000848:
010254,000849: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
010255,000850: # DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
010256,000851:
010257,000852: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
010258,000853: # EXIT R63, OTHERWISE CONTINUE.
010259,000854:
010260,000855: # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
010261,000856: # ORIENTATION KNOWN TO LGC, CONTINUE.
010262,000857:
010263,000858: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
010264,000859: # BE POINTED AT CSM. INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
010265,000860: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
010266,000861: # AFTER KEYING IN PROCEED.
010267,000862:
010268,000863: # 4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
010269,000864:
010270,000865: # 5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
010271,000866:
010272,000867: # HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
010273,000868: # PREPARED FOR VECPOINT.
010274,000869:
010275,000870: # 6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
010276,000871: # BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
010277,000872:
010278,000873: # 7. RECYCLE - RETURN TO STEP 4.
010279,000874: # TERMINATE - EXIT R63.
010280,000875: # PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
010281,000876:
010282,000877:
010283,000878: 43,2724 02123 V89PERF TC CHKPOOH
010284,000879: 43,2725 02076 TC TESTXACT
010285,000880: 43,2726 35012 CAF PRIO10
010286,000881: 43,2727 05155 TC FINDVAC
010287,000882: 43,2730 E4,1614 EBANK= RONE
010288,000883: 43,2730 02000 54104 2CADR V89CALL
010289,000884: 43,2732 05225 TC ENDOFJOB
010290,000885:
010291,000886: # V90PERF VERB 90 DESCRIPTION
010292,000887: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
010293,000888: # 1. SET EXT VERB DISPLAY BUSY FLAG.
010294,000889: # 2. SCHEDULE R36 CALL WITH PRIORITY 10
010295,000890: # A. DISPLAY
010296,000891: # TIME OF EVENT - HOURS , MINUTES , SECONDS
010297,000892: # Y OUT-OF-PLANE POSITION - NAUTICAL MILES
010298,000893: # YDOT OUT-OF-PLANE VELOCITY - FEET/SECOND
010299,000894: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
010300,000895: # DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
010301,000896:
010302,000897: 43,2733 02076 V90PERF TC TESTXACT
010303,000898: 43,2734 35071 CAF PRIO7 # R36,V90
010304,000899: 43,2735 05155 TC FINDVAC
010305,000900: 43,2736 E4,1614 EBANK= RPASS36
010306,000901: 43,2736 02530 10104 2CADR R36
010307,000902: 43,2740 15225 TCF ENDOFJOB
010308,000903: # MINIMP VERB 76 DESCRIPTION
010309,000904: # MINIMUM IMPULSE MODE
010310,000905: # 1. SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
010311,000906:
010312,000907: 43,2741 00004 MINIMP INHINT
010313,000908: 43,2742 41102 CS DAPBOOLS
010314,000909: 43,2743 75010 MASK PULSES # PULSES = 1 INDICATES MIN IMP MODE
010315,000910: 43,2744 27102 ADS DAPBOOLS
010316,000911: 43,2745 12121 TCF GOPIN # RETURN VIA PINBRNCH
010317,000912:
010318,000913: # NOMINIMP VERB 77 DESCRIPTION
010319,000914: # RATE COMMAND MODE
010320,000915:
010321,000916: # 1. SET MINIMUM IMPULSE RHC MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
010322,000917: # 2. MOVE CDUX,CDUY,CDUZ INTO CDUXD,CDUYD,CDUZD.
010323,000918:
010324,000919: 43,2746 35065 NOMINIMP CAF EBANK6
010325,000920: 43,2747 54003 TS EBANK
010326,000921: 43,2750 00004 INHINT
010327,000922: 43,2751 45010 CS PULSES
010328,000923: 43,2752 71102 MASK DAPBOOLS
010329,000924: 43,2753 55102 TS DAPBOOLS # PULSES = 0 NOT IN MINIMUM UMPULSE MODE
010330,000925: 43,2754 04737 TC IBNKCALL
010331,000926: 43,2755 40232 CADR ZATTEROR
010332,000927: 43,2756 02121 TC GOPIN
010333,000928:
010334,000929: 43,2757 02076 R32 TC TESTXACT
010335,000930: 43,2760 35012 CAF PRIO10
010336,000931: 43,2761 05155 TC FINDVAC
010337,000932: 43,2762 E7,1424 EBANK= TIG
010338,000933: 43,2762 02161 26107 2CADR JOBR32
010339,000934: 43,2764 05225 TC ENDOFJOB
010340,000935:
010341,000936: # CREWMANU VERB 49 DESCRIPTION
010342,000937: # START AUTOMATIC ATTITUDE MANEUVER
010343,000938: # 1. REQUIRE PROGRAM 00 ACTIVE.
010344,000939: # 2. SET EXT VERB DISPLAY BUSY FLAG.
010345,000940: # 3. SCHEDULE R62DISP WITH PRIORITY 10.
010346,000941: # 4. RELEASE EXT VERB DISPLAY.
010347,000942:
010348,000943: # R62DISP
010349,000944: # 1. DISPLAY FLASHING V06,N22.
010350,000945: # RESPONSES
010351,000946: # A. TERMINATE
010352,000947: # 1. GO TO GOTOPOOH.
010353,000948: # B. PROCEED
010354,000949: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010355,000950: # 2. EXECUTE R60LEM (ATTITUDE MANEUVER).
010356,000951: # C. ENTER
010357,000952: # 1. REPEAT FLASHING V06,N22.
010358,000953:
010359,000954: 43,2765 02123 CREWMANU TC CHKPOOH # DEMAND POO
010360,000955:
010361,000956: 43,2766 02076 TC TESTXACT
010362,000957:
010363,000958: 43,2767 35012 CAF PRIO10
010364,000959: 43,2770 05155 TC FINDVAC
010365,000960: 43,2771 E6,1673 EBANK= BCDU
010366,000961: 43,2771 02024 46106 2CADR R62DISP
010367,000962: 43,2773 05225 TC ENDOFJOB
010368,000963:
010369,000964: # V60 VERB 60, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
010370,000965:
010371,000966: 43,2774 05575 DAPATTER TC DOWNFLAG
010372,000967: 43,2775 00013 ADRES NEEDLFLG
010373,000968: 43,2776 02121 TC GOPIN
010374,000969:
010375,000970: # V63 VERB 63, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
010376,000971:
010377,000972: 43,2777 05563 TOTATTER TC UPFLAG
010378,000973: 43,3000 00013 ADRES NEEDLFLG
010379,000974: 43,3001 02121 TC GOPIN
010380,000975:
010381,000976:
010382,000977: # TRMTRACK VERB 56 DESCRIPTION
010383,000978: # TERMINATE TRACKING (P20 AND P25).
010384,000979: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
010385,000980: # 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
010386,000981: # 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
010387,000982:
010388,000983: # V56TOVAC
010389,000984: # 1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
010390,000985: # 2. ZERO GROUP 2 TO HALT P20.
010391,000986: # 3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
010392,000987:
010393,000988: 43,3002 33050 TRMTRACK CA BITS9+7 # IS REND OR P25 FLAG ON
010394,000989: 43,3003 70074 MASK FLAGWRD0
010395,000990: 43,3004 00006 EXTEND
010396,000991: 43,3005 12121 BZF GOPIN # NO
010397,000992:
010398,000993: 43,3006 05575 TC DOWNFLAG
010399,000994: 43,3007 00010 ADRES RNDVZFLG
010400,000995:
010401,000996: 43,3010 05575 TC DOWNFLAG
010402,000997: 43,3011 00006 ADRES P25FLAG
010403,000998:
010404,000999: 43,3012 35022 CA TRACKBIT # IS TRACK FLAG ON?
010405,001000: 43,3013 70075 MASK FLAGWRD1
010406,001001: 43,3014 00006 EXTEND
010407,001002: 43,3015 12121 BZF GOPIN
010408,001003:
010409,001004: 43,3016 05575 TC DOWNFLAG
010410,001005: 43,3017 00027 ADRES UPDATFLG # UPDATE FLAG DOWN
010411,001006: 43,3020 05575 TC DOWNFLAG
010412,001007: 43,3021 00031 ADRES TRACKFLG # TRACK FLAG DOWN
010413,001008: 43,3022 05575 TC DOWNFLAG
010414,001009: 43,3023 00007 ADRES IMUSE
010415,001010:
010416,001011: 43,3024 35075 CAF PRIO15
010417,001012: 43,3025 05216 TC PRIOCHNG
010418,001013:
010419,001014: 43,3026 06014 TC INTPRET
010420,001015: 43,3027 77624 CALL
010421,001016: 43,3030 27362 INTSTALL # DONT INTERRUPT INTEGRATION
010422,001017: 43,3031 77776 EXIT
010423,001018:
010424,001019: 43,3032 05413 TC PHASCHNG
010425,001020:
010426,001021: 43,3033 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
010427,001022:
010428,001023: 43,3034 00004 INHINT
010429,001024: 43,3035 04737 TC IBNKCALL # ZERO THE COMMANDED RATES TO STOP
010430,001025: 43,3036 40244 CADR STOPRATE # MANEUVER
010431,001026:
010432,001027: 43,3037 04737 TC IBNKCALL
010433,001028: 43,3040 40204 CADR RESTORDB
010434,001029:
010435,001030: 43,3041 04737 TC IBNKCALL # CLEAR BITS 10 + 15 OF RADMODES.
010436,001031: 43,3042 51061 CADR CLRADMOD
010437,001032:
010438,001033: 43,3043 45011 CS BIT14 # DISABLE LOCKON
010439,001034: 43,3044 00006 EXTEND
010440,001035: 43,3045 03012 WAND CHAN12
010441,001036: 43,3046 04674 TC POSTJUMP
010442,001037: 43,3047 12570 CADR GOPROG2 # CAUSE RESTART.
010443,001038:
010444,001039: 43,3050 00500 BITS9+7 OCT 500
010445,001040:
010446,001041:
010447,001042: # DNEDUMP VERB 74 DESCRIPTION
010448,001043: # INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
010449,001044: # 1. SET EXT VERB DISPLAY BUSY FLAG.
010450,001045: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
010451,001046: # 3. RELEASE EXT VERB DISPLAY.
010452,001047:
010453,001048: 43,2000 SETLOC EXTVERBS
010454,001049: 43,2000 BANK
010455,001050:
010456,001051: 43,3051 COUNT* $$/EXTVB
010457,001052:
010458,001053: 43,3051 0400 EBANK= 400
010459,001054: 43,3051 02076 DNEDUMP TC TESTXACT
010460,001055: 43,3052 33055 CAF LDNDUMPI
010461,001056: 43,3053 54335 TS DNTMGOTO
010462,001057: 43,3054 05561 TC ENDEXT
010463,001058:
010464,001059: 43,3055 43,3051 V74 EQUALS DNEDUMP
010465,001060: 43,3055 03350 LDNDUMPI REMADR DNDUMPI
010466,001061:
010467,001062:
010468,001063: # LEMVEC VERB 80 DESCRIPTION
010469,001064: # UPDATE LEM STATE VECTOR
010470,001065: # RESET VEHUPFLG TO 0
010471,001066:
010472,001067: 43,3056 03070 LEMVEC TC CHECKR32
010473,001068: 43,3057 05575 TC DOWNFLAG
010474,001069: 43,3060 00026 ADRES VEHUPFLG # VB 80 - VEHUPFLG DOWN INDICATES LEM
010475,001070:
010476,001071: 43,3061 03065 TC NOUPDOWN
010477,001072: # CSMVEC VERB 81 DESCRIPTION
010478,001073: # UPDATE CSM STATE VECTOR
010479,001074: # SET VEHUPFLG TO 1
010480,001075:
010481,001076: 43,3062 03070 CSMVEC TC CHECKR32
010482,001077: 43,3063 05563 TC UPFLAG
010483,001078: 43,3064 00026 ADRES VEHUPFLG # VB 81 - VEHUPFLG UP INDICATES CSM
010484,001079:
010485,001080: 43,3065 05575 NOUPDOWN TC DOWNFLAG
010486,001081: 43,3066 00030 ADRES NOUPFLAG
010487,001082:
010488,001083: 43,3067 02121 TC GOPIN
010489,001084:
010490,001085: 43,3070 40104 CHECKR32 CS FLAGWRD8
010491,001086: 43,3071 75011 MASK R32FLBIT
010492,001087: 43,3072 00006 EXTEND
010493,001088: 43,3073 12120 BZF ALM/END
010494,001089: 43,3074 00002 TC Q
010495,001090:
010496,001091: # UPDATOFF VERB 95 DESCRIPTION
010497,001092: # INHIBIT STATE VECTOR UPDATES BY INCORP
010498,001093: # SET NOUPFLAG TO 1
010499,001094:
010500,001095: 43,3075 05563 UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
010501,001096: 43,3076 00030 ADRES NOUPFLAG
010502,001097:
010503,001098: 43,3077 02121 TC GOPIN
010504,001099:
010505,001100: # SYSTEST VERB 92 DESCRIPTION
010506,001101: # OPERATE IMU PERFORMANCE TEST.
010507,001102: # 1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
010508,001103: # 2. SET EXT VERB BUSY FLAG.
010509,001104: 43,3100 E5,1417 EBANK= QPLACE
010510,001105:
010511,001106: 43,3100 02123 SYSTEST TC CHKPOOH # DEMAND POO
010512,001107:
010513,001108: 43,3101 02076 TC TESTXACT
010514,001109:
010515,001110: 43,3102 37662 CAF PRIO22
010516,001111: 43,3103 05155 TC FINDVAC
010517,001112: 43,3104 E5,1417 EBANK= QPLACE
010518,001113: 43,3104 37,2000 SBANK= IMUSUPER
010519,001114: 43,3104 02000 76065 2CADR REDO
010520,001115:
010521,001116: 43,3106 05225 TC ENDOFJOB
010522,001117:
010523,001118: # VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
010524,001119:
010525,001120: 43,3107 00004 WMATRXNG INHINT
010526,001121: 43,3110 45026 CS RENDWBIT
010527,001122: 43,3111 70101 MASK FLAGWRD5
010528,001123: 43,3112 54101 TS FLAGWRD5
010529,001124:
010530,001125: 43,3113 02121 TC GOPIN
010531,001126:
010532,001127: 43,3114 43,3114 GOSHOSUM EQUALS SHOWSUM
010533,001128:
010534,001129: 43,3114 02123 SHOWSUM TC CHKPOOH # *
010535,001130: 43,3115 02076 TC TESTXACT # *
010536,001131: 43,3116 35071 CAF PRIO7 # ALLOW OTHER CHARINS.
010537,001132: 43,3117 05216 TC PRIOCHNG
010538,001133: 43,3120 35026 CAF S+1 # *
010539,001134: 43,3121 55376 TS SKEEP6 # * SHOWSUM OPTION
010540,001135: 43,3122 35030 CAF S+ZERO # *
010541,001136: 43,3123 55362 TS SMODE # * TURN OFF SELF-CHECK
010542,001137: 43,3124 33245 CA SELFADRS # *
010543,001138: 43,3125 55361 TS SELFRET # *
010544,001139: 43,3126 03522 TC STSHOSUM # * ENTER ROPECHK
010545,001140:
010546,001141: 43,3127 23372 SDISPLAY LXCH SKEEP2 # * BANK # FOR DISPLAY
010547,001142: 43,3130 23373 LXCH SKEEP3 # * BUGGER WORD FOR DISPLAY
010548,001143: 43,3131 33244 NOKILL CA ADRS1 # *
010549,001144: 43,3132 54156 TS MPAC +2 # *
010550,001145: 43,3133 33144 CA VNCON # * 0501
010551,001146: 43,3134 04655 TC BANKCALL # *
010552,001147: 43,3135 20226 CADR GOXDSPF # *
010553,001148: 43,3136 03141 TC +3 # *
010554,001149: 43,3137 03633 TC NXTBNK # *
010555,001150:
010556,001151: 43,3140 03131 TC NOKILL # *
010557,001152: 43,3141 33245 CA SELFADRS
010558,001153: 43,3142 55371 TS SKEEP1
010559,001154:
010560,001155: 43,3143 05561 TC ENDEXT # *
010561,001156:
010562,001157: 43,3144 01201 VNCON VN 501 # *
010563,001158:
010564,001159: 43,3145 31376 ENDSUMS CA SKEEP6 # *
010565,001160: 43,3146 00006 EXTEND # *
010566,001161: 43,3147 13336 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
010567,001162: 43,3150 03522 TC STSHOSUM # * START SHOWSUM AGAIN.
010568,001163:
010569,001164: # DAPDISP VERB 48 DESCRIPTION
010570,001165: # LOAD AUTO PILOT DATA
010571,001166: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010572,001167: # 2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
010573,001168: # 3. RELEASE EXT VERB DISPLAY SYSTEM.
010574,001169: 43,3151 02076 DAPDISP TC TESTXACT
010575,001170: 43,3152 35071 CAF PRIO7 # R03
010576,001171: 43,3153 05216 TC PRIOCHNG
010577,001172: 43,3154 04674 TC POSTJUMP
010578,001173: 43,3155 40000 CADR DAPDATA1
010579,001174:
|
|
Sundance 302 |
010581,001176: 34,2000 BANK 34
010582,001177: 20,2000 SETLOC LOADDAP
010583,001178: 20,2000 BANK
010584,001179:
010585,001180: 20,2000 COUNT* $$/R03
010586,001181:
010587,001182: 20,2000 30,2000 SBANK= LOWSUPER # FOR SUBSEQUENT LOW 2CADR'S.
010588,001183:
010589,001184: 20,2000 06716 DAPDATA1 TC UNK7766
010590,001185: 20,2001 32071 CAF BOOLSMSK # SET DISPLAY ACCORDING TO DAPBOOLS BITS.
010591,001186: 20,2002 71102 MASK DAPBOOLS # LM
010592,001187: 20,2003 55353 RELOAD TS DAPDATR1 # LM
010593,001188: 20,2004 32073 CAF V01N46 # LM
010594,001189: 20,2005 04655 TC BANKCALL
010595,001190: 20,2006 20245 CADR GOXDSPFR
010596,001191: 20,2007 15561 TCF ENDEXT # V34E TERMINATE
010597,001192: 20,2010 12020 TCF DPDAT1 # V33E PROCEED
010598,001193: 20,2011 12015 TCF MSKDATR1 # E NEW DATA CHECK AND REDISPLAY
010599,001194: 20,2012 36216 CAF REVCNT # BITS 2 & 3: BLANKS R2 & R3.
010600,001195: 20,2013 05553 TC BLANKET
010601,001196: 20,2014 15225 TCF ENDOFJOB
010602,001197: 20,2015 32071 MSKDATR1 CAF BOOLSMSK
010603,001198: 20,2016 71353 MASK DAPDATR1
010604,001199: 20,2017 12003 TCF RELOAD
010605,001200:
010606,001201: 20,2020 00004 DPDAT1 INHINT # INHINT FOR SETTING OF FLAG BITS AND MASS
010607,001202: 20,2021 31353 CA DAPDATR1 # ON BASIS OF DISPLAYED DAPDATR1.
010608,001203: 20,2022 75012 MASK CSMDOCKD
010609,001204: 20,2023 00006 EXTEND
010610,001205: 20,2024 12043 BZF ONEMASS
010611,001206:
010612,001207: 20,2025 35025 CAF BIT2
010613,001208: 20,2026 00006 EXTEND
010614,001209: 20,2027 02030 RAND CHAN30
010615,001210: 20,2030 00006 EXTEND
010616,001211: 20,2031 12042 BZF ONEMASS -1
010617,001212:
010618,001213: 20,2032 05646 TC ALARM
010619,001214: 20,2033 01706 OCT 1706
010620,001215: 20,2034 35056 CAF VB05N09
010621,001216: 20,2035 04655 TC BANKCALL
010622,001217: 20,2036 20226 CADR GOXDSPF
010623,001218: 20,2037 15561 TCF ENDEXT
010624,001219: 20,2040 12034 TCF -4
010625,001220: 20,2041 12000 TCF DAPDATA1
010626,001221:
010627,001222: 20,2042 31336 CAE CSMMASS
010628,001223: 20,2043 61335 ONEMASS AD LEMMASS
010629,001224: 20,2044 55243 TS MASS
010630,001225: 20,2045 42071 CS BOOLSMSK
010631,001226: 20,2046 71102 MASK DAPBOOLS
010632,001227: 20,2047 61353 AD DAPDATR1
010633,001228: 20,2050 55102 TS DAPBOOLS
010634,001229: 20,2051 75014 MASK ACC4OR2X # 2 OR 4 JET X-TRANSLATION
010635,001230: 20,2052 00006 EXTEND # (BIT ACC4OR2X = 1 FOR 4 JETS)
010636,001231: 20,2053 12060 BZF +5
010637,001232: 20,2054 45010 CS BIT15
010638,001233: 20,2055 70075 MASK FLAGWRD1 # CLEAR NJTSFLAG TO 0 FOR 4 JETS
010639,001234: 20,2056 54075 TS FLAGWRD1
010640,001235: 20,2057 12063 TCF +4
010641,001236: 20,2060 40075 CS FLAGWRD1 # SET NJTSFLAG TO 1 FOR 2 JETS
010642,001237: 20,2061 75010 MASK BIT15
010643,001238: 20,2062 26075 ADS FLAGWRD1
010644,001239: 20,2063 31102 CA DAPBOOLS # SELECT DESIRED KALCMANU AUTOMATIC
010645,001240: 20,2064 76221 MASK THREE # MANEUVER RATE
010646,001241: 20,2065 60000 DOUBLE # RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
010647,001242: 20,2066 55331 TS RATEINDX # ARE DP
010648,001243: 20,2067 00003 RELINT
010649,001244: 20,2070 02076 TC DAPDATA2
010650,001245:
010651,001246: 20,2071 13113 BOOLSMSK OCT 13113
010652,001247: 20,2072 01457 V0647 VN 0647
010653,001248: 20,2073 00256 V01N46 VN 0146
010654,001249: 20,2074 76466 MINLMD DEC -2850 B-16 # MIN. DESCENT STAGE MASS -- 2(16) KG.
010655,001250: 20,2075 76731 MINMINLM DEC -2200 B-16 # MIN ASCENT STAGE MASS -- 2(16) KG.
010656,001251: 20,2076 5014 MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LBS
010657,001252:
010658,001253: 20,2076 32072 DAPDATA2 CAF V0647
010659,001254: 20,2077 04655 TC BANKCALL
010660,001255: 20,2100 20245 CADR GOXDSPFR
010661,001256: 20,2101 12107 TCF ENDR03 # V34E TERMINATE. FIRST SET DB, DO 1/ACCS
010662,001257: 20,2102 12113 TCF DAPDAT2 # V33E PROCEED
010663,001258: 20,2103 12076 TCF DAPDATA2 # LOAD NEW DATA AND RECYCLE
010664,001259: 20,2104 35024 CAF BIT3 # BLANKS R3
010665,001260: 20,2105 05553 TC BLANKET # LM
010666,001261: 20,2106 15225 TCF ENDOFJOB
010667,001262: 20,2107 00004 ENDR03 INHINT
010668,001263: 20,2110 04737 TC IBNKCALL
010669,001264: 20,2111 40204 CADR RESTORDB
010670,001265: 20,2112 15561 TCF ENDEXT # DOES RELINT
010671,001266:
010672,001267: 20,2113 00006 DAPDAT2 EXTEND # DETERMINE STAGE
010673,001268: 20,2114 00030 READ CHAN30
010674,001269: 20,2115 40000 COM
010675,001270: 20,2116 75025 MASK BIT2
010676,001271: 20,2117 10000 CCS A
010677,001272: 20,2120 32074 CA MINLMD
010678,001273: 20,2121 62075 AD MINMINLM
010679,001274: 20,2122 61335 AD LEMMASS # LEMMASS MUST BE GREATER THAN EMPTY LEM
010680,001275: 20,2123 00006 EXTEND
010681,001276: 20,2124 62076 BZMF DAPDATA2 # ASK FOR NEW MASSES
010682,001277: 20,2125 31102 CAE DAPBOOLS
010683,001278: 20,2126 75012 MASK CSMDOCKD
010684,001279: 20,2127 00006 EXTEND
010685,001280: 20,2130 12136 BZF LEMALONE # SKIP TEST ON CSMMASS IF NOT DOCKED.
010686,001281: 20,2131 45014 CS MINCSM # TEST CSM MASS
010687,001282: 20,2132 61336 AD CSMMASS # CSMMASS MUST BE GREATER THAN EMPTY CSM
010688,001283:
010689,001284: 20,2133 00006 EXTEND
010690,001285: 20,2134 62076 BZMF DAPDATA2 # ASK FOR NEW MASSES
010691,001286: 20,2135 31336 CAE CSMMASS # DOCKED: MASS = CSMMASS + LEMMASS
010692,001287: 20,2136 61335 LEMALONE AD LEMMASS # LEM ALONE: MASS = LEMMASS
010693,001288: 20,2137 22007 ZL
010694,001289: 20,2140 53244 DXCH MASS
010695,001290: 20,2141 00004 INHINT
010696,001291: 20,2142 04737 TC IBNKCALL # SET DEADBANK AND COMPUTE MOMENTS OF
010697,001292: 20,2143 40204 CADR RESTORDB # INERTIA.
010698,001293: 20,2144 00003 RELINT # PROCEED TO NOUN 48 (OR END).
010699,001294:
010700,001295: 20,2145 35025 DAPDATA3 CAF BIT2
010701,001296: 20,2146 00006 EXTEND
010702,001297: 20,2147 02030 RAND CHAN30
010703,001298: 20,2150 10000 CCS A # END ROUTINE IF LEM HAS STAGED,
010704,001299: 20,2151 05561 TC ENDEXT
010705,001300: 20,2152 32202 CAF V06N48 # DISPLAY TRIM ANGLES AND REQUEST RESPONSE
010706,001301: 20,2153 04655 TC BANKCALL
010707,001302: 20,2154 20245 CADR GOXDSPFR
010708,001303: 20,2155 05561 TC ENDEXT
010709,001304: 20,2156 12163 TCF DPDAT3 # V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
010710,001305: 20,2157 12152 TCF -5 # LOAD NEW DATA AND RECYCLE
010711,001306: 20,2160 35024 CAF BIT3
010712,001307: 20,2161 05553 TC BLANKET # BLANK R3
010713,001308: 20,2162 15225 TCF ENDOFJOB
010714,001309: 20,2163 35026 DPDAT3 CAF BIT1 # GO TO TRIMGIMB VIA WAITLIST SO IT
010715,001310: 20,2164 00004 INHINT # CAN USE FIXDELAY AND VARDELAY
010716,001311: 20,2165 05252 TC WAITLIST
010717,001312: 20,2166 E6,1401 EBANK= ROLLTIME
010718,001313: 20,2166 03232 56066 2CADR TRIMGIMB
010719,001314: 20,2170 15225 TCF ENDOFJOB # DOES A RELINT
010720,001315: 20,2171 32203 TRIMDONE CAF V50N48
010721,001316: 20,2172 04655 TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03
010722,001317: 20,2173 20253 CADR GOMARK3R
010723,001318: 20,2174 05561 TC ENDEXT # V34E TERMINATE
010724,001319: 20,2175 05561 TC ENDEXT
010725,001320: 20,2176 05561 TC ENDEXT
010726,001321: 20,2177 34112 CAF OCT24 # BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
010727,001322: 20,2200 05553 TC BLANKET
010728,001323: 20,2201 15225 TCF ENDOFJOB
010729,001324:
010730,001325: 20,2202 01460 V06N48 VN 0648
010731,001326:
010732,001327: 20,2203 14460 V50N48 VN 5048
010733,001328:
|
|
Sundance 306 |
010735,001330:
010736,001331: # VERB 66. VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
010737,001332: # OTHER VEHICLE STATE VECTOR.
010738,001333:
010739,001334: # USE SUBROUTINE GENTRAN.
010740,001335:
010741,001336: 07,2622 BANK 7
010742,001337: 43,2000 SETLOC EXTVERBS
010743,001338: 43,2000 BANK
010744,001339:
010745,001340: 43,3156 COUNT* $$/EXTVB
010746,001341:
010747,001342: 43,3156 E3,1626 EBANK= RRECTHIS
010748,001343:
010749,001344: 43,3156 35057 ATTACHED CAF EBANK3
010750,001345: 43,3157 54003 TS EBANK
010751,001346: 43,3160 06014 TC INTPRET
010752,001347: 43,3161 77624 CALL
010753,001348: 43,3162 27362 INTSTALL
010754,001349: 43,3163 43014 BON CLRGO
010755,001350: 43,3164 04304 MOONTHIS
010756,001351: 43,3165 67170 +3
010757,001352: 43,3166 04223 MOONOTH
010758,001353: 43,3167 67172 +3
010759,001354: 43,3170 77614 SET
010760,001355: 43,3171 04063 MOONOTH
010761,001356: 43,3172 77776 EXIT
010762,001357: 43,3173 33207 CAF OCT51
010763,001358: 43,3174 05623 TC GENTRAN
010764,001359: 43,3175 01626 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
010765,001360: 43,3176 01554 ADRES RRECTOTH
010766,001361:
010767,001362: 43,3177 00003 RELINT
010768,001363:
010769,001364: 43,3200 33210 CAF TCPINAD
010770,001365: 43,3201 50120 INDEX FIXLOC
010771,001366: 43,3202 54052 TS QPRET
010772,001367: 43,3203 04674 TC POSTJUMP
010773,001368: 43,3204 27400 CADR INTWAKE # FREE INTEGRATION AND EXIT.
010774,001369:
010775,001370:
010776,001371: 43,3205 77634 TCPIN RTB
010777,001372: 43,3206 20746 PINBRNCH
010778,001373:
010779,001374: 43,3207 00051 OCT51 OCT 51
010780,001375: 43,3210 67205 TCPINAD CADR TCPIN
010781,001376:
010782,001377: # VERB 96 SET QUITFLAG TO STOP INTEGRATION.
010783,001378:
010784,001379: # GO TO V37 WITH ZERO TO CAUSE POO.
010785,001380: # STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
010786,001381: # THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
010787,001382:
010788,001383: 43,3211 05563 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
010789,001384: 43,3212 00221 ADRES QUITFLAG # AT NEXT TIMESTEP
010790,001385:
010791,001386: 43,3213 35030 CAF ZERO
010792,001387: 43,3214 04674 TC POSTJUMP
010793,001388: 43,3215 10007 CADR V37 # GO TO POO
010794,001389:
010795,001390:
010796,001391: # VERB 45: DISPLAY OF W MATRIX
010797,001392:
010798,001393: 43,3216 02076 V45 TC TESTXACT
010799,001394: 43,3217 35067 CAF PRIO5
010800,001395: 43,3220 05155 TC FINDVAC
010801,001396: 43,3221 E5,1417 EBANK= QPLACE
010802,001397: 43,3221 03077 76065 2CADR V45CALL
010803,001398:
010804,001399: 43,3223 05225 TC ENDOFJOB
010805,001400:
010806,001401: # VERB 65 DISABLE U,V JETS DURING DPS BURNS
010807,001402:
010808,001403: 43,3224 05563 SNUFFOUT TC UPFLAG
010809,001404: 43,3225 00115 ADRES SNUFFER
010810,001405: 43,3226 02121 TC GOPIN
010811,001406:
010812,001407: # VERB 75 ENABLE U,V JETS DURING DPS BURNS
010813,001408:
010814,001409: 43,3227 05575 OUTSNUFF TC DOWNFLAG
010815,001410: 43,3230 00115 ADRES SNUFFER
010816,001411: 43,3231 02121 TC GOPIN
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc