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