Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
011951,000002: ## Copyright: Public domain.
011952,000003: ## Filename: EXTENDED_VERBS.agc
011953,000004: ## Purpose: A section of Luminary revision 210.
011954,000005: ## It is part of the source code for the Lunar Module's (LM)
011955,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
011956,000007: ## This file is intended to be a faithful transcription, except
011957,000008: ## that the code format has been changed to conform to the
011958,000009: ## requirements of the yaYUL assembler rather than the
011959,000010: ## original YUL assembler.
011960,000011: ## Reference: pp. 275-312
011961,000012: ## Assembler: yaYUL
011962,000013: ## Contact: Ron Burkey <info@sandroid.org>.
011963,000014: ## Website: www.ibiblio.org/apollo/index.html
011964,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
011965,000016: ## 2016-11-20 MAS Updated for Luminary 210.
011966,000017: ## 2016-11-27 HG Fix operand 2SECDELV -> 2SECDELY
011967,000018: ## replace tabs with spaces
011968,000019: ## 2016-12-07 HG Fix P00 -> POO
011969,000020: ## Change POO -> P00 in some comments
011970,000021: ## 2016-12-11 HG Fix operator CS FLAGWRD5 -> CA FLAGWRD5
011971,000022: ## operand AGSBUFF -> AGSK
011972,000023: ## 2016-12-12 HG comment out previous [WORKAROUND] with SBANK=
011973,000024: ## 2016-12-23 RSB Proofed comment text with octopus/ProoferComments
011974,000025: ## and fixed all errors found. Restored an SBANK=
011975,000026: ## that we had apparently mistakenly commented out,
011976,000027: ## but wasn't noticed because it had no effect on
011977,000028: ## the generated octals.
011978,000029: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
011979,000030: ## side-by-side diff of Luminary 69/99/116/131/210.
011980,000031: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
011981,000032: ## Luminary 99 vs Comanche 55.
011982,000033: ## 2017-08-21 RSB Fixed a comment typo identified in ZERLINA 56.
011983,000034:
|
|
Page 275 |
011985,000036: 07,2607 BANK 7
011986,000037: 43,2000 SETLOC EXTVERBS
011987,000038: 43,2000 BANK
011988,000039:
011989,000040: 43,2000 E5,1737 EBANK= OGC
011990,000041:
011991,000042: 43,2000 COUNT* $$/EXTVB
011992,000043: # FAN-OUT
011993,000044:
011994,000045: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
011995,000046: 43,2001 02002 TC LST2FAN # FAN AS BEFORE.
011996,000047:
011997,000048: 43,2002 02126 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
011998,000049: 43,2003 02177 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
011999,000050: # 72 ONLY)
012000,000051: 43,2004 02344 TC IMUFINEK # VB42 FINE ALIGN IMU
012001,000052: 43,2005 02702 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
012002,000053: 43,2006 02310 TC RRDESEND # VB44 TERMINATE CONTINUOUS DESIGNATE
012003,000054: 43,2007 02116 TC ALM/END # VB45 SPARE
012004,000055: 43,2010 02116 TC ALM/END # VB46 SPARE
012005,000056: 43,2011 02403 TC V47TXACT # VB47 AGS INITIALIZATION
012006,000057: 43,2012 03134 TC DAPDISP # VB48 LOAD A/P DATA
012007,000058: 43,2013 13011 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER
012008,000059: 43,2014 02375 TC GOLOADLV # VB50 PLEASE PERFORM
012009,000060: 43,2015 02116 TC ALM/END # VB51 SPARE
012010,000061: 43,2016 02375 TC GOLOADLV # VB52 PLEASE MARK X - RETICLE.
012011,000062: 43,2017 02375 TC GOLOADLV # VB53 PLEASE MARK Y - RETICLE.
012012,000063: 43,2020 02375 TC GOLOADLV # VB54 PLEASE MARK X OR Y - RETICLE
012013,000064: 43,2021 02415 TC ALINTIME # VB55 ALIGN TIME
012014,000065: 43,2022 03020 TC TRMTRACK # VB56 TERMINATE TRACKING - P20 + P25
012015,000066: 43,2023 02333 TC LRON # VB57 PERMIT LANDING RADAR UPDATES
012016,000067: 43,2024 02336 TC LROFF # VB58 INHIBIT LANDING RADAR UPDATES
012017,000068: 43,2025 02147 TC LRPOS2K # VB59 COMMAND LR TO POSITION 2.
012018,000069: 43,2026 02174 TC RATEDISP # VB60 DISPLAY DAP ESTIMATED RATES
012019,000070: 43,2027 02164 TC DAPATTER # VB61 DISPLAY DAP ATTITUDE ERROR
012020,000071: 43,2030 02167 TC TOTATTER # VB62 DISPLAY TOTAL ATTITUDE ERROR
012021,000072: 43,2031 02430 TC R04 # VB63 SAMPLE RADAR ONCE PER SECOND
012022,000073: 43,2032 02674 TC VB64 # VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
012023,000074: 43,2033 03224 TC SNUFFOUT # VB65 DISABLE U,V JETS DURING DPS BURNS.
012024,000075: 43,2034 03141 TC ATTACHED # VB66 ATTACHED MOVE THIS TO OTHER STATE
012025,000076: 43,2035 03216 TC V67 # VB67 W MATRIX MONITOR
012026,000077: 43,2036 02341 TC TEROFF # VB68 TAKE OUT TERRAIN MODEL IN DESCENT
012027,000078: 43,2037 02037 VERB69 TC VERB69 # VB69 FORCE A HARDWARE RESTART
012028,000079: 43,2040 03727 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
012029,000080: 43,2041 03731 TC V71UPDAT # VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
012030,000081: 43,2042 03733 TC V72UPDAT # VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
012031,000082: 43,2043 03735 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
012032,000083: 43,2044 03040 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
012033,000084: # FOR ERASABLE DUMP.
012034,000085: 43,2045 03227 TC OUTSNUFF # VB75 ENABLE U,V JETS DURING DPS BURNS.
|
|
Page 276 |
012036,000087: 43,2046 03000 TC MINIMP # VB76 MINIMUM IMPULSE MODE
012037,000088: 43,2047 03003 TC NOMINIMP # VB77 RATE COMMAND MODE
012038,000089: 43,2050 02420 TC R77 # VB78 START LR SPURIOUS RETURN TEST
012039,000090: 43,2051 02630 TC R77END # VB79 TERMINATE LR SPURIOUS RETURN TEST
012040,000091: 43,2052 03044 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR
012041,000092: 43,2053 03047 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
012042,000093: 43,2054 02741 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
012043,000094: 43,2055 02751 TC V83PERF # VB83 REQUEST REND PARAM DISPLAY (R31)
012044,000095: 43,2056 02116 TC ALM/END # VB84 SPARE
012045,000096: 43,2057 03232 TC VERB85 # VB85 DISPLAY RR LOS AZ AND ELEV
012046,000097: 43,2060 02116 TC ALM/END # VB86 SPARE
012047,000098: 43,2061 02116 TC ALM/END # VB87 SPARE
012048,000099: 43,2062 02116 TC ALM/END # VB88 SPARE
012049,000100: 43,2063 02757 TC V89PERF # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
012050,000101: 43,2064 02766 TC V90PERF # VB90 OUT OF PLANE RENDEZVOUS DISPLAY
012051,000102: 43,2065 03077 TC GOSHOSUM # VB91 DISPLAY BANK SUM.
012052,000103: 43,2066 03057 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST.
012053,000104: 43,2067 03072 TC WMATRXNG # VB93 CLEAR RENDWFLG
012054,000105: 43,2070 02116 TC ALM/END # VB94 SPARE
012055,000106: 43,2071 03054 TC UPDATOFF # VB95 NO STATE VECTOR UPDATE ALLOWED
012056,000107: 43,2072 03211 TC VERB96 # VB96 INTERRUPT INTEGRATION AND GO TO POO
012057,000108: 43,2073 02375 TC GOLOADLV # VB97 PLEASE VERIFY ENGINE FAILURE
012058,000109: 43,2074 02116 TC ALM/END # VB98 SPARE
012059,000110: 43,2075 02375 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
012060,000111:
012061,000112: # END OF EXTENDED VERB FAN
012062,000113:
012063,000114:
012064,000115: 43,2076 11043 TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY
012065,000116: 43,2077 02116 TC ALM/END # YES, TURN ON OPERATOR LIGHT
012066,000117: 43,2100 30100 CA FLAGWRD4 # ARE PRIORITY DISPLAYS USING DSKY
012067,000118: 43,2101 72125 MASK OC24100
012068,000119: 43,2102 10000 CCS A
012069,000120: 43,2103 02116 TC ALM/END # YES
012070,000121: 43,2104 34353 CAF OCT25 # SET BITS 1, 3, AND 5
012071,000122: 43,2105 55043 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
012072,000123: # SYSTEM BUSY
012073,000124:
012074,000125: 43,2106 30002 CA Q
012075,000126: 43,2107 54155 TS MPAC +1
012076,000127:
012077,000128: 43,2110 44743 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
012078,000129: 43,2111 04145 TC NVSUB
012079,000130: 43,2112 02113 TC +1
012080,000131: 43,2113 10067 CCS NEWJOB
012081,000132: 43,2114 05113 TC CHANG1
012082,000133:
012083,000134: 43,2115 00155 TC MPAC +1
012084,000135:
012085,000136: 43,2116 5474 TERMEXTV EQUALS ENDEXT
|
|
Page 277 |
012087,000138: 43,2116 5474 ENDEXTVB EQUALS ENDEXT
012088,000139:
012089,000140: 43,2116 04355 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
012090,000141: 43,2117 04626 GOPIN TC POSTJUMP
012091,000142: 43,2120 21062 CADR PINBRNCH
012092,000143:
012093,000144: 43,2121 31010 CHKPOOH CA MODREG # CHECK FOR POO OR POO-.
012094,000145: 43,2122 00006 EXTEND
012095,000146: 43,2123 16763 BZF TCQ
012096,000147: 43,2124 02116 TC ALM/END
012097,000148:
012098,000149: 43,2125 24100 OC24100 OCT 24100
012099,000150:
|
|
Page 278 |
012101,000152: # VBZERO VERB 40 DESCRIPTION
012102,000153:
012103,000154: # 1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
012104,000155: # 2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
012105,000156: # FOR N72, CHECK IF EITHER RADAR IS IN USE.
012106,000157: # 3. EXECUTE THE CDU ZERO.
012107,000158: # 4. STALL UNTILL THE ZERO IS DONE.
012108,000159: # 5. DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
012109,000160: # 6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
012110,000161:
012111,000162: 43,2126 02202 VBZERO TC OP/INERT
012112,000163: 43,2127 02131 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
012113,000164: 43,2130 02140 TC RRZEROK # RETURN HERE IF NOUN = RCDU(72)
012114,000165: 43,2131 02411 IMUZEROK TC CKMODCAD
012115,000166: 43,2132 04607 TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO
012116,000167: 43,2133 16701 CADR IMUZERO
012117,000168:
012118,000169: 43,2134 04607 TC BANKCALL # STALL
012119,000170: 43,2135 17735 CADR IMUSTALL
012120,000171: 43,2136 02137 TC +1
012121,000172:
012122,000173: 43,2137 02117 TC GOPIN # IMUZERO
012123,000174:
012124,000175: 43,2140 02653 RRZEROK TC RDRUSECK
012125,000176: 43,2141 04607 TC BANKCALL
012126,000177: 43,2142 52334 CADR RRZERO
012127,000178:
012128,000179: 43,2143 04607 RWAITK TC BANKCALL
012129,000180: 43,2144 17733 CADR RADSTALL
012130,000181: 43,2145 12146 TCF +1
012131,000182: 43,2146 02117 TC GOPIN # RRZERO
012132,000183:
012133,000184: # LRPOS2K VERB 59 DESCRIPTION
012134,000185: # COMMAND LANDING RADAR TO POSITION 2
012135,000186: # 1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
012136,000187: # 2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
012137,000188: # THE PRESCRIBED TIME.
012138,000189: # 3. RE-ESTABLISH THE DISPLAYS.
012139,000190:
012140,000191: 43,2147 30103 LRPOS2K CA FLAGWRD7
012141,000192: 43,2150 74740 MASK AVEGFBIT
012142,000193: 43,2151 00006 EXTEND
012143,000194: 43,2152 12161 BZF LRPOS2K1 # AVERAGE G NOT ON
012144,000195: 43,2153 40107 CS FLGWRD11
012145,000196: 43,2154 74726 MASK LRBYBIT
012146,000197: 43,2155 00006 EXTEND
012147,000198: 43,2156 12116 BZF ALM/END # IF AVE G ON AND NOT R12- OPERATOR ERROR
012148,000199: 43,2157 04626 TC POSTJUMP
012149,000200: 43,2160 53577 CADR V59GP63
012150,000201: 43,2161 02653 LRPOS2K1 TC RDRUSECK
|
|
Page 279 |
012152,000203: 43,2162 04607 TC BANKCALL
012153,000204: 43,2163 53566 CADR LRP2COMM # COMMAND LR TO POS2
012154,000205: # V61 VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
012155,000206:
012156,000207: 43,2164 05520 DAPATTER TC DOWNFLAG
012157,000208: 43,2165 00013 ADRES NEEDLFLG
012158,000209: 43,2166 12171 TCF TOTATTER +2
012159,000210:
012160,000211: # V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
012161,000212:
012162,000213: 43,2167 05506 TOTATTER TC UPFLAG
012163,000214: 43,2170 00013 ADRES NEEDLFLG
012164,000215: 43,2171 05520 +2 TC DOWNFLAG
012165,000216: 43,2172 00000 ADRES NEED2FLG
012166,000217: 43,2173 02117 TC GOPIN
012167,000218:
012168,000219: # V60 VERB 60, DISPLAY DAP ESTIMATED RATES ON FDAI ATTITUDE ERROR NEEDLES.
012169,000220:
012170,000221: 43,2174 05506 RATEDISP TC UPFLAG
012171,000222: 43,2175 00000 ADRES NEED2FLG
012172,000223: 43,2176 02117 TC GOPIN
012173,000224:
012174,000225:
012175,000226:
|
|
Page 280 |
012177,000228: # VBCOARK VERB 41 DESCRIPTION
012178,000229: # COARSE ALIGN IMU OR RADAR
012179,000230: # 1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
012180,000231: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
012181,000232: # CASE 1 NOUN 20 (ICDU ANGLES)
012182,000233: # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
012183,000234: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
012184,000235: # RESPONSES
012185,000236: # A. TERMINATE
012186,000237: # 1. RELEASE EXT VERB DISPLAY SYSTEM
012187,000238: # B. PROCEED
012188,000239: # 1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
012189,000240: # C. ENTER
012190,000241: # 1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
012191,000242: # ICORK2
012192,000243: # 1. RE-DISPLAY VERB 41.
012193,000244: # 2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
012194,000245: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
012195,000246: # 4. RELEASE EXT VERB DISPLAY SYSTEM.
012196,000247: # CASE 2 NOUN 72 (RCDU ANGLES)
012197,000248: # EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
012198,000249: # 5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
012199,000250: # RESPONSES
012200,000251: # A. TERMINATE
012201,000252: # 1. RELEASE EXT VERB DISPLAY SYS.
012202,000253: # B. PROCEED OR ENTER
012203,000254: # 1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
012204,000255: # 2. RE-DISPLAY VERB 41.
012205,000256: # 3. SCHEDULE RRDESK2 WITH PRIORITY 20.
012206,000257: # 4. RELEASE EXT VERB DISPLAY SYS.
012207,000258:
012208,000259: # AURLOKON
012209,000260:
012210,000261: # 1. FLASH V04 N12 R1 = 00006 R2 = 00002
012211,000262: # RESPONSES
012212,000263: # A. TERMINATE
012213,000264: # B. PROCEED
012214,000265: # 1. RESET LOCK-ON SWITCH
012215,000266: # 2. SET CONTINUOUS DESIGNATE FLAG
012216,000267: # 3. DISABLE R25
012217,000268: # C. V22 E 1 E, R1 = 00001, PROCEED
012218,000269: # 1. SET LOCK-ON SWITCH
012219,000270: 43,2177 02202 VBCOARK TC OP/INERT
012220,000271: 43,2200 02213 TC IMUCOARK # RETURN HERE IF NOUN = ICDU(20)
012221,000272: 43,2201 02235 TC RRDESNBK # RETURN HERE IF NOUN = RCDU(72)
012222,000273: # RETURNS TO L+1 IF IMU OR L+2 IF RR.
012223,000274:
012224,000275: 43,2202 46007 OP/INERT CS OCT24
012225,000276: 43,2203 61001 AD NOUNREG
012226,000277: 43,2204 00006 EXTEND
|
|
Page 281 |
012228,000279: 43,2205 16763 BZF TCQ # IF = 20.
012229,000280:
012230,000281: 43,2206 62212 AD RRIMUDIF # -52
012231,000282: 43,2207 00006 EXTEND
012232,000283: 43,2210 16760 BZF Q+1
012233,000284:
012234,000285: 43,2211 02116 TC ALM/END # ILLEGAL.
012235,000286:
012236,000287: 43,2212 77713 RRIMUDIF DEC -52 B-14 # THE IMU
012237,000288: 43,2213 02411 IMUCOARK TC CKMODCAD
012238,000289: 43,2214 02076 TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
012239,000290: 43,2215 32233 CAF VNLODCDU # CALL FOR THETAD LOAD
012240,000291: 43,2216 04607 TC BANKCALL
012241,000292: 43,2217 20323 CADR GOXDSPF
012242,000293: 43,2220 05474 TC TERMEXTV
012243,000294: 43,2221 12222 TCF +1
012244,000295:
012245,000296: 43,2222 32234 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
012246,000297: 43,2223 04607 TC BANKCALL
012247,000298: 43,2224 20632 CADR EXDSPRET
012248,000299:
012249,000300: 43,2225 04607 TC BANKCALL # CALL MODE SWITCHING PROG
012250,000301: 43,2226 16765 CADR IMUCOARS
012251,000302:
012252,000303: 43,2227 04607 TC BANKCALL # STALL
012253,000304: 43,2230 17735 CADR IMUSTALL
012254,000305: 43,2231 05474 TC ENDEXTVB
012255,000306: 43,2232 05474 TC ENDEXTVB
012256,000307:
012257,000308: 43,2233 06226 VNLODCDU VN 2522
012258,000309: 43,2234 12200 IMUCOARV VN 4100
012259,000310:
|
|
Page 282 |
012261,000312: # DESIGNATE TO DESIRED GIMBAL ANGLES.
012262,000313:
012263,000314: 43,2235 02653 RRDESNBK TC RDRUSECK
012264,000315: 43,2236 02076 TC TESTXACT
012265,000316: 43,2237 30110 RRWAIT CA RADMODES # IS A REMODE OR REPOSITION IN PROGRESS
012266,000317: 43,2240 77731 MASK BIT14&11
012267,000318: 43,2241 4727 REFTAG9 = REMODBIT
012268,000319: 43,2241 4732 REFTAG10 = REPOSBIT
012269,000320: 43,2241 00006 EXTEND
012270,000321: 43,2242 12246 BZF OKTOGO # NO - CONTINUE
012271,000322:
012272,000323: 43,2243 04607 TC BANKCALL # YES - WAIT UNTIL FINISHED TO PREVENT
012273,000324: 43,2244 01735 CADR 2SECDELY # CONFLICTS IN RR DESIGNATE
012274,000325: 43,2245 12237 TCF RRWAIT
012275,000326:
012276,000327: 43,2246 06027 OKTOGO TC CLRADMOD
012277,000328: 43,2247 32266 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
012278,000329: 43,2250 04607 TC BANKCALL
012279,000330: 43,2251 20323 CADR GOXDSPF
012280,000331: 43,2252 05474 TC TERMEXTV
012281,000332: 43,2253 12247 TCF -4 # V33
012282,000333:
012283,000334: 43,2254 04607 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
012284,000335: 43,2255 46000 CADR AURLOKON
012285,000336:
012286,000337: 43,2256 32234 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
012287,000338: 43,2257 04607 TC BANKCALL
012288,000339: 43,2260 20632 CADR EXDSPRET
012289,000340:
012290,000341: 43,2261 34727 CAF PRIO20
012291,000342: 43,2262 05076 TC FINDVAC
012292,000343: 43,2263 E7,1456 EBANK= LOSCOUNT
012293,000344: 43,2263 02267 66107 2CADR RRDESK2
012294,000345:
012295,000346:
012296,000347: 43,2265 15474 TCF TERMEXTV # FREES DISPLAY.
012297,000348:
012298,000349: 43,2266 06111 VNLDRCDU VN 2473
012299,000350: 43,2267 43,2234 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
012300,000351:
012301,000352: 43,2267 04607 RRDESK2 TC BANKCALL
012302,000353: 43,2270 52466 CADR RRDESNB
012303,000354:
012304,000355: 43,2271 02272 TC +1 # DUMMY NEEDED SINCE DESRETRN DOES INCR
012305,000356: 43,2272 30167 CA PRIORITY
012306,000357: 43,2273 74775 MASK LOW9
012307,000358: 43,2274 10000 CCS A
012308,000359: 43,2275 50000 INDEX A
012309,000360: 43,2276 54000 TS A # RELEASE THIS JOBS VAC AREA.
012310,000361: 43,2277 40000 COM # INSURE ENDOFJOB DOES A NOVAC END (BZMF).
|
|
Page 283 |
012312,000363: 43,2300 26167 ADS PRIORITY
012313,000364: 43,2301 04607 TC BANKCALL # WAIT FOR COMPLETION OF DESIGNATE
012314,000365: 43,2302 17733 CADR RADSTALL
012315,000366: 43,2303 02305 TC +2 # BADEND-NO LOCKON OR OUT OF LIMITS
012316,000367: 43,2304 05146 TC ENDOFJOB # GOODEND-LOCKON ACHIEVED
012317,000368: 43,2305 05571 TC ALARM
012318,000369: 43,2306 00503 OCT 503 # TURN ON ALARM LIGHT -503 DESIGNATE FAIL
012319,000370: 43,2307 05146 TC ENDOFJOB
012320,000371:
012321,000372:
012322,000373: 43,2310 10110 RRDESEND CCS RADMODES # TERMINATE CONTINUOUS DESIGNATE ONLY
012323,000374: 43,2311 12117 TCF GOPIN
012324,000375: 43,2312 12117 TCF GOPIN
012325,000376: 43,2313 12314 TCF +1
012326,000377: 43,2314 30110 REMODCHK CA RADMODES # CHECK FOR REMODE OR REPOSITION
012327,000378: 43,2315 77731 MASK BIT14&11
012328,000379: 43,2316 4727 REFTAG1 = REMODBIT
012329,000380: 43,2316 4732 REFTAG2 = REPOSBIT
012330,000381: 43,2316 00006 EXTEND
012331,000382: 43,2317 12324 BZF NOREMODE # NO
012332,000383:
012333,000384: 43,2320 34770 CAF 1SEC # YES- WAIT 1 SECOND AND CHECK AGAIN
012334,000385: 43,2321 04607 TC BANKCALL
012335,000386: 43,2322 01736 CADR DELAYJOB
012336,000387: 43,2323 02314 TC REMODCHK
012337,000388: 43,2324 06027 NOREMODE TC CLRADMOD
012338,000389: 43,2325 34770 CAF 1SEC
012339,000390: 43,2326 04607 TC BANKCALL
012340,000391: 43,2327 01736 CADR DELAYJOB
012341,000392: 43,2330 05520 TC DOWNFLAG # ENABLE R25 GIMBAL MONITOR
012342,000393: 43,2331 00126 ADRES NORRMON
012343,000394: 43,2332 12117 TCF GOPIN
012344,000395:
012345,000396: 43,2333 7731 BIT14&11 = PRIO22
012346,000397:
012347,000398:
012348,000399:
012349,000400: 23,2000 SETLOC EXTVB1
012350,000401: 23,2000 BANK
012351,000402: 23,2000 COUNT* $$/EXTVB
012352,000403:
012353,000404: 23,2000 04636 AURLOKON TC MAKECADR
012354,000405: 23,2001 55112 TS DESRET
012355,000406: 23,2002 34743 CAF TWO
012356,000407: 23,2003 55051 TS OPTIONX +1
012357,000408: 23,2004 36263 CAF SIX # OPTION CODE FOR V04N12
012358,000409: 23,2005 55050 TS OPTIONX
012359,000410:
012360,000411: 23,2006 32037 -5 CAF V04N1272
012361,000412: 23,2007 04607 TC BANKCALL # R2 00001 LOCK-ON
|
|
Page 284 |
012363,000414: 23,2010 20345 CADR GOMARKFR
012364,000415: 23,2011 15474 TCF ENDEXT # V34
012365,000416: 23,2012 12017 TCF +5 # V33
012366,000417: 23,2013 12006 TCF -5 # V32
012367,000418: 23,2014 34742 CAF BIT3
012368,000419: 23,2015 05466 TC BLANKET
012369,000420: 23,2016 05146 TC ENDOFJOB
012370,000421:
012371,000422: 23,2017 31051 +5 CA OPTIONX +1
012372,000423: 23,2020 74743 MASK BIT2
012373,000424: 23,2021 10000 CCS A
012374,000425: 23,2022 12026 TCF NOLOKON
012375,000426: 23,2023 05506 TC UPFLAG
012376,000427: 23,2024 00012 ADRES LOKONSW
012377,000428: 23,2025 12034 TCF AURLKON1
012378,000429:
012379,000430: 23,2026 05520 NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMODES TO
012380,000431: 23,2027 00012 ADRES LOKONSW # INDICATE THAT CONTINUOUS DESIGNATION IS
012381,000432: 23,2030 05506 TC UPFLAG # WANTED (TO BE TERMINATED BY V44.)
012382,000433: 23,2031 00264 ADRES CDESFLAG
012383,000434: 23,2032 05506 TC UPFLAG # SET NO RR ANGLE MONITOR FLAG.
012384,000435: 23,2033 00126 ADRES NORRMON # (DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
012385,000436: 23,2034 00003 AURLKON1 RELINT
012386,000437: 23,2035 31112 CA DESRET
012387,000438: 23,2036 14631 TCF BANKJUMP
012388,000439:
012389,000440:
012390,000441: 23,2037 01014 V04N1272 VN 412
012391,000442: 23,2040 77757 -LOKONFG OCT -20
012392,000443:
012393,000444: 43,2333 BANK 43
012394,000445: 43,2000 SETLOC EXTVERBS
012395,000446: 43,2000 BANK
012396,000447: 43,2333 COUNT* $$/EXTVB
012397,000448:
012398,000449: 43,2333 05506 LRON TC UPFLAG # PERMIT INCORPORATION OF LR DATA V57
012399,000450: 43,2334 00254 ADRES LRINH
012400,000451: 43,2335 02117 TC GOPIN
012401,000452:
012402,000453: 43,2336 05520 LROFF TC DOWNFLAG # INHIBIT INCORPORATION OF LR DATA V58
012403,000454: 43,2337 00254 ADRES LRINH
012404,000455: 43,2340 02117 TC GOPIN
012405,000456:
012406,000457: 43,2341 05506 TEROFF TC UPFLAG # BYPASS TERRAIN MODEL
012407,000458: 43,2342 00023 ADRES NOTERFLG
012408,000459: 43,2343 12117 TCF GOPIN
012409,000460:
012410,000461:
012411,000462: 43,2344 E5,1737 EBANK= OGC
012412,000463:
|
|
Page 285 |
012414,000465: # IMUFINEK VERB 42 DESCRIPTION
012415,000466: # FINE ALIGN IMU
012416,000467: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
012417,000468: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
012418,000469: # RESPONSES
012419,000470: # A. TERMINATE
012420,000471: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
012421,000472: # B. PROCEED OR ENTER
012422,000473: # 1. RE-DISPLAY VERB 42
012423,000474: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
012424,000475: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
012425,000476: # A. FAILED
012426,000477: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
012427,000478: # B. GOOD
012428,000479: # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
012429,000480: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
012430,000481:
012431,000482: 43,2344 02411 IMUFINEK TC CKMODCAD
012432,000483: 43,2345 02076 TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
012433,000484: 43,2346 32373 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
012434,000485: 43,2347 04607 TC BANKCALL
012435,000486: 43,2350 20323 CADR GOXDSPF
012436,000487: 43,2351 05474 TC TERMEXTV
012437,000488: 43,2352 02353 TC +1 # PROCEED WITHOUT A LOAD
012438,000489:
012439,000490: 43,2353 32374 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
012440,000491: 43,2354 04607 TC BANKCALL
012441,000492: 43,2355 20632 CADR EXDSPRET
012442,000493:
012443,000494: 43,2356 04607 TC BANKCALL # CALL MODE SWITCH PROG
012444,000495: 43,2357 17175 CADR IMUFINE
012445,000496:
012446,000497: 43,2360 04607 TC BANKCALL # HIBERNATION
012447,000498: 43,2361 17735 CADR IMUSTALL
012448,000499: 43,2362 05474 TC ENDEXTVB
012449,000500:
012450,000501: 43,2363 32372 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
012451,000502: 43,2364 04607 TC BANKCALL
012452,000503: 43,2365 17310 CADR IMUPULSE
012453,000504:
012454,000505: 43,2366 04607 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
012455,000506: 43,2367 17735 CADR IMUSTALL
012456,000507: 43,2370 05474 TC ENDEXTVB
012457,000508: 43,2371 05474 TC ENDEXTVB
012458,000509:
012459,000510: 43,2372 02737 LGYROBIN ECADR OGC
012460,000511: 43,2373 06335 VNLODGYR VN 2593
012461,000512: 43,2374 12400 IMUFINEV VN 4200
012462,000513: # GOLOADLV VERB 50 DESCRIPTION
012463,000514: # AND OTHER PLEASE
|
|
Page 286 |
012465,000516: # DO SOMETHING VERBS
012466,000517: # PLEASE PERFORM, MARK, CALIBRATE, ETC.
012467,000518: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
012468,000519: # SAME RECALL AS A COMPLETED LOAD.
012469,000520: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
012470,000521:
012471,000522: 43,2375 40,2000 SBANK= PINSUPER # FOR LOADLV1 AND SHOWSUM CADR'S.
012472,000523:
012473,000524: 43,2375 04424 GOLOADLV TC FLASHOFF
012474,000525:
012475,000526: 43,2376 34172 CAF PINSUPBT
012476,000527: 43,2377 00006 EXTEND
012477,000528: 43,2400 01007 WRITE SUPERBNK
012478,000529: 43,2401 04626 TC POSTJUMP
012479,000530: 43,2402 62021 CADR LOADLV1
012480,000531: # VERB 47 - AGS INITIALIZATION - R47.
012481,000532:
012482,000533: # SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
012483,000534:
012484,000535: 43,2403 02076 V47TXACT TC TESTXACT # NO OTHER EXTVERB.
012485,000536: 43,2404 34731 CAF PRIO4
012486,000537: 43,2405 05076 TC FINDVAC
012487,000538: 43,2406 E6,1771 EBANK= AGSK
012488,000539: 43,2406 02005 64066 2CADR AGSINIT
012489,000540:
012490,000541: 43,2410 05146 TC ENDOFJOB
012491,000542:
012492,000543: 43,2411 31301 CKMODCAD CA MODECADR
012493,000544: 43,2412 00006 EXTEND
012494,000545: 43,2413 16763 BZF TCQ
012495,000546: 43,2414 02116 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT
012496,000547:
|
|
Page 287 |
012498,000549: # ALINTIME VERB 55 DESCRIPTION
012499,000550: # REQUIRE POO OR POO-.
012500,000551: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012501,000552: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
012502,000553: # 3. REQUIRE EXECUTION OF VERB 23.
012503,000554: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
012504,000555: # 5. RELEASE EXT VERB DISPLAY SYSTEM
012505,000556:
012506,000557: 43,2415 02076 ALINTIME TC TESTXACT
012507,000558: 43,2416 04626 TC POSTJUMP # NO ROOM IN 43
012508,000559: 43,2417 64002 CADR R33
012509,000560:
012510,000561: 42,2002 BANK 42
012511,000562: 42,2000 SETLOC SBAND
012512,000563: 42,2000 BANK
012513,000564: 42,2002 COUNT* $$/R33
012514,000565:
012515,000566: 42,2002 35012 R33 CAF PRIO7
012516,000567: 42,2003 05137 TC PRIOCHNG
012517,000568: 42,2004 32034 CAF VNLODDT
012518,000569: 42,2005 04607 TC BANKCALL
012519,000570: 42,2006 20323 CADR GOXDSPF
012520,000571: 42,2007 05474 TC ENDEXT # TERMINATE
012521,000572: 42,2010 05474 TC ENDEXT # PROCEED
012522,000573: 42,2011 42033 CS DEC23 # DATA IN OR RESEQUENCE(UNLIKELY)
012523,000574: 42,2012 60154 AD MPAC # RECALL LEFT VERB IN MPAC
012524,000575: 42,2013 00006 EXTEND
012525,000576: 42,2014 12016 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
012526,000577: 42,2015 05474 TC ENDEXT # WITH V23 (DATA IN).
012527,000578:
012528,000579: 42,2016 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
012529,000580: 42,2017 34746 CAF ZERO
012530,000581: 42,2020 54156 TS MPAC +2 # NEEDED FOR TP AGREE
012531,000582: 42,2021 54001 TS L # ZERO T1 + 2 WHILE ALIGNING.
012532,000583: 42,2022 52025 DXCH TIME2
012533,000584: 42,2023 52155 DXCH MPAC
012534,000585: 42,2024 53051 DXCH DSPTEM2 +1 # INCREMENT
012535,000586: 42,2025 20155 DAS MPAC
012536,000587:
012537,000588: 42,2026 07300 TC TPAGREE # FORCE SIGN AGREEMENT.
012538,000589: 42,2027 52155 DXCH MPAC # NEW CLOCK.
012539,000590: 42,2030 20025 DAS TIME2
012540,000591: 42,2031 00003 RELINT
012541,000592: 42,2032 05474 UPDTMEND TC ENDEXT
012542,000593:
012543,000594: 42,2033 00027 DEC23 DEC 23 B-14 # V 23
012544,000595:
012545,000596: 42,2034 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
012546,000597:
|
|
Page 288 |
012548,000599: # SET UP FOR RADAR SAMPLING.
012549,000600:
012550,000601: 42,2035 BANK 42
012551,000602: 43,2000 SETLOC EXTVERBS
012552,000603: 43,2000 BANK
012553,000604:
012554,000605: 43,2420 E4,1571 EBANK= RSTACK
012555,000606:
012556,000607: 43,2420 COUNT* $$/R0477
012557,000608:
012558,000609: 43,2420 02653 R77 TC RDRUSECK # TRY TO AVOID THE 1210.
012559,000610: 43,2421 30077 CA FLAGWRD3 # IS R04 RUNNING?
012560,000611: 43,2422 74734 MASK R04FLBIT
012561,000612: 43,2423 10000 CCS A
012562,000613: 43,2424 02116 TC ALM/END # YES.
012563,000614: 43,2425 05506 TC UPFLAG
012564,000615: 43,2426 00117 ADRES R77FLAG
012565,000616: 43,2427 12434 TCF R04Z
012566,000617:
012567,000618: 43,2430 02653 R04 TC RDRUSECK # TRY TO AVOID THE 1210.
012568,000619: 43,2431 02076 TC TESTXACT
012569,000620: 43,2432 05506 TC UPFLAG
012570,000621: 43,2433 00063 ADRES R04FLAG # SET R04FLAG FOR ALARMS
012571,000622:
012572,000623: 43,2434 34732 R04Z CAF EBANK4
012573,000624: 43,2435 54003 TS EBANK
012574,000625: 43,2436 32651 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
012575,000626: 43,2437 55770 TS RSAMPDT
012576,000627: 43,2440 34746 CAF ZERO
012577,000628: 43,2441 55767 TS RTSTLOC
012578,000629: 43,2442 55566 TS RFAILCNT # ZERO BAD SAMPLE COUNTER
012579,000630:
012580,000631: 43,2443 00004 INHINT
012581,000632: 43,2444 42652 CS LRPOSCAL # INITIALIZE
012582,000633: 43,2445 70110 MASK RADMODES # BIT9 LR RANGE LOW SCALE =0
012583,000634: 43,2446 54110 TS RADMODES # BIT6 LR POS 1 =0
012584,000635: 43,2447 32652 CAF LRPOSCAL # BIT3 RR RANGE LOW SCALE =0
012585,000636: 43,2450 00006 EXTEND
012586,000637: 43,2451 02033 RAND CHAN33
012587,000638: 43,2452 26110 ADS RADMODES
012588,000639: 43,2453 00003 RELINT
012589,000640:
012590,000641: 43,2454 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
012591,000642: 43,2455 74734 MASK R04FLBIT
012592,000643: 43,2456 10000 CCS A
012593,000644: 43,2457 12606 TCF R04K
012594,000645:
012595,000646: 43,2460 34744 CAF ONE # INDICATES RENDEZVOUS DESIRED
012596,000647: 43,2461 55051 TS OPTIONX +1
012597,000648: 43,2462 34742 R04A CAF BIT3 # OPTION CODE FOR V04N12
012598,000649:
|
|
Page 289 |
012600,000651: 43,2463 55050 TS OPTIONX
012601,000652: 43,2464 32646 CAF V04N12X
012602,000653: 43,2465 04607 TC BANKCALL # R2 00001 RENDEZVOUS RADAR
012603,000654: 43,2466 20345 CADR GOMARKFR # 00002 LANDING RADAR
012604,000655: 43,2467 12614 TCF R04END # V34
012605,000656: 43,2470 12475 TCF +5 # V33
012606,000657: 43,2471 12464 TCF R04A +2 # R2
012607,000658: 43,2472 34742 CAF BIT3
012608,000659: 43,2473 05466 TC BLANKET
012609,000660: 43,2474 05146 TC ENDOFJOB
012610,000661:
012611,000662: 43,2475 31051 CA OPTIONX +1 # SAVE DESIRED OPTION RR =1 LR =2
012612,000663: 43,2476 55764 TS RTSTDEX
012613,000664:
012614,000665: 43,2477 36263 R04X CAF SIX # RR OR LR DESIRED
012615,000666: 43,2500 71764 MASK RTSTDEX
012616,000667: 43,2501 10000 CCS A
012617,000668: 43,2502 12610 TCF R04L # LANDING RADAR
012618,000669: 43,2503 55766 TS RTSTBASE # FOR RR BASE = 0, MAX = 1
012619,000670:
012620,000671: 43,2504 34743 R04B CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
012621,000672: 43,2505 00006 EXTEND
012622,000673: 43,2506 02033 RAND CHAN33
012623,000674: 43,2507 00006 EXTEND
012624,000675: 43,2510 12521 BZF R04C # YES
012625,000676:
012626,000677: 43,2511 32650 CAF 201R04 # REQUEST SELECTION OF RR AUTO MODE
012627,000678: 43,2512 55044 TS DSPTEM1
012628,000679: 43,2513 32647 CAF V50N25X
012629,000680: 43,2514 04607 TC BANKCALL
012630,000681: 43,2515 20337 CADR GOMARK4
012631,000682: 43,2516 12614 TCF R04END # V34
012632,000683: 43,2517 12504 TCF R04B # V33
012633,000684: 43,2520 12511 TCF -7 # E
012634,000685:
012635,000686: 43,2521 34727 R04C CAF BIT14 # ENABLE RR AUTO TRACKER
012636,000687: 43,2522 00006 EXTEND
012637,000688: 43,2523 05012 WOR CHAN12
012638,000689:
012639,000690: 43,2524 34743 CAF TWO
012640,000691: 43,2525 55765 TS RTSTMAX # FOR SEQUENTIAL STORAGE
012641,000692:
012642,000693: 43,2526 05205 TC WAITLIST
012643,000694: 43,2527 E4,1571 EBANK= RSTACK
012644,000695: 43,2527 02162 32104 2CADR RADSAMP
012645,000696:
012646,000697: 43,2531 00003 RELINT
012647,000698:
012648,000699: 43,2532 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
012649,000700: 43,2533 74734 MASK R04FLBIT
|
|
Page 290 |
012651,000702: 43,2534 10000 CCS A
012652,000703: 43,2535 12117 TCF GOPIN # R77
012653,000704:
012654,000705: 43,2536 36263 CAF SIX # RR OR LR
012655,000706: 43,2537 71764 MASK RTSTDEX
012656,000707: 43,2540 10000 CCS A
012657,000708: 43,2541 12556 TCF R04LR # LR
012658,000709:
012659,000710: 43,2542 32642 R04RR CAF V16N72 # DISPLAY RR CDU ANGLES (1/SEC)
012660,000711: 43,2543 04607 TC BANKCALL # R1 + XXX.XX DEG TRUNNION
012661,000712: 43,2544 20323 CADR GOMARKF # R2 + XXX.XX DEG SHAFT
012662,000713: 43,2545 12614 TCF R04END # V34 R3 BLANK
012663,000714: 43,2546 12550 TCF +2 # V33
012664,000715: 43,2547 12542 TCF R04RR # V32
012665,000716:
012666,000717: 43,2550 32643 CAF V16N78 # DISPLAY RR RANGE AND RANGE RATE (1/SEC)
012667,000718: 43,2551 04607 TC BANKCALL # R1 +- XXX.XX NM RANGE
012668,000719: 43,2552 20323 CADR GOMARKF # R2 +- XXXX.X FPS RANGE RATE
012669,000720: 43,2553 12614 TCF R04END # V34 R3 BLANK
012670,000721: 43,2554 12572 TCF R04Y # V33
012671,000722: 43,2555 12542 TCF R04RR # V32
012672,000723:
012673,000724: 43,2556 32644 R04LR CAF V16N66 # DISPLAY LR RANGE AND POSITION (1/SEC)
012674,000725: 43,2557 04607 TC BANKCALL # R1 +- XXXXX. FT LR RANGE
012675,000726: 43,2560 20323 CADR GOMARKF # R2 + 0000X. POS. NO.
012676,000727: 43,2561 12614 TCF R04END # V34 R3 BLANK
012677,000728: 43,2562 12564 TCF +2 # V33
012678,000729: 43,2563 12556 TCF R04LR # V32
012679,000730:
012680,000731: 43,2564 32645 CAF V16N67 # DISPLAY LR VELX, VELY, VELZ (1/SEC)
012681,000732: 43,2565 04607 TC BANKCALL # R1 +- XXXXX. FPS LR V(X)
012682,000733: 43,2566 20323 CADR GOMARKF # R2 +- XXXXX. FPS LR V(Y)
012683,000734: 43,2567 12614 TCF R04END # V34 R3 +- XXXXX. FPS LR V(Z)
012684,000735: 43,2570 12572 TCF R04Y # V33
012685,000736: 43,2571 12556 TCF R04LR # V32
012686,000737:
012687,000738: 43,2572 34746 R04Y CAF ZERO # TO TERMINATE SAMPLING
012688,000739: 43,2573 55770 TS RSAMPDT
012689,000740: 43,2574 04607 TC BANKCALL
012690,000741: 43,2575 01735 CADR 2SECDELY # WAIT FOR LAST RADARUPT
012691,000742: 43,2576 32651 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
012692,000743: 43,2577 55770 TS RSAMPDT
012693,000744: 43,2600 34746 CAF ZERO # FOR STORING RESULTS
012694,000745: 43,2601 55767 TS RTSTLOC
012695,000746: 43,2602 11766 CCS RTSTBASE # CHECK WHICH RADAR HAD BEEN SAMPLED
012696,000747: 43,2603 44744 CS ONE # WAS LR
012697,000748: 43,2604 64743 AD TWO # WAS RR
012698,000749: 43,2605 12476 TCF R04X -1
012699,000750:
012700,000751: 43,2606 34757 R04K CAF 250MS+1 # SAMPLE 4 LR COMPONENTS PER SECOND.
|
|
Page 291 |
012702,000753: 43,2607 55770 TS RSAMPDT
012703,000754:
012704,000755: 43,2610 34743 R04L CAF TWO
012705,000756: 43,2611 55766 TS RTSTBASE # FOR LR BASE = 2, MAX = 3
012706,000757: 43,2612 36263 CAF SIX
012707,000758: 43,2613 12525 TCF R04C +4
012708,000759: 43,2614 34746 R04END CAF ZERO # ZERO RSAMPDT
012709,000760: 43,2615 55770 TS RSAMPDT # TO TERMINATE SAMPLING
012710,000761: 43,2616 34735 CAF BIT8 # WAIT 1.28 SECONDS FOR POSSIBLE
012711,000762: 43,2617 04607 TC BANKCALL # PENDING RUPT.
012712,000763: 43,2620 01736 CADR DELAYJOB
012713,000764:
012714,000765: 43,2621 00004 INHINT
012715,000766: 43,2622 44727 CS BIT14 # DISABLE RR AUTO TRACKER
012716,000767: 43,2623 00006 EXTEND
012717,000768: 43,2624 03012 WAND CHAN12
012718,000769:
012719,000770: 43,2625 05520 TC DOWNFLAG
012720,000771: 43,2626 00063 ADRES R04FLAG # SIGNAL END OF R04.
012721,000772:
012722,000773: 43,2627 05474 TC ENDEXT
012723,000774:
012724,000775: 43,2630 34732 R77END CAF EBANK4 # TO TERMINATE SAMPLING
012725,000776: 43,2631 54003 TS EBANK
012726,000777: 43,2632 34746 CAF ZERO
012727,000778: 43,2633 55770 TS RSAMPDT
012728,000779: 43,2634 34737 CAF BIT6 # WAIT 320 MS FOR POSSIBLE
012729,000780: 43,2635 04607 TC BANKCALL # PENDING RUPT.
012730,000781: 43,2636 01736 CADR DELAYJOB
012731,000782:
012732,000783: 43,2637 05520 TC DOWNFLAG
012733,000784: 43,2640 00117 ADRES R77FLAG
012734,000785: 43,2641 12117 TCF GOPIN
012735,000786:
012736,000787: 43,2642 04110 V16N72 VN 1672
012737,000788: 43,2643 04116 V16N78 VN 1678
012738,000789: 43,2644 04102 V16N66 VN 1666
012739,000790: 43,2645 04103 V16N67 VN 1667
012740,000791: 43,2646 01014 V04N12X VN 412
012741,000792: 43,2647 14431 V50N25X VN 5025
012742,000793: 43,2650 00201 201R04 OCT 00201
012743,000794: 43,2651 00145 1SEC+1 DEC 101 B-14
012744,000795: 43,2652 4757 250MS+1 EQUALS CALLCODE
012745,000796: 43,2652 00444 LRPOSCAL OCT 444
012746,000797:
|
|
Page 292 |
012748,000799: 43,2653 30101 RDRUSECK CA FLAGWRD5 # IS R77 RUNNING?
012749,000800: 43,2654 74732 MASK R77FLBIT
012750,000801: 43,2655 10000 CCS A
012751,000802: 43,2656 02116 TC ALM/END # YES.
012752,000803: 43,2657 40103 CS FLAGWRD7 # IS SERVICER RUNNING AND HENCE POSSIBLY
012753,000804: 43,2660 74737 MASK V37FLBIT # R12 USING THE LR?
012754,000805: 43,2661 10000 CCS A
012755,000806: 43,2662 12667 TCF CHECKRR # NO
012756,000807: 43,2663 30107 CA FLGWRD11 # YES, IS R12 ON?
012757,000808: 43,2664 74726 MASK LRBYBIT # BIT 15
012758,000809: 43,2665 00006 EXTEND
012759,000810: 43,2666 12116 BZF ALM/END # YES
012760,000811: 43,2667 40075 CHECKRR CS FLAGWRD1 # IS THE TRACK FLAG SET AND HENCE POSSIBLY
012761,000812: 43,2670 74740 MASK TRACKBIT # P20 USING THE RR?
012762,000813: 43,2671 10000 CCS A
012763,000814: 43,2672 00002 TC Q # NOT ALLOWED DURING P20
012764,000815: 43,2673 02116 TC ALM/END # P22 OR P25, (R65)
012765,000816: 43,2674 COUNT* $$/EXTVB
012766,000817:
012767,000818: 43,2674 02076 VB64 TC TESTXACT # IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
012768,000819: 43,2675 34731 CAF PRIO4
012769,000820: 43,2676 05076 TC FINDVAC
012770,000821: 43,2677 E4,1571 EBANK= ALPHASB
012771,000822: 43,2677 03617 64104 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES.
012772,000823:
012773,000824: 43,2701 05146 TC ENDOFJOB
012774,000825:
|
|
Page 293 |
012776,000827: # IMUATTCK VERB 43 DESCRIPTION
012777,000828: # LOAD IMU ATTITUDE ERROR METERS
012778,000829: # 1. REQUIRE POO OR FRESH START.
012779,000830: # 2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
012780,000831: # 3. REQUIRE THAT NEEDLES BE OFF.
012781,000832: # 4. REQUEST LOAD OF N22 (VAUES TO BE DISPLAYED).
012782,000833: # 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
012783,000834:
012784,000835: 43,2702 02121 IMUATTCK TC CHKPOOH # VB 76 - LOAD IMU ATT. ERROR METERS
012785,000836:
012786,000837: 43,2703 34754 CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU
012787,000838: 43,2704 00006 EXTEND # CDUS BITS ARE ON
012788,000839: 43,2705 02012 RAND CHAN12
012789,000840: 43,2706 10000 CCS A
012790,000841: 43,2707 12116 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
012791,000842:
012792,000843: 43,2710 34346 CAF BIT13-14 # BOTH BITS 13 AND 14 MUST BE 1
012793,000844: 43,2711 00006 EXTEND # INDICATING THE MODE SELECTED IS OFF.
012794,000845: 43,2712 06031 RXOR CHAN31
012795,000846: 43,2713 74346 MASK BIT13-14
012796,000847: 43,2714 00006 EXTEND
012797,000848: 43,2715 12717 BZF +2 # NEEDLES IS OFF.
012798,000849: 43,2716 12116 TCF ALM/END # EXIT. NEEDLES IS ON.
012799,000850:
012800,000851: 43,2717 02076 TC TESTXACT
012801,000852:
012802,000853: 43,2720 32233 CAF VNLODCDU
012803,000854: 43,2721 04607 TC BANKCALL
012804,000855: 43,2722 20323 CADR GOXDSPF
012805,000856: 43,2723 05474 TC ENDEXT # V34
012806,000857: 43,2724 02725 TC +1
012807,000858: 43,2725 32740 CAF V43K # REDISPLAY OUR VERB.
012808,000859: 43,2726 04607 TC BANKCALL
012809,000860: 43,2727 20632 CADR EXDSPRET
012810,000861: 43,2730 34737 CAF BIT6
012811,000862: 43,2731 00006 EXTEND
012812,000863: 43,2732 05012 WOR CHAN12 # ENABLE ERROR COUNTERS.
012813,000864: 43,2733 34743 CAF TWO
012814,000865: 43,2734 05205 TC WAITLIST # PUT OUT COMMANDS IN .32 SECONDS.
012815,000866: 43,2735 0321 EBANK= THETAD
012816,000867: 43,2735 02035 64100 2CADR ATTCK2
012817,000868:
012818,000869: 43,2737 15474 TCF ENDEXT
012819,000870:
012820,000871: 42,2035 BANK 42
012821,000872: 42,2000 SETLOC PINBALL3 # SOMETHING IN B42.
012822,000873: 42,2000 BANK
012823,000874:
012824,000875: 42,2035 COUNT* $$/EXTVB
|
|
Page 294 |
012826,000877: 42,2035 34743 ATTCK2 CAF TWO # PUT OUT COMMANDS.
012827,000878: 42,2036 54002 +1 TS Q # CDU WILL LIMIT EXCESS DATA.
012828,000879: 42,2037 50000 INDEX A
012829,000880: 42,2040 30321 CA THETAD
012830,000881: 42,2041 00006 EXTEND
012831,000882: 42,2042 72053 MP ATTSCALE
012832,000883: 42,2043 50002 INDEX Q
012833,000884: 42,2044 56050 XCH CDUXCMD
012834,000885: 42,2045 10002 CCS Q
012835,000886: 42,2046 12036 TCF ATTCK2 +1
012836,000887:
012837,000888: 42,2047 37761 CAF 13,14,15
012838,000889: 42,2050 00006 EXTEND
012839,000890: 42,2051 05014 WOR CHAN14
012840,000891: 42,2052 15263 TCF TASKOVER # LEAVE ERROR COUNTERS ENABLED.
012841,000892:
012842,000893: 42,2053 03146 ATTSCALE DEC 0.1
012843,000894:
012844,000895: 07,2607 BANK 7
012845,000896: 43,2000 SETLOC EXTVERBS
012846,000897: 43,2000 BANK
012847,000898:
012848,000899: 43,2740 COUNT* $$/EXTVB
012849,000900:
012850,000901: 43,2740 12600 V43K VN 4300
012851,000902: # V82PERF VERB 82 DESCRIPTION
012852,000903: # REQUEST ORBIT PARAMETERS DISPLAY (R30)
012853,000904: # 1. IF AVERAGE G IS OFF:
012854,000905: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
012855,000906: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
012856,000907: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
012857,000908: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
012858,000909: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
012859,000910: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
012860,000911: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
012861,000912: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
012862,000913: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
012863,000914: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
012864,000915: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
012865,000916: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
012866,000917: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
012867,000918: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
012868,000919:
012869,000920: # 2. IF AVERAGE G IS ON:
012870,000921: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
012871,000922: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
012872,000923: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
012873,000924: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
012874,000925: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
012875,000926: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
012876,000927:
|
|
Page 295 |
012878,000929: 43,2741 02076 V82PERF TC TESTXACT
012879,000930:
012880,000931: 43,2742 35012 CAF PRIO7 # LESS THAN LAMBERT. R30,V82
012881,000932: 43,2743 05137 TC PRIOCHNG
012882,000933: 43,2744 00006 EXTEND
012883,000934: 43,2745 32750 DCA V82CON
012884,000935: 43,2746 05167 TC SUPDXCHZ # V82CALL IN DIFF SUPERBANK FROM V82PERF
012885,000936:
012886,000937: 43,2747 E4,1707 EBANK= HAPO
012887,000938: 43,2747 03244 44104 V82CON 2CADR V82CALL
012888,000939:
012889,000940: # VB83PERF VERB 83 DESCRIPTION
012890,000941: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
012891,000942: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012892,000943: # 2. SCHEDULE R31CALL WITH PRIORITY 5.
012893,000944: # A. DISPLAY
012894,000945: # R1 RANGE
012895,000946: # R2 RANGE RATE
012896,000947: # R3 THETA
012897,000948:
012898,000949: 43,2751 02076 V83PERF TC TESTXACT
012899,000950:
012900,000951: 43,2752 34743 CAF BIT2
012901,000952: 43,2753 05205 TC WAITLIST
012902,000953: 43,2754 E7,1611 EBANK= TSTRT
012903,000954: 43,2754 03741 60107 2CADR R31CALL
012904,000955:
012905,000956: 43,2756 05146 TC ENDOFJOB
012906,000957:
012907,000958: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
012908,000959:
012909,000960: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
012910,000961: # DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
012911,000962:
012912,000963: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
012913,000964: # EXIT R63, OTHERWISE CONTINUE.
012914,000965:
012915,000966: # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
012916,000967: # ORIENTATION KNOWN TO LGC, CONTINUE.
012917,000968:
012918,000969: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
012919,000970: # BE POINTED AT CSM. INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
012920,000971: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
012921,000972: # AFTER KEYING IN PROCEED.
012922,000973:
012923,000974: # 4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
012924,000975:
012925,000976: # 5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
|
|
Page 296 |
012927,000978: # HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
012928,000979: # PREPARED FOR VECPOINT.
012929,000980:
012930,000981: # 6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
012931,000982: # BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
012932,000983:
012933,000984: # 7. RECYCLE - RETURN TO STEP 4.
012934,000985: # TERMINATE - EXIT R63.
012935,000986: # PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
012936,000987:
012937,000988:
012938,000989: 43,2757 02121 V89PERF TC CHKPOOH
012939,000990: 43,2760 02076 TC TESTXACT
012940,000991: 43,2761 34730 CAF PRIO10
012941,000992: 43,2762 05076 TC FINDVAC
012942,000993: 43,2763 E4,1577 EBANK= RONE
012943,000994: 43,2763 02024 54104 2CADR V89CALL
012944,000995:
012945,000996: 43,2765 05146 TC ENDOFJOB
012946,000997:
012947,000998: # V90PERF VERB 90 DESCRIPTION
012948,000999: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
012949,001000: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012950,001001: # 2. SCHEDULE R36 CALL WITH PRIORITY 10
012951,001002: # A. DISPLAY
012952,001003: # TIME OF EVENT - HOURS , MINUTES , SECONDS
012953,001004: # Y OUT-OF-PLANE POSITION - NAUTICAL MILES
012954,001005: # YDOT OUT-OF-PLANE VELOCITY - FEET/SECOND
012955,001006: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
012956,001007: # DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
012957,001008:
012958,001009: 43,2766 40103 V90PERF CS FLAGWRD7
012959,001010: 43,2767 74737 MASK V37FLBIT
012960,001011: 43,2770 00006 EXTEND
012961,001012: 43,2771 12116 BZF ALM/END # AVERAGE G ON: ILL EAGLE
012962,001013: 43,2772 02076 TC TESTXACT
012963,001014: 43,2773 35012 CAF PRIO7 # R36,V90
012964,001015: 43,2774 05076 TC FINDVAC
012965,001016: 43,2775 E7,1441 EBANK= TIG
012966,001017: 43,2775 02677 10107 2CADR R36
012967,001018:
012968,001019: 43,2777 15146 TCF ENDOFJOB
012969,001020: # MINIMP VERB 76 DESCRIPTION
012970,001021: # MINIMUM IMPULSE MODE
012971,001022: # 1. SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
012972,001023:
012973,001024: 43,3000 05506 MINIMP TC UPFLAG # SET PULSES = 1 (MIN. IMPULSE MODE)
012974,001025: 43,3001 00303 ADRES PULSEFLG
012975,001026: 43,3002 12117 TCF GOPIN # RETURN VIA PINBRNCH
012976,001027:
|
|
Page 297 |
012978,001029: # NOMINIMP VERB 77 DESCRIPTION
012979,001030: # RATE COMMAND MODE
012980,001031: # 1. SET MINIMUM IMPULSE RHC MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
012981,001032: # 2. MOVE CDUX,CDUY,CDUZ INTO CDUXD,CDUYD,CDUZD.
012982,001033:
012983,001034: 43,3003 05520 NOMINIMP TC DOWNFLAG # SET PULSES = 0 (NOT MINIMUM IMPULSE MODE
012984,001035: 43,3004 00303 ADRES PULSEFLG
012985,001036: 43,3005 00004 INHINT
012986,001037: 43,3006 04665 TC IBNKCALL
012987,001038: 43,3007 40154 CADR ZATTEROR
012988,001039: 43,3010 02117 TC GOPIN
012989,001040:
|
|
Page 298 |
012991,001042: # CREWMANU VERB 49 DESCRIPTION
012992,001043: # START AUTOMATIC ATTITUDE MANEUVER
012993,001044: # 1. REQUIRE PROGRAM 00 ACTIVE.
012994,001045: # 2. SET EXT VERB DISPLAY BUSY FLAG.
012995,001046: # 3. SCHEDULE R62DISP WITH PRIORITY 10.
012996,001047: # 4. RELEASE EXT VERB DISPLAY.
012997,001048:
012998,001049: # R62DISP
012999,001050: # 1. DISPLAY FLASHING V06,N22.
013000,001051: # RESPONSES
013001,001052: # A. TERMINATE
013002,001053: # 1. GO TO GOTOPOOH.
013003,001054: # B. PROCEED
013004,001055: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
013005,001056: # 2. EXECUTE R60LEM (ATTITUDE MANEUVER).
013006,001057: # C. ENTER
013007,001058: # 1. REPEAT FLASHING V06,N22.
013008,001059:
013009,001060: 43,3011 02121 CREWMANU TC CHKPOOH # DEMAND POO
013010,001061:
013011,001062: 43,3012 02076 TC TESTXACT
013012,001063:
013013,001064: 43,3013 34730 CAF PRIO10
013014,001065: 43,3014 05076 TC FINDVAC
013015,001066: 43,3015 E6,1675 EBANK= BCDU
013016,001067: 43,3015 02103 46106 2CADR R62DISP
013017,001068:
013018,001069: 43,3017 05146 TC ENDOFJOB
013019,001070:
|
|
Page 299 |
013021,001072: # TRMTRACK VERB 56 DESCRIPTION
013022,001073: # TERMINATE TRACKING (P20 AND P25).
013023,001074: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
013024,001075: # 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
013025,001076: # 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
013026,001077:
013027,001078: # V56TOVAC
013028,001079: # 1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
013029,001080: # 2. ZERO GROUP 2 TO HALT P20.
013030,001081: # 3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
013031,001082:
013032,001083: 43,3020 36017 TRMTRACK CA BITS9+7 # IS REND OR P25 FLAG ON
013033,001084: 43,3021 70074 MASK FLAGWRD0
013034,001085: 43,3022 00006 EXTEND
013035,001086: 43,3023 12117 BZF GOPIN # NO
013036,001087:
013037,001088: 43,3024 05520 TC DOWNFLAG # ENSURE SEARCH FLAG IS OFF
013038,001089: 43,3025 00037 ADRES SRCHOPTN
013039,001090:
013040,001091: 43,3026 34740 CA TRACKBIT # IS TRACK FLAG ON?
013041,001092: 43,3027 70075 MASK FLAGWRD1
013042,001093: 43,3030 00006 EXTEND
013043,001094: 43,3031 13034 BZF CLRRND
013044,001095: 43,3032 04626 TC POSTJUMP
013045,001096: 43,3033 64054 CADR TRMTRAK1
013046,001097:
013047,001098: 43,3034 46017 CLRRND CS BITS9+7 # TURN OFF RENDVZFLG AND P25FLAG
013048,001099: 43,3035 4736 REFTAG5 = RNDVZBIT
013049,001100: 43,3035 4734 REFTAG6 = P25FLBIT
013050,001101: 43,3035 70074 MASK FLAGWRD0
013051,001102: 43,3036 54074 TS FLAGWRD0
013052,001103: 43,3037 12117 TCF GOPIN
013053,001104:
013054,001105: 6000 SETLOC FFTAG5
013055,001106: 6000 BANK
013056,001107:
013057,001108: 6017 00500 BITS9+7 OCT 500
013058,001109:
013059,001110:
013060,001111: 42,2000 SETLOC SBAND # BANK 42
013061,001112: 42,2000 BANK
013062,001113:
013063,001114: 42,2054 COUNT* $$/EXTVB
013064,001115:
013065,001116: 42,2054 34727 TRMTRAK1 CAF BIT14
013066,001117: 42,2055 55073 TS AGSCODE
013067,001118:
013068,001119: 42,2056 06060 TC INTPRET
013069,001120: 42,2057 43014 CLEAR CLEAR # TURN OFF UPDATFLG AND IMUSE
013070,001121: 42,2060 00267 IMUSE
|
|
Page 300 |
013072,001123: 42,2061 00670 UPDATFLG
013073,001124: 42,2062 77624 CALL
013074,001125: 42,2063 27447 INTSTALL # DONT INTERRUPT INTEGRATION
013075,001126: 42,2064 77776 EXIT
013076,001127:
013077,001128: 42,2065 05355 TC PHASCHNG
013078,001129: 42,2066 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
013079,001130:
013080,001131: 42,2067 00004 INHINT
013081,001132: 42,2070 04665 TC IBNKCALL # ZERO THE COMMANDED RATES TO STOP
013082,001133: 42,2071 40166 CADR STOPRATE # MANEUVER
013083,001134:
013084,001135: 42,2072 04665 TC IBNKCALL
013085,001136: 42,2073 40115 CADR RESTORDB
013086,001137:
013087,001138: 42,2074 06027 TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES.
013088,001139:
013089,001140: 42,2075 44727 CS BIT14 # DISABLE LOCKON
013090,001141: 42,2076 00006 EXTEND
013091,001142: 42,2077 03012 WAND CHAN12
013092,001143: 42,2100 44740 CS TRACKBIT # TURN OFF TRACKFLG
013093,001144: 42,2101 70075 MASK FLAGWRD1
013094,001145: 42,2102 54075 TS FLAGWRD1
013095,001146: 42,2103 46017 CS BITS9+7 # TURN OFF RENDVZFLG AND P25FLAG
013096,001147: 42,2104 4736 REFTAG7 = RNDVZBIT
013097,001148: 42,2104 4734 REFTAG8 = P25FLBIT
013098,001149: 42,2104 70074 MASK FLAGWRD0
013099,001150: 42,2105 54074 TS FLAGWRD0
013100,001151:
013101,001152: 42,2106 04626 TC POSTJUMP
013102,001153: 42,2107 12772 CADR GOPROG2 # CAUSE RESTART.
013103,001154:
013104,001155: # DNEDUMP VERB 74 DESCRIPTION
013105,001156: # INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
013106,001157: # 1. SET EXT VERB DISPLAY BUSY FLAG.
013107,001158: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
013108,001159: # 3. RELEASE EXT VERB DISPLAY.
013109,001160:
013110,001161: 43,2000 SETLOC EXTVERBS
013111,001162: 43,2000 BANK
013112,001163:
013113,001164: 43,3040 COUNT* $$/EXTVB
013114,001165:
013115,001166: 43,3040 0400 EBANK= 400
013116,001167: 43,3040 33043 DNEDUMP CAF LDNDUMPI
013117,001168: 43,3041 54335 TS DNTMGOTO
013118,001169: 43,3042 02117 TC GOPIN
013119,001170:
013120,001171: 43,3043 43,3040 V74 EQUALS DNEDUMP
013121,001172: 43,3043 03723 LDNDUMPI REMADR DNDUMPI
013122,001173:
|
|
Page 301 |
013124,001175: # LEMVEC VERB 80 DESCRIPTION
013125,001176: # UPDATE LEM STATE VECTOR
013126,001177: # RESET VEHUPFLG TO 0
013127,001178:
013128,001179: 43,3044 05520 LEMVEC TC DOWNFLAG
013129,001180: 43,3045 00026 ADRES VEHUPFLG # VB 80 - VEHUPFLG DOWN INDICATES LEM
013130,001181:
013131,001182: 43,3046 03051 TC NOUPDOWN
013132,001183: # CSMVEC VERB 81 DESCRIPTION
013133,001184: # UPDATE CSM STATE VECTOR
013134,001185: # SET VEHUPFLG TO 1
013135,001186:
013136,001187: 43,3047 05506 CSMVEC TC UPFLAG
013137,001188: 43,3050 00026 ADRES VEHUPFLG # VB 81 - VEHUPFLG UP INDICATES CSM
013138,001189:
013139,001190: 43,3051 05520 NOUPDOWN TC DOWNFLAG
013140,001191: 43,3052 00030 ADRES NOUPFLAG
013141,001192:
013142,001193: 43,3053 12117 TCF GOPIN
013143,001194:
013144,001195: # UPDATOFF VERB 95 DESCRIPTION
013145,001196: # INHIBIT STATE VECTOR UPDATES BY INCORP
013146,001197: # SET NOUPFLAG TO 1
013147,001198:
013148,001199: 43,3054 05506 UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
013149,001200: 43,3055 00030 ADRES NOUPFLAG
013150,001201:
013151,001202: 43,3056 02117 TC GOPIN
013152,001203:
|
|
Page 302 |
013154,001205: # SYSTEST VERB 92 DESCRIPTION
013155,001206: # OPERATE IMU PERFORMANCE TEST.
013156,001207: # 1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
013157,001208: # 2. SET EXT VERB BUSY FLAG.
013158,001209: 43,3057 E5,1417 EBANK= QPLACE
013159,001210:
013160,001211: 43,3057 02121 SYSTEST TC CHKPOOH # DEMAND POO
013161,001212:
013162,001213: 43,3060 40077 CS FLAGWRD3 # DO NOT ALLOW P07 IN FLIGHT
013163,001214: 43,3061 74732 MASK NOP07BIT # IF FLAG IS SET, TURN ON OE LITE AND EXIT
013164,001215: 43,3062 00006 EXTEND
013165,001216: 43,3063 12116 BZF ALM/END
013166,001217: 43,3064 02076 TC TESTXACT
013167,001218:
013168,001219: 43,3065 37731 CAF PRIO22
013169,001220: 43,3066 05076 TC FINDVAC
013170,001221: 43,3067 E5,1417 EBANK= QPLACE
013171,001222: 43,3067 37,2000 SBANK= IMUSUPER
013172,001223: 43,3067 02002 76065 2CADR REDO
013173,001224:
013174,001225: 43,3071 05146 TC ENDOFJOB
013175,001226:
013176,001227: # VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
013177,001228:
013178,001229: 43,3072 00004 WMATRXNG INHINT
013179,001230: 43,3073 44744 CS RENDWBIT
013180,001231: 43,3074 70101 MASK FLAGWRD5
013181,001232: 43,3075 54101 TS FLAGWRD5
013182,001233:
013183,001234: 43,3076 02117 TC GOPIN
013184,001235:
013185,001236: 43,3077 43,3077 GOSHOSUM EQUALS SHOWSUM
013186,001237:
013187,001238: 43,3077 02121 SHOWSUM TC CHKPOOH # *
013188,001239: 43,3100 02076 TC TESTXACT # *
013189,001240: 43,3101 35012 CAF PRIO7 # ALLOW OTHER CHARINS.
013190,001241: 43,3102 05137 TC PRIOCHNG
013191,001242: 43,3103 34744 CAF S+1 # *
013192,001243: 43,3104 55376 TS SKEEP6 # * SHOWSUM OPTION
013193,001244: 43,3105 34746 CAF S+ZERO # *
013194,001245: 43,3106 55362 TS SMODE # * TURN OFF SELF-CHECK
013195,001246: 43,3107 33250 CA SELFADRS # *
013196,001247: 43,3110 55361 TS SELFRET # *
013197,001248: 43,3111 03525 TC STSHOSUM # * ENTER ROPECHK
013198,001249:
013199,001250: 43,3112 23372 SDISPLAY LXCH SKEEP2 # * BANK # FOR DISPLAY
013200,001251: 43,3113 23373 LXCH SKEEP3 # * BUGGER WORD FOR DISPLAY
013201,001252: 43,3114 33247 NOKILL CA ADRS1 # *
013202,001253: 43,3115 54156 TS MPAC +2 # *
013203,001254: 43,3116 33127 CA VNCON # * 0501
|
|
Page 303 |
013205,001256: 43,3117 04607 TC BANKCALL # *
013206,001257: 43,3120 20323 CADR GOXDSPF # *
013207,001258: 43,3121 03124 TC +3 # *
013208,001259: 43,3122 03636 TC NXTBNK # *
013209,001260: 43,3123 03114 TC NOKILL # *
013210,001261: 43,3124 33250 CA SELFADRS
013211,001262: 43,3125 55371 TS SKEEP1
013212,001263:
013213,001264: 43,3126 05474 TC ENDEXT # *
013214,001265:
013215,001266: 43,3127 01201 VNCON VN 501 # *
013216,001267:
013217,001268: 43,3130 31376 ENDSUMS CA SKEEP6 # *
013218,001269: 43,3131 00006 EXTEND # *
013219,001270: 43,3132 13341 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
013220,001271: 43,3133 03525 TC STSHOSUM # * START SHOWSUM AGAIN.
013221,001272:
|
|
Page 304 |
013223,001274: # DAPDISP VERB 48 DESCRIPTION
013224,001275: # LOAD AUTO PILOT DATA
013225,001276: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
013226,001277: # 2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
013227,001278: # 3. RELEASE EXT VERB DISPLAY SYSTEM.
013228,001279: # KEY
013229,001280: # THE FOLLOWING IS A KEY TO THE 5 DIGITS OF THE DAP DATA CODE (N46)
013230,001281:
013231,001282: # DIGIT A - VEHICLE CONFIGURATION
013232,001283: # 1 - LM ALONE, ASCENT
013233,001284: # 2 - LM ALONE, DESCENT
013234,001285: # 3 - CSM AND LM DOCKED
013235,001286:
013236,001287: # DIGIT B - ACCELERATION CODE
013237,001288: # 0 - 2 JET TRANSLATION, RCS SYSTEM A PREFERRED
013238,001289: # 1 - 2 JET TRANSLATION, RCS SYSTEM B PREFERRED
013239,001290: # 2 - 4 JET TRANSLATION, RCS SYSTEM A PREFERRED (NOT MEANINGFUL)
013240,001291: # 3 - 4 JET TRANSLATION, RCS SYSTEM B PREFERRED (NOT MEANINGFUL)
013241,001292:
013242,001293: # DIGIT C - ACA SCALING
013243,001294: # 0 - FINE
013244,001295: # 1 - NORMAL
013245,001296:
013246,001297: # DIGIT D - DEADBAND
013247,001298: # 0 - 0.3 DEG
013248,001299: # 1 - 1.0 DEG
013249,001300: # 2 - 5.0 DEG
013250,001301: # (3 - 5.0 DEG BY DEFAULT)
013251,001302:
013252,001303: # DIGIT E - MANEUVER RATE
013253,001304: # 0 - 0.2 DEG/SEC
013254,001305: # 1 - 0.5 DEG/SEC
013255,001306: # 2 - 2.0 DEG/SEC
013256,001307: # 3 -10.0 DEG/SEC
013257,001308:
013258,001309: 43,3134 02076 DAPDISP TC TESTXACT
013259,001310: 43,3135 35012 CAF PRIO7 # R03
013260,001311: 43,3136 05137 TC PRIOCHNG
013261,001312: 43,3137 04626 TC POSTJUMP
013262,001313: 43,3140 40004 CADR DAPDATA1
013263,001314: 34,2000 BANK 34
013264,001315: 20,2000 SETLOC LOADDAP
013265,001316: 20,2000 BANK
013266,001317:
013267,001318: 20,2004 COUNT* $$/R03
013268,001319:
013269,001320: 20,2004 30,2000 SBANK= LOWSUPER # FOR SUBSEQUENT LOW 2CADR'S.
013270,001321:
013271,001322: 20,2004 32114 DAPDATA1 CAF BOOLSMSK # SET DISPLAY ACCORDING TO DAPBOOLS BITS.
013272,001323: 20,2005 70111 MASK DAPBOOLS # LM
|
|
Page 305 |
013274,001325: 20,2006 55340 TS DAPDATR1 # LM
013275,001326: 20,2007 40106 CS FLGWRD10 # SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
013276,001327: 20,2010 74730 MASK APSFLBIT
013277,001328: 20,2011 10000 CCS A
013278,001329: 20,2012 34727 CAF BIT14
013279,001330: 20,2013 27340 ADS DAPDATR1
013280,001331: 20,2014 31340 CHKDATA1 CAE DAPDATR1 # IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
013281,001332: 20,2015 74346 MASK BIT13-14 # A ONE INTO BIT 13.
013282,001333: 20,2016 00006 EXTEND
013283,001334: 20,2017 12034 BZF FORCEONE
013284,001335: 20,2020 31340 CAE DAPDATR1 # ENSURE THAT NO ILLEGAL BITS SET BY CREW.
013285,001336: 20,2021 72113 MSKDATR1 MASK DSPLYMSK
013286,001337: 20,2022 55340 TS DAPDATR1
013287,001338: 20,2023 32112 CAF V04N46 # DISPLAY DAP CONFIG. / CHANBKUP
013288,001339: 20,2024 04607 TC BANKCALL
013289,001340: 20,2025 20345 CADR GOXDSPFR
013290,001341: 20,2026 15474 TCF ENDEXT # V34E TERMINATE
013291,001342: 20,2027 12037 TCF DPDAT1 # V33E PROCEED
013292,001343: 20,2030 12014 TCF CHKDATA1 # E NEW DATA CHECK AND REDISPLAY
013293,001344: 20,2031 34742 CAF BIT3 # BLANK R3
013294,001345: 20,2032 05466 TC BLANKET
013295,001346: 20,2033 15146 TCF ENDOFJOB
013296,001347: 20,2034 34730 FORCEONE CAF BIT13
013297,001348: 20,2035 27340 ADS DAPDATR1
013298,001349: 20,2036 12021 TCF MSKDATR1
013299,001350:
013300,001351: 20,2037 00004 DPDAT1 INHINT # INHINT FOR SETTING OF FLAG BITS AND MASS
013301,001352: 20,2040 44730 CS APSFLBIT # ON BASIS OF DISPLAYED DAPDATR1.
013302,001353: 20,2041 70106 MASK FLGWRD10
013303,001354: 20,2042 54001 TS L # SET APSFLAG TO BE COMPLEMENT OF BIT 14.
013304,001355: 20,2043 41340 CS DAPDATR1
013305,001356: 20,2044 74727 MASK BIT14
013306,001357: 20,2045 10000 CCS A
013307,001358: 20,2046 34730 CAF APSFLBIT
013308,001359: 20,2047 60001 AD L
013309,001360: 20,2050 54106 TS FLGWRD10
013310,001361: 20,2051 41340 CS DAPDATR1 # SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
013311,001362: 20,2052 74346 MASK BIT13-14 # MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
013312,001363: 20,2053 10000 CCS A # 13 AND 14 ARE SET.
013313,001364: 20,2054 44730 CS CSMDOCKD
013314,001365: 20,2055 62114 AD BOOLSMSK
013315,001366: 20,2056 71340 MASK DAPDATR1
013316,001367: 20,2057 54001 TS L
013317,001368: 20,2060 42114 CS BOOLSMSK
013318,001369: 20,2061 70111 MASK DAPBOOLS
013319,001370: 20,2062 60001 AD L
013320,001371: 20,2063 54111 TS DAPBOOLS
013321,001372: 20,2064 74730 MASK CSMDOCKD # LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
013322,001373: 20,2065 10000 CCS A # MASS IS USUALLY ALREADY OKAY, SO DO
013323,001374: 20,2066 31327 CAE CSMMASS # NOT TOUCH ITS LOW-ORDER PART.
|
|
Page 306 |
013325,001376: 20,2067 61326 AD LEMMASS
013326,001377: 20,2070 55243 TS MASS
013327,001378: 20,2071 30111 CAE DAPBOOLS
013328,001379: 20,2072 74732 MASK ACC4OR2X # 2 OR 4 JET X-TRANSLATION
013329,001380: 20,2073 00006 EXTEND # (BIT ACC4OR2X = 1 FOR 4 JETS)
013330,001381: 20,2074 12101 BZF +5
013331,001382: 20,2075 44726 CS BIT15
013332,001383: 20,2076 70075 MASK FLAGWRD1 # CLEAR NJTSFLAG TO 0 FOR 4 JETS
013333,001384: 20,2077 54075 TS FLAGWRD1
013334,001385: 20,2100 12104 TCF +4
013335,001386: 20,2101 40075 CS FLAGWRD1 # SET NJTSFLAG TO 1 FOR 2 JETS
013336,001387: 20,2102 74726 MASK BIT15
013337,001388: 20,2103 26075 ADS FLAGWRD1
013338,001389: 20,2104 30111 CA DAPBOOLS # SELECT DESIRED KALCMANU AUTOMATIC
013339,001390: 20,2105 76266 MASK THREE # MANEUVER RATE
013340,001391: 20,2106 60000 DOUBLE # RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
013341,001392: 20,2107 55322 TS RATEINDX # ARE DP
013342,001393: 20,2110 04626 TC POSTJUMP
013343,001394: 20,2111 02214 CADR STIKLOAD
013344,001395:
013345,001396: 20,2112 01056 V04N46 VN 0446
013346,001397: 20,2113 33133 DSPLYMSK OCT 33133
013347,001398: 20,2114 13133 BOOLSMSK OCT 13133
013348,001399: 01,2214 BANK 01
013349,001400: 01,2000 SETLOC LOADDAP1
013350,001401: 01,2000 BANK
013351,001402:
013352,001403: 01,2214 COUNT* $$/R03
013353,001404:
013354,001405: 01,2214 35006 STIKLOAD CAF EBANK6
013355,001406: 01,2215 54003 TS EBANK
013356,001407: 01,2216 E6,1444 EBANK= STIKSENS
013357,001408: 01,2216 34736 CA RHCSCALE # SET STICK SENSITIVITY TO CORRESPOND TO A
013358,001409: 01,2217 70111 MASK DAPBOOLS # MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
013359,001410: 01,2220 10000 CCS A # 20 D/S(NORMAL) OR 4 D/S(FINE), SCALED
013360,001411: 01,2221 32343 CA NORMAL # AT 45 D/S.
013361,001412: 01,2222 62344 AD FINE
013362,001413: 01,2223 55444 TS STIKSENS
013363,001414: 01,2224 32346 CA -0.6D/S
013364,001415: 01,2225 55476 TS -RATEDB # LM-ONLY BREAKOUT LEVEL IS .6 D/S.
013365,001416: 01,2226 34730 CA CSMDOCKD # IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
013366,001417: 01,2227 70111 MASK DAPBOOLS # BY 10. NORMAL SCALING IS THEN 2 D/S AND
013367,001418: 01,2230 00006 EXTEND # FINE SCALING IS 0.4 D/S
013368,001419: 01,2231 12240 BZF +7 # BRANCH IF CSM IS NOT DOCKED.
013369,001420: 01,2232 31444 CA STIKSENS
013370,001421: 01,2233 00006 EXTEND
013371,001422: 01,2234 72345 MP 1/10
013372,001423: 01,2235 55444 TS STIKSENS
013373,001424: 01,2236 32347 CA -0.3D/S # CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
013374,001425: 01,2237 55476 TS -RATEDB
|
|
Page 307 |
013376,001427: 01,2240 00003 RELINT # PROCEED TO NOUN 47, MASS LOAD,
013377,001428:
013378,001429: 01,2241 32341 DAPDATA2 CAF V0647
013379,001430: 01,2242 04607 TC BANKCALL
013380,001431: 01,2243 20345 CADR GOXDSPFR
013381,001432: 01,2244 12252 TCF ENDR03 # V34E TERMINATE. FIRST SET DB, DO 1/ACCS
013382,001433: 01,2245 12256 TCF DAPDAT2 # V33E PROCEED
013383,001434: 01,2246 12241 TCF DAPDATA2 # LOAD NEW DATA AND RECYCLE
013384,001435: 01,2247 34742 CAF BIT3 # BLANKS R3
013385,001436: 01,2250 05466 TC BLANKET # LM
013386,001437: 01,2251 15146 TCF ENDOFJOB
013387,001438: 01,2252 00004 ENDR03 INHINT
013388,001439: 01,2253 04665 TC IBNKCALL
013389,001440: 01,2254 40115 CADR RESTORDB
013390,001441: 01,2255 15474 TCF ENDEXT # DOES RELINT
013391,001442:
013392,001443: 01,2256 40106 DAPDAT2 CS FLGWRD10 # DETERMINE STAGE FROM APSFLAG
013393,001444: 01,2257 74730 MASK APSFLBIT
013394,001445: 01,2260 10000 CCS A
013395,001446: 01,2261 32000 CA MINLMD
013396,001447: 01,2262 62001 AD MINMINLM
013397,001448: 01,2263 61326 AD LEMMASS # LEMMASS MUST BE GREATER THAN EMPTY LEM
013398,001449: 01,2264 00006 EXTEND
013399,001450: 01,2265 62241 BZMF DAPDATA2 # ASK FOR NEW MASSES
013400,001451: 01,2266 30111 CAE DAPBOOLS
013401,001452: 01,2267 74730 MASK CSMDOCKD
013402,001453: 01,2270 00006 EXTEND
013403,001454: 01,2271 12277 BZF LEMALONE # SKIP TEST ON CSMMASS IF NOT DOCKED.
013404,001455: 01,2272 44732 CS MINCSM # TEST CSM MASS
013405,001456: 01,2273 61327 AD CSMMASS # CSMMASS MUST BE GREATER THAN EMPTY CSM
013406,001457: 01,2274 00006 EXTEND
013407,001458: 01,2275 62241 BZMF DAPDATA2 # ASK FOR NEW MASSES
013408,001459: 01,2276 31327 CAE CSMMASS # DOCKED: MASS = CSMMASS + LEMMASS
013409,001460: 01,2277 61326 LEMALONE AD LEMMASS # LEM ALONE: MASS = LEMMASS
013410,001461: 01,2300 22007 ZL
013411,001462: 01,2301 53244 DXCH MASS
013412,001463: 01,2302 00004 INHINT
013413,001464: 01,2303 04665 TC IBNKCALL # SET DEADBANK AND COMPUTE MOMENTS OF
013414,001465: 01,2304 40115 CADR RESTORDB # INERTIA.
013415,001466: 01,2305 00003 RELINT # PROCEED TO NOUN 48 (OR END).
013416,001467:
013417,001468: 01,2306 40106 DAPDATA3 CS FLGWRD10
013418,001469: 01,2307 74730 MASK APSFLBIT
013419,001470: 01,2310 00006 EXTEND # END ROUTINE IF LEM HAS STAGED,
013420,001471: 01,2311 15474 BZF ENDEXT
013421,001472: 01,2312 32342 CAF V06N48 # DISPLAY TRIM ANGLES AND REQUEST RESPONSE
013422,001473: 01,2313 04607 TC BANKCALL
013423,001474: 01,2314 20345 CADR GOXDSPFR
013424,001475: 01,2315 05474 TC ENDEXT
013425,001476: 01,2316 12323 TCF DPDAT3 # V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
013426,001477:
|
|
Page 308 |
013428,001479: 01,2317 12312 TCF -5 # LOAD NEW DATA AND RECYCLE
013429,001480: 01,2320 34742 CAF BIT3
013430,001481: 01,2321 05466 TC BLANKET # BLANK R3
013431,001482: 01,2322 15146 TCF ENDOFJOB
013432,001483: 01,2323 34744 DPDAT3 CAF BIT1
013433,001484: 01,2324 05205 TC WAITLIST
013434,001485: 01,2325 E6,1401 EBANK= ROLLTIME
013435,001486: 01,2325 03221 56066 2CADR TRIMGIMB
013436,001487:
013437,001488: 01,2327 15146 TCF ENDOFJOB # DOES A RELINT
013438,001489: 01,2330 32342 TRIMDONE CAF V50N48
013439,001490: 01,2331 04607 TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03
013440,001491: 01,2332 20353 CADR GOMARK3R -1
013441,001492: 01,2333 05474 TC ENDEXT # V34E TERMINATE
013442,001493: 01,2334 05474 TC ENDEXT
013443,001494: 01,2335 05474 TC ENDEXT
013444,001495: 01,2336 36007 CAF OCT24 # BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
013445,001496: 01,2337 05466 TC BLANKET
013446,001497: 01,2340 15146 TCF ENDOFJOB
013447,001498:
013448,001499: 01,2341 01457 V0647 VN 0647
013449,001500: 01,2342 01460 V06N48 VN 0648
013450,001501:
013451,001502: 01,2343 01,2342 V50N48 = V06N48
013452,001503:
013453,001504: 01,2343 25101 NORMAL DEC .660214
013454,001505: # NORMAL SCALING IS 20 D/S
013455,001506: 01,2344 05220 FINE DEC .165054 # FINE STICK SCALING (4 D/S).
013456,001507: 01,2345 03146 1/10 DEC .1 # FACTOR FOR CSM-DOCKED SCALING
013457,001508: 01,2346 77445 -0.6D/S DEC -218 B-14
013458,001509: 01,2347 77622 -0.3D/S DEC -109 B-14
013459,001510:
|
|
Page 309 |
013461,001512: # VERB 66. VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
013462,001513: # OTHER VEHICLE STATE VECTOR.
013463,001514:
013464,001515: # USE SUBROUTINE GENTRAN.
013465,001516:
013466,001517: 07,2607 BANK 7
013467,001518: 43,2000 SETLOC EXTVERBS
013468,001519: 43,2000 BANK
013469,001520:
013470,001521: 43,3141 COUNT* $$/EXTVB
013471,001522:
013472,001523: 43,3141 E3,1626 EBANK= RRECTHIS
013473,001524:
013474,001525: 43,3141 40104 ATTACHED CS FLAGWRD8
013475,001526: 43,3142 74735 MASK SURFFBIT
013476,001527: 43,3143 00006 EXTEND
013477,001528: 43,3144 12116 BZF ALM/END # TURN ON OE AND EXIT IF SURFFLAG SET.
013478,001529: 43,3145 34730 CAF PRIO10
013479,001530: 43,3146 05076 TC FINDVAC
013480,001531: 43,3147 E3,1626 EBANK= RRECTHIS
013481,001532:
013482,001533: 43,3147 03152 66103 2CADR ATTACHIT
013483,001534:
013484,001535: 43,3151 05146 TC ENDOFJOB
013485,001536:
013486,001537: 43,3152 06060 ATTACHIT TC INTPRET
013487,001538: 43,3153 77624 CALL
013488,001539: 43,3154 27447 INTSTALL
013489,001540: 43,3155 43014 SET BON
013490,001541: 43,3156 04063 MOONOTH
013491,001542: 43,3157 04304 MOONTHIS
013492,001543: 43,3160 67163 +3
013493,001544: 43,3161 77614 CLEAR
013494,001545: 43,3162 04263 MOONOTH
013495,001546: 43,3163 77776 EXIT
013496,001547: 43,3164 33207 CAF OCT51
013497,001548: 43,3165 05546 TC GENTRAN
013498,001549: 43,3166 01626 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
013499,001550: 43,3167 01554 ADRES RRECTOTH
013500,001551:
013501,001552: 43,3170 00003 RELINT
013502,001553: 43,3171 06060 TC INTPRET
013503,001554: 43,3172 77624 CALL # UPDATE R-OTHER, V-OTHER
013504,001555: 43,3173 27016 PTOALEM
013505,001556: 43,3174 45154 LXA,2 CALL
013506,001557: 43,3175 02030 PBODY
013507,001558: 43,3176 26114 SVDWN1
013508,001559: 43,3177 77776 EXIT
013509,001560:
013510,001561: 43,3200 33210 CAF TCPINAD
|
|
Page 310 |
013512,001563: 43,3201 50120 INDEX FIXLOC
013513,001564: 43,3202 54052 TS QPRET
013514,001565: 43,3203 04626 TC POSTJUMP
013515,001566: 43,3204 27460 CADR INTWAKE # FREE INTEGRATION AND EXIT.
013516,001567:
013517,001568: 43,3205 77634 TCPIN RTB
013518,001569: 43,3206 21062 PINBRNCH
013519,001570:
013520,001571: 43,3207 00051 OCT51 OCT 51
013521,001572: 43,3210 67205 TCPINAD CADR TCPIN
013522,001573:
013523,001574: # VERB 96 SET QUITFLAG TO STOP INTEGRATION.
013524,001575:
013525,001576: # GO TO V37 WITH ZERO TO CAUSE POO.
013526,001577: # STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
013527,001578: # THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
013528,001579:
013529,001580: 43,3211 05506 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
013530,001581: 43,3212 00221 ADRES QUITFLAG # AT NEXT TIMESTEP
013531,001582:
013532,001583: 43,3213 34746 CAF ZERO
013533,001584: 43,3214 04626 TC POSTJUMP
013534,001585: 43,3215 10054 CADR V37 # GO TO POO
013535,001586:
013536,001587:
013537,001588: # VERB 67 : DISPLAY OF W MATRIX
013538,001589:
013539,001590: 43,3216 02076 V67 TC TESTXACT
013540,001591: 43,3217 35010 CAF PRIO5
013541,001592: 43,3220 05076 TC FINDVAC
013542,001593: 43,3221 E4,1571 EBANK= WWPOS
013543,001594: 43,3221 02007 62064 2CADR V67CALL
013544,001595:
013545,001596: 43,3223 05146 TC ENDOFJOB
013546,001597:
013547,001598: # VERB 65 DISABLE U,V JETS DURING DPS BURNS
013548,001599:
013549,001600: 43,3224 05506 SNUFFOUT TC UPFLAG
013550,001601: 43,3225 00115 ADRES SNUFFER
013551,001602: 43,3226 02117 TC GOPIN
013552,001603:
013553,001604: # VERB 75 ENABLE U,V JETS DURING DPS BURNS
013554,001605:
013555,001606: 43,3227 05520 OUTSNUFF TC DOWNFLAG
013556,001607: 43,3230 00115 ADRES SNUFFER
013557,001608: 43,3231 02117 TC GOPIN
013558,001609: # VERB 85 DISPLAY RR LOS AZIMUTH AND ELEVATION.
013559,001610:
013560,001611: # AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0 - 90 DEG IN THE +Y HEMISPHERE,
013561,001612: # 360 - 270 DEG IN THE -Y HEMISPHERE.
013562,001613:
|
|
Page 311 |
013564,001615: # ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0 - 360 ABOUT +Y.
013565,001616:
013566,001617: 43,3232 E4,1571 EBANK= RR-AZ
013567,001618: 43,3232 02076 VERB85 TC TESTXACT
013568,001619: 43,3233 04626 TC POSTJUMP
013569,001620: 43,3234 62000 CADR DSPRRLOS
013570,001621:
013571,001622: 41,2000 SETLOC PINBALL2
013572,001623: 41,2000 BANK
013573,001624:
013574,001625: 41,2000 COUNT* $$/EXTVB
013575,001626:
013576,001627: 41,2000 35010 DSPRRLOS CAF PRIO5
013577,001628: 41,2001 05076 TC FINDVAC
013578,001629: 41,2002 E4,1571 EBANK= RR-AZ
013579,001630: 41,2002 02000 60104 2CADR RRLOSDSP
013580,001631:
013581,001632: 41,2004 34731 CAF PRIO4
013582,001633: 41,2005 05137 TC PRIOCHNG
013583,001634: 41,2006 32017 CAF V16N56
013584,001635: 41,2007 04607 TC BANKCALL
013585,001636: 41,2010 20345 CADR GOMARKFR
013586,001637: 41,2011 05565 TC B5OFF
013587,001638: 41,2012 05565 TC B5OFF
013588,001639: 41,2013 05565 TC B5OFF
013589,001640:
013590,001641: 41,2014 34742 CAF BIT3
013591,001642: 41,2015 05466 TC BLANKET
013592,001643: 41,2016 05146 TC ENDOFJOB
013593,001644:
013594,001645: 41,2017 04070 V16N56 VN 1656
013595,001646:
013596,001647:
013597,001648: 40,2000 SETLOC PINBALL1
013598,001649: 40,2000 BANK
013599,001650:
013600,001651: 40,2000 00006 RRLOSDSP EXTEND
013601,001652: 40,2001 30036 DCA CDUT
013602,001653: 40,2002 52155 DXCH MPAC
013603,001654: 40,2003 06060 TC INTPRET
013604,001655: 40,2004 77624 CALL
013605,001656: 40,2005 46065 RRNBMPAC # GET RR LOS IN BODY AXIS.
013606,001657: 40,2006 00001 STORE 0D # UNIT LOS
013607,001658: 40,2007 14007 STODL 6D
013608,001659: 40,2010 06505 HI6ZEROS
013609,001660: 40,2011 24011 STOVL 8D
013610,001661: 40,2012 00007 6D
013611,001662: 40,2013 77656 UNIT
013612,001663: 40,2014 00007 STORE 6D # UNIT OF LOS PROJ IN X-Z PLANE
013613,001664: 40,2015 77641 DOT
|
|
Page 312 |
013615,001666: 40,2016 06477 UNITZ
013616,001667: 40,2017 24021 STOVL COSTH # 16D
013617,001668: 40,2020 06503 UNITX
013618,001669: 40,2021 77641 DOT
013619,001670: 40,2022 00007 6D
013620,001671: 40,2023 34023 STCALL SINTH # 18D
013621,001672: 40,2024 47303 ARCTRIG
013622,001673: 40,2025 43244 BPL DAD # INSURE DISPLAY OF 0 - 360 DEG.
013623,001674: 40,2026 60030 +2
013624,001675: 40,2027 06513 DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
013625,001676: 40,2030 26174 STOVL RR-ELEV
013626,001677: 40,2031 00001 0D
013627,001678: 40,2032 77641 DOT
013628,001679: 40,2033 06501 UNITY
013629,001680: 40,2034 24023 STOVL SINTH
013630,001681: 40,2035 00001 0D
013631,001682: 40,2036 77641 DOT
013632,001683: 40,2037 00007 6D
013633,001684: 40,2040 34021 STCALL COSTH
013634,001685: 40,2041 47303 ARCTRIG
013635,001686: 40,2042 43244 BPL DAD # INSURE DISPLAY OF 0 - 360 DEG.
013636,001687: 40,2043 60045 +2
013637,001688: 40,2044 06513 DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
013638,001689: 40,2045 02172 STORE RR-AZ
013639,001690: 40,2046 77776 EXIT
013640,001691: 40,2047 34770 CA 1SEC
013641,001692: 40,2050 04607 TC BANKCALL
013642,001693: 40,2051 01736 CADR DELAYJOB
013643,001694:
013644,001695: 40,2052 34740 CA BIT5
013645,001696: 40,2053 71043 MASK EXTVBACT
013646,001697: 40,2054 10000 CCS A
013647,001698: 40,2055 02000 TC RRLOSDSP
013648,001699: 40,2056 05474 TC ENDEXT
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc