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