Source Code

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