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