Source Code
![]() |
These source-code files derive from a printout of Luminary 116 (the Apollo 12
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Ron Burkey, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071 19:09 AUG. 11,1969Note that the date is the date of the printout, not the date of the program revision. |
010868,000002: ## Copyright: Public domain.
010869,000003: ## Filename: EXTENDED_VERBS.agc
010870,000004: ## Purpose: A section of Luminary revision 116.
010871,000005: ## It is part of the source code for the Lunar Module's (LM)
010872,000006: ## Apollo Guidance Computer (AGC) for Apollo 12.
010873,000007: ## This file is intended to be a faithful transcription, except
010874,000008: ## that the code format has been changed to conform to the
010875,000009: ## requirements of the yaYUL assembler rather than the
010876,000010: ## original YUL assembler.
010877,000011: ## Reference: pp. 262-301
010878,000012: ## Assembler: yaYUL
010879,000013: ## Contact: Ron Burkey <info@sandroid.org>.
010880,000014: ## Website: www.ibiblio.org/apollo/index.html
010881,000015: ## Mod history: 2017-01-22 MAS Created from Luminary 99.
010882,000016: ## 2017-02-23 RSB CHKP00H -> CHKPOOH
010883,000017: ## 2017-03-06 RSB Transcribed, and then proofed comment-text using
010884,000018: ## 3-way diff vs Luminary 99 and Luminary 131.
010885,000019: ## (Admittedly, the former is more for detecting errors
010886,000020: ## in Luminary 99 than the other way around.)
010887,000021: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
010888,000022: ## side-by-side diff of Luminary 69/99/116/131/210.
010889,000023: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
010890,000024: ## Luminary 99 vs Comanche 55.
010891,000025: ## 2017-03-19 HG Add missing statement adres NEED2FLG
010892,000026: ## Fix values OCT 33113 --> OCT 33133 (DSPLYMSK)
010893,000027: ## OCT 13113 --> OCT 13133 (BOOLSMSK)
010894,000028: ## Fix operator TC --> TCF
010895,000029:
![]() |
Page 262 |
010897,000031: 07,2667 BANK 7
010898,000032: 43,2000 SETLOC EXTVERBS
010899,000033: 43,2000 BANK
010900,000034:
010901,000035: 43,2000 E5,1737 EBANK= OGC
010902,000036:
010903,000037: 43,2000 COUNT* $$/EXTVB
010904,000038:
010905,000039: # FAN-OUT
010906,000040:
010907,000041: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
010908,000042: 43,2001 02002 TC LST2FAN # FAN AS BEFORE.
010909,000043:
010910,000044: 43,2002 02124 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
010911,000045: 43,2003 02172 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010912,000046: # 72 ONLY)
010913,000047: 43,2004 02363 TC IMUFINEK # VB42 FINE ALIGN IMU
010914,000048: 43,2005 02727 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
010915,000049: 43,2006 02277 TC RRDESEND # VB44 TERMINATE CONTINUOUS DESIGNATE
010916,000050: 43,2007 02114 TC ALM/END # VB45 SPARE
010917,000051: 43,2010 02114 TC ALM/END # VB46 SPARE
010918,000052: 43,2011 02422 TC V47TXACT # VB47 AGS INITIALIZATION
010919,000053: 43,2012 03152 TC DAPDISP # VB48 LOAD A/P DATA
010920,000054: 43,2013 13032 TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER
010921,000055: 43,2014 02414 TC GOLOADLV # VB50 PLEASE PERFORM
010922,000056: 43,2015 02114 TC ALM/END # VB51 SPARE
010923,000057: 43,2016 02414 TC GOLOADLV # VB52 PLEASE MARK X - RETICLE.
010924,000058: 43,2017 02414 TC GOLOADLV # VB53 PLEASE MARK Y - RETICLE.
010925,000059: 43,2020 02414 TC GOLOADLV # VB54 PLEASE MARK X OR Y - RETICLE
010926,000060: 43,2021 02434 TC ALINTIME # VB55 ALIGN TIME
010927,000061: 43,2022 03041 TC TRMTRACK # VB56 TERMINATE TRACKING - P20 + P25
010928,000062: 43,2023 02317 TC LRON # VB57 PERMIT LANDING RADAR UPDATES
010929,000063: 43,2024 02360 TC LROFF # VB58 INHIBIT LANDING RADAR UPDATES
010930,000064: 43,2025 02145 TC LRPOS2K # VB59 COMMAND LR TO POSITION 2.
010931,000065: 43,2026 02167 TC RATEDISP # VB60 DISPLAY DAP ESTIMATED RATES
010932,000066: 43,2027 02157 TC DAPATTER # VB61 DISPLAY DAP ATTITUDE ERROR
010933,000067: 43,2030 02162 TC TOTATTER # VB62 DISPLAY TOTAL ATTITUDE ERROR
010934,000068: 43,2031 02447 TC R04 # VB63 SAMPLE RADAR ONCE PER SECOND
010935,000069: 43,2032 02721 TC VB64 # VB64 CALCULATE,DISPLAY S-BAND ANT ANGLES
010936,000070: 43,2033 03242 TC SNUFFOUT # VB65 DISABLE U,V JETS DURING DPS BURNS.
010937,000071: 43,2034 03157 TC ATTACHED # VB66 ATTACHED MOVE THIS TO OTHER STATE
010938,000072: 43,2035 03234 TC V67 # VB67 W MATRIX MONITOR
010939,000073: 43,2036 02114 TC ALM/END # VB68 SPARE
010940,000074: 43,2037 02037 VERB69 TC VERB69 # VB69 FORCE A HARDWARE RESTART
010941,000075: 43,2040 03745 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
010942,000076: 43,2041 03747 TC V71UPDAT # VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
010943,000077: 43,2042 03751 TC V72UPDAT # VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
010944,000078: 43,2043 03753 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
010945,000079: 43,2044 03062 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010946,000080: # FOR ERASABLE DUMP.
010947,000081: 43,2045 03245 TC OUTSNUFF # VB75 ENABLE U,V JETS DURING DPS BURNS.
![]() |
Page 263 |
010949,000083: 43,2046 03021 TC MINIMP # VB76 MINIMUM IMPULSE MODE
010950,000084: 43,2047 03024 TC NOMINIMP # VB77 RATE COMMAND MODE
010951,000085: 43,2050 02437 TC R77 # VB78 START LR SPURIOUS RETURN TEST
010952,000086: 43,2051 02651 TC R77END # VB79 TERMINATE LR SPURIOUS RETURN TEST
010953,000087: 43,2052 03066 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR
010954,000088: 43,2053 03071 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
010955,000089: 43,2054 02766 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010956,000090: 43,2055 02776 TC V83PERF # VB83 REQUEST REND PARAM DISPLAY (R31)
010957,000091: 43,2056 02114 TC ALM/END # VB84 SPARE
010958,000092: 43,2057 03250 TC VERB85 # VB85 DISPLAY RR LOS AZ AND ELEV
010959,000093: 43,2060 02114 TC ALM/END # VB86 SPARE
010960,000094: 43,2061 02114 TC ALM/END # VB87 SPARE
010961,000095: 43,2062 02114 TC ALM/END # VB88 SPARE
010962,000096: 43,2063 03004 TC V89PERF # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
010963,000097: 43,2064 03013 TC V90PERF # VB90 OUT OF PLANE RENDEZVOUS DISPLAY
010964,000098: 43,2065 03115 TC GOSHOSUM # VB91 DISPLAY BANK SUM.
010965,000099: 43,2066 03101 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST.
010966,000100: 43,2067 03110 TC WMATRXNG # VB93 CLEAR RENDWFLG
010967,000101: 43,2070 02114 TC ALM/END # VB94 SPARE
010968,000102: 43,2071 03076 TC UPDATOFF # VB95 NO STATE VECTOR UPDATE ALLOWED
010969,000103: 43,2072 03227 TC VERB96 # VB96 INTERRUPT INTEGRATION AND GO TO POO
010970,000104: 43,2073 02414 TC GOLOADLV # VB97 PLEASE VERIFY ENGINE FAILURE
010971,000105: 43,2074 02114 TC ALM/END # VB98 SPARE
010972,000106: 43,2075 02414 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
010973,000107:
010974,000108: # END OF EXTENDED VERB FAN
010975,000109:
010976,000110: 43,2076 11043 TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY
010977,000111: 43,2077 02114 TC ALM/END # YES, TURN ON OPERATOR LIGHT
010978,000112: 43,2100 30100 CA FLAGWRD4 # ARE PRIORITY DISPLAYS USING DSKY
010979,000113: 43,2101 72123 MASK OC24100
010980,000114: 43,2102 10000 CCS A
010981,000115: 43,2103 02114 TC ALM/END # YES
010982,000116: 43,2104 34362 CAF OCT25 # SET BITS 1, 3, AND 5
010983,000117: 43,2105 55043 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
010984,000118: # SYSTEM BUSY
010985,000119:
010986,000120: 43,2106 30002 CA Q
010987,000121: 43,2107 54155 TS MPAC +1
010988,000122:
010989,000123: 43,2110 44752 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
010990,000124: 43,2111 04154 TC NVSUB
010991,000125: 43,2112 02113 TC +1
010992,000126: 43,2113 00155 TC MPAC +1
010993,000127:
010994,000128: 43,2114 5472 TERMEXTV EQUALS ENDEXT
010995,000129: 43,2114 5472 ENDEXTVB EQUALS ENDEXT
010996,000130:
010997,000131: 43,2114 04364 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
![]() |
Page 264 |
010999,000133: 43,2115 04635 GOPIN TC POSTJUMP
011000,000134: 43,2116 21051 CADR PINBRNCH
011001,000135:
011002,000136: 43,2117 31010 CHKPOOH CA MODREG # CHECK FOR POO OR POO-.
011003,000137: 43,2120 00006 EXTEND
011004,000138: 43,2121 16745 BZF TCQ
011005,000139: 43,2122 02114 TC ALM/END
011006,000140:
011007,000141: 43,2123 24100 OC24100 OCT 24100
011008,000142:
![]() |
Page 265 |
011010,000144: # VBZERO VERB 40 DESCRIPTION
011011,000145:
011012,000146: # 1. REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
011013,000147: # 2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
011014,000148: # FOR N72, CHECK IF EITHER RADAR IS IN USE.
011015,000149: # 3. EXECUTE THE CDU ZERO.
011016,000150: # 4. STALL UNTILL THE ZERO IS DONE.
011017,000151: # 5. DON'T DIFFERENIATE BETWEEN A BAD OR GOOD RETURN.
011018,000152: # 6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).
011019,000153:
011020,000154: 43,2124 02175 VBZERO TC OP/INERT
011021,000155: 43,2125 02127 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
011022,000156: 43,2126 02136 TC RRZEROK # RETURN HERE IF NOUN = RCDU(72)
011023,000157: 43,2127 02430 IMUZEROK TC CKMODCAD
011024,000158: 43,2130 04616 TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO
011025,000159: 43,2131 16706 CADR IMUZERO
011026,000160:
011027,000161: 43,2132 04616 TC BANKCALL # STALL
011028,000162: 43,2133 17710 CADR IMUSTALL
011029,000163: 43,2134 02135 TC +1
011030,000164:
011031,000165: 43,2135 02115 TC GOPIN # IMUZERO
011032,000166:
011033,000167: 43,2136 02674 RRZEROK TC RDRUSECK
011034,000168: 43,2137 04616 TC BANKCALL
011035,000169: 43,2140 52354 CADR RRZERO
011036,000170:
011037,000171: 43,2141 04616 RWAITK TC BANKCALL
011038,000172: 43,2142 17706 CADR RADSTALL
011039,000173: 43,2143 12144 TCF +1
011040,000174: 43,2144 02115 TC GOPIN # RRZERO
011041,000175:
011042,000176: # LRPOS2K VERB 59 DESCRIPTION
011043,000177: # COMMAND LANDING RADAR TO POSITION 2
011044,000178: # 1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
011045,000179: # 2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
011046,000180: # THE PRESCRIBED TIME.
011047,000181: # 3. RE-ESTABLISH THE DISPLAYS.
011048,000182:
011049,000183: 43,2145 02674 LRPOS2K TC RDRUSECK
011050,000184: 43,2146 04616 TC BANKCALL # COMMAND LR TO POSITION 2
011051,000185: 43,2147 53454 CADR LRPOS2
011052,000186: 43,2150 04616 TC BANKCALL
011053,000187: 43,2151 17706 CADR RADSTALL
011054,000188: 43,2152 02154 TC LRP2ALM
011055,000189: 43,2153 02115 TC GOPIN
011056,000190:
011057,000191: 43,2154 05567 LRP2ALM TC ALARM
011058,000192: 43,2155 00523 OCT 523
011059,000193: 43,2156 02115 TC GOPIN
![]() |
Page 266 |
011061,000195:
011062,000196: # V61 VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
011063,000197:
011064,000198: 43,2157 05516 DAPATTER TC DOWNFLAG
011065,000199: 43,2160 00013 ADRES NEEDLFLG
011066,000200: 43,2161 12164 TCF TOTATTER +2
011067,000201:
011068,000202: # V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
011069,000203:
011070,000204: 43,2162 05504 TOTATTER TC UPFLAG
011071,000205: 43,2163 00013 ADRES NEEDLFLG
011072,000206: 43,2164 05516 +2 TC DOWNFLAG
011073,000207: 43,2165 00000 ADRES NEED2FLG
011074,000208: 43,2166 02115 TC GOPIN
011075,000209:
011076,000210: # V60 VERB 60, DISPLAY DAP ESTIMATED RATES ON FDAI ATTITUDE ERROR NEEDLES.
011077,000211:
011078,000212: 43,2167 05504 RATEDISP TC UPFLAG
011079,000213: 43,2170 00000 ADRES NEED2FLG
011080,000214: 43,2171 02115 TC GOPIN
011081,000215:
![]() |
Page 267 |
011083,000217: # VBCOARK VERB 41 DESCRIPTION
011084,000218: # COARSE ALIGN IMU OR RADAR
011085,000219: # 1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
011086,000220: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
011087,000221: # CASE 1 NOUN 20 (ICDU ANGLES)
011088,000222: # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
011089,000223: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
011090,000224: # RESPONSES
011091,000225: # A. TERMINATE
011092,000226: # 1. RELEASE EXT VERB DISPLAY SYSTEM
011093,000227: # B. PROCEED
011094,000228: # 1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
011095,000229: # C. ENTER
011096,000230: # 1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
011097,000231: # ICORK2
011098,000232: # 1. RE-DISPLAY VERB 41.
011099,000233: # 2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
011100,000234: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
011101,000235: # 4. RELEASE EXT VERB DISPLAY SYSTEM.
011102,000236: # CASE 2 NOUN 72 (RCDU ANGLES)
011103,000237: # EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
011104,000238: # 5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
011105,000239: # RESPONSES
011106,000240: # A. TERMINATE
011107,000241: # 1. RELEASE EXT VERB DISPLAY SYS.
011108,000242: # B. PROCEED OR ENTER
011109,000243: # 1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
011110,000244: # 2. RE-DISPLAY VERB 41.
011111,000245: # 3. SCHEDULE RRDESK2 WITH PRIORITY 20.
011112,000246: # 4. RELEASE EXT VERB DISPLAY SYS.
011113,000247:
011114,000248: # AURLOKON
011115,000249:
011116,000250: # 1. FLASH V04 N12 R1 = 00006 R2 = 00002
011117,000251: # RESPONSES
011118,000252: # A. TERMINATE
011119,000253: # B. PROCEED
011120,000254: # 1. RESET LOCK-ON SWITCH
011121,000255: # 2. SET CONTINUOUS DESIGNATE FLAG
011122,000256: # 3. DISABLE R25
011123,000257: # C. V22 E 1 E, R1 = 00001, PROCEED
011124,000258: # 1. SET LOCK-ON SWITCH
011125,000259: 43,2172 02175 VBCOARK TC OP/INERT
011126,000260: 43,2173 02206 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
011127,000261: 43,2174 02230 TC RRDESNBK # RETURN HERE IF NOUN = RCDU (72)
011128,000262: # RETURNS TO L+1 IF IMU OR L+2 IF RR.
011129,000263:
011130,000264: 43,2175 46007 OP/INERT CS OCT24
011131,000265: 43,2176 61001 AD NOUNREG
011132,000266: 43,2177 00006 EXTEND
![]() |
Page 268 |
011134,000268: 43,2200 16745 BZF TCQ # IF = 20.
011135,000269:
011136,000270: 43,2201 62205 AD RRIMUDIF # -52
011137,000271: 43,2202 00006 EXTEND
011138,000272: 43,2203 16742 BZF Q+1
011139,000273:
011140,000274: 43,2204 02114 TC ALM/END # ILLEGAL.
011141,000275:
011142,000276: 43,2205 77713 RRIMUDIF DEC -52 B-14 # THE IMU
011143,000277: 43,2206 02430 IMUCOARK TC CKMODCAD
011144,000278: 43,2207 02076 TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
011145,000279: 43,2210 32226 CAF VNLODCDU # CALL FOR THETAD LOAD
011146,000280: 43,2211 04616 TC BANKCALL
011147,000281: 43,2212 20334 CADR GOXDSPF
011148,000282: 43,2213 05472 TC TERMEXTV
011149,000283: 43,2214 12215 TCF +1
011150,000284:
011151,000285: 43,2215 32227 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
011152,000286: 43,2216 04616 TC BANKCALL
011153,000287: 43,2217 20621 CADR EXDSPRET
011154,000288:
011155,000289: 43,2220 04616 TC BANKCALL # CALL MODE SWITCHING PROG
011156,000290: 43,2221 16772 CADR IMUCOARS
011157,000291:
011158,000292: 43,2222 04616 TC BANKCALL # STALL
011159,000293: 43,2223 17710 CADR IMUSTALL
011160,000294: 43,2224 05472 TC ENDEXTVB
011161,000295: 43,2225 05472 TC ENDEXTVB
011162,000296:
011163,000297: 43,2226 06226 VNLODCDU VN 2522
011164,000298: 43,2227 12200 IMUCOARV VN 4100
011165,000299:
![]() |
Page 269 |
011167,000301: # DESIGNATE TO DESIRED GIMBAL ANGLES.
011168,000302:
011169,000303: 43,2230 02674 RRDESNBK TC RDRUSECK
011170,000304: 43,2231 02076 TC TESTXACT
011171,000305: 43,2232 42316 CS OCT41000 # TERMINATE PRESENT DESIGNATION
011172,000306: 43,2233 00004 INHINT # RELINT DONE IN GOXDSPF
011173,000307: 43,2234 70110 MASK RADMODES
011174,000308: 43,2235 54110 TS RADMODES
011175,000309:
011176,000310: 43,2236 32255 CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
011177,000311: 43,2237 04616 TC BANKCALL
011178,000312: 43,2240 20334 CADR GOXDSPF
011179,000313: 43,2241 05472 TC TERMEXTV
011180,000314: 43,2242 12236 TCF -4 # V33
011181,000315:
011182,000316: 43,2243 04616 TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
011183,000317: 43,2244 46000 CADR AURLOKON
011184,000318:
011185,000319: 43,2245 32227 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
011186,000320: 43,2246 04616 TC BANKCALL
011187,000321: 43,2247 20621 CADR EXDSPRET
011188,000322:
011189,000323: 43,2250 34736 CAF PRIO20
011190,000324: 43,2251 05105 TC FINDVAC
011191,000325: 43,2252 E7,1456 EBANK= LOSCOUNT
011192,000326: 43,2252 02256 66107 2CADR RRDESK2
011193,000327:
011194,000328: 43,2254 15472 TCF TERMEXTV # FREES DISPLAY.
011195,000329:
011196,000330: 43,2255 06111 VNLDRCDU VN 2473
011197,000331: 43,2256 43,2227 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
011198,000332:
011199,000333: 43,2256 04616 RRDESK2 TC BANKCALL
011200,000334: 43,2257 52506 CADR RRDESNB
011201,000335:
011202,000336: 43,2260 02261 TC +1 # DUMMY NEEDED SINCE DESRETRN DOES INCR
011203,000337: 43,2261 30167 CA PRIORITY
011204,000338: 43,2262 75004 MASK LOW9
011205,000339: 43,2263 10000 CCS A
011206,000340: 43,2264 50000 INDEX A
011207,000341: 43,2265 54000 TS A # RELEASE THIS JOBS VAC AREA.
011208,000342: 43,2266 40000 COM # INSURE ENDOFJOB DOES A NOVAC END (BZMF).
011209,000343: 43,2267 26167 ADS PRIORITY
011210,000344: 43,2270 04616 TC BANKCALL # WAIT FOR COMPLETION OF DESIGNATE
011211,000345: 43,2271 17706 CADR RADSTALL
011212,000346: 43,2272 02274 TC +2 # BADEND-NO LOCKON OR OUT OF LIMITS
011213,000347: 43,2273 05155 TC ENDOFJOB # GOODEND-LOCKON ACHIEVED
011214,000348: 43,2274 05567 TC ALARM
011215,000349: 43,2275 00503 OCT 503 # TURN ON ALARM LIGHT-503 DESIGNATE FAIL
![]() |
Page 270 |
011217,000351:
011218,000352: 43,2276 05155 TC ENDOFJOB
011219,000353:
011220,000354: 43,2277 10110 RRDESEND CCS RADMODES # TERMINATE CONTINUOUS DESIGNATE ONLY
011221,000355: 43,2300 12115 TCF GOPIN
011222,000356: 43,2301 12115 TCF GOPIN
011223,000357: 43,2302 12303 TCF +1
011224,000358: 43,2303 42316 CS OCT41000 # BEGDES GOES TO ENDRADAR
011225,000359: 43,2304 00004 INHINT # RELINT DONE IN DOWNFLAG
011226,000360: 43,2305 70110 MASK RADMODES
011227,000361: 43,2306 54110 TS RADMODES
011228,000362: 43,2307 06011 TC CLRADMOD
011229,000363: 43,2310 34777 CAF 1SEC
011230,000364: 43,2311 04616 TC BANKCALL
011231,000365: 43,2312 01736 CADR DELAYJOB
011232,000366: 43,2313 05516 TC DOWNFLAG # ENABLE R25 GIMBAL MONITOR
011233,000367: 43,2314 00126 ADRES NORRMON
011234,000368: 43,2315 12115 TCF GOPIN
011235,000369: 43,2316 41000 OCT41000 OCT 41000 # CONTINUOUS DESIGNATE - DESIGNATE
011236,000370:
![]() |
Page 271 |
011238,000372: 23,2000 BANK 23
011239,000373: 23,2000 SETLOC EXTVB1
011240,000374: 23,2000 BANK
011241,000375: 23,2000 COUNT* $$/EXTVB
011242,000376:
011243,000377: 23,2000 04645 AURLOKON TC MAKECADR
011244,000378: 23,2001 55112 TS DESRET
011245,000379: 23,2002 34752 CAF TWO
011246,000380: 23,2003 55051 TS OPTIONX +1
011247,000381: 23,2004 36245 CAF SIX # OPTION CODE FOR V04N12
011248,000382: 23,2005 55050 TS OPTIONX
011249,000383:
011250,000384: 23,2006 32037 -5 CAF V04N1272
011251,000385: 23,2007 04616 TC BANKCALL # R2 00001 LOCK-ON
011252,000386: 23,2010 20353 CADR GOMARKFR
011253,000387: 23,2011 15472 TCF ENDEXT # V34
011254,000388: 23,2012 12017 TCF +5 # V33
011255,000389: 23,2013 12006 TCF -5 # V32
011256,000390: 23,2014 34751 CAF BIT3
011257,000391: 23,2015 05464 TC BLANKET
011258,000392: 23,2016 05155 TC ENDOFJOB
011259,000393:
011260,000394: 23,2017 31051 +5 CA OPTIONX +1
011261,000395: 23,2020 74752 MASK BIT2
011262,000396: 23,2021 10000 CCS A
011263,000397: 23,2022 12026 TCF NOLOKON
011264,000398: 23,2023 05504 TC UPFLAG
011265,000399: 23,2024 00012 ADRES LOKONSW
011266,000400: 23,2025 12034 TCF AURLKON1
011267,000401:
011268,000402: 23,2026 05516 NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMODES TO
011269,000403: 23,2027 00012 ADRES LOKONSW # INDICATE THAT CONTINUOUS DESIGNATION IS
011270,000404: 23,2030 05504 TC UPFLAG # WANTED (TO BE TERMINATED BY V44.)
011271,000405: 23,2031 00264 ADRES CDESFLAG
011272,000406: 23,2032 05504 TC UPFLAG # SET NO RR ANGLE MONITOR FLAG.
011273,000407: 23,2033 00126 ADRES NORRMON # (DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
011274,000408: 23,2034 00003 AURLKON1 RELINT
011275,000409: 23,2035 31112 CA DESRET
011276,000410: 23,2036 14640 TCF BANKJUMP
011277,000411:
011278,000412: 23,2037 01014 V04N1272 VN 412
011279,000413: 23,2040 77757 -LOKONFG OCT -20
011280,000414:
011281,000415: 43,2317 BANK 43
011282,000416: 43,2000 SETLOC EXTVERBS
011283,000417: 43,2000 BANK
011284,000418: 43,2317 COUNT* $$/EXTVB
011285,000419:
011286,000420: 43,2317 02076 LRON TC TESTXACT
011287,000421:
![]() |
Page 272 |
011289,000423: 43,2320 32357 DSP68 CAF V06N68
011290,000424: 43,2321 04616 TC BANKCALL
011291,000425: 43,2322 20353 CADR GOMARKFR
011292,000426: 43,2323 02355 TC B1+5OFF
011293,000427: 43,2324 02346 TC SET57
011294,000428: 43,2325 05155 TC ENDOFJOB
011295,000429:
011296,000430: 43,2326 04616 WAIT68 TC BANKCALL
011297,000431: 43,2327 01735 CADR 2SECDELY
011298,000432:
011299,000433: 43,2330 34361 CAF OCT21
011300,000434: 43,2331 71043 MASK EXTVBACT
011301,000435: 43,2332 00006 EXTEND
011302,000436: 43,2333 15472 BZF ENDEXT
011303,000437:
011304,000438: 43,2334 74747 MASK BIT5
011305,000439: 43,2335 10000 CCS A
011306,000440: 43,2336 12320 TCF DSP68
011307,000441:
011308,000442: 43,2337 32357 DSP5068 CAF V50N68
011309,000443: 43,2340 04616 TC BANKCALL
011310,000444: 43,2341 20361 CADR GOMARK3R -1
011311,000445: 43,2342 12355 TCF B1+5OFF
011312,000446: 43,2343 12355 TCF B1+5OFF
011313,000447: 43,2344 12351 TCF RESET57
011314,000448:
011315,000449: 43,2345 12326 TCF WAIT68
011316,000450:
011317,000451: 43,2346 05504 SET57 TC UPFLAG
011318,000452: 43,2347 00254 ADRES LRINH
011319,000453:
011320,000454: 43,2350 15563 TCF B5OFF
011321,000455:
011322,000456: 43,2351 05516 RESET57 TC DOWNFLAG
011323,000457: 43,2352 00254 ADRES LRINH
011324,000458:
011325,000459: 43,2353 34362 CAF OCT25
011326,000460: 43,2354 05565 TC B5OFF +2
011327,000461:
011328,000462: 43,2355 44361 B1+5OFF CS OCT21
011329,000463: 43,2356 15564 TCF B5OFF +1
011330,000464:
011331,000465: 43,2357 4361 OCT21 EQUALS ND1
011332,000466:
011333,000467: 43,2357 01504 V06N68 VN 0668
011334,000468: 43,2360 43,2357 V50N68 = V06N68
011335,000469:
011336,000470: 43,2360 05516 LROFF TC DOWNFLAG # INHIBIT INCORPORATION OF LR DATA V58
011337,000471: 43,2361 00254 ADRES LRINH
011338,000472: 43,2362 12115 TCF GOPIN
011339,000473:
![]() |
Page 273 |
011341,000475:
011342,000476: 43,2363 E5,1737 EBANK= OGC
011343,000477:
![]() |
Page 274 |
011345,000479: # IMUFINEK VERB 42 DESCRIPTION
011346,000480: # FINE ALIGN IMU
011347,000481: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
011348,000482: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
011349,000483: # RESPONSES
011350,000484: # A. TERMINATE
011351,000485: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
011352,000486: # B. PROCEED OR ENTER
011353,000487: # 1. RE-DISPLAY VERB 42
011354,000488: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
011355,000489: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
011356,000490: # A. FAILED
011357,000491: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
011358,000492: # B. GOOD
011359,000493: # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
011360,000494: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
011361,000495:
011362,000496: 43,2363 02430 IMUFINEK TC CKMODCAD
011363,000497: 43,2364 02076 TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
011364,000498: 43,2365 32412 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
011365,000499: 43,2366 04616 TC BANKCALL
011366,000500: 43,2367 20334 CADR GOXDSPF
011367,000501: 43,2370 05472 TC TERMEXTV
011368,000502: 43,2371 02372 TC +1 # PROCEED WITHOUT A LOAD
011369,000503:
011370,000504: 43,2372 32413 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
011371,000505: 43,2373 04616 TC BANKCALL
011372,000506: 43,2374 20621 CADR EXDSPRET
011373,000507:
011374,000508: 43,2375 04616 TC BANKCALL # CALL MODE SWITCH PROG
011375,000509: 43,2376 17202 CADR IMUFINE
011376,000510:
011377,000511: 43,2377 04616 TC BANKCALL # HIBERNATION
011378,000512: 43,2400 17710 CADR IMUSTALL
011379,000513: 43,2401 05472 TC ENDEXTVB
011380,000514:
011381,000515: 43,2402 32411 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
011382,000516: 43,2403 04616 TC BANKCALL
011383,000517: 43,2404 17315 CADR IMUPULSE
011384,000518:
011385,000519: 43,2405 04616 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
011386,000520: 43,2406 17710 CADR IMUSTALL
011387,000521: 43,2407 05472 TC ENDEXTVB
011388,000522: 43,2410 05472 TC ENDEXTVB
011389,000523:
011390,000524: 43,2411 02737 LGYROBIN ECADR OGC
011391,000525: 43,2412 06335 VNLODGYR VN 2593
011392,000526: 43,2413 12400 IMUFINEV VN 4200
011393,000527: # GOLOADLV VERB 50 DESCRIPTION
011394,000528: # AND OTHER PLEASE
![]() |
Page 275 |
011396,000530: # DO SOMETHING VERBS
011397,000531: # PLEASE PERFORM, MARK, CALIBRATE, ETC.
011398,000532: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
011399,000533: # SAME RECALL AS A COMPLETED LOAD.
011400,000534: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
011401,000535:
011402,000536: 43,2414 40,2000 SBANK= PINSUPER # FOR LOADLV1 AND SHOWSUM CADR'S.
011403,000537:
011404,000538: 43,2414 04433 GOLOADLV TC FLASHOFF
011405,000539:
011406,000540: 43,2415 34201 CAF PINSUPBT
011407,000541: 43,2416 00006 EXTEND
011408,000542: 43,2417 01007 WRITE SUPERBNK
011409,000543: 43,2420 04635 TC POSTJUMP
011410,000544: 43,2421 62001 CADR LOADLV1
011411,000545:
011412,000546: # VERB 47 - AGS INITIALIZATION - R47.
011413,000547:
011414,000548: # SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
011415,000549:
011416,000550: 43,2422 02076 V47TXACT TC TESTXACT # NO OTHER EXTVERB.
011417,000551: 43,2423 34740 CAF PRIO4
011418,000552: 43,2424 05105 TC FINDVAC
![]() |
[WORKAROUND] RSB 2009 |
011420,000554: 43,2425 30,2000 SBANK= LOWSUPER
011421,000555: 43,2425 E4,1600 EBANK= AGSBUFF
011422,000556: 43,2425 02005 64064 2CADR AGSINIT
011423,000557:
011424,000558: 43,2427 05155 TC ENDOFJOB
011425,000559:
011426,000560: 43,2430 31301 CKMODCAD CA MODECADR
011427,000561: 43,2431 00006 EXTEND
011428,000562: 43,2432 16745 BZF TCQ
011429,000563: 43,2433 02114 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT
011430,000564:
![]() |
Page 276 |
011432,000566: # ALINTIME VERB 55 DESCRIPTION
011433,000567: # REQUIRE POO OR POO-.
011434,000568: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011435,000569: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
011436,000570: # 3. REQUIRE EXECUTION OF VERB 23.
011437,000571: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
011438,000572: # 5. RELEASE EXT VERB DISPLAY SYSTEM
011439,000573:
011440,000574: 43,2434 02076 ALINTIME TC TESTXACT
011441,000575: 43,2435 04635 TC POSTJUMP # NO ROOM IN 43
011442,000576: 43,2436 64002 CADR R33
011443,000577:
011444,000578: 42,2002 BANK 42
011445,000579: 42,2000 SETLOC SBAND
011446,000580: 42,2000 BANK
011447,000581: 42,2002 COUNT* $$/R33
011448,000582:
011449,000583: 42,2002 35021 R33 CAF PRIO7
011450,000584: 42,2003 05146 TC PRIOCHNG
011451,000585: 42,2004 32034 CAF VNLODDT
011452,000586: 42,2005 04616 TC BANKCALL
011453,000587: 42,2006 20334 CADR GOXDSPF
011454,000588: 42,2007 05472 TC ENDEXT # TERMINATE
011455,000589: 42,2010 05472 TC ENDEXT # PROCEED
011456,000590: 42,2011 42033 CS DEC23 # DATA IN OR RESEQUENCE (UNLIKELY)
011457,000591: 42,2012 60154 AD MPAC # RECALL LEFT VERB IN MPAC
011458,000592: 42,2013 00006 EXTEND
011459,000593: 42,2014 12016 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
011460,000594: 42,2015 05472 TC ENDEXT # WITH V23 (DATA IN).
011461,000595:
011462,000596: 42,2016 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
011463,000597: 42,2017 34755 CAF ZERO
011464,000598: 42,2020 54156 TS MPAC +2 # NEEDED FOR TP AGREE
011465,000599: 42,2021 54001 TS L # ZERO T1 + 2 WHILE ALIGNING.
011466,000600: 42,2022 52025 DXCH TIME2
011467,000601: 42,2023 52155 DXCH MPAC
011468,000602: 42,2024 53051 DXCH DSPTEM2 +1 # INCREMENT
011469,000603: 42,2025 20155 DAS MPAC
011470,000604:
011471,000605: 42,2026 07262 TC TPAGREE # FORCE SIGN AGREEMENT.
011472,000606: 42,2027 52155 DXCH MPAC # NEW CLOCK.
011473,000607: 42,2030 20025 DAS TIME2
011474,000608: 42,2031 00003 RELINT
011475,000609: 42,2032 05472 UPDTMEND TC ENDEXT
011476,000610:
011477,000611: 42,2033 00027 DEC23 DEC 23 B-14 # V 23
011478,000612:
011479,000613: 42,2034 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
011480,000614:
![]() |
Page 277 |
011482,000616: # SET UP FOR RADAR SAMPLING.
011483,000617:
011484,000618: 42,2035 BANK 42
011485,000619: 43,2000 SETLOC EXTVERBS
011486,000620: 43,2000 BANK
011487,000621:
011488,000622: 43,2437 E4,1600 EBANK= RSTACK
011489,000623:
011490,000624: 43,2437 COUNT* $$/R0477
011491,000625:
011492,000626: 43,2437 02674 R77 TC RDRUSECK # TRY TO AVOID THE 1210.
011493,000627: 43,2440 30077 CA FLAGWRD3 # IS R04 RUNNING?
011494,000628: 43,2441 74743 MASK R04FLBIT
011495,000629: 43,2442 10000 CCS A
011496,000630: 43,2443 02114 TC ALM/END # YES.
011497,000631: 43,2444 05504 TC UPFLAG
011498,000632: 43,2445 00117 ADRES R77FLAG
011499,000633: 43,2446 12453 TCF R04Z
011500,000634:
011501,000635: 43,2447 02674 R04 TC RDRUSECK # TRY TO AVOID THE 1210.
011502,000636: 43,2450 02076 TC TESTXACT
011503,000637: 43,2451 05504 TC UPFLAG
011504,000638: 43,2452 00063 ADRES R04FLAG # SET R04FLAG FOR ALARMS
011505,000639:
011506,000640: 43,2453 34741 R04Z CAF EBANK4
011507,000641: 43,2454 54003 TS EBANK
011508,000642: 43,2455 32672 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
011509,000643: 43,2456 55777 TS RSAMPDT
011510,000644: 43,2457 34755 CAF ZERO
011511,000645: 43,2460 55776 TS RTSTLOC
011512,000646: 43,2461 55575 TS RFAILCNT # ZERO BAD SAMPLE COUNTER
011513,000647:
011514,000648: 43,2462 00004 INHINT
011515,000649: 43,2463 42673 CS LRPOSCAL # INITIALIZE
011516,000650: 43,2464 70110 MASK RADMODES # BIT 9 LR RANGE LOW SCALE =0
011517,000651: 43,2465 54110 TS RADMODES # BIT 6 LR POS 1 =0
011518,000652: 43,2466 32673 CAF LRPOSCAL # BIT 3 RR RANGE LOW SCALE =0
011519,000653: 43,2467 00006 EXTEND
011520,000654: 43,2470 02033 RAND CHAN33
011521,000655: 43,2471 26110 ADS RADMODES
011522,000656: 43,2472 00003 RELINT
011523,000657:
011524,000658: 43,2473 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
011525,000659: 43,2474 74743 MASK R04FLBIT
011526,000660: 43,2475 10000 CCS A
011527,000661: 43,2476 12627 TCF R04K
011528,000662:
011529,000663: 43,2477 34753 CAF ONE # INDICATES RENDEZVOUS DESIRED
011530,000664: 43,2500 55051 TS OPTIONX +1
011531,000665: 43,2501 34751 R04A CAF BIT3 # OPTION CODE FOR V04N12
011532,000666:
![]() |
Page 278 |
011534,000668: 43,2502 55050 TS OPTIONX
011535,000669: 43,2503 32667 CAF V04N12X
011536,000670: 43,2504 04616 TC BANKCALL # R2 00001 RENDEZVOUS RADAR
011537,000671: 43,2505 20353 CADR GOMARKFR # 00002 LANDING RADAR
011538,000672: 43,2506 12635 TCF R04END # V34
011539,000673: 43,2507 12514 TCF +5 # V33
011540,000674: 43,2510 12503 TCF R04A +2 # R2
011541,000675: 43,2511 34751 CAF BIT3
011542,000676: 43,2512 05464 TC BLANKET
011543,000677: 43,2513 05155 TC ENDOFJOB
011544,000678:
011545,000679: 43,2514 31051 CA OPTIONX +1 # SAVE DESIRED OPTION RR =1 LR =2
011546,000680: 43,2515 55773 TS RTSTDEX
011547,000681:
011548,000682: 43,2516 36245 R04X CAF SIX # RR OR LR DESIRED
011549,000683: 43,2517 71773 MASK RTSTDEX
011550,000684: 43,2520 10000 CCS A
011551,000685: 43,2521 12631 TCF R04L # LANDING RADAR
011552,000686: 43,2522 55775 TS RTSTBASE # FOR RR BASE = 0, MAX = 1
011553,000687:
011554,000688: 43,2523 34752 R04B CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
011555,000689: 43,2524 00006 EXTEND
011556,000690: 43,2525 02033 RAND CHAN33
011557,000691: 43,2526 00006 EXTEND
011558,000692: 43,2527 12540 BZF R04C # YES
011559,000693:
011560,000694: 43,2530 32671 CAF 201R04 # REQUEST SELECTION OF RR AUTO MODE
011561,000695: 43,2531 55044 TS DSPTEM1
011562,000696: 43,2532 32670 CAF V50N25X
011563,000697: 43,2533 04616 TC BANKCALL
011564,000698: 43,2534 20345 CADR GOMARK4
011565,000699: 43,2535 12635 TCF R04END # V34
011566,000700: 43,2536 12523 TCF R04B # V33
011567,000701: 43,2537 12530 TCF -7 # E
011568,000702:
011569,000703: 43,2540 34736 R04C CAF BIT14 # ENABLE RR AUTO TRACKER
011570,000704: 43,2541 00006 EXTEND
011571,000705: 43,2542 05012 WOR CHAN12
011572,000706:
011573,000707: 43,2543 34752 CAF TWO
011574,000708: 43,2544 55774 TS RTSTMAX # FOR SEQUENTIAL STORAGE
011575,000709:
011576,000710: 43,2545 05203 TC WAITLIST
![]() |
[WORKAROUND] RSB 2009 |
011578,000712: 43,2546 40,2000 SBANK= PINSUPER
011579,000713: 43,2546 E4,1600 EBANK= RSTACK
011580,000714: 43,2546 02003 52104 2CADR RADSAMP
011581,000715:
011582,000716: 43,2550 00003 RELINT
011583,000717:
011584,000718: 43,2551 40077 CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
011585,000719: 43,2552 74743 MASK R04FLBIT
![]() |
Page 279 |
011587,000721: 43,2553 10000 CCS A
011588,000722: 43,2554 12115 TCF GOPIN # R77
011589,000723:
011590,000724: 43,2555 36245 CAF SIX # RR OR LR
011591,000725: 43,2556 71773 MASK RTSTDEX
011592,000726: 43,2557 10000 CCS A
011593,000727: 43,2560 12575 TCF R04LR # LR
011594,000728:
011595,000729: 43,2561 32663 R04RR CAF V16N72 # DISPLAY RR CDU ANGLES (1/SEC)
011596,000730: 43,2562 04616 TC BANKCALL # R1 + XXX.XX DEG TRUNNION
011597,000731: 43,2563 20334 CADR GOMARKF # R2 + XXX.XX DEG SHAFT
011598,000732: 43,2564 12635 TCF R04END # V34 R3 BLANK
011599,000733: 43,2565 12567 TCF +2 # V33
011600,000734: 43,2566 12561 TCF R04RR # V32
011601,000735:
011602,000736: 43,2567 32664 CAF V16N78 # DISPLAY RR RANGE AND RANGE RATE (1/SEC)
011603,000737: 43,2570 04616 TC BANKCALL # R1 +- XXX.XX NM RANGE
011604,000738: 43,2571 20334 CADR GOMARKF # R2 +- XXXXX. FPS RANGE RATE
011605,000739: 43,2572 12635 TCF R04END # V34 R3 BLANK
011606,000740: 43,2573 12611 TCF R04Y # V33
011607,000741: 43,2574 12561 TCF R04RR # V32
011608,000742:
011609,000743: 43,2575 32665 R04LR CAF V16N66 # DISPLAY LR RANGE AND POSITION (1/SEC)
011610,000744: 43,2576 04616 TC BANKCALL # R1 +- XXXXX. FT LR RANGE
011611,000745: 43,2577 20334 CADR GOMARKF # R2 + 0000X. POS. NO.
011612,000746: 43,2600 12635 TCF R04END # V34 R3 BLANK
011613,000747: 43,2601 12603 TCF +2 # V33
011614,000748: 43,2602 12575 TCF R04LR # V32
011615,000749:
011616,000750: 43,2603 32666 CAF V16N67 # DISPLAY LR VELX, VELY, VELZ (1/SEC)
011617,000751: 43,2604 04616 TC BANKCALL # R1 +- XXXXX. FPS LR V(X)
011618,000752: 43,2605 20334 CADR GOMARKF # R2 +- XXXXX. FPS LR V(Y)
011619,000753: 43,2606 12635 TCF R04END # V34 R3 +- XXXXX. FPS LR V(Z)
011620,000754: 43,2607 12611 TCF R04Y # V33
011621,000755: 43,2610 12575 TCF R04LR # V32
011622,000756:
011623,000757: 43,2611 34755 R04Y CAF ZERO # TO TERMINATE SAMPLING
011624,000758: 43,2612 55777 TS RSAMPDT
011625,000759: 43,2613 04616 TC BANKCALL
011626,000760: 43,2614 01735 CADR 2SECDELY # WAIT FOR LAST RADARUPT
011627,000761: 43,2615 32672 CAF 1SEC+1 # SAMPLE ONCE PER SECOND
011628,000762: 43,2616 55777 TS RSAMPDT
011629,000763: 43,2617 34755 CAF ZERO # FOR STORING RESULTS
011630,000764: 43,2620 55776 TS RTSTLOC
011631,000765: 43,2621 36245 CAF SIX
011632,000766: 43,2622 71773 MASK RTSTDEX
011633,000767: 43,2623 10000 CCS A
011634,000768: 43,2624 44753 CS ONE # WAS LR
011635,000769: 43,2625 64752 AD TWO # WAS RR
011636,000770: 43,2626 12515 TCF R04X -1
011637,000771:
![]() |
Page 280 |
011639,000773:
011640,000774: 43,2627 34766 R04K CAF 250MS+1 # SAMPLE 4 LR COMPONENTS PER SECOND.
011641,000775: 43,2630 55777 TS RSAMPDT
011642,000776:
011643,000777: 43,2631 34752 R04L CAF TWO
011644,000778: 43,2632 55775 TS RTSTBASE # FOR LR BASE =2, MAX =3
011645,000779: 43,2633 36245 CAF SIX
011646,000780: 43,2634 12544 TCF R04C +4
011647,000781: 43,2635 34755 R04END CAF ZERO # ZERO RSAMPDT
011648,000782: 43,2636 55777 TS RSAMPDT # TO TERMINATE SAMPLING
011649,000783: 43,2637 34744 CAF BIT8 # WAIT 1.28 SECONDS FOR POSSIBLE
011650,000784: 43,2640 04616 TC BANKCALL # PENDING RUPT.
011651,000785: 43,2641 01736 CADR DELAYJOB
011652,000786:
011653,000787: 43,2642 00004 INHINT
011654,000788: 43,2643 44736 CS BIT14 # DISABLE RR AUTO TRACKER
011655,000789: 43,2644 00006 EXTEND
011656,000790: 43,2645 03012 WAND CHAN12
011657,000791:
011658,000792: 43,2646 05516 TC DOWNFLAG
011659,000793: 43,2647 00063 ADRES R04FLAG # SIGNAL END OF R04.
011660,000794:
011661,000795: 43,2650 05472 TC ENDEXT
011662,000796:
011663,000797: 43,2651 34741 R77END CAF EBANK4 # TO TERMINATE SAMPLING
011664,000798: 43,2652 54003 TS EBANK
011665,000799: 43,2653 34755 CAF ZERO
011666,000800: 43,2654 55777 TS RSAMPDT
011667,000801: 43,2655 34746 CAF BIT6 # WAIT 320 MS FOR POSSIBLE
011668,000802: 43,2656 04616 TC BANKCALL # PENDING RUPT.
011669,000803: 43,2657 01736 CADR DELAYJOB
011670,000804:
011671,000805: 43,2660 05516 TC DOWNFLAG
011672,000806: 43,2661 00117 ADRES R77FLAG
011673,000807: 43,2662 12115 TCF GOPIN
011674,000808:
011675,000809: 43,2663 04110 V16N72 VN 1672
011676,000810: 43,2664 04116 V16N78 VN 1678
011677,000811: 43,2665 04102 V16N66 VN 1666
011678,000812: 43,2666 04103 V16N67 VN 1667
011679,000813: 43,2667 01014 V04N12X VN 412
011680,000814: 43,2670 14431 V50N25X VN 5025
011681,000815: 43,2671 00201 201R04 OCT 00201
011682,000816: 43,2672 00145 1SEC+1 DEC 101 B-14
011683,000817: 43,2673 4766 250MS+1 EQUALS CALLCODE
011684,000818: 43,2673 00444 LRPOSCAL OCT 444
011685,000819:
![]() |
Page 281 |
011687,000821: 43,2674 40077 RDRUSECK CS FLAGWRD3 # IS R29 ON?
011688,000822: 43,2675 74741 MASK NR29FBIT
011689,000823: 43,2676 10000 CCS A
011690,000824: 43,2677 02114 TC ALM/END # YES
011691,000825: 43,2700 30101 CA FLAGWRD5 # IS R77 RUNNING?
011692,000826: 43,2701 74741 MASK R77FLBIT
011693,000827: 43,2702 10000 CCS A
011694,000828: 43,2703 02114 TC ALM/END # YES.
011695,000829: 43,2704 40103 CS FLAGWRD7 # IS SERVICER RUNNING AND HENCE POSSIBLY
011696,000830: 43,2705 74746 MASK V37FLBIT # R12 USING THE LR?
011697,000831: 43,2706 10000 CCS A
011698,000832: 43,2707 12714 TCF CHECKRR # NO
011699,000833: 43,2710 30107 CA FLGWRD11 # YES, IS R12 ON?
011700,000834: 43,2711 74735 MASK LRBYBIT # BIT 15
011701,000835: 43,2712 00006 EXTEND
011702,000836: 43,2713 12114 BZF ALM/END # YES
011703,000837: 43,2714 40075 CHECKRR CS FLAGWRD1 # IS THE TRACK FLAG SET AND HENCE POSSIBLY
011704,000838: 43,2715 74747 MASK TRACKBIT # P20 USING THE RR?
011705,000839: 43,2716 10000 CCS A
011706,000840: 43,2717 00002 TC Q # NOT ALLOWED DURING P20
011707,000841: 43,2720 02114 TC ALM/END # P22 OR P25, (R65)
011708,000842: 43,2721 COUNT* $$/EXTVB
011709,000843:
011710,000844: 43,2721 02076 VB64 TC TESTXACT # IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
011711,000845: 43,2722 34740 CAF PRIO4
011712,000846: 43,2723 05105 TC FINDVAC
011713,000847: 43,2724 E4,1600 EBANK= ALPHASB
011714,000848: 43,2724 03606 64104 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES.
011715,000849:
011716,000850: 43,2726 05155 TC ENDOFJOB
011717,000851:
![]() |
Page 282 |
011719,000853: # IMUATTCK VERB 43 DESCRIPTION
011720,000854: # LOAD IMU ATTITUDE ERROR METERS
011721,000855: # 1. REQUIRE POO OR FRESH START.
011722,000856: # 2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
011723,000857: # 3. REQUIRE THAT NEEDLES BE OFF.
011724,000858: # 4. REQUEST LOAD OF N22 (VAUES TO BE DISPLAYED).
011725,000859: # 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
011726,000860:
011727,000861: 43,2727 02117 IMUATTCK TC CHKPOOH # VB 76 - LOAD IMU ATT. ERROR METERS
011728,000862:
011729,000863: 43,2730 34763 CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU
011730,000864: 43,2731 00006 EXTEND # CDUS BITS ARE ON
011731,000865: 43,2732 02012 RAND CHAN12
011732,000866: 43,2733 10000 CCS A
011733,000867: 43,2734 12114 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
011734,000868:
011735,000869: 43,2735 34355 CAF BIT13-14 # BOTH BITS 13 AND 14 MUST BE 1
011736,000870: 43,2736 00006 EXTEND # INDICATING THE MODE SELECTED IS OFF.
011737,000871: 43,2737 06031 RXOR CHAN31
011738,000872: 43,2740 74355 MASK BIT13-14
011739,000873: 43,2741 00006 EXTEND
011740,000874: 43,2742 12744 BZF +2 # NEEDLES IS OFF.
011741,000875: 43,2743 12114 TCF ALM/END # EXIT. NEEDLES IS ON.
011742,000876:
011743,000877: 43,2744 02076 TC TESTXACT
011744,000878:
011745,000879: 43,2745 32226 CAF VNLODCDU
011746,000880: 43,2746 04616 TC BANKCALL
011747,000881: 43,2747 20334 CADR GOXDSPF
011748,000882: 43,2750 05472 TC ENDEXT # V34
011749,000883: 43,2751 02752 TC +1
011750,000884: 43,2752 32765 CAF V43K # REDISPLAY OUR VERB.
011751,000885: 43,2753 04616 TC BANKCALL
011752,000886: 43,2754 20621 CADR EXDSPRET
011753,000887: 43,2755 34746 CAF BIT6
011754,000888: 43,2756 00006 EXTEND
011755,000889: 43,2757 05012 WOR CHAN12 # ENABLE ERROR COUNTERS.
011756,000890: 43,2760 34752 CAF TWO
011757,000891: 43,2761 05203 TC WAITLIST # PUT OUT COMMANDS IN .32 SECONDS.
011758,000892: 43,2762 0321 EBANK= THETAD
011759,000893: 43,2762 02035 64100 2CADR ATTCK2
011760,000894:
011761,000895: 43,2764 15472 TCF ENDEXT
011762,000896:
011763,000897: 42,2035 BANK 42
011764,000898: 42,2000 SETLOC PINBALL3 # SOMETHING IN B42.
011765,000899: 42,2000 BANK
011766,000900:
011767,000901: 42,2035 COUNT* $$/EXTVB
![]() |
Page 283 |
011769,000903: 42,2035 34752 ATTCK2 CAF TWO # PUT OUT COMMANDS.
011770,000904: 42,2036 54002 +1 TS Q # CDU WILL LIMIT EXCESS DATA.
011771,000905: 42,2037 50000 INDEX A
011772,000906: 42,2040 30321 CA THETAD
011773,000907: 42,2041 00006 EXTEND
011774,000908: 42,2042 72053 MP ATTSCALE
011775,000909: 42,2043 50002 INDEX Q
011776,000910: 42,2044 56050 XCH CDUXCMD
011777,000911: 42,2045 10002 CCS Q
011778,000912: 42,2046 12036 TCF ATTCK2 +1
011779,000913:
011780,000914: 42,2047 37743 CAF 13,14,15
011781,000915: 42,2050 00006 EXTEND
011782,000916: 42,2051 05014 WOR CHAN14
011783,000917: 42,2052 15261 TCF TASKOVER # LEAVE ERROR COUNTERS ENABLED.
011784,000918:
011785,000919: 42,2053 03146 ATTSCALE DEC 0.1
011786,000920:
011787,000921: 07,2667 BANK 7
011788,000922: 43,2000 SETLOC EXTVERBS
011789,000923: 43,2000 BANK
011790,000924:
011791,000925: 43,2765 COUNT* $$/EXTVB
011792,000926:
011793,000927: 43,2765 12600 V43K VN 4300
011794,000928: # V82PERF VERB82 DESCRIPTION
011795,000929: # REQUEST ORBIT PARAMETERS DISPLAY (R30)
011796,000930: # 1. IF AVERAGE G IS OFF:
011797,000931: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011798,000932: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
011799,000933: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
011800,000934: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011801,000935: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
011802,000936: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
011803,000937: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011804,000938: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
011805,000939: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011806,000940: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
011807,000941: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011808,000942: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011809,000943: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011810,000944: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011811,000945:
011812,000946: # 2. IF AVERAGE G IS ON:
011813,000947: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
011814,000948: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
011815,000949: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011816,000950: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011817,000951: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011818,000952: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011819,000953:
![]() |
Page 284 |
011821,000955: 43,2766 02076 V82PERF TC TESTXACT
011822,000956:
011823,000957: 43,2767 35021 CAF PRIO7 # LESS THAN LAMBERT. R30,V82
011824,000958: 43,2770 05146 TC PRIOCHNG
011825,000959: 43,2771 00006 EXTEND
011826,000960: 43,2772 32775 DCA V82CON
011827,000961: 43,2773 05165 TC SUPDXCHZ # V82CALL IN DIFF SUPERBANK FROM V82PERF
011828,000962:
011829,000963: 43,2774 E4,1716 EBANK= HAPO
011830,000964: 43,2774 03242 44104 V82CON 2CADR V82CALL
011831,000965:
011832,000966: # VB83PERF VERB 83 DESCRIPTION
011833,000967: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011834,000968: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011835,000969: # 2. SCHEDULE R31CALL WITH PRIORITY 5.
011836,000970: # A. DISPLAY
011837,000971: # R1 RANGE
011838,000972: # R2 RANGE RATE
011839,000973: # R3 THETA
011840,000974:
011841,000975: 43,2776 02076 V83PERF TC TESTXACT
011842,000976:
011843,000977: 43,2777 34752 CAF BIT2
011844,000978: 43,3000 05203 TC WAITLIST
011845,000979: 43,3001 E7,1611 EBANK= TSTRT
011846,000980: 43,3001 03737 60107 2CADR R31CALL
011847,000981:
011848,000982: 43,3003 05155 TC ENDOFJOB
011849,000983:
011850,000984: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011851,000985:
011852,000986: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
011853,000987: # DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
011854,000988:
011855,000989: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
011856,000990: # EXIT R63, OTHERWISE CONTINUE.
011857,000991:
011858,000992: # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
011859,000993: # ORIENTATION KNOWN TO LGC, CONTINUE.
011860,000994:
011861,000995: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011862,000996: # BE POINTED AT CSM. INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
011863,000997: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
011864,000998: # AFTER KEYING IN PROCEED.
011865,000999:
011866,001000: # 4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
011867,001001:
011868,001002: # 5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
![]() |
Page 285 |
011870,001004: # HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
011871,001005: # PREPARED FOR VECPOINT.
011872,001006:
011873,001007: # 6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
011874,001008: # BALLANGS. FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
011875,001009:
011876,001010: # 7. RECYCLE - RETURN TO STEP 4.
011877,001011: # TERMINATE - EXIT R63.
011878,001012: # PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
011879,001013:
011880,001014: 43,3004 02117 V89PERF TC CHKPOOH
011881,001015: 43,3005 02076 TC TESTXACT
011882,001016: 43,3006 34737 CAF PRIO10
011883,001017: 43,3007 05105 TC FINDVAC
011884,001018: 43,3010 E4,1606 EBANK= RONE
011885,001019: 43,3010 02022 54104 2CADR V89CALL
011886,001020:
011887,001021: 43,3012 05155 TC ENDOFJOB
011888,001022:
011889,001023: # V90PERF VERB 90 DESCRIPTION
011890,001024: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011891,001025: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011892,001026: # 2. SCHEDULE R36 CALL WITH PRIORITY 10
011893,001027: # A. DISPLAY
011894,001028: # TIME OF EVENT - HOURS , MINUTES , SECONDS
011895,001029: # Y OUT-OF-PLANE POSITION - NAUTICAL MILES
011896,001030: # YDOT OUT-OF-PLANE VELOCITY - FEET/SECOND
011897,001031: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
011898,001032: # DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
011899,001033:
011900,001034: 43,3013 02076 V90PERF TC TESTXACT
011901,001035: 43,3014 35021 CAF PRIO7 # R36,V90
011902,001036: 43,3015 05105 TC FINDVAC
011903,001037: 43,3016 E4,1606 EBANK= RPASS36
011904,001038: 43,3016 02640 10104 2CADR R36
011905,001039:
011906,001040: 43,3020 15155 TCF ENDOFJOB
011907,001041: # MINIMP VERB 76 DESCRIPTION
011908,001042: # MINIMUM IMPULSE MODE
011909,001043: # 1. SET MINIMUM IMPULSE RHC MODE FLAG TO 1.
011910,001044:
011911,001045: 43,3021 05504 MINIMP TC UPFLAG # SET PULSES = 1 (MIN. IMPULSE MODE)
011912,001046: 43,3022 00303 ADRES PULSEFLG
011913,001047: 43,3023 12115 TCF GOPIN # RETURN VIA PINBRNCH
011914,001048:
011915,001049: # NOMINIMP VERB 77 DESCRIPTION
011916,001050: # RATE COMMAND MODE
011917,001051: # 1. SET MINIMUM IMPULSE RHC MODE FLAG TO 0. (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
011918,001052: # 2. MOVE CDUX,CDUY,CDUZ INTO CDUXD,CDUYD,CDUZD.
![]() |
Page 286 |
011920,001054:
011921,001055: 43,3024 05516 NOMINIMP TC DOWNFLAG # SET PULSES = 0 (NOT MINIMUM IMPULSE MODE
011922,001056: 43,3025 00303 ADRES PULSEFLG
011923,001057: 43,3026 00004 INHINT
011924,001058: 43,3027 04674 TC IBNKCALL
011925,001059: 43,3030 40154 CADR ZATTEROR
011926,001060: 43,3031 02115 TC GOPIN
011927,001061:
![]() |
Page 287 |
011929,001063: # CREWMANU VERB 49 DESCRIPTION
011930,001064: # START AUTOMATIC ATTITUDE MANEUVER
011931,001065: # 1. REQUIRE PROGRAM 00 ACTIVE.
011932,001066: # 2. SET EXT VERB DISPLAY BUSY FLAG.
011933,001067: # 3. SCHEDULE R62DISP WITH PRIORITY 10.
011934,001068: # 4. RELEASE EXT VERB DISPLAY.
011935,001069:
011936,001070: # R62DISP
011937,001071: # 1. DISPLAY FLASHING V06,N22.
011938,001072: # RESPONSES
011939,001073: # A. TERMINATE
011940,001074: # 1. GO TO GOTOPOOH.
011941,001075: # B. PROCEED
011942,001076: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
011943,001077: # 2. EXECUTE R60LEM (ATTITUDE MANEUVER).
011944,001078: # C. ENTER
011945,001079: # 1. REPEAT FLASHING V06,N22.
011946,001080:
011947,001081: 43,3032 02117 CREWMANU TC CHKPOOH # DEMAND POO
011948,001082:
011949,001083: 43,3033 02076 TC TESTXACT
011950,001084:
011951,001085: 43,3034 34737 CAF PRIO10
011952,001086: 43,3035 05105 TC FINDVAC
011953,001087: 43,3036 E6,1676 EBANK= BCDU
011954,001088: 43,3036 02103 46106 2CADR R62DISP
011955,001089:
011956,001090: 43,3040 05155 TC ENDOFJOB
011957,001091:
![]() |
Page 288 |
011959,001093: # TRMTRACK VERB 56 DESCRIPTION
011960,001094: # TERMINATE TRACKING (P20 AND P25).
011961,001095: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011962,001096: # 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
011963,001097: # 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
011964,001098:
011965,001099: # V56TOVAC
011966,001100: # 1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
011967,001101: # 2. ZERO GROUP 2 TO HALT P20.
011968,001102: # 3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).
011969,001103:
011970,001104: 43,3041 33061 TRMTRACK CA BITS9+7 # IS REND OR P25 FLAG ON
011971,001105: 43,3042 70074 MASK FLAGWRD0
011972,001106: 43,3043 00006 EXTEND
011973,001107: 43,3044 12115 BZF GOPIN # NO
011974,001108:
011975,001109: 43,3045 05516 TC DOWNFLAG
011976,001110: 43,3046 00010 ADRES RNDVZFLG
011977,001111:
011978,001112: 43,3047 05516 TC DOWNFLAG
011979,001113: 43,3050 00006 ADRES P25FLAG
011980,001114:
011981,001115: 43,3051 05516 TC DOWNFLAG # ENSURE SEARCH FLAG IS OFF
011982,001116: 43,3052 00037 ADRES SRCHOPTN
011983,001117:
011984,001118: 43,3053 34747 CA TRACKBIT # IS TRACK FLAG ON?
011985,001119: 43,3054 70075 MASK FLAGWRD1
011986,001120: 43,3055 00006 EXTEND
011987,001121: 43,3056 12115 BZF GOPIN
011988,001122:
011989,001123: 43,3057 04635 TC POSTJUMP
011990,001124: 43,3060 64054 CADR TRMTRAK1
011991,001125:
011992,001126: 43,3061 00500 BITS9+7 OCT 500
011993,001127:
011994,001128: 42,2000 SETLOC SBAND # BANK 42
011995,001129: 42,2000 BANK
011996,001130:
011997,001131: 42,2054 COUNT* $$/EXTVB
011998,001132:
011999,001133: 42,2054 05516 TRMTRAK1 TC DOWNFLAG
012000,001134: 42,2055 00027 ADRES UPDATFLG # UPDATE FLAG DOWN
012001,001135: 42,2056 05516 TC DOWNFLAG
012002,001136: 42,2057 00031 ADRES TRACKFLG # TRACK FLAG DOWN
012003,001137: 42,2060 05516 TC DOWNFLAG
012004,001138: 42,2061 00007 ADRES IMUSE
012005,001139:
012006,001140: 42,2062 06042 TC INTPRET
012007,001141: 42,2063 77624 CALL
012008,001142: 42,2064 27412 INTSTALL # DONT INTERRUPT INTEGRATION
![]() |
Page 289 |
012010,001144: 42,2065 77776 EXIT
012011,001145:
012012,001146: 42,2066 05353 TC PHASCHNG
012013,001147: 42,2067 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
012014,001148:
012015,001149: 42,2070 00004 INHINT
012016,001150: 42,2071 04674 TC IBNKCALL # ZERO THE COMMANDED RATES TO STOP
012017,001151: 42,2072 40166 CADR STOPRATE # MANEUVER
012018,001152:
012019,001153: 42,2073 04674 TC IBNKCALL
012020,001154: 42,2074 40115 CADR RESTORDB
012021,001155:
012022,001156: 42,2075 06011 TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES.
012023,001157:
012024,001158: 42,2076 44736 CS BIT14 # DISABLE LOCKON
012025,001159: 42,2077 00006 EXTEND
012026,001160: 42,2100 03012 WAND CHAN12
012027,001161: 42,2101 04635 TC POSTJUMP
012028,001162: 42,2102 12766 CADR GOPROG2 # CAUSE RESTART.
012029,001163:
012030,001164: # DNEDUMP VERB 74 DESCRIPTION
012031,001165: # INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
012032,001166: # 1. SET EXT VERB DISPLAY BUSY FLAG.
012033,001167: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
012034,001168: # 3. RELEASE EXT VERB DISPLAY.
012035,001169:
012036,001170: 43,2000 SETLOC EXTVERBS
012037,001171: 43,2000 BANK
012038,001172:
012039,001173: 43,3062 COUNT* $$/EXTVB
012040,001174:
012041,001175: 43,3062 0400 EBANK= 400
012042,001176: 43,3062 33065 DNEDUMP CAF LDNDUMPI
012043,001177: 43,3063 54335 TS DNTMGOTO
012044,001178: 43,3064 02115 TC GOPIN
012045,001179:
012046,001180: 43,3065 43,3062 V74 EQUALS DNEDUMP
012047,001181: 43,3065 03706 LDNDUMPI REMADR DNDUMPI
012048,001182:
012049,001183: # LEMVEC VERB 80 DESCRIPTION
012050,001184: # UPDATE LEM STATE VECTOR
012051,001185: # RESET VEHUPFLG TO 0
012052,001186:
012053,001187: 43,3066 05516 LEMVEC TC DOWNFLAG
012054,001188: 43,3067 00026 ADRES VEHUPFLG # VB 80 - VEHUPFLG DOWN INDICATES LEM
012055,001189:
012056,001190: 43,3070 03073 TC NOUPDOWN
012057,001191:
012058,001192: # CSMVEC VERB 81 DESCRIPTION
012059,001193: # UPDATE CSM STATE VECTOR
![]() |
Page 290 |
012061,001195: # SET VEHUPFLG TO 1
012062,001196:
012063,001197: 43,3071 05504 CSMVEC TC UPFLAG
012064,001198: 43,3072 00026 ADRES VEHUPFLG # VB 81 - VEHUPFLG UP INDICATES CSM
012065,001199:
012066,001200: 43,3073 05516 NOUPDOWN TC DOWNFLAG
012067,001201: 43,3074 00030 ADRES NOUPFLAG
012068,001202:
012069,001203: 43,3075 12115 TCF GOPIN
012070,001204:
012071,001205: # UPDATOFF VERB 95 DESCRIPTION
012072,001206: # INHIBIT STATE VECTOR UPDATES BY INCORP
012073,001207: # SET NOUPFLAG TO 1
012074,001208:
012075,001209: 43,3076 05504 UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
012076,001210: 43,3077 00030 ADRES NOUPFLAG
012077,001211:
012078,001212: 43,3100 02115 TC GOPIN
![]() |
Page 291 |
012080,001214: # SYSTEST VERB 92 DESCRIPTION
012081,001215: # OPERATE IMU PERFORMANCE TEST.
012082,001216: # 1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
012083,001217: # 2. SET EXT VERB BUSY FLAG.
012084,001218:
012085,001219: 43,3101 E5,1417 EBANK= QPLACE
012086,001220:
012087,001221: 43,3101 02117 SYSTEST TC CHKPOOH # DEMAND POO
012088,001222:
012089,001223: 43,3102 02076 TC TESTXACT
012090,001224:
012091,001225: 43,3103 37713 CAF PRIO22
012092,001226: 43,3104 05105 TC FINDVAC
012093,001227: 43,3105 E5,1417 EBANK= QPLACE
012094,001228: 43,3105 37,2000 SBANK= IMUSUPER
012095,001229: 43,3105 02002 76065 2CADR REDO
012096,001230:
012097,001231: 43,3107 05155 TC ENDOFJOB
012098,001232:
012099,001233: # VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
012100,001234:
012101,001235: 43,3110 00004 WMATRXNG INHINT
012102,001236: 43,3111 44753 CS RENDWBIT
012103,001237: 43,3112 70101 MASK FLAGWRD5
012104,001238: 43,3113 54101 TS FLAGWRD5
012105,001239:
012106,001240: 43,3114 02115 TC GOPIN
012107,001241:
012108,001242: 43,3115 43,3115 GOSHOSUM EQUALS SHOWSUM
012109,001243:
012110,001244: 43,3115 02117 SHOWSUM TC CHKPOOH # *
012111,001245: 43,3116 02076 TC TESTXACT # *
012112,001246: 43,3117 35021 CAF PRIO7 # ALLOW OTHER CHARINS.
012113,001247: 43,3120 05146 TC PRIOCHNG
012114,001248: 43,3121 34753 CAF S+1 # *
012115,001249: 43,3122 55376 TS SKEEP6 # * SHOWSUM OPTION
012116,001250: 43,3123 34755 CAF S+ZERO # *
012117,001251: 43,3124 55362 TS SMODE # * TURN OFF SELF-CHECK
012118,001252: 43,3125 33266 CA SELFADRS # *
012119,001253: 43,3126 55361 TS SELFRET # *
012120,001254: 43,3127 03543 TC STSHOSUM # * ENTER ROPECHK
012121,001255:
012122,001256: 43,3130 23372 SDISPLAY LXCH SKEEP2 # * BANK # FOR DISPLAY
012123,001257: 43,3131 23373 LXCH SKEEP3 # * BUGGER WORD FOR DISPLAY
012124,001258: 43,3132 33265 NOKILL CA ADRS1 # *
012125,001259: 43,3133 54156 TS MPAC +2 # *
012126,001260: 43,3134 33145 CA VNCON # * 0501
012127,001261: 43,3135 04616 TC BANKCALL # *
012128,001262: 43,3136 20334 CADR GOXDSPF # *
012129,001263: 43,3137 03142 TC +3 # *
012130,001264: 43,3140 03654 TC NXTBNK # *
![]() |
Page 292 |
012132,001266: 43,3141 03132 TC NOKILL # *
012133,001267: 43,3142 33266 CA SELFADRS
012134,001268: 43,3143 55371 TS SKEEP1
012135,001269:
012136,001270: 43,3144 05472 TC ENDEXT # *
012137,001271:
012138,001272: 43,3145 01201 VNCON VN 501 # *
012139,001273:
012140,001274: 43,3146 31376 ENDSUMS CA SKEEP6 # *
012141,001275: 43,3147 00006 EXTEND # *
012142,001276: 43,3150 13357 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
012143,001277: 43,3151 03543 TC STSHOSUM # * START SHOWSUM AGAIN.
012144,001278:
![]() |
Page 293 |
012146,001280: # DAPDISP VERB 48 DESCRIPTION
012147,001281: # LOAD AUTO PILOT DATA
012148,001282: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
012149,001283: # 2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
012150,001284: # 3. RELEASE EXT VERB DISPLAY SYSTEM.
012151,001285: # KEY
012152,001286: # THE FOLLOWING IS A KEY TO THE 5 DIGITS OF THE DAP DATA CODE (N46)
012153,001287:
012154,001288: # DIGIT A - VEHICLE CONFIGURATION
012155,001289: # 1 - LM ALONE, ASCENT
012156,001290: # 2 - LM ALONE, DESCENT
012157,001291: # 3 - CSM AND LM DOCKED
012158,001292:
012159,001293: # DIGIT B - ACCELERATION CODE
012160,001294: # 0 - 2 JET TRANSLATION, RCS SYSTEM A PREFERRED
012161,001295: # 1 - 2 JET TRANSLATION, RCS SYSTEM B PREFERRED
012162,001296: # 2 - 4 JET TRANSLATION, RCS SYSTEM A PREFERRED (NOT MEANINGFUL)
012163,001297: # 3 - 4 JET TRANSLATION, RCS SYSTEM B PREFERRED (NOT MEANINGFUL)
012164,001298:
012165,001299: # DIGIT C - ACA SCALING
012166,001300: # 0 - FINE
012167,001301: # 1 - NORMAL
012168,001302:
012169,001303: # DIGIT D - DEADBAND
012170,001304: # 0 - 0.3 DEG
012171,001305: # 1 - 1.0 DEG
012172,001306: # 2 - 5.0 DEG
012173,001307: # (3 - 5.0 DEG BY DEFAULT)
012174,001308:
012175,001309: # DIGIT E - MANEUVER RATE
012176,001310: # 0 - 0.2 DEG/SEC
012177,001311: # 1 - 0.5 DEG/SEC
012178,001312: # 2 - 2.0 DEG/SEC
012179,001313: # 3 -10.0 DEG/SEC
012180,001314:
012181,001315: 43,3152 02076 DAPDISP TC TESTXACT
012182,001316: 43,3153 35021 CAF PRIO7 # R03
012183,001317: 43,3154 05146 TC PRIOCHNG
012184,001318: 43,3155 04635 TC POSTJUMP
012185,001319: 43,3156 40004 CADR DAPDATA1
012186,001320: 34,2000 BANK 34
012187,001321: 20,2000 SETLOC LOADDAP
012188,001322: 20,2000 BANK
012189,001323:
012190,001324: 20,2004 COUNT* $$/R03
012191,001325:
012192,001326: 20,2004 30,2000 SBANK= LOWSUPER # FOR SUBSEQUENT LOW 2CADR'S.
012193,001327:
012194,001328: 20,2004 32114 DAPDATA1 CAF BOOLSMSK # SET DISPLAY ACCORDING TO DAPBOOLS BITS.
012195,001329: 20,2005 70111 MASK DAPBOOLS # LM
![]() |
Page 294 |
012197,001331: 20,2006 55340 TS DAPDATR1 # LM
012198,001332: 20,2007 40106 CS FLGWRD10 # SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
012199,001333: 20,2010 74737 MASK APSFLBIT
012200,001334: 20,2011 10000 CCS A
012201,001335: 20,2012 34736 CAF BIT14
012202,001336: 20,2013 27340 ADS DAPDATR1
012203,001337: 20,2014 31340 CHKDATA1 CAE DAPDATR1 # IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
012204,001338: 20,2015 74355 MASK BIT13-14 # A ONE INTO BIT 13.
012205,001339: 20,2016 00006 EXTEND
012206,001340: 20,2017 12034 BZF FORCEONE
012207,001341: 20,2020 31340 CAE DAPDATR1 # ENSURE THAT NO ILLEGAL BITS SET BY CREW.
012208,001342: 20,2021 72113 MSKDATR1 MASK DSPLYMSK
012209,001343: 20,2022 55340 TS DAPDATR1
012210,001344: 20,2023 32112 CAF V01N46 # LM
012211,001345: 20,2024 04616 TC BANKCALL
012212,001346: 20,2025 20353 CADR GOXDSPFR
012213,001347: 20,2026 15472 TCF ENDEXT # V34E TERMINATE
012214,001348: 20,2027 12037 TCF DPDAT1 # V33E PROCEED
012215,001349: 20,2030 12014 TCF CHKDATA1 # E NEW DATA CHECK AND REDISPLAY
012216,001350: 20,2031 36245 CAF REVCNT # BITS 2 & 3: BLANKS R2 & R3.
012217,001351: 20,2032 05464 TC BLANKET
012218,001352: 20,2033 15155 TCF ENDOFJOB
012219,001353: 20,2034 34737 FORCEONE CAF BIT13
012220,001354: 20,2035 27340 ADS DAPDATR1
012221,001355: 20,2036 12021 TCF MSKDATR1
012222,001356:
012223,001357: 20,2037 00004 DPDAT1 INHINT # INHINT FOR SETTING OF FLAG BITS AND MASS
012224,001358: 20,2040 44737 CS APSFLBIT # ON BASIS OF DISPLAYED DAPDATR1.
012225,001359: 20,2041 70106 MASK FLGWRD10
012226,001360: 20,2042 54001 TS L # SET APSFLAG TO BE COMPLEMENT OF BIT 14.
012227,001361: 20,2043 41340 CS DAPDATR1
012228,001362: 20,2044 74736 MASK BIT14
012229,001363: 20,2045 10000 CCS A
012230,001364: 20,2046 34737 CAF APSFLBIT
012231,001365: 20,2047 60001 AD L
012232,001366: 20,2050 54106 TS FLGWRD10
012233,001367: 20,2051 41340 CS DAPDATR1 # SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
012234,001368: 20,2052 74355 MASK BIT13-14 # MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
012235,001369: 20,2053 10000 CCS A # 13 AND 14 ARE SET.
012236,001370: 20,2054 44737 CS CSMDOCKD
012237,001371: 20,2055 62114 AD BOOLSMSK
012238,001372: 20,2056 71340 MASK DAPDATR1
012239,001373: 20,2057 54001 TS L
012240,001374: 20,2060 42114 CS BOOLSMSK
012241,001375: 20,2061 70111 MASK DAPBOOLS
012242,001376: 20,2062 60001 AD L
012243,001377: 20,2063 54111 TS DAPBOOLS
012244,001378: 20,2064 74737 MASK CSMDOCKD # LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
012245,001379: 20,2065 10000 CCS A # MASS IS USUALLY ALREADY OKAY, SO DO
012246,001380: 20,2066 31327 CAE CSMMASS # NOT TOUCH ITS LOW-ORDER PART.
![]() |
Page 295 |
012248,001382: 20,2067 61326 AD LEMMASS
012249,001383: 20,2070 55243 TS MASS
012250,001384: 20,2071 30111 CAE DAPBOOLS
012251,001385: 20,2072 74741 MASK ACC4OR2X # 2 OR 4 JET X-TRANSLATION
012252,001386: 20,2073 00006 EXTEND # (BIT ACC4OR2X = 1 FOR 4 JETS)
012253,001387: 20,2074 12101 BZF +5
012254,001388: 20,2075 44735 CS BIT15
012255,001389: 20,2076 70075 MASK FLAGWRD1 # CLEAR NJTSFLAG TO 0 FOR 4 JETS
012256,001390: 20,2077 54075 TS FLAGWRD1
012257,001391: 20,2100 12104 TCF +4
012258,001392: 20,2101 40075 CS FLAGWRD1 # SET NJTSFLAG TO 1 FOR 2 JETS
012259,001393: 20,2102 74735 MASK BIT15
012260,001394: 20,2103 26075 ADS FLAGWRD1
012261,001395: 20,2104 30111 CA DAPBOOLS # SELECT DESIRED KALCMANU AUTOMATIC
012262,001396: 20,2105 76250 MASK THREE # MANEUVER RATE
012263,001397: 20,2106 60000 DOUBLE # RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
012264,001398: 20,2107 55322 TS RATEINDX # ARE DP
012265,001399: 20,2110 04635 TC POSTJUMP
012266,001400: 20,2111 02211 CADR STIKLOAD
012267,001401:
012268,001402: 20,2112 00256 V01N46 VN 0146
012269,001403: 20,2113 33133 DSPLYMSK OCT 33133
012270,001404: 20,2114 13133 BOOLSMSK OCT 13133
012271,001405: 01,2211 BANK 01
012272,001406: 01,2000 SETLOC LOADDAP1
012273,001407: 01,2000 BANK
012274,001408:
012275,001409: 01,2211 COUNT* $$/R03
012276,001410:
012277,001411: 01,2211 35015 STIKLOAD CAF EBANK6
012278,001412: 01,2212 54003 TS EBANK
012279,001413: 01,2213 E6,1444 EBANK= STIKSENS
012280,001414: 01,2213 34745 CA RHCSCALE # SET STICK SENSITIVITY TO CORRESPOND TO A
012281,001415: 01,2214 70111 MASK DAPBOOLS # MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
012282,001416: 01,2215 10000 CCS A # 20 D/S (NORMAL) OR 4 D/S (FINE), SCALED
012283,001417: 01,2216 32340 CA NORMAL # AT 45 D/S.
012284,001418: 01,2217 62341 AD FINE
012285,001419: 01,2220 55444 TS STIKSENS
012286,001420: 01,2221 32343 CA -0.6D/S
012287,001421: 01,2222 55476 TS -RATEDB # LM-ONLY BREAKOUT LEVEL IS .6 D/S.
012288,001422: 01,2223 34737 CA CSMDOCKD # IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
012289,001423: 01,2224 70111 MASK DAPBOOLS # BY 10. NORMAL SCALING IS THEN 2 D/S AND
012290,001424: 01,2225 00006 EXTEND # FINE SCALING IS 0.4 D/S
012291,001425: 01,2226 12235 BZF +7 # BRANCH IF CSM IS NOT DOCKED.
012292,001426: 01,2227 31444 CA STIKSENS
012293,001427: 01,2230 00006 EXTEND
012294,001428: 01,2231 72342 MP 1/10
012295,001429: 01,2232 55444 TS STIKSENS
012296,001430: 01,2233 32344 CA -0.3D/S # CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
012297,001431: 01,2234 55476 TS -RATEDB
![]() |
Page 296 |
012299,001433: 01,2235 00003 RELINT # PROCEED TO NOUN 47, MASS LOAD,
012300,001434:
012301,001435: 01,2236 32336 DAPDATA2 CAF V0647
012302,001436: 01,2237 04616 TC BANKCALL
012303,001437: 01,2240 20353 CADR GOXDSPFR
012304,001438: 01,2241 12247 TCF ENDR03 # V34E TERMINATE. FIRST SET DB, DO 1/ACCS
012305,001439: 01,2242 12253 TCF DAPDAT2 # V33E PROCEED
012306,001440: 01,2243 12236 TCF DAPDATA2 # LOAD NEW DATA AND RECYCLE
012307,001441: 01,2244 34751 CAF BIT3 # BLANKS R3
012308,001442: 01,2245 05464 TC BLANKET # LM
012309,001443: 01,2246 15155 TCF ENDOFJOB
012310,001444: 01,2247 00004 ENDR03 INHINT
012311,001445: 01,2250 04674 TC IBNKCALL
012312,001446: 01,2251 40115 CADR RESTORDB
012313,001447: 01,2252 15472 TCF ENDEXT # DOES RELINT
012314,001448:
012315,001449: 01,2253 40106 DAPDAT2 CS FLGWRD10 # DETERMINE STAGE FROM APSFLAG
012316,001450: 01,2254 74737 MASK APSFLBIT
012317,001451: 01,2255 10000 CCS A
012318,001452: 01,2256 32000 CA MINLMD
012319,001453: 01,2257 62001 AD MINMINLM
012320,001454: 01,2260 61326 AD LEMMASS # LEMMASS MUST BE GREATER THAN EMPTY LEM
012321,001455: 01,2261 00006 EXTEND
012322,001456: 01,2262 62236 BZMF DAPDATA2 # ASK FOR NEW MASSES
012323,001457: 01,2263 30111 CAE DAPBOOLS
012324,001458: 01,2264 74737 MASK CSMDOCKD
012325,001459: 01,2265 00006 EXTEND
012326,001460: 01,2266 12274 BZF LEMALONE # SKIP TEST ON CSMMASS IF NOT DOCKED.
012327,001461: 01,2267 44741 CS MINCSM # TEST CSM MASS
012328,001462: 01,2270 61327 AD CSMMASS # CSMMASS MUST BE GREATER THAN EMPTY CSM
012329,001463: 01,2271 00006 EXTEND
012330,001464: 01,2272 62236 BZMF DAPDATA2 # ASK FOR NEW MASSES
012331,001465: 01,2273 31327 CAE CSMMASS # DOCKED: MASS = CSMMASS + LEMMASS
012332,001466: 01,2274 61326 LEMALONE AD LEMMASS # LEM ALONE: MASS = LEMMASS
012333,001467: 01,2275 22007 ZL
012334,001468: 01,2276 53244 DXCH MASS
012335,001469: 01,2277 00004 INHINT
012336,001470: 01,2300 04674 TC IBNKCALL # SET DEADBANK AND COMPUTE MOMENTS OF
012337,001471: 01,2301 40115 CADR RESTORDB # INERTIA.
012338,001472: 01,2302 00003 RELINT # PROCEED TO NOUN 48 (OR END).
012339,001473:
012340,001474: 01,2303 40106 DAPDATA3 CS FLGWRD10
012341,001475: 01,2304 74737 MASK APSFLBIT
012342,001476: 01,2305 00006 EXTEND # END ROUTINE IF LEM HAS STAGED,
012343,001477: 01,2306 15472 BZF ENDEXT
012344,001478: 01,2307 32337 CAF V06N48 # DISPLAY TRIM ANGLES AND REQUEST RESPONSE
012345,001479: 01,2310 04616 TC BANKCALL
012346,001480: 01,2311 20353 CADR GOXDSPFR
012347,001481: 01,2312 05472 TC ENDEXT
012348,001482: 01,2313 12320 TCF DPDAT3 # V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
![]() |
Page 297 |
012350,001484: 01,2314 12307 TCF -5 # LOAD NEW DATA AND RECYCLE
012351,001485: 01,2315 34751 CAF BIT3
012352,001486: 01,2316 05464 TC BLANKET # BLANK R3
012353,001487: 01,2317 15155 TCF ENDOFJOB
012354,001488: 01,2320 34753 DPDAT3 CAF BIT1
012355,001489: 01,2321 05203 TC WAITLIST
012356,001490: 01,2322 E6,1401 EBANK= ROLLTIME
012357,001491: 01,2322 03217 56066 2CADR TRIMGIMB
012358,001492:
012359,001493: 01,2324 15155 TCF ENDOFJOB # DOES A RELINT
012360,001494: 01,2325 32337 TRIMDONE CAF V50N48
012361,001495: 01,2326 04616 TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03
012362,001496: 01,2327 20361 CADR GOMARK3R -1
012363,001497: 01,2330 05472 TC ENDEXT # V34E TERMINATE
012364,001498: 01,2331 05472 TC ENDEXT
012365,001499: 01,2332 05472 TC ENDEXT
012366,001500: 01,2333 36007 CAF OCT24 # BIT5 TO CHANGE TO PERFORM, 3 TO BLANK R3
012367,001501: 01,2334 05464 TC BLANKET
012368,001502: 01,2335 15155 TCF ENDOFJOB
012369,001503:
012370,001504: 01,2336 01457 V0647 VN 0647
012371,001505: 01,2337 01460 V06N48 VN 0648
012372,001506:
012373,001507: 01,2340 01,2337 V50N48 = V06N48
012374,001508:
012375,001509: 01,2340 25101 NORMAL DEC .660214
012376,001510: # NORMAL SCALING IS 20 D/S
012377,001511: 01,2341 05220 FINE DEC .165054 # FINE STICK SCALING (4 D/S).
012378,001512: 01,2342 03146 1/10 DEC .1 # FACTOR FOR CSM-DOCKED SCALING
012379,001513: 01,2343 77445 -0.6D/S DEC -218 B-14
012380,001514: 01,2344 77622 -0.3D/S DEC -109 B-14
012381,001515:
![]() |
Page 298 |
012383,001517: # VERB 66. VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
012384,001518: # OTHER VEHICLE STATE VECTOR.
012385,001519:
012386,001520: # USE SUBROUTINE GENTRAN.
012387,001521:
012388,001522: 07,2667 BANK 7
012389,001523: 43,2000 SETLOC EXTVERBS
012390,001524: 43,2000 BANK
012391,001525:
012392,001526: 43,3157 COUNT* $$/EXTVB
012393,001527:
012394,001528: 43,3157 E3,1626 EBANK= RRECTHIS
012395,001529:
012396,001530: 43,3157 40104 ATTACHED CS FLAGWRD8
012397,001531: 43,3160 74744 MASK SURFFBIT
012398,001532: 43,3161 00006 EXTEND
012399,001533: 43,3162 12114 BZF ALM/END # TURN ON OE AND EXIT IF SURFFLAG SET.
012400,001534: 43,3163 34737 CAF PRIO10
012401,001535: 43,3164 05105 TC FINDVAC
012402,001536: 43,3165 E3,1626 EBANK= RRECTHIS
012403,001537:
012404,001538: 43,3165 03170 66103 2CADR ATTACHIT
012405,001539:
012406,001540: 43,3167 05155 TC ENDOFJOB
012407,001541:
012408,001542: 43,3170 06042 ATTACHIT TC INTPRET
012409,001543: 43,3171 77624 CALL
012410,001544: 43,3172 27412 INTSTALL
012411,001545: 43,3173 43014 SET BON
012412,001546: 43,3174 04063 MOONOTH
012413,001547: 43,3175 04304 MOONTHIS
012414,001548: 43,3176 67201 +3
012415,001549: 43,3177 77614 CLEAR
012416,001550: 43,3200 04263 MOONOTH
012417,001551: 43,3201 77776 EXIT
012418,001552: 43,3202 33225 CAF OCT51
012419,001553: 43,3203 05544 TC GENTRAN
012420,001554: 43,3204 01626 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
012421,001555: 43,3205 01554 ADRES RRECTOTH
012422,001556:
012423,001557: 43,3206 00003 RELINT
012424,001558: 43,3207 06042 TC INTPRET
012425,001559: 43,3210 77624 CALL # UPDATE R-OTHER, V-OTHER
012426,001560: 43,3211 26761 PTOALEM
012427,001561: 43,3212 45154 LXA,2 CALL
012428,001562: 43,3213 02030 PBODY
012429,001563: 43,3214 26114 SVDWN1
012430,001564: 43,3215 77776 EXIT
012431,001565:
012432,001566: 43,3216 33226 CAF TCPINAD
![]() |
Page 299 |
012434,001568: 43,3217 50120 INDEX FIXLOC
012435,001569: 43,3220 54052 TS QPRET
012436,001570: 43,3221 04635 TC POSTJUMP
012437,001571: 43,3222 27423 CADR INTWAKE # FREE INTEGRATION AND EXIT.
012438,001572:
012439,001573:
012440,001574: 43,3223 77634 TCPIN RTB
012441,001575: 43,3224 21051 PINBRNCH
012442,001576:
012443,001577: 43,3225 00051 OCT51 OCT 51
012444,001578: 43,3226 67223 TCPINAD CADR TCPIN
012445,001579:
012446,001580: # VERB 96 SET QUITFLAG TO STOP INTEGRATION.
012447,001581:
012448,001582: # GO TO V37 WITH ZERO TO CAUSE POO.
012449,001583: # STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
012450,001584: # THUS ALLOWING A 10 MINUTE PERIOD WITHOUT INTEGRATION.
012451,001585:
012452,001586: 43,3227 05504 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
012453,001587: 43,3230 00221 ADRES QUITFLAG # AT NEXT TIMESTEP
012454,001588:
012455,001589: 43,3231 34755 CAF ZERO
012456,001590: 43,3232 04635 TC POSTJUMP
012457,001591: 43,3233 10040 CADR V37 # GO TO POO
012458,001592:
012459,001593: # VERB 67 : DISPLAY OF W MATRIX
012460,001594:
012461,001595: 43,3234 02076 V67 TC TESTXACT
012462,001596: 43,3235 35017 CAF PRIO5
012463,001597: 43,3236 05105 TC FINDVAC
012464,001598: 43,3237 E4,1600 EBANK= WWPOS
012465,001599: 43,3237 02007 62064 2CADR V67CALL
012466,001600:
012467,001601: 43,3241 05155 TC ENDOFJOB
012468,001602:
012469,001603: # VERB 65 DISABLE U,V JETS DURING DPS BURNS
012470,001604:
012471,001605: 43,3242 05504 SNUFFOUT TC UPFLAG
012472,001606: 43,3243 00115 ADRES SNUFFER
012473,001607: 43,3244 02115 TC GOPIN
012474,001608:
012475,001609: # VERB 75 ENABLE U,V JETS DURING DPS BURNS
012476,001610:
012477,001611: 43,3245 05516 OUTSNUFF TC DOWNFLAG
012478,001612: 43,3246 00115 ADRES SNUFFER
012479,001613: 43,3247 02115 TC GOPIN
012480,001614: # VERB 85 DISPLAY RR LOS AZIMUTH AND ELEVATION.
012481,001615:
012482,001616: # AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0 - 90 DEG IN THE +Y HEMISPHERE,
012483,001617: # 360 - 270 DEG IN THE -Y HEMISPHERE.
![]() |
Page 300 |
012485,001619:
012486,001620: # ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0 - 360 ABOUT +Y.
012487,001621:
012488,001622: 43,3250 E4,1600 EBANK= RR-AZ
012489,001623: 43,3250 02076 VERB85 TC TESTXACT
012490,001624: 43,3251 04635 TC POSTJUMP
012491,001625: 43,3252 60000 CADR DSPRRLOS
012492,001626:
012493,001627: 40,2000 SETLOC PINBALL1
012494,001628: 40,2000 BANK
012495,001629:
012496,001630: 40,2000 COUNT* $$/EXTVB
012497,001631:
012498,001632: 40,2000 35017 DSPRRLOS CAF PRIO5
012499,001633: 40,2001 05105 TC FINDVAC
012500,001634: 40,2002 E4,1600 EBANK= RR-AZ
012501,001635: 40,2002 02017 60104 2CADR RRLOSDSP
012502,001636:
012503,001637: 40,2004 34740 CAF PRIO4
012504,001638: 40,2005 05146 TC PRIOCHNG
012505,001639: 40,2006 32076 CAF V16N56
012506,001640: 40,2007 04616 TC BANKCALL
012507,001641: 40,2010 20353 CADR GOMARKFR
012508,001642: 40,2011 05563 TC B5OFF
012509,001643: 40,2012 05563 TC B5OFF
012510,001644: 40,2013 05563 TC B5OFF
012511,001645:
012512,001646: 40,2014 34751 CAF BIT3
012513,001647: 40,2015 05464 TC BLANKET
012514,001648: 40,2016 05155 TC ENDOFJOB
012515,001649:
012516,001650: 40,2017 00006 RRLOSDSP EXTEND
012517,001651: 40,2020 30036 DCA CDUT
012518,001652: 40,2021 52155 DXCH MPAC
012519,001653: 40,2022 06042 TC INTPRET
012520,001654: 40,2023 77624 CALL
012521,001655: 40,2024 46065 RRNBMPAC # GET RR LOS IN BODY AXIS.
012522,001656: 40,2025 00001 STORE 0D # UNIT LOS
012523,001657: 40,2026 14007 STODL 6D
012524,001658: 40,2027 06524 HI6ZEROS
012525,001659: 40,2030 24011 STOVL 8D
012526,001660: 40,2031 00007 6D
012527,001661: 40,2032 77656 UNIT
012528,001662: 40,2033 00007 STORE 6D # UNIT OF LOS PROJ IN X-Z PLANE
012529,001663: 40,2034 77641 DOT
012530,001664: 40,2035 06516 UNITZ
012531,001665: 40,2036 24021 STOVL COSTH # 16D
012532,001666: 40,2037 06522 UNITX
012533,001667: 40,2040 77641 DOT
012534,001668: 40,2041 00007 6D
012535,001669: 40,2042 34023 STCALL SINTH # 18D
![]() |
Page 301 |
012537,001671: 40,2043 47322 ARCTRIG
012538,001672: 40,2044 43244 BPL DAD # INSURE DISPLAY OF 0 - 360 DEG.
012539,001673: 40,2045 60047 +2
012540,001674: 40,2046 06532 DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
012541,001675: 40,2047 26203 STOVL RR-ELEV
012542,001676: 40,2050 00001 0D
012543,001677: 40,2051 77641 DOT
012544,001678: 40,2052 06520 UNITY
012545,001679: 40,2053 24023 STOVL SINTH
012546,001680: 40,2054 00001 0D
012547,001681: 40,2055 77641 DOT
012548,001682: 40,2056 00007 6D
012549,001683: 40,2057 34021 STCALL COSTH
012550,001684: 40,2060 47322 ARCTRIG
012551,001685: 40,2061 43244 BPL DAD # INSURE DISPLAY OF 0 - 360 DEG.
012552,001686: 40,2062 60064 +2
012553,001687: 40,2063 06532 DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
012554,001688: 40,2064 02201 STORE RR-AZ
012555,001689: 40,2065 77776 EXIT
012556,001690: 40,2066 34777 CA 1SEC
012557,001691: 40,2067 04616 TC BANKCALL
012558,001692: 40,2070 01736 CADR DELAYJOB
012559,001693:
012560,001694: 40,2071 34747 CA BIT5
012561,001695: 40,2072 71043 MASK EXTVBACT
012562,001696: 40,2073 10000 CCS A
012563,001697: 40,2074 02017 TC RRLOSDSP
012564,001698: 40,2075 05472 TC ENDEXT
012565,001699:
012566,001700: 40,2076 04070 V16N56 VN 1656
012567,001701:
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc