Source Code
|
These source-code files are part of a reconstructed copy of Luminary 178, the
final release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Zerlina 56, Luminary 210, and
Luminary 131, previously transcribed from digitized copies of those programs.
The code was created by combining the three, using Zerlina 56 as a base, since
it was based off of Luminary 183. The differences between the three were
carefully merged using the Luminary memos as a guide, with all changes made
after Luminary 178 being backed out. The reconstruction was verified by matching
memory-bank checksums to those listed in drawing 2021152N. Note that page numbers
in the reconstructed code match those for the baseline log section mentioned in
each file's changelog; the page numbers for a real Luminary 178 listing would
be different.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
011338,000002: ## Copyright: Public domain.
011339,000003: ## Filename: EXTENDED_VERBS.agc
011340,000004: ## Purpose: A section of Luminary revision 178.
011341,000005: ## It is part of the reconstructed source code for the final
011342,000006: ## release of the flight software for the Lunar Module's
011343,000007: ## (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
011344,000008: ## code has been recreated from copies of Zerlina 56, Luminary
011345,000009: ## 210, and Luminary 131, as well as many Luminary memos.
011346,000010: ## It has been adapted such that the resulting bugger words
011347,000011: ## exactly match those specified for Luminary 178 in NASA
011348,000012: ## drawing 2021152N, which gives relatively high confidence
011349,000013: ## that the reconstruction is correct.
011350,000014: ## Reference: pp. 268-305
011351,000015: ## Assembler: yaYUL
011352,000016: ## Contact: Ron Burkey <info@sandroid.org>.
011353,000017: ## Website: www.ibiblio.org/apollo/index.html
011354,000018: ## Mod history: 2019-08-14 MAS Created from Zerlina 56.
011355,000019: ## 2019-09-03 MAS Updated for Luminary 178. Replaced RR
011356,000020: ## bit clearing with calls to CLRADMOD,
011357,000021: ## restored a missing TCF GOPIN, restored
011358,000022: ## displays in LRON, restored original coding
011359,000023: ## for TRMTRAK1, and moved DSPRRLOS and V16N56
011360,000024: ## back to their original bank.
011361,000025: ## 2019-09-17 MAS Added in a reconstructed remode check for
011362,000026: ## verb 44.
011363,000027:
|
|
Page 268
|
011365,000029: 07,2661 BANK 7
011366,000030: 43,2000 SETLOC EXTVERBS
011367,000031: 43,2000 BANK
011368,000032:
011369,000033: 43,2000 E5,1737 EBANK= OGC
011370,000034:
011371,000035: 43,2000 COUNT* $$/EXTVB
011372,000036: # FAN-OUT
011373,000037:
011374,000038: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
011375,000039: 43,2001 02002 TC LST2FAN # FAN AS BEFORE.
011376,000040:
011377,000041: 43,2002 02126 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
011378,000042: 43,2003 02177 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
011379,000043: # 72 ONLY)
011380,000044: 43,2004 02373 TC IMUFINEK # VB42 FINE ALIGN IMU
011381,000045: 43,2005 02731 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
011382,000046: 43,2006 02301 TC RRDESEND # VB44 TERMINATE CONTINUOUS DESIGNATE
011383,000047: 43,2007 02116 TC ALM/END # VB45 SPARE
011384,000048: 43,2010 02116 TC ALM/END # VB46 SPARE
011385,000049: 43,2011 02432 TC V47TXACT # VB47 AGS INITIALIZATION
011386,000050: 43,2012 03164 TC DAPDISP # VB48 LOAD A/P DATA
011387,000051: 43,2013 13040 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER
011388,000052: 43,2014 02424 TC GOLOADLV # VB50 PLEASE PERFORM
011389,000053: 43,2015 02116 TC ALM/END # VB51 SPARE
011390,000054: 43,2016 02424 TC GOLOADLV # VB52 PLEASE MARK X - RETICLE.
011391,000055: 43,2017 02424 TC GOLOADLV # VB53 PLEASE MARK Y - RETICLE.
011392,000056: 43,2020 02424 TC GOLOADLV # VB54 PLEASE MARK X OR Y - RETICLE
011393,000057: 43,2021 02444 TC ALINTIME # VB55 ALIGN TIME
011394,000058: 43,2022 03047 TC TRMTRACK # VB56 TERMINATE TRACKING - P20 + P25
011395,000059: 43,2023 02324 TC LRON # VB57 PERMIT LANDING RADAR UPDATES
011396,000060: 43,2024 02365 TC LROFF # VB58 INHIBIT LANDING RADAR UPDATES
011397,000061: 43,2025 02147 TC LRPOS2K # VB59 COMMAND LR TO POSITION 2.
011398,000062: 43,2026 02174 TC RATEDISP # VB60 DISPLAY DAP ESTIMATED RATES
011399,000063: 43,2027 02164 TC DAPATTER # VB61 DISPLAY DAP ATTITUDE ERROR
011400,000064: 43,2030 02167 TC TOTATTER # VB62 DISPLAY TOTAL ATTITUDE ERROR
011401,000065: 43,2031 02457 TC R04 # VB63 SAMPLE RADAR ONCE PER SECOND
011402,000066: 43,2032 02723 TC VB64 # VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
011403,000067: 43,2033 03254 TC SNUFFOUT # VB65 DISABLE U,V JETS DURING DPS BURNS.
011404,000068: 43,2034 03171 TC ATTACHED # VB66 ATTACHED MOVE THIS TO OTHER STATE
011405,000069: 43,2035 03246 TC V67 # VB67 W MATRIX MONITOR
011406,000070: 43,2036 02370 TC TEROFF # VB68 TAKE OUT TERRAIN MODEL IN DESCENT
011407,000071: 43,2037 02037 VERB69 TC VERB69 # VB69 FORCE A HARDWARE RESTART
011408,000072: 43,2040 03757 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
011409,000073: 43,2041 03761 TC V71UPDAT # VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
011410,000074: 43,2042 03763 TC V72UPDAT # VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
011411,000075: 43,2043 03765 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
011412,000076: 43,2044 03070 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
011413,000077: # FOR ERASABLE DUMP.
011414,000078: 43,2045 03257 TC OUTSNUFF # VB75 ENABLE U,V JETS DURING DPS BURNS.
|
|
Page 269
|
011416,000080: 43,2046 03027 TC MINIMP # VB76 MINIMUM IMPULSE MODE
011417,000081: 43,2047 03032 TC NOMINIMP # VB77 RATE COMMAND MODE
011418,000082: 43,2050 02447 TC R77 # VB78 START LR SPURIOUS RETURN TEST
011419,000083: 43,2051 02657 TC R77END # VB79 TERMINATE LR SPURIOUS RETURN TEST
011420,000084: 43,2052 03074 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR
011421,000085: 43,2053 03077 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
011422,000086: 43,2054 02770 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
011423,000087: 43,2055 03000 TC V83PERF # VB83 REQUEST REND PARAM DISPLAY (R31)
011424,000088: 43,2056 02116 TC ALM/END # VB84 SPARE
011425,000089: 43,2057 03262 TC VERB85 # VB85 DISPLAY RR LOS AZ AND ELEV
011426,000090: 43,2060 02116 TC ALM/END # VB86 SPARE
011427,000091: 43,2061 02116 TC ALM/END # VB87 SPARE
011428,000092: 43,2062 02116 TC ALM/END # VB88 SPARE
011429,000093: 43,2063 03006 TC V89PERF # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
011430,000094: 43,2064 03015 TC V90PERF # VB90 OUT OF PLANE RENDEZVOUS DISPLAY
011431,000095: 43,2065 03127 TC GOSHOSUM # VB91 DISPLAY BANK SUM.
011432,000096: 43,2066 03107 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST.
011433,000097: 43,2067 03122 TC WMATRXNG # VB93 CLEAR RENDWFLG
011434,000098: 43,2070 02116 TC ALM/END # VB94 SPARE
011435,000099: 43,2071 03104 TC UPDATOFF # VB95 NO STATE VECTOR UPDATE ALLOWED
011436,000100: 43,2072 03241 TC VERB96 # VB96 INTERRUPT INTEGRATION AND GO TO POO
011437,000101: 43,2073 02424 TC GOLOADLV # VB97 PLEASE VERIFY ENGINE FAILURE
011438,000102: 43,2074 02116 TC ALM/END # VB98 SPARE
011439,000103: 43,2075 02424 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
011440,000104:
011441,000105: # END OF EXTENDED VERB FAN
011442,000106:
011443,000107:
011444,000108: 43,2076 11043 TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY
011445,000109: 43,2077 02116 TC ALM/END # YES, TURN ON OPERATOR LIGHT
011446,000110: 43,2100 30100 CA FLAGWRD4 # ARE PRIORITY DISPLAYS USING DSKY
011447,000111: 43,2101 72125 MASK OC24100
011448,000112: 43,2102 10000 CCS A
011449,000113: 43,2103 02116 TC ALM/END # YES
011450,000114: 43,2104 34362 CAF OCT25 # SET BITS 1, 3, AND 5
011451,000115: 43,2105 55043 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
011452,000116: # SYSTEM BUSY
011453,000117:
011454,000118: 43,2106 30002 CA Q
011455,000119: 43,2107 54155 TS MPAC +1
011456,000120:
011457,000121: 43,2110 44752 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
011458,000122: 43,2111 04154 TC NVSUB
011459,000123: 43,2112 02113 TC +1
011460,000124: 43,2113 10067 CCS NEWJOB
011461,000125: 43,2114 05122 TC CHANG1
011462,000126:
011463,000127: 43,2115 00155 TC MPAC +1
011464,000128:
011465,000129: 43,2116 5503 TERMEXTV EQUALS ENDEXT
|
|
Page 270
|
011467,000131: 43,2116 5503 ENDEXTVB EQUALS ENDEXT
011468,000132:
011469,000133: 43,2116 04364 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
011470,000134: 43,2117 04635 GOPIN TC POSTJUMP
011471,000135: 43,2120 21051 CADR PINBRNCH
011472,000136:
011473,000137: 43,2121 31010 CHKPOOH CA MODREG # CHECK FOR POO OR POO-.
011474,000138: 43,2122 00006 EXTEND
011475,000139: 43,2123 16745 BZF TCQ
011476,000140: 43,2124 02116 TC ALM/END
011477,000141:
011478,000142: 43,2125 24100 OC24100 OCT 24100
011479,000143:
|
|
Page 271
|
011481,000145: # VBZERO VERB 40 DESCRIPTION
011482,000146:
011483,000147: # 1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
011484,000148: # 2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
011485,000149: # FOR N72, CHECK IF EITHER RADAR IS IN USE.
011486,000150: # 3. EXECUTE THE CDU ZERO.
011487,000151: # 4. STALL UNTILL THE ZERO IS DONE.
011488,000152: # 5. DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
011489,000153: # 6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
011490,000154:
011491,000155: 43,2126 02202 VBZERO TC OP/INERT
011492,000156: 43,2127 02131 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
011493,000157: 43,2130 02140 TC RRZEROK # RETURN HERE IF NOUN = RCDU(72)
011494,000158: 43,2131 02440 IMUZEROK TC CKMODCAD
011495,000159: 43,2132 04616 TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO
011496,000160: 43,2133 16700 CADR IMUZERO
011497,000161:
011498,000162: 43,2134 04616 TC BANKCALL # STALL
011499,000163: 43,2135 17722 CADR IMUSTALL
011500,000164: 43,2136 02137 TC +1
011501,000165:
011502,000166: 43,2137 02117 TC GOPIN # IMUZERO
011503,000167:
011504,000168: 43,2140 02702 RRZEROK TC RDRUSECK
011505,000169: 43,2141 04616 TC BANKCALL
011506,000170: 43,2142 52334 CADR RRZERO
011507,000171:
011508,000172: 43,2143 04616 RWAITK TC BANKCALL
011509,000173: 43,2144 17720 CADR RADSTALL
011510,000174: 43,2145 12146 TCF +1
011511,000175: 43,2146 02117 TC GOPIN # RRZERO
011512,000176:
011513,000177: # LRPOS2K VERB 59 DESCRIPTION
011514,000178: # COMMAND LANDING RADAR TO POSITION 2
011515,000179: # 1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
011516,000180: # 2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
011517,000181: # THE PRESCRIBED TIME.
011518,000182: # 3. RE-ESTABLISH THE DISPLAYS.
011519,000183:
011520,000184: 43,2147 30103 LRPOS2K CA FLAGWRD7
011521,000185: 43,2150 74747 MASK AVEGFBIT
011522,000186: 43,2151 00006 EXTEND
011523,000187: 43,2152 12161 BZF LRPOS2K1 # AVERAGE G NOT ON
011524,000188: 43,2153 40107 CS FLGWRD11
011525,000189: 43,2154 74735 MASK LRBYBIT
011526,000190: 43,2155 00006 EXTEND
011527,000191: 43,2156 12116 BZF ALM/END # IF AVE G ON AND NOT R12- OPERATOR ERROR
011528,000192: 43,2157 04635 TC POSTJUMP
011529,000193: 43,2160 53577 CADR V59GP63
011530,000194: 43,2161 02702 LRPOS2K1 TC RDRUSECK
|
|
Page 272
|
011532,000196: 43,2162 04616 TC BANKCALL
011533,000197: 43,2163 53566 CADR LRP2COMM # COMMAND LR TO POS2
011534,000198: # V61 VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
011535,000199:
011536,000200: 43,2164 05527 DAPATTER TC DOWNFLAG
011537,000201: 43,2165 00013 ADRES NEEDLFLG
011538,000202: 43,2166 12171 TCF TOTATTER +2
011539,000203:
011540,000204: # V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
011541,000205:
011542,000206: 43,2167 05515 TOTATTER TC UPFLAG
011543,000207: 43,2170 00013 ADRES NEEDLFLG
011544,000208: 43,2171 05527 +2 TC DOWNFLAG
011545,000209: 43,2172 00000 ADRES NEED2FLG
011546,000210: 43,2173 02117 TC GOPIN
011547,000211:
011548,000212: # V60 VERB 60, DISPLAY DAP ESTIMATED RATES ON FDAI ATTITUDE ERROR NEEDLES.
011549,000213:
011550,000214: 43,2174 05515 RATEDISP TC UPFLAG
011551,000215: 43,2175 00000 ADRES NEED2FLG
011552,000216: 43,2176 02117 TC GOPIN
011553,000217:
011554,000218:
011555,000219:
|
|
Page 273
|
011557,000221: # VBCOARK VERB 41 DESCRIPTION
011558,000222: # COARSE ALIGN IMU OR RADAR
011559,000223: # 1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
011560,000224: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
011561,000225: # CASE 1 NOUN 20 (ICDU ANGLES)
011562,000226: # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
011563,000227: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
011564,000228: # RESPONSES
011565,000229: # A. TERMINATE
011566,000230: # 1. RELEASE EXT VERB DISPLAY SYSTEM
011567,000231: # B. PROCEED
011568,000232: # 1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
011569,000233: # C. ENTER
011570,000234: # 1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
011571,000235: # ICORK2
011572,000236: # 1. RE-DISPLAY VERB 41.
011573,000237: # 2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
011574,000238: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
011575,000239: # 4. RELEASE EXT VERB DISPLAY SYSTEM.
011576,000240: # CASE 2 NOUN 72 (RCDU ANGLES)
011577,000241: # EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
011578,000242: # 5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
011579,000243: # RESPONSES
011580,000244: # A. TERMINATE
011581,000245: # 1. RELEASE EXT VERB DISPLAY SYS.
011582,000246: # B. PROCEED OR ENTER
011583,000247: # 1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
011584,000248: # 2. RE-DISPLAY VERB 41.
011585,000249: # 3. SCHEDULE RRDESK2 WITH PRIORITY 20.
011586,000250: # 4. RELEASE EXT VERB DISPLAY SYS.
011587,000251:
011588,000252: # AURLOKON
011589,000253:
011590,000254: # 1. FLASH V04 N12 R1 = 00006 R2 = 00002
011591,000255: # RESPONSES
011592,000256: # A. TERMINATE
011593,000257: # B. PROCEED
011594,000258: # 1. RESET LOCK-ON SWITCH
011595,000259: # 2. SET CONTINUOUS DESIGNATE FLAG
011596,000260: # 3. DISABLE R25
011597,000261: # C. V22 E 1 E, R1 = 00001, PROCEED
011598,000262: # 1. SET LOCK-ON SWITCH
011599,000263: 43,2177 02202 VBCOARK TC OP/INERT
011600,000264: 43,2200 02213 TC IMUCOARK # RETURN HERE IF NOUN = ICDU(20)
011601,000265: 43,2201 02235 TC RRDESNBK # RETURN HERE IF NOUN = RCDU(72)
011602,000266: # RETURNS TO L+1 IF IMU OR L+2 IF RR.
011603,000267:
011604,000268: 43,2202 46007 OP/INERT CS OCT24
011605,000269: 43,2203 61001 AD NOUNREG
011606,000270: 43,2204 00006 EXTEND
|
|
Page 274
|
011608,000272: 43,2205 16745 BZF TCQ # IF = 20.
011609,000273:
011610,000274: 43,2206 62212 AD RRIMUDIF # -52
011611,000275: 43,2207 00006 EXTEND
011612,000276: 43,2210 16742 BZF Q+1
011613,000277:
011614,000278: 43,2211 02116 TC ALM/END # ILLEGAL.
011615,000279:
011616,000280: 43,2212 77713 RRIMUDIF DEC -52 B-14 # THE IMU
011617,000281: 43,2213 02440 IMUCOARK TC CKMODCAD
011618,000282: 43,2214 02076 TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
011619,000283: 43,2215 32233 CAF VNLODCDU # CALL FOR THETAD LOAD
011620,000284: 43,2216 04616 TC BANKCALL
011621,000285: 43,2217 20334 CADR GOXDSPF
011622,000286: 43,2220 05503 TC TERMEXTV
011623,000287: 43,2221 12222 TCF +1
011624,000288:
011625,000289: 43,2222 32234 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
011626,000290: 43,2223 04616 TC BANKCALL
011627,000291: 43,2224 20621 CADR EXDSPRET
011628,000292:
011629,000293: 43,2225 04616 TC BANKCALL # CALL MODE SWITCHING PROG
011630,000294: 43,2226 16764 CADR IMUCOARS
011631,000295:
011632,000296: 43,2227 04616 TC BANKCALL # STALL
011633,000297: 43,2230 17722 CADR IMUSTALL
011634,000298: 43,2231 05503 TC ENDEXTVB
011635,000299: 43,2232 05503 TC ENDEXTVB
011636,000300:
011637,000301: 43,2233 06226 VNLODCDU VN 2522
011638,000302: 43,2234 12200 IMUCOARV VN 4100
011639,000303:
|
|
Page 275
|
011641,000305: # DESIGNATE TO DESIRED GIMBAL ANGLES.
011642,000306:
011643,000307: 43,2235 02702 RRDESNBK TC RDRUSECK
011644,000308: 43,2236 02076 TC TESTXACT
011645,000309: 43,2237 06011 TC CLRADMOD
011646,000310: 43,2240 32257 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
011647,000311: 43,2241 04616 TC BANKCALL
011648,000312: 43,2242 20334 CADR GOXDSPF
011649,000313: 43,2243 05503 TC TERMEXTV
011650,000314: 43,2244 12240 TCF -4 # V33
011651,000315:
011652,000316: 43,2245 04616 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
011653,000317: 43,2246 46000 CADR AURLOKON
011654,000318:
011655,000319: 43,2247 32234 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
011656,000320: 43,2250 04616 TC BANKCALL
011657,000321: 43,2251 20621 CADR EXDSPRET
011658,000322:
011659,000323: 43,2252 34736 CAF PRIO20
011660,000324: 43,2253 05105 TC FINDVAC
011661,000325: 43,2254 E7,1456 EBANK= LOSCOUNT
011662,000326: 43,2254 02260 66107 2CADR RRDESK2
011663,000327:
011664,000328:
011665,000329: 43,2256 15503 TCF TERMEXTV # FREES DISPLAY.
011666,000330:
011667,000331: 43,2257 06111 VNLDRCDU VN 2473
011668,000332: 43,2260 43,2234 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
011669,000333:
011670,000334: 43,2260 04616 RRDESK2 TC BANKCALL
011671,000335: 43,2261 52466 CADR RRDESNB
011672,000336:
011673,000337: 43,2262 02263 TC +1 # DUMMY NEEDED SINCE DESRETRN DOES INCR
011674,000338: 43,2263 30167 CA PRIORITY
011675,000339: 43,2264 75004 MASK LOW9
011676,000340: 43,2265 10000 CCS A
011677,000341: 43,2266 50000 INDEX A
011678,000342: 43,2267 54000 TS A # RELEASE THIS JOBS VAC AREA.
011679,000343: 43,2270 40000 COM # INSURE ENDOFJOB DOES A NOVAC END (BZMF).
011680,000344: 43,2271 26167 ADS PRIORITY
011681,000345: 43,2272 04616 TC BANKCALL # WAIT FOR COMPLETION OF DESIGNATE
011682,000346: 43,2273 17720 CADR RADSTALL
011683,000347: 43,2274 02276 TC +2 # BADEND-NO LOCKON OR OUT OF LIMITS
011684,000348: 43,2275 05155 TC ENDOFJOB # GOODEND-LOCKON ACHIEVED
|
|
Page 276
|
011686,000350: 43,2276 05600 TC ALARM
011687,000351: 43,2277 00503 OCT 503 # TURN ON ALARM LIGHT -503 DESIGNATE FAIL
011688,000352: 43,2300 05155 TC ENDOFJOB
011689,000353:
011690,000354:
011691,000355: 43,2301 10110 RRDESEND CCS RADMODES # TERMINATE CONTINUOUS DESIGNATE ONLY
011692,000356: 43,2302 12117 TCF GOPIN
011693,000357: 43,2303 12117 TCF GOPIN
011694,000358: 43,2304 12305 TCF +1
011695,000359: 43,2305 40110 REMODCHK CS RADMODES # CHECK FOR REMODE
011696,000360: 43,2306 74736 MASK REMODBIT
011697,000361: 43,2307 10000 CCS A
011698,000362: 43,2310 12315 TCF NOREMODE # NO
011699,000363: 43,2311 34777 CAF 1SEC # YES- WAIT 1 SECOND AND CHECK AGAIN
011700,000364: 43,2312 04616 TC BANKCALL
011701,000365: 43,2313 01736 CADR DELAYJOB
011702,000366: 43,2314 02305 TC REMODCHK
011703,000367: 43,2315 06011 NOREMODE TC CLRADMOD
011704,000368: 43,2316 34777 CAF 1SEC
011705,000369: 43,2317 04616 TC BANKCALL
011706,000370: 43,2320 01736 CADR DELAYJOB
011707,000371: 43,2321 05527 TC DOWNFLAG # ENABLE R25 GIMBAL MONITOR
011708,000372: 43,2322 00126 ADRES NORRMON
011709,000373: 43,2323 12117 TCF GOPIN
011710,000374: 23,2000 BANK 23
011711,000375: 23,2000 SETLOC EXTVB1
011712,000376: 23,2000 BANK
011713,000377: 23,2000 COUNT* $$/EXTVB
011714,000378:
011715,000379: 23,2000 04645 AURLOKON TC MAKECADR
011716,000380: 23,2001 55112 TS DESRET
011717,000381: 23,2002 34752 CAF TWO
011718,000382: 23,2003 55051 TS OPTIONX +1
011719,000383: 23,2004 36245 CAF SIX # OPTION CODE FOR V04N12
011720,000384: 23,2005 55050 TS OPTIONX
011721,000385:
011722,000386: 23,2006 32037 -5 CAF V04N1272
011723,000387: 23,2007 04616 TC BANKCALL # R2 00001 LOCK-ON
011724,000388: 23,2010 20353 CADR GOMARKFR
011725,000389: 23,2011 15503 TCF ENDEXT # V34
011726,000390: 23,2012 12017 TCF +5 # V33
011727,000391: 23,2013 12006 TCF -5 # V32
011728,000392: 23,2014 34751 CAF BIT3
011729,000393: 23,2015 05475 TC BLANKET
011730,000394: 23,2016 05155 TC ENDOFJOB
011731,000395:
011732,000396: 23,2017 31051 +5 CA OPTIONX +1
011733,000397: 23,2020 74752 MASK BIT2
|
|
Page 277
|
011735,000399: 23,2021 10000 CCS A
011736,000400: 23,2022 12026 TCF NOLOKON
011737,000401: 23,2023 05515 TC UPFLAG
011738,000402: 23,2024 00012 ADRES LOKONSW
011739,000403: 23,2025 12034 TCF AURLKON1
011740,000404:
011741,000405: 23,2026 05527 NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMODES TO
011742,000406: 23,2027 00012 ADRES LOKONSW # INDICATE THAT CONTINUOUS DESIGNATION IS
011743,000407: 23,2030 05515 TC UPFLAG # WANTED (TO BE TERMINATED BY V44.)
011744,000408: 23,2031 00264 ADRES CDESFLAG
011745,000409: 23,2032 05515 TC UPFLAG # SET NO RR ANGLE MONITOR FLAG.
011746,000410: 23,2033 00126 ADRES NORRMON # (DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
011747,000411: 23,2034 00003 AURLKON1 RELINT
011748,000412: 23,2035 31112 CA DESRET
011749,000413: 23,2036 14640 TCF BANKJUMP
011750,000414:
011751,000415:
011752,000416: 23,2037 01014 V04N1272 VN 412
011753,000417: 23,2040 77757 -LOKONFG OCT -20
011754,000418:
011755,000419: 43,2324 BANK 43
011756,000420: 43,2000 SETLOC EXTVERBS
011757,000421: 43,2000 BANK
011758,000422: 43,2324 COUNT* $$/EXTVB
011759,000423:
011760,000424: 43,2324 02076 LRON TC TESTXACT
011761,000425:
011762,000426: 43,2325 32364 DSP68 CAF V06N68
011763,000427: 43,2326 04616 TC BANKCALL
011764,000428: 43,2327 20353 CADR GOMARKFR
011765,000429: 43,2330 02362 TC B1+5OFF
011766,000430: 43,2331 02353 TC SET57
011767,000431: 43,2332 05155 TC ENDOFJOB
011768,000432:
011769,000433: 43,2333 04616 WAIT68 TC BANKCALL
011770,000434: 43,2334 01735 CADR 2SECDELY
011771,000435:
011772,000436: 43,2335 34361 CAF OCT21
011773,000437: 43,2336 71043 MASK EXTVBACT
011774,000438: 43,2337 00006 EXTEND
011775,000439: 43,2340 15503 BZF ENDEXT
011776,000440:
011777,000441: 43,2341 74747 MASK BIT5
011778,000442: 43,2342 10000 CCS A
011779,000443: 43,2343 12325 TCF DSP68
011780,000444:
011781,000445: 43,2344 32364 DSP5068 CAF V50N68
011782,000446: 43,2345 04616 TC BANKCALL
011783,000447: 43,2346 20361 CADR GOMARK3R -1
011784,000448: 43,2347 12362 TCF B1+5OFF
011785,000449: 43,2350 12362 TCF B1+5OFF
011786,000450: 43,2351 12356 TCF RESET57
011787,000451:
011788,000452: 43,2352 12333 TCF WAIT68
011789,000453:
011790,000454: 43,2353 05515 SET57 TC UPFLAG
011791,000455: 43,2354 00254 ADRES LRINH
011792,000456:
011793,000457: 43,2355 15574 TCF B5OFF
011794,000458:
011795,000459: 43,2356 05527 RESET57 TC DOWNFLAG
011796,000460: 43,2357 00254 ADRES LRINH
011797,000461:
011798,000462: 43,2360 34362 CAF OCT25
011799,000463: 43,2361 05576 TC B5OFF +2
011800,000464:
011801,000465: 43,2362 44361 B1+5OFF CS OCT21
011802,000466: 43,2363 15575 TCF B5OFF +1
011803,000467:
011804,000468: 43,2364 4361 OCT21 EQUALS ND1
011805,000469:
011806,000470: 43,2364 01504 V06N68 VN 0668
011807,000471: 43,2365 43,2364 V50N68 = V06N68
011808,000472:
011809,000473:
011810,000474: 43,2365 05527 LROFF TC DOWNFLAG # INHIBIT INCORPORATION OF LR DATA V58
011811,000475: 43,2366 00254 ADRES LRINH
011812,000476: 43,2367 02117 TC GOPIN
011813,000477:
011814,000478: 43,2370 05515 TEROFF TC UPFLAG # BYPASS TERRAIN MODEL
011815,000479: 43,2371 00023 ADRES NOTERFLG
011816,000480: 43,2372 12117 TCF GOPIN
011817,000481:
011818,000482:
011819,000483: 43,2373 E5,1737 EBANK= OGC
011820,000484:
|
|
Page 278
|
011822,000486: # IMUFINEK VERB 42 DESCRIPTION
011823,000487: # FINE ALIGN IMU
011824,000488: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
011825,000489: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
011826,000490: # RESPONSES
011827,000491: # A. TERMINATE
011828,000492: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
011829,000493: # B. PROCEED OR ENTER
011830,000494: # 1. RE-DISPLAY VERB 42
011831,000495: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
011832,000496: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
011833,000497: # A. FAILED
011834,000498: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
011835,000499: # B. GOOD
011836,000500: # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
011837,000501: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
011838,000502:
011839,000503: 43,2373 02440 IMUFINEK TC CKMODCAD
011840,000504: 43,2374 02076 TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
011841,000505: 43,2375 32422 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
011842,000506: 43,2376 04616 TC BANKCALL
011843,000507: 43,2377 20334 CADR GOXDSPF
011844,000508: 43,2400 05503 TC TERMEXTV
011845,000509: 43,2401 02402 TC +1 # PROCEED WITHOUT A LOAD
011846,000510:
011847,000511: 43,2402 32423 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
011848,000512: 43,2403 04616 TC BANKCALL
011849,000513: 43,2404 20621 CADR EXDSPRET
011850,000514:
011851,000515: 43,2405 04616 TC BANKCALL # CALL MODE SWITCH PROG
011852,000516: 43,2406 17174 CADR IMUFINE
011853,000517:
011854,000518: 43,2407 04616 TC BANKCALL # HIBERNATION
011855,000519: 43,2410 17722 CADR IMUSTALL
011856,000520: 43,2411 05503 TC ENDEXTVB
011857,000521:
011858,000522: 43,2412 32421 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
011859,000523: 43,2413 04616 TC BANKCALL
011860,000524: 43,2414 17307 CADR IMUPULSE
011861,000525:
011862,000526: 43,2415 04616 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
011863,000527: 43,2416 17722 CADR IMUSTALL
011864,000528: 43,2417 05503 TC ENDEXTVB
011865,000529: 43,2420 05503 TC ENDEXTVB
011866,000530:
011867,000531: 43,2421 02737 LGYROBIN ECADR OGC
011868,000532: 43,2422 06335 VNLODGYR VN 2593
011869,000533: 43,2423 12400 IMUFINEV VN 4200
011870,000534: # GOLOADLV VERB 50 DESCRIPTION
011871,000535: # AND OTHER PLEASE
|
|
Page 279
|
011873,000537: # DO SOMETHING VERBS
011874,000538: # PLEASE PERFORM, MARK, CALIBRATE, ETC.
011875,000539: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
011876,000540: # SAME RECALL AS A COMPLETED LOAD.
011877,000541: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
011878,000542:
011879,000543: 43,2424 40,2000 SBANK= PINSUPER # FOR LOADLV1 AND SHOWSUM CADR'S.
011880,000544:
011881,000545: 43,2424 04433 GOLOADLV TC FLASHOFF
011882,000546:
011883,000547: 43,2425 34201 CAF PINSUPBT
011884,000548: 43,2426 00006 EXTEND
011885,000549: 43,2427 01007 WRITE SUPERBNK
011886,000550: 43,2430 04635 TC POSTJUMP
011887,000551: 43,2431 62001 CADR LOADLV1
011888,000552: # VERB 47 - AGS INITIALIZATION - R47.
011889,000553:
011890,000554: # SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
011891,000555:
011892,000556: 43,2432 02076 V47TXACT TC TESTXACT # NO OTHER EXTVERB.
011893,000557: 43,2433 34740 CAF PRIO4
011894,000558: 43,2434 05105 TC FINDVAC
011895,000559: 43,2435 E6,1771 EBANK= AGSK
011896,000560: 43,2435 02005 64066 2CADR AGSINIT
011897,000561:
011898,000562: 43,2437 05155 TC ENDOFJOB
011899,000563:
011900,000564: 43,2440 31301 CKMODCAD CA MODECADR
011901,000565: 43,2441 00006 EXTEND
011902,000566: 43,2442 16745 BZF TCQ
011903,000567: 43,2443 02116 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT
011904,000568:
|
|
Page 280
|
011906,000570: # ALINTIME VERB 55 DESCRIPTION
011907,000571: # REQUIRE POO OR POO-.
011908,000572: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011909,000573: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011910,000574: # 3. REQUIRE EXECUTION OF VERB 23.
011911,000575: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011912,000576: # 5. RELEASE EXT VERB DISPLAY SYSTEM
011913,000577:
011914,000578: 43,2444 02076 ALINTIME TC TESTXACT
011915,000579: 43,2445 04635 TC POSTJUMP # NO ROOM IN 43
011916,000580: 43,2446 64002 CADR R33
011917,000581:
011918,000582: 42,2002 BANK 42
011919,000583: 42,2000 SETLOC SBAND
011920,000584: 42,2000 BANK
011921,000585: 42,2002 COUNT* $$/R33
011922,000586:
011923,000587: 42,2002 35021 R33 CAF PRIO7
011924,000588: 42,2003 05146 TC PRIOCHNG
011925,000589: 42,2004 32034 CAF VNLODDT
011926,000590: 42,2005 04616 TC BANKCALL
011927,000591: 42,2006 20334 CADR GOXDSPF
011928,000592: 42,2007 05503 TC ENDEXT # TERMINATE
011929,000593: 42,2010 05503 TC ENDEXT # PROCEED
011930,000594: 42,2011 42033 CS DEC23 # DATA IN OR RESEQUENCE(UNLIKELY)
011931,000595: 42,2012 60154 AD MPAC # RECALL LEFT VERB IN MPAC
011932,000596: 42,2013 00006 EXTEND
011933,000597: 42,2014 12016 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
011934,000598: 42,2015 05503 TC ENDEXT # WITH V23 (DATA IN).
011935,000599:
011936,000600: 42,2016 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
011937,000601: 42,2017 34755 CAF ZERO
011938,000602: 42,2020 54156 TS MPAC +2 # NEEDED FOR TP AGREE
011939,000603: 42,2021 54001 TS L # ZERO T1 + 2 WHILE ALIGNING.
011940,000604: 42,2022 52025 DXCH TIME2
011941,000605: 42,2023 52155 DXCH MPAC
011942,000606: 42,2024 53051 DXCH DSPTEM2 +1 # INCREMENT
011943,000607: 42,2025 20155 DAS MPAC
011944,000608:
011945,000609: 42,2026 07262 TC TPAGREE # FORCE SIGN AGREEMENT.
011946,000610: 42,2027 52155 DXCH MPAC # NEW CLOCK.
011947,000611: 42,2030 20025 DAS TIME2
011948,000612: 42,2031 00003 RELINT
011949,000613: 42,2032 05503 UPDTMEND TC ENDEXT
011950,000614:
011951,000615: 42,2033 00027 DEC23 DEC 23 B-14 # V 23
011952,000616:
011953,000617: 42,2034 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
011954,000618:
|
|
Page 281
|
011956,000620: # SET UP FOR RADAR SAMPLING.
011957,000621:
011958,000622: 42,2035 BANK 42
011959,000623: 43,2000 SETLOC EXTVERBS
011960,000624: 43,2000 BANK
011961,000625:
011962,000626: 43,2447 E4,1600 EBANK= RSTACK
011963,000627:
011964,000628: 43,2447 COUNT* $$/R0477
011965,000629:
011966,000630: 43,2447 02702 R77 TC RDRUSECK # TRY TO AVOID THE 1210.
011967,000631: 43,2450 30077 CA FLAGWRD3 # IS R04 RUNNING?
011968,000632: 43,2451 74743 MASK R04FLBIT
011969,000633: 43,2452 10000 CCS A
011970,000634: 43,2453 02116 TC ALM/END # YES.
011971,000635: 43,2454 05515 TC UPFLAG
011972,000636: 43,2455 00117 ADRES R77FLAG
011973,000637: 43,2456 12463 TCF R04Z
011974,000638:
011975,000639: 43,2457 02702 R04 TC RDRUSECK # TRY TO AVOID THE 1210.
011976,000640: 43,2460 02076 TC TESTXACT
011977,000641: 43,2461 05515 TC UPFLAG
011978,000642: 43,2462 00063 ADRES R04FLAG # SET R04FLAG FOR ALARMS
011979,000643:
011980,000644: 43,2463 34741 R04Z CAF EBANK4
011981,000645: 43,2464 54003 TS EBANK
011982,000646: 43,2465 32700 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
011983,000647: 43,2466 55777 TS RSAMPDT
011984,000648: 43,2467 34755 CAF ZERO
011985,000649: 43,2470 55776 TS RTSTLOC
011986,000650: 43,2471 55575 TS RFAILCNT # ZERO BAD SAMPLE COUNTER
011987,000651:
011988,000652: 43,2472 00004 INHINT
011989,000653: 43,2473 42701 CS LRPOSCAL # INITIALIZE
011990,000654: 43,2474 70110 MASK RADMODES # BIT9 LR RANGE LOW SCALE =0
011991,000655: 43,2475 54110 TS RADMODES # BIT6 LR POS 1 =0
011992,000656: 43,2476 32701 CAF LRPOSCAL # BIT3 RR RANGE LOW SCALE =0
011993,000657: 43,2477 00006 EXTEND
011994,000658: 43,2500 02033 RAND CHAN33
011995,000659: 43,2501 26110 ADS RADMODES
011996,000660: 43,2502 00003 RELINT
011997,000661:
011998,000662: 43,2503 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
011999,000663: 43,2504 74743 MASK R04FLBIT
012000,000664: 43,2505 10000 CCS A
012001,000665: 43,2506 12635 TCF R04K
012002,000666:
012003,000667: 43,2507 34753 CAF ONE # INDICATES RENDEZVOUS DESIRED
012004,000668: 43,2510 55051 TS OPTIONX +1
012005,000669: 43,2511 34751 R04A CAF BIT3 # OPTION CODE FOR V04N12
012006,000670:
|
|
Page 282
|
012008,000672: 43,2512 55050 TS OPTIONX
012009,000673: 43,2513 32675 CAF V04N12X
012010,000674: 43,2514 04616 TC BANKCALL # R2 00001 RENDEZVOUS RADAR
012011,000675: 43,2515 20353 CADR GOMARKFR # 00002 LANDING RADAR
012012,000676: 43,2516 12643 TCF R04END # V34
012013,000677: 43,2517 12524 TCF +5 # V33
012014,000678: 43,2520 12513 TCF R04A +2 # R2
012015,000679: 43,2521 34751 CAF BIT3
012016,000680: 43,2522 05475 TC BLANKET
012017,000681: 43,2523 05155 TC ENDOFJOB
012018,000682:
012019,000683: 43,2524 31051 CA OPTIONX +1 # SAVE DESIRED OPTION RR =1 LR =2
012020,000684: 43,2525 55773 TS RTSTDEX
012021,000685:
012022,000686: 43,2526 36245 R04X CAF SIX # RR OR LR DESIRED
012023,000687: 43,2527 71773 MASK RTSTDEX
012024,000688: 43,2530 10000 CCS A
012025,000689: 43,2531 12637 TCF R04L # LANDING RADAR
012026,000690: 43,2532 55775 TS RTSTBASE # FOR RR BASE = 0, MAX = 1
012027,000691:
012028,000692: 43,2533 34752 R04B CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
012029,000693: 43,2534 00006 EXTEND
012030,000694: 43,2535 02033 RAND CHAN33
012031,000695: 43,2536 00006 EXTEND
012032,000696: 43,2537 12550 BZF R04C # YES
012033,000697:
012034,000698: 43,2540 32677 CAF 201R04 # REQUEST SELECTION OF RR AUTO MODE
012035,000699: 43,2541 55044 TS DSPTEM1
012036,000700: 43,2542 32676 CAF V50N25X
012037,000701: 43,2543 04616 TC BANKCALL
012038,000702: 43,2544 20345 CADR GOMARK4
012039,000703: 43,2545 12643 TCF R04END # V34
012040,000704: 43,2546 12533 TCF R04B # V33
012041,000705: 43,2547 12540 TCF -7 # E
012042,000706:
012043,000707: 43,2550 34736 R04C CAF BIT14 # ENABLE RR AUTO TRACKER
012044,000708: 43,2551 00006 EXTEND
012045,000709: 43,2552 05012 WOR CHAN12
012046,000710:
012047,000711: 43,2553 34752 CAF TWO
012048,000712: 43,2554 55774 TS RTSTMAX # FOR SEQUENTIAL STORAGE
012049,000713:
012050,000714: 43,2555 05214 TC WAITLIST
012051,000715: 43,2556 E4,1600 EBANK= RSTACK
012052,000716: 43,2556 02050 32104 2CADR RADSAMP
012053,000717:
012054,000718: 43,2560 00003 RELINT
012055,000719:
012056,000720: 43,2561 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
012057,000721: 43,2562 74743 MASK R04FLBIT
|
|
Page 283
|
012059,000723: 43,2563 10000 CCS A
012060,000724: 43,2564 12117 TCF GOPIN # R77
012061,000725:
012062,000726: 43,2565 36245 CAF SIX # RR OR LR
012063,000727: 43,2566 71773 MASK RTSTDEX
012064,000728: 43,2567 10000 CCS A
012065,000729: 43,2570 12605 TCF R04LR # LR
012066,000730:
012067,000731: 43,2571 32671 R04RR CAF V16N72 # DISPLAY RR CDU ANGLES (1/SEC)
012068,000732: 43,2572 04616 TC BANKCALL # R1 + XXX.XX DEG TRUNNION
012069,000733: 43,2573 20334 CADR GOMARKF # R2 + XXX.XX DEG SHAFT
012070,000734: 43,2574 12643 TCF R04END # V34 R3 BLANK
012071,000735: 43,2575 12577 TCF +2 # V33
012072,000736: 43,2576 12571 TCF R04RR # V32
012073,000737:
012074,000738: 43,2577 32672 CAF V16N78 # DISPLAY RR RANGE AND RANGE RATE (1/SEC)
012075,000739: 43,2600 04616 TC BANKCALL # R1 +- XXX.XX NM RANGE
012076,000740: 43,2601 20334 CADR GOMARKF # R2 +- XXXXX. FPS RANGE RATE
012077,000741: 43,2602 12643 TCF R04END # V34 R3 BLANK
012078,000742: 43,2603 12621 TCF R04Y # V33
012079,000743: 43,2604 12571 TCF R04RR # V32
012080,000744:
012081,000745: 43,2605 32673 R04LR CAF V16N66 # DISPLAY LR RANGE AND POSITION (1/SEC)
012082,000746: 43,2606 04616 TC BANKCALL # R1 +- XXXXX. FT LR RANGE
012083,000747: 43,2607 20334 CADR GOMARKF # R2 + 0000X. POS. NO.
012084,000748: 43,2610 12643 TCF R04END # V34 R3 BLANK
012085,000749: 43,2611 12613 TCF +2 # V33
012086,000750: 43,2612 12605 TCF R04LR # V32
012087,000751:
012088,000752: 43,2613 32674 CAF V16N67 # DISPLAY LR VELX, VELY, VELZ (1/SEC)
012089,000753: 43,2614 04616 TC BANKCALL # R1 +- XXXXX. FPS LR V(X)
012090,000754: 43,2615 20334 CADR GOMARKF # R2 +- XXXXX. FPS LR V(Y)
012091,000755: 43,2616 12643 TCF R04END # V34 R3 +- XXXXX. FPS LR V(Z)
012092,000756: 43,2617 12621 TCF R04Y # V33
012093,000757: 43,2620 12605 TCF R04LR # V32
012094,000758:
012095,000759: 43,2621 34755 R04Y CAF ZERO # TO TERMINATE SAMPLING
012096,000760: 43,2622 55777 TS RSAMPDT
012097,000761: 43,2623 04616 TC BANKCALL
012098,000762: 43,2624 01735 CADR 2SECDELY # WAIT FOR LAST RADARUPT
012099,000763: 43,2625 32700 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
012100,000764: 43,2626 55777 TS RSAMPDT
012101,000765: 43,2627 34755 CAF ZERO # FOR STORING RESULTS
012102,000766: 43,2630 55776 TS RTSTLOC
012103,000767: 43,2631 11775 CCS RTSTBASE # CHECK WHICH RADAR HAD BEEN SAMPLED
012104,000768: 43,2632 44753 CS ONE # WAS LR
012105,000769: 43,2633 64752 AD TWO # WAS RR
012106,000770: 43,2634 12525 TCF R04X -1
012107,000771:
012108,000772: 43,2635 34766 R04K CAF 250MS+1 # SAMPLE 4 LR COMPONENTS PER SECOND.
|
|
Page 284
|
012110,000774: 43,2636 55777 TS RSAMPDT
012111,000775:
012112,000776: 43,2637 34752 R04L CAF TWO
012113,000777: 43,2640 55775 TS RTSTBASE # FOR LR BASE = 2, MAX = 3
012114,000778: 43,2641 36245 CAF SIX
012115,000779: 43,2642 12554 TCF R04C +4
012116,000780: 43,2643 34755 R04END CAF ZERO # ZERO RSAMPDT
012117,000781: 43,2644 55777 TS RSAMPDT # TO TERMINATE SAMPLING
012118,000782: 43,2645 34744 CAF BIT8 # WAIT 1.28 SECONDS FOR POSSIBLE
012119,000783: 43,2646 04616 TC BANKCALL # PENDING RUPT.
012120,000784: 43,2647 01736 CADR DELAYJOB
012121,000785:
012122,000786: 43,2650 00004 INHINT
012123,000787: 43,2651 44736 CS BIT14 # DISABLE RR AUTO TRACKER
012124,000788: 43,2652 00006 EXTEND
012125,000789: 43,2653 03012 WAND CHAN12
012126,000790:
012127,000791: 43,2654 05527 TC DOWNFLAG
012128,000792: 43,2655 00063 ADRES R04FLAG # SIGNAL END OF R04.
012129,000793:
012130,000794: 43,2656 05503 TC ENDEXT
012131,000795:
012132,000796: 43,2657 34741 R77END CAF EBANK4 # TO TERMINATE SAMPLING
012133,000797: 43,2660 54003 TS EBANK
012134,000798: 43,2661 34755 CAF ZERO
012135,000799: 43,2662 55777 TS RSAMPDT
012136,000800: 43,2663 34746 CAF BIT6 # WAIT 320 MS FOR POSSIBLE
012137,000801: 43,2664 04616 TC BANKCALL # PENDING RUPT.
012138,000802: 43,2665 01736 CADR DELAYJOB
012139,000803:
012140,000804: 43,2666 05527 TC DOWNFLAG
012141,000805: 43,2667 00117 ADRES R77FLAG
012142,000806: 43,2670 12117 TCF GOPIN
012143,000807:
012144,000808: 43,2671 04110 V16N72 VN 1672
012145,000809: 43,2672 04116 V16N78 VN 1678
012146,000810: 43,2673 04102 V16N66 VN 1666
012147,000811: 43,2674 04103 V16N67 VN 1667
012148,000812: 43,2675 01014 V04N12X VN 412
012149,000813: 43,2676 14431 V50N25X VN 5025
012150,000814: 43,2677 00201 201R04 OCT 00201
012151,000815: 43,2700 00145 1SEC+1 DEC 101 B-14
012152,000816: 43,2701 4766 250MS+1 EQUALS CALLCODE
012153,000817: 43,2701 00444 LRPOSCAL OCT 444
012154,000818:
|
|
Page 285
|
012156,000820: 43,2702 30101 RDRUSECK CA FLAGWRD5 # IS R77 RUNNING?
012157,000821: 43,2703 74741 MASK R77FLBIT
012158,000822: 43,2704 10000 CCS A
012159,000823: 43,2705 02116 TC ALM/END # YES.
012160,000824: 43,2706 40103 CS FLAGWRD7 # IS SERVICER RUNNING AND HENCE POSSIBLY
012161,000825: 43,2707 74746 MASK V37FLBIT # R12 USING THE LR?
012162,000826: 43,2710 10000 CCS A
012163,000827: 43,2711 12716 TCF CHECKRR # NO
012164,000828: 43,2712 30107 CA FLGWRD11 # YES, IS R12 ON?
012165,000829: 43,2713 74735 MASK LRBYBIT # BIT 15
012166,000830: 43,2714 00006 EXTEND
012167,000831: 43,2715 12116 BZF ALM/END # YES
012168,000832: 43,2716 40075 CHECKRR CS FLAGWRD1 # IS THE TRACK FLAG SET AND HENCE POSSIBLY
012169,000833: 43,2717 74747 MASK TRACKBIT # P20 USING THE RR?
012170,000834: 43,2720 10000 CCS A
012171,000835: 43,2721 00002 TC Q # NOT ALLOWED DURING P20
012172,000836: 43,2722 02116 TC ALM/END # P22 OR P25, (R65)
012173,000837: 43,2723 COUNT* $$/EXTVB
012174,000838:
012175,000839: 43,2723 02076 VB64 TC TESTXACT # IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
012176,000840: 43,2724 34740 CAF PRIO4
012177,000841: 43,2725 05105 TC FINDVAC
012178,000842: 43,2726 E4,1600 EBANK= ALPHASB
012179,000843: 43,2726 03612 64104 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES.
012180,000844:
012181,000845: 43,2730 05155 TC ENDOFJOB
012182,000846:
|
|
Page 286
|
012184,000848: # IMUATTCK VERB 43 DESCRIPTION
012185,000849: # LOAD IMU ATTITUDE ERROR METERS
012186,000850: # 1. REQUIRE POO OR FRESH START.
012187,000851: # 2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
012188,000852: # 3. REQUIRE THAT NEEDLES BE OFF.
012189,000853: # 4. REQUEST LOAD OF N22 (VAUES TO BE DISPLAYED).
012190,000854: # 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
012191,000855:
012192,000856: 43,2731 02121 IMUATTCK TC CHKPOOH # VB 76 - LOAD IMU ATT. ERROR METERS
012193,000857:
012194,000858: 43,2732 34763 CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU
012195,000859: 43,2733 00006 EXTEND # CDUS BITS ARE ON
012196,000860: 43,2734 02012 RAND CHAN12
012197,000861: 43,2735 10000 CCS A
012198,000862: 43,2736 12116 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
012199,000863:
012200,000864: 43,2737 34355 CAF BIT13-14 # BOTH BITS 13 AND 14 MUST BE 1
012201,000865: 43,2740 00006 EXTEND # INDICATING THE MODE SELECTED IS OFF.
012202,000866: 43,2741 06031 RXOR CHAN31
012203,000867: 43,2742 74355 MASK BIT13-14
012204,000868: 43,2743 00006 EXTEND
012205,000869: 43,2744 12746 BZF +2 # NEEDLES IS OFF.
012206,000870: 43,2745 12116 TCF ALM/END # EXIT. NEEDLES IS ON.
012207,000871:
012208,000872: 43,2746 02076 TC TESTXACT
012209,000873:
012210,000874: 43,2747 32233 CAF VNLODCDU
012211,000875: 43,2750 04616 TC BANKCALL
012212,000876: 43,2751 20334 CADR GOXDSPF
012213,000877: 43,2752 05503 TC ENDEXT # V34
012214,000878: 43,2753 02754 TC +1
012215,000879: 43,2754 32767 CAF V43K # REDISPLAY OUR VERB.
012216,000880: 43,2755 04616 TC BANKCALL
012217,000881: 43,2756 20621 CADR EXDSPRET
012218,000882: 43,2757 34746 CAF BIT6
012219,000883: 43,2760 00006 EXTEND
012220,000884: 43,2761 05012 WOR CHAN12 # ENABLE ERROR COUNTERS.
012221,000885: 43,2762 34752 CAF TWO
012222,000886: 43,2763 05214 TC WAITLIST # PUT OUT COMMANDS IN .32 SECONDS.
012223,000887: 43,2764 0321 EBANK= THETAD
012224,000888: 43,2764 02035 64100 2CADR ATTCK2
012225,000889:
012226,000890: 43,2766 15503 TCF ENDEXT
012227,000891:
012228,000892: 42,2035 BANK 42
012229,000893: 42,2000 SETLOC PINBALL3 # SOMETHING IN B42.
012230,000894: 42,2000 BANK
012231,000895:
012232,000896: 42,2035 COUNT* $$/EXTVB
|
|
Page 287
|
012234,000898: 42,2035 34752 ATTCK2 CAF TWO # PUT OUT COMMANDS.
012235,000899: 42,2036 54002 +1 TS Q # CDU WILL LIMIT EXCESS DATA.
012236,000900: 42,2037 50000 INDEX A
012237,000901: 42,2040 30321 CA THETAD
012238,000902: 42,2041 00006 EXTEND
012239,000903: 42,2042 72053 MP ATTSCALE
012240,000904: 42,2043 50002 INDEX Q
012241,000905: 42,2044 56050 XCH CDUXCMD
012242,000906: 42,2045 10002 CCS Q
012243,000907: 42,2046 12036 TCF ATTCK2 +1
012244,000908:
012245,000909: 42,2047 37743 CAF 13,14,15
012246,000910: 42,2050 00006 EXTEND
012247,000911: 42,2051 05014 WOR CHAN14
012248,000912: 42,2052 15272 TCF TASKOVER # LEAVE ERROR COUNTERS ENABLED.
012249,000913:
012250,000914: 42,2053 03146 ATTSCALE DEC 0.1
012251,000915:
012252,000916: 07,2661 BANK 7
012253,000917: 43,2000 SETLOC EXTVERBS
012254,000918: 43,2000 BANK
012255,000919:
012256,000920: 43,2767 COUNT* $$/EXTVB
012257,000921:
012258,000922: 43,2767 12600 V43K VN 4300
012259,000923: # V82PERF VERB 82 DESCRIPTION
012260,000924: # REQUEST ORBIT PARAMETERS DISPLAY (R30)
012261,000925: # 1. IF AVERAGE G IS OFF:
012262,000926: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
012263,000927: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
012264,000928: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
012265,000929: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
012266,000930: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
012267,000931: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
012268,000932: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
012269,000933: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
012270,000934: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
012271,000935: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
012272,000936: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
012273,000937: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
012274,000938: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
012275,000939: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
012276,000940:
012277,000941: # 2. IF AVERAGE G IS ON:
012278,000942: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
012279,000943: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
012280,000944: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
012281,000945: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
012282,000946: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
012283,000947: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
012284,000948:
|
|
Page 288
|
012286,000950: 43,2770 02076 V82PERF TC TESTXACT
012287,000951:
012288,000952: 43,2771 35021 CAF PRIO7 # LESS THAN LAMBERT. R30,V82
012289,000953: 43,2772 05146 TC PRIOCHNG
012290,000954: 43,2773 00006 EXTEND
012291,000955: 43,2774 32777 DCA V82CON
012292,000956: 43,2775 05176 TC SUPDXCHZ # V82CALL IN DIFF SUPERBANK FROM V82PERF
012293,000957:
012294,000958: 43,2776 E4,1716 EBANK= HAPO
012295,000959: 43,2776 03242 44104 V82CON 2CADR V82CALL
012296,000960:
012297,000961: # VB83PERF VERB 83 DESCRIPTION
012298,000962: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
012299,000963: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012300,000964: # 2. SCHEDULE R31CALL WITH PRIORITY 5.
012301,000965: # A. DISPLAY
012302,000966: # R1 RANGE
012303,000967: # R2 RANGE RATE
012304,000968: # R3 THETA
012305,000969:
012306,000970: 43,3000 02076 V83PERF TC TESTXACT
012307,000971:
012308,000972: 43,3001 34752 CAF BIT2
012309,000973: 43,3002 05214 TC WAITLIST
012310,000974: 43,3003 E7,1611 EBANK= TSTRT
012311,000975: 43,3003 03746 60107 2CADR R31CALL
012312,000976:
012313,000977: 43,3005 05155 TC ENDOFJOB
012314,000978:
012315,000979: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
012316,000980:
012317,000981: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
012318,000982: # DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
012319,000983:
012320,000984: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
012321,000985: # EXIT R63, OTHERWISE CONTINUE.
012322,000986:
012323,000987: # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
012324,000988: # ORIENTATION KNOWN TO LGC, CONTINUE.
012325,000989:
012326,000990: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
012327,000991: # BE POINTED AT CSM. INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
012328,000992: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
012329,000993: # AFTER KEYING IN PROCEED.
012330,000994:
012331,000995: # 4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
012332,000996:
012333,000997: # 5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
|
|
Page 289
|
012335,000999: # HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
012336,001000: # PREPARED FOR VECPOINT.
012337,001001:
012338,001002: # 6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
012339,001003: # BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
012340,001004:
012341,001005: # 7. RECYCLE - RETURN TO STEP 4.
012342,001006: # TERMINATE - EXIT R63.
012343,001007: # PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
012344,001008:
012345,001009:
012346,001010: 43,3006 02121 V89PERF TC CHKPOOH
012347,001011: 43,3007 02076 TC TESTXACT
012348,001012: 43,3010 34737 CAF PRIO10
012349,001013: 43,3011 05105 TC FINDVAC
012350,001014: 43,3012 E4,1606 EBANK= RONE
012351,001015: 43,3012 02024 54104 2CADR V89CALL
012352,001016:
012353,001017: 43,3014 05155 TC ENDOFJOB
012354,001018:
012355,001019: # V90PERF VERB 90 DESCRIPTION
012356,001020: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
012357,001021: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012358,001022: # 2. SCHEDULE R36 CALL WITH PRIORITY 10
012359,001023: # A. DISPLAY
012360,001024: # TIME OF EVENT - HOURS , MINUTES , SECONDS
012361,001025: # Y OUT-OF-PLANE POSITION - NAUTICAL MILES
012362,001026: # YDOT OUT-OF-PLANE VELOCITY - FEET/SECOND
012363,001027: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
012364,001028: # DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
012365,001029:
012366,001030: 43,3015 40103 V90PERF CS FLAGWRD7
012367,001031: 43,3016 74746 MASK V37FLBIT
012368,001032: 43,3017 00006 EXTEND
012369,001033: 43,3020 12116 BZF ALM/END # AVERAGE G ON: ILL EAGLE
012370,001034: 43,3021 02076 TC TESTXACT
012371,001035: 43,3022 35021 CAF PRIO7 # R36,V90
012372,001036: 43,3023 05105 TC FINDVAC
012373,001037: 43,3024 E7,1441 EBANK= TIG
012374,001038: 43,3024 02650 10107 2CADR R36
012375,001039:
012376,001040: 43,3026 15155 TCF ENDOFJOB
012377,001041: # MINIMP VERB 76 DESCRIPTION
012378,001042: # MINIMUM IMPULSE MODE
012379,001043: # 1. SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
012380,001044:
012381,001045: 43,3027 05515 MINIMP TC UPFLAG # SET PULSES = 1 (MIN. IMPULSE MODE)
012382,001046: 43,3030 00303 ADRES PULSEFLG
012383,001047: 43,3031 12117 TCF GOPIN # RETURN VIA PINBRNCH
012384,001048:
|
|
Page 290
|
012386,001050: # NOMINIMP VERB 77 DESCRIPTION
012387,001051: # RATE COMMAND MODE
012388,001052: # 1. SET MINIMUM IMPULSE RHC MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
012389,001053: # 2. MOVE CDUX,CDUY,CDUZ INTO CDUXD,CDUYD,CDUZD.
012390,001054:
012391,001055: 43,3032 05527 NOMINIMP TC DOWNFLAG # SET PULSES = 0 (NOT MINIMUM IMPULSE MODE
012392,001056: 43,3033 00303 ADRES PULSEFLG
012393,001057: 43,3034 00004 INHINT
012394,001058: 43,3035 04674 TC IBNKCALL
012395,001059: 43,3036 40154 CADR ZATTEROR
012396,001060: 43,3037 02117 TC GOPIN
012397,001061:
|
|
Page 291
|
012399,001063: # CREWMANU VERB 49 DESCRIPTION
012400,001064: # START AUTOMATIC ATTITUDE MANEUVER
012401,001065: # 1. REQUIRE PROGRAM 00 ACTIVE.
012402,001066: # 2. SET EXT VERB DISPLAY BUSY FLAG.
012403,001067: # 3. SCHEDULE R62DISP WITH PRIORITY 10.
012404,001068: # 4. RELEASE EXT VERB DISPLAY.
012405,001069:
012406,001070: # R62DISP
012407,001071: # 1. DISPLAY FLASHING V06,N22.
012408,001072: # RESPONSES
012409,001073: # A. TERMINATE
012410,001074: # 1. GO TO GOTOPOOH.
012411,001075: # B. PROCEED
012412,001076: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
012413,001077: # 2. EXECUTE R60LEM (ATTITUDE MANEUVER).
012414,001078: # C. ENTER
012415,001079: # 1. REPEAT FLASHING V06,N22.
012416,001080:
012417,001081: 43,3040 02121 CREWMANU TC CHKPOOH # DEMAND POO
012418,001082:
012419,001083: 43,3041 02076 TC TESTXACT
012420,001084:
012421,001085: 43,3042 34737 CAF PRIO10
012422,001086: 43,3043 05105 TC FINDVAC
012423,001087: 43,3044 E6,1675 EBANK= BCDU
012424,001088: 43,3044 02103 46106 2CADR R62DISP
012425,001089:
012426,001090: 43,3046 05155 TC ENDOFJOB
012427,001091:
|
|
Page 292
|
012429,001093: # TRMTRACK VERB 56 DESCRIPTION
012430,001094: # TERMINATE TRACKING (P20 AND P25).
012431,001095: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
012432,001096: # 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
012433,001097: # 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
012434,001098:
012435,001099: # V56TOVAC
012436,001100: # 1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
012437,001101: # 2. ZERO GROUP 2 TO HALT P20.
012438,001102: # 3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
012439,001103:
012440,001104: 43,3047 33067 TRMTRACK CA BITS9+7 # IS REND OR P25 FLAG ON
012441,001105: 43,3050 70074 MASK FLAGWRD0
012442,001106: 43,3051 00006 EXTEND
012443,001107: 43,3052 12117 BZF GOPIN # NO
012444,001108:
012445,001109: 43,3053 05527 TC DOWNFLAG
012446,001110: 43,3054 00010 ADRES RNDVZFLG
012447,001111:
012448,001112: 43,3055 05527 TC DOWNFLAG
012449,001113: 43,3056 00006 ADRES P25FLAG
012450,001114:
012451,001115: 43,3057 05527 TC DOWNFLAG # ENSURE SEARCH FLAG IS OFF
012452,001116: 43,3060 00037 ADRES SRCHOPTN
012453,001117:
012454,001118: 43,3061 34747 CA TRACKBIT # IS TRACK FLAG ON?
012455,001119: 43,3062 70075 MASK FLAGWRD1
012456,001120: 43,3063 00006 EXTEND
012457,001121: 43,3064 12117 BZF GOPIN
012458,001122:
012459,001123: 43,3065 04635 TC POSTJUMP
012460,001124: 43,3066 64054 CADR TRMTRAK1
012461,001125:
012462,001126: 43,3067 00500 BITS9+7 OCT 500
012463,001127:
012464,001128: 42,2000 SETLOC SBAND # BANK 42
012465,001129: 42,2000 BANK
012466,001130:
012467,001131: 42,2054 COUNT* $$/EXTVB
012468,001132:
012469,001133: 42,2054 05527 TRMTRAK1 TC DOWNFLAG
012470,001134: 42,2055 00027 ADRES UPDATFLG # UPDATE FLAG DOWN
012471,001135: 42,2056 05527 TC DOWNFLAG
012472,001136: 42,2057 00031 ADRES TRACKFLG # TRACK FLAG DOWN
012473,001137: 42,2060 05527 TC DOWNFLAG
012474,001138: 42,2061 00007 ADRES IMUSE
012475,001139:
012476,001140: 42,2062 06042 TC INTPRET
012477,001141: 42,2063 77624 CALL
012478,001142: 42,2064 27410 INTSTALL # DONT INTERRUPT INTEGRATION
012479,001143: 42,2065 77776 EXIT
012480,001144:
012481,001145: 42,2066 05364 TC PHASCHNG
|
|
Page 293
|
012483,001147: 42,2067 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
012484,001148:
012485,001149: 42,2070 00004 INHINT
012486,001150: 42,2071 04674 TC IBNKCALL # ZERO THE COMMANDED RATES TO STOP
012487,001151: 42,2072 40166 CADR STOPRATE # MANEUVER
012488,001152:
012489,001153: 42,2073 04674 TC IBNKCALL
012490,001154: 42,2074 40115 CADR RESTORDB
012491,001155:
012492,001156: 42,2075 06011 TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES.
012493,001157:
012494,001158: 42,2076 44736 CS BIT14 # DISABLE LOCKON
012495,001159: 42,2077 00006 EXTEND
012496,001160: 42,2100 03012 WAND CHAN12
012497,001161: 42,2101 04635 TC POSTJUMP
012498,001162: 42,2102 13000 CADR GOPROG2 # CAUSE RESTART.
012499,001163:
012500,001164: # DNEDUMP VERB 74 DESCRIPTION
012501,001165: # INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
012502,001166: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012503,001167: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
012504,001168: # 3. RELEASE EXT VERB DISPLAY.
012505,001169:
012506,001170: 43,2000 SETLOC EXTVERBS
012507,001171: 43,2000 BANK
012508,001172:
012509,001173: 43,3070 COUNT* $$/EXTVB
012510,001174:
012511,001175: 43,3070 0400 EBANK= 400
012512,001176: 43,3070 33073 DNEDUMP CAF LDNDUMPI
012513,001177: 43,3071 54335 TS DNTMGOTO
012514,001178: 43,3072 02117 TC GOPIN
012515,001179:
012516,001180: 43,3073 43,3070 V74 EQUALS DNEDUMP
012517,001181: 43,3073 03724 LDNDUMPI REMADR DNDUMPI
012518,001182:
012519,001183: # LEMVEC VERB 80 DESCRIPTION
012520,001184: # UPDATE LEM STATE VECTOR
012521,001185: # RESET VEHUPFLG TO 0
012522,001186:
012523,001187: 43,3074 05527 LEMVEC TC DOWNFLAG
012524,001188: 43,3075 00026 ADRES VEHUPFLG # VB 80 - VEHUPFLG DOWN INDICATES LEM
012525,001189:
012526,001190: 43,3076 03101 TC NOUPDOWN
012527,001191: # CSMVEC VERB 81 DESCRIPTION
012528,001192: # UPDATE CSM STATE VECTOR
012529,001193: # SET VEHUPFLG TO 1
012530,001194:
012531,001195: 43,3077 05515 CSMVEC TC UPFLAG
|
|
Page 294
|
012533,001197: 43,3100 00026 ADRES VEHUPFLG # VB 81 - VEHUPFLG UP INDICATES CSM
012534,001198:
012535,001199: 43,3101 05527 NOUPDOWN TC DOWNFLAG
012536,001200: 43,3102 00030 ADRES NOUPFLAG
012537,001201:
012538,001202: 43,3103 12117 TCF GOPIN
012539,001203:
012540,001204: # UPDATOFF VERB 95 DESCRIPTION
012541,001205: # INHIBIT STATE VECTOR UPDATES BY INCORP
012542,001206: # SET NOUPFLAG TO 1
012543,001207:
012544,001208: 43,3104 05515 UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
012545,001209: 43,3105 00030 ADRES NOUPFLAG
012546,001210:
012547,001211: 43,3106 02117 TC GOPIN
012548,001212:
|
|
Page 295
|
012550,001214: # SYSTEST VERB 92 DESCRIPTION
012551,001215: # OPERATE IMU PERFORMANCE TEST.
012552,001216: # 1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
012553,001217: # 2. SET EXT VERB BUSY FLAG.
012554,001218: 43,3107 E5,1417 EBANK= QPLACE
012555,001219:
012556,001220: 43,3107 02121 SYSTEST TC CHKPOOH # DEMAND POO
012557,001221:
012558,001222: 43,3110 40077 CS FLAGWRD3 # DO NOT ALLOW P07 IN FLIGHT
012559,001223: 43,3111 74741 MASK NOP07BIT # IF FLAG IS SET, TURN ON OE LITE AND EXIT
012560,001224: 43,3112 00006 EXTEND
012561,001225: 43,3113 12116 BZF ALM/END
012562,001226: 43,3114 02076 TC TESTXACT
012563,001227:
012564,001228: 43,3115 37713 CAF PRIO22
012565,001229: 43,3116 05105 TC FINDVAC
012566,001230: 43,3117 E5,1417 EBANK= QPLACE
012567,001231: 43,3117 37,2000 SBANK= IMUSUPER
012568,001232: 43,3117 02002 76065 2CADR REDO
012569,001233:
012570,001234: 43,3121 05155 TC ENDOFJOB
012571,001235:
012572,001236: # VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
012573,001237:
012574,001238: 43,3122 00004 WMATRXNG INHINT
012575,001239: 43,3123 44753 CS RENDWBIT
012576,001240: 43,3124 70101 MASK FLAGWRD5
012577,001241: 43,3125 54101 TS FLAGWRD5
012578,001242:
012579,001243: 43,3126 02117 TC GOPIN
012580,001244:
012581,001245: 43,3127 43,3127 GOSHOSUM EQUALS SHOWSUM
012582,001246:
012583,001247: 43,3127 02121 SHOWSUM TC CHKPOOH # *
012584,001248: 43,3130 02076 TC TESTXACT # *
012585,001249: 43,3131 35021 CAF PRIO7 # ALLOW OTHER CHARINS.
012586,001250: 43,3132 05146 TC PRIOCHNG
012587,001251: 43,3133 34753 CAF S+1 # *
012588,001252: 43,3134 55376 TS SKEEP6 # * SHOWSUM OPTION
012589,001253: 43,3135 34755 CAF S+ZERO # *
012590,001254: 43,3136 55362 TS SMODE # * TURN OFF SELF-CHECK
012591,001255: 43,3137 33300 CA SELFADRS # *
012592,001256: 43,3140 55361 TS SELFRET # *
012593,001257: 43,3141 03555 TC STSHOSUM # * ENTER ROPECHK
012594,001258:
012595,001259: 43,3142 23372 SDISPLAY LXCH SKEEP2 # * BANK # FOR DISPLAY
012596,001260: 43,3143 23373 LXCH SKEEP3 # * BUGGER WORD FOR DISPLAY
012597,001261: 43,3144 33277 NOKILL CA ADRS1 # *
012598,001262: 43,3145 54156 TS MPAC +2 # *
012599,001263: 43,3146 33157 CA VNCON # * 0501
|
|
Page 296
|
012601,001265: 43,3147 04616 TC BANKCALL # *
012602,001266: 43,3150 20334 CADR GOXDSPF # *
012603,001267: 43,3151 03154 TC +3 # *
012604,001268: 43,3152 03666 TC NXTBNK # *
012605,001269: 43,3153 03144 TC NOKILL # *
012606,001270: 43,3154 33300 CA SELFADRS
012607,001271: 43,3155 55371 TS SKEEP1
012608,001272:
012609,001273: 43,3156 05503 TC ENDEXT # *
012610,001274:
012611,001275: 43,3157 01201 VNCON VN 501 # *
012612,001276:
012613,001277: 43,3160 31376 ENDSUMS CA SKEEP6 # *
012614,001278: 43,3161 00006 EXTEND # *
012615,001279: 43,3162 13371 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
012616,001280: 43,3163 03555 TC STSHOSUM # * START SHOWSUM AGAIN.
012617,001281:
|
|
Page 297
|
012619,001283: # DAPDISP VERB 48 DESCRIPTION
012620,001284: # LOAD AUTO PILOT DATA
012621,001285: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
012622,001286: # 2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
012623,001287: # 3. RELEASE EXT VERB DISPLAY SYSTEM.
012624,001288: # KEY
012625,001289: # THE FOLLOWING IS A KEY TO THE 5 DIGITS OF THE DAP DATA CODE (N46)
012626,001290:
012627,001291: # DIGIT A - VEHICLE CONFIGURATION
012628,001292: # 1 - LM ALONE, ASCENT
012629,001293: # 2 - LM ALONE, DESCENT
012630,001294: # 3 - CSM AND LM DOCKED
012631,001295:
012632,001296: # DIGIT B - ACCELERATION CODE
012633,001297: # 0 - 2 JET TRANSLATION, RCS SYSTEM A PREFERRED
012634,001298: # 1 - 2 JET TRANSLATION, RCS SYSTEM B PREFERRED
012635,001299: # 2 - 4 JET TRANSLATION, RCS SYSTEM A PREFERRED (NOT MEANINGFUL)
012636,001300: # 3 - 4 JET TRANSLATION, RCS SYSTEM B PREFERRED (NOT MEANINGFUL)
012637,001301:
012638,001302: # DIGIT C - ACA SCALING
012639,001303: # 0 - FINE
012640,001304: # 1 - NORMAL
012641,001305:
012642,001306: # DIGIT D - DEADBAND
012643,001307: # 0 - 0.3 DEG
012644,001308: # 1 - 1.0 DEG
012645,001309: # 2 - 5.0 DEG
012646,001310: # (3 - 5.0 DEG BY DEFAULT)
012647,001311:
012648,001312: # DIGIT E - MANEUVER RATE
012649,001313: # 0 - 0.2 DEG/SEC
012650,001314: # 1 - 0.5 DEG/SEC
012651,001315: # 2 - 2.0 DEG/SEC
012652,001316: # 3 -10.0 DEG/SEC
012653,001317:
012654,001318: 43,3164 02076 DAPDISP TC TESTXACT
012655,001319: 43,3165 35021 CAF PRIO7 # R03
012656,001320: 43,3166 05146 TC PRIOCHNG
012657,001321: 43,3167 04635 TC POSTJUMP
012658,001322: 43,3170 40004 CADR DAPDATA1
012659,001323: 34,2000 BANK 34
012660,001324: 20,2000 SETLOC LOADDAP
012661,001325: 20,2000 BANK
012662,001326:
012663,001327: 20,2004 COUNT* $$/R03
012664,001328:
012665,001329: 20,2004 30,2000 SBANK= LOWSUPER # FOR SUBSEQUENT LOW 2CADR'S.
012666,001330:
012667,001331: 20,2004 32114 DAPDATA1 CAF BOOLSMSK # SET DISPLAY ACCORDING TO DAPBOOLS BITS.
012668,001332: 20,2005 70111 MASK DAPBOOLS # LM
|
|
Page 298
|
012670,001334: 20,2006 55340 TS DAPDATR1 # LM
012671,001335: 20,2007 40106 CS FLGWRD10 # SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
012672,001336: 20,2010 74737 MASK APSFLBIT
012673,001337: 20,2011 10000 CCS A
012674,001338: 20,2012 34736 CAF BIT14
012675,001339: 20,2013 27340 ADS DAPDATR1
012676,001340: 20,2014 31340 CHKDATA1 CAE DAPDATR1 # IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
012677,001341: 20,2015 74355 MASK BIT13-14 # A ONE INTO BIT 13.
012678,001342: 20,2016 00006 EXTEND
012679,001343: 20,2017 12034 BZF FORCEONE
012680,001344: 20,2020 31340 CAE DAPDATR1 # ENSURE THAT NO ILLEGAL BITS SET BY CREW.
012681,001345: 20,2021 72113 MSKDATR1 MASK DSPLYMSK
012682,001346: 20,2022 55340 TS DAPDATR1
012683,001347: 20,2023 32112 CAF V01N46 # LM
012684,001348: 20,2024 04616 TC BANKCALL
012685,001349: 20,2025 20353 CADR GOXDSPFR
012686,001350: 20,2026 15503 TCF ENDEXT # V34E TERMINATE
012687,001351: 20,2027 12037 TCF DPDAT1 # V33E PROCEED
012688,001352: 20,2030 12014 TCF CHKDATA1 # E NEW DATA CHECK AND REDISPLAY
012689,001353: 20,2031 36245 CAF REVCNT # BITS 2 & 3: BLANKS R2 & R3.
012690,001354: 20,2032 05475 TC BLANKET
012691,001355: 20,2033 15155 TCF ENDOFJOB
012692,001356: 20,2034 34737 FORCEONE CAF BIT13
012693,001357: 20,2035 27340 ADS DAPDATR1
012694,001358: 20,2036 12021 TCF MSKDATR1
012695,001359:
012696,001360: 20,2037 00004 DPDAT1 INHINT # INHINT FOR SETTING OF FLAG BITS AND MASS
012697,001361: 20,2040 44737 CS APSFLBIT # ON BASIS OF DISPLAYED DAPDATR1.
012698,001362: 20,2041 70106 MASK FLGWRD10
012699,001363: 20,2042 54001 TS L # SET APSFLAG TO BE COMPLEMENT OF BIT 14.
012700,001364: 20,2043 41340 CS DAPDATR1
012701,001365: 20,2044 74736 MASK BIT14
012702,001366: 20,2045 10000 CCS A
012703,001367: 20,2046 34737 CAF APSFLBIT
012704,001368: 20,2047 60001 AD L
012705,001369: 20,2050 54106 TS FLGWRD10
012706,001370: 20,2051 41340 CS DAPDATR1 # SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
012707,001371: 20,2052 74355 MASK BIT13-14 # MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
012708,001372: 20,2053 10000 CCS A # 13 AND 14 ARE SET.
012709,001373: 20,2054 44737 CS CSMDOCKD
012710,001374: 20,2055 62114 AD BOOLSMSK
012711,001375: 20,2056 71340 MASK DAPDATR1
012712,001376: 20,2057 54001 TS L
012713,001377: 20,2060 42114 CS BOOLSMSK
012714,001378: 20,2061 70111 MASK DAPBOOLS
012715,001379: 20,2062 60001 AD L
012716,001380: 20,2063 54111 TS DAPBOOLS
012717,001381: 20,2064 74737 MASK CSMDOCKD # LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
012718,001382: 20,2065 10000 CCS A # MASS IS USUALLY ALREADY OKAY, SO DO
012719,001383: 20,2066 31327 CAE CSMMASS # NOT TOUCH ITS LOW-ORDER PART.
|
|
Page 299
|
012721,001385: 20,2067 61326 AD LEMMASS
012722,001386: 20,2070 55243 TS MASS
012723,001387: 20,2071 30111 CAE DAPBOOLS
012724,001388: 20,2072 74741 MASK ACC4OR2X # 2 OR 4 JET X-TRANSLATION
012725,001389: 20,2073 00006 EXTEND # (BIT ACC4OR2X = 1 FOR 4 JETS)
012726,001390: 20,2074 12101 BZF +5
012727,001391: 20,2075 44735 CS BIT15
012728,001392: 20,2076 70075 MASK FLAGWRD1 # CLEAR NJTSFLAG TO 0 FOR 4 JETS
012729,001393: 20,2077 54075 TS FLAGWRD1
012730,001394: 20,2100 12104 TCF +4
012731,001395: 20,2101 40075 CS FLAGWRD1 # SET NJTSFLAG TO 1 FOR 2 JETS
012732,001396: 20,2102 74735 MASK BIT15
012733,001397: 20,2103 26075 ADS FLAGWRD1
012734,001398: 20,2104 30111 CA DAPBOOLS # SELECT DESIRED KALCMANU AUTOMATIC
012735,001399: 20,2105 76250 MASK THREE # MANEUVER RATE
012736,001400: 20,2106 60000 DOUBLE # RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
012737,001401: 20,2107 55322 TS RATEINDX # ARE DP
012738,001402: 20,2110 04635 TC POSTJUMP
012739,001403: 20,2111 02214 CADR STIKLOAD
012740,001404:
012741,001405: 20,2112 00256 V01N46 VN 0146
012742,001406: 20,2113 33133 DSPLYMSK OCT 33133
012743,001407: 20,2114 13133 BOOLSMSK OCT 13133
012744,001408: 01,2214 BANK 01
012745,001409: 01,2000 SETLOC LOADDAP1
012746,001410: 01,2000 BANK
012747,001411:
012748,001412: 01,2214 COUNT* $$/R03
012749,001413:
012750,001414: 01,2214 35015 STIKLOAD CAF EBANK6
012751,001415: 01,2215 54003 TS EBANK
012752,001416: 01,2216 E6,1444 EBANK= STIKSENS
012753,001417: 01,2216 34745 CA RHCSCALE # SET STICK SENSITIVITY TO CORRESPOND TO A
012754,001418: 01,2217 70111 MASK DAPBOOLS # MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
012755,001419: 01,2220 10000 CCS A # 20 D/S(NORMAL) OR 4 D/S(FINE), SCALED
012756,001420: 01,2221 32343 CA NORMAL # AT 45 D/S.
012757,001421: 01,2222 62344 AD FINE
012758,001422: 01,2223 55444 TS STIKSENS
012759,001423: 01,2224 32346 CA -0.6D/S
012760,001424: 01,2225 55476 TS -RATEDB # LM-ONLY BREAKOUT LEVEL IS .6 D/S.
012761,001425: 01,2226 34737 CA CSMDOCKD # IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
012762,001426: 01,2227 70111 MASK DAPBOOLS # BY 10. NORMAL SCALING IS THEN 2 D/S AND
012763,001427: 01,2230 00006 EXTEND # FINE SCALING IS 0.4 D/S
012764,001428: 01,2231 12240 BZF +7 # BRANCH IF CSM IS NOT DOCKED.
012765,001429: 01,2232 31444 CA STIKSENS
012766,001430: 01,2233 00006 EXTEND
012767,001431: 01,2234 72345 MP 1/10
012768,001432: 01,2235 55444 TS STIKSENS
012769,001433: 01,2236 32347 CA -0.3D/S # CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
012770,001434: 01,2237 55476 TS -RATEDB
|
|
Page 300
|
012772,001436: 01,2240 00003 RELINT # PROCEED TO NOUN 47, MASS LOAD,
012773,001437:
012774,001438: 01,2241 32341 DAPDATA2 CAF V0647
012775,001439: 01,2242 04616 TC BANKCALL
012776,001440: 01,2243 20353 CADR GOXDSPFR
012777,001441: 01,2244 12252 TCF ENDR03 # V34E TERMINATE. FIRST SET DB, DO 1/ACCS
012778,001442: 01,2245 12256 TCF DAPDAT2 # V33E PROCEED
012779,001443: 01,2246 12241 TCF DAPDATA2 # LOAD NEW DATA AND RECYCLE
012780,001444: 01,2247 34751 CAF BIT3 # BLANKS R3
012781,001445: 01,2250 05475 TC BLANKET # LM
012782,001446: 01,2251 15155 TCF ENDOFJOB
012783,001447: 01,2252 00004 ENDR03 INHINT
012784,001448: 01,2253 04674 TC IBNKCALL
012785,001449: 01,2254 40115 CADR RESTORDB
012786,001450: 01,2255 15503 TCF ENDEXT # DOES RELINT
012787,001451:
012788,001452: 01,2256 40106 DAPDAT2 CS FLGWRD10 # DETERMINE STAGE FROM APSFLAG
012789,001453: 01,2257 74737 MASK APSFLBIT
012790,001454: 01,2260 10000 CCS A
012791,001455: 01,2261 32000 CA MINLMD
012792,001456: 01,2262 62001 AD MINMINLM
012793,001457: 01,2263 61326 AD LEMMASS # LEMMASS MUST BE GREATER THAN EMPTY LEM
012794,001458: 01,2264 00006 EXTEND
012795,001459: 01,2265 62241 BZMF DAPDATA2 # ASK FOR NEW MASSES
012796,001460: 01,2266 30111 CAE DAPBOOLS
012797,001461: 01,2267 74737 MASK CSMDOCKD
012798,001462: 01,2270 00006 EXTEND
012799,001463: 01,2271 12277 BZF LEMALONE # SKIP TEST ON CSMMASS IF NOT DOCKED.
012800,001464: 01,2272 44741 CS MINCSM # TEST CSM MASS
012801,001465: 01,2273 61327 AD CSMMASS # CSMMASS MUST BE GREATER THAN EMPTY CSM
012802,001466: 01,2274 00006 EXTEND
012803,001467: 01,2275 62241 BZMF DAPDATA2 # ASK FOR NEW MASSES
012804,001468: 01,2276 31327 CAE CSMMASS # DOCKED: MASS = CSMMASS + LEMMASS
012805,001469: 01,2277 61326 LEMALONE AD LEMMASS # LEM ALONE: MASS = LEMMASS
012806,001470: 01,2300 22007 ZL
012807,001471: 01,2301 53244 DXCH MASS
012808,001472: 01,2302 00004 INHINT
012809,001473: 01,2303 04674 TC IBNKCALL # SET DEADBANK AND COMPUTE MOMENTS OF
012810,001474: 01,2304 40115 CADR RESTORDB # INERTIA.
012811,001475: 01,2305 00003 RELINT # PROCEED TO NOUN 48 (OR END).
012812,001476:
012813,001477: 01,2306 40106 DAPDATA3 CS FLGWRD10
012814,001478: 01,2307 74737 MASK APSFLBIT
012815,001479: 01,2310 00006 EXTEND # END ROUTINE IF LEM HAS STAGED,
012816,001480: 01,2311 15503 BZF ENDEXT
012817,001481: 01,2312 32342 CAF V06N48 # DISPLAY TRIM ANGLES AND REQUEST RESPONSE
012818,001482: 01,2313 04616 TC BANKCALL
012819,001483: 01,2314 20353 CADR GOXDSPFR
012820,001484: 01,2315 05503 TC ENDEXT
012821,001485: 01,2316 12323 TCF DPDAT3 # V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
012822,001486:
|
|
Page 301
|
012824,001488: 01,2317 12312 TCF -5 # LOAD NEW DATA AND RECYCLE
012825,001489: 01,2320 34751 CAF BIT3
012826,001490: 01,2321 05475 TC BLANKET # BLANK R3
012827,001491: 01,2322 15155 TCF ENDOFJOB
012828,001492: 01,2323 34753 DPDAT3 CAF BIT1
012829,001493: 01,2324 05214 TC WAITLIST
012830,001494: 01,2325 E6,1401 EBANK= ROLLTIME
012831,001495: 01,2325 03217 56066 2CADR TRIMGIMB
012832,001496:
012833,001497: 01,2327 15155 TCF ENDOFJOB # DOES A RELINT
012834,001498: 01,2330 32342 TRIMDONE CAF V50N48
012835,001499: 01,2331 04616 TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03
012836,001500: 01,2332 20361 CADR GOMARK3R -1
012837,001501: 01,2333 05503 TC ENDEXT # V34E TERMINATE
012838,001502: 01,2334 05503 TC ENDEXT
012839,001503: 01,2335 05503 TC ENDEXT
012840,001504: 01,2336 36007 CAF OCT24 # BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
012841,001505: 01,2337 05475 TC BLANKET
012842,001506: 01,2340 15155 TCF ENDOFJOB
012843,001507:
012844,001508: 01,2341 01457 V0647 VN 0647
012845,001509: 01,2342 01460 V06N48 VN 0648
012846,001510:
012847,001511: 01,2343 01,2342 V50N48 = V06N48
012848,001512:
012849,001513: 01,2343 25101 NORMAL DEC .660214
012850,001514: # NORMAL SCALING IS 20 D/S
012851,001515: 01,2344 05220 FINE DEC .165054 # FINE STICK SCALING (4 D/S).
012852,001516: 01,2345 03146 1/10 DEC .1 # FACTOR FOR CSM-DOCKED SCALING
012853,001517: 01,2346 77445 -0.6D/S DEC -218 B-14
012854,001518: 01,2347 77622 -0.3D/S DEC -109 B-14
012855,001519:
|
|
Page 302
|
012857,001521: # VERB 66. VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
012858,001522: # OTHER VEHICLE STATE VECTOR.
012859,001523:
012860,001524: # USE SUBROUTINE GENTRAN.
012861,001525:
012862,001526: 07,2661 BANK 7
012863,001527: 43,2000 SETLOC EXTVERBS
012864,001528: 43,2000 BANK
012865,001529:
012866,001530: 43,3171 COUNT* $$/EXTVB
012867,001531:
012868,001532: 43,3171 E3,1626 EBANK= RRECTHIS
012869,001533:
012870,001534: 43,3171 40104 ATTACHED CS FLAGWRD8
012871,001535: 43,3172 74744 MASK SURFFBIT
012872,001536: 43,3173 00006 EXTEND
012873,001537: 43,3174 12116 BZF ALM/END # TURN ON OE AND EXIT IF SURFFLAG SET.
012874,001538: 43,3175 34737 CAF PRIO10
012875,001539: 43,3176 05105 TC FINDVAC
012876,001540: 43,3177 E3,1626 EBANK= RRECTHIS
012877,001541:
012878,001542: 43,3177 03202 66103 2CADR ATTACHIT
012879,001543:
012880,001544: 43,3201 05155 TC ENDOFJOB
012881,001545:
012882,001546: 43,3202 06042 ATTACHIT TC INTPRET
012883,001547: 43,3203 77624 CALL
012884,001548: 43,3204 27410 INTSTALL
012885,001549: 43,3205 43014 SET BON
012886,001550: 43,3206 04063 MOONOTH
012887,001551: 43,3207 04304 MOONTHIS
012888,001552: 43,3210 67213 +3
012889,001553: 43,3211 77614 CLEAR
012890,001554: 43,3212 04263 MOONOTH
012891,001555: 43,3213 77776 EXIT
012892,001556: 43,3214 33237 CAF OCT51
012893,001557: 43,3215 05555 TC GENTRAN
012894,001558: 43,3216 01626 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
012895,001559: 43,3217 01554 ADRES RRECTOTH
012896,001560:
012897,001561: 43,3220 00003 RELINT
012898,001562: 43,3221 06042 TC INTPRET
012899,001563: 43,3222 77624 CALL # UPDATE R-OTHER, V-OTHER
012900,001564: 43,3223 26757 PTOALEM
012901,001565: 43,3224 45154 LXA,2 CALL
012902,001566: 43,3225 02030 PBODY
012903,001567: 43,3226 26114 SVDWN1
012904,001568: 43,3227 77776 EXIT
012905,001569:
012906,001570: 43,3230 33240 CAF TCPINAD
|
|
Page 303
|
012908,001572: 43,3231 50120 INDEX FIXLOC
012909,001573: 43,3232 54052 TS QPRET
012910,001574: 43,3233 04635 TC POSTJUMP
012911,001575: 43,3234 27421 CADR INTWAKE # FREE INTEGRATION AND EXIT.
012912,001576:
012913,001577: 43,3235 77634 TCPIN RTB
012914,001578: 43,3236 21051 PINBRNCH
012915,001579:
012916,001580: 43,3237 00051 OCT51 OCT 51
012917,001581: 43,3240 67235 TCPINAD CADR TCPIN
012918,001582:
012919,001583: # VERB 96 SET QUITFLAG TO STOP INTEGRATION.
012920,001584:
012921,001585: # GO TO V37 WITH ZERO TO CAUSE POO.
012922,001586: # STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
012923,001587: # THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
012924,001588:
012925,001589: 43,3241 05515 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012926,001590: 43,3242 00221 ADRES QUITFLAG # AT NEXT TIMESTEP
012927,001591:
012928,001592: 43,3243 34755 CAF ZERO
012929,001593: 43,3244 04635 TC POSTJUMP
012930,001594: 43,3245 10040 CADR V37 # GO TO POO
012931,001595:
012932,001596:
012933,001597: # VERB 67 : DISPLAY OF W MATRIX
012934,001598:
012935,001599: 43,3246 02076 V67 TC TESTXACT
012936,001600: 43,3247 35017 CAF PRIO5
012937,001601: 43,3250 05105 TC FINDVAC
012938,001602: 43,3251 E4,1600 EBANK= WWPOS
012939,001603: 43,3251 02007 62064 2CADR V67CALL
012940,001604:
012941,001605: 43,3253 05155 TC ENDOFJOB
012942,001606:
012943,001607: # VERB 65 DISABLE U,V JETS DURING DPS BURNS
012944,001608:
012945,001609: 43,3254 05515 SNUFFOUT TC UPFLAG
012946,001610: 43,3255 00115 ADRES SNUFFER
012947,001611: 43,3256 02117 TC GOPIN
012948,001612:
012949,001613: # VERB 75 ENABLE U,V JETS DURING DPS BURNS
012950,001614:
012951,001615: 43,3257 05527 OUTSNUFF TC DOWNFLAG
012952,001616: 43,3260 00115 ADRES SNUFFER
012953,001617: 43,3261 02117 TC GOPIN
012954,001618: # VERB 85 DISPLAY RR LOS AZIMUTH AND ELEVATION.
012955,001619:
012956,001620: # AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0 - 90 DEG IN THE +Y HEMISPHERE,
012957,001621: # 360 - 270 DEG IN THE -Y HEMISPHERE.
012958,001622:
|
|
Page 304
|
012960,001624: # ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0 - 360 ABOUT +Y.
012961,001625:
012962,001626: 43,3262 E4,1600 EBANK= RR-AZ
012963,001627: 43,3262 02076 VERB85 TC TESTXACT
012964,001628: 43,3263 04635 TC POSTJUMP
012965,001629: 43,3264 60000 CADR DSPRRLOS
012966,001630:
012967,001631: 40,2000 SETLOC PINBALL1
012968,001632: 40,2000 BANK
012969,001633:
012970,001634: 40,2000 COUNT* $$/EXTVB
012971,001635:
012972,001636: 40,2000 35017 DSPRRLOS CAF PRIO5
012973,001637: 40,2001 05105 TC FINDVAC
012974,001638: 40,2002 E4,1600 EBANK= RR-AZ
012975,001639: 40,2002 02017 60104 2CADR RRLOSDSP
012976,001640:
012977,001641: 40,2004 34740 CAF PRIO4
012978,001642: 40,2005 05146 TC PRIOCHNG
012979,001643: 40,2006 32076 CAF V16N56
012980,001644: 40,2007 04616 TC BANKCALL
012981,001645: 40,2010 20353 CADR GOMARKFR
012982,001646: 40,2011 05574 TC B5OFF
012983,001647: 40,2012 05574 TC B5OFF
012984,001648: 40,2013 05574 TC B5OFF
012985,001649:
012986,001650: 40,2014 34751 CAF BIT3
012987,001651: 40,2015 05475 TC BLANKET
012988,001652: 40,2016 05155 TC ENDOFJOB
012989,001653:
012990,001654:
012991,001655: 40,2017 00006 RRLOSDSP EXTEND
012992,001656: 40,2020 30036 DCA CDUT
012993,001657: 40,2021 52155 DXCH MPAC
012994,001658: 40,2022 06042 TC INTPRET
012995,001659: 40,2023 77624 CALL
012996,001660: 40,2024 46065 RRNBMPAC # GET RR LOS IN BODY AXIS.
012997,001661: 40,2025 00001 STORE 0D # UNIT LOS
012998,001662: 40,2026 14007 STODL 6D
012999,001663: 40,2027 06470 HI6ZEROS
013000,001664: 40,2030 24011 STOVL 8D
013001,001665: 40,2031 00007 6D
013002,001666: 40,2032 77656 UNIT
013003,001667: 40,2033 00007 STORE 6D # UNIT OF LOS PROJ IN X-Z PLANE
013004,001668: 40,2034 77641 DOT
|
|
Page 305
|
013006,001670: 40,2035 06462 UNITZ
013007,001671: 40,2036 24021 STOVL COSTH # 16D
013008,001672: 40,2037 06466 UNITX
013009,001673: 40,2040 77641 DOT
013010,001674: 40,2041 00007 6D
013011,001675: 40,2042 34023 STCALL SINTH # 18D
013012,001676: 40,2043 47266 ARCTRIG
013013,001677: 40,2044 43244 BPL DAD # INSURE DISPLAY OF 0 - 360 DEG.
013014,001678: 40,2045 60047 +2
013015,001679: 40,2046 06476 DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
013016,001680: 40,2047 26203 STOVL RR-ELEV
013017,001681: 40,2050 00001 0D
013018,001682: 40,2051 77641 DOT
013019,001683: 40,2052 06464 UNITY
013020,001684: 40,2053 24023 STOVL SINTH
013021,001685: 40,2054 00001 0D
013022,001686: 40,2055 77641 DOT
013023,001687: 40,2056 00007 6D
013024,001688: 40,2057 34021 STCALL COSTH
013025,001689: 40,2060 47266 ARCTRIG
013026,001690: 40,2061 43244 BPL DAD # INSURE DISPLAY OF 0 - 360 DEG.
013027,001691: 40,2062 60064 +2
013028,001692: 40,2063 06476 DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
013029,001693: 40,2064 02201 STORE RR-AZ
013030,001694: 40,2065 77776 EXIT
013031,001695: 40,2066 34777 CA 1SEC
013032,001696: 40,2067 04616 TC BANKCALL
013033,001697: 40,2070 01736 CADR DELAYJOB
013034,001698:
013035,001699: 40,2071 34747 CA BIT5
013036,001700: 40,2072 71043 MASK EXTVBACT
013037,001701: 40,2073 10000 CCS A
013038,001702: 40,2074 02017 TC RRLOSDSP
013039,001703: 40,2075 05503 TC ENDEXT
013040,001704:
013041,001705: 40,2076 04070 V16N56 VN 1656
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc