GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
010212,000002: ## Copyright: Public domain.
010213,000003: ## Filename: EXTENDED_VERBS.agc
010214,000004: ## Purpose: Part of the source code for Comanche, build 055. It
010215,000005: ## is part of the source code for the Command Module's
010216,000006: ## (CM) Apollo Guidance Computer (AGC), Apollo 11.
010217,000007: ## Assembler: yaYUL
010218,000008: ## Reference: pp. 236-267
010219,000009: ## Contact: Ron Burkey <info@sandroid.org>,
010220,000010: ## Fabrizio Bernardini <fabrizio@spacecraft.it>
010221,000011: ## Website: http://www.ibiblio.org/apollo.
010222,000012: ## Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
010223,000013: ## 2009-05-20 RSB Corrections: POODOO -> POODOO,
010224,000014: ## GOTOPOOH -> GOTOPOOH, added a couple of
010225,000015: ## missing instructions in Verb 96.
010226,000016: ## 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to
010227,000017: ## CA FLAGWRD1. Added a variety of SBANK=
010228,000018: ## statements prior to 2CADRs. One day I'll
010229,000019: ## have to figure out what yaYUL is doing
010230,000020: ## wrong with those ....
010231,000021: ## 2010-08-29 JL Fixed +3 and +8 pseudo-labels which were accidentally symbols.
010232,000022: ## 2011-05-08 JL Flagged SBANK= workarounds for future removal.
010233,000023: ## 2011-05-17 JL Removed all SBANK= workarounds.
010234,000024: ## 2016-12-10 RSB Proofed comments with octopus/ProoferComments
010235,000025: ## and fixed the errors found.
010236,000026: ## 2016-12-10 RSB All of the GOTOPOOH's should have been
010237,000027: ## GOTOPOOH, and I've changed them back.
010238,000028: ## 2017-01-13 RSB Fixed comment errors detected in cross-diff vs
010239,000029: ## Colossus 249.
010240,000030: ## 2017-01-22 RSB Fixed comment errors detected in cross-diff vs
010241,000031: ## Artemis 72.
010242,000032: ## 2017-02-23 RSB CHKP00H -> CHKPOOH
010243,000033: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
010244,000034: ## side-by-side diff of Luminary 69/99/116/131/210.
010245,000035:
010246,000036: ## The contents of the "Comanche055" files, in general, are transcribed
010247,000037: ## from scanned documents.
010248,000038: ##
010249,000039: ## Assemble revision 055 of AGC program Comanche by NASA
010250,000040: ## 2021113-051. April 1, 1969.
010251,000041: ##
010252,000042: ## This AGC program shall also be referred to as Colossus 2A
010253,000043: ##
010254,000044: ## Prepared by
010255,000045: ## Massachusetts Institute of Technology
010256,000046: ## 75 Cambridge Parkway
010257,000047: ## Cambridge, Massachusetts
010258,000048: ##
010259,000049: ## under NASA contract NAS 9-4065.
010260,000050: ##
010261,000051: ## Refer directly to the online document mentioned above for further
010262,000052: ## information. Please report any errors to info@sandroid.org.
010263,000053:
|
|
Page 236 |
010265,000055: 07,2441 BANK 7
010266,000056: 43,2000 SETLOC EXTVERBS
010267,000057: 43,2000 BANK
010268,000058:
010269,000059: 43,2000 E5,1757 EBANK= OGC
010270,000060:
010271,000061: 43,2000 COUNT* $$/EXTVB
010272,000062:
010273,000063: # FAN-OUT
010274,000064:
010275,000065: 43,2000 50154 GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
010276,000066: 43,2001 02002 TC LST2FAN # FAN AS BEFORE.
010277,000067:
010278,000068: 43,2002 02124 LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY).
010279,000069: 43,2003 02150 TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
010280,000070: # 91 ONLY)
010281,000071: 43,2004 02240 TC IMUFINEK # VB42 FINE ALIGN IMU
010282,000072: 43,2005 02420 TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
010283,000073: 43,2006 03207 TC SETSURF # VB44 SET SURFACE FLAG
010284,000074: 43,2007 03212 TC RESTSRF # VB45 RESET SURFACE FLAG
010285,000075: 43,2010 02524 TC STABLISH # VB46 ESTABLISH G+C CONTROL.
010286,000076: 43,2011 03102 TC LMTOCMSV # VB47 MOVE LM STATE VECTOR INTO CM
010287,000077: 43,2012 02552 TC DAPDISP # VB48 LOAD A/P DATA.
010288,000078: 43,2013 12543 TCF CREWMANU # VB 49 START AUTOMATIC ATTITUDE MANEUVER
010289,000079: 43,2014 02275 TC GOLOADLV # VB50 PLEASE PERFORM
010290,000080: 43,2015 02275 TC GOLOADLV # VB51 PLEASE MARK
010291,000081: 43,2016 03157 TC V52 # VB52 SET OFFSET NO. FOR P22
010292,000082: 43,2017 02275 TC GOLOADLV # VB 53 PLEASE PERFORM COAS MARK
010293,000083: 43,2020 02612 TC GOTOR23 # V54 START R23 (R21-BACKUP)
010294,000084: 43,2021 02326 TC ALINTIME # VB55 ALIGN TIME
010295,000085: 43,2022 02653 TC TRACKTRM # VB56 TERMINATE TRACKING (P20 + P25)
010296,000086: 43,2023 02607 TC GOTOR21 # V57 START R21 REND TRACK SIGHT MARK ROUT
010297,000087: 43,2024 02510 TC ENATMA # VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
010298,000088: 43,2025 02275 TC GOLOADLV # VB59 PLEASE CALIBRATE
010299,000089: 43,2026 02303 TC V60 # VB60 SET CPHIX (N17) EQUAL TO CDU
010300,000090: 43,2027 02311 TC V61 # VB61 SELECT MODE I
010301,000091: 43,2030 02314 TC V62 # VB62 SELECT MODE II, ERROR WRT N22
010302,000092: 43,2031 02321 TC V63 # VB63 SELECT MODE III, ERROR WRT N17
010303,000093: 43,2032 02500 TC VB64 # VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES
010304,000094: 43,2033 02375 TC CKOPTVB # V 65 E OPTICAL VERIFICATION FOR PRELAUNC
010305,000095: 43,2034 03034 TC ATTACHED # VB66 ATTACHED. MOVE THIS TO OTHER STATE
010306,000096: 43,2035 03201 TC V67 # VB67 W MATRIX MONITOR
010307,000097: 43,2036 02513 TC STROKON # VB68 CSM STROKE TEST ON.
010308,000098: 43,2037 02037 VERB69 TC VERB69 # VB69 CAUSE RESTART
010309,000099: 43,2040 03726 TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
010310,000100: 43,2041 03730 TC V71UPDAT # VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
010311,000101: 43,2042 03732 TC V72UPDAT # VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
010312,000102: 43,2043 03734 TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
010313,000103: 43,2044 02721 TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
010314,000104: # FOR ERASABLE DUMP.
010315,000105: 43,2045 02725 TC LFTFLGON # VB75 SET LIFTOFF FLAG.
|
|
Page 237 |
010317,000107: 43,2046 03015 TC SETPRFLG # VB76 SET PREFERRED ATTITUDE FLAG
010318,000108: 43,2047 03020 TC RESETPRF # VB77 RESET PREFERRED ATT. FLAG
010319,000109: 43,2050 02406 TC CHAZFOGC # CHANGE GYROCOMPASS LAUNCH AZIMUTH V78
010320,000110: 43,2051 02120 TC ALM/END # V79 SPARE
010321,000111: 43,2052 02713 TC LEMVEC # VB80 UPDATE LEM STATE VECTOR
010322,000112: 43,2053 02716 TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
010323,000113: 43,2054 02562 TC V82PERF # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
010324,000114: 43,2055 02567 TC V83PERF # VB83 RANGE, RANGE RATE, +X AXIS (R31)
010325,000115: 43,2056 02120 TC ALM/END # V84 SPARE
010326,000116: 43,2057 02601 TC V85PERF # VB85 RANGE, RANGE RATE, SLOS (R34)
010327,000117: 43,2060 02646 TC V86PERF # VB86 BACKUP MARK REJECT
010328,000118: 43,2061 03023 TC SETVHFLG # VB87 SET VHF RANGE FLAG
010329,000119: 43,2062 03027 TC RESETVHF # VB88 RESET VHF RANGE FLAG
010330,000120: 43,2063 02745 TC V89PERF # V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
010331,000121: 43,2064 03142 TC V90PERF # VB90-OUT OF PLANE PARAMETERS %R36"
010332,000122: 43,2065 02762 TC GOSHOSUM # VB91 TEMP FOR HYBRID AND STG.
010333,000123: 43,2066 02360 TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST
010334,000124: 43,2067 02755 TC WMATRXNG # VB93 CLEAR RENDWFLG
010335,000125: 43,2070 03126 TC VERB94 # VB94 DO R64
010336,000126: 43,2071 02120 TC ALM/END # VB95 SPARE
010337,000127: 43,2072 13150 TCF VERB96 # VB96 SET QUITFLAG TO STOP INTEGRATION
010338,000128: 43,2073 02275 TC GOLOADLV # V97 PLEASE PERFORM ENGINE-FAIL (R41)
010339,000129: 43,2074 02120 TC ALM/END # VB98 SPARE
010340,000130: 43,2075 02275 TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
010341,000131:
010342,000132: # END OF EXTENDED VERB FAN
010343,000133:
010344,000134: 43,2076 11044 TESTXACT CCS EXTVBACT
010345,000135: 43,2077 02120 TC ALM/END # YES. TURN ON OPERATOR ERROR LIGHT
010346,000136: 43,2100 30100 CA FLAGWRD4 # ARE PRIOS USING DSKY
010347,000137: 43,2101 72123 MASK OC24100
010348,000138: 43,2102 10000 CCS A
010349,000139: 43,2103 02120 TC ALM/END
010350,000140:
010351,000141: 43,2104 34112 CAF OCT24 # SET BITS 3 AND 5
010352,000142: 43,2105 55044 SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
010353,000143: # SYSTEM BUSY
010354,000144:
010355,000145: 43,2106 30002 CA Q
010356,000146: 43,2107 54155 TS MPAC +1
010357,000147:
010358,000148: 43,2110 45016 CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
010359,000149: 43,2111 04170 TC NVSUB
010360,000150: 43,2112 02113 TC +1
010361,000151: 43,2113 00155 TC MPAC +1
010362,000152:
010363,000153: 43,2114 04400 XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT.
010364,000154: 43,2115 05534 TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS.
|
|
Page 238 |
010366,000156: 43,2116 5534 TERMEXTV EQUALS ENDEXT
010367,000157: 43,2116 5534 ENDEXTVB EQUALS ENDEXT
010368,000158:
010369,000159: 43,2116 35021 XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS.
010370,000160: 43,2117 02105 TC SETXTACT
010371,000161:
010372,000162: 43,2120 04400 ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
010373,000163: 43,2121 04701 GOPIN TC POSTJUMP
010374,000164: 43,2122 21272 CADR PINBRNCH
010375,000165:
010376,000166: 43,2123 24100 OC24100 OCT 24100
010377,000167:
|
|
Page 239 |
010379,000169: # VBZERO VERB 40 DESCRIPTION
010380,000170: # ZERO
010381,000171: # 1. REQUIRE NOUN 20 (ICDU ANGLES)
010382,000172: # 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM
010383,000173: # 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010384,000174: # 4. SET EXT VERB DISPLAY ACTIVE FLAG.
010385,000175: # 5. EXECUTE IMUZERO (ZERO IMU CDU ANGLES).
010386,000176: # 6. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010387,000177: # 7. RELEASE EXT. VERB DISPLAY SYSTEM.
010388,000178:
010389,000179: 43,2124 02136 VBZERO TC OP/INERT
010390,000180: 43,2125 02127 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
010391,000181: 43,2126 02120 TC ALM/END # RETURN HERE IF NOUN = OCDU(91)
010392,000182: # (NOT IN USE YET)
010393,000183:
010394,000184: 43,2127 02271 IMUZEROK TC CKMODCAD # KEYBOARD REQUEST FOR ISS CDUZERO
010395,000185: 43,2130 04662 TC BANKCALL
010396,000186: 43,2131 16577 CADR IMUZERO
010397,000187:
010398,000188: 43,2132 04662 TC BANKCALL # STALL
010399,000189: 43,2133 17577 CADR IMUSTALL
010400,000190: 43,2134 02135 TC +1
010401,000191:
010402,000192: 43,2135 02121 TC GOPIN
010403,000193:
010404,000194: 43,2136 44112 OP/INERT CS OCT24
010405,000195: 43,2137 61002 AD NOUNREG
010406,000196: 43,2140 00006 EXTEND
010407,000197: 43,2141 12476 BZF XACT0Q # IF = 20.
010408,000198:
010409,000199: 43,2142 24002 INCR Q
010410,000200: 43,2143 62147 AD OPIMDIFF # -71
010411,000201: 43,2144 00006 EXTEND
010412,000202: 43,2145 12476 BZF XACT0Q
010413,000203:
010414,000204: 43,2146 02120 TC ALM/END # ILLEGAL.
010415,000205:
010416,000206: 43,2147 77670 OPIMDIFF DEC -71 B-14
010417,000207:
|
|
Page 240 |
010419,000209: # VBCOARK VERB 41 DESCRIPTION
010420,000210: # COURSE ALIGN IMU OR OPTICS
010421,000211:
010422,000212: # 1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
010423,000213: # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
010424,000214:
010425,000215: # CASE 1 NOUN 20 (ICDU ANGLES)
010426,000216: # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
010427,000217: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010428,000218: # RESPONSES
010429,000219: # A. TERMINATE
010430,000220: # 1. RELEASE EXT VERB DISPLAY SYSTEM
010431,000221: # B. PROCEED
010432,000222: # 1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
010433,000223: # RESPONSES
010434,000224: # A. TERMINATE
010435,000225: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
010436,000226: # B. PROCEED
010437,000227: # 1. EXECUTE ICORK2.
010438,000228: # C. ENTER
010439,000229: # 1. INCREMENT CDU ANGLES
010440,000230: # 2. EXECUTE ICORK2.
010441,000231: # C. ENTER
010442,000232: # 1. EXECUTE ICORK2.
010443,000233: # ICORK2
010444,000234: # 1. RE-DISPLAY VERB 41.
010445,000235: # 2. EXECUTE IMUCOARS (IMU COARSE ALIGN).
010446,000236: # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
010447,000237: # 4. RELEASE EXT VERB DISPLAY SYSTEM.
010448,000238:
010449,000239: # CASE 2 NOUN 91 (OCDU ANGLES)
010450,000240: # 5. (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
010451,000241: # OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
010452,000242: # AND RELEASE EXT VERB DISPLAY SYSTEM).
010453,000243: # 6. RESPONSES TO V29,N92.
010454,000244: # A. TERMINATE
010455,000245: # RELEASE EXT VERB DISPLAY SYSTEM
010456,000246: # B. PROCEED OR ENTER
010457,000247: # RE-DISPLAY V41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
010458,000248: # RELEASE EXT VERB DISPLAY SYSTEM.
010459,000249:
010460,000250: 43,2150 02136 VBCOARK TC OP/INERT
010461,000251: 43,2151 02153 TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
010462,000252: 43,2152 02175 TC OPTCOARK # RETURN HERE IF NOUN = OCDU (91)
010463,000253:
010464,000254: # RETURN TO L+1 IF NOUN 20 - TO L+2 IF NOUN 91.
010465,000255:
010466,000256: 43,2153 02271 IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD
010467,000257: 43,2154 02076 TC TESTXACT
010468,000258: 43,2155 32173 CAF VNLODCDU # CALL FOR THETAD LOAD
010469,000259: 43,2156 04662 TC BANKCALL
010470,000260: 43,2157 20561 CADR GOXDSPF
010471,000261: 43,2160 05534 TC TERMEXTV
010472,000262: 43,2161 12162 TCF +1
|
|
Page 241 |
010474,000264:
010475,000265: 43,2162 32174 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
010476,000266: 43,2163 04662 TC BANKCALL
010477,000267: 43,2164 21042 CADR EXDSPRET
010478,000268:
010479,000269: 43,2165 04662 TC BANKCALL # CALL MODE SWITCHING PROG
010480,000270: 43,2166 16663 CADR IMUCOARS
010481,000271:
010482,000272: 43,2167 04662 TC BANKCALL # STALL
010483,000273: 43,2170 17577 CADR IMUSTALL
010484,000274: 43,2171 05534 TC ENDEXTVB
010485,000275: 43,2172 05534 TC ENDEXTVB
010486,000276:
010487,000277: 43,2173 06226 VNLODCDU VN 2522
010488,000278: 43,2174 12200 IMUCOARV VN 4100
010489,000279:
|
|
Page 242 |
010491,000281: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
010492,000282:
010493,000283: 43,2175 31323 OPTCOARK CA OPTCADR
010494,000284: 43,2176 02272 TC CKMODCAD +1
010495,000285: 43,2177 02076 TC TESTXACT
010496,000286: 43,2200 35056 CAF EBANK5
010497,000287: 43,2201 54003 TS EBANK
010498,000288:
010499,000289: 43,2202 11314 CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER
010500,000290: 43,2203 02210 TC +5 # SWITCH AT COMPUTER
010501,000291: 43,2204 02205 TC +1 # NOT ON COMPUTER
010502,000292: 43,2205 04400 TC FALTON # TURN ON OPERATOR ERR
010503,000293: 43,2206 05650 TC ALARM # AND ALARM
010504,000294: 43,2207 00115 OCT 00115
010505,000295:
010506,000296: 43,2210 11303 CCS OPTIND # SEE IF OPTICS AVAILABLE
010507,000297: 43,2211 02217 TC OPTC1 # IN USE
010508,000298: 43,2212 02217 TC OPTC1 # IN USE
010509,000299: 43,2213 02217 TC OPTC1 # IN USE
010510,000300:
010511,000301: 43,2214 05650 TC ALARM # OPTICS RESERVED (OPTIND=-0)
010512,000302: 43,2215 00117 OCT 00117
010513,000303: 43,2216 05534 TC ENDEXT
010514,000304:
010515,000305: 43,2217 32237 OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS
010516,000306: 43,2220 04662 TC BANKCALL
010517,000307: 43,2221 20561 CADR GOXDSPF
010518,000308: 43,2222 05534 TC TERMEXTV
010519,000309: 43,2223 02224 TC +1 # PROCEED
010520,000310:
010521,000311: 43,2224 31773 CA SAC
010522,000312: 43,2225 55161 TS DESOPTS
010523,000313: 43,2226 31775 CA PAC
010524,000314: 43,2227 55160 TS DESOPTT
010525,000315: 43,2230 32174 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
010526,000316: 43,2231 04662 TC BANKCALL
010527,000317: 43,2232 21042 CADR EXDSPRET
010528,000318:
010529,000319: 43,2233 35017 CAF ONE
010530,000320: 43,2234 55303 TS OPTIND # SET COARS WORKING
010531,000321:
010532,000322: 43,2235 05534 TC ENDEXTVB
010533,000323: 43,2236 05534 TC ENDEXTVB
010534,000324:
010535,000325: 43,2237 06134 VNLD0CDU VN 2492
010536,000326: 43,2240 43,2174 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
010537,000327:
|
|
Page 243 |
010539,000329: # IMUFINEK VERB 42 DESCRIPTION
010540,000330: # FINE ALIGN IMU
010541,000331:
010542,000332: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
010543,000333: # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
010544,000334: # RESPONSES
010545,000335: # A. TERMINATE
010546,000336: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
010547,000337: # B. PROCEED OR ENTER
010548,000338: # 1. RE-DISPLAY VERB 42
010549,000339: # 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
010550,000340: # 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
010551,000341: # A. FAILED
010552,000342: # 1. RELEASE EXT VERB DISPLAY SYSTEM.
010553,000343: # B. GOOD
010554,000344: # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
010555,000345: # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
010556,000346:
010557,000347: 43,2240 02271 IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING
010558,000348: 43,2241 02076 TC TESTXACT
010559,000349: 43,2242 32267 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
010560,000350: 43,2243 04662 TC BANKCALL
010561,000351: 43,2244 20561 CADR GOXDSPF
010562,000352: 43,2245 05534 TC TERMEXTV
010563,000353: 43,2246 02247 TC +1 # PROCEED WITHOUT A LOAD
010564,000354:
010565,000355: 43,2247 32270 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
010566,000356: 43,2250 04662 TC BANKCALL
010567,000357: 43,2251 21042 CADR EXDSPRET
010568,000358:
010569,000359: 43,2252 04662 TC BANKCALL # CALL MODE SWITCH PROG
010570,000360: 43,2253 17073 CADR IMUFINE
010571,000361:
010572,000362: 43,2254 04662 TC BANKCALL # HIBERNATION
010573,000363: 43,2255 17577 CADR IMUSTALL
010574,000364: 43,2256 05534 TC ENDEXTVB
010575,000365:
010576,000366: 43,2257 32266 FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
010577,000367: 43,2260 04662 TC BANKCALL
010578,000368: 43,2261 17206 CADR IMUPULSE
010579,000369:
010580,000370: 43,2262 04662 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
010581,000371: 43,2263 17577 CADR IMUSTALL
010582,000372: 43,2264 05534 TC ENDEXTVB
010583,000373: 43,2265 05534 TC ENDEXTVB
010584,000374:
010585,000375: 43,2266 02757 LGYROBIN ECADR OGC
010586,000376: 43,2267 06335 VNLODGYR VN 2593
010587,000377: 43,2270 12400 IMUFINEV VN 4200 # FINE ALIGN VERB
010588,000378:
010589,000379: 43,2271 31322 CKMODCAD CA MODECADR
|
|
Page 244 |
010591,000381: 43,2272 00006 EXTEND
010592,000382: 43,2273 16711 BZF TCQ
010593,000383: 43,2274 02120 TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT
010594,000384:
010595,000385: # GOLOADLV VERB 50 DESCRIPTION
010596,000386: # AND OTHER PLEASE
010597,000387: # DO SOMETHING VERBS
010598,000388:
010599,000389: # PLEASE PERFORM, MARK, CALIBRATE, ETC.
010600,000390:
010601,000391: # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
010602,000392: # SAME RECALL AS A COMPLETED LOAD.
010603,000393: # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
010604,000394:
010605,000395: 43,2275 04447 GOLOADLV TC FLASHOFF
010606,000396: 43,2276 34215 CAF PINSUPBT
010607,000397: 43,2277 00006 EXTEND
010608,000398: 43,2300 01007 WRITE SUPERBNK # TURN ON FE7
010609,000399: 43,2301 04701 TC POSTJUMP
010610,000400: 43,2302 40,2000 SBANK= PINSUPER
010611,000401: 43,2302 62001 CADR LOADLV1
010612,000402:
010613,000403: # V60 VERB 60
010614,000404: 43,2303 00006 V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
010615,000405: 43,2304 30033 DCA CDUX # TO PRESENT ATTITUDE
010616,000406: 43,2305 53334 DXCH CPHIX
010617,000407: 43,2306 30034 CA CDUZ
010618,000408: 43,2307 55335 TS CPHIX +2
010619,000409: 43,2310 02121 TC GOPIN
010620,000410:
010621,000411: # V61 VERB 61
010622,000412: 43,2311 05560 V61 TC DOWNFLAG # SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE
010623,000413: 43,2312 00006 ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED
010624,000414: 43,2313 02121 TC GOPIN
010625,000415:
010626,000416: # V62 VERB 62
010627,000417: 43,2314 05546 V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010628,000418: 43,2315 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
010629,000419:
010630,000420: 43,2316 05546 TC UPFLAG # SET N22ORN17 TO 1 (FLAGWRD9,BIT6),
010631,000421: 43,2317 00220 ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22
010632,000422: 43,2320 02121 TC GOPIN
010633,000423:
010634,000424: # V63 VERB 63
010635,000425: 43,2321 05546 V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
010636,000426: 43,2322 00006 ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
010637,000427:
010638,000428: 43,2323 05560 TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6,
|
|
Page 245 |
010640,000430: 43,2324 00220 ADRES N22ORN17 # COMPUTE TOTAL ASTRONAUT ATTITUDE ERROR
010641,000431: 43,2325 02121 TC GOPIN
010642,000432:
|
|
Page 246 |
010644,000434: # ALINTIME VERB 55 DESCRIPTION
010645,000435:
010646,000436: # 1. SET EXT VERB DISPLAY BUSY FLAG.
010647,000437: # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
010648,000438: # 3. REQUIRE EXECUTION OF VERB 23.
010649,000439: # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
010650,000440: # 5. RELEASE EXT VERB DISPLAY SYSTEM
010651,000441:
010652,000442: 43,2326 COUNT 04/R33
010653,000443:
010654,000444: 43,2326 02076 ALINTIME TC TESTXACT
010655,000445:
010656,000446: 43,2327 32357 CAF VNLODDT
010657,000447: 43,2330 04662 TC BANKCALL
010658,000448: 43,2331 20561 CADR GOMARKF
010659,000449: 43,2332 05534 TC ENDEXT # TERMINATE
010660,000450: 43,2333 05534 TC ENDEXT # PROCEED
010661,000451: 43,2334 42356 CS DEC23 # DATA IN OR RESEQUENCE (UNLIKELY)
010662,000452: 43,2335 60154 AD MPAC # RECALL LEFT VERB IN MPAC
010663,000453: 43,2336 00006 EXTEND
010664,000454: 43,2337 12341 BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
010665,000455: 43,2340 05534 TC ENDEXT # WITH V23 (DATA IN).
010666,000456:
010667,000457: 43,2341 00004 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
010668,000458: 43,2342 35021 CAF ZERO
010669,000459: 43,2343 54156 TS MPAC +2 # NEEDED FOR TP AGREE
010670,000460: 43,2344 54001 TS L # ZERO T1 & 2 WHILE ALIGNING.
010671,000461: 43,2345 52025 DXCH TIME2
010672,000462: 43,2346 52155 DXCH MPAC
010673,000463: 43,2347 53052 DXCH DSPTEM2 +1 # INCREMENT
010674,000464: 43,2350 20155 DAS MPAC
010675,000465:
010676,000466: 43,2351 07226 TC TPAGREE # FORCE SIGN AGREEMENT.
010677,000467: 43,2352 52155 DXCH MPAC # NEW CLOCK.
010678,000468: 43,2353 20025 DAS TIME2
010679,000469: 43,2354 00003 RELINT
010680,000470: 43,2355 05534 UPDTMEND TC ENDEXT
010681,000471: 43,2356 00027 DEC23 DEC 23 B-14 # V 23
010682,000472:
010683,000473: 43,2357 06230 VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
010684,000474:
|
|
Page 247 |
010686,000476: # SYSTEST VERB 92 DESCRIPTION
010687,000477: # OPERATE SELECTED SYSTEM TEST
010688,000478:
010689,000479: # 1. REQUIRE POO OR POO- OR TURN ON OPERATOR ERROR.
010690,000480: # 2. TURN OFF DAP IF IT IS ON.
010691,000481: # 3. DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17).
010692,000482: # 4. UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20.
010693,000483:
010694,000484: # TSELECT
010695,000485: # 1. IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND
010696,000486: # REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE)
010697,000487:
010698,000488: 43,2360 E5,1425 EBANK= QPLACE
010699,000489:
010700,000490: 43,2360 COUNT 04/EXTVB
010701,000491:
010702,000492: 43,2360 02730 SYSTEST TC CHKPOOH
010703,000493: 43,2361 30075 CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11)
010704,000494: 43,2362 75004 MASK NOP01BIT
010705,000495: 43,2363 00006 EXTEND
010706,000496: 43,2364 12367 BZF V92CONT # IF IT'S NOT YET SET, CONTINUE
010707,000497: 43,2365 05721 TC POODOO # IT'S ON. SEND NODO ALARM FOR P07
010708,000498: 43,2366 01521 OCT 1521
010709,000499: 43,2367 02734 V92CONT TC EXDAPOFF # TURN DAP OFF IT IT'S ON
010710,000500: 43,2370 35002 CAF PRIO20
010711,000501: 43,2371 05147 TC FINDVAC
010712,000502: 43,2372 E5,1425 EBANK= QPLACE
010713,000503: 43,2372 30,2000 SBANK= IMUSUPER
010714,000504: 43,2372 02002 66065 2CADR REDO
010715,000505:
010716,000506: 43,2374 02121 TC GOPIN
010717,000507:
010718,000508: # REDO AND TSELECT ARE NOW IN SYSTEM TEST.
010719,000509:
010720,000510: 43,2375 COUNT* $$/EXTVB
010721,000511: # CKOPTVB VERB 65 DESCRIPTION
010722,000512: # OPTICAL VERIFICATION FOR PRELAUNCH.
010723,000513: # 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
010724,000514:
010725,000515: 43,2375 05364 CKOPTVB TC CHECKMM
010726,000516: 43,2376 00002 MM 02 B-14 # I WONDER IF PRELAUNCH IS RUNNING
010727,000517: 43,2377 02120 TC ALM/END # NOT RUNNING OPERATOR ERROR
010728,000518: 43,2400 00004 INHINT
010729,000519: 43,2401 35070 CAF PRIO16 # PRELAUNCH OPTICAL VERIFICATION
010730,000520: 43,2402 05147 TC FINDVAC
010731,000521: 43,2403 E5,1425 EBANK= QPLACE
010732,000522: 43,2403 02000 66065 2CADR COMPVER # STANDARD LEADIN TO GCOMPVER.
010733,000523:
010734,000524: 43,2405 02121 TC GOPIN
010735,000525:
|
|
Page 248 |
010737,000527: # V 78 .... TO CHANGE GYROCOMPASS AZIMUTH
010738,000528:
010739,000529: 43,2406 05364 CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
010740,000530: 43,2407 00002 MM 02 B-14
010741,000531: 43,2410 02120 TC ALM/END # NO - OPERA TOR ERROR
010742,000532:
010743,000533: 43,2411 35070 CAF PRIO16 # PRELAUNCH AZIMUTH CHANGE
010744,000534: 43,2412 05147 TC FINDVAC
010745,000535: 43,2413 E5,1671 EBANK= XSM
010746,000536: 43,2413 03742 66065 2CADR AZMTHCG1
010747,000537:
010748,000538: 43,2415 05412 TC PHASCHNG
010749,000539: 43,2416 00174 OCT 00174
010750,000540: 43,2417 02121 TC GOPIN
|
|
Page 249 |
010752,000542: # IMUATTCK VERB 43 DESCRIPTION
010753,000543: # LOAD IMU ATTITUDE ERROR METERS
010754,000544:
010755,000545: # 1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
010756,000546: # 2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
010757,000547: # FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
010758,000548: # 3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
010759,000549: # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
010760,000550: # 5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
010761,000551: # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
010762,000552: # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
010763,000553:
010764,000554: 43,2420 02730 IMUATTCK TC CHKPOOH
010765,000555:
010766,000556: 43,2421 32477 CAF OCTAL30 # CHECK IF IMU ZERO AND IMU COARSE ARE ON
010767,000557: 43,2422 00006 EXTEND
010768,000558: 43,2423 02012 RAND CHAN12
010769,000559: 43,2424 10000 CCS A
010770,000560: 43,2425 12120 TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
010771,000561:
010772,000562: 43,2426 02465 TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
010773,000563: 43,2427 02076 TC TESTXACT # AFTER
010774,000564: 43,2430 45033 CS OCT50 # REMOVE COARSE AND ECTR ENABLE.
010775,000565: 43,2431 00006 EXTEND
010776,000566: 43,2432 03012 WAND CHAN12
010777,000567:
010778,000568: 43,2433 32173 CAF VNLODCDU
010779,000569: 43,2434 04662 TC BANKCALL
010780,000570: 43,2435 20561 CADR GOXDSPF
010781,000571: 43,2436 12452 TCF TRMATTCK
010782,000572: 43,2437 02440 TC +1
010783,000573: 43,2440 35057 CAF EBANK6
010784,000574: 43,2441 54003 TS EBANK # SET E6 FOR NEEDLES.
010785,000575:
010786,000576: 43,2442 E6,1476 EBANK= AK
010787,000577:
010788,000578: 43,2442 04662 TC BANKCALL # INITIALIZE CURRENT DAC AND
010789,000579: 43,2443 42443 CADR NEEDLE11 # COMMAND VALUES
010790,000580:
010791,000581: 43,2444 04662 TC BANKCALL # ENABLE ERROR COUNTERS.
010792,000582: 43,2445 42462 CADR NEEDLER2
010793,000583:
010794,000584: 43,2446 35016 CAF TWO # 4 MS MIN.
010795,000585: 43,2447 05245 TC WAITLIST
010796,000586: 43,2450 E6,1476 EBANK= AK
010797,000587: 43,2450 02455 66106 2CADR ATTCK1
010798,000588:
010799,000589: 43,2452 02465 TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFRER LIFTOFF
010800,000590: 43,2453 15534 TCF ENDEXT # AFTER
010801,000591: 43,2454 02121 TC GOPIN
|
|
Page 250 |
010803,000593: 43,2455 00006 ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REGS.
010804,000594: 43,2456 31156 DCA THETAD
010805,000595: 43,2457 53477 DXCH AK
010806,000596: 43,2460 31157 CAE THETAD +2
010807,000597: 43,2461 55500 TS AK +2
010808,000598:
010809,000599: 43,2462 04740 TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES
010810,000600: 43,2463 42476 CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED.
010811,000601:
010812,000602: 43,2464 05324 TC TASKOVER
010813,000603:
010814,000604: 43,2465 35013 CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED
010815,000605: 43,2466 70101 MASK FLAGWRD5
010816,000606: 43,2467 10000 CCS A
010817,000607: 43,2470 00002 TC Q # YES
010818,000608: 43,2471 35013 CAF BIT5
010819,000609: 43,2472 00006 EXTEND
010820,000610: 43,2473 02030 RAND CHAN30
010821,000611: 43,2474 10000 CCS A
010822,000612: 43,2475 16706 TCF Q+1
010823,000613: 43,2476 00002 XACT0Q TC Q # YES
010824,000614:
010825,000615: 43,2477 00030 OCTAL30 OCT 30
010826,000616: 43,2500 02730 VB64 TC CHKPOOH # DEMAND PROGRAM 00.
010827,000617: 43,2501 02076 TC TESTXACT # IF DISPLAY SYS. NOT BUSY, MAKE IT BUSY.
010828,000618: 43,2502 00004 INHINT
010829,000619: 43,2503 35004 CAF PRIO4
010830,000620: 43,2504 05147 TC FINDVAC
010831,000621: 43,2505 E4,1720 EBANK= RHOSB
010832,000622: 43,2505 03652 64104 2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES.
010833,000623:
010834,000624: 43,2507 05217 TC ENDOFJOB
010835,000625:
010836,000626: # ENATMA VERB 58 DESCRIPTION
010837,000627: # ENABLE AUTOMATIC ATTITUDE MANEUVER
010838,000628:
010839,000629: # VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERUPTIONS BY RHC ACT-
010840,000630: # IVITY.
010841,000631:
010842,000632: 43,2510 05560 ENATMA TC DOWNFLAG # RESET STIKFLAG.
010843,000633: 43,2511 00020 ADRES STIKFLAG # BIT 14 FLAG 1
010844,000634: 43,2512 02121 TC GOPIN
010845,000635:
|
|
Page 251 |
010847,000637: # STROKON VERB 68 DESCRIPTION
010848,000638: # STROKE TEST SETUP/ENABLE
010849,000639: # 1. SET EXT VERB DISPLAY BUSY FLAG
010850,000640: # 2. SCHEDULE STRKTST1 WITH PRIORITY 30.
010851,000641: # 3. RELEASE EXT VERB DISPLAY.
010852,000642:
010853,000643: 43,2513 E6,1625 EBANK= T5TVCDT
010854,000644: 43,2513 40102 STROKON CS FLAGWRD6 # V68 PERMITTED ONLY DURING TVC
010855,000645: 43,2514 74105 MASK OCT60000
010856,000646: 43,2515 00006 EXTEND
010857,000647: 43,2516 62120 BZMF ALM/END # NOT TVC....FLASH OP ERROR LIGHT
010858,000648: 43,2517 34371 CAF PRIO30 # JOB REQUEST, TO SET UP STROKE TEST,
010859,000649: 43,2520 05134 TC NOVAC # INCLUDING INITIALIZATIONS
010860,000650: 43,2521 E6,1574 EBANK= STROKER
010861,000651: 43,2521 03501 40106 2CADR STRKTSTI
010862,000652:
010863,000653: 43,2523 02121 TC GOPIN
010864,000654:
010865,000655: # STABLISH VERB 46 DESCRIPTION
010866,000656: # ESTABLISH G & N AUTOPILOT CONTROL
010867,000657: # 1. SETS UP EITHER RCS, ENTRY, OR SATURN
010868,000658: # 2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER
010869,000659: # FROM HIGH BW TO LOW BW
010870,000660:
010871,000661:
010872,000662: 43,2524 35057 STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
010873,000663: 43,2525 54003 TS EBANK
010874,000664:
010875,000665: 43,2526 40102 CS FLAGWRD6 # TEST FOR TVC
010876,000666: 43,2527 74105 MASK OCT60000
010877,000667: 43,2530 00006 EXTEND
|
|
2010-08-30 (jiml): yaYUL expects either an octal or explicit decimal offset. Original source was 'BZMF +8'. Added 'D' to explicitly specify decimal offset. |
010880,000670: 43,2531 62541 BZMF +8D
010881,000671:
010882,000672: 43,2532 31466 CAE DAPDATR1 # TEST FOR CSM/LM
010883,000673: 43,2533 75002 MASK BIT14
010884,000674: 43,2534 00006 EXTEND
010885,000675: 43,2535 62540 BZMF +3
010886,000676:
010887,000677: 43,2536 04701 TC POSTJUMP # CSM/LM, SO PERFORM HB TO LB SWITCH-OVER
010888,000678: 43,2537 36351 CADR PRESWTCH
010889,000679:
010890,000680: 43,2540 02120 +3 TC ALM/END # CSM, SO ALARM AND EXIT
010891,000681:
010892,000682: 43,2541 04701 +8 TC POSTJUMP # SET UP RCS, ENTRY, OR SATURN-STICK DAP
010893,000683: 43,2542 65606 CADR DAPFIG
|
|
Page 252 |
010895,000685: # CREWMANU VERB 49 DESCRIPTION
010896,000686: # START AUTOMATIC ATTITUDE MANEUVER
010897,000687:
010898,000688: # 1. REQUIRE PROGRAM 00 ACTIVE.
010899,000689: # 2. SET EXT VERB DISPLAY BUSY FLAG.
010900,000690: # 3. SCHEDULE R62DISP WITH PRIORITY 10.
010901,000691: # 4. RELEASE EXT VERB DISPLAY.
010902,000692:
010903,000693: # R62DISP
010904,000694: # 1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP
010905,000695: # 4 FOR RESTART OF DISPLAY SEQUENCE.
010906,000696: # RESPONSES
010907,000697: # A. TERMINATE
010908,000698: # 1. GO TO GOTOPOOH.
010909,000699: # B. PROCEED
010910,000700: # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
010911,000701: # 2. EXECUTE R60CSM (ATTITUDE MANEUVER).
010912,000702: # 3. ZERO GROUP 4 (END R62).
010913,000703: # C. ENTER
010914,000704: # 1. REPEAT FLASHING V06,N22.
010915,000705:
010916,000706: 43,2543 02730 CREWMANU TC CHKPOOH # DEMAND POO
010917,000707:
010918,000708: 43,2544 02076 TC TESTXACT
010919,000709:
010920,000710: 43,2545 35003 CAF PRIO10
010921,000711: 43,2546 05147 TC FINDVAC
010922,000712: 43,2547 1155 EBANK= CPHI
010923,000713: 43,2547 02330 56102 2CADR R62DISP
010924,000714:
010925,000715: 43,2551 05217 TC ENDOFJOB
010926,000716:
|
|
Page 253 |
010928,000718: # DAPDISP VERB 48 DESCRIPTION
010929,000719: # LOAD AUTOPILOT DATA (ROUTINE R03)
010930,000720:
010931,000721: # 0. CHECKFAIL AND RETURN IF TVC.
010932,000722: # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
010933,000723: # 2. LOWER PRIORITY TO 10.
010934,000724: # 3. DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
010935,000725: # 4. UPON PROCEED RESPONSE, EXECUTE S41.2.
010936,000726: # 5. DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.)
010937,000727: # 6. UPON PROCEED RESPONSE EXECUTE S40.14.
010938,000728: # 7. DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
010939,000729: # 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DESPLAY SYSTEM
010940,000730:
010941,000731: 43,2552 COUNT* $$/EXTVB
010942,000732:
010943,000733: 43,2552 40102 DAPDISP CS FLAGWRD6
010944,000734: 43,2553 74105 MASK OCT60000
010945,000735: 43,2554 00006 EXTEND
010946,000736: 43,2555 62557 BZMF +2 # TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
010947,000737: 43,2556 02120 TC ALM/END # RETURN IF TVC
010948,000738:
010949,000739: 43,2557 02076 TC TESTXACT
010950,000740: 43,2560 04662 TC BANKCALL
010951,000741: 43,2561 64000 CADR DAPDISP1
010952,000742: 42,2000 BANK 42
010953,000743: 42,2000 SETLOC EXTVBS
010954,000744: 42,2000 BANK
010955,000745: 42,2000 COUNT 24/R03
010956,000746:
010957,000747: 42,2000 35057 DAPDISP1 CAF EBANK6
010958,000748: 42,2001 54003 TS EBANK
010959,000749:
010960,000750: 42,2002 35003 CAF PRIO10
010961,000751: 42,2003 05210 TC PRIOCHNG
010962,000752:
010963,000753: 42,2004 32061 DONOUN46 CAF V04N46 # R1 R2
010964,000754: 42,2005 04662 TC BANKCALL # DAPDATR1 DAPDATR2
010965,000755: 42,2006 20561 CADR GOXDSPF # GOXDSP ROUTINES USED FOR EXTENDED VERBS.
010966,000756:
010967,000757: 42,2007 05534 TC ENDEXT # EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
010968,000758: 42,2010 02012 TC +2
010969,000759: 42,2011 02004 TC DONOUN46
010970,000760:
010971,000761: 42,2012 31466 CA DAPDATR1
010972,000762: 42,2013 75014 MASK BIT4
010973,000763: 42,2014 10000 CCS A
010974,000764: 42,2015 12054 TCF MAXIN
010975,000765: 42,2016 05560 TC DOWNFLAG
010976,000766: 42,2017 00212 ADRES MAXDBFLG
010977,000767: 42,2020 04662 MAXOUT TC BANKCALL
010978,000768: 42,2021 40347 CADR S41.2
010979,000769:
010980,000770: 42,2022 32060 DONOUN47 CAF V06N47 # R1 R2 R3
|
|
Page 254 |
010982,000772: 42,2023 04662 TC BANKCALL # CSM WGT. LEM WGT. BLANK
010983,000773: 42,2024 20561 CADR GOXDSPF
010984,000774:
010985,000775: 42,2025 05534 TC ENDEXT
010986,000776: 42,2026 02030 TC +2
010987,000777: 42,2027 02022 TC DONOUN47
010988,000778: 42,2030 31466 CAE DAPDATR1 # DO MASS PROPERTIES CALCULATION ONLY IF
010989,000779: 42,2031 74371 MASK PRIO30 # CONFIG = 1(CSM), 2 (CSM/LM), 6(CSM/LMA)
010990,000780: 42,2032 00006 EXTEND
010991,000781: 42,2033 12046 BZF DONOUN48 # SKIP IF 0,4
010992,000782: 42,2034 40000 COM
010993,000783: 42,2035 74371 MASK PRIO30
010994,000784: 42,2036 00006 EXTEND
010995,000785: 42,2037 12046 BZF DONOUN48 # SKIP IF 3,7
010996,000786: 42,2040 00004 INHINT
010997,000787: 42,2041 04740 TC IBNKCALL
010998,000788: 42,2042 13366 CADR MASSPROP # UPDATE IXX, IAVG, IAVG/TLX
010999,000789:
011000,000790: 42,2043 00003 RELINT
011001,000791: 42,2044 04662 TC BANKCALL
011002,000792: 42,2045 40500 CADR S40.14 # COMPUTE RCS DAP STUFF
011003,000793:
011004,000794: 42,2046 32057 DONOUN48 CAF V0648 # R1 R2 R3
011005,000795: 42,2047 04662 TC BANKCALL # PTRIM YTRIM BLANK
011006,000796: 42,2050 20561 CADR GOXDSPF
011007,000797:
011008,000798: 42,2051 05534 TC ENDEXT
011009,000799: 42,2052 05534 TC ENDEXT
011010,000800: 42,2053 02046 TC DONOUN48
011011,000801:
011012,000802: 42,2054 05546 MAXIN TC UPFLAG
011013,000803: 42,2055 00212 ADRES MAXDBFLG
011014,000804: 42,2056 02020 TC MAXOUT
011015,000805:
011016,000806: 42,2057 01460 V0648 VN 0648
011017,000807: 42,2060 01457 V06N47 VN 0647
011018,000808: 42,2061 01056 V04N46 VN 0446
011019,000809: 43,2562 BANK 43
011020,000810: 43,2000 SETLOC EXTVERBS
011021,000811: 43,2000 BANK
011022,000812:
011023,000813: 43,2562 COUNT* $$/EXTVB
011024,000814:
011025,000815: # V82PERF VERB82 DESCRIPTION
011026,000816: # REQUEST ORBIT PARAMETERS DISPLAY (R30)
011027,000817:
011028,000818: # 1. IF AVERAGE G IS OFF:
011029,000819: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
011030,000820: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
011031,000821: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
011032,000822: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
011033,000823: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
|
|
Page 255 |
011035,000825: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
011036,000826: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
011037,000827: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
011038,000828: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
011039,000829: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
011040,000830: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
011041,000831: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
011042,000832: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
011043,000833: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
011044,000834:
011045,000835: # 2. IF AVERAGE G IS ON:
011046,000836: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
011047,000837: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
011048,000838: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
011049,000839: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
011050,000840: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
011051,000841: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
011052,000842:
011053,000843: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
011054,000844: # ABOVE REMARKS.
011055,000845:
011056,000846: 43,2562 02076 V82PERF TC TESTXACT
011057,000847:
011058,000848: 43,2563 35063 CAF PRIO7
011059,000849: 43,2564 05210 TC PRIOCHNG
011060,000850: 43,2565 04701 TC POSTJUMP
011061,000851: 43,2566 46332 CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB.
011062,000852:
011063,000853: # VB83PERF VERB 83 DESCRIPTION
011064,000854: # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
011065,000855:
011066,000856: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011067,000857: # 2. SCHEDULE V83CALL WITH PRIORITY 10.
011068,000858: # A. DISPLAY
011069,000859: # R1 RANGE
011070,000860: # R2 RANGE RATE
011071,000861: # R3 THETA
011072,000862:
011073,000863: 43,2567 02076 V83PERF TC TESTXACT
011074,000864: 43,2570 00004 INHINT
011075,000865: 43,2571 40105 CS FLAGWRD9 # SET R31 FLAG-BIT 4 FLAGWRD9
011076,000866: 43,2572 75014 MASK R31FLBIT
011077,000867: 43,2573 26105 ADS FLAGWRD9
011078,000868: 43,2574 35061 CAF PRIO5
011079,000869: 43,2575 05134 TC NOVAC
011080,000870: 43,2576 E4,1770 EBANK= SUBEXIT
011081,000871: 43,2576 02000 62064 2CADR R31CALL
011082,000872:
011083,000873: 43,2600 05217 TC ENDOFJOB
011084,000874:
|
|
Page 256 |
011086,000876: 43,2601 02076 V85PERF TC TESTXACT
011087,000877: 43,2602 00004 INHINT
011088,000878: 43,2603 45014 CS R31FLBIT # RESET R31 FLAG TO INDICATE R34
011089,000879: 43,2604 70105 MASK FLAGWRD9
011090,000880: 43,2605 54105 TS FLAGWRD9
011091,000881: 43,2606 02574 TC V83PERF +5
|
|
Page 257 |
011093,000883: # GOTOR21 VERB 57
011094,000884: # GOTOR23- VERB 54 DESCRIPTION
011095,000885: # SET UP MARKING FOR R22 (REND TRACK DATA PROC)
011096,000886: # 1. SET EXT VERB DISPLAY BUSY FLAG
011097,000887: # 2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
011098,000888: # SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
011099,000889: # 3. RELEASE EXT VERB DISPLAY SYSTEM
011100,000890:
011101,000891: 43,2607 05560 GOTOR21 TC DOWNFLAG # CLEAR R23FLG
011102,000892: 43,2610 00025 ADRES R23FLG # BIT 9 FLAG 1
011103,000893: 43,2611 02614 TC +3
011104,000894: 43,2612 05546 GOTOR23 TC UPFLAG # SET R23FLG
011105,000895: 43,2613 00025 ADRES R23FLG # BIT 9 FLAG 1
011106,000896: 43,2614 02076 TC TESTXACT
011107,000897: 43,2615 30074 CA FLAGWRD0 # VB 57 UNNACCEPTABLE UNLESS BOTH
011108,000898: 43,2616 75011 MASK RNDVZBIT # RENDEZVOUS AND TRACK FLAGS ON
011109,000899: 43,2617 00006 EXTEND
011110,000900: 43,2620 12643 BZF R22ALARM
011111,000901:
011112,000902: 43,2621 30075 CA FLAGWRD1
011113,000903: 43,2622 75013 MASK TRACKBIT
011114,000904: 43,2623 00006 EXTEND
011115,000905: 43,2624 12643 BZF R22ALARM
011116,000906:
011117,000907: 43,2625 30075 CA FLAGWRD1 # TEST R23FLG
011118,000908: 43,2626 75007 MASK R23BIT
011119,000909: 43,2627 00006 EXTEND
011120,000910: 43,2630 12636 BZF REGR21 # R21
011121,000911: 43,2631 35070 CAF PRIO16
011122,000912: 43,2632 05134 TC NOVAC
011123,000913: 43,2633 E7,1725 EBANK= MRKBUF1
011124,000914: 43,2633 02470 76067 2CADR R23CSM
011125,000915:
011126,000916: 43,2635 05217 TC ENDOFJOB
011127,000917: 43,2636 35070 REGR21 CAF PRIO16
011128,000918: 43,2637 05134 TC NOVAC
011129,000919: 43,2640 E7,1725 EBANK= MRKBUF1
011130,000920: 43,2640 02466 76067 2CADR R21CSM
011131,000921:
011132,000922: 43,2642 05217 TC ENDOFJOB
011133,000923: 43,2643 05650 R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND
011134,000924: 43,2644 00406 OCT 00406 # NOR TRACK FLAG WERE ON.
011135,000925: 43,2645 05534 TC ENDEXT
011136,000926:
|
|
Page 258 |
011138,000928: # VERB 86 DESCRIPTION
011139,000929: # V86 IS TO R23 AS MARK REJECT IS TO R21
011140,000930: # V86 IS THE MARK REJECT FOR R23 (THE BACKUP MARKING ROUTINE)
011141,000931:
011142,000932: 43,2646 E7,1725 EBANK= MRKBUF1
011143,000933: 43,2646 35060 V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23)
011144,000934: 43,2647 56003 XCH EBANK
011145,000935: 43,2650 37716 CA NEGONE
011146,000936: 43,2651 55725 TS MRKBUF1
011147,000937: 43,2652 02121 TC GOPIN
011148,000938:
|
|
Page 259 |
011150,000940: # TRACKTRM VERB 56 DESCRIPTION
011151,000941: # TERMINATE TRACKING (P20)
011152,000942: # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
011153,000943: # 2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00).
011154,000944: # 3. REQUIRE R22 RUNNING OR GO TO PINBRNCH.
011155,000945: # 4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
011156,000946: # 3. KNOCK DOWN RENDEZVOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
011157,000947: # 4. GO TO ENEMA (SOFTWARE RESTART).
011158,000948: # REFERENCE
011159,000949: # P20 RENDEZVOUS NAVIGATION.
011160,000950: # R21 RENDEZVOUS TRACKING SIGHTING MARK.
011161,000951: # R22 RENDEZVOUS TRACKING DATA PROCESSING.
011162,000952:
011163,000953: 43,2653 35011 TRACKTRM CA RNDVZBIT # IS REND FLAG ON
011164,000954: 43,2654 70074 MASK FLAGWRD0
011165,000955: 43,2655 00006 EXTEND
011166,000956: 43,2656 12121 BZF GOPIN # NO
011167,000957:
011168,000958: 43,2657 05560 TC DOWNFLAG
011169,000959: 43,2660 00010 ADRES RNDVZFLG
011170,000960:
011171,000961: 43,2661 35013 CA TRACKBIT # IS TRACK FLAG ON
011172,000962: 43,2662 70075 MASK FLAGWRD1
011173,000963: 43,2663 00006 EXTEND
011174,000964: 43,2664 12121 BZF GOPIN # NO
011175,000965:
011176,000966: 43,2665 05560 TC DOWNFLAG
011177,000967: 43,2666 00031 ADRES TRACKFLG
011178,000968:
011179,000969: 43,2667 05560 TC DOWNFLAG
011180,000970: 43,2670 00027 ADRES UPDATFLG
011181,000971:
011182,000972: 43,2671 05560 TC DOWNFLAG
011183,000973: 43,2672 00007 ADRES IMUSE
011184,000974:
011185,000975: 43,2673 35057 CAF EBANK6
011186,000976: 43,2674 54003 TS EBANK
011187,000977:
011188,000978: 43,2675 00004 INHINT
011189,000979: 43,2676 04526 TC STOPRATE
011190,000980:
011191,000981: 43,2677 37716 CAF NEGONE
011192,000982: 43,2700 55303 TS OPTIND
011193,000983:
011194,000984: 43,2701 06006 TC INTPRET
011195,000985: 43,2702 77624 CALL
011196,000986: 43,2703 27442 INTSTALL # DONT INTERRUPT INTEGRATION
011197,000987: 43,2704 77776 EXIT
011198,000988:
011199,000989: 43,2705 05372 TC 2PHSCHNG
|
|
Page 260 |
011201,000991: 43,2706 00002 OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
011202,000992: 43,2707 00001 OCT 1 # ALSO KILL GROUP 1
011203,000993:
011204,000994: 43,2710 00004 CLEANOUT INHINT
011205,000995: 43,2711 04701 TC POSTJUMP
011206,000996: 43,2712 12651 CADR ENEMA # CAUSE RESTART
011207,000997:
011208,000998: # LEMVEC VERB 80 DESCRIPTION
011209,000999: # UPDATE LEM STATE VECTOR
011210,001000: # RESET VEHUPFLG TO 0
011211,001001:
011212,001002: 43,2713 05560 LEMVEC TC DOWNFLAG
011213,001003: 43,2714 00026 ADRES VEHUPFLG # VEHUPFLG DOWN INDICATES LEM
011214,001004:
011215,001005: 43,2715 12121 TCF GOPIN
011216,001006:
011217,001007: # CSMVEC VERB 81 DESCRIPTION
011218,001008: # UPDATE CSM STATE VECTOR
011219,001009: # SET VEHUPFLG TO 1
011220,001010:
011221,001011: 43,2716 05546 CSMVEC TC UPFLAG
011222,001012: 43,2717 00026 ADRES VEHUPFLG # VEHUPFLG UP INDICATES CM.
011223,001013:
011224,001014: 43,2720 12121 TCF GOPIN
011225,001015:
011226,001016: # DNEDUMP VERB 74 DESCRIPTION
011227,001017: # INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
011228,001018:
011229,001019: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011230,001020: # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
011231,001021: # 3. RELEASE EXT VERB DISPLAY.
011232,001022:
011233,001023: 43,2721 0010 EBANK= 10
011234,001024: 43,2721 32724 DNEDUMP CAF LDNDUMPI
011235,001025: 43,2722 54335 TS DNTMGOTO
011236,001026: 43,2723 02121 TC GOPIN
011237,001027:
011238,001028: 43,2724 43,2721 V74 EQUALS DNEDUMP
011239,001029: 43,2724 03722 LDNDUMPI REMADR DNDUMPI
011240,001030:
011241,001031: # LFTFLGON VERB 75 DESCRIPTION
011242,001032: # SET LIFT-OFF FLAG
011243,001033: # 1. SETUP GGRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
011244,001034: # 2. RETURN VIA PINBRNCH
011245,001035:
011246,001036: 43,2725 05546 LFTFLGON TC UPFLAG # VB 75 - SET LIFTOFF FLAG BIT
011247,001037: 43,2726 00125 ADRES GRRBKFLG # BIT 5 FLAG 5
011248,001038: 43,2727 02121 TC GOPIN
011249,001039:
|
|
Page 261 |
011251,001041: 43,2730 31011 CHKPOOH CA MODREG
011252,001042: 43,2731 00006 EXTEND
011253,001043: 43,2732 16711 BZF TCQ
011254,001044: 43,2733 12120 TCF ALM/END
011255,001045:
011256,001046: 43,2734 00006 EXDAPOFF EXTEND
011257,001047: 43,2735 32744 DCA IDLECADR # SET T5 TO IDLE.
011258,001048: 43,2736 53313 DXCH T5LOC
011259,001049: 43,2737 44105 CS OCT60000
011260,001050: 43,2740 70102 MASK FLAGWRD6 # RESET DAPBITS 1 AND 2.
011261,001051: 43,2741 54102 TS FLAGWRD6
011262,001052: 43,2742 00002 TC Q
011263,001053:
011264,001054: 43,2743 E6,1423 EBANK= PACTOFF
011265,001055: 43,2743 03153 12106 IDLECADR 2CADR T5IDLOC
011266,001056:
|
|
Page 262 |
011268,001058: # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
011269,001059: #
011270,001060: # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
011271,001061: # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
011272,001062: # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
011273,001063:
011274,001064: # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
011275,001065: # EXIT R63, OTHERWISE CONTINUE.
011276,001066:
011277,001067: # 2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
011278,001068: # ORIENTATION KNOWN TO CGC, CONTINUE.
011279,001069:
011280,001070: # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
011281,001071: # BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
011282,001072: # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E. CONTINUE
011283,001073: # AFTER KEYING IN PROCEED.
011284,001074:
011285,001075: # 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
011286,001076: # FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
011287,001077:
011288,001078: # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
011289,001079:
011290,001080: # R63COMP JOB:
011291,001081:
011292,001082: # UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
011293,001083:
011294,001084: # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
011295,001085:
011296,001086: # DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
011297,001087: # ARE STORED FOR LATER R60CSM CALL.
011298,001088:
011299,001089: # 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
011300,001090:
011301,001091: # 7. RECYCLE- RETURN TO STEP 5.
011302,001092: # TERMINATE- EXIT R63 ROUTINE
011303,001093: # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
011304,001094:
011305,001095: 43,2745 02730 V89PERF TC CHKPOOH # DEMAND P00
011306,001096: 43,2746 02076 TC TESTXACT
011307,001097: 43,2747 00004 INHINT
011308,001098: 43,2750 35003 CAF PRIO10
011309,001099: 43,2751 05147 TC FINDVAC
011310,001100: 43,2752 E4,1715 EBANK= P21TIME
011311,001101: 43,2752 03712 70064 2CADR V89CALL
011312,001102:
011313,001103: 43,2754 15217 TCF ENDOFJOB
011314,001104:
011315,001105: 43,2755 05560 WMATRXNG TC DOWNFLAG # RESET RENDWFLG
011316,001106: 43,2756 00131 ADRES RENDWFLG
|
|
Page 263 |
011318,001108:
011319,001109: 43,2757 05560 TC DOWNFLAG # RESET ORBWFLAG
011320,001110: 43,2760 00066 ADRES ORBWFLAG
011321,001111: 43,2761 02121 TC GOPIN
011322,001112:
011323,001113: 43,2762 43,2762 GOSHOSUM EQUALS SHOWSUM
011324,001114:
011325,001115: 43,2762 02730 SHOWSUM TC CHKPOOH
011326,001116: 43,2763 02076 TC TESTXACT # *
011327,001117: 43,2764 35017 CAF S+1 # *
011328,001118: 43,2765 55376 TS SKEEP6 # * SHOWSUM OPTION
011329,001119: 43,2766 35021 CAF S+ZERO # *
011330,001120: 43,2767 55362 TS SMODE # * TURN OFF SELF-CHECK
011331,001121: 43,2770 33247 CA SELFADRS # *
011332,001122: 43,2771 55361 TS SELFRET # *
011333,001123: 43,2772 03524 TC STSHOSUM # * ENTER ROPECHK
011334,001124:
011335,001125: 43,2773 23372 SDISPLAY LXCH SKEEP2 # * BNK NO FOR DSP
011336,001126: 43,2774 23373 LXCH SKEEP3 # * BUGGER WORD FOR DSP
011337,001127: 43,2775 33246 NOKILL CA ADRS1 # *
011338,001128: 43,2776 54156 TS MPAC +2 # *
011339,001129: 43,2777 33010 CA VNCON # * 0501
011340,001130: 43,3000 04662 TC BANKCALL # *
011341,001131: 43,3001 20561 CADR GOXDSPF # *
011342,001132: 43,3002 03005 TC +3 # *
011343,001133: 43,3003 03635 TC NXTBNK # *
011344,001134: 43,3004 02775 TC NOKILL # *
011345,001135: 43,3005 33247 CA SELFADRS
011346,001136: 43,3006 55371 TS SKEEP1
011347,001137:
011348,001138: 43,3007 05534 TC ENDEXT # *
011349,001139:
011350,001140: 43,3010 01201 VNCON VN 501 # *
011351,001141:
011352,001142: 43,3011 31376 ENDSUMS CA SKEEP6 # *
011353,001143: 43,3012 00006 EXTEND # *
011354,001144: 43,3013 13340 BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
011355,001145: 43,3014 03524 TC STSHOSUM # * START SHOWSUM AGAIN.
011356,001146:
011357,001147:
011358,001148: # VB 76 SET PREFERRED ATTITUDE FLAG - DRIVE TO PREFERRED.
011359,001149:
011360,001150: 43,3015 05546 SETPRFLG TC UPFLAG
011361,001151: 43,3016 00120 ADRES PRFTRKAT # BIT 10 FLAG 5
011362,001152: 43,3017 02121 TC GOPIN
011363,001153:
011364,001154: # VB 77 RESET PREFERRED ATTITUDE FLAG - DRIVE TO +X-AXIS ATT.
011365,001155:
011366,001156: 43,3020 05560 RESETPRF TC DOWNFLAG
011367,001157: 43,3021 00120 ADRES PRFTRKAT # BIT 10 FLAG 5
011368,001158: 43,3022 02121 TC GOPIN
011369,001159:
|
|
Page 264 |
011371,001161: # VB 87 SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
011372,001162:
011373,001163: 43,3023 06006 SETVHFLG TC INTPRET
011374,001164: 43,3024 77414 SET EXIT
011375,001165: 43,3025 04466 VHFRFLAG
011376,001166: 43,3026 02121 TC GOPIN
011377,001167:
011378,001168: # VB 88 RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
011379,001169:
011380,001170: 43,3027 06006 RESETVHF TC INTPRET
011381,001171: 43,3030 77414 CLEAR EXIT
011382,001172: 43,3031 04666 VHFRFLAG
011383,001173: 43,3032 05631 TC TRFAILOF # TRACKER FAIL LIGHT
011384,001174:
011385,001175: 43,3033 02121 TC GOPIN
011386,001176:
011387,001177: # VERB 66. VEHICLES ARE ATTACHED.- MOVE THIS VEHICLE STATE VECTOR TO
011388,001178: # OTHER VEHICLE STATE VECTOR.
011389,001179:
011390,001180: # USE SUBROUTINE GENTRAN.
011391,001181:
011392,001182: 43,3034 E3,1554 EBANK= RRECTHIS
011393,001183: 43,3034 35003 ATTACHED CAF PRIO10
011394,001184: 43,3035 05147 TC FINDVAC
011395,001185: 43,3036 E3,1554 EBANK= RRECTHIS
011396,001186: 43,3036 03041 66103 2CADR ATTACHIT
011397,001187:
011398,001188: 43,3040 05217 TC ENDOFJOB
011399,001189:
011400,001190: 43,3041 06006 ATTACHIT TC INTPRET
011401,001191: 43,3042 77624 CALL
011402,001192: 43,3043 27442 INTSTALL
011403,001193: 43,3044 43014 SET BON
011404,001194: 43,3045 04064 MOONOTH
011405,001195: 43,3046 04303 MOONTHIS
011406,001196: 43,3047 67052 +3
011407,001197: 43,3050 77614 CLEAR
011408,001198: 43,3051 04264 MOONOTH
011409,001199: 43,3052 77776 EXIT
011410,001200: 43,3053 33100 CAF OCT51
011411,001201: 43,3054 05606 TC GENTRAN
011412,001202: 43,3055 01554 ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
011413,001203: 43,3056 01626 ADRES RRECTOTH
011414,001204:
011415,001205: 43,3057 00003 TACHEXIT RELINT
011416,001206: 43,3060 06006 TC INTPRET
011417,001207: 43,3061 77624 CALL # UPDATE RN, VN, R-OTHER, V-OTHER
011418,001208: 43,3062 26731 PTOACSM
|
|
Page 265 |
011420,001210: 43,3063 45154 LXA,2 CALL
011421,001211: 43,3064 02150 PBODY
011422,001212: 43,3065 20237 SVDWN1
011423,001213: 43,3066 77624 CALL
011424,001214: 43,3067 20263 SVDWN2
011425,001215: 43,3070 77776 EXIT
011426,001216:
011427,001217: 43,3071 33101 CAF TCPINAD
011428,001218: 43,3072 50120 INDEX FIXLOC
011429,001219: 43,3073 54052 TS QPRET
011430,001220: 43,3074 04701 TC POSTJUMP
011431,001221: 43,3075 27457 CADR INTWAKE
011432,001222:
011433,001223: 43,3076 77634 TCPIN RTB
011434,001224: 43,3077 21272 PINBRNCH
011435,001225:
011436,001226: 43,3100 00051 OCT51 OCT 51
011437,001227: 43,3101 67076 TCPINAD CADR TCPIN
011438,001228:
011439,001229: # VERB 47 MOVE LM STATE VECTOR INTO CM STATE VECTOR.
011440,001230:
011441,001231: 43,3102 35003 LMTOCMSV CAF PRIO10
011442,001232: 43,3103 05147 TC FINDVAC
011443,001233: 43,3104 E3,1554 EBANK= RRECTHIS
011444,001234: 43,3104 03107 66103 2CADR LMTOCM
011445,001235:
011446,001236: 43,3106 05217 TC ENDOFJOB
011447,001237:
011448,001238: 43,3107 06006 LMTOCM TC INTPRET
011449,001239: 43,3110 77624 CALL
011450,001240: 43,3111 27442 INTSTALL
011451,001241: 43,3112 43014 SET BON
011452,001242: 43,3113 04063 MOONTHIS
011453,001243: 43,3114 04304 MOONOTH
011454,001244: 43,3115 67120 +3
011455,001245: 43,3116 77614 CLEAR
011456,001246: 43,3117 04263 MOONTHIS
011457,001247: 43,3120 77776 EXIT
011458,001248:
011459,001249: 43,3121 33100 CAF OCT51
011460,001250: 43,3122 05606 TC GENTRAN
011461,001251: 43,3123 01626 ADRES RRECTOTH # LM STATE VECTOR INTO CM VIA GENTRAN
011462,001252: 43,3124 01554 ADRES RRECTHIS
011463,001253:
011464,001254: 43,3125 13057 TCF TACHEXIT
011465,001255:
011466,001256: # VERB 94 DO R64 VIA ENEMA TO PICK UP IN P23.
011467,001257:
011468,001258: 43,3126 35005 VERB94 CAF V94FLBIT
011469,001259: 43,3127 70105 MASK FLAGWRD9 # IS V94FLAG SET
|
|
Page 266 |
011471,001261: 43,3130 00006 EXTEND
011472,001262: 43,3131 12120 BZF ALM/END # NO - OPERATOR ERROR
011473,001263:
011474,001264: 43,3132 05560 TC DOWNFLAG
011475,001265: 43,3133 00213 ADRES V94FLAG
011476,001266:
011477,001267: 43,3134 05364 TC CHECKMM # IS IT P23
011478,001268: 43,3135 00027 MM 23 B-14
011479,001269: 43,3136 02120 TC ALM/END # NO - OPERATOR ERROR
011480,001270: 43,3137 05412 TC PHASCHNG
011481,001271: 43,3140 00112 OCT 112 # SET GROUP 2 TO DO R64
011482,001272:
011483,001273: 43,3141 02710 TC CLEANOUT # CAUSE RESTART
011484,001274:
011485,001275: # V90PERF VERB 90 DESCRIPTION
011486,001276: # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
011487,001277:
011488,001278: # 1. SET EXT VERB DISPLAY BUSY FLAG.
011489,001279: # 2. SCHEDULE R36 CALL WITH PRIORITY 10
011490,001280: # A. DISPLAY
011491,001281: # TIME OF EVENT - HOURS, MINUTES, SECONDS
011492,001282: # Y OUT-OF-PLANE POSITION - NAUTICAL MILES
011493,001283: # YDOT OUT-OF-PLANE VELOCITY - FEET/SECOND
011494,001284: # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
011495,001285: # DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
011496,001286:
011497,001287: 43,3142 02076 V90PERF TC TESTXACT
011498,001288: 43,3143 35063 CAF PRIO7 # R36.V90
011499,001289: 43,3144 05147 TC FINDVAC
011500,001290: 43,3145 E4,1726 EBANK= RPASS36
011501,001291: 43,3145 02164 40104 2CADR R36
011502,001292:
011503,001293: 43,3147 15217 TCF ENDOFJOB
011504,001294:
011505,001295: # VERB 96 SET QUITFLAG TO STOP INTEGRATION.
011506,001296:
011507,001297: 43,3150 05546 VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
011508,001298: 43,3151 00221 ADRES QUITFLAG # AT NEXT TIMESTEP
011509,001299:
011510,001300: 43,3152 05546 TC UPFLAG
011511,001301: 43,3153 00204 ADRES V96ONFLG
011512,001302: 43,3154 35021 CAF ZERO
011513,001303: 43,3155 04701 TC POSTJUMP
011514,001304: 43,3156 10011 CADR V37 # GO TO POO
011515,001305:
011516,001306: 43,3157 E5,1751 EBANK= LANDMARK
011517,001307: 43,3157 05364 V52 TC CHECKMM # IS P22 OPERATING
011518,001308: 43,3160 00026 MM 22 B-14
011519,001309: 43,3161 02120 TC ALM/END # NO
011520,001310: 43,3162 33200 CAF LANDBANK
011521,001311: 43,3163 54003 TS EBANK
011522,001312:
|
|
Page 267 |
011524,001314: 43,3164 45063 CS PRIO7 # YES SET BITS 12,11,10 OF LANDMARK =
011525,001315: 43,3165 71751 MASK LANDMARK # BITS 14,13,12 OF MARKSTAT AFTER
011526,001316: 43,3166 55751 TS LANDMARK # SUBT. THEM FROM 5 TO GET OFFSET
011527,001317: 43,3167 31330 CA MARKSTAT # MARK NO.
011528,001318: 43,3170 54021 TS SR
011529,001319: 43,3171 30021 CA SR
011530,001320: 43,3172 30021 CA SR
011531,001321: 43,3173 75063 MASK PRIO7
011532,001322: 43,3174 40000 CS A
011533,001323: 43,3175 65061 AD PRIO5
011534,001324: 43,3176 27751 ADS LANDMARK
011535,001325: 43,3177 02121 TC GOPIN
011536,001326: 43,3200 02751 LANDBANK ECADR LANDMARK
011537,001327:
011538,001328: # VERB 67 ASTRONAUT DISPLAY OF W MATRIX
011539,001329:
011540,001330: 43,3201 02076 V67 TC TESTXACT
011541,001331: 43,3202 35061 CAF PRIO5
011542,001332: 43,3203 05147 TC FINDVAC
011543,001333: 43,3204 E5,1400 EBANK= W
011544,001334: 43,3204 03624 60105 2CADR V67CALL
011545,001335:
011546,001336: 43,3206 05217 TC ENDOFJOB
011547,001337:
011548,001338: # VB 44. SET SURFACE FLAG.
011549,001339:
011550,001340: 43,3207 05546 SETSURF TC UPFLAG
011551,001341: 43,3210 00177 ADRES SURFFLAG
011552,001342: 43,3211 12121 TCF GOPIN
011553,001343:
011554,001344: # VB 45. RESET SURFACE FLAG.
011555,001345:
011556,001346: 43,3212 05560 RESTSRF TC DOWNFLAG
011557,001347: 43,3213 00177 ADRES SURFFLAG
011558,001348: 43,3214 12121 TCF GOPIN
End of include-file EXTENDED_VERBS.agc. Parent file is MAIN.agc