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