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