Source Code

002288,000001: # Copyright: Public domain. 002289,000002: # Filename: FLAGWORD_ASSIGNMENTS.agc 002290,000003: # Purpose: The main source file for Luminary 1C, revision 131. 002291,000004: # It is part of the source code for the Lunar Module's (LM) 002292,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 002293,000006: # Assembler: yaYUL 002294,000007: # Reference: pp. 66-93 of 1729.pdf. 002295,000008: # Contact: Ron Burkey <info@sandroid.org>. 002296,000009: # Website: www.ibiblio.org/apollo/index.html 002297,000010: # Mod history: 04/23/03 RSB. Began. 002298,000011: # 05/14/05 RSB Corrected website reference above. 002299,000012: # 05/17/09 RSB Backported some Luminary 099 fixes pointed 002300,000013: # out by Onno Hommes. 002301,000014: 002302,000015: # The contents of the "Luminary131" files, in general, are 002303,000016: # transcribed from a scanned document obtained from MIT's website, 002304,000017: # http://hrst.mit.edu/hrs/apollo/public/archive/1729.pdf. Notations on this 002305,000018: # document read, in part: 002306,000019: 002307,000020: # NASA Apollo LUMINARY 131 (1C) Program Source Code Listing. 002308,000021: # MIT Instrumentation/Draper Laboratory -- 19 December 1969, 1742 pages. 002309,000022: # This listing contains the flight program for the Lunar Module 002310,000023: # as created by MIT's Draper Lab for the Apollo 13/14 moon missions. 002311,000024: 002312,000025: # Refer directly to the online document mentioned above for further information. 002313,000026: # Please report any errors (relative to 1729.pdf) to info@sandroid.org. 002314,000027: 002315,000028: # Page 66 002316,000029: # FLAGWORDS 0-11 ARE DOWNLINKED AND CAN BE SET AND CLEARED BY UP-FLAG AND DOWN-FLAG INSTRUCTIONS IN THE 002317,000030: # INTERPRETER. THESE WERE PREVIOUSLY LISTED UNDER "INTERPRETIVE SWITCH BIT ASSIGNMENTS" IN 002318,000031: # THE ERASABLE LOG SECTION. FLAGWORDS 12 & 13 WERE PREVIOUSLY RADMODES AND DAPBOOLS AND 002319,000032: # ARE STILL DOWNLINKED UNDER THOSE NAMES. 002320,000033: 002321,000034: # ALPHABETICAL LIST OF FLAGWORDS 002322,000035: 002323,000036: # 9 25 41 61 COLUMN NO. 002324,000037: # FLAGWORD DEC. NUMBER BIT AND FLAG BIT NAME 002325,000038: 002326,000039: # ABTTGFLG 143 BIT 7 FLAG 9 ABTTGBIT 002327,000040: # ACCOKFLG 207 BIT 3 FLAG 13 ACCSOKAY 002328,000041: # ACC4-2FL 199 BIT 11 FLAG 13 ACC4OR2X 002329,000042: # ACMODFLG 032 BIT 13 FLAG 2 ACMODBIT 002330,000043: # ALTSCALE 186 BIT 9 FLAG 12 ALTSCBIT 002331,000044: # ANTENFLG 183 BIT 12 FLAG 12 ANTENBIT 002332,000045: # AORBSFLG 085 BIT 5 FLAG 5 AORBSYST 002333,000046: # AORBTFLG 200 BIT 10 FLAG 13 AORBTRAN 002334,000047: # CDESFLAG 180 BIT 15 FLAG 12 CDESBIT 002335,000048: # CMOONFLG 123 BIT 12 FLAG 8 CMOONBIT 002336,000049: # COGAFLAG 131 BIT 4 FLAG 8 COGAFBIT 002337,000050: # CSMDKFLG 197 BIT 13 FLAG 13 CSMDOCKD 002338,000051: # CULTFLAG 053 BIT 7 FLAG 3 CULTBIT 002339,000052: # DAPBOOLS FLGWRD13 002340,000053: # DBSELFLG 206 BIT 4 FLAG 13 DBSELECT 002341,000054: # DBSL2FLG 205 BIT 5 FLAG 13 DBSLECT2 002342,000055: # DESIGFLG 185 BIT 10 FLAG 12 DESIGBIT 002343,000056: # DIDFLAG 016 BIT 14 FLAG ? DIDFLBIT 002344,000057: # DIMOFLAG 059 BIT 1 FLAG 3 DIMOBIT 002345,000058: # DMENFLG 081 BIT 9 FLAG 5 DMENFBIT 002346,000059: # Page 67 002347,000060: # DRIFTDFL 202 BIT 8 FLAG 13 DRIFTBIT 002348,000061: # DRIFTFLG 030 BIT 15 FLAG 2 DRFTBIT 002349,000062: # DSKYFLAG 075 BIT 15 FLAG 5 DSKYFBIT 002350,000063: # D6OR9FLG 058 BIT 2 FLAG 3 D6OR9BIT 002351,000064: # ENGONFLG 083 BIT 7 FLAG 5 ENGONBIT 002352,000065: # ERADFLAG 017 BIT 13 FLAG 1 ERADFBIT 002353,000066: # ETPIFLAG 038 BIT 7 FLAG 2 ETPIBIT 002354,000067: # FINALFLG 039 BIT 6 FLAG 2 FINALBIT 002355,000068: # FLAGWRD0 (000-014) (STATE +0) 002356,000069: # FLAGWRD1 (015-029) (STATE +1) 002357,000070: # FLAGWRD2 (030-044) (STATE +2) 002358,000071: # FLAGWRD3 (045-059) (STATE +3) 002359,000072: # FLAGWRD4 (060-074) (STATE +4) 002360,000073: # FLAGWRD5 (075-089) (STATE +5) 002361,000074: # FLAGWRD6 (090-104) (STATE +6) 002362,000075: # FLAGWRD7 (105-119) (STATE +7D) 002363,000076: # FLAGWRD8 (120-134) (STATE +8) 002364,000077: # FLAGWRD9 (135-149) (STATE +9D) 002365,000078: # FLAP 142 BIT 8 FLAG 9 FLAPBIT 002366,000079: # FLGWRD10 (150-164) (STATE +10D) 002367,000080: # FLGWRD11 (165-179) (STATE +11D) 002368,000081: # FLGWRD12 (180-194) (STATE +12D) 002369,000082: # FLGWRD13 (195-209) (STATE +13D) 002370,000083: # FLPC 138 BIT 12 FLAG 9 FLPCBIT 002371,000084: # FLPI 139 BIT 11 FLAG 9 FLPIBIT 002372,000085: # FLRCS 149 BIT 10 FLAG 9 FLRCSBIT 002373,000086: # FLUNDISP 125 BIT 10 FLAG 8 FLUNDBIT 002374,000087: # FLVR 136 BIT 14 FLAG 9 FLVRBIT 002375,000088: # FREEFLAG 012 BIT 3 FLAG 0 FREEFBIT 002376,000089: # FSPASFLG 005 BIT 10 FLAG 0 FSPASBIT 002377,000090: # GLOKFAIL 046 BIT 14 FLAG 3 GLOKFBIT 002378,000091: # GMBDRVSW 095 BIT 10 FLAG 6 GMBDRBIT 002379,000092: # GUESSW 028 BIT 2 FLAG 1 GUESSBIT 002380,000093: # HFLSHFLG 179 BIT 1 FLAG 11 HFLSHBIT 002381,000094: # IDLEFLAG 113 BIT 7 FLAG 7 IDLEFBIT 002382,000095: # IGNFLAG 107 BIT 13 FLAG 7 IGNFLBIT 002383,000096: # IMPULSW 036 BIT 9 FLAG 2 IMPULBIT 002384,000097: # IMUSE 007 BIT 8 FLAG 0 IMUSEBIT 002385,000098: # INFINFLG 128 BIT 7 FLAG 8 INFINBIT 002386,000099: # INITALGN 133 BIT 2 FLAG 8 INITABIT (garbled) 002387,000100: # INTFLAG 151 BIT 14 FLAG 10 INTFLBIT (garbled) 002388,000101: # INTYPFLG 056 BIT 4 FLAG 3 INTYPBIT (garbled) 002389,000102: # ITSWICH 105 BIT 15 FLAG 7 ITSWBIT 002390,000103: # Page 68 002391,000104: # LRBYPASS 165 BIT 15 FLAG 11 LRBYBIT 002392,000105: # LRINH 172 BIT 8 FLAG 11 LRINHBIT 002393,000106: # LRPOSFLG 189 BIT 6 FLAG 12 LRPOSBIT 002394,000107: # LRVELFLG 187 BIT 8 FLAG 12 LRVELBIT 002395,000108: # LUNAFLAG 048 BIT 12 FLAG 3 LUNABIT 002396,000109: # MANUFLAG 106 BIT 14 FLAG 7 MANUFBIT 002397,000110: # MGLVFLAG 088 BIT 2 FLAG 5 MGLVFBIT 002398,000111: # MIDAVFLG 148 BIT 2 FLAG 9 MIDAVBIT 002399,000112: # MIDFLAG 002 BIT 13 FLAG 0 MIDFLBIT 002400,000113: # MID1FLAG 147 BIT 3 FLAG 9 MID1BIT 002401,000114: # MKOVFLAG 072 BIT 3 FLAG 4 MKOVBIT 002402,000115: # MOONFLAG 003 BIT 12 FLAG 0 MOONBIT 002403,000116: # MRKIDFLG 060 BIT 15 FLAG 4 MRKIDBIT 002404,000117: # MRKNVFLG 066 BIT 9 FLAG 4 MRKNVBIT 002405,000118: # MRUPTFLG 070 BIT 5 FLAG 4 MRUPTBIT 002406,000119: # MUNFLAG 097 BIT 8 FLAG 6 MUNFLBIT 002407,000120: # MWAITFLG 064 BIT 11 FLAG 4 MWAITBIT 002408,000121: # NEEDLFLG 011 BIT 4 FLAG 0 NEEDLBIT 002409,000122: # NEED2FLG 000 BIT 15 FLAG 0 NEED2BIT 002410,000123: # NEWIFLG 122 BIT 13 FLAG 8 NEWIBIT 002411,000124: # NJETSFLG 015 BIT 15 FLAG ? NJETSBIT 002412,000125: # NODOFLAG 044 BIT 1 FLAG 2 NODOBIT 002413,000126: # NOLRREAD 170 BIT 10 FLAG 11 NOLRRBIT 002414,000127: # NORMSW 110 BIT 10 FLAG 7 NORMSBIT 002415,000128: # NORRMON 086 BIT 4 FLAG 5 NORRMBIT 002416,000129: # NOR29FLG 049 BIT 11 FLAG 3 NR29FBIT 002417,000130: # NOTHROTL 078 BIT 12 FLAG 5 NOTHRBIT 002418,000131: # NOUPFLAG 024 BIT 6 FLAG 1 NOUPFBIT 002419,000132: # NO511FLG 177 BIT 3 FLAG 11 NO511BIT 002420,000133: # NRMNVFLG 067 BIT 8 FLAG 4 NRMNVBIT 002421,000134: # NRMIDFLG 062 BIT 13 FLAG 4 NRMIDBIT 002422,000135: # NRUPTFLG 071 BIT 4 FLAG 4 NRUPTBIT 002423,000136: # NTARGFLG 102 BIT 3 FLAG 6 NTARGBIT 002424,000137: # NWAITFLG 065 BIT 10 FLAG 4 NWAITBIT 002425,000138: # OLDESFLG 014 BIT 1 FLAG 0 OLDESBIT 002426,000139: # ORBWFLAG 054 BIT 6 FLAG 3 ORBWFBIT 002427,000140: # ORDERSW 129 BIT 6 FLAG 8 ORDERBIT 002428,000141: # OURRCFLG 198 BIT 12 FLAG 13 OURRCBIT 002429,000142: # PDSPFLAG 063 BIT 12 FLAG 4 PDSPFBIT 002430,000143: # PFRATFLG 041 BIT 4 FLAG 2 PFRATBIT 002431,000144: # PINBRFLG 069 BIT 6 FLAG 4 PINBRBIT 002432,000145: # P00HFLAG 045 BIT 15 FLAG 3 P00HBIT 002433,000146: # PRECIFLG 052 BIT 8 FLAG 3 PRECIBIT 002434,000147: # PRIODFLG 061 BIT 14 FLAG 1 PRIODBIT 002435,000148: # PRONVFLG 068 BIT 7 FLAG 4 PRONVBIT 002436,000149: # PSTHIGAT 169 BIT 11 FLAG 11 PSTHIBIT 002437,000150: # PULSEFLG 195 BIT 15 FLAG 13 PULSES 002438,000151: # P21FLAG 004 BIT 11 FLAG 0 P21FLBIT 002439,000152: # P25FLAG 006 BIT 9 FLAG 0 P25FLBIT 002440,000153: # P7071FLG 137 BIT 13 FLAG 9 P7071BIT 002441,000154: # Page 69 002442,000155: # QUITFLAG 145 BIT 5 FLAG 9 QUITBIT 002443,000156: # RADMODES FLGWRD12 002444,000157: # RASFLAG FLGWRD10 002445,000158: # RCDUFAIL 188 BIT 7 FLAG 12 RCDUFBIT 002446,000159: # RCDU0FLG 182 BIT 13 FLAG 12 RCDU0BIT 002447,000160: # READRFLG 051 BIT 9 FLAG 3 READRBIT EQUIVALENT FLAG NAME FOR R04FLAG 002448,000161: # READVEL 175 BIT 5 FLAG 11 READVBIT 002449,000162: # REDFLAG 099 BIT 6 FLAG 6 REDFLBIT 002450,000163: # REFSMFLG 047 BIT 13 FLAG 3 REFSMBIT 002451,000164: # REINTFLG 158 BIT 7 FLAG 10 REINTBIT 002452,000165: # REMODFLG 181 BIT 14 FLAG 12 REMODBIT 002453,000166: # RENDWFLG 089 BIT 1 FLAG 5 RENDWBIT 002454,000167: # REPOSMON 184 BIT 11 FLAG 12 REPOSBIT 002455,000168: # RHCSCFLG 203 BIT 7 FLAG 13 RHCSCALE 002456,000169: # RNDVZFLG 008 BIT 7 FLAG 0 RNDVZBIT 002457,000170: # RNGEDATA 176 BIT 4 FLAG 11 RNGEDBIT 002458,000171: # RNGSCFLG 080 BIT 10 FLAG 5 RNGSCBIT 002459,000172: # RODFLAG 018 BIT 12 FLAG 1 RODFLBIT 002460,000173: # ROTFLAG 144 BIT 6 FLAG 9 ROTFLBIT 002461,000174: # RPQFLAG 120 BIT 15 FLAG 8 RPQFLBIT 002462,000175: # RRDATAFL 191 BIT 4 FLAG 12 RRDATABT 002463,000176: # RRNBSW 009 BIT 6 FLAG 0 RRNBBIT 002464,000177: # RRRSFLAG 192 BIT 3 FLAG 12 RRRSBIT 002465,000178: # RVSW 111 BIT 9 FLAG 7 RVSWBIT 002466,000179: # R04FLAG 051 BIT 9 FLAG 3 R04FLBIT EQUIVALENT FLAG NAME: READRFLG 002467,000180: # R10FLAG 013 BIT 2 FLAG 0 R10FLBIT 002468,000181: # R61FLAG 020 BIT 10 FLAG 1 R61FLBIT 002469,000182: # R77FLAG 079 BIT 11 FLAG 5 R77FLBIT 002470,000183: # SLOPESW 027 BIT 3 FLAG 1 SLOPEBIT 002471,000184: # SNUFFER 077 BIT 13 FLAG 5 SNUFFBIT 002472,000185: # SOLNSW 087 BIT 3 FLAG 5 SOLNSBIT 002473,000186: # SRCHOPTN 031 BIT 14 FLAG 2 SRCHOBIT 002474,000187: # STATEFLG 055 BIT 5 FLAG 3 STATEBIT 002475,000188: # STEERSW 034 BIT 11 FLAG 2 STEERBIT 002476,000189: # SURFFLAG 127 BIT 8 FLAG 8 SURFFBIT 002477,000190: # SWANDISP 109 BIT 11 FLAG 7 SWANDBIT 002478,000191: # S32.1F1 090 BIT 15 FLAG 6 S32BIT1 002479,000192: # S32.1F2 091? BIT 14 FLAG 6 S32BIT2 002480,000193: # S32.1F3A 092 BIT 13 FLAG 6 S32BIT3A 002481,000194: # S32.1F3B 093 BIT 12 FLAG 6 S32BIT3B 002482,000195: # TFFSW 119 BIT 1 FLAG 7 TFFSWBIT 002483,000196: # TRACKFLG 025 BIT 5 FLAG 1 TRACKBIT 002484,000197: # TURNONFL 194 BIT 1 FLAG 12 TURNONBT 002485,000198: # ULLAGFLG 204 BIT 6 FLAG 13 ULLAGER 002486,000199: # UPDATFLG 023 BIT 7 FLAG 1 UPDATBIT 002487,000200: # UPLOCKFL 116 BIT 4 FLAG 7 UPLOCBIT 002488,000201: # USEQRFLG 196 BIT 14 FLAG 13 USEQRJTS 002489,000202: # VEHUPFLG 022 BIT 8 FLAG 1 VEHUPBIT 002490,000203: # VELDATA 173 BIT 7 FLAG 11 VELDABIT 002491,000204: # VERIFLAG 117 BIT 3 FLAG 7 VERIFBIT 002492,000205: # Page 70 002493,000206: # VFLAG 050 BIT 10 FLAG 3 VFLAGBIT 002494,000207: # VFLSHFLG 178 BIT 2 FLAG 11 VFLSHBIT 002495,000208: # VINTFLAG 057 BIT 3 FLAG 3 VINTFBIT 002496,000209: # VXINH 168 BIT 12 FLAG 11 VXINHBIT 002497,000210: # V37FLAG 114 BIT 6 FLAG 7 V37FLBIT 002498,000211: # V67FLAG 112 BIT 8 FLAG 7 V67FLBIT 002499,000212: # V82EMFLG 118 BIT 2 FLAG 7 V82EMBIT 002500,000213: # XDELVFLG 037 BIT 8 FLAG 2 XDELVBIT 002501,000214: # XDSPFLAG 074 BIT 1 FLAG 4 XDSPBIT 002502,000215: # XORFLG 171 BIT 9 FLAG 11 XORFLBIT 002503,000216: # XOVINFLG 201 BIT 9 FLAG 13 XOVINHIB 002504,000217: # ZOOMFLAG 082 BIT 8 FLAG 5 ZOOMBIT 002505,000218: # 3AXISFLG 084 BIT 6 FLAG 5 3AXISBIT 002506,000219: # 360SW 134 BIT 1 FLAG 8 360SWBIT 002507,000220: 002508,000221: # ASSIGNMENT AND DESCRIPTION OF FLAGWORDS 002509,000222: 002510,000223: 26,2022 0074 FLAGWRD0 = STATE +0 # (000-014) 002511,000224: 002512,000225: # (SET) (RESET) 002513,000226: 002514,000227: # BIT 15 FLAG 0 (S) 002515,000228: 26,2022 NEED2FLG = 000D # DISPLAY DAP RATES CHECK BIT 4 OF THIS 002516,000229: 26,2022 4735 NEED2BIT = BIT15 # ON FDAI NEEDLES. WORD FOR DISPLAY 002517,000230: # MODES (1 OR 2). 002518,000231: 002519,000232: # BIT 1 FLAG 0 (S) 002520,000233: 26,2022 JSWITCH = 001D # INTEGRATION OF W INTEGRATION OF STATE 002521,000234: 26,2022 4736 JSWCHBIT = BIT14 # MATRIX VECTOR 002522,000235: 002523,000236: # BIT 13 FLAG 0 (S) 002524,000237: 26,2022 MIDFLAG = 002D # INTEGRATION WITH INTEGRATION WITHOUT 002525,000238: # SECONDARY BODY AND SOLAR PERTURBATIONS 002526,000239: 26,2022 4737 MIDFLBIT = BIT13 # SOLAR PERTURBATIONS 002527,000240: 002528,000241: # BIT 12 FLAG 0 (L) 002529,000242: 26,2022 MOONFLAG = 003D # MOON IS SPHERE OF EARTH IS SPHERE OF 002530,000243: 26,2022 4740 MOONBIT = BIT12 # INFLUENCE INFLUENCE 002531,000244: 002532,000245: # BIT 11 FLAG 0 002533,000246: 26,2022 P21FLAG = 004D # USE BASE VECTORS 1ST PASS -- CALC- 002534,000247: 26,2022 4741 P21FLBIT = BIT11 # ALREADY CALCULATED ULATE BASE VECTORS 002535,000248: 002536,000249: # Page 71 002537,000250: # BIT 10 FLAG 0 002538,000251: 26,2022 FSPASFLG = 005D # FIRST PASS THROUGH NOT FIRST PASS THRU 002539,000252: 26,2022 4742 FSPASBIT = BIT10 # REPOSITION ROUTINE REPOSITION ROUTINE 002540,000253: 002541,000254: # BIT 9 FLAG 0 (S) 002542,000255: 26,2022 P25FLAG = 006D # P25 OPERATING P25 NOT OPERATING 002543,000256: 26,2022 4743 P25FLBIT = BIT9 002544,000257: 002545,000258: # BIT 8 FLAG 0 (S) 002546,000259: 26,2022 IMUSE = 007D # IMU IN USE IMU NOT IN USE 002547,000260: 26,2022 4744 IMUSEBIT = BIT8 002548,000261: 002549,000262: # BIT 7 FLAG 0 (S) 002550,000263: 26,2022 RNDVZFLG = 008D # P20 RUNNING (RADAR P20 NOT RUNNING 002551,000264: 26,2022 4745 RNDVZBIT = BIT7 # IN USE) 002552,000265: 002553,000266: # BIT 6 FLAG 0 (S) 002554,000267: 26,2022 RRNBSW = 009D # RADAR TARGET IN RADAR TARGET IN 002555,000268: 26,2022 4746 RRNBBIT = BIT6 # NB COORDINATES SM COORDINATES 002556,000269: 002557,000270: # BIT 5 FLAG 0 (S) 002558,000271: 26,2022 LOKONSW = 010D # RADAR LOCK-ON RADAR LOCK-ON NOT 002559,000272: 26,2022 4747 LOKONBIT = BIT5 # DESIRED DESIRED 002560,000273: 002561,000274: # BIT 4 FLAG 0 (S) 002562,000275: 26,2022 NEEDLFLG = 011D # TOTAL ATTITUDE A/P FOLLOWING 002563,000276: 26,2022 4750 NEEDLBIT = BIT4 # ERROR DISPLAYED ERROR DISPLAYED 002564,000277: 002565,000278: # BIT 3 FLAG 0 002566,000279: 26,2022 FREEFLAG = 012D # (USED BY P51-53 TEMP IN MANY DIFFERENT 002567,000280: # ROUTINES & BY LUNAR * SOLAR EPHEMERIDES) 002568,000281: 26,2022 4751 FREEFBIT = BIT3 002569,000282: 002570,000283: # BIT 2 FLAG 0 002571,000284: 26,2022 R10FLAG = 013D # R10 OUTPUTS DATA TO BESIDES OUTPUT WHEN 002572,000285: 26,2022 4752 R10FLBIT = BIT2 # ALTITUDE & ALTITUDE SET, R10 ALSO OUTPUT 002573,000286: # RATE METERS ONLY TO FORWARD & LATERAL 002574,000287: # VELOCITY CROSSPOINTER 002575,000288: 002576,000289: # BIT 1 FLAG 0 (L) 002577,000290: 26,2022 OLDESFLG = 014D # R29 GYRO CMD LOOP R29 GYRO CMD LOOP 002578,000291: # Page 72 002579,000292: 26,2022 4753 OLDESBIT = BIT1 # REQUESTED NOT REQUESTED 002580,000293: 002581,000294: 26,2022 0075 FLAGWRD1 = STATE +1 # (015-029) 002582,000295: 002583,000296: # (SET) (RESET) 002584,000297: 002585,000298: # BIT 15 FLAG 1 (S) 002586,000299: 26,2022 NJETSFLG = 015D # TWO JET RCS BURN FOUR JET RCS BURN 002587,000300: 26,2022 4735 NJETSBIT = BIT15 002588,000301: 002589,000302: # BIT 14 FLAG 1 (L) 002590,000303: 26,2022 DIDFLAG = 016D # INERTIAL DATA IS PERFORM DATA DISPLAY 002591,000304: 26,2022 4736 DIDFLBIT = BIT14 # AVAILABLE INITIALIZATION FUNCS 002592,000305: 002593,000306: # BIT 13 FLAG 1 (S) 002594,000307: 26,2022 ERADFLAG = 017D # COMPUTE REARTH USE CONSTANT REARTH 002595,000308: 26,2022 4737 ERADFBIT = BIT13 # FISCHER ELLIPSOID PAD RADIUS 002596,000309: 002597,000310: # BIT 12 FLAG 1 002598,000311: 26,2022 RODFLAG = 018D # IF IN P66, NORMAL IF IN P66, RE-INIT- 002599,000312: 26,2022 4740 RODFLBIT = BIT12 # OPERATION CONTINUES. IALIZATION IS PER- 002600,000313: # RESTART CLEARS FLAG FORMED AND FLAG IS 002601,000314: 002602,000315: # BIT 11 FLAG 1 002603,000316: 26,2022 = 019D 002604,000317: 26,2022 = BIT11 002605,000318: 002606,000319: # BIT 10 FLAG 1 (L) 002607,000320: 26,2022 R61FLAG = 020D # RUN R61 LEM RUN R65 LEM 002608,000321: 26,2022 4742 R61FLBIT = BIT10 002609,000322: 002610,000323: # BIT 9 FLAG 1 002611,000324: 26,2022 = 021D 002612,000325: 26,2022 = BIT9 002613,000326: 002614,000327: # BIT 8 FLAG 1 (S) 002615,000328: 26,2022 VEHUPFLG = 022D # CSM STATE-VECTOR LEM STATE VECTOR 002616,000329: 26,2022 4744 VEHUPBIT = BIT8 # BEING UPDATED BEING UPDATED 002617,000330: 002618,000331: # BIT 7 FLAG 1 (S) 002619,000332: 26,2022 UPDATFLG = 023D # UPDATING BY MARKS UPDATING BY MARKS 002620,000333: 26,2022 4745 UPDATBIT = BIT7 # ALLOWED NOT ALLOWED 002621,000334: 002622,000335: # Page 73 002623,000336: # BIT 6 FLAG 1 (S) 002624,000337: 26,2022 NOUPFLAG = 024D # NEITHER CSM EITHER STATE 002625,000338: # NOR LM STATE VECTOR VECTOR MAY BE 002626,000339: 26,2022 4746 NOUPFBIT = BIT6 # MAY BE UPDATED UPDATED 002627,000340: 002628,000341: # BIT 5 FLAG 1 (S) 002629,000342: 26,2022 TRACKFLG = 025D # TRACKING ALLOWED TRACKING NOT ALLOWED 002630,000343: 26,2022 4747 TRACKBIT = BIT5 002631,000344: 002632,000345: # BIT 4 FLAG 1 002633,000346: 26,2022 = 026D 002634,000347: 26,2022 = BIT4 002635,000348: 002636,000349: # BIT 3 FLAG 1 (S) 002637,000350: 26,2022 SLOPESW = 027D # ITERATE WITH BIAS ITERATE WITH REGULAR 002638,000351: # METHOD IN ITERATOR FALSI METHOD IN 002639,000352: 26,2022 4751 SLOPEBIT = BIT3 # ITERATOR 002640,000353: 002641,000354: # BIT 2 FLAG 1 (S) 002642,000355: 26,2022 GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR 002643,000356: 26,2022 4752 GUESSBIT = BIT2 # FOR ITERATION ITERATION EXISTS 002644,000357: 002645,000358: # BIT 1 FLAG 1 002646,000359: 26,2022 = 029D 002647,000360: 26,2022 = BIT1 002648,000361: 002649,000362: 26,2022 0076 FLAGWRD2 = STATE +2 # (030-044) 002650,000363: 002651,000364: # (SET) (RESET) 002652,000365: 002653,000366: # BIT 15 FLAG 2 (S) 002654,000367: 26,2022 DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO 002655,000368: 26,2022 4735 DRFTBIT = BIT15 # COMPENSATION COMPENSATION 002656,000369: 002657,000370: # BIT 14 FLAG 2 (S) 002658,000371: 26,2022 SRCHOPTN = 031D # RADAR IN AUTOMATIC RADAR NOT IN AUTO- 002659,000372: 26,2022 4736 SRCHOBIT = BIT14 # SEARCH OPTION (R24) MATIC SEARCH OPTION 002660,000373: 002661,000374: # BIT 13 FLAG 2 (S) 002662,000375: 26,2022 ACMODFLG = 032D # MANUAL ACQUISITION AUTO ACQUISITION 002663,000376: 26,2022 4737 ACMODBIT = BIT13 # BY RENDEZVOUS RADAR BY RENDEZVOUS RADAR 002664,000377: 002665,000378: # Page 74 002666,000379: # BIT 12 FLAG 2 (S) 002667,000380: 26,2022 LOSCMFLG = 033D # LINE OF SIGHT BEING LINE OF SIGHT NOT 002668,000381: # COMPUTED (R21) BEING COMPUTED 002669,000382: 26,2022 4740 LOSCMBIT = BIT12 002670,000383: 002671,000384: # BIT 11 FLAG 2 (S) 002672,000385: 26,2022 STEERSW = 034D # SUFFICIENT THRUST INSUFFICIENT THRUST 002673,000386: 26,2022 4741 STEERBIT = BIT11 # IS PRESENT IS PRESENT 002674,000387: 002675,000388: # BIT 10 FLAG 2 (S) 002676,000389: 26,2022 = 035D 002677,000390: 26,2022 = BIT10 002678,000391: 002679,000392: # BIT 9 FLAG 2 (S) 002680,000393: 26,2022 IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO 002681,000394: # BURN (CUTOFF TIME CUTOFF TIME YET 002682,000395: 26,2022 4743 IMPULBIT = BIT9 # SPECIFIED) AVAILABLE) 002683,000396: 002684,000397: # BIT 8 FLAG 2 (S) 002685,000398: 26,2022 XDELVFLG = 037D # EXTERNAL DELTAV VG LAMBERT (AIMPOINT) 002686,000399: 26,2022 4744 XDELVBIT = BIT8 # COMPUTATION VG COMPUTATION 002687,000400: 002688,000401: # BIT 7 FLAG 2 (S) 002689,000402: 26,2022 ETPIFLAG = 038D # ELEVATION ANGLE TPI TIME SUPPLIED 002690,000403: # SUPPLIED FOR FOR P34,74 TO COMPUTE 002691,000404: 26,2022 4745 ETPIBIT = BIT7 # P34,74 ELEVATION 002692,000405: 002693,000406: # BIT 6 FLAG 2 (S) 002694,000407: 26,2022 FINALFLG = 039D # LAST PASS THROUGH INTERIM PASS THROUGH 002695,000408: # RENDEZVOUS PROGRAM RENDEZVOUS PROGRAM 002696,000409: 26,2022 4746 FINALBIT = BIT6 # COMPUTATIONS COMPUTATIONS 002697,000410: 002698,000411: # BIT 5 FLAG 2 (S) 002699,000412: 26,2022 AVFLAG = 040D # LEM IS ACTIVE CSM IS ACTIVE 002700,000413: 26,2022 4747 AVFLBIT = BIT5 # VEHICLE VEHICLE 002701,000414: 002702,000415: # BIT 4 FLAG 2 (S) 002703,000416: 26,2022 PFRATFLG = 041D # PREFERRED ATTITUDE PREFERRED ATTITUDE 002704,000417: 26,2022 4750 PFRATBIT = BIT4 # COMPUTED NOT COMPUTED 002705,000418: 002706,000419: # Page 75 002707,000420: # BIT 3 FLAG 2 (S) 002708,000421: 26,2022 CALCMAN3 = 042D # NO FINAL ROLL FINAL ROLL IS 002709,000422: 26,2022 4751 CALC3BIT = BIT3 # NECESSARY 002710,000423: 002711,000424: # BIT 2 FLAG 2 (S) 002712,000425: 26,2022 CALCMAN2 = 043D # PERFORM MANEUVER BYPASS STARTING 002713,000426: 26,2022 4752 CALC2BIT = BIT2 # STARTING PROCEDURE PROCEDURE 002714,000427: 002715,000428: # BIT 1 FLAG 2 (S) 002716,000429: 26,2022 NODOFLAG = 044D # V37 NOT PERMITTED V37 PERMITTED 002717,000430: 26,2022 4753 NODOBIT = BIT1 002718,000431: 002719,000432: 26,2022 0077 FLAGWRD3 = STATE +3 # (045-059) 002720,000433: 002721,000434: # (SET) (RESET) 002722,000435: 002723,000436: # BIT 15 FLAG 3 002724,000437: 26,2022 P00HFLAG = 045D # INHIBIT BACKWARDS ALLOW BACKWARDS 002725,000438: 26,2022 4735 P00HBIT = BIT15 # INTEGRATION INTEGRATION 002726,000439: 002727,000440: # BIT 14 FLAG 3 (S) 002728,000441: 26,2022 GLOKFAIL = 046D # GIMBAL LOCK HAS NOT IN GIMBAL LOCK 002729,000442: 26,2022 4736 GLOKFBIT = BIT14 # OCCURRED 002730,000443: 002731,000444: # BIT 13 FLAG 3 *** PROTECTED FROM FRESH START *** 002732,000445: 26,2022 REFSMFLG = 047D # REFSMMAT GOOD REFSMMAT NO GOOD 002733,000446: 26,2022 4737 REFSMBIT = BIT13 002734,000447: 002735,000448: # BIT 12 FLAG 3 (S) 002736,000449: 26,2022 LUNAFLAG = 048D # LUNAR LAT-LONG EARTH LAT-LONG 002737,000450: 26,2022 4740 LUNABIT = BIT12 002738,000451: 002739,000452: # BIT 11 FLAG 3 (L) 002740,000453: 26,2022 NOR29FLG = 049D # R29 NOT ALLOWED R29 ALLOWED (RR DES- 002741,000454: 26,2022 4741 NR29FBIT = BIT11 # IGNATED POWERED FLT) 002742,000455: 002743,000456: # BIT 10 FLAG 3 (S) 002744,000457: 26,2022 VFLAG = 050D # LESS THAN TWO STARS TWO STARS IN FIELD 002745,000458: 26,2022 4742 VFLAGBIT = BIT10 # IN FIELD OF VIEW OF VIEW 002746,000459: 002747,000460: # BIT 9 FLAG 3 (S) 002748,000461: # Page 76 002749,000462: 26,2022 R04FLAG = 051D # ALARM 521 ALARM 521 ALLOWED 002750,000463: # SUPPRESSED 002751,000464: 26,2022 4743 R04FLBIT = BIT9 002752,000465: 26,2022 0000063 READRFLG = R04FLAG # READING RR DATA NOT READING RR DATA 002753,000466: 26,2022 4743 READRBIT = BIT9 # PURSUANT TO R29 PURSUANT TO R29 002754,000467: 002755,000468: # BIT 8 FLAG 3 (S) 002756,000469: 26,2022 PRECIFLG = 052D # NORMAL INTEGRATION ENGAGES 4-TIME STEP 002757,000470: # IN P00 (P00) LOGIC IN INTE- 002758,000471: 26,2022 4744 PRECIBIT = BIT8 # GRATION 002759,000472: 002760,000473: # BIT 7 FLAG 3 (S) 002761,000474: 26,2022 CULTFLAG = 053D # STAR OCCULTED STAR NOT OCCULTED 002762,000475: 26,2022 4745 CULTBIT = BIT7 002763,000476: 002764,000477: # BIT 6 FLAG 3 (S) 002765,000478: 26,2022 ORBWFLAG = 054D # W MATRIX VALID FOR W MATRIX INVALID FOR 002766,000479: 26,2022 4746 ORBWFBIT = BIT6 # ORBITAL NAVIGATION ORBITAL NAVIGATION 002767,000480: 002768,000481: # BIT 5 FLAG 3 (S) 002769,000482: 26,2022 STATEFLG = 055D # PERMANENT STATE PERMANENT STATE 002770,000483: 26,2022 4747 STATEBIT = BIT5 # VECTOR UPDATED VECTOR NOT UPDATED 002771,000484: 002772,000485: # BIT 4 FLAG 3 (S) 002773,000486: 26,2022 INTYPFLG = 056D # CONIC INTEGRATION ENCKE INTEGRATION 002774,000487: 26,2022 4750 INTYPBIT = BIT4 002775,000488: 002776,000489: # BIT 3 FLAG 3 (S) 002777,000490: 26,2022 VINTFLAG = 057D # CSM STATE VECTOR LEM STATE VECTOR 002778,000491: 26,2022 4751 VINTFBIT = BIT3 # BEING INTEGRATED BEING INTEGRATED 002779,000492: 002780,000493: # BIT 2 FLAG 3 (S) 002781,000494: 26,2022 D6OR9FLG = 058D # DIMENSION OF W IS 9 DIMENSION OF W IS 6 002782,000495: 26,2022 4752 D6OR9BIT = BIT2 # FOR INTEGRATION FOR INTEGRATION 002783,000496: 002784,000497: # BIT 1 FLAG 3 (S) 002785,000498: 26,2022 DIM0FLAG = 059D # W MATRIX IS TO BE W MATRIX IS NOT TO 002786,000499: 26,2022 4753 DIM0BIT = BIT1 # USED USED 002787,000500: 002788,000501: # Page 77 002789,000502: 26,2022 0100 FLAGWRD4 = STATE +4 # (060-074) 002790,000503: 002791,000504: # (SET) (RESET) 002792,000505: 002793,000506: # BIT 15 FLAG 4 (S) 002794,000507: 26,2022 MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN 002795,000508: 26,2022 4735 MRKIDBIT = BIT15 # ENDIDLE ENDIDLE 002796,000509: 002797,000510: # BIT 14 FLAG 4 (S) 002798,000511: 26,2022 PRIODFLG = 061D # PRIORITY DISPLAY IN NO PRIORITY DISPLAY 002799,000512: 26,2022 4736 PRIODBIT = BIT14 # ENDIDLE IN ENDIDLE 002800,000513: 002801,000514: # BIT 13 FLAG 4 (S) 002802,000515: 26,2022 NRMIDFLG = 062D # NORMAL DISPLAY IN NO NORMAL DISPLAY 002803,000516: 26,2022 4737 NRMIDBIT = BIT13 # ENDIDLE IN ENDIDLE 002804,000517: 002805,000518: # BIT 12 FLAG 4 (S) 002806,000519: 26,2022 PDSPFLAG = 063D # P20 SETS SO AS TO LEAVE AS NORMAL DISP 002807,000520: # TURN A NORMAL DIS- 002808,000521: 26,2022 4740 PDSPFBIT = BIT12 # PLAY INTO A PRIORITY 002809,000522: # DISPLAY IN R60 002810,000523: 002811,000524: # BIT 11 FLAG 4 (S) 002812,000525: 26,2022 MWAITFLG = 064D # HIGHER PRIORITY NO HIGHER PRIORITY 002813,000526: # DISPLAY OPERATING DISPLAY OPERATING 002814,000527: 26,2022 4741 MWAITBIT = BIT11 # WHEN MARK WHEN MARK DISPLAY 002815,000528: # DISPLAY INITIATED INITIATED 002816,000529: 002817,000530: # BIT 10 FLAG 4 (S) 002818,000531: 26,2022 NWAITFLG = 065D # HIGHER PRIORITY NO HIGHER PRIORITY 002819,000532: # DISPLAY OPERATING DISPLAY OPERATING 002820,000533: 26,2022 4742 NWAITBIT = BIT10 # WHEN NORMAL WHEN NORMAL DISPLAY 002821,000534: # DISPLAY INITIATED INITIATED 002822,000535: 002823,000536: # BIT 9 FLAG 4 (S) 002824,000537: 26,2022 MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING 002825,000538: # KEYBOARD WHEN MARK KEYBOARD WHEN MARK 002826,000539: 26,2022 4743 MRKNVBIT = BIT9 # DISPLAY INITIATED DISPLAY INITIATED 002827,000540: 002828,000541: # BIT 8 FLAG 4 (S) 002829,000542: 26,2022 NRMNVFLG = 067D # ASTRONAUT USING ASTRONAUT NOT USING 002830,000543: # KEYBOARD WHEN KEYBOARD WHEN 002831,000544: 26,2022 4744 NRMNVBIT = BIT8 # NORMAL DISPLAY NORMAL DISPLAY 002832,000545: # INITIATED INITIATED 002833,000546: 002834,000547: # Page 78 002835,000548: # BIT 7 FLAG 4 (S) 002836,000549: 26,2022 PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING 002837,000550: # KEYBOARD WHEN KEYBOARD WHEN 002838,000551: 26,2022 4745 PRONVBIT = BIT7 # PRIORITY DISPLAY PRIORITY DISPLAY 002839,000552: # INITIATED INITIATED 002840,000553: 002841,000554: # BIT 6 FLAG 4 (S) 002842,000555: 26,2022 PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT 002843,000556: # INTERFERED WITH INTERFERED WITH 002844,000557: 26,2022 4746 PINBRBIT = BIT6 # EXISTING DISPLAY EXISTING DISPLAY 002845,000558: 002846,000559: # BIT 5 FLAG 4 (S) 002847,000560: 26,2022 MRUPTFLG = 070D # MARK DISPLAY MARK DISPLAY NOT 002848,000561: # INTERRUPTED BY INTERRUPTED BY 002849,000562: 26,2022 4747 MRUPTBIT = BIT5 # PRIORITY DISPLAY PRIORITY DISPLAY 002850,000563: 002851,000564: # BIT 4 FLAG 4 (S) 002852,000565: 26,2022 NRUPTFLG = 071D # NORMAL DISPLAY NORMAL DISPLAY NOT 002853,000566: # INTERRUPTED BY INTERRUPTED BY 002854,000567: 26,2022 4750 NRUPTBIT = BIT4 # PRIORITY OR MARK PRIORITY OR MARK 002855,000568: # DISPLAY DISPLAY 002856,000569: 002857,000570: # BIT 3 FLAG 4 (S) 002858,000571: 26,2022 MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER 002859,000572: 26,2022 4751 MKOVBIT = BIT3 # NORMAL NORMAL 002860,000573: 002861,000574: # BIT 2 FLAG 4 002862,000575: 26,2022 = 073D 002863,000576: 26,2022 = BIT2 002864,000577: 002865,000578: # BIT 1 FLAG 4 (S) 002866,000579: 26,2022 XDSPFLAG = 074D # MARK DISPLAY NOT NO SPECIAL MARK 002867,000580: 26,2022 4753 XDSPBIT = BIT1 # TO BE INTERRUPTED INFORMATION 002868,000581: 002869,000582: 26,2022 0101 FLAGWRD5 = STATE +5 # (075-089) 002870,000583: 002871,000584: # (SET) (RESET) 002872,000585: 002873,000586: # BIT 15 FLAG 5 (S) 002874,000587: 26,2022 DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY 002875,000588: 26,2022 4735 DSKYFBIT = BIT15 # DSKY 002876,000589: 002877,000590: # BIT 14 FLAG 5 002878,000591: 26,2022 = 076D 002879,000592: 26,2022 = BIT14 002880,000593: 002881,000594: # Page 79 002882,000595: # BIT 13 FLAG 5 (S,L) 002883,000596: 26,2022 SNUFFER = 077D # U,V JETS DISABLED U,V JETS ENABLED 002884,000597: # DURING DPS DURING DPS 002885,000598: 26,2022 4737 SNUFFBIT = BIT13 # BURNS (V65) BURNS (V75) 002886,000599: 002887,000600: # BIT 12 FLAG 5 (S) 002888,000601: 26,2022 NOTHROTL = 078D # INHIBIT FULL PERMIT FULL THROTTLE 002889,000602: 26,2022 4740 NOTHRBIT = BIT12 # THROTTLE 002890,000603: 002891,000604: # BIT 11 FLAG 5 (S,L) 002892,000605: 26,2022 R77FLAG = 079D # R77 IS ON, R77 IS NOT ON. 002893,000606: # SUPPRESS ALL RADAR 002894,000607: # ALARMS AND TRACKER 002895,000608: 26,2022 4741 R77FLBIT = BIT11 # FAILS 002896,000609: 002897,000610: # BIT 10 FLAG 5 (S) 002898,000611: 26,2022 RNGSCFLG = 080D # SCALE CHANGE HAS NO SCALE CHANGE HAS 002899,000612: # OCCURRED DURING OCCURRED DURING 002900,000613: 26,2022 4742 RNGSCBIT = BIT10 # RR READING RR READING 002901,000614: 002902,000615: # BIT 9 FLAG 5 (S) 002903,000616: 26,2022 DMENFLG = 081D # DIMENSION OF W IS 9 DIMENSION OF W IS 6 002904,000617: 26,2022 4743 DMENFBIT = BIT9 # FOR INCORPORATION FOR INCORPORATION 002905,000618: 002906,000619: # BIT 8 FLAG 5 (S) 002907,000620: 26,2022 ZOOMFLAG = 082D # THROTTLE-UP HAS THROTTLE-UP HAS NOT 002908,000621: 26,2022 4744 ZOOMBIT = BIT8 # OCCURRED IN P63. YET OCCURRED IN P63 002909,000622: 002910,000623: # BIT 7 FLAG 5 (S) 002911,000624: 26,2022 ENGONFLG = 083D # ENGINE TURNED ON ENGINE TURNED OFF 002912,000625: 26,2022 4745 ENGONBIT = BIT7 # 002913,000626: 002914,000627: # BIT 6 FLAG 5 (S) 002915,000628: 26,2022 3AXISFLG = 084D # MANEUVER SPECIFIED MANEUVER SPECIFIED 002916,000629: # BY THREE AXES BY ONE AXIS; R60 002917,000630: 26,2022 4746 3AXISBIT = BIT6 # CALLS VECPOINT. 002918,000631: 002919,000632: # BIT 5 FLAG 5 002920,000633: 26,2022 AORBSFLG = 085D # PREFER PAXIS JET PREFER PAXIS JET 002921,000634: 26,2022 4747 AORBSYST = BIT5 # PAIRS 7,15 AND 8.16 PAIRS 4,12 AND 3,11 002922,000635: 002923,000636: # Page 80 002924,000637: # BIT 4 FLAG 5 (S) 002925,000638: 26,2022 NORRMON = 086D # BYPASS RR GIMBAL PERFORM 002926,000639: 26,2022 4750 NORRMBIT = BIT4 # MONITOR RR GIMBAL MONITOR 002927,000640: 002928,000641: # BIT 3 FLAG 5 (S) 002929,000642: 26,2022 SOLNSW = 087D # LAMBERT DOES NOT LAMBERT CONVERGES OR 002930,000643: # CONVERGE, OR TIME-RAD TIME-RADIUS NON- 002931,000644: 26,2022 4751 SOLNSBIT = BIT3 # NEARLY CIRCULAR CIRCULAR 002932,000645: 002933,000646: # BIT 2 FLAG 5 (S) 002934,000647: 26,2022 MGLVFLAG = 088D # LOCAL VERTICAL MIDDLE GIMBAL ANGLE 002935,000648: # COORDINATES COMPUTED 002936,000649: 26,2022 4752 MGLVFBIT = BIT2 # COMPUTED 002937,000650: 002938,000651: # BIT 1 FLAG 5 (S) 002939,000652: 26,2022 RENDWFLG = 089D # W MATRIX VALID W MATRIX INVALID 002940,000653: # FOR RENDEZVOUS FOR RENDEZVOUS 002941,000654: 26,2022 4753 RENDWBIT = BIT1 # NAVIGATION NAVIGATION 002942,000655: 002943,000656: 26,2022 0102 FLAGWRD6 = STATE +6 # (090-104) 002944,000657: 002945,000658: # (SET) (RESET) 002946,000659: 002947,000660: # BIT 15 FLAG 6 (S) 002948,000661: 26,2022 S32.1F1 = 090D # DELTA V AT CSI TIME DVT1 LESS THAN MAX 002949,000662: 26,2022 4735 S32BIT1 = BIT15 # ONE EXEEDS MAX 002950,000663: 002951,000664: # BIT 14 FLAG 6 (S) 002952,000665: 26,2022 S32.1F2 = 091D # FIRST PASS OF REITERATION OF 002953,000666: 26,2022 4736 S32BIT2 = BIT14 # NEWTON ITERATION NEWTON 002954,000667: 002955,000668: # BIT 13 FLAG 6 (S) 002956,000669: 26,2022 S32.1F3A = 092D # BIT 13 AND BIT 12 FUNCTION AS AN ORDERED 002957,000670: 26,2022 4737 S32BIT3A = BIT13 # PAIR (13,12) INDICATING THE POSSIBLE OC- 002958,000671: # CURRENCE OF 2 NEWTON ITERATIONS FOR S32.1 002959,000672: # IN THE PROGRAM IN THE FOLLOWING ORDER: 002960,000673: # BIT 12 FLAG 6 (S) # (0,1) (I.E. BIT 13 RESET, BIT 12 SET) 002961,000674: 26,2022 S32.1F3B = 093D # = FIRST NEWTON ITERATION BEING DONE 002962,000675: 26,2022 4740 S32BIT3B = BIT12 # (0,0)= FIRST PASS OF SECOND NEWTON ITERATION 002963,000676: # (1,1)= 50 FT/SEC STAGE OF SECOND NEWTON ITERATION 002964,000677: # (1,0)= REMAINDER OF SECOND NEWTON ITERATION 002965,000678: 002966,000679: # Page 81 002967,000680: # BIT 11 FLAG 6 (S) 002968,000681: 26,2022 = 094D # 002969,000682: 26,2022 = BIT11 # 002970,000683: 002971,000684: # BIT 10 FLAG 6 (S) 002972,000685: 26,2022 GMBDRVSW = 095D # TRIMGIMB OVER TRIMGIMB NOT OVER 002973,000686: 26,2022 4742 GMBDRBIT = BIT10 # 002974,000687: 002975,000688: # BIT 9 FLAG 6 002976,000689: 26,2022 = 096D 002977,000690: 26,2022 = BIT9 # 002978,000691: 002979,000692: # BIT 8 FLAG 6 (S) 002980,000693: 26,2022 MUNFLAG = 097D # SERVICER CALLS SERVICER CALLS 002981,000694: 26,2022 4744 MUNFLBIT = BIT8 # MUNRVG CALCRVG 002982,000695: 002983,000696: # BIT 7 FLAG 6 (L) 002984,000697: 26,2022 = 098D # 002985,000698: 26,2022 = BIT7 # 002986,000699: 002987,000700: # BIT 6 FLAG 6 (L) 002988,000701: 26,2022 REDFLAG = 099D # LANDING SITE LANDING SITE 002989,000702: # REDESIGNATION REDESIGNATION NOT 002990,000703: 26,2022 4746 REDFLBIT = BIT6 # PERMITTED PERMITTED 002991,000704: 002992,000705: # BIT 5 FLAG 6 002993,000706: 26,2022 = 100D # 002994,000707: 26,2022 = BIT5 002995,000708: 002996,000709: # BIT 4 FLAG 6 002997,000710: 26,2022 = 101D 002998,000711: 26,2022 = BIT4 # 002999,000712: 003000,000713: # BIT 3 FLAG 6 (S) 003001,000714: 26,2022 NTARGFLG = 102D # ASTRONAUT DID ASTRONAUT DID NOT 003002,000715: # OVERWRITE DELTA OVERWRITE DELTA 003003,000716: 26,2022 4751 NTARGBIT = BIT3 # VELOCITY AT TPI VELOCITY 003004,000717: # OR TPM (P34,35) 003005,000718: 003006,000719: # BIT 2 FLAG 6 003007,000720: 26,2022 AUXFLAG = 103D # PROVIDING IDLEFLAG SERVICER WILL SKIP 003008,000721: 26,2022 4752 AUXFLBIT = BIT2 # IS NOT SET, SERV- DVMON ON ITS NEXT 003009,000722: # ICER WILL EXERCISE PASS EVEN IF THE 003010,000723: # DVMON ON ITS NEXT IDLEFLAG IS NOT SET. 003011,000724: # PASS. IT WILL THEN SET 003012,000725: # AUXFLAG. 003013,000726: 003014,000727: # Page 82 003015,000728: # BIT 1 FLAG 6 (L) 003016,000729: 26,2022 ATTFLAG = 104D # LEM ATTITUDE EXISTS NO LEM ATTITUDE 003017,000730: # IN MOON-FIXED AVAILABLE IN MOON- 003018,000731: 26,2022 4753 ATTFLBIT = BIT1 # COORDINATES FIXED COORDINATES 003019,000732: 003020,000733: 26,2022 0103 FLAGWRD7 = STATE +7 # (105-119) 003021,000734: 003022,000735: # (SET) (RESET) 003023,000736: 003024,000737: # BIT 15 FLAG 7 (S) 003025,000738: 26,2022 ITSWICH = 105D # R34;TPI TIME TO BE TPI HAS BEEN 003026,000739: 26,2022 4735 ITSWBIT = BIT15 # COMPUTED COMPUTED 003027,000740: 003028,000741: # BIT 14 FLAG 7 (S) 003029,000742: 26,2022 MANUFLAG = 106D # ATTITUDE MANEUVER NO ATTITUDE MANEUVER 003030,000743: # GOING DURING RR DURING RR SEARCH 003031,000744: 26,2022 4736 MANUFBIT = BIT14 # SEARCH 003032,000745: 003033,000746: # BIT 13 FLAG 7 (S) 003034,000747: 26,2022 IGNFLAG = 107D # TIG HAS ARRIVED TIG HAS NOT ARRIVED 003035,000748: 26,2022 4737 IGNFLBIT = BIT13 # 003036,000749: 003037,000750: # BIT 12 FLAG 7 (S) 003038,000751: 26,2022 ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT 003039,000752: 26,2022 4740 ASTNBIT = BIT12 # OKAYED IGNITION OKAYED IGNITION 003040,000753: 003041,000754: # BIT 11 FLAG 7 (L) 003042,000755: 26,2022 SWANDISP = 109D # LANDING ANALOG LANDING ANALOG 003043,000756: 26,2022 4741 SWANDBIT = BIT11 # DISPLAYS ENABLED DISPLAYS SUPPRESSED 003044,000757: 003045,000758: # BIT 10 FLAG 7 (S) 003046,000759: 26,2022 NORMSW = 110D # UNIT NORMAL INPUT LAMBERT COMPUTES ITS 003047,000760: 26,2022 4742 NORMSBIT = BIT10 # TO LAMBERT OWN UNIT NORMAL 003048,000761: 003049,000762: # BIT 9 FLAG 7 (S) 003050,000763: 26,2022 RVSW = 111D # DO NOT COMPUTE COMPUTE FINAL STATE 003051,000764: # FINAL STATE VECTOR VECTOR IN TIME-THETA 003052,000765: 26,2022 4743 RVSWBIT = BIT9 # IN TIME-DELTA 003053,000766: 003054,000767: # BIT 8 FLAG 7 (S) 003055,000768: 26,2022 V67FLAG = 112D # ASTRONAUT OVERWRITE ASTRONAUT DOES NOT 003056,000769: # Page 83 # W-MATRIX INITIAL OVERWRITE W-MATRIX 003057,000770: 26,2022 4744 V67FLBIT = BIT8 # VALUES INITIAL VALUES 003058,000771: 003059,000772: # BIT 7 FLAG 7 (S) 003060,000773: 26,2022 IDLEFLAG = 113D # NO DV MONITOR CONNECT DV MONITOR 003061,000774: 26,2022 4745 IDLEFBIT = BIT7 # 003062,000775: 003063,000776: # BIT 6 FLAG 7 (S) 003064,000777: 26,2022 V37FLAG = 114D # AVERAGEG (SERVICER) AVERAGEG (SERVICER) 003065,000778: 26,2022 4746 V37FLBIT = BIT6 # RUNNING OFF 003066,000779: 003067,000780: # BIT 5 FLAG 7 (S) 003068,000781: 26,2022 AVEGFLAG = 115D # AVERAGEG (SERVICER) AVERAGEG (SERVICER) 003069,000782: 26,2022 4747 AVEGFBIT = BIT5 # DESIRED NOT DESIRED 003070,000783: 003071,000784: # BIT 4 FLAG 7 (S) 003072,000785: 26,2022 UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL 003073,000786: 26,2022 4750 UPLOCBIT = BIT4 # 003074,000787: 003075,000788: # BIT 3 FLAG 7 (S) 003076,000789: 26,2022 VERIFLAG = 117D # CHANGED WHEN V33E OCCURS AT END OF P27 003077,000790: 26,2022 4751 VERIFBIT = BIT3 # 003078,000791: 003079,000792: # BIT 2 FLAG 7 (L,C) 003080,000793: 26,2022 V82EMFLG = 118D # MOON VICINITY EARTH VICINITY 003081,000794: 26,2022 4752 V82EMBIT = BIT2 # 003082,000795: 003083,000796: # BIT 1 FLAG 7 (S) 003084,000797: 26,2022 TFFSW = 119D # CALCULATE TPERIGEE CALCULATE TFF 003085,000798: 26,2022 4753 TFFSWBIT = BIT1 # 003086,000799: 003087,000800: 26,2022 0104 FLAGWRD8 = STATE +8D # (120-134) 003088,000801: 003089,000802: # (SET) (RESET) 003090,000803: 003091,000804: # BIT 15 FLAG 8 (S) 003092,000805: 26,2022 RPQFLAG = 120D # RPQ NOT COMPUTED RPQ COMPUTED 003093,000806: # (RPQ = VECTOR BE- 003094,000807: 26,2022 4735 RPQFLBIT = BIT15 # TWEEN SECONDARY BODY 003095,000808: # AND PRIMARY BODY) 003096,000809: 003097,000810: # BIT 14 FLAG 8 003098,000811: # Page 84 003099,000812: 26,2022 = 121D # 003100,000813: 26,2022 = BIT14 # 003101,000814: 003102,000815: # BIT 13 FLAG 8 (S) 003103,000816: 26,2022 NEWIFLG = 122D # FIRST PASS THROUGH SUCCEEDING ITERATION 003104,000817: 26,2022 4737 NEWIBIT = BIT13 # INTEGRATION OF INTEGRATION 003105,000818: 003106,000819: # BIT 12 FLAG 8 *** PROTECTED FROM FRESH START *** 003107,000820: 26,2022 CMOONFLG = 123D # PERMANENT CSM STATE PERMANENT CSM STATE 003108,000821: 26,2022 4740 CMOONBIT = BIT12 # IN LUNAR SPHERE IN EARTH SPHERE 003109,000822: 003110,000823: # BIT 11 FLAG 8 *** PROTECTED FROM FRESH START *** 003111,000824: 26,2022 LMOONFLG = 124D # PERMANENT LM STATE PERMANENT LM STATE 003112,000825: 26,2022 4741 LMOONBIT = BIT11 # IN LUNAR SPHERE IN EARTH SPHERE 003113,000826: 003114,000827: # BIT 10 FLAG 8 (L) 003115,000828: 26,2022 FLUNDISP = 125D # CURRENT GUIDANCE CURRENT GUIDANCE 003116,000829: 26,2022 4742 FLUNDBIT = BIT10 # DISPLAYS INHIBITED DISPLAYS PERMITTED 003117,000830: 003118,000831: # BIT 9 FLAG 8 (L) 003119,000832: 26,2022 = 126D # 003120,000833: 26,2022 = BIT9 # 003121,000834: 003122,000835: # BIT 8 FLAG 8 *** PROTECTED FROM FRESH START *** 003123,000836: 26,2022 SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR 003124,000837: 26,2022 4744 SURFFBIT = BIT8 # SURFACE 003125,000838: 003126,000839: # BIT 7 FLAG 8 (S) 003127,000840: 26,2022 INFINFLG = 128D # NO CONIC SOLUTION CONIC SOLUTION 003128,000841: # (CLOSURE THROUGH EXISTS 003129,000842: 26,2022 4745 INFINBIT = BIT7 # INFINITY REQUIRED) 003130,000843: 003131,000844: # BIT 6 FLAG 8 (S) 003132,000845: 26,2022 ORDERSW = 129D # ITERATOR USES 2ND ITERATOR USES 1ST 003133,000846: 26,2022 4746 ORDERBIT = BIT6 # ORDER MINIMUM MODE ORDER STANDARD MODE 003134,000847: 003135,000848: # BIT 5 FLAG 8 (S) 003136,000849: 26,2022 APSESW = 130D # RDESIRED OUTSIDE RDESIRED INSIDE 003137,000850: # PERICENTER-APOCENTER PERICENTER-APOCENTER 003138,000851: 26,2022 4747 APSESBIT = BIT5 # RANGE IN TIME-RADIUS RANGE IN TIME-RADIUS 003139,000852: 003140,000853: # Page 85 003141,000854: # BIT 4 FLAG 8 (S) 003142,000855: 26,2022 COGAFLAG = 131D # NO CONIC SOLUTION -- CONIC SOLUTION 003143,000856: # TOO CLOSE TO RECTI- EXISTS (COGA DOES NOT 003144,000857: 26,2022 4750 COGAFBIT = BIT4 # LINEAR (COGA OVERFLWS) OVERFLOW) 003145,000858: 003146,000859: # BIT 3 FLAG 8 (S) 003147,000860: 26,2022 = 132D 003148,000861: 26,2022 = BIT3 # 003149,000862: 003150,000863: # BIT 2 FLAG 8 (L) 003151,000864: 26,2022 INITALGN = 133D # INITIAL PASS THRU SECOND PASS THRU P57 003152,000865: 26,2022 4752 INITABIT = BIT2 # P57 (CHECK RESET-MILLARD) 003153,000866: 003154,000867: # BIT 1 FLAG 8 (S) 003155,000868: 26,2022 360SW = 134D # TRANSFER ANGLE NEAR TRANSFER ANGLE NOT 003156,000869: 26,2022 4753 360SWBIT = BIT1 # 360 DEGREES NEAR 360 DEGREES 003157,000870: 003158,000871: 26,2022 0105 FLAGWRD9 = STATE +9D # (135-149) 003159,000872: 003160,000873: # (SET) (RESET) 003161,000874: 003162,000875: # BIT 15 FLAG 9 003163,000876: 26,2022 = 135D # 003164,000877: 26,2022 = BIT15 # 003165,000878: 003166,000879: # BIT 14 FLAG 9 (L) 003167,000880: 26,2022 FLVR = 136D # VERTICAL RISE NON-VERTICAL RISE 003168,000881: 26,2022 4736 FLVRBIT = BIT14 # (ASCENT GUIDANCE) 003169,000882: 003170,000883: # BIT 13 FLAG 9 003171,000884: 26,2022 P7071FLG = 137D # P70 OR P71 IS USING P12 IS USING THE 003172,000885: 26,2022 4737 P7071BIT = BIT13 # ASCENT GUID. EQS. ASCENT GUID. EQS. 003173,000886: 003174,000887: # BIT 12 FLAG 9 (L) 003175,000888: 26,2022 FLPC = 138D # NO POSITION CONTROL POSITION CONTROL 003176,000889: 26,2022 4740 FLPCBIT = BIT12 # (ASCENT GUIDANCE) 003177,000890: 003178,000891: # BIT 11 FLAG 9 (L) 003179,000892: 26,2022 FLPI = 139D # PRE-IGNITION PHASE REGULAR GUIDANCE 003180,000893: 26,2022 4741 FLPIBIT = BIT11 # (ASCENT GUIDANCE) 003181,000894: 003182,000895: # BIT 10 FLAG 9 (L) 003183,000896: 26,2022 FLRCS = 140D # RCS INJECTION MODE MAIN ENGINE MODE 003184,000897: # Page 86 003185,000898: 26,2022 4742 FLRCSBIT = BIT10 # (ASCENT GUIDANCE) 003186,000899: 003187,000900: # BIT 9 FLAG 9 (L) 003188,000901: 26,2022 LETABORT = 141D # ABORT PROGRAMS ABORT PROGRAMS 003189,000902: 26,2022 4743 LETABBIT = BIT9 # ARE ENABLED ARE NOT ENABLED 003190,000903: 003191,000904: # BIT 8 FLAG 9 (L) 003192,000905: 26,2022 FLAP = 142D # APS CONTINUED ABORT APS ABORT IS NOT A 003193,000906: # AFTER DPS STAGING CONTINUATION 003194,000907: 26,2022 4744 FLAPBIT = BIT8 # (ASCENT GUIDANCE) 003195,000908: 003196,000909: # BIT 7 FLAG 9 (L) 003197,000910: 26,2022 ABTTGFLG = 143D # J2,K2 PARAMETERS J1,K1 PARAMETERS 003198,000911: 26,2022 4745 ABTTGBIT = BIT7 # USED FOR ABORT USED FOR ABORT 003199,000912: # TARGETING TARGETING 003200,000913: 003201,000914: # BIT 6 FLAG 9 (L) 003202,000915: 26,2022 ROTFLAG = 144D # P70 AND P71 WILL P70 AND P71 WILL NOT 003203,000916: 26,2022 4746 ROTFLBIT = BIT6 # FORCE VEHICLE FORCE VEHICLE 003204,000917: # ROTATION IN THE ROTATION IN THE 003205,000918: # PREFERRED DIRECTION PREFERRED DIRECTION 003206,000919: 003207,000920: # BIT 5 FLAG 9 (S) 003208,000921: 26,2022 QUITFLAG = 145D # DISCONTINUE INTEGR. CONTINUE INTEGRATION 003209,000922: 26,2022 4747 QUITBIT = BIT5 # 003210,000923: 003211,000924: # BIT 4 FLAG 9 003212,000925: 26,2022 = 146D # 003213,000926: 26,2022 = BIT4 # 003214,000927: 003215,000928: # BIT 3 FLAG 9 (L) 003216,000929: 26,2022 MID1FLAG = 147D # INTEGRAT TO TDEC INTEGRATE TO THE 003217,000930: 26,2022 4751 MID1FBIT = BIT3 # THEN-PRESENT TIME 003218,000931: 003219,000932: # BIT 2 FLAG 9 (L) 003220,000933: 26,2022 MIDAVFLG = 148D # INTEGRATION ENTERED INTEGRATION WAS 003221,000934: # FROM ONE OF MIDTOAV NOT ENTERED VIA 003222,000935: 26,2022 4752 MIDAVBIT = BIT2 # PORTALS MIDTOAV 003223,000936: 003224,000937: # BIT 1 FLAG 9 (S) 003225,000938: 26,2022 AVEMIDSW = 149D # AVETOMID CALLING NO AVETOMID W INTEGR 003226,000939: # FOR W.MATRIX INTEGR ALLOW SET UP RM, VN 003227,000940: 26,2022 4753 AVEMDBIT = BIT1 # DON'T WRITE OVER RN, PIPTIME 003228,000941: # VN,PIPTIME 003229,000942: 003230,000943: # Page 87 003231,000944: 26,2022 0106 RASFLAG EQUALS FLGWRD10 # WAS ONLY AN INSTALL-ERASTALL FLAG 003232,000945: 003233,000946: 26,2022 0106 FLGWRD10 = STATE +10D # (150-164) 003234,000947: 003235,000948: # (SET) (RESET) 003236,000949: 003237,000950: # BIT 15 FLAG 10 (S) 003238,000951: 26,2022 = 150D # 003239,000952: 26,2022 = BIT15 # 003240,000953: 003241,000954: # BIT 14 FLAG 10 (L,C) 003242,000955: 26,2022 INTFLAG = 151D # INTEGRATION IN INTEGRATION NOT IN 003243,000956: 26,2022 4736 INTFLBIT = BIT14 # PROGRESS PROGRESS 003244,000957: 003245,000958: # BIT 13 FLAG 10 (S,L) *** PROTECTED FROM FRESH START *** 003246,000959: 26,2022 APSFLAG = 152D # ASCENT STAGE DESCENT STAGE 003247,000960: 26,2022 4737 APSFLBIT = BIT13 # 003248,000961: 003249,000962: # BIT 12 FLAG 10 003250,000963: 26,2022 = 153D # 003251,000964: 26,2022 = BIT12 # 003252,000965: 003253,000966: # BIT 11 FLAG 10 003254,000967: 26,2022 = 154D # 003255,000968: 26,2022 = BIT11 # 003256,000969: 003257,000970: # BIT 10 FLAG 10 003258,000971: 26,2022 = 155D # 003259,000972: 26,2022 = BIT10 # 003260,000973: 003261,000974: # BIT 9 FLAG 10 003262,000975: 26,2022 = 156D # 003263,000976: 26,2022 = BIT9 # 003264,000977: 003265,000978: # BIT 8 FLAG 10 003266,000979: 26,2022 = 157D # 003267,000980: 26,2022 = BIT8 # 003268,000981: 003269,000982: # BIT 7 FLAG 10 (L,C) 003270,000983: 26,2022 REINTFLG = 158D # INTEGRATION ROUTINE INTEGRATION ROUTINE 003271,000984: 26,2022 4745 REINTBIT = BIT7 # TO BE RESTARTED NOT TO BE RESTARTED 003272,000985: 003273,000986: # BIT 6 FLAG 10 003274,000987: 26,2022 = 159D 003275,000988: # Page 88 003276,000989: 26,2022 = BIT6 # 003277,000990: 003278,000991: # BIT 5 FLAG 10 003279,000992: 26,2022 = 160D # 003280,000993: 26,2022 = BIT5 # 003281,000994: 003282,000995: # BIT 4 FLAG 10 003283,000996: 26,2022 = 161D # 003284,000997: 26,2022 = BIT4 # 003285,000998: 003286,000999: # BIT 3 FLAG 10 003287,001000: 26,2022 = 162D 003288,001001: 26,2022 = BIT3 # 003289,001002: 003290,001003: # BIT 2 FLAG 10 003291,001004: 26,2022 = 163D # 003292,001005: 26,2022 = BIT2 # 003293,001006: 003294,001007: # BIT 1 FLAG 10 003295,001008: 26,2022 = 164D # 003296,001009: 26,2022 = BIT1 # 003297,001010: 003298,001011: 26,2022 0107 FLGWRD11 = STATE +11D # (165-179) 003299,001012: 003300,001013: # (SET) (RESET) 003301,001014: 003302,001015: # BIT 15 FLAG 11 (L)(R12) 003303,001016: 26,2022 LRBYPASS = 165D # BYPASS ALL LANDING DO NOT BYPASS LR 003304,001017: 26,2022 4735 LRBYBIT = BIT15 # RADAR UPDATES UPDATES 003305,001018: 003306,001019: # BIT 14 FLAG 11 003307,001020: 26,2022 = 166D # 003308,001021: 26,2022 = BIT14 # 003309,001022: 003310,001023: # BIT 13 FLAG 11 003311,001024: 26,2022 = 167D # 003312,001025: 26,2022 = BIT13 # 003313,001026: 003314,001027: # BIT 12 FLAG 11 (L)(R12) 003315,001028: 26,2022 VXINH = 168D # IF Z VELOCITY DATA UPDATE X AXIS 003316,001029: # UNREASONABLE, VELOCITY 003317,001030: 26,2022 4740 VXINHBIT = BIT12 # BYPASS X VELOCITY 003318,001031: # UPDATE ON NEXT PASS 003319,001032: 003320,001033: # Page 89 003321,001034: # BIT 11 FLAG 11 (L)(R12) 003322,001035: 26,2022 PSTHIGAT = 169D # PAST HIGATE PREHIGATE 003323,001036: 26,2022 4741 PSTHIBIT = BIT11 # 003324,001037: 003325,001038: # BIT 10 FLAG 11 (L)(R12) 003326,001039: 26,2022 NOLRREAD = 170D # LANDING RADAR LR NOT REPOSITIONING 003327,001040: # REPOSITIONING; 003328,001041: 26,2022 4742 NOLRRBIT = BIT10 # BYPASS UPDATE 003329,001042: 003330,001043: # BIT 9 FLAG 11 (L)(R12) 003331,001044: 26,2022 XORFLG = 171D # BELOW LIMIT ABOVE LIMIT DO 003332,001045: # INHIBIT X AXIS NOT INHIBIT 003333,001046: 26,2022 4743 XORFLBIT = BIT9 # OVERRIDE 003334,001047: 003335,001048: # BIT 8 FLAG 11 003336,001049: 26,2022 LRINH = 172D # LANDING RADAR UP- LR UPDATES INHIBITED 003337,001050: 26,2022 4744 LRINHBIT = BIT8 # DATES PERMITTED BY ASTRONAUT 003338,001051: # BY ASTRONAUT 003339,001052: 003340,001053: # BIT 7 FLAG 11 (L)(R12) 003341,001054: 26,2022 VELDATA = 173D # LR VELOCITY LR VELOCITY MEASURE 003342,001055: 26,2022 4745 VELDABIT = BIT7 # MEASUREMENT MADE NOT MADE 003343,001056: 003344,001057: # BIT 6 FLAG 11 (L)(R12) 003345,001058: 26,2022 LPOS2FLG = 174D # USE LR POSITION 2 USE LR POSITION 1 003346,001059: 26,2022 4746 LPOS2BIT = BIT6 # TRANSFORMATION TRANSFORMATION 003347,001060: 003348,001061: # BIT 5 FLAG 11 (L)(R12) 003349,001062: 26,2022 READVEL = 175D # OK TO READ LR DO NOT READ LR 003350,001063: 26,2022 4747 READVBIT = BIT5 # VELOCITY DATA VELOCITY DATA 003351,001064: 003352,001065: # BIT 4 FLAG 11 (L)(R12) 003353,001066: 26,2022 RNGEDATA = 176D # LR ALTITUDE LR ALTITUDE MEASURE 003354,001067: 26,2022 4750 RNGEDBIT = BIT4 # MEASUREMENT MADE NOT MADE 003355,001068: 003356,001069: # BIT 3 FLAG 11 003357,001070: 26,2022 NO511FLG = 177D # DO NOT TEST LR TEST LR ANTENNA 003358,001071: 26,2022 4751 NO511BIT = BIT3 # ANTENNA POS IN R12 POS IN R12 003359,001072: 003360,001073: # BIT 2 FLAG 11 (L)(R12) 003361,001074: 26,2022 VFLSHFLG = 178D # LR VELOCITY FAIL LR VEL FAIL LAMP 003362,001075: # Page 90 # LAMP SHOULD BE SHOULDN'T FLASH 003363,001076: 26,2022 4752 VFLSHBIT = BIT2 # FLASHING 003364,001077: 003365,001078: # BIT 1 FLAG 11 (L)(R12) 003366,001079: 26,2022 HFLSHFLG = 179D # LR ALTITUDE FAIL LR ALTITUDE FAIL 003367,001080: 26,2022 4753 HFLSHBIT = BIT1 # LAMP SHOULD BE LAMP SHOULD NOT BE 003368,001081: # FLASHING FLASHING 003369,001082: 003370,001083: 26,2022 0110 RADMODES EQUALS FLGWRD12 # RADAR FLAG WORD 003371,001084: 003372,001085: 26,2022 0110 FLGWRD12 = STATE +12D # (180-194) 003373,001086: 003374,001087: # (SET) (RESET) 003375,001088: 003376,001089: # BIT 15 FLAG 12 003377,001090: 26,2022 CDESFLAG = 180D # CONTINUOUS DESIG- LGC CHECKS FOR LOCK- 003378,001091: 26,2022 4735 CDESBIT = BIT15 # NATE, LGC COMMANDS ON WHEN ANTENNA 003379,001092: # RR REGARDLESS OF BEING DESIGNATED 003380,001093: # LOCK-ON 003381,001094: 003382,001095: # BIT 14 FLAG 12 003383,001096: 26,2022 REMODFLG = 181D # CHANGE IN ANTENNA NO REMODE REQUESTED 003384,001097: 26,2022 4736 REMODBIT = BIT14 # MODE BEEN REQUESTED OR OCCURRING 003385,001098: # I.E., REMODE 003386,001099: 003387,001100: # BIT 13 FLAG 12 003388,001101: 26,2022 RCDU0FLG = 182D # RR CDU'S BEING RR CDU'S NOT BEING 003389,001102: 26,2022 4737 RCDU0BIT = BIT13 # ZEROED ZEROED 003390,001103: 003391,001104: # BIT 12 FLAG 12 003392,001105: 26,2022 ANTENFLG = 183D # RR ANTENNA MODE IS RR ANTENNA IN MODE 1 003393,001106: 26,2022 4740 ANTENBIT = BIT12 # MODE 2 003394,001107: 003395,001108: # BIT 11 FLAG 12 003396,001109: 26,2022 REPOSMON = 184D # REPOSITION MONITOR. NO REPOSITION TAKING 003397,001110: 26,2022 4741 REPOSBIT = BIT11 # RR REPOSITION IS PLACE 003398,001111: # TAKING PLACE 003399,001112: 003400,001113: # BIT 10 FLAG 12 003401,001114: 26,2022 DESIGFLG = 185D # RR DESIGNATE RR DESIGNATE NOT 003402,001115: 26,2022 4742 DESIGBIT = BIT10 # REQUESTED OR IN REQUESTED OR IN 003403,001116: # PROGRESS PROGRESS 003404,001117: 003405,001118: # Page 91 003406,001119: # BIT 9 FLAG 12 003407,001120: 26,2022 ALTSCALE = 186D # LR ALTITUDE READING LR ALTITUDE READING 003408,001121: 26,2022 4743 ALTSCBIT = BIT9 # IS ON HIGH SCALE IS ON LOW SCALE 003409,001122: 003410,001123: # BIT 8 FLAG 12 003411,001124: 26,2022 LRVELFLG = 187D # LR VELOCITY DATA NO LR VELOCITY DATA 003412,001125: 26,2022 4744 LRVELBIT = BIT8 # FAIL FAIL 003413,001126: 003414,001127: # BIT 7 FLAG 12 003415,001128: 26,2022 RCDUFAIL = 188D # RR CDU FAIL HAS RR CDU FAIL OCCURRED 003416,001129: 26,2022 4745 RCDUFBIT = BIT7 # NOT OCCURRED 003417,001130: 003418,001131: # BIT 6 FLAG 12 003419,001132: 26,2022 LRPOSFLG = 189D # LANDING RADAR LR POSITION 1 003420,001133: 26,2022 4746 LRPOSBIT = BIT6 # POSITION 2 003421,001134: 003422,001135: # BIT 5 FLAG 12 003423,001136: 26,2022 LRALTFLG = 190D # LR ALTITUDE DATA NO LR ALTITUDE DATA 003424,001137: 26,2022 4747 LRALTBIT = BIT5 # FAIL. COULD NOT BE FAIL 003425,001138: # READ SUCCESSFULLY. 003426,001139: 003427,001140: # BIT 4 FLAG 12 003428,001141: 26,2022 RRDATAFL = 191D # RR DATA FAIL. NO RR DATA FAIL 003429,001142: 26,2022 4750 RRDATABT = BIT4 # DATA COULD NOT BE 003430,001143: # READ SUCCESSFULLY 003431,001144: 003432,001145: # BIT 3 FLAG 12 003433,001146: 26,2022 RRRSFLAG = 192D # RR RANGE READING RR RANGE READING ON 003434,001147: 26,2022 4751 RRRSBIT = BIT3 # ON THE HIGH SCALE THE LOW SCALE 003435,001148: 003436,001149: # BIT 2 FLAG 12 003437,001150: 26,2022 AUTOMODE = 193D # RR NOT IN AUTO MODE. RR IN AUTO MODE 003438,001151: 26,2022 4752 AUTOMBIT = BIT2 # AUTO MODE DISCRETE 003439,001152: # IS NOT PRESENT 003440,001153: 003441,001154: # BIT 1 FLAG 12 003442,001155: 26,2022 TURNONFL = 194D # RR TURN-ON SEQUENCE NO RR TURN-ON 003443,001156: 26,2022 4753 TURNONBT = BIT1 # IN PROGRESS. (ZERO SEQUENCE IN PROGRESS 003444,001157: # CDU'S, FIX ANTENNA 003445,001158: # MODE) 003446,001159: 003447,001160: # Page 92 003448,001161: 26,2022 0111 DAPBOOLS EQUALS FLGWRD13 # DIGITAL AUTOPILOT FLAGWORD 003449,001162: 003450,001163: 26,2022 0111 FLGWRD13 = STATE +13D # (195-209) 003451,001164: 003452,001165: # (SET) (RESET) 003453,001166: 003454,001167: # BIT 15 FLAG 13 003455,001168: 26,2022 PULSEFLG = 195D # MINIMUM IMPUSE NOT IN MINIMUM 003456,001169: 26,2022 4735 PULSES = BIT15 # COMMAND MODE IN IMPULSE COMMAND MODE 003457,001170: # "ATT HOLD" (V76) (V77) 003458,001171: 003459,001172: # BIT 14 FLAG 13 003460,001173: 26,2022 USEQRFLG = 196D # GIMBAL UNUSABLE. TRIM GIMBAL MAY BE 003461,001174: 26,2022 4736 USEQRJTS = BIT14 # USE JETS ONLY. USED. 003462,001175: 003463,001176: # BIT 13 FLAG 13 003464,001177: 26,2022 CSMDKFLG = 197D # CSM DOCKED. USE CSM NOT DOCKED TO LM 003465,001178: 26,2022 4737 CSMDOCKD = BIT13 # BACKUP DAP 003466,001179: 003467,001180: # BIT 12 FLAG 13 003468,001181: 26,2022 OURRCFLG = 198D # CURRENT DAP PASS CURRENT DAP PASS IS 003469,001182: 26,2022 4740 OURRCBIT = BIT12 # IS RATE COMMAND NOT RATE COMMAND 003470,001183: 003471,001184: # BIT 11 FLAG 13 003472,001185: 26,2022 ACC4-2FL = 199D # 4 JET X-AXIS TRANS- 2 JET X-AXIS TRANS- 003473,001186: 26,2022 4741 ACC4OR2X = BIT11 # LATION REQUESTED LATION REQUESTED 003474,001187: 003475,001188: # BIT 10 FLAG 13 003476,001189: 26,2022 AORBTFLG = 200D # B SYSTEM FOR X- A SYSTEM FOR X- 003477,001190: 26,2022 4742 AORBTRAN = BIT10 # TRANSLATION TRANSLATION PREFER'D 003478,001191: 003479,001192: # BIT 9 FLAG 13 003480,001193: 26,2022 XOVINFLG = 201D # X-AXIS OVERRIDE X-AXIS OVERRIDE OKAY 003481,001194: 26,2022 4743 XOVINHIB = BIT9 # LOCKED OUT 003482,001195: 003483,001196: # BIT 8 FLAG 13 003484,001197: 26,2022 DRIFTDFL = 202D # ASSUME 0 OFFSET USE OFFSET ACCELERA- 003485,001198: 26,2022 4744 DRIFTBIT = BIT8 # DRIFTING FLIGHT ION ESTIMATE 003486,001199: 003487,001200: # Page 93 003488,001201: # BIT 7 FLAG 13 003489,001202: 26,2022 RHCSCFLG = 203D # NORMAL RHC SCALING FINE RHC SCALING 003490,001203: 26,2022 4745 RHCSCALE = BIT7 # REQUESTED REQUESTED 003491,001204: 003492,001205: # BIT 6 FLAG 13 003493,001206: 26,2022 ULLAGFLG = 204D # ULLAGE REQUEST BY NO INTERNAL ULLAGE 003494,001207: 26,2022 4746 ULLAGER = BIT6 # MISSION PROGRAM REQUEST 003495,001208: 003496,001209: # BIT 5 FLAG 13 003497,001210: 26,2022 DBSL2FLG = 205D # 5 DEG DEADBAND 1 OR .3 DEG DEADBAND 003498,001211: 26,2022 4747 DBSLECT2 = BIT5 # SELECTED BY CREW SELECTED BY CREW 003499,001212: # (SEE BIT4 DAPBOOLS) 003500,001213: 003501,001214: # BIT 4 FLAG 13 003502,001215: 26,2022 DBSELFLG = 206D # 1 DEG DEADBAND MIN DB SELECTED BY 003503,001216: 26,2022 4750 DBSELECT = BIT4 # SELECTED BY CREW CREW (0.3 DEG) 003504,001217: 003505,001218: # BIT 3 FLAG 13 003506,001219: 26,2022 ACCOKFLG = 207D # CONTROL AUTHORITY RESTART OR FRESH ST. 003507,001220: 26,2022 4751 ACCSOKAY = BIT3 # VALUES FROM 1/ACCS SINCE LAST 1/ACCS; 003508,001221: # USABLE OUTPUTS SUSPECT. 003509,001222: 003510,001223: # BIT 2 FLAG 13 003511,001224: 26,2022 AUTR2FLG = 208D # THESE FLAGS ARE USED TOGETHER TO INDICATE 003512,001225: 26,2022 4752 AUTRATE2 = BIT2 # ASTRONAUT-CHOSEN KALCMANU MANEUVER RATES 003513,001226: # (0,0)=(BIT2,BIT1)= 0.2 DEG/SEC 003514,001227: # BIT 1 FLAG 13 # (0,1)= 0.5 DEG/SEC 003515,001228: 26,2022 AUTR1FLG = 209D # (1,0)= 2.0 DEG/SEC 003516,001229: 26,2022 4753 AUTRATE1 = BIT1 # (1,1)= 10.0 DEG/SEC 003517,001230: 003518,001231: End of include-file FLAGWORD_ASSIGNMENTS.agc. Parent file is MAIN.agc