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