Source Code

001465,000001: # Copyright: Public domain. 001466,000002: # Filename: ERASABLE_ASSIGNMENTS.agc 001467,000003: # Purpose: Part of the source code for Colossus, build 249. 001468,000004: # It is part of the source code for the Command Module's (CM) 001469,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 001470,000006: # Assembler: yaYUL 001471,000007: # Reference: pp. 37-128 of 1701.pdf. 001472,000008: # Contact: Ron Burkey <info@sandroid.org>. 001473,000009: # Website: www.ibiblio.org/apollo. 001474,000010: # Mod history: 08/03/04 RSB Adapted from similar Luminary 131 file. 001475,000011: # 08/05/04 RSB Finished up the draft (not proofed). 001476,000012: # 05/08/09 RSB On p. 99, "INTVEC = FILDELV +W" was corrected 001477,000013: # to "INTVEC = FILDELV +2". The reason this 001478,000014: # was working is that INTVEC isn't used for 001479,000015: # anything. 001480,000016: # 2010-08-30 JL Added missing comment character. 001481,000017: # 2010-10-24 JL Fixed page number. 001482,000018: # 2011-05-07 JL Removed workarounds. 001483,000019: 001484,000020: # The contents of the "Colossus249" files, in general, are transcribed 001485,000021: # from a scanned document obtained from MIT's website, 001486,000022: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 001487,000023: # document read, in part: 001488,000024: 001489,000025: # Assemble revision 249 of AGC program Colossus by NASA 001490,000026: # 2021111-041. October 28, 1968. 001491,000027: 001492,000028: # This AGC program shall also be referred to as 001493,000029: # Colossus 1A 001494,000030: 001495,000031: # Prepared by 001496,000032: # Massachusetts Institute of Technology 001497,000033: # 75 Cambridge Parkway 001498,000034: # Cambridge, Massachusetts 001499,000035: # under NASA contract NAS 9-4065. 001500,000036: 001501,000037: # Refer directly to the online document mentioned above for further information. 001502,000038: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 001503,000039: 001504,000040: # In some cases, where the source code for Luminary 131 overlaps that of 001505,000041: # Colossus 249, this code is instead copied from the corresponding Luminary 131 001506,000042: # source file, and then is proofed to incorporate any changes. 001507,000043: 001508,000044: # Page 37 001509,000045: # CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS. 001510,000046: 001511,000047: # EQUALS IS USED IN TWO WAYS. IT IS OFTEN USED TO CHAIN A GROUP 001512,000048: # OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE 001513,000049: # CHANGING OF ONLY ONE CARD. EXAMPLE: 001514,000050: 001515,000051: # X EQUALS START 001516,000052: # Y EQUALS X +SIZE.X 001517,000053: # Z EQUALS Y +SIZE.Y 001518,000054: 001519,000055: # (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START. 001520,000056: # SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y. 001521,000057: # USUALLY NUMERIC, IE. 1, 2, 6, 18D, ETC.) 001522,000058: 001523,000059: # EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES 001524,000060: # AND DIFFERENT DATA). EXAMPLE: 001525,000061: 001526,000062: # X EQUALS Y 001527,000063: 001528,000064: # = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA. 001529,000065: # (THIS IS LOGICAL EQUIVALENCE, NOT SHARING.) EXAMPLE: 001530,000066: 001531,000067: # X = Y 001532,000068: 001533,000069: # THE SIE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN 001534,000070: # THE COMMENTS IN THE FOLLOWING FORM: M(SIZE)N. 001535,000071: 001536,000072: # M REFERS TO THE MOBILITY OF THE ASSIGNMENT. 001537,000073: # B MEANS THAT THE SYMBOL IS REFERENCED BY BASIC 001538,000074: # INSTRUCTIONS AND THUS IS E-BANK SENSITIVE. 001539,000075: # I MEANS THAT THE SYMBOL IS REFERENCED ONLY BY 001540,000076: # INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK 001541,000077: # INSENSITIVE AND MAY APPEAR IN ANY E-BANK. 001542,000078: 001543,000079: # SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL. 001544,000080: 001545,000081: # N INDICATES THE NATURE OF PERMANENCE OF THE CONTENTS. 001546,000082: # PL MEANS THAT THE CONTENTS ARE PAD LOADED. 001547,000083: # DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY. 001548,000084: # PRM MEANS THAT THE REGISTER IS PERMANENT. IE., IT 001549,000085: # IS USED DURING THE ENTIRE MISSION FOR ONE 001550,000086: # PURPOSE AND CANNOT BE SHARED. 001551,000087: # TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR 001552,000088: # IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH 001553,000089: # IT IS ASSIGNED. THAT IS, IT NEED NOT BE SET 001554,000090: # PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT 001555,000091: # CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS 001556,000092: # Page 38 001557,000093: # IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH 001558,000094: # IS NOT ACTIVE IN PARALLEL 001559,000095: # IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY 001560,000096: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM. 001561,000097: # OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY 001562,000098: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM. 001563,000099: 001564,000100: # Page 39 001565,000101: # SPECIAL REGISTERS. 001566,000102: 001567,000103: 37,2001 A EQUALS 0 001568,000104: 37,2001 L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS 001569,000105: 37,2001 Q EQUALS 2 001570,000106: 37,2001 EBANK EQUALS 3 001571,000107: 37,2001 FBANK EQUALS 4 001572,000108: 37,2001 Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z 001573,000109: 37,2001 BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF). 001574,000110: # REGISTER 7 IS A ZERO-SOURCE, USED BY ZL. 001575,000111: 001576,000112: 37,2001 ARUPT EQUALS 10 # INTERRUPT STORAGE 001577,000113: 37,2001 LRUPT EQUALS 11 001578,000114: 37,2001 QRUPT EQUALS 12 001579,000115: 37,2001 SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2. 001580,000116: 37,2001 ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.) 001581,000117: 37,2001 BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK. 001582,000118: 37,2001 BRUPT EQUALS 17 # RESUME ADDRESS AS WELL. 001583,000119: 001584,000120: 37,2001 CYR EQUALS 20 001585,000121: 37,2001 SR EQUALS 21 001586,000122: 37,2001 CYL EQUALS 22 001587,000123: 37,2001 EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS. 001588,000124: 001589,000125: 37,2001 TIME2 EQUALS 24 001590,000126: 37,2001 TIME1 EQUALS 25 001591,000127: 37,2001 TIME3 EQUALS 26 001592,000128: 37,2001 TIME4 EQUALS 27 001593,000129: 37,2001 TIME5 EQUALS 30 001594,000130: 37,2001 TIME6 EQUALS 31 001595,000131: 37,2001 CDUX EQUALS 32 001596,000132: 37,2001 CDUY EQUALS 33 001597,000133: 37,2001 CDUZ EQUALS 34 001598,000134: 37,2001 CDUT EQUALS 35 # REND RADAR TRUNNION CDU 001599,000135: 37,2001 0000035 OPTY = CDUT 001600,000136: 37,2001 CDUS EQUALS 36 # REND RADAR SHAFT CDU 001601,000137: 37,2001 0000036 OPTX = CDUS 001602,000138: 37,2001 PIPAX EQUALS 37 001603,000139: 37,2001 PIPAY EQUALS 40 001604,000140: 37,2001 PIPAZ EQUALS 41 001605,000141: 37,2001 BMAGX EQUALS 42 001606,000142: 37,2001 BMAGY EQUALS 43 001607,000143: 37,2001 BMAGZ EQUALS 44 001608,000144: 37,2001 INLINK EQUALS 45 001609,000145: 37,2001 RNRAD EQUALS 46 001610,000146: 37,2001 GYROCTR EQUALS 47 001611,000147: 37,2001 GYROCMD EQUALS 47 001612,000148: 37,2001 CDUXCMD EQUALS 50 001613,000149: 37,2001 CDUYCMD EQUALS 51 001614,000150: # Page 40 001615,000151: 37,2001 CDUZCMD EQUALS 52 001616,000152: 37,2001 CDUTCMD EQUALS 53 # OPTICS TRUNNION COMMAND (WAS OPTYCMD) 001617,000153: 37,2001 0000053 OPTYCMD = CDUTCMD 001618,000154: 37,2001 0000053 TVCYAW EQUALS CDUTCMD # SPS YAW COMMAND IN TVC MODE 001619,000155: 37,2001 CDUSCMD EQUALS 54 # OPTICS SHAFT COMMAND (WAS OPTXCMD). 001620,000156: 37,2001 0000054 TVCPITCH EQUALS CDUSCMD # SPS PITCH COMMAND IN TVC MODE 001621,000157: 37,2001 0000054 OPTXCMD = CDUSCMD 001622,000158: 37,2001 EMSD EQUALS 55 001623,000159: 37,2001 THRUST EQUALS 55 001624,000160: 37,2001 LEMONM EQUALS 56 001625,000161: 37,2001 OUTLINK EQUALS 57 001626,000162: 37,2001 ALTM EQUALS 60 001627,000163: 001628,000164: # INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA. 001629,000165: 001630,000166: 37,2001 LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT 001631,000167: 37,2001 LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT. 001632,000168: 37,2001 X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTER RELATIVE 001633,000169: 37,2001 X2 EQUALS 39D # TO THE WORK AREA. 001634,000170: 37,2001 S1 EQUALS 40D 001635,000171: 37,2001 S2 EQUALS 41D 001636,000172: 37,2001 QPRET EQUALS 42D 001637,000173: 001638,000174: # Page 41 001639,000175: # INPUT/OUTPUT CHANNELS 001640,000176: 001641,000177: # *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. *** 001642,000178: 37,2001 0000001 LCHAN EQUALS L 001643,000179: 37,2001 0000002 QCHAN EQUALS Q 001644,000180: 37,2001 HISCALAR EQUALS 3 001645,000181: 37,2001 LOSCALAR EQUALS 4 001646,000182: 37,2001 PYJETS EQUALS 5 001647,000183: 37,2001 ROLLJETS EQUALS 6 001648,000184: 37,2001 SUPERBNK EQUALS 7 001649,000185: 37,2001 OUT0 EQUALS 10 001650,000186: 37,2001 DSALMOUT EQUALS 11 001651,000187: 37,2001 CHAN12 EQUALS 12 001652,000188: 37,2001 CHAN13 EQUALS 13 001653,000189: 37,2001 CHAN14 EQUALS 14 001654,000190: 37,2001 MNKEYIN EQUALS 15 001655,000191: 37,2001 NAVKEYIN EQUALS 16 001656,000192: 37,2001 CHAN30 EQUALS 30 001657,000193: 37,2001 CHAN31 EQUALS 31 001658,000194: 37,2001 CHAN32 EQUALS 32 001659,000195: 37,2001 CHAN33 EQUALS 33 001660,000196: 37,2001 DNTM1 EQUALS 34 001661,000197: 37,2001 DNTM2 EQUALS 35 001662,000198: 001663,000199: # END OF CHANNEL ASSIGNMENTS 001664,000200: 001665,000201: # Page 42 001666,000202: 001667,000203: # FLAGWORDS 001668,000204: 001669,000205: # FLAGWRD0 STATE +0 (000-014) 001670,000206: # FLAGWRD1 STATE +1 (015-029) 001671,000207: # FLAGWRD2 STATE +2 (030-044) 001672,000208: # FLAGWRD3 STATE +3 (045-059) 001673,000209: # FLAGWRD4 STATE +4 (060-074) 001674,000210: # FLAGWRD5 STATE +5 (075-089) 001675,000211: # FLAGWRD6 STATE +6 (090-104) 001676,000212: # FLAGWRD7 STATE +7 (105-119) 001677,000213: # FLAGWRD8 STATE +8D (120-134) 001678,000214: # FLAGWRD9 STATE +9D (135-149) 001679,000215: 001680,000216: # SORTED LIST OF 001681,000217: # INTERPRETIVE SWITCH BIT ASSIGNMENTS 001682,000218: 001683,000219: # INTERPRETIVE SWITCH BIT ASSIGNMENTS 001684,000220: 001685,000221: # FLAGWORD DEC NUM BIT & FLAG EQUIVALENT FLAGWORDS 001686,000222: 001687,000223: # 22DSPFLG 032D BIT 13 FLAG 2 001688,000224: # 360SW 134D BIT 1 FLAG 8 001689,000225: # 3AXISFLG 084D BIT 6 FLAG 5 001690,000226: # ADVTRK 125D BIT 10 FLAG 8 001691,000227: # APSESW 130D BIT 5 FLAG 8 001692,000228: # ASTNFLAG 108D BIT 12 FLAG 7 001693,000229: # ATTCHFLG 118D BIT 2 FLAG 7 001694,000230: # AVEGFLAG 029D BIT 1 FLAG 1 001695,000231: # AVEMIDSW 149D BIT 1 FLAG 9 001696,000232: # AVFLAG 040D BIT 5 FLAG 2 001697,000233: # CALCMAN2 043D BIT 2 FLAG 2 001698,000234: # CALCMAN3 042D BIT 2 FLAG 2 001699,000235: # (garbled) 001700,000236: # CMOONFLG 123D BIT 12 FLAG 8 001701,000237: # CM/DSTBY 103D BIT 2 FLAG 8 001702,000238: # COGAFLAG 131D BIT 4 FLAG 8 001703,000239: # COMPUTER 082D BIT 8 FLAG 5 001704,000240: # CPHIFLAG 000D BIT 15 FLAG 0 001705,000241: # CULTFLAG 053D BIT 7 FLAG 3 001706,000242: # CYCLESW 035D BIT 10 FLAG 2 001707,000243: # D6OR9FLG 058D BIT 2 FLAG 3 001708,000244: # DAPBIT1 090D BIT 15 FLAG 6 001709,000245: # DAPBIT2 091D BIT 14 FLAG 6 001710,000246: # DIM0FLAG 059D BIT 1 FLAG 3 001711,000247: # DMENFLAG 081D BIT 9 FLAG 5 001712,000248: # DRIFTFLG 030D BIT 15 FLAG 2 001713,000249: # DSKYFLAG 075D BIT 15 FLAG 5 001714,000250: # Page 43 001715,000251: # EGSW 097D BIT 8 FLAG 6 KNOTNFLG R57FLAG 001716,000252: # ENG1FLAG 018D BIT 12 FLAG 1 001717,000253: # ENG2FLAG 019D BIT 11 FLAG 1 001718,000254: # ENGONFLG 083D BIT 7 FLAG 5 001719,000255: # ERADFLAG 017D BIT 13 FLAG 1 001720,000256: # ETPIFLAG 038D BIT 7 FLAG 2 FIRSTFLG OPTNSW 001721,000257: # F2RTE 010D BIT 5 FLAG 0 001722,000258: # FINALFLG 039D BIT 6 FLAG 2 001723,000259: # FIRSTFLG 036D BIT 7 FLAG 2 ETPIFLAG OPTNSW 001724,000260: # FREEFLAG 012D BIT 3 FLAG 0 001725,000261: # GAMDIFSW 094D BIT 11 FLAG 6 001726,000262: # GLOKFAIL 046D BIT 14 FLAG 3 001727,000263: # GMBDRVSW 095D BIT 10 FLAG 6 GONEPAST 001728,000264: # GONEBY 112D BIT 8 FLAG 7 001729,000265: # GONEPAST 095D BIT 10 FLAG 6 001730,000266: # GRRBKFLG 065D BIT 5 FLAG 5 001731,000267: # GUESSW 028D BIT 2 FLAG 1 001732,000268: # GYMDIFSW 104D BIT 1 FLAG 6 001733,000269: # H05GSW 102D BIT 3 FLAG 6 001734,000270: # HIND 099D BIT 6 FLAG 6 001735,000271: # IDLEFAIL 024D BIT 6 FLAG 1 001736,000272: # IDLEFLAG 113D BIT 7 FLAG 7 001737,000273: # IGNFLAG 107D BIT 13 FLAG 7 001738,000274: # IMPULSW 036D BIT 9 FLAG 2 001739,000275: # IMUSE 007D BIT 8 FLAG 0 001740,000276: # INCORFLG 079D BIT 11 FLAG 5 001741,000277: # INFINFLG 128D BIT 7 FLAG 8 001742,000278: # INRLSW 100D BIT 5 FLAG 5 001743,000279: # INTFLAG 151D BIT 14 FLAG 15 001744,000280: # INTYPFLG 056D BIT 4 FLAG 3 001745,000281: # ITSWICH 106D BIT 14 FLAG 7 001746,000282: # KFLAG 014D BIT 1 FLAG 0 001747,000283: # KNOWNFLG 097D BIT 8 FLAG 8 EGSW R57FLAG 001748,000284: # LATSW 101D BIT 4 FLAG 5 001749,000285: # LMOONFLG 124D BIT 11 FLAG 8 001750,000286: # LUNAFLAG 048D BIT 12 FLAG 3 001751,000287: # MAXDBFLG 138D BIT 12 FLAG 9 001752,000288: # MCLVFLAG 068D BIT 2 FLAG 5 001753,000289: # MID1FLAG 147D BIT 3 FLAG 9 001754,000290: # MIDAVFLG 148D BIT 2 FLAG 9 001755,000291: # MIDFLAG 002D BIT 13 FLAG 0 001756,000292: # MKOVFLAG 072D BIT 3 FLAG 4 001757,000293: # MOONFLAG 003D BIT 12 FLAG 0 001758,000294: # MRKIDFLG 060D BIT 15 FLAG 4 001759,000295: # MRKNVFLG 066D BIT 9 FLAG 4 001760,000296: # MRUPTFLG 070D BIT 5 FLAG 4 001761,000297: # MWAITFLG 064D BIT 11 FLAG 4 001762,000298: # N22ORN17 144D BIT 6 FLAG 9 001763,000299: # NEEDLFLG 006D BIT 9 FLAG 0 001764,000300: # NEWIFLG 122D BIT 13 FLAG 8 001765,000301: # Page 44 001766,000302: # NJETSFLG 015D BIT 15 FLAG 1 001767,000303: # NODOFLAG 044D BIT 1 FLAG 2 001768,000304: # NORFHOR 004D BIT 11 FLAG 0 001769,000305: # NORMSW 110D BIT 10 FLAG 7 001770,000306: # NOSWITCH 098D BIT 7 FLAG 6 001771,000307: # NRMIDFLG 062D BIT 13 FLAG 4 001772,000308: # NRMNVFLG 067D BIT 6 FLAG 4 001773,000309: # NRUPTFLG 071D BIT 4 FLAG 4 001774,000310: # NTARGFLG 102D BIT 3 FLAG 6 001775,000311: # NWAITFLG 065D BIT 10 FLAG 4 001776,000312: # OPTNSW 038D BIT 7 FLAG 2 ETPIFLAG FIRSTFLG 001777,000313: # ORBWFLAG 054D BIT 6 FLAG 3 001778,000314: # ORDERSW 129D BIT 6 FLAG 8 001779,000315: # P22MKFLG 049D BIT 11 FLAG 3 001780,000316: # P39/79SW 126D BIT 9 FLAG 8 001781,000317: # PDSPFLAG 063D BIT 12 FLAG 4 001782,000318: # PFRATFLG 041D BIT 4 FLAG 2 001783,000319: # PINBRFLG 069D BIT 6 FLAG 4 001784,000320: # PRECIFLG 052D BIT 8 FLAG 3 001785,000321: # PRFTRKAT 060D BIT 10 FLAG 5 001786,000322: # PRIODFLG 061D BIT 13 FLAG 4 001787,000323: # PRONVFLG 068D BIT 7 FLAG 4 001788,000324: # QUITFLAG 145D BIT 5 FLAG 9 001789,000325: # R21MARK 031D BIT 14 FLAG 2 001790,000326: # R22CAFLG 143D BIT 7 FLAG 9 001791,000327: # R23FLG 021D BIT 9 FLAG 1 001792,000328: # R31FLAG 146D BIT 4 FLAG 9 001793,000329: # R53FLAG 009D BIT 6 FLAG 0 001794,000330: # R57FLAG 097D BIT 8 FLAG 6 KNOWNFLG EGSW 001795,000331: # R60FLAG 086D BIT 4 FLAG 5 001796,000332: # REFSMFLG 047D BIT 13 FLAG 3 001797,000333: # REINTFLG 158D BIT 7 FLAG 10 001798,000334: # RELVELSW 096D BIT 9 FLAG 6 001799,000335: # RENDWFLG 089D BIT 1 FLAG 5 001800,000336: # RNDVZFLG 008D BIT 7 FLAG 0 001801,000337: # RPQFLAG 120D BIT 15 FLAG 6 001802,000338: # RVSW 111D BIT 9 FLAG 7 001803,000339: # SAVECFLG 140D BIT 10 FLAG 9 001804,000340: # SLOPESW 027D BIT 3 FLAG 1 001805,000341: # SOLNSW 087D BIT 3 FLAG 5 001806,000342: # SOURCFLG 142D BIT 8 FLAG 9 001807,000343: # STATEFLG 055D BIT 5 FLAG 3 001808,000344: # STEERSW 034D BIT 11 FLAG 2 001809,000345: # STIKFLAG 016D BIT 14 FLAG 1 001810,000346: # STRULLSW 092D BIT 13 FLAG 6 001811,000347: # SURFFLAG 127D BIT 8 FLAG 8 001812,000348: # SWTOVER 135D BIT 15 FLAG 9 001813,000349: # TARG1FLG 020D BIT 10 FLAG 1 001814,000350: # TARG2FLG 021D BIT 9 FLAG 1 001815,000351: # TERMIFLG 105D BIT 15 FLAG 7 001816,000352: # Page 45 001817,000353: # TFFSW 119D BIT 1 FLAG 7 001818,000354: # TIMRFLAG 109D BIT 11 FLAG 7 001819,000355: # TRACKFLG 025D BIT 5 FLAG 1 001820,000356: # TRM03FLG 026D BIT 4 FLAG 1 001821,000357: # TRUNFLAG 011D BIT 4 FLAG 0 001822,000358: # UPDATFLG 023D BIT 7 FLAG 1 001823,000359: # UPLOCKFL 116D BIT 4 FLAG 7 001824,000360: # V37FLAG 114D BIT 6 FLAG 7 001825,000361: # V59FLAG 078D BIT 12 FLAG 5 001826,000362: # V67FLAG 136D BIT 14 FLAG 9 001827,000363: # V82EMFLG 137D BIT 13 FLAG 9 001828,000364: # V94FLAG 139D BIT 11 FLAG 9 001829,000365: # VEHUPFLG 022D BIT 8 FLAG 1 001830,000366: # VERIFLAG 117D BIT 3 FLAG 7 001831,000367: # VFLAG 050D BIT 10 FLAG 3 001832,000368: # VHFRFLAG 141D BIT 9 FLAG 9 001833,000369: # VINTFLAG 067D BIT 3 FLAG 3 001834,000370: # XDELVFLG 037D BIT 8 FLAG 2 001835,000371: # XDSPFLAG 074D BIT 1 FLAG 4 001836,000372: 001837,000373: # Page 46 001838,000374: 001839,000375: 37,2001 0074 FLAGWRD0 = STATE +0 # (000-014) 001840,000376: # (SET) (RESET) 001841,000377: # BIT 15 FLAG 0 001842,000378: 37,2001 CPHIFLAG = 000D # OUTPUT OF CALCGA IS OUTPUT OF CALCGA IS 001843,000379: # CPHIX THETAD 001844,000380: 37,2001 4674 CPHIBIT = BIT15 001845,000381: 001846,000382: # BIT 14 FLAG 0 001847,000383: 37,2001 JSWITCH = 001D # INTEGRATION OF W INTEGRATION OF STATE 001848,000384: # MATRIX VECTOR 001849,000385: 37,2001 4675 JSWCHBIT = BIT14 001850,000386: 001851,000387: # BIT 13 FLAG 0 001852,000388: 37,2001 MIDFLAG = 002D # INTEGRATION WITH INTEGRATION WITHOUT 001853,000389: # SOLAR PERTURBATIONS SOLAR PERTURBATIONS 001854,000390: 001855,000391: 37,2001 4676 MIDFLBIT = BIT13 001856,000392: 001857,000393: # BIT 12 FLAG 0 001858,000394: 37,2001 MOONFLAG = 003D # MOON IS SPHERE OF EARTH IS SPHERE OF 001859,000395: # INFLUENCE INFLUENCE 001860,000396: 001861,000397: 37,2001 4677 MOONBIT = BIT12 001862,000398: 001863,000399: # BIT 11 FLAG 0 001864,000400: 37,2001 NORFHOR = 004D # FAR HORIZON NEAR HORIZON 001865,000401: 001866,000402: 37,2001 4700 NORFBIT = BIT11 001867,000403: 001868,000404: # BIT 10 FLAG 0 001869,000405: 37,2001 ZMEASURE = 005D # MEASUREMENT PLANET MEASUREMENT PLANET 001870,000406: # AND PRIMARY PLANET AND PRIMARY PLANET 001871,000407: # DIFFERENT SAME 001872,000408: 001873,000409: 37,2001 4701 ZMEASBIT = BIT10 001874,000410: 001875,000411: # BIT 9 FLAG 0 001876,000412: 37,2001 NEEDLFLG = 006D # TOTAL ATTITUDE A/P FOLLOWING ERROR 001877,000413: # ERROR DISPLAYED DISPLAYED 001878,000414: 001879,000415: 37,2001 4702 NEEDLBIT = BIT9 001880,000416: 001881,000417: # BIT 8 FLAG 0 001882,000418: 37,2001 IMUSE = 007D # IMU IN USE IMU NOT IN USE 001883,000419: # Page 47 001884,000420: 37,2001 4703 IMUSEBIT = BIT8 001885,000421: 001886,000422: # BIT 7 FLAG 0 001887,000423: 37,2001 RNDVZFLG = 008D # P20 RUNNING P20 NOT RUNNING 001888,000424: 001889,000425: 37,2001 4704 RNDVZBIT = BIT7 001890,000426: 001891,000427: # BIT 6 FLAG 0 001892,000428: 37,2001 R53FLAG = 009D # V51 INITIATED V51 NOT INITIATED 001893,000429: 001894,000430: 37,2001 4703 R53FLBIT = BIT8 001895,000431: 001896,000432: # BIT 5 FLAG 0 001897,000433: 37,2001 F2RTE = 010D # IN TIME CRITICAL NOT IN TIME CRITICAL 001898,000434: # MODE MODE 001899,000435: 001900,000436: 37,2001 4706 F2RTEBIT = BIT5 001901,000437: 001902,000438: # BIT 4 FLAG 0 001903,000439: 37,2001 TRUNFLAG = 011D # DRIVING OF TRUNNION DRIVING OF TRUNNION 001904,000440: # ALLOWED NOT ALLOWED 001905,000441: 001906,000442: 37,2001 4707 TRUNBIT = BIT4 001907,000443: 001908,000444: # BIT 3 FLAG 0 001909,000445: 37,2001 FREEFLAG = 012D # (TEMPORARY FLAG USED IN MANY ROUTINES) 001910,000446: 001911,000447: 37,2001 4710 FREEFBIT = BIT3 001912,000448: 001913,000449: # BIT 2 FLAG 0 001914,000450: 37,2001 = 13D 001915,000451: 001916,000452: # BIT 1 FLAG 0 001917,000453: 37,2001 KFLAG = 014D # SEARCH SECTOR MORE SEARCH SECTOR LESS 001918,000454: # THAN 180 DEGREES THAN 180 DEGREES 001919,000455: 001920,000456: 37,2001 4712 KBIT = BIT1 001921,000457: 001922,000458: 37,2001 0075 FLAGWRD1 = STATE +1 # (015-029) 001923,000459: # (SET) (RESET) 001924,000460: 001925,000461: # BIT 15 FLAG 1 001926,000462: 37,2001 NJETSFLG = 015D # TWO JET RCS BURN FOUR JET RCS BURN 001927,000463: 001928,000464: 37,2001 4674 NJETSBIT = BIT15 001929,000465: 001930,000466: # BIT 14 FLAG 1 001931,000467: 37,2001 STIKFLAG = 016D # RHC CONTROL CMC CONTROL 001932,000468: # Page 48 001933,000469: 37,2001 4675 STIKBIT = BIT14 001934,000470: 001935,000471: # BIT 13 FLAG 1 001936,000472: 37,2001 ERADFLAG = 017D # EARTH, COMPUTE EARTH, USED FIXED 001937,000473: # FISCHER ELLIPSOID RADIUS 001938,000474: # RADIUS 001939,000475: # MOON, USE FIXED MOON, USE RLS FOR 001940,000476: # RADIUS LUNAR RADIUS 001941,000477: 001942,000478: 37,2001 4676 ERADFBIT = BIT13 001943,000479: 001944,000480: # BIT 12 FLAG 1 001945,000481: 37,2001 = 018D 001946,000482: 001947,000483: # BIT 11 FLAG 1 001948,000484: 37,2001 ENG2FLAG = 019D # RCS BURN SPS BURN 001949,000485: 001950,000486: 37,2001 4700 ENG2BIT = BIT11 001951,000487: 001952,000488: # BIT 10 FLAG 1 001953,000489: 37,2001 TARG1FLG = 020D # SIGHTING LEM NOT SIGHTING LEM 001954,000490: 001955,000491: 37,2001 4701 TARG1BIT = BIT10 001956,000492: 001957,000493: # BIT 9 FLAG 1 001958,000494: 37,2001 TARG2FLG = 021D # SIGHTING LANDMARK SIGHTING STAR 001959,000495: 001960,000496: 37,2001 4702 TARG2BIT = BIT9 001961,000497: 001962,000498: # BIT 9 FLAG 1 001963,000499: 37,2001 R23FLG = 021D # R23 MARKING 001964,000500: 001965,000501: 37,2001 4702 R23BIT = BIT9 001966,000502: 001967,000503: # BIT 8 FLAG 1 001968,000504: 37,2001 VEHUPFLG = 022D # CSM STATE VECTOR LEM STATE VECTOR 001969,000505: # BEING UPDATED BEING UPDATED 001970,000506: 001971,000507: 37,2001 4703 VEHUPBIT = BIT8 001972,000508: 001973,000509: # BIT 7 FLAG 1 001974,000510: 37,2001 UPDATFLG = 023D # UPDATING BY MARKS UPDATING BY MARKS 001975,000511: # ALLOWED NOT ALLOWED 001976,000512: 001977,000513: 37,2001 4704 UPDATBIT = BIT7 001978,000514: 001979,000515: # BIT 6 FLAG 1 001980,000516: # Page 49 001981,000517: 37,2001 IDLEFAIL = 024D # INHIBIT R41 ENABLE R41 (ENGFAIL) 001982,000518: 001983,000519: 37,2001 4705 IDLEBIT = BIT6 001984,000520: 001985,000521: # BIT 5 FLAG 1 001986,000522: 37,2001 TRACKFLG = 025D # TRACKING ALLOWED TRACKING NOT ALLOWED 001987,000523: 001988,000524: 37,2001 4706 TRACKBIT = BIT5 001989,000525: 001990,000526: # BIT 4 FLAG 1 001991,000527: 37,2001 TRM03FLG = 026D # REQUEST TO NO REQUEST TO 001992,000528: # TERMINATE P03 HAS TERMINATE P03 HAS 001993,000529: # BEEN ENTERED BEEN ENTERED 001994,000530: 001995,000531: 37,2001 4707 TRM03BIT = BIT4 001996,000532: 001997,000533: # BIT 3 FLAG 1 001998,000534: 37,2001 SLOPESW = 027D # ITERATE WITH BIAS ITERATE WITH REGULA 001999,000535: # METHOD IN ITERATOR FALSI METHOD IN 002000,000536: # ITERATOR 002001,000537: 002002,000538: 37,2001 4710 SLOPEBIT = BIT3 002003,000539: 002004,000540: # BIT 2 FLAG 1 002005,000541: 37,2001 GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR 002006,000542: # FOR ITERATION ITERATION EXISTS 002007,000543: 002008,000544: 37,2001 4711 GUESSBIT = BIT2 002009,000545: 002010,000546: # BIT 1 FLAG 1 002011,000547: 37,2001 AVEGFLAG = 029D # AVERAGEG (SERVICER) AVERAGEG (SERVICER) 002012,000548: # TO CONTINUE TO CEASE 002013,000549: 002014,000550: 37,2001 4712 AVEGBIT = BIT1 002015,000551: 002016,000552: 37,2001 0076 FLAGWRD2 = STATE +2 # (030-044) 002017,000553: 002018,000554: # BIT 15 FLAG 2 002019,000555: 37,2001 DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO 002020,000556: # COMPENSATION COMPENSATION 002021,000557: 002022,000558: 37,2001 4674 DRFTBIT = BIT15 002023,000559: 002024,000560: # BIT 14 FLAG 2 002025,000561: 37,2001 R21MARK = 031D # OPTION ONE FOR OPTION TWO FOR 002026,000562: # MARKRUPT MARKRUPT 002027,000563: 002028,000564: 37,2001 4675 R21BIT = BIT14 002029,000565: 002030,000566: # Page 50 002031,000567: # BIT 13 FLAG 2 002032,000568: 37,2001 22DSPFLG = 032D # DISPLAY DR,DV DO NOT DISPLAY DR,DV 002033,000569: 002034,000570: 37,2001 4676 22DSPBIT = BIT13 002035,000571: 002036,000572: # BIT 12 FLAG 2 002037,000573: 37,2001 = 033D 002038,000574: 002039,000575: # BIT 11 FLAG 2 002040,000576: 37,2001 STEERSW = 034D # STEERING TO BE DONE STEERING OMITTED 002041,000577: 002042,000578: 37,2001 4700 STEERBIT = BIT11 002043,000579: 002044,000580: # BIT 10 FLAG 2 002045,000581: 37,2001 CYCLESW = 035D # VG CALCULATION TO VG CALCULATION 002046,000582: # BE DONE OMITTED 002047,000583: 002048,000584: 37,2001 4701 CYCLEBIT = BIT10 002049,000585: 002050,000586: # BIT 9 FLAG 2 002051,000587: 37,2001 IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO 002052,000588: # BURN (CUTOFF TIME CUTOFF TIME YET 002053,000589: # SPECIFIED) AVAILABLE) 002054,000590: 002055,000591: 37,2001 4702 IMPULBIT = BIT9 002056,000592: 002057,000593: # BIT 8 FLAG 2 002058,000594: 37,2001 XDELVFLG = 037D # EXTERNAL DELTAV VG LAMBERT (AIMPOINT) 002059,000595: # COMPUTATION VG COMPUTATION 002060,000596: 002061,000597: 37,2001 4703 XDELVBIT = BIT8 002062,000598: 002063,000599: # BIT 7 FLAG 2 002064,000600: 37,2001 ETPIFLAG = 038D # ELEVATION ANGLE TPI TIME SUPPLIED 002065,000601: # SUPPLIED FOR P34,74 FOR P34,74 002066,000602: 002067,000603: # BIT 7 FLAG 2 002068,000604: 37,2001 0000046 FIRSTFLG = ETPIFLAG # SUCCEEDING PASS FIRST PASS THRU 002069,000605: # THRU S40.9 S40.9 002070,000606: 002071,000607: 37,2001 4704 FIRSTBIT = BIT7 002072,000608: 002073,000609: # BIT 7 FLAG 2 002074,000610: 37,2001 0000046 OPTNSW = ETPIFLAG # SOI PHASE P38/P78 SOR PHASE OF P38/P78 002075,000611: 002076,000612: 37,2001 4705 FINALBIT = BIT6 002077,000613: 002078,000614: # BIT 6 FLAG 2 002079,000615: # Page 51 002080,000616: 37,2001 FINALFLG = 039D # LAST PASS THROUGH INTERIM PASS THROUGH 002081,000617: # RENDEZVOUS PROGRAM RENDEZVOUS PROGRAM 002082,000618: # COMPUTATIONS COMPUTATIONS 002083,000619: 002084,000620: 37,2001 4706 AVFLBIT = BIT5 002085,000621: 002086,000622: # BIT 5 FLAG 2 002087,000623: 37,2001 AVFLAG = 040D # LEM IS ACTIVE CSM IS ACTIVE 002088,000624: # VEHICLE VEHICLE 002089,000625: 002090,000626: # BIT 4 FLAG 2 002091,000627: 37,2001 PFRATFLG = 041D # PREFERRED ATTITUDE PREFERRED ATTITUDE 002092,000628: # COMPUTED NOT COMPUTED 002093,000629: 002094,000630: 37,2001 4707 PFRATBIT = BIT4 002095,000631: 002096,000632: # BIT 3 FLAG 2 002097,000633: 37,2001 CALCMAN3 = 042D # NO FINAL ROLL FINAL ROLL IS 002098,000634: # NECESSARY 002099,000635: 002100,000636: 37,2001 4710 CALC3BIT = BIT3 002101,000637: 002102,000638: # BIT 2 FLAG 2 002103,000639: 37,2001 CALCMAN2 = 043D # PERFORM MANEUVER BYPASS STARTING 002104,000640: # STARTING PROCEDURE PROCEDURE 002105,000641: 002106,000642: 37,2001 4711 CALC2BIT = BIT2 002107,000643: 002108,000644: # BIT 1 FLAG 2 002109,000645: 37,2001 NODOFLAG = 044D # V37 NOT PERMITTED V37 PERMITTED 002110,000646: 002111,000647: 37,2001 4712 NODOBIT = BIT1 002112,000648: 002113,000649: 37,2001 0077 FLAGWRD3 = STATE +3 # (045-059) 002114,000650: # (SET) (RESET) 002115,000651: 002116,000652: # BIT 15 FLAG 3 002117,000653: 37,2001 = 045D 002118,000654: 002119,000655: # BIT 14 FLAG 3 002120,000656: 37,2001 GLOKFAIL = 046D # GIMBAL LOCK HAS NOT IN GIMBAL LOCK 002121,000657: # OCCURRED 002122,000658: 002123,000659: 37,2001 4675 GLOKFBIT = BIT14 002124,000660: 002125,000661: # BIT 13 FLAG 3 002126,000662: 37,2001 REFSMFLG = 047D # REFSMMAT GOOD REFSMMAT NO GOOD 002127,000663: # Page 52 002128,000664: 37,2001 4676 REFSMBIT = BIT13 002129,000665: 002130,000666: # BIT 12 FLAG 3 002131,000667: 37,2001 LUNAFLAG = 048D # LUNAR LAT-LONG EARTH LAT-LONG 002132,000668: 002133,000669: 37,2001 4677 LUNABIT = BIT12 002134,000670: 002135,000671: # BIT 11 FLAG 3 002136,000672: 37,2001 P22MKFLG = 049D # P22 DOWNLINKED MARK P22 DOWNLINK MARK 002137,000673: # DATA WAS JUST TAKEN DATA NOT JUST TAKEN 002138,000674: 002139,000675: 37,2001 4700 P22MKBIT = BIT11 002140,000676: 002141,000677: # BIT 10 FLAG 3 002142,000678: 37,2001 VFLAG = 050D # LESS THAN TWO STARS TWO STARS IN FIELD 002143,000679: # IN FIELD OF VIEW OF VIEW 002144,000680: 002145,000681: 37,2001 4701 VFLAGBIT = BIT10 002146,000682: 002147,000683: # BIT 9 FLAG 3 002148,000684: 37,2001 = 051D 002149,000685: 002150,000686: # BIT 8 FLAG 3 002151,000687: 37,2001 PRECIFLG = 052D # CSMPREC OR LEMPREC INTEGRV OR INTEGRVS 002152,000688: # CALLED CALLED 002153,000689: 002154,000690: 37,2001 4703 PRECIBIT = BIT8 002155,000691: 002156,000692: # BIT 7 FLAG 3 002157,000693: 37,2001 CULTFLAG = 053D # STAR OCCULTED STAR NOT OCCULTED 002158,000694: 002159,000695: 37,2001 4704 CULTBIT = BIT7 002160,000696: 002161,000697: # BIT 6 FLAG 3 002162,000698: 37,2001 ORBWFLAG = 054D # W MATRIX VALID FOR W MATRIX INVALID FOR 002163,000699: # ORBITAL NAVIGATION ORBITAL NAVIGATION 002164,000700: 002165,000701: 37,2001 4705 ORBWFBIT = BIT6 002166,000702: 002167,000703: # BIT 5 FLAG 3 002168,000704: 37,2001 STATEFLG = 055D # PERMANENT STATE PERMANENT STATE 002169,000705: # VECTOR UPDATED VECTOR NOT UPDATED 002170,000706: 002171,000707: 37,2001 4706 STATEBIT = BIT5 002172,000708: 002173,000709: # BIT 4 FLAG 3 002174,000710: 37,2001 INTYPFLG = 056D # CONIC INTEGRATION ENCKE INTEGRATION 002175,000711: 002176,000712: 37,2001 4707 INTYBIT = BIT4 002177,000713: 002178,000714: # Page 53 002179,000715: # BIT 3 FLAG 3 002180,000716: 37,2001 VINTFLAG = 057D # CSM STATE VECTOR LEM STATE VECTOR 002181,000717: # BEING INTEGRATED BEING INTEGRATED 002182,000718: 002183,000719: 37,2001 4710 VINTFBIT = BIT3 002184,000720: 002185,000721: # BIT 2 FLAG 3 002186,000722: 37,2001 D6OR9FLG = 058D # DIMENSION OF W IS 9 DIMENSION OF W IS 6 002187,000723: # FOR INTEGRATION FOR INTEGRATION 002188,000724: 002189,000725: 37,2001 4711 D6OR9BIT = BIT2 002190,000726: 002191,000727: # BIT 1 FLAG 3 002192,000728: 37,2001 DIM0FLAG = 059D # W MATRIX IS TO BE W MATRIX IS NOT TO 002193,000729: # USED BE USED 002194,000730: 002195,000731: 37,2001 0100 FLAGWRD4 = STATE +4 # (060-074) 002196,000732: # (SET) (RESET) 002197,000733: 002198,000734: 37,2001 4712 DIM0BIT = BIT1 002199,000735: 002200,000736: # BIT 15 FLAG 4 002201,000737: 37,2001 MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN 002202,000738: # ENDIDLE ENDIDLE 002203,000739: 002204,000740: 37,2001 4674 MRKIDBIT = BIT15 002205,000741: 002206,000742: # BIT 14 FLAG 4 002207,000743: 37,2001 PRIODFLG = 061D # PRIORITY DISPLAY IN NO PRIORITY DISPLAY 002208,000744: # ENDIDLE IN ENDIDLE 002209,000745: 002210,000746: 37,2001 4675 PRIODBIT = BIT14 002211,000747: 002212,000748: # BIT 13 FLAG 4 002213,000749: 37,2001 NRMIDFLG = 062D # NORMAL DISPLAY IN NO NORMAL DISPLAY 002214,000750: # ENDIDLE IN ENDIDLE 002215,000751: 002216,000752: 37,2001 4676 NRMIDBIT = BIT13 002217,000753: 002218,000754: # BIT 12 FLAG 4 002219,000755: 37,2001 PDSPFLAG = 063D # CAN'T INTERRUPT SEE M. HAMILTON 002220,000756: # PRIORITY DISPLAY 002221,000757: 002222,000758: 37,2001 4677 PDSPFBIT = BIT12 002223,000759: 002224,000760: # BIT 11 FLAG 4 002225,000761: 37,2001 MWAITFLG = 064D # HIGHER PRIORITY NO HIGHER PRIORITY 002226,000762: # DISPLAY OPERATING DISPLAY OPERATING 002227,000763: # WHEN MARK DISPLAY WHEN MARK DISPLAY 002228,000764: # Page 54 002229,000765: 37,2001 4700 MWAITBIT = BIT11 002230,000766: 002231,000767: # BIT 10 FLAG 4 002232,000768: 37,2001 NWAITFLG = 065D # HIGHER PRIORITY NO HIGHER PRIORITY 002233,000769: # DISPLAY OPERATING DISPLAY OPERATING 002234,000770: # WHEN NORMAL WHEN NORMAL DISPLAY 002235,000771: # DISPLAY INITIATED INITIATED 002236,000772: 002237,000773: 37,2001 4701 NWAITBIT = BIT10 002238,000774: 002239,000775: # BIT 9 FLAG 4 002240,000776: 37,2001 MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING 002241,000777: # KEYBOARD WHEN MARK KEYBOARD WHEN MARK 002242,000778: # DISPLAY INITIATED DISPLAY INITIATED 002243,000779: 002244,000780: 37,2001 4702 MRKNVBIT = BIT9 002245,000781: 002246,000782: # BIT 8 FLAG 4 002247,000783: 37,2001 NRMNVFLG = 067D # ASTRONAUT USING ASTRONAUT NOT USING 002248,000784: # KEYBOARD WHEN KEYBOARD WHEN 002249,000785: # NORMAL DISPLAY NORMAL DISPLAY 002250,000786: # INITIATED INITIATED 002251,000787: 002252,000788: 37,2001 4703 NRMNVBIT = BIT8 002253,000789: 002254,000790: # BIT 7 FLAG 4 002255,000791: 37,2001 PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING 002256,000792: # KEYBOARD WHEN KEYBOARD WHEN 002257,000793: # PRIORITY DISPLAY PRIORITY DISPLAY 002258,000794: # INITIATED INITIATED 002259,000795: 002260,000796: 37,2001 4704 PRONVBIT = BIT7 002261,000797: 002262,000798: # BIT 6 FLAG 4 002263,000799: 37,2001 PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT 002264,000800: # INTERFERED WITH INTERFERED WITH 002265,000801: # EXISTING DISPLAY EXISTING DISPLAY 002266,000802: 002267,000803: 37,2001 4705 PINBRBIT = BIT6 002268,000804: 002269,000805: # BIT 5 FLAG 4 002270,000806: 37,2001 MRUPTFLG = 070D # MARK DISPLAY MARK DISPLAY NOT 002271,000807: # INTERRUPTED BY INTERRUPTED BY 002272,000808: # PRIORITY DISPLAY PRIORITY DISPLAY 002273,000809: 002274,000810: 37,2001 4706 MRUPTBIT = BIT5 002275,000811: 002276,000812: # BIT 4 FLAG 4 002277,000813: # Page 55 002278,000814: 37,2001 NRUPTFLG = 071D # NORMAL DISPLAY NORMAL DISPLAY NOT 002279,000815: # INTERRUPTED BY INTERRUPTED BY 002280,000816: # PRIORITY OR MARK PRIORITY OR MARK 002281,000817: # DISPLAY DISPLAY 002282,000818: 002283,000819: 37,2001 4707 NRUPTBIT = BIT4 002284,000820: 002285,000821: # BIT 3 FLAG 4 002286,000822: 37,2001 MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER 002287,000823: # NORMAL NORMAL 002288,000824: 002289,000825: 37,2001 4710 MKOVBIT = BIT3 002290,000826: 002291,000827: # BIT 2 FLAG 4 # DISPLAY BIT 002292,000828: 37,2001 = 073D # CLEARED AT INTERVALS 002293,000829: 002294,000830: # BIT 1 FLAG 4 002295,000831: 37,2001 XDSPFLAG = 074D # MARK DISPLAY NOT TO NO SPECIAL MARK 002296,000832: # BE INTERRUPTED INFORMATION 002297,000833: 002298,000834: 37,2001 4712 XDSPBIT = BIT1 002299,000835: 002300,000836: 37,2001 0101 FLAGWRD5 = STATE +5 # (075-099) 002301,000837: # (SET) (RESET) 002302,000838: 002303,000839: # BIT 15 FLAG 5 002304,000840: 37,2001 DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY 002305,000841: # DSKY 002306,000842: 002307,000843: 37,2001 4674 DSKYBIT = BIT15 002308,000844: 002309,000845: # BIT 14 FLAG 5 002310,000846: 37,2001 = 076D 002311,000847: 002312,000848: # BIT 13 FLAG 5 002313,000849: 37,2001 = 077D 002314,000850: 002315,000851: # BIT 12 FLAG 5 002316,000852: 37,2001 V59FLAG = 078D # CALIBRATING FOR NORMAL MARKING FOR 002317,000853: # P23 P23 002318,000854: 002319,000855: 37,2001 4677 V59FLBIT = BIT12 002320,000856: 002321,000857: # BIT 11 FLAG 5 002322,000858: 37,2001 INCORFLG = 079D # FIRST INCORPORATION SECOND INCORPORATION 002323,000859: 002324,000860: 37,2001 4700 INCORBIT = BIT11 002325,000861: 002326,000862: # Page 56 002327,000863: # BIT 10 FLAG 5 002328,000864: 37,2001 RNGSCFLG = 080D # ANOTHER TAG FOR PRFTRKAT 002329,000865: 002330,000866: # BIT 10 FLAG 5 002331,000867: 37,2001 0000120 PRFTRKAT = RNGSCFLG # PREF TRACK ATT +K AXIS TRACK ATT 002332,000868: 002333,000869: 37,2001 4701 PRFTRBIT = BIT10 002334,000870: 002335,000871: # BIT 9 FLAG 5 002336,000872: 37,2001 DMENFLG = 081D # DIMENSION OF W IS 9 DIMENSION OF W IS 6 002337,000873: # FOR INCORPORATION FOR INCORPORATION 002338,000874: 002339,000875: 37,2001 4702 DMENFBIT = BIT9 002340,000876: 002341,000877: # BIT 8 FLAG 5 002342,000878: 37,2001 COMPUTER = 082D # COMPUTER IS CMC COMPUTER IS LGC 002343,000879: 002344,000880: 37,2001 4703 COMPTBIT = BIT8 002345,000881: 002346,000882: # BIT 7 FLAG 5 002347,000883: 37,2001 ENGONFLG = 083D # ENGINE TURNED ON ENGINE TURNED OFF 002348,000884: 002349,000885: 37,2001 4704 ENGONBIT = BIT7 002350,000886: 002351,000887: # BIT 6 FLAG 5 002352,000888: 37,2001 3AXISFLG = 084D # MANEUVER SPECIFIED MANEUVER SPECIFIED 002353,000889: # BY THREE AXES BY ONE AXIS 002354,000890: 002355,000891: 37,2001 4705 3AXISBIT = BIT6 002356,000892: 002357,000893: # BIT 5 FLAG 5 002358,000894: 37,2001 GRRBKFLG = 085D # BACKUP GRR RECEIVED BACKUP GRR NOT 002359,000895: # RECEIVED 002360,000896: 002361,000897: 37,2001 4706 GRRBKBIT = BIT5 002362,000898: 002363,000899: # BIT 4 FLAG 5 002364,000900: 37,2001 R60FLAG = 086D # R61 MUST BE ZERO NORMAL R61 002365,000901: 002366,000902: 37,2001 4707 R60FLBIT = BIT4 002367,000903: 002368,000904: # BIT 3 FLAG 5 002369,000905: 37,2001 SOLNSW = 087D # LAMBERT DOES NOT LAMBERT CONVERGES OR 002370,000906: # CONVERGE, OR TIME- TIME-RADIUS NON 002371,000907: # RADIUS NEARLY CIRC. CIRCULAR. 002372,000908: # Page 57 002373,000909: 37,2001 4710 SOLNSBIT = BIT3 002374,000910: 002375,000911: # BIT 2 FLAG 5 002376,000912: 37,2001 MGLVFLAG = 088D # LOCAL VERTICAL MIDDLE GIMBAL ANGLE 002377,000913: # COORDINATES COMPUTED 002378,000914: # COMPUTED 002379,000915: 002380,000916: 37,2001 4711 MGLVFBIT = BIT2 002381,000917: 002382,000918: # BIT 1 FLAG 5 002383,000919: 37,2001 RENDWFLG = 089D # W MATRIX VALID W MATRIX INVALID 002384,000920: # FOR RENDEZVOUS FOR RENDEZVOUS 002385,000921: # NAVIGATION NAVIGATION 002386,000922: 002387,000923: 37,2001 4712 RENDWBIT = BIT1 002388,000924: 002389,000925: 37,2001 0102 FLAGWRD6 = STATE +6 # (090-104) 002390,000926: # (SET) (RESET) 002391,000927: 002392,000928: # BIT 15 FLAG 6 002393,000929: 37,2001 DAPBIT1 = 090D # 1 SATURN 1 TVC 0 RCS 0 NO 002394,000930: 002395,000931: 37,2001 4674 DAP1BIT = BIT15 002396,000932: 002397,000933: # BIT 14 FLAG 6 002398,000934: 37,2001 DAPBIT2 = 091D # 1 A/P 0 A/P 1 A/P 0 A/P 002399,000935: 002400,000936: 37,2001 4675 DAP2BIT = BIT14 002401,000937: 002402,000938: # BIT 13 FLAG 6 002403,000939: 37,2001 STRULLSW = 092D # DO STEERULL DO ULAGEOFF ONLY 002404,000940: 002405,000941: 37,2001 4676 STRULBIT = BIT13 002406,000942: 002407,000943: # BIT 13 FLAG 6 002408,000944: 37,2001 0000134 ENTRYDSP = STRULLSW # DO ENTRY DISPLAY OMIT ENTRY DISPLAY 002409,000945: # VIA ENTRYVN. 002410,000946: 002411,000947: 37,2001 4676 ENDSPBIT = BIT13 002412,000948: 002413,000949: # BIT 12 FLAG 6 002414,000950: 37,2001 CMDAPARM = 093D # ALLOW ENTRY FIRINGS INHIBIT ENTRY FIRING 002415,000951: # AND CALCULATIONS AND CONTROL FUNCTION 002416,000952: 002417,000953: 37,2001 4677 CMDARMBIT = BIT12 002418,000954: 002419,000955: # BIT 11 FLAG 6 002420,000956: 37,2001 GAMDIFSW = 094D # CALCULATE GAMDOT GAMDOT NOT TO BE 002421,000957: # Page 58 002422,000958: # CALCULATED 002423,000959: 002424,000960: 37,2001 4700 GMDIFBIT = BIT11 002425,000961: 002426,000962: # BIT 10 FLAG 6 002427,000963: 37,2001 GMBDRVSW = 095D # TRIMGIMB OVER TRIMGIMB NOT OVER 002428,000964: 002429,000965: 37,2001 4701 GMBDRBIT = BIT10 002430,000966: 002431,000967: # BIT 10 FLAG 6 002432,000968: 37,2001 0000137 GONEPAST = GMBDRVSW # LATERAL CONTROL LATERAL CONTROL 002433,000969: # CALCULATIONS TO BE CALCULATIONS TO BE 002434,000970: # OMITTED DONE 002435,000971: 002436,000972: 37,2001 4701 GONEBIT = BIT10 002437,000973: 002438,000974: # BIT 9 FLAG 6 002439,000975: 37,2001 RELVELSW = 096D # TARGETING USES TARGETING USES 002440,000976: # EARTH-RELATIVE INERTIAL VELOCITY 002441,000977: # VELOCITY. 002442,000978: 002443,000979: 37,2001 4702 RELVBIT = BIT9 002444,000980: 002445,000981: # BIT 8 FLAG 6 002446,000982: 37,2001 EGSW = 097D # IN FINAL PHASE NOT IN FINAL PHASE 002447,000983: 002448,000984: 37,2001 4703 EGFLGBIT = BIT8 002449,000985: 002450,000986: # BIT 8 FLAG 6 002451,000987: 37,2001 0000141 KNOWNFLG = EGSW # LANDMARK KNOWN LANDMARK UNKNOWN 002452,000988: 002453,000989: 37,2001 4703 KNOWNBIT = BIT8 002454,000990: 002455,000991: # BIT 8 FLAG 6 002456,000992: 37,2001 0000141 R57FLAG = KNOWNFLG # DO NOT DO R57 DO R57, TRUNION 002457,000993: # TRUNION BIAS HAS BIAS NEEDED 002458,000994: # BEEN OBTAINED. 002459,000995: 002460,000996: 37,2001 4703 R57BIT = BIT8 002461,000997: 002462,000998: # BIT 7 FLAG 6 002463,000999: 37,2001 NOSWITCH = 098D # LATERAL ROLL LATERAL ROLL MANEUVER 002464,001000: # MANEUVER INHIBITED PERMITTED IN ENTRY 002465,001001: # IN ENTRY 002466,001002: 002467,001003: 37,2001 4704 NOSWBIT = BIT7 002468,001004: 002469,001005: # BIT 6 FLAG 6 002470,001006: 37,2001 HIND = 099D # ITERATING HUNTEST ITERATING OF HUNTEST 002471,001007: # CALCULATIONS TO BE CALCULATIONS TO BE 002472,001008: # DONE AFTER RANGE OMITTED AFTER RANGE 002473,001009: # Page 59 002474,001010: # PREDICTION PREDICTION 002475,001011: 002476,001012: 37,2001 4705 HINDBIT = BIT6 002477,001013: 002478,001014: # BIT 5 FLAG 6 002479,001015: 37,2001 INRLSW = 100D # INITIAL ROLL INITIAL ROLL 002480,001016: # ATTITUDE NOT HELD ATTITUDE HELD 002481,001017: # V(LV) V(LV) 002482,001018: 002483,001019: 37,2001 4706 INRLBIT = BIT5 002484,001020: 002485,001021: # BIT 4 FLAG 6 002486,001022: 37,2001 LATSW = 101D # DOWNLIFT NOT DOWNLIFT INHIBITED 002487,001023: # INHIBITED 002488,001024: 002489,001025: 37,2001 4707 LATSWBIT = BIT4 002490,001026: 002491,001027: # BIT 3 FLAG 6 002492,001028: 37,2001 .05GSW = 102D # DRAG OVER .05G DRAG LESS THAN .05G 002493,001029: 002494,001030: 37,2001 4710 .05GBIT = BIT3 002495,001031: 002496,001032: # BIT 3 FLAG 6 002497,001033: 37,2001 NTARGFLG = 102D # ASTRONAUT DID ASTRONAUT DID NOT 002498,001034: # OVERWRITE DELTA OVERWRITE DELTA 002499,001035: 002500,001036: 37,2001 4710 NTARGBIT = BIT3 002501,001037: 002502,001038: # BIT 2 FLAG 6 002503,001039: 37,2001 CM/DSTBY = 103D # ENTRY DAP ACTIVATED ENTRY DAP NOT 002504,001040: # ACTIVATED 002505,001041: 002506,001042: 37,2001 4711 CM/DSBIT = BIT2 002507,001043: 002508,001044: # BIT 1 FLAG 6 002509,001045: 37,2001 GYMDIFSW = 104D # CDU DIFFERENCES AND CDU DIFFERENCES AND 002510,001046: # BODY RATES COMPUTED BODY RATES NOT 002511,001047: # COMPUTED 002512,001048: 002513,001049: 37,2001 4712 GYMDIBIT = BIT1 002514,001050: 002515,001051: 37,2001 0103 FLAGWRD7 = STATE +7 # (105-119) 002516,001052: # (SET) (RESET) 002517,001053: 002518,001054: # BIT 15 FLAG 7 002519,001055: 37,2001 TERMIFLG = 105D # TERMINATE R21,R22 DO NOT TERMINATE 002520,001056: # R21,R22 002521,001057: 002522,001058: 37,2001 4674 TERMIBIT = BIT15 002523,001059: 002524,001060: # Page 60 002525,001061: # BIT 14 FLAG 7 002526,001062: 37,2001 ITSWICH = 106D # ACCEPT NEXT LAMBERT TEST LAMBERT ANSWER 002527,001063: # TPI SEARCH SOLUTION AGAINST LIMITS 002528,001064: 002529,001065: 37,2001 4675 ITSWBIT = BIT14 002530,001066: 002531,001067: # BIT 13 FLAG 7 002532,001068: 37,2001 IGNFLAG = 107D # TIG HAS ARRIVED TIG HAS NOT ARRIVED 002533,001069: 002534,001070: 37,2001 4676 IGNFLBIT = BIT13 002535,001071: 002536,001072: # BIT 12 FLAG 7 002537,001073: 37,2001 ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT 002538,001074: # OKAYED IGNITION OKAYED IGNITION 002539,001075: 002540,001076: 37,2001 4677 ASTNBIT = BIT12 002541,001077: 002542,001078: # BIT 11 FLAG 7 002543,001079: 37,2001 TIMRFLAG = 109D # CLOKTASK OPERATING CLOKTASK INOPERATIVE 002544,001080: 002545,001081: 37,2001 4700 TIMRBIT = BIT11 002546,001082: 002547,001083: # BIT 10 FLAG 7 002548,001084: 37,2001 NORMSW = 110D # UNIT NORMAL INPUT LAMBERT COMPUTE ITS 002549,001085: # TO LAMBERT. OWN UNIT NORMAL. 002550,001086: 002551,001087: 37,2001 4701 NORMSBIT = BIT10 002552,001088: 002553,001089: # BIT 9 FLAG 7 002554,001090: 37,2001 RVSW = 111D # DO NOT COMPUTE FINAL COMPUTE FINAL STATE 002555,001091: # STATE VECTOR IN VECTOR IN TIME-THETA 002556,001092: # TIME-THETA 002557,001093: 002558,001094: 37,2001 4702 RVSWBIT = BIT9 002559,001095: 002560,001096: # BIT 8 FLAG 7 002561,001097: 37,2001 GONEBY = 112D # PASSED TARGET APPROACHING TARGET 002562,001098: 002563,001099: 37,2001 4703 GONBYBIT = BIT8 002564,001100: 002565,001101: # BIT 7 FLAG 7 002566,001102: 37,2001 IDLEFLAG = 113D # NO DV MONITOR CONNECT DV MONITOR 002567,001103: 002568,001104: 37,2001 4704 IDLEFBIT = BIT7 002569,001105: 002570,001106: # BIT 6 FLAG 7 002571,001107: 37,2001 V37FLAG = 114D # AVERAGEG (SERVICER) AVERAGEG (SERVICER) 002572,001108: # RUNNING OFF 002573,001109: # Page 61 002574,001110: 37,2001 4705 V37FLBIT = BIT6 002575,001111: 002576,001112: # BIT 5 FLAG 7 002577,001113: 37,2001 = 115D 002578,001114: 37,2001 = BIT5 002579,001115: 002580,001116: # BIT 4 FLAG 7 002581,001117: 37,2001 UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL 002582,001118: 002583,001119: 37,2001 4707 UPLOCBIT = BIT4 002584,001120: 002585,001121: # BIT 3 FLAG 7 002586,001122: 37,2001 VERIFLAG = 117D # CHANGED WHEN V33E OCCURS AT END OF P27 002587,001123: 002588,001124: 37,2001 4710 VERIFBIT = BIT3 002589,001125: 002590,001126: # BIT 2 FLAG 7 002591,001127: 37,2001 ATTCHFLG = 118D # LM,CM ATTACHED LM,CM NOT ATTACHED 002592,001128: 002593,001129: 37,2001 4711 ATTCHBIT = BIT2 002594,001130: 002595,001131: # BIT 1 FLAG 7 002596,001132: 37,2001 TFFSW = 119D # CALCULATE TPERIGEE CALCULATE TFF 002597,001133: 002598,001134: 37,2001 4712 TFFSWBIT = BIT1 002599,001135: 002600,001136: 37,2001 0074 FLAGWRD8 = STATE +8 # (120-134) 002601,001137: # (SET) (RESET) 002602,001138: 002603,001139: # BIT 15 FLAG 8 002604,001140: 37,2001 RPQFLAG = 120D # RPQ NOT COMPUTED RPQ COMPUTED 002605,001141: 002606,001142: 37,2001 4674 RPQFLBIT = BIT15 002607,001143: 002608,001144: # BIT 14 FLAG 8 002609,001145: 37,2001 = 121D 002610,001146: 002611,001147: # BIT 13 FLAG 8 002612,001148: 37,2001 NEWIFLG = 122D # FIRST PASS THROUGH SUCCEEDING ITERATION 002613,001149: # INTEGRATION OF INTEGRATION 002614,001150: 002615,001151: 37,2001 4676 NEWIBIT = BIT13 002616,001152: 002617,001153: # BIT 12 FLAG 8 002618,001154: 37,2001 CMOONFLG = 123D # PERMANENT CSM STATE PERMANENT CSM STATE 002619,001155: # IN LUNAR SPHERE IN EARTH SPHERE 002620,001156: 002621,001157: 37,2001 4677 CMOONBIT = BIT12 002622,001158: 002623,001159: # Page 62 002624,001160: # BIT 11 FLAG 8 002625,001161: 37,2001 LMOONFLG = 124D # PERMANENT LM STATE PERMANENT LM STATE 002626,001162: # IN LUNAR SPHERE IN EARTH SPHERE 002627,001163: 002628,001164: 37,2001 4700 LMOONBIT = BIT11 002629,001165: 002630,001166: # BIT 10 FLAG 8 002631,001167: 37,2001 ADVTRK = 125D # ADVANCE GROUND TRACK NOT ADVANCED 002632,001168: # SIGHTING WANTED GROUND TRACK 002633,001169: 002634,001170: 37,2001 4701 ADVTKBIT = BIT10 002635,001171: 002636,001172: # BIT 9 FLAG 8 002637,001173: 37,2001 P39/79SW = 126D # P39/79 OPERATING P38/78 OPERATING 002638,001174: 002639,001175: 37,2001 4702 P39SWBIT = BIT9 002640,001176: 002641,001177: # BIT 8 FLAG 8 002642,001178: 37,2001 SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR 002643,001179: # SURFACE 002644,001180: 002645,001181: 37,2001 4703 SURFFBIT = BIT8 002646,001182: 002647,001183: # BIT 7 FLAG 8 002648,001184: 37,2001 INFINFLG = 128D # NO CONIC SOLUTION CONIC SOLUTION 002649,001185: # (CLOSURE THROUGH EXISTS. 002650,001186: # INFINITY REQUIRED). 002651,001187: 002652,001188: 37,2001 4704 INFINBIT = BIT7 002653,001189: 002654,001190: # BIT 6 FLAG 8 002655,001191: 37,2001 ORDERSW = 129D # ITERATOR USES 2ND ITERATOR USES 1ST 002656,001192: # ORDER MINIMUM MODE ORDER STANDARD MODE 002657,001193: 002658,001194: 37,2001 4705 ORDERBIT = BIT6 002659,001195: 002660,001196: # BIT 5 FLAG 8 002661,001197: 37,2001 APSESW = 130D # RDESIRED OUTSIDE RDESIRED INSIDE 002662,001198: # PERICENTER-APOCENTER PERICENTER-APOCENTER 002663,001199: # RANGE IN TIME-RAD RANGE IN TIME-RADIUS 002664,001200: 002665,001201: 37,2001 4706 APSESBIT = BIT5 002666,001202: 002667,001203: # BIT 4 FLAG 8 002668,001204: 37,2001 COGAFLAG = 131D # NO CONIC SOLUTION CONIC SOLUTION 002669,001205: # TOO CLOSE TO EXISTS (COGA DOES 002670,001206: # RECTILINEAR (COGA NOT OVERFLOW). 002671,001207: # OVERFLOWS). 002672,001208: # Page 63 002673,001209: 37,2001 4707 COGAFBIT = BIT4 002674,001210: 002675,001211: # BIT 3 FLAG 8 002676,001212: 37,2001 = 132D 002677,001213: 002678,001214: # BIT 2 FLAG 8 002679,001215: 37,2001 = 133D 002680,001216: 002681,001217: # BIT 1 FLAG 8 002682,001218: 37,2001 360SW = 134D # TRANSFER ANGLE NEAR TRANSFER ANGLE NOT 002683,001219: # 360 DEGREES NEAR 360 DEGREES 002684,001220: 002685,001221: 37,2001 4712 360SWBIT = BIT1 002686,001222: 002687,001223: 37,2001 0105 FLAGWRD9 = STATE +9D # (135-149) 002688,001224: # (SET) (RESET) 002689,001225: 002690,001226: # BIT 15 FLAG 9 002691,001227: 37,2001 SWTOVER = 135D # SWITCHOVER HAS NO SWITCHOVER YET 002692,001228: # OCCURRED. 002693,001229: 002694,001230: 37,2001 4674 SWTOVBIT = BIT15 002695,001231: 002696,001232: # BIT 14 FLAG 9 002697,001233: 37,2001 V67FLAG = 136D # ASTRONAUT OVERWRITES ASTRONAUT DOES NOT 002698,001234: # W MATRIX INITIAL OVERWRITE INITIAL 002699,001235: # VALUES VALUES 002700,001236: 002701,001237: 37,2001 4675 V67FLBIT = BIT14 002702,001238: 002703,001239: # BIT 13 FLAG 9 002704,001240: 37,2001 V82EMFLG = 137D # MOON VICINITY EARTH VICINITY 002705,001241: 002706,001242: 37,2001 4676 V82EMBIT = BIT13 002707,001243: 002708,001244: # BIT 12 FLAG 9 002709,001245: 37,2001 MAXDBFLG = 138D # MAX DB SELECTED MIN DB SELECTED 002710,001246: 002711,001247: 37,2001 4677 MAXDBBIT = BIT12 002712,001248: 002713,001249: # BIT 11 FLAG 9 002714,001250: 37,2001 V94FLAG = 139D # V94 ALLOWED DURING V92 NOT ALLOWED 002715,001251: # P23 002716,001252: 002717,001253: 37,2001 4700 V94FLBIT = BIT11 002718,001254: 002719,001255: # Page 64 002720,001256: # BIT 10 FLAG 9 002721,001257: 37,2001 SAVECFLG = 140D # P23 DISPLAY AND P23 DISPLAY AND 002722,001258: # DATA STORAGE AFTER DATA STORAGE BEFORE 002723,001259: # MARK IS DONE MARK IS DONE 002724,001260: 002725,001261: 37,2001 4701 SAVECBIT = BIT10 002726,001262: 002727,001263: # BIT 9 FLAG 9 002728,001264: 37,2001 VHFRFLAG = 141D # ALLOW R22 TO STOP ACCEPTANCE 002729,001265: # ACCEPT RANGE OF RANGE DATA 002730,001266: # DATA 002731,001267: 002732,001268: 37,2001 4702 VHFRBIT = BIT9 002733,001269: 002734,001270: # BIT 8 FLAG 9 002735,001271: 37,2001 SOURCFLG = 142D # SOURCE OF INPUT SOURCE OF INPUT 002736,001272: # DATA IS FROM DATA IS FROM 002737,001273: # VHF RADAR OPTICS MARK 002738,001274: 002739,001275: 37,2001 4703 SOURCBIT = BIT8 002740,001276: 002741,001277: # BIT 7 FLAG 9 002742,001278: 37,2001 R22CAFLG = 143D # R-22 CALCULATIONS R-22 CALCULATIONS 002743,001279: # ARE GOING ON ARE NOT GOING ON 002744,001280: 002745,001281: 37,2001 4704 R22CABIT = BIT7 002746,001282: 002747,001283: # BIT 6 FLAG 9 002748,001284: 37,2001 N22ORN17 = 144D # COMPUTE TOTAL COMPUTE TOTAL 002749,001285: # ATTITUDE ERRORS ATTITUDE ERRORS 002750,001286: # W.R.T. N22 (V62) W.R.T. N17 (V63) 002751,001287: 002752,001288: 37,2001 4705 N2217BIT = BIT6 002753,001289: 002754,001290: # BIT 5 FLAG 9 002755,001291: 37,2001 QUITFLAG = 145D 002756,001292: 002757,001293: 37,2001 4706 QUITBIT = BIT5 002758,001294: 002759,001295: # BIT 4 FLAG 9 002760,001296: 37,2001 R31FLAG = 146D # R31 SELECTED (V63) R34 SELECTED (V65) 002761,001297: 002762,001298: 37,2001 4707 R32FLBIT = BIT4 002763,001299: 002764,001300: # BIT 3 FLAG 9 002765,001301: 37,2001 MID1FLAG = 147D # INTEGRATE TO TDEC INTEGRATE TO THE 002766,001302: # THEN-PRESENT TIME 002767,001303: 002768,001304: 37,2001 4710 MID1FBIT = BIT3 002769,001305: 002770,001306: # Page 65 002771,001307: # BIT 2 FLAG 9 002772,001308: 37,2001 MIDAVFLG = 148D # INTEGRATION ENTERED INTEGRATION WAS 002773,001309: # FROM ONE OF MIDTOAV NOT ENTERED VIA 002774,001310: # PORTALS MIDTOAV 002775,001311: 002776,001312: 37,2001 4711 MIDAVBIT = BIT2 002777,001313: 002778,001314: # BIT 1 FLAG 9 002779,001315: 37,2001 AVEMIDSW = 149D # AVETOMID CALLING NO AVETOMID W INTEGER 002780,001316: # FOR W MATRIX INTEGR ALLOW SET UP RN,VN, 002781,001317: # DON'T WRITE OVER RN, PIPTIME 002782,001318: # VN,PIPTIME 002783,001319: 002784,001320: 37,2001 4712 AVEMDBIT = BIT1 002785,001321: 002786,001322: 37,2001 0106 FLGWRD10 = STATE +10D # (150-164) 002787,001323: # (SET) (RESET) 002788,001324: 002789,001325: 37,2001 0106 RASFLAG = STATE +10D 002790,001326: 002791,001327: # BIT 15 FLAG 10 002792,001328: 37,2001 = 150D 002793,001329: 002794,001330: # BIT 14 FLAG 10 002795,001331: 37,2001 INTFLAG = 151D # INTEGRATION IN INTEGRATION NOT IN 002796,001332: # PROGRESS PROGRESS 002797,001333: 002798,001334: 37,2001 4675 INTFLBIT = BIT14 002799,001335: 002800,001336: # BIT 13 FLAG 10 002801,001337: 37,2001 = 152D 002802,001338: 002803,001339: # BIT 12 FLAG 10 002804,001340: 37,2001 = 153D 002805,001341: 002806,001342: # BIT 11 FLAG 10 002807,001343: 37,2001 = 154D 002808,001344: 002809,001345: # BIT 10 FLAG 10 002810,001346: 37,2001 = 155D 002811,001347: 002812,001348: # BIT 9 FLAG 10 002813,001349: 37,2001 = 156D 002814,001350: 002815,001351: # Page 66 002816,001352: # BIT 8 FLAG 10 002817,001353: 37,2001 = 157D 002818,001354: 002819,001355: # BIT 7 FLAG 10 002820,001356: 37,2001 REINTFLG = 158D # INTEGRATION ROUTINE INTEGRATION ROUTINE 002821,001357: # TO BE RESTARTED NOT TO BE RESTARTED 002822,001358: 37,2001 4704 REINTBIT = BIT7 002823,001359: 002824,001360: # BIT 6 FLAG 10 002825,001361: 37,2001 = 159D 002826,001362: 002827,001363: # BIT 5 FLAG 10 002828,001364: 37,2001 = 160D 002829,001365: 002830,001366: # BIT 4 FLAG 10 002831,001367: 37,2001 = 161D 002832,001368: 002833,001369: # BIT 3 FLAG 10 002834,001370: 37,2001 = 162D 002835,001371: 002836,001372: # BIT 2 FLAG 10 002837,001373: 37,2001 = 163D 002838,001374: 002839,001375: # BIT 1 FLAG 10 002840,001376: 37,2001 = 164D 002841,001377: 002842,001378: 37,2001 0107 FLGWRD11 = STATE +11D # (165-179) 002843,001379: # (SET) (RESET) 002844,001380: 002845,001381: # BIT 15 FLAG 11 002846,001382: 37,2001 = 165D 002847,001383: 002848,001384: # BIT 14 FLAG 11 002849,001385: 37,2001 = 166D 002850,001386: 002851,001387: # BIT 13 FLAG 11 002852,001388: 37,2001 = 167D 002853,001389: 002854,001390: # Page 67 002855,001391: # BIT 12 FLAG 11 002856,001392: 37,2001 = 168D 002857,001393: 002858,001394: # BIT 11 FLAG 11 002859,001395: 37,2001 = 169D 002860,001396: 002861,001397: # BIT 10 FLAG 11 002862,001398: 37,2001 = 170D 002863,001399: 002864,001400: # BIT 9 FLAG 11 002865,001401: 37,2001 = 171D 002866,001402: 002867,001403: # BIT 8 FLAG 11 002868,001404: 37,2001 = 172D 002869,001405: 002870,001406: # BIT 7 FLAG 11 002871,001407: 37,2001 = 173D 002872,001408: 002873,001409: # BIT 6 FLAG 11 002874,001410: 37,2001 = 174D 002875,001411: 002876,001412: # BIT 5 FLAG 11 002877,001413: 37,2001 = 175D 002878,001414: 002879,001415: # BIT 4 FLAG 11 002880,001416: 37,2001 = 176D 002881,001417: 002882,001418: # BIT 3 FLAG 11 002883,001419: 37,2001 = 177D 002884,001420: 002885,001421: # BIT 2 FLAG 11 002886,001422: 37,2001 = 178D 002887,001423: 002888,001424: # BIT 1 FLAG 11 002889,001425: 37,2001 = 179D 002890,001426: 002891,001427: 002892,001428: # Page 68 002893,001429: # GENERAL ERASABLE ASSIGNMENTS 002894,001430: 002895,001431: 0061 SETLOC 61 002896,001432: # INTERRUPT TEMPORARY STORAGE POOL. (11D) 002897,001433: 002898,001434: # (ITEMP1 THROUGH RUPTREG4) 002899,001435: 002900,001436: # ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES 002901,001437: # IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST -- THE RUPTREGS ARE NOT. 002902,001438: 002903,001439: 0061 ITEMP1 ERASE 002904,001440: 0062 0061 WAITEXIT EQUALS ITEMP1 002905,001441: 0062 0061 EXECTEM1 EQUALS ITEMP1 002906,001442: 002907,001443: 0062 ITEMP2 ERASE 002908,001444: 0063 0062 WAITBANK EQUALS ITEMP2 002909,001445: 0063 0062 EXECTEM2 EQUALS ITEMP2 002910,001446: 002911,001447: 0063 ITEMP3 ERASE 002912,001448: 0064 0063 RUPTSTOR EQUALS ITEMP3 002913,001449: 0064 0063 WAITADR EQUALS ITEMP3 002914,001450: 0064 0063 NEWPRIO EQUALS ITEMP3 002915,001451: 002916,001452: 0064 ITEMP4 ERASE 002917,001453: 0065 0064 LOCCTR EQUALS ITEMP4 002918,001454: 0065 0064 WAITTEMP EQUALS ITEMP4 002919,001455: 002920,001456: 0065 ITEMP5 ERASE 002921,001457: 0066 0065 NEWLOC EQUALS ITEMP5 002922,001458: 002923,001459: 0066 ITEMP6 ERASE 002924,001460: 0067 0066 NEWLOC+1 EQUALS ITEMP6 # DP ADDRESS. 002925,001461: 002926,001462: 0067 SETLOC 67 002927,001463: 0067 NEWJOB ERASE # MUST BE AT LOC 67 DUE TO WIRING. 002928,001464: 002929,001465: 0070 RUPTREG1 ERASE 002930,001466: 0071 RUPTREG2 ERASE 002931,001467: 0072 RUPTREG3 ERASE 002932,001468: 0073 RUPTREG4 ERASE 002933,001469: 0074 0073 KEYTEMP1 EQUALS RUPTREG4 002934,001470: 0074 0073 DSRUPTEM EQUALS RUPTREG4 002935,001471: 002936,001472: # FLAGWORD RESERVATIONS. (12D) 002937,001473: 002938,001474: 0074 STATE ERASE +11D 002939,001475: 002940,001476: 0110 FLAGFILL ERASE +3 # SPACE FOR FUTURE FLAGS 002941,001477: 002942,001478: # Page 69 002943,001479: # PAD LOAD FOR DAPS 002944,001480: 0114 0110 EMDOT EQUALS FLAGFILL # I(1)PL (SPS FLOW RATE, SC AT 8.3KG/CS) 002945,001481: 002946,001482: # EXIT FOR V83 002947,001483: 0114 0112 STATEXIT EQUALS FLAGFILL +2 # I(1) STQ ADDRESS FOR STATEXIT 002948,001484: 002949,001485: # EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS 002950,001486: # (INTB15+ THROUGH RUPTMXTM) (32D) 002951,001487: 0114 INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES 002952,001488: 0115 0114 DSEXIT EQUALS INTB15+ # RETURN FOR DSPIN 002953,001489: 0115 0114 EXITEM EQUALS INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT 002954,001490: 0115 0114 BLANKRET EQUALS INTB15+ # RETURN FOR 2BLANK 002955,001491: 002956,001492: 0115 INTBIT15 ERASE # SIMILAR TO ABOVE. 002957,001493: 0116 0115 WRDRET EQUALS INTBIT15 # RETURN FOR 5BLANK. 002958,001494: 0116 0115 WDRET EQUALS INTBIT15 # RETURN FOR DSPWD 002959,001495: 0116 0115 DECRET EQUALS INTBIT15 # RETURN FOR PUTCOM(DEC LOAD) 002960,001496: 0116 0115 21/22REG EQUALS INTBIT15 # TEMP FOR CHARIN 002961,001497: 002962,001498: # THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE. 002963,001499: 002964,001500: 0116 ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS. 002965,001501: 0117 POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESSE. 002966,001502: 0120 0117 UPDATRET EQUALS POLISH # RETURN FOR UPDATNN, UPDATVB 002967,001503: 0120 0117 CHAR EQUALS POLISH # TEMP FOR CHARIN 002968,001504: 0120 0117 ERCNT EQUALS POLISH # COUNTER FOR ERROR LIGHT RESET 002969,001505: 0120 0117 DECOUNT EQUALS POLISH # COUNTER FOR SCALING AND DISPLAY (DEC) 002970,001506: 002971,001507: 0120 FIXLOC ERASE # WORK AREA ADDRESS 002972,001508: 0121 OVFIND ERASE # SET NON-ZERO ON OVERFLOW. 002973,001509: 002974,001510: 0122 VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS. 002975,001511: 0130 0122 SGNON EQUALS VBUF # TEMP FOR +,- ON 002976,001512: 0130 0122 NOUNTEM EQUALS VBUF # COUNTER FOR MIXNOUN FETCH 002977,001513: 0130 0122 DISTEM EQUALS VBUF # COUNTER FOR OCTAL DISPLAY VERB 002978,001514: 0130 0122 DECTEM EQUALS VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS) 002979,001515: 002980,001516: 0130 0123 SGNOFF EQUALS VBUF +1 # TEMP FOR +,- ON 002981,001517: 0130 0123 NVTEMP EQUALS VBUF +1 # TEMP FOR NVSUB 002982,001518: 0130 0123 SFTEMP1 EQUALS VBUF +1 # STORAGE FOR SF CONST HI PART (=SFTEMP2-1) 002983,001519: 0130 0123 HITEMIN EQUALS VBUF +1 # TEMP FOR LOAD OF HRS,MIN,SEC 002984,001520: # MUST = LOTEMIN-1. 002985,001521: 002986,001522: 0130 0124 CODE EQUALS VBUF +2 # FOR DSPIN 002987,001523: 0130 0124 SFTEMP2 EQUALS VBUF +2 # STORAGE FOR SF CONST LO PART (=SFTEMP1+1) 002988,001524: 0130 0124 LOTEMIN EQUALS VBUF +2 # TEMP FOR LOAD OF HRS,MIN,SEC 002989,001525: # MUST = HITEMIN+1 002990,001526: # Page 70 002991,001527: 0130 0125 MIXTEMP EQUALS VBUF +3 # FOR MIXNOUN DATA 002992,001528: 0130 0125 SIGNRET EQUALS VBUF +3 # RETURN FOR +,- ON 002993,001529: 002994,001530: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5 002995,001531: 002996,001532: 0130 BUF ERASE +2 # TEMPORARY SCALAR STORAGE 002997,001533: 0133 BUF2 ERASE +1 002998,001534: 0135 0130 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX. 002999,001535: 0135 0130 SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD 003000,001536: 0135 0131 SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN THE SWITCH WORD 003001,001537: 0135 MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT 003002,001538: 0136 0135 DMPNTEMP EQUALS MPTEMP # DMPSUB TEMPORARY 003003,001539: 0136 DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE 003004,001540: 0137 0136 DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT 003005,001541: 0137 0136 ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS. 003006,001542: 0137 0136 ENTRET EQUALS DOTINC # EXIT FROM ENTER 003007,001543: 003008,001544: 0137 DOTRET ERASE # RETURN FROM DOT SUBROUTINE 003009,001545: 0140 0137 DVNORMCT EQUALS DOTRET # DIVIDENT NORMALIZATION COUNT IN DDV. 003010,001546: 0140 0137 ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH 003011,001547: 0140 0137 WDCNT EQUALS DOTRET # CHAR COUNTER FOR DSPWD 003012,001548: 0140 0137 INREL EQUALS DOTRET # INPUT BUFFER SELECTION 003013,001549: 003014,001550: 0140 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM 003015,001551: 0141 0140 MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE -- ELSE -1. 003016,001552: 0141 0140 POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER 003017,001553: 0141 0140 DSPMMTEM EQUALS MATINC # DSPCOUNT SAVE FOR DSPMM 003018,001554: 0141 0140 MIXBR EQUALS MATINC # INDICATOR FOR MIXED OR NORMAL NOUN 003019,001555: 003020,001556: 0141 TEM1 ERASE # EXEC TEMP 003021,001557: 0142 0141 POLYRET EQUALS TEM1 003022,001558: 0142 0141 DSREL EQUALS TEM1 # REL ADDRESS FOR DSPIN 003023,001559: 003024,001560: 0142 TEM2 ERASE # EXEC TEMP 003025,001561: 0143 0142 DSMAG EQUALS TEM2 # MAGNITUDE STORE FOR DSPIN 003026,001562: 0143 0142 IDADDTEM EQUALS TEM2 # MIXNOUN INDIRECT ADDRESS STORAGE 003027,001563: 003028,001564: 0143 TEM3 ERASE # EXEC TEMP 003029,001565: 0144 0143 COUNT EQUALS TEM3 # FOR DSPIN 003030,001566: 003031,001567: 0144 TEM4 ERASE # EXEC TEMP 003032,001568: 0145 0144 LSTPTR EQUALS TEM4 # LIST POINTER FOR GRABUST 003033,001569: 0145 0144 RELRET EQUALS TEM4 # RETURN FOR RELDSP 003034,001570: 0145 0144 FREERET EQUALS TEM4 # RETURN FOR FREEDSP 003035,001571: 0145 0144 DSPWDRET EQUALS TEM4 # RETURN FOR DSPSIGN 003036,001572: 0145 0144 SEPSCRET EQUALS TEM4 # RETURN FOR SEPSEC 003037,001573: 0145 0144 SEPMNRET EQUALS TEM4 # RETURN FOR SEPMIN 003038,001574: 003039,001575: 0145 TEM5 ERASE # EXEC TEMP 003040,001576: 0146 0145 NOUNADD EQUALS TEM5 # TEMP STORAGE FOR NOUN ADDRESS 003041,001577: 003042,001578: # Page 71 003043,001579: 0146 NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY 003044,001580: 0147 NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY 003045,001581: 0150 IDAD1TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN) 003046,001582: # MUST = IDAD2TEM-1, = IDAD3TEM-2 003047,001583: 0151 IDAD2TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN) 003048,001584: # MUST = IDAD1TEM+1, IDAD3TEM-1. 003049,001585: 0152 IDAD3TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN) 003050,001586: # MUST = IDAD1TEM+2, IDAD2TEM+1. 003051,001587: 0153 RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY) 003052,001588: 003053,001589: # AX*SR*T STORAGE. 003054,001590: 0154 0142 DEXDEX EQUALS TEM2 # B(1)TMP 003055,001591: 0154 0143 DEX1 EQUALS TEM3 # B(1)TMP 003056,001592: 0154 0144 DEX2 EQUALS TEM4 # B(1)TMP 003057,001593: 0154 0145 RTNSAVER EQUALS TEM5 # B(1)TMP 003058,001594: 0154 0133 TERM1TMP EQUALS BUF2 # B(2)TMP 003059,001595: 003060,001596: 0154 0143 DEXI = DEX1 003061,001597: 003062,001598: # Page 72 003063,001599: # DYNAMICALLY ALLOCATED CORE SETS FOR JOBS (84D) 003064,001600: 003065,001601: 0154 MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR. 003066,001602: 0163 MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR. 003067,001603: 0164 LOC ERASE # LOCATION ASSOCIATED WITH JOB. 003068,001604: 0165 BANKSET ERASE # USUALLY CONTAINS BBANK SETTING. 003069,001605: 0166 PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS. 003070,001606: 0167 PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA. 003071,001607: 003072,001608: 0170 ERASE +71D # SEVEN SETS OF 12 REGISTERS EACH 003073,001609: 003074,001610: # SPECIAL DOWNLINK BUFFER. -- OVERLAYED BY P27 STORAGE -- 003075,001611: 003076,001612: # P27 (UPDATE PROGRAM) STORAGE. -- OVERLAYS SPEC DNLNK BUFF -- (24D) 003077,001613: 003078,001614: 0300 COMPNUMB ERASE +23D # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED. 003079,001615: 0330 0301 UPOLDMOD EQUALS COMPNUMB +1 # B(1)TMP HOLDS INTERRUPTED PROGRAM NUMBER 003080,001616: 0330 0302 UPVERB EQUALS UPOLDMOD +1 # B(1)TMP VERB NUMBER 003081,001617: 0330 0303 UPCOUNT EQUALS UPVERB +1 # B(1)TMP UPBUFF INDEX 003082,001618: 0330 0304 UPBUFF EQUALS UPCOUNT +1 # B(20D) 003083,001619: 003084,001620: # MORE P27 STORAGE. (2D) 003085,001621: 003086,001622: 0330 UPTEMP ERASE # B(1)TMP SCRATCH 003087,001623: 0331 UPVERBSV ERASE # B(1)TMP 003088,001624: 0332 0330 INTWAK1Q EQUALS UPTEMP # (06D) 003089,001625: # (20 REGISTERS OF ENTRY DOWNLINK WILL GO HERE.) 003090,001626: 003091,001627: # THE FOLLOWING ARE INDEXED FOR TM. IN ENTRY DAP. 003092,001628: 003093,001629: 0332 0304 CMTMTIME = UPBUFF # B(1) (VEHICLE BODY RATE INFO IS 003094,001630: 0332 0305 SW/NDX = CMTMTIME +1 # B(1) TELEMETERED EACH 0.2 SEC. DURING 003095,001631: 0332 0324 ENDBUF = CMTMTIME +16D # B(1) ENTRY.) 003096,001632: 003097,001633: 0332 0325 V1 = ENDBUF +1 # I(2) REENTRY, P65-P65 003098,001634: 0332 0327 A0 = V1 +2 # I(2) REENTRY, P64-P65 003099,001635: # HI-ORDER WORD ONLY ON DNLNK. 003100,001636: 003101,001637: # ALIGNMENT STORAGE. (5D) 003102,001638: # (CANNOT SHARE WITH PRECISION INTEGRATION OR KEPLER STORAGE.) 003103,001639: 003104,001640: 0332 0300 QMAJ EQUALS COMPNUMB # B(1)TMP 003105,001641: 0332 0301 MARKINDX EQUALS QMAJ +1 # B(1)TMP 003106,001642: 0332 0302 BESTI EQUALS MARKINDX +1 # I(1)TMP 003107,001643: 0332 0303 BESTJ EQUALS BESTI +1 # I(1)TMP 003108,001644: 0332 0304 STARIND EQUALS BESTJ +1 # I(1)TMP 003109,001645: 003110,001646: # Page 73 003111,001647: # ALIGNMENT/S40.2,3 COMMON STORAGE. (18D) 003112,001648: 003113,001649: 0332 0306 XSMD EQUALS UPBUFF +2 # I(6)TMP 003114,001650: 0332 0314 YSMD EQUALS XSMD +6 # I(6)TMP 003115,001651: 0332 0322 ZSMD EQUALS YSMD +6 # I(6)TMP 003116,001652: 003117,001653: 0332 0306 XSCREF = XSMD # SPACE CRAFT AXES IN REF COORDS. 003118,001654: 0332 0314 YSCREF = YSMD 003119,001655: 0332 0322 ZSCREF = ZSMD 003120,001656: 0332 ZPRIME = 22D 003121,001657: 0332 PDA = 22D 003122,001658: 0332 COSTH = 16D 003123,001659: 0332 SINTH = 18D 003124,001660: 0332 THETA = 20D 003125,001661: 0332 STARM = 32D 003126,001662: 003127,001663: # DOWNLINK STORAGE (18D) 003128,001664: 003129,001665: 0332 0332 DNLSTADR EQUALS DNLSTCOD # CONTENTS NO LONGER AN ADDR BUT A CODE 003130,001666: 003131,001667: 0332 DNLSTCOD ERASE # B(1)PRM ID CODE OF DOWNLOAD 003132,001668: 0333 DUMPCNT ERASE # B(1)PRM 003133,001669: 0334 LDATALST ERASE # B(1) 003134,001670: 0335 DNTMGOTO ERASE # B(1) 003135,001671: 0336 TMINDEX ERASE # B(1) 003136,001672: 0337 0336 DUMPLOC EQUALS TMINDEX # CONTAINS ECADR OF AGC DP WORD BEING DUMPED 003137,001673: # AND COUNT OF COMPLETE DUMPS ALREADY 003138,001674: # SENT. 003139,001675: 0337 DNQ ERASE # B(1) 003140,001676: 0340 DNTMBUFF ERASE +11D # B(12)PRM DOWNLINK SNAPSHOT BUFFER 003141,001677: 003142,001678: # OPTICS MARKING, UNSHARED. (8D) 003143,001679: 003144,001680: 0354 MKNDX ERASE 003145,001681: 0355 MKT2T1 ERASE +1 003146,001682: 0357 MKCDUY ERASE 003147,001683: 0360 MKCDUS ERASE 003148,001684: 0361 MKCDUZ ERASE 003149,001685: 0362 MKCDUT ERASE 003150,001686: 0363 MKCDUX ERASE 003151,001687: 003152,001688: # FOR EXCLUSIVE USE OF SYS TEST STANDARD LEAD INS (2) 003153,001689: 0364 EBUF2 ERASE +1 # R(2) UNSHARED 003154,001690: 003155,001691: # Page 74 003156,001692: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (10D) 003157,001693: 003158,001694: 0366 RESTREG ERASE # B(1)PRM FOR DISPLAY RESTARTS. 003159,001695: 0367 NVWORD ERASE 003160,001696: 0370 MARKNV ERASE 003161,001697: 0371 NVSAVE ERASE 003162,001698: # (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES) 003163,001699: 0372 CADRFLSH ERASE # B(1)TMP 003164,001700: 0373 CADRMARK ERASE # B(1)TMP 003165,001701: 0374 TEMPFLSH ERASE # B(1)TMP 003166,001702: 0375 FAILREG ERASE +2 # B(3)PRM 3 ALARM CODE REGISTERS 003167,001703: 003168,001704: 0400 SETLOC 400 003169,001705: 003170,001706: # VAC AREAS. -- BE CAREFUL OF PLACEMENT -- (220D) 003171,001707: 003172,001708: 0400 VAC1USE ERASE # B(1)PRM 003173,001709: 0401 VAC1 ERASE +42D # B(43)PRM 003174,001710: 0454 VAC2USE ERASE # B(1)PRM 003175,001711: 0455 VAC2 ERASE +42D # B(43)PRM 003176,001712: 0530 VAC3USE ERASE # B(1)PRM 003177,001713: 0531 VAC3 ERASE +42D # B(43)PRM 003178,001714: 0604 VAC4USE ERASE # B(1)PRM 003179,001715: 0605 VAC4 ERASE +42D # B(43)PRM 003180,001716: 0660 VAC5USE ERASE # B(1)PRM 003181,001717: 0661 VAC5 ERASE +42D # B(43)PRM 003182,001718: 003183,001719: # WAITLIST REPEAT FLAG. (1D) 003184,001720: 0734 RUPTAGN ERASE # B(1)PRM 003185,001721: 0735 0734 KEYTEMP2 = RUPTAGN 003186,001722: 003187,001723: # STARALIGN ERASABLES. (13D) 003188,001724: 003189,001725: 0735 STARCODE ERASE # B(1)DSP NOUN 70 FOR P22,51 AND R52,53 003190,001726: 0736 STARALGN ERASE +11D 003191,001727: 0752 0736 SINCDU = STARALGN 003192,001728: 0752 0744 COSCDU = STARALGN +6 003193,001729: 003194,001730: 0752 0742 SINCDUX = SINCDU +4 003195,001731: 0752 0736 SINCDUY = SINCDU 003196,001732: 0752 0740 SINCDUZ = SINCDU +2 003197,001733: 0752 0750 COSCDUX = COSCDU +4 003198,001734: 0752 0744 COSCDUY = COSCDU 003199,001735: 0752 0746 COSCDUZ = COSCDU +2 003200,001736: 003201,001737: # PHASE TABLE AND RESTART COUNTERS (12D) 003202,001738: # Page 75 003203,001739: 003204,001740: 0752 -PHASE1 ERASE # B(1)PRM 003205,001741: 0753 PHASE1 ERASE # B(1)PRM 003206,001742: 0754 -PHASE2 ERASE # B(1)PRM 003207,001743: 0755 PHASE2 ERASE # B(1)PRM 003208,001744: 0756 -PHASE3 ERASE # B(1)PRM 003209,001745: 0757 PHASE3 ERASE # B(1)PRM 003210,001746: 0760 -PHASE4 ERASE # B(1)PRM 003211,001747: 0761 PHASE4 ERASE # B(1)PRM 003212,001748: 0762 -PHASE5 ERASE # B(1)PRM 003213,001749: 0763 PHASE5 ERASE # B(1)PRM 003214,001750: 0764 -PHASE6 ERASE # B(1)PRM 003215,001751: 0765 PHASE6 ERASE # B(1)PRM 003216,001752: 003217,001753: # A**SR*T STORAGE (6D) 003218,001754: 003219,001755: 0766 CDUSPOT ERASE +5 # B(6) 003220,001756: 003221,001757: 0774 0766 CDUSPOTY = CDUSPOT 003222,001758: 0774 0770 CDUSPOTZ = CDUSPOT +2 003223,001759: 0774 0772 CDUSPOTX = CDUSPOT +4 003224,001760: 003225,001761: # VERB 37 STORAGE (2D) 003226,001762: 003227,001763: 0774 MINDEX ERASE # B(1)TMP INDEX FOR MAJOR MODE 003228,001764: 0775 MMNUMBER ERASE # B(1)TMP MAJOR MODE REQUESTED BY V37 003229,001765: 003230,001766: # PINBALL INTERRUPT ACTION (1D) 003231,001767: 003232,001768: 0776 DSPCNT ERASE # B(1)PRM COUNTER FOR DSPOUT 003233,001769: 003234,001770: # PINBALL EXECUTIVE ACTION (44D) 003235,001771: 003236,001772: 0777 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR 003237,001773: 1000 DECBRNCH ERASE # +DEC, -DEC, OCT INDICATOR 003238,001774: 1001 VERBREG ERASE # VERB CODE 003239,001775: 1002 NOUNREG ERASE # NOUN CODE 003240,001776: 1003 XREG ERASE # R1 INPUT BUFFER 003241,001777: 1004 YREG ERASE # R2 INPUT BUFFER 003242,001778: 1005 ZREG ERASE # R3 INPUT BUFFER 003243,001779: 1006 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY) 003244,001780: 1007 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY) 003245,001781: 1010 1007 HITEMOUT = YREGLP # TEMP FOR DISPLAY OF HRS,MIN,SEC 003246,001782: # MUST = LOTEMOUT-1. 003247,001783: 1010 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY) 003248,001784: 1011 1010 LOTEMOUT = ZREGLP # TEMP FOR DISPLAY OF HRS,MIN,SEC 003249,001785: # MUST = HITEMOUT+1 003250,001786: # Page 76 003251,001787: 1011 MODREG ERASE # MODE CODE 003252,001788: 1012 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK 003253,001789: 1013 REQRET ERASE # RETURN REGISTER FOR LOAD 003254,001790: 1014 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST 003255,001791: 1015 CLPASS ERASE # PASS INDICATOR FOR CLEAR 003256,001792: 1016 NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB 003257,001793: 1017 NOUNCADR ERASE # MACHINE CADR FOR NOUN 003258,001794: 1020 MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1) 003259,001795: 1021 MONSAVE1 ERASE # NOUNCADR FOR MONITOR (MATBS1) = MONSAVE+1 003260,001796: 1022 MONSAVE2 ERASE # NVMONOPT OPTIONS 003261,001797: 1023 DSPTAB ERASE +11D # 0-100, DISPLAY PANEL BUFF. 11D, C/S LTS. 003262,001798: 1037 NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS 003263,001799: # MUST = NVBNKTEM-1. 003264,001800: 1040 NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK 003265,001801: # MUST = NVQTEM+1 003266,001802: 1041 VERBSAVE ERASE # NEEDED FOR RECYCLE 003267,001803: 1042 CADRSTOR ERASE # ENDIDLE STORAGE 003268,001804: 1043 DSPLIST ERASE # WAITING REG FOR DSP SYST INTERNAL USE 003269,001805: 1044 EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK 003270,001806: 1045 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME) 003271,001807: 1050 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG) 003272,001808: 003273,001809: 1053 1051 DSPTEMX EQUALS DSPTEM2 +1 # B(2) S-S DISPLAY BUFFER FOR EXT. VERBS 003274,001810: 1053 1045 NORMTEM1 EQUALS DSPTEM1 # B(3)DSP NORMAL DISPLAY REGISTERS. 003275,001811: 003276,001812: # DISPLAY FOR EXTENDED VERBS (2D) 003277,001813: 003278,001814: 1053 1051 OPTIONX EQUALS DSPTEMX # (2) EXTENDED VERB OPTION CODE 003279,001815: 003280,001816: # TBASE'S AND PHSPRDT'S. (12D) 003281,001817: 003282,001818: 1053 TBASE1 ERASE # B(1)PRM 003283,001819: 1054 PHSPRDT1 ERASE # B(1)PRM 003284,001820: 1055 TBASE2 ERASE # B(1)PRM 003285,001821: 1056 PHSPRDT2 ERASE # B(1)PRM 003286,001822: 1057 TBASE3 ERASE # B(1)PRM 003287,001823: 1060 PHSPRDT3 ERASE # B(1)PRM 003288,001824: 1061 TBASE4 ERASE # B(1)PRM 003289,001825: 1062 PHSPRDT4 ERASE # B(1)PRM 003290,001826: 1063 TBASE5 ERASE # B(1)PRM 003291,001827: 1064 PHSPRDT5 ERASE # B(1)PRM 003292,001828: 1065 TBASE6 ERASE # B(1)PRM 003293,001829: 1066 PHSPRDT6 ERASE # B(1)PRM 003294,001830: 003295,001831: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (5D) 003296,001832: # Page 77 003297,001833: 1067 EBANKSAV ERASE 003298,001834: 1070 MARKEBAN ERASE 003299,001835: 1071 EBANKTEM ERASE 003300,001836: 1072 MARK2PAC ERASE 003301,001837: 1073 R1SAVE ERASE 003302,001838: 003303,001839: # IMU COMPENSATION UNSWITCHED ERASABLE. (1D) 003304,001840: 003305,001841: 1074 1/PIPADT ERASE # B(1)PRM 003306,001842: 1075 1074 OLDBT1 = 1/PIPADT 003307,001843: 003308,001844: # SINGLE PRECISION SUBROUTINE TEMPORARIES (3D) 003309,001845: # SPSIN, SPCOS, SPROOT VARIABLES. 003310,001846: # DO NOT SHARE. THESE ARE USED BY DAPS IN INTERRUPT 003311,001847: # AND CURRENTLY ARE NOT PROTECTED. IF OTHER USERS 003312,001848: # MATERIALIZE, THEN THIS CAN BE CHANGED. 003313,001849: 003314,001850: 1075 HALFY ERASE 003315,001851: 1076 ROOTRET ERASE 003316,001852: 1077 SQRARG ERASE 003317,001853: 1100 1075 TEMK EQUALS HALFY 003318,001854: 1100 1076 SQ EQUALS ROOTRET 003319,001855: 003320,001856: # Page 78 003321,001857: # UNSWITCHED FOR ORBIT INTEGRATION (21D) 003322,001858: 003323,001859: 1100 TDEC ERASE +20D # I(2) 003324,001860: 1125 1102 COLREG EQUALS TDEC +2 # I(1) 003325,001861: 1125 1103 LAT EQUALS COLREG +1 # I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53. 003326,001862: 1125 1103 LANDLAT = LAT # NOUN 89 FOR P22. 003327,001863: 1125 1105 LONG EQUALS LAT +2 # I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53 003328,001864: 1125 1107 ALT EQUALS LONG +2 # I(2)DSP NOUN 43 FOR P20,22,51 R52,53. 003329,001865: 1125 1111 YV EQUALS ALT +2 # I(6) 003330,001866: 1125 1117 ZV EQUALS YV +6 # I(6) 003331,001867: 003332,001868: # MARK STORAGE. 003333,001869: 003334,001870: 1125 VHFCNT ERASE # B(1)PRM NO. OF VHF MARKS (P20 (R22)). 003335,001871: 1126 TRKMKCNT ERASE # B(1)PRM NO. OF VHF MARKS (P20 (R22)). 003336,001872: 003337,001873: 1127 1126 MARKCTR = TRKMKCNT # B(1) MARK COUNTER USED BY R32 003338,001874: 003339,001875: # MISCELLANEOUS UNSWITCHED. (16D) 003340,001876: 003341,001877: 1127 IRETURN1 ERASE # B(1) RET ADDR USED BY MIDTOAV1 AND 2 003342,001878: # CALLED BY P40,P41,P42, P61,P62 003343,001879: 1130 RATEINDX ERASE # (1) USED BY KALCMANU 003344,001880: 1131 OPTION1 ERASE # B(1) NOUN 06 USES THIS. 003345,001881: 1132 OPTION2 ERASE # B(1) NOUN 06 USES THIS. 003346,001882: 1133 LONGCADR ERASE +1 # B(2) LONGCALL REGISTER. 003347,001883: 1135 LONGBASE ERASE +1 # B(2) LONGCALL REGISTER. 003348,001884: 1137 LONGTIME ERASE +1 # B(2) LONGCALL REGISTER. 003349,001885: 1141 DELAYLOC ERASE +3 003350,001886: 1145 NVWORD1 ERASE # B(1) 003351,001887: 1146 TEMPR60 ERASE # B(1) 003352,001888: 1147 PRIOTIME ERASE # B(1) 003353,001889: 1150 1127 P30/RET EQUALS IRETURN1 003354,001890: 003355,001891: # MISC. INCLUDING RESTART COUNTER, GIMBAL ANGLE SAVE AND 003356,001892: # STANDBY VERB ERASABLES. REDOCTR BEFORE THETAD (DWNLNK) (16D) 003357,001893: 003358,001894: 1150 TIME2SAV ERASE +1 # B(2)TMP 003359,001895: 1152 SCALSAVE ERASE +1 # B(2)TMP 003360,001896: 1154 REDOCTR ERASE # B(1)PRM CONTAINS NUMBER OF RESTARTS 003361,001897: 1155 THETAD ERASE +2 # B(3)PRM DESIRED GIM ANGLES FOR MANEUVER 003362,001898: 1160 1155 CPHI = THETAD # (OUTER) 003363,001899: 1160 1156 CTHETA = THETAD +1 # (INNER) 003364,001900: 1160 1157 CPSI = THETAD +2 # (MIDDLE) 003365,001901: # Page 79 003366,001902: # ENTRY VARIABLES SHARED FOR TM. 003367,001903: 1160 1155 RDOTREF = THETAD # I(2) P65 003368,001904: 1160 1157 VREF = RDOTREF +2 # I(2) P65 HI-ORDER WORD ONLY DNLNK'D 003369,001905: 1160 DESOPTT ERASE # B(1)DSP NOUN 92 FOR P20,22,52, R52. 003370,001906: 1161 DESOPTS ERASE # B(1)DSP NOUN 92 FOR P20,22,52, R52. 003371,001907: 003372,001908: 1162 DELV ERASE +5 # I(6) 003373,001909: 1170 1162 DELVX = DELV 003374,001910: 1170 1164 DELVY = DELV +2 003375,001911: 1170 1166 DELVZ = DELV +4 003376,001912: 003377,001913: # P20, CONICS (SHARING WITH TIME 2 SAV AND SCAL SAV ONLY) (3D) 003378,001914: 1170 1150 POINTEX EQUALS TIME2SAV # I(1) POINT AXS EXIT 003379,001915: 1170 1151 VHFTIME EQUALS POINTEX +1 # I(2) DOWNLINK OF VHF RANGE TIME +1M 003380,001916: 003381,001917: # PERM STATE VECTORS FOR BOOST AND DOWNLINK -- WHOLE MISSION -- (14D) 003382,001918: 003383,001919: 1170 RN ERASE +5 # B(6)PRM 003384,001920: 1176 VN ERASE +5 # B(6)PRM 003385,001921: 1204 PIPTIME ERASE +1 # B(2)PRM (MUST BE FOLLOWED BY GDT/2) 003386,001922: 003387,001923: # SERVICER STORAGE. (45D) 003388,001924: 003389,001925: # (SERVICER STORAGE AND P11 STORAGE IN UNSWITCHED SHOULD NOT 003390,001926: # OVERLAY EACH OTHER AND THE TOTAL ERASABLE REQUIRED SHOULD NOT 003391,001927: # EXCEED THE ERASABLE STORAGE REQUIRED BY RENDEZVOUS GUIDANCE.) 003392,001928: 003393,001929: 1206 1206 GDT/2 EQUALS PIPTIME +2 # B(6)TMP ** MUST FOLLOW PIPTIME ** 003394,001930: 1206 1214 GOBL/2 EQUALS GDT/2 +6 # B(6)TMP 003395,001931: 1206 1222 AVEGEXIT EQUALS GOBL/2 +6 # B(2)TMP 003396,001932: 1206 1222 AVGEXIT = AVEGEXIT 003397,001933: 1206 1224 TEMX EQUALS AVEGEXIT +2 # B(1)TMP 003398,001934: 1206 1225 TEMY EQUALS TEMX +1 # B(1)TMP 003399,001935: 1206 1226 TEMZ EQUALS TEMY +1 # B(1)TMP 003400,001936: 1206 1227 PIPCTR EQUALS TEMZ +1 # B(1)TMP 003401,001937: 1206 1230 PIPAGE EQUALS PIPCTR +1 # B(1)TMP 003402,001938: 1206 1231 RN1 EQUALS PIPAGE +1 # B(6)TMP 003403,001939: 1206 1237 VN1 EQUALS RN1 +6 # B(6)TMP 003404,001940: 1206 1245 PIPTIME1 EQUALS VN1 +6 # B(2)TMP 003405,001941: 1206 1247 GDT1/2 EQUALS PIPTIME1 +2 # B(6)TMP 003406,001942: 1206 1255 GOBL1/2 EQUALS GDT1/2 +6 # B(6)TMP 003407,001943: 003408,001944: # Page 80 003409,001945: # ENTRY STORAGE (1D) 003410,001946: 1206 1263 ENTRYVN EQUALS GOBL1/2 +6 # B(1)TMP VN CODE FOR ENTRY DISPLAYS P60'S. 003411,001947: 003412,001948: # P11 STORAGE. (9D) 003413,001949: 1206 1263 PADLONG EQUALS ENTRYVN # (2)PL LONGITUDE OF LAUNCH PAD. 003414,001950: 1206 1265 LIFTTEMP EQUALS PADLONG +2 # (2)TMP 003415,001951: 1206 1267 TEPHEM1 EQUALS LIFTTEMP +2 # (3)TMP 003416,001952: 1206 1272 PGNCSALT EQUALS TEPHEM1 +3 # (2)PL ALTITUDE 003417,001953: 003418,001954: # RENDEZVOUS NAVIGATION STORAGE. (SEE COMMENT IN SERVICER STORAGE) (58D) 003419,001955: 1206 CSMPOS ERASE +57D # I(6)TMP 003420,001956: 1300 1214 LEMPOS EQUALS CSMPOS +6 # I(6)TMP 003421,001957: 1300 1222 RCL EQUALS LEMPOS +6 # I(2)TMP 003422,001958: 1300 1224 MARKTIME EQUALS RCL +2 # B(2)TMP 003423,001959: 1300 1226 VTEMP EQUALS MARKTIME +2 # B(6)TMP 003424,001960: 1300 1234 UM EQUALS VTEMP +6 # I(6)TMP 003425,001961: 1300 1242 MARKDATA EQUALS UM +6 # B(2)TMP 003426,001962: 1300 1244 USTAR EQUALS MARKDATA +2 # I(6)TMP 003427,001963: 1300 1252 WIXA EQUALS USTAR +6 # B(1)TMP 003428,001964: 1300 1253 WIXB EQUALS WIXA +1 # B(1)TMP 003429,001965: 1300 1254 ZIXA EQUALS WIXB +1 # B(1)TMP 003430,001966: 1300 1255 ZIXB EQUALS ZIXA +1 # B(1)TMP 003431,001967: 1300 1256 DELTAX EQUALS ZIXB +1 # I(18)TMP 003432,001968: 003433,001969: 1300 1256 VHFRANGE EQUALS DELTAX # (2) 003434,001970: 1300 1272 UCL EQUALS DELTAX +12D # (6) LM-CSM LINE OF SIGHT 1/2 UNIT V 003435,001971: 003436,001972: # **** CONICSEX (MEAS INC) **** 003437,001973: 1300 1256 TRIPA EQUALS DELTAX 003438,001974: 1300 1261 TEMPVAR EQUALS DELTAX +3 003439,001975: 003440,001976: 1300 TEMPOR1 ERASE +1 # B(2)TMP 003441,001977: 003442,001978: # T4RUPT ERASABLE (6D) 003443,001979: 003444,001980: 1302 DSRUPTSW ERASE 003445,001981: 1303 OPTIND ERASE 003446,001982: 1304 LGYRO ERASE 003447,001983: 1305 COMMANDO ERASE +1 003448,001984: 003449,001985: # Page 81 003450,001986: 1307 ZONE ERASE # B(1)PRM USED IN SHAFT STOP MONITOR 003451,001987: 1310 0000035 LASTYCMD = OPTY # DUMMY TO MAKE RR BENCH TEST ASSEMBLE 003452,001988: 1310 0000035 LASTXCMD = OPTY # DUMMY TO MAKE RR BENCH TEST ASSEMBLE 003453,001989: 003454,001990: # UNSWITCHED DAP ERASABLE. (4D) 003455,001991: 1310 T6LOC ERASE 003456,001992: 1311 T6ADR ERASE 003457,001993: 1312 T5LOC ERASE +1 003458,001994: 003459,001995: # MODE SWITCHING ERASABLE (14D) 003460,001996: 1314 SWSAMPLE ERASE # B(1)PRM 003461,001997: 1315 DESOPMOD ERASE # B(1)PRM 003462,001998: 1316 WTOPTION ERASE # B(1)PRM 003463,001999: 1317 ZOPTCNT ERASE # B(1)PRM 003464,002000: 1320 IMODES30 ERASE # B(1)PRM 003465,002001: 1321 IMODES33 ERASE # B(1)PRM 003466,002002: 1322 MODECADR ERASE +2 # B(3)TMP 003467,002003: 1325 1322 IMUCADR = MODECADR 003468,002004: 1325 1323 OPTCADR = MODECADR +1 003469,002005: 1325 1324 RADCADR = MODECADR +2 003470,002006: 1325 ATTCADR ERASE +2 # B(3)PRM 003471,002007: 1330 1327 ATTPRIO = ATTCADR +2 003472,002008: 1330 MARKSTAT ERASE # B(1)PRM 003473,002009: 1331 OPTMODES ERASE # B(1)PRM 003474,002010: 003475,002011: # RCSDAP ERASABLE (1D) 003476,002012: 1332 HOLDFLAG ERASE # B(1)PRM 003477,002013: 003478,002014: # CRS61.1 STORAGE. -- USED IN R63 (VERB 89) -- (5D) 003479,002015: 1333 CPHIX ERASE +2 # B(3)DSP NOUN 95 CALCULATED BY CRS61.1 003480,002016: 003481,002017: 1336 TEVENT ERASE +1 # B(2) TIME OF EVENT FOR DOWNLIST 003482,002018: 1340 1336 TLIFTOFF = TEVENT 003483,002019: 003484,002020: # Page 82 003485,002021: # P34-P35 STORAGE (1D) 003486,002022: 1340 NORMEX ERASE 003487,002023: 003488,002024: # SELF-CHECK ASSIGNMENTS (17D) 003489,002025: 003490,002026: 1341 SELFERAS ERASE 1357 - 1377 # *** MUST NOT BE MOVED *** # 003491,002027: 1341 1357 SFAIL EQUALS SELFERAS # B(1) 003492,002028: 1341 1360 ERESTORE EQUALS SFAIL +1 # B(1) 003493,002029: 1341 1361 SELFRET EQUALS ERESTORE +1 # B(1) RETURN 003494,002030: 1341 1362 SMODE EQUALS SELFRET +1 # B(1) 003495,002031: 1341 1363 ALMCADR EQUALS SMODE +1 # B(2) ALARM ABORD USER'S 2CADR 003496,002032: 1341 1365 ERCOUNT EQUALS ALMCADR +2 # B(1) 003497,002033: 1341 1366 SCOUNT EQUALS ERCOUNT +1 # B(3) 003498,002034: 1341 1371 SKEEP1 EQUALS SCOUNT +3 # B(1) 003499,002035: 1341 1372 SKEEP2 EQUALS SKEEP1 +1 # B(1) 003500,002036: 1341 1373 SKEEP3 EQUALS SKEEP2 +1 # B(1) 003501,002037: 1341 1374 SKEEP4 EQUALS SKEEP3 +1 # B(1) 003502,002038: 1341 1375 SKEEP5 EQUALS SKEEP4 +1 # B(1) 003503,002039: 1341 1376 SKEEP6 EQUALS SKEEP5 +1 # B(1) 003504,002040: 1341 1377 SKEEP7 EQUALS SKEEP6 +1 # B(1) 003505,002041: 003506,002042: # USED BY P30 ROUTINES TO WRITE ONLY NEVER READ IN COLOSSUS 003507,002043: 003508,002044: 1341 0000000 DISPDEX EQUALS A 003509,002045: 003510,002046: # ERASABLE FOR SXTMARK CDU CHECK DELAY. -- PAD LOADED -- (1D) 003511,002047: 003512,002048: 1341 CDUCHKWD ERASE # B(1)PL 003513,002049: 003514,002050: # R57 STORAGE. -- MUST BE UNSHARED EXCEPT IN BOOST OR ENTRY -- (1D) 003515,002051: 003516,002052: 1342 TRUNBIAS ERASE # B(1)PRM RESULT OF R57 CALIBR OF TRUNION 003517,002053: 003518,002054: # KEPLER STORAGE (6D) 003519,002055: 003520,002056: 1343 XMODULO ERASE +1 # I(2) GREATER 2PI KEPLER 003521,002057: 1345 TMODULO ERASE +1 # I(2) GREATER 2 KEPLER 003522,002058: 1347 EPSILONT ERASE +1 # I(2)TMP 003523,002059: 003524,002060: # Page 83 003525,002061: # P37 ** RETURN TO EARTH (PAD LOAD **** (2D) 003526,002062: 003527,002063: 1351 RTED1 ERASE +1 # I(2)PL VGAMMA POLY COEF B-3 003528,002064: 003529,002065: # P40 *** STEERING ROUTINE *** PAD LOAD (1D) 003530,002066: 003531,002067: 1353 DVTHRESH ERASE # I(1)PL DELTA VTHRESHOLD FOR LOW THRUST 003532,002068: # ROUTINE B-2 003533,002069: 003534,002070: # P23 *** PAD LOAD **** (2D) 003535,002071: 003536,002072: 1354 HORIZALT ERASE +1 # I(2)PL HORIZON ALTITUDE M B-29 003537,002073: 003538,002074: # P20 ALTERNATE LOS VARIANCE PAD LOAD **** (1D) 003539,002075: # -16 003540,002076: 1356 ALTVAR ERASE # I(2)PL MILLARD, SQUARED SCALED 2 003541,002077: 1357 1377 END-UE EQUALS SELFERAS +16D # LAST USED UNSWITCHED ERASABLE 003542,002078: 003543,002079: # Page 84 003544,002080: # EBANK-3 ASSIGNMENTS 003545,002081: 003546,002082: E3,1400 SETLOC 1400 003547,002083: 003548,002084: # WAITLIST TASK LISTS. (26D) 003549,002085: 003550,002086: E3,1400 LST1 ERASE +7 # B(8D)PRM DELTA T'S. 003551,002087: E3,1410 LST2 ERASE +17D # B(18D)PRM TASK 2CADR ADDRESSES. 003552,002088: 003553,002089: # RESTART STORAGE. (2D) 003554,002090: 003555,002091: E3,1432 RSBBQ ERASE +1 # B(2)PRM SAVE BB AND Q FOR RESTARTS 003556,002092: 003557,002093: # MORE LONGCALL STORAGE. (MUST BE IN LST1'S BANK. (2D) 003558,002094: 003559,002095: E3,1434 LONGEXIT ERASE +1 # B(2)TMP MAY BE SELDOM OVERLAYED 003560,002096: 003561,002097: # PHASE-CHANGE LISTS PART II. (12D) 003562,002098: 003563,002099: 003564,002100: E3,1436 PHSNAME1 ERASE # B(1)PRM 003565,002101: E3,1437 PHSBB1 ERASE # B(1)PRM 003566,002102: E3,1440 PHSNAME2 ERASE # B(1)PRM 003567,002103: E3,1441 PHSBB2 ERASE # B(1)PRM 003568,002104: E3,1442 PHSNAME3 ERASE # B(1)PRM 003569,002105: E3,1443 PHSBB3 ERASE # B(1)PRM 003570,002106: E3,1444 PHSNAME4 ERASE # B(1)PRM 003571,002107: E3,1445 PHSBB4 ERASE # B(1)PRM 003572,002108: E3,1446 PHSNAME5 ERASE # B(1)PRM 003573,002109: E3,1447 PHSBB5 ERASE # B(1)PRM 003574,002110: E3,1450 PHSNAME6 ERASE # B(1)PRM 003575,002111: E3,1451 PHSBB6 ERASE # B(1)PRM 003576,002112: 003577,002113: # IMU COMPENSATION PARAMETERS (22D) 003578,002114: 003579,002115: E3,1452 PBIASX ERASE # B(1) PIPA BIAS, PIPA SCALE FACTOR TERMS 003580,002116: E3,1453 E3,1452 PIPABIAS = PBIASX # INTERMIXED. 003581,002117: E3,1453 PIPASCFX ERASE 003582,002118: E3,1454 E3,1453 PIPASCF = PIPASCFX 003583,002119: E3,1454 PBIASY ERASE 003584,002120: E3,1455 PIPASCFY ERASE 003585,002121: E3,1456 PBIASZ ERASE 003586,002122: E3,1457 PIPASCFZ ERASE 003587,002123: 003588,002124: E3,1460 NBDX ERASE # GYRO BIAS DRIFT 003589,002125: E3,1461 E3,1460 GBIASX = NBDX 003590,002126: E3,1461 NBDY ERASE 003591,002127: # Page 85 003592,002128: E3,1462 NBDZ ERASE 003593,002129: 003594,002130: E3,1463 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE 003595,002131: E3,1464 ADIAY ERASE # INPUT AXIS 003596,002132: E3,1465 ADIAZ ERASE 003597,002133: 003598,002134: E3,1466 ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE 003599,002135: E3,1467 ADSRAY ERASE # SPIN REFERENCE AXIS 003600,002136: E3,1470 ADSRAZ ERASE 003601,002137: 003602,002138: E3,1471 GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES 003603,002139: 003604,002140: E3,1477 GCOMPSW ERASE 003605,002141: E3,1500 E3,1471 COMMAND EQUALS GCOMP 003606,002142: E3,1500 E3,1474 CDUIND EQUALS GCOMP +3 003607,002143: 003608,002144: # STATE VECTORS FOR ORBIT INTEGRATION. (44D) 003609,002145: 003610,002146: # (DIFEQCNT THUR XKEP MUST BE IN THE SAME 003611,002147: # EBANK AS RRECTCSM, RRECTLEM ETC 003612,002148: # BECAUSE THE COPY CYCLES (ATOPCSM, 003613,002149: # PTOACSM ETC) ARE EXECUTED IN BASIC. 003614,002150: # ALL OTHER REFERENCES TO THIS GROUP 003615,002151: # ARE BY INTERPRETIVE INSTRUCTIONS.) 003616,002152: 003617,002153: 003618,002154: E3,1500 DIFEQCNT ERASE +43D # B(1)TMP 003619,002155: # (UPSVFLAG...XKEP MUST BE KEPT IN ORDER). 003620,002156: 003621,002157: E3,1554 E3,1501 UPSVFLAG EQUALS DIFEQCNT +1 # B(1)PRM UPDATE FLAG 003622,002158: E3,1554 E3,1502 RRECT EQUALS UPSVFLAG +1 # B(6)TMP POS AT RECT KM*2(-14) 003623,002159: E3,1554 E3,1510 VRECT EQUALS RRECT +6 # B(6)TMP VEL AT RECT KM(-1/2)*2(6) 003624,002160: E3,1554 E3,1516 TET EQUALS VRECT +6 # B(2)TMP TIME OF STATE VECT CSPCS*2(-28) 003625,002161: E3,1554 E3,1520 TDELTAV EQUALS TET +2 # B(6)TMP POSITION DEVIATION KM*2(14) 003626,002162: E3,1554 E3,1526 TNUV EQUALS TDELTAV +6 # B(6)TMP VEL DEVIATION KM(-1/2)*2(14) 003627,002163: E3,1554 E3,1534 RCV EQUALS TNUV +6 # B(6)TMP CONIC POSITION KM*2(-14) 003628,002164: E3,1554 E3,1542 VCV EQUALS RCV +6 # B(6)TMP CONIC VELOCITY KM(-1/2)*2(6) 003629,002165: E3,1554 E3,1550 TC EQUALS VCV +6 # B(2)TMP TIME SINCE RECITIFICATION 003630,002166: E3,1554 E3,1552 XKEP EQUALS TC +2 # B(2)TMP ROOT OF KEPLER EQ KM(1/2)*2(-10) 003631,002167: 003632,002168: # **** TEMP -- IN VAC AREA **** 003633,002169: E3,1554 RRECT1 EQUALS 18D 003634,002170: E3,1554 VRECT1 EQUALS 24D 003635,002171: E3,1554 TET1 EQUALS 30D 003636,002172: 003637,002173: # PERMANENT STATE VECTORS AND TIMES. 003638,002174: 003639,002175: # (DO NOT OVERLAY WITH ANYTHING AFTER BOOST) 003640,002176: 003641,002177: # Page 86 003642,002178: # (RRECTCSM...XKEPCSM MUST BE KEPT IN THIS ORDER) 003643,002179: 003644,002180: E3,1554 RRECTCSM ERASE +5 # B(6)PRM CSM VARIABLES 003645,002181: E3,1562 E3,1554 RRECTHIS = RRECTCSM 003646,002182: E3,1562 VRECTCSM ERASE +5 # B(6)PRM 003647,002183: E3,1570 TETCSM ERASE +1 # B(2)PRM 003648,002184: E3,1572 E3,1570 TETTHIS = TETCSM 003649,002185: E3,1572 DELTACSM ERASE +5 # B(6)PRM 003650,002186: E3,1600 NUVCSM ERASE +5 # B(6)PRM 003651,002187: E3,1606 RCVCSM ERASE +5 # B(6)PRM 003652,002188: E3,1614 VCVCSM ERASE +5 # B(6)PRM 003653,002189: E3,1622 TCCSM ERASE +1 # B(2)PRM 003654,002190: E3,1624 XKEPCSM ERASE +1 # B(2)PRM 003655,002191: 003656,002192: # (RRECTLEM...XKEPLEM MUST BE KEPT IN THIS ORDER) 003657,002193: 003658,002194: E3,1626 RRECTLEM ERASE +5 # B(6)PRM LEM VARIABLES 003659,002195: E3,1634 E3,1626 RRECTOTH = RRECTLEM 003660,002196: E3,1634 VRECTLEM ERASE +5 # B(6)PRM 003661,002197: E3,1642 TETLEM ERASE +1 # B(2)PRM 003662,002198: E3,1644 E3,1642 TETOTHER = TETLEM 003663,002199: E3,1644 DELTALEM ERASE +5 # B(6)PRM 003664,002200: E3,1652 NUVLEM ERASE +5 # B(6)PRM 003665,002201: E3,1660 RCVLEM ERASE +5 # B(6)PRM 003666,002202: E3,1666 VCVLEM ERASE +5 # B(6)PRM 003667,002203: E3,1674 TCLEM ERASE +1 # B(2)PRM 003668,002204: E3,1676 XKEPLEM ERASE +1 # B(2)PRM 003669,002205: 003670,002206: E3,1700 X789 ERASE +5 003671,002207: E3,1706 TEPHEM ERASE +2 003672,002208: E3,1711 AZO ERASE +1 003673,002209: E3,1713 UNITW ERASE +5 003674,002210: E3,1721 E3,1713 -AYO EQUALS UNITW # (2) 003675,002211: E3,1721 E3,1715 AXO EQUALS UNITW +2 # (2) 003676,002212: 003677,002213: # STATE VECTORS FOR DOWNLINK (12D) 003678,002214: 003679,002215: E3,1721 R-OTHER ERASE +5 # B(6)PRM POS VECT (OTHER VECH) FOR DNLINK 003680,002216: E3,1727 V-OTHER ERASE +5 # B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK 003681,002217: 003682,002218: E3,1735 E3,1642 T-OTHER = TETLEM # TIME (OTHER VECH) FOR DNLINK 003683,002219: 003684,002220: # REFSMMAT. (18D) 003685,002221: 003686,002222: E3,1735 REFSMMAT ERASE +17D # I(18D)PRM 003687,002223: 003688,002224: # Page 87 003689,002225: # AVERAGEG INTEGRATOR STORAGE. (8D) 003690,002226: E3,1757 UNITR ERASE +5 003691,002227: E3,1765 RMAG ERASE +1 003692,002228: 003693,002229: # **** CONICSEX (PLANETARY INERT. ORIEN.) **** 003694,002230: E3,1767 E3,1706 TIMSUBO EQUALS TEPHEM # CSEC B-14 (TRIPLE PREC) 003695,002231: E3,1767 E3,1767 END-E3 EQUALS RMAG +2 # NEXT UNUSED E3 ADDRESS 003696,002232: 003697,002233: # Page 88 003698,002234: # EBANK-4 ASSIGNMENTS 003699,002235: 003700,002236: E4,1400 SETLOC 2000 003701,002237: 003702,002238: # P20 STORAGE. -- PAD LOADED -- (4D) 003703,002239: 003704,002240: E4,1400 WRENDPOS ERASE # B(1)PL M B-14 003705,002241: E4,1401 WRENDVEL ERASE # B(1)PL M/CSECB0 003706,002242: E4,1402 RMAX ERASE # B(1)PL METERS*2(-19) 003707,002243: E4,1403 VMAX ERASE # B(1)PL M/CSEC*2(-7) 003708,002244: 003709,002245: # P22 STORAGE. -- PAD LOADED -- (5D) 003710,002246: E4,1404 WORBPOS ERASE # B(1)PL M B-14 003711,002247: E4,1405 WORBVEL ERASE # B(1)PL M/CSECB0 003712,002248: E4,1406 S22WSUBL ERASE # B(1)PL M B-14 003713,002249: E4,1407 RPVAR ERASE +1 # B(2)PL 003714,002250: 003715,002251: # CONISEX STORAGE. -- PAD LOADED -- (6D) 003716,002252: 003717,002253: E4,1411 504LM ERASE +5 # I(6) MOON LIBRATION VECTOR 003718,002254: 003719,002255: # ENTRY STORAGE -- PAD LOADED -- (2D) 003720,002256: E4,1417 EMSALT ERASE +1 # I(2)PL 003721,002257: 003722,002258: # P35 CONSTANTS. -- PAD LOADED -- (4D) 003723,002259: E4,1421 ATIGINC ERASE +1 # B(2)PL 003724,002260: E4,1423 PTIGINC ERASE +1 # B(2)PL 003725,002261: 003726,002262: # LUNAR LANDING SIGHT DATA. -- PAD LOADED -- (6D) 003727,002263: # (USED BY INTEGRATION INITIALIZATION, LAT-LONG SUBROUTINES, P30'S) 003728,002264: 003729,002265: E4,1425 RLS ERASE +5 # I(6) LANDING SIGHT VECTOR 003730,002266: 003731,002267: # (LUNAR AND SOLAR EPHEM) STORAGE. -- PAD LOADED -- (77D) 003732,002268: E4,1433 TIMEMO ERASE +76D 003733,002269: E4,1550 E4,1436 VECOEM EQUALS TIMEMO +3 003734,002270: E4,1550 E4,1532 RESO EQUALS VECOEM +60D 003735,002271: # Page 89 003736,002272: E4,1550 E4,1540 VESO EQUALS RESO +6 003737,002273: E4,1550 E4,1546 OMEGAES EQUALS VESO +6 003738,002274: 003739,002275: # INTEGRATION STORAGE. (95D) 003740,002276: 003741,002277: E4,1550 PBODY ERASE # I(1) 003742,002278: E4,1551 E4,1551 ALPHAV EQUALS PBODY +1 # I(6)TMP 003743,002279: E4,1551 E4,1557 BETAV EQUALS ALPHAV +6 # I(6)TMP 003744,002280: E4,1551 E4,1565 PHIV EQUALS BETAV +6 # I(6)TMP 003745,002281: E4,1551 E4,1573 PSIV EQUALS PHIV +6 # I(6)TMP 003746,002282: E4,1551 E4,1601 FV EQUALS PSIV +6 # I(6)TMP 003747,002283: E4,1551 E4,1607 BETAM EQUALS FV +6 # I(2)TMP 003748,002284: E4,1551 E4,1611 H EQUALS BETAM +2 # I(2)TMP 003749,002285: E4,1551 E4,1613 GMODE EQUALS H +2 # I(1)TMP 003750,002286: E4,1551 E4,1614 IRETURN EQUALS GMODE +1 # I(1)TMP 003751,002287: E4,1551 E4,1615 NORMGAM EQUALS IRETURN +1 # I(1)TMP 003752,002288: E4,1551 E4,1616 VECTAB EQUALS NORMGAM +1 # I(36)TMP 003753,002289: E4,1551 E4,1662 RPQV EQUALS VECTAB +36D # (6)TMP VECTOR PRIMARY TO SECONDARY BODY 003754,002290: E4,1551 E4,1670 ORIGEX EQUALS RPQV +6 # I(1)TMP QSAVE FOR COORD. SWITCH ROUTINE 003755,002291: E4,1551 E4,1670 KEPRTN EQUALS ORIGEX # QSAVE FOR KEPLER 003756,002292: E4,1551 E4,1671 RQVV EQUALS ORIGEX +1 # (6) SEC. BODY TO VEH. VECTOR (USED P23) 003757,002293: E4,1551 E4,1677 RPSV EQUALS RQVV +6 # (6)TMP SUN TO PRIMARY BODY VECTOR 003758,002294: E4,1551 E4,1705 XKEPNEW EQUALS RPSV +6 # (2)TMP ROOT OF KEPLER'S EQU FOR TIME TAU 003759,002295: 003760,002296: # THESE PROBABLY CAN SHARE INTEGRATION VARIABLES (9D) 003761,002297: 003762,002298: E4,1551 E4,1623 VACX EQUALS VECTAB +5 # I(2)TMP 003763,002299: E4,1551 E4,1625 VACY EQUALS VACX +2 # I(2)TMP 003764,002300: E4,1551 E4,1627 VACZ EQUALS VACY +2 # I(2)TMP 003765,002301: 003766,002302: E4,1551 E4,1640 ERADM EQUALS VECTAB +18D # I(2)TMP 003767,002303: E4,1551 E4,1642 INCORPEX EQUALS ERADM +2 # I(1)TMP 003768,002304: 003769,002305: # R31 (V83) STORAGE. -- SHARES WITH INTEGRATION STORAGE -- (28D) 003770,002306: 003771,002307: E4,1551 E4,1624 BASEOTP EQUALS VECTAB +6 # I(6) BASE POS VECTOR OTHER VEH 003772,002308: E4,1551 E4,1640 BASEOTV EQUALS VECTAB +18D # I(6) BASE VEL VECTOR OTHER VEH 003773,002309: E4,1551 E4,1654 BASETHP EQUALS VECTAB +30D # I(6) BASE POS VECTOR THIS VEH 003774,002310: E4,1551 E4,1662 BASETHV EQUALS RPQV # I(6) BASE VEL VECTOR THIS VEH 003775,002311: E4,1551 E4,1671 BASETIME EQUALS RQVV # I(2) TIME ASSOC WITH BASE VECS 003776,002312: E4,1551 E4,1673 ORIG EQUALS RQVV +2 # I(1) =0 FOR EARTH =+2 FOR MOON 003777,002313: 003778,002314: # CONIC INTEGRATION STORAGE. -- MAY NOT SHARE WITH SERVICER -- (6D) 003779,002315: E4,1551 E4,1707 ALPHAM EQUALS XKEPNEW +2 # I(2)TMP 003780,002316: 003781,002317: # Page 90 003782,002318: E4,1551 E4,1711 TAU. EQUALS ALPHAM +2 # I(2)TMP 003783,002319: E4,1551 E4,1713 DT/2 EQUALS TAU. +2 # I(2)TMP 003784,002320: 003785,002321: # P21 STORAGE. (2D) 003786,002322: E4,1551 E4,1715 P21TIME EQUALS DT/2 +2 # B(2)TMP 003787,002323: 003788,002324: # INCORPORATION/VERB 63 COMMON STORAGE (1D) 003789,002325: E4,1551 E4,1717 EGRESS EQUALS P21TIME +2 # I(1)TMP SAVES RETURNS. 003790,002326: 003791,002327: # VERB 83 STORAGE. MAY SHARE ONLY WITH INCORPORATION. (18D) 003792,002328: 003793,002329: E4,1551 E4,1720 RANGE EQUALS EGRESS +1 # I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ 003794,002330: E4,1551 E4,1722 RRATE EQUALS RANGE +2 # I(2)DSP NOUN 54 RATE OF APPROACH 003795,002331: E4,1551 E4,1724 RTHETA EQUALS RRATE +2 # I(2)DSP NOUN 54. 003796,002332: E4,1551 E4,1726 RONE EQUALS RTHETA +2 # I(6)TMP VECTOR STORAGE. (SCRATCH) 003797,002333: E4,1551 E4,1734 VONE EQUALS RONE +6 # I(6)TMP VECTOR STORAGE. (SCRATCH) 003798,002334: 003799,002335: # LUNAR LANDMARK SELECTION PROGRAM -- R35 (28D) 003800,002336: E4,1551 E4,1720 XR1HOLD EQUALS RANGE # I(2) 003801,002337: E4,1551 E4,1722 VECTIME EQUALS XR1HOLD +2 # I(2) 003802,002338: E4,1551 E4,1724 JLOOPCNT EQUALS VECTIME +2 # I(1) 003803,002339: E4,1551 E4,1725 KLOOPCNT EQUALS JLOOPCNT +1 # I(1) 003804,002340: E4,1551 E4,1726 NKVAL EQUALS KLOOPCNT +1 # I(1) 003805,002341: E4,1551 E4,1727 DELTAL EQUALS NKVAL +1 # I(2) 003806,002342: E4,1551 E4,1731 TK EQUALS DELTAL +2 # I(2) 003807,002343: E4,1551 E4,1733 INDEXNUM EQUALS TK +2 # I(1) 003808,002344: 003809,002345: E4,1551 E4,1734 LONGSAVE EQUALS INDEXNUM +1 # I(2) 003810,002346: E4,1551 E4,1736 POSVECT EQUALS LONGSAVE +2 # I(6) 003811,002347: E4,1551 E4,1744 VELVECT EQUALS POSVECT +6 # I(6) 003812,002348: E4,1551 E4,1752 LSLONG EQUALS VELVECT +6 # I(2)TMP LONGITUDE OF LANDING SIGHT 003813,002349: 003814,002350: # S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05 (V64). (4D) 003815,002351: # (OPERATES DURING P00 ONLY) 003816,002352: E4,1551 E4,1720 RHOSB EQUALS RANGE # B(2)DSP NOUN 51. PITCH ANGLE 003817,002353: E4,1551 E4,1722 GAMMASB EQUALS RHOSB +2 # B(2)DSP NOUN 51. YAWANGLE 003818,002354: 003819,002355: # R36 SCRATCHPAD STORAGE 003820,002356: # Page 91 003821,002357: E4,1551 E4,1726 RPASS36 EQUALS RONE # I(6) S-S 003822,002358: E4,1551 E4,1734 UNP36 EQUALS RPASS36 +6 # I(6) S-S 003823,002359: 003824,002360: # EXTENDED VERB 62 STORAGE. 003825,002361: # (*** SHARING IN THIS SECTION IS TEMPORARY ONLY ****) (8D) 003826,002362: 003827,002363: E4,1551 E4,1720 HPERMIN EQUALS RANGE # I(2) SET TO 300KFT FOR SR30.1 003828,002364: E4,1551 E4,1722 RPADTEM EQUALS HPERMIN +2 # I(2) PAD OR LANDING RADIUS FOR SR30.1 003829,002365: E4,1551 E4,1724 TSTART82 EQUALS RPADTEM +2 # I(2) TEMP TIME STORATE VOR V82. 003830,002366: 003831,002367: # MORE VERB 62 NOT SHARING WITH VERB 83 (9D) 003832,002368: E4,1551 E4,1742 V82FLAGS EQUALS VONE +6 # (1) FOR V 82 BITS 003833,002369: E4,1551 E4,1743 TFF EQUALS V82FLAGS +1 # I(2)DSP NOUN 42, FOR P30,40,41. 003834,002370: E4,1551 E4,1745 -TPER EQUALS TFF +2 # I(2)DSP NOUN 32 003835,002371: E4,1551 E4,1747 THETA(1) EQUALS -TPER +2 # I(2)TMP SET AT END OF V62 003836,002372: E4,1551 E4,1755 RSP-RREC EQUALS AOPTIME # DSP NOUN R32 003837,002373: 003838,002374: # REENTRY CONICS (6D) 003839,002375: E4,1551 E4,1742 URONE EQUALS V82FLAGS # I(6) SAVE ACTUAL FOR CALCULATIONS 003840,002376: 003841,002377: # V62 DISPLAY (4D) 003842,002378: E4,1551 E4,1751 HAPOX EQUALS THETA(1) +2 # I(2)DSP NOUN 44 003843,002379: E4,1551 E4,1753 HPERX EQUALS HAPOX +2 # I(2)DSP NOUN 44 003844,002380: 003845,002381: # VARIOUS DISPLAY REGISTERS (06D) 003846,002382: E4,1551 E4,1755 AOPTIME EQUALS HPERX +2 003847,002383: E4,1551 E4,1757 LANDLONG EQUALS AOPTIME +2 # I(2)DSP NOUN 89 FOR P22 003848,002384: E4,1551 E4,1761 LANDALT EQUALS LANDLONG +2 # I(2)DSP NOUN 89 FOR P22 003849,002385: 003850,002386: # S34/35.5,P34-P35 STORAGE. (6D) 003851,002387: E4,1551 E4,1763 KT EQUALS LANDALT +2 # B(2) 003852,002388: E4,1551 E4,1765 VERBNOUN EQUALS KT +2 # B(1)TMP 003853,002389: E4,1551 E4,1766 QSAVED EQUALS VERBNOUN +1 # B(1)TMP HOLDS RETURN 003854,002390: # Page 92 003855,002391: E4,1551 E4,1767 RTRN EQUALS QSAVED +1 # B(1) RETURN 003856,002392: E4,1551 E4,1770 SUBEXIT EQUALS RTRN +1 # B(1)TMP 003857,002393: # RGEXIT CAN'T SHARE WITH HPER,HAPO 003858,002394: E4,1551 E4,1770 RGEXIT EQUALS SUBEXIT # I(1)TMP Q SAVE MODE 1 AND 2 TO RTRN MAIN 003859,002395: 003860,002396: # P30 DISPLAY (4D) 003861,002397: E4,1551 E4,1763 HAPO EQUALS KT # I(2)DSP NOUN 42, FOR P30. 003862,002398: E4,1551 E4,1765 HPER EQUALS HAPO +2 # I(2)DSP NOUN 42, FOR P30. 003863,002399: 003864,002400: # SOME P34 STORAGE. (OVERLAYS P35.1 STORAGE) (2D) 003865,002401: E4,1551 E4,1763 NOMTPI EQUALS KT # I(2)TMP NOMINAL TPI TIME FOR RECYCLE. 003866,002402: 003867,002403: # THE FOLLOWING ARE ERASABLES USED BY TEH SYSTEM TESTS. 205 USES TRANSM1. Q'S ARE NOT USED IN 205 NORE ARE THEY 003868,002404: # WHILE 504 USES TRANSM1 AND ALFDK. 003869,002405: E4,1551 TRANSM1 EQUALS 2000 # (19) INITIALIZATION FOR IMU TESTS 003870,002406: E4,1551 0002022 ALFDK = TRANSM1 +18D # (144) ERASABLE LOAD IN 504 003871,002407: 003872,002408: # END OF PERF. TEST ERASABLE IN BANK 4 003873,002409: 003874,002410: # *-*-* V82 *-*-* (6D) 003875,002411: 003876,002412: E4,1551 E4,1771 VONE' EQUALS RGEXIT +1 # I(6)TMP NORMAL VELOCITY VONE / SQ RT MU 003877,002413: 003878,002414: # PAD LOAD INTEGRATION ERROR INCLUDED IN VARIANCE BY P20 (1D) 003879,002415: 003880,002416: E4,1551 E4,1777 INTVAR EQUALS VONE' +6 # I(1)PL SQUARE OF EXPECTED INTEGRATION 003881,002417: # POSITION EXTRAPOLATION ERROR. 003882,002418: # SCALED METERS(2) 2(15) 003883,002419: E4,1551 E4,1777 END-E4 EQUALS INTVAR # LAST USED ERASABLE IN E4. 003884,002420: 003885,002421: # Page 93 003886,002422: # EBANK-5 ASSIGNMENTS 003887,002423: 003888,002424: E5,1400 SETLOC 2400 003889,002425: 003890,002426: # *-*-*-*- OVERLAY 1 IN EBANK 5 -*-*-*-* 003891,002427: 003892,002428: # W-MATRIX STORAGE. (162D) 003893,002429: 003894,002430: E5,1400 W EQUALS 2400 # B(162) 003895,002431: E5,1400 0002570 EMATRIX = W +120D # B(42E USED TO CONVERT W TO 6X6 003896,002432: E5,1400 0002642 END-W EQUALS W +162D # **NEXT AVAILABLE LOC AFTER W MATRIX** 003897,002433: 003898,002434: # AUTO-OPTICS STORAGE -R52- 003899,002435: 003900,002436: # DO NOT MOVE FROM E5,1554. A DELICATE BALANCE EXISTS BETWEEN THIS AND P03 003901,002437: E5,1400 0002554 XNB1 EQUALS W +108D # B(6D)TMP 003902,002438: E5,1400 0002562 YNB1 EQUALS XNB1 +6 # B(6)TMP 003903,002439: E5,1400 0002570 ZNB1 EQUALS YNB1 +6 # B(6)TMP 003904,002440: E5,1400 0002576 SAVQR52 EQUALS ZNB1 +6 # I(2)TMP 003905,002441: E5,1400 0002600 PLANVEC EQUALS SAVQR52 +2 # B(6) S-S SIGHTING VECTOR IN REF. COOR. 003906,002442: E5,1400 0002606 TSIGHT EQUALS PLANVEC +6 # B(2) S-S TIME OF SIGHTING 003907,002443: 003908,002444: # RENDEZVOUS -P34-35 003909,002445: E5,1400 0002610 DVLOS EQUALS TSIGHT +2 # I(6) S-S DELTA VELOCITY, LOS COORD-DISPLAY 003910,002446: E5,1400 0002610 DELTAR EQUALS DVLOS # I(2) 003911,002447: E5,1400 0002610 TINTSOI EQUALS DELTAR # I(2) INTERCEPT TIME FOR SOI MANEUVER 003912,002448: E5,1400 0002612 DELTTIME EQUALS DVLOS +2 # I(2) 003913,002449: E5,1400 0002614 TARGTIME EQUALS DVLOS +4 # I(2) 003914,002450: E5,1400 0002616 UNRM EQUALS DVLOS +6 # I(6) S-S 003915,002451: E5,1400 0002624 ULOS EQUALS UNRM +6 # I(6) S-S UNIT LINE OF SIGHT VECTOR 003916,002452: E5,1400 0002632 ACTCENT EQUALS ULOS +6 # I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE 003917,002453: # VEH AT TPI IGNITION TIME AND 003918,002454: # TARGET VECTOR. 003919,002455: E5,1400 0002634 DELVTPI EQUALS ACTCENT +2 # I(2) NOUN 58 FOR P34 003920,002456: E5,1400 0002636 DELVTPF EQUALS DELVTPI +2 # I(2) NOUN 58,59 FOR P34,35 003921,002457: E5,1400 0002640 POSTTPI EQUALS DELVTPF +2 # I(2) NOUN 58 FOR P34. 003922,002458: E5,1400 0002634 TDEC2 EQUALS DELVTPI # (2) 003923,002459: 003924,002460: # ALIGNMENT (12D) 003925,002461: E5,1400 0002610 STARSAV1 EQUALS DVLOS # I(6)TMP RESTART STAR SAVE. 003926,002462: E5,1400 0002616 STARSAV2 EQUALS STARSAV1 +6 # I(6)TMP RESTART STAR SAVE. 003927,002463: # Page 94 003928,002464: E5,1400 0002616 US = STARSAV2 # (CISLUNAR TAG FOR STARSAV2). 003929,002465: 003930,002466: # TPI SEARCH (26D) 003931,002467: E5,1400 0002610 IT EQUALS DVLOS # (6) 003932,002468: E5,1400 0002616 THETZERO EQUALS IT +6 # (2) 003933,002469: E5,1400 0002620 TFI EQUALS THETZERO +2 # (2) 003934,002470: E5,1400 0002622 DELVEE EQUALS TFI +2 # (2) 003935,002471: E5,1400 0002624 HP EQUALS DELVEE +2 # (2) 003936,002472: E5,1400 0002626 TFO EQUALS HP +2 # (2) 003937,002473: E5,1400 0002630 HPO EQUALS TFO +2 # (2) 003938,002474: E5,1400 0002632 DELVEO EQUALS HPO +2 # (2) 003939,002475: E5,1400 0002634 MAGVTPI EQUALS DELVEO +2 # I(2)TMP MAG OF DELTAVTPI OR VMID 003940,002476: E5,1400 0002636 RELDELV EQUALS MAGVTPI +2 # I(2)TMP MAG OF DELTAVTPF 003941,002477: E5,1400 0002640 T3TOT4 EQUALS RELDELV +2 # I(2)DSP NOUN 39 FOR P34,35. TPI TO TINT 003942,002478: # (CANNOT SHARE WITH RETURN TO EARTH) 003943,002479: # Page 95 003944,002480: # ALIGNMENT/SYSTEST/CALCSMSC/CRS61.1 COMMON STORAGE (36D) 003945,002481: # (CALCSMSC IS A SUBSET OF S41.1 AT LEAST) 003946,002482: # (CRS61.1 IS A SUBSET OF P20) 003947,002483: 003948,002484: E5,1400 0002671 XSM EQUALS END-W +23D # B(6) 003949,002485: E5,1400 0002677 YSM EQUALS XSM +6 # B(6)TMP 003950,002486: E5,1400 0002705 ZSM EQUALS YSM +6 # B(6)TMP 003951,002487: 003952,002488: E5,1400 0002713 XDC EQUALS ZSM +6 # B(6)TMP 003953,002489: E5,1400 0002721 YDC EQUALS XDC +6 # B(6)TMP 003954,002490: E5,1400 0002727 ZDC EQUALS YDC +6 # B(6)TMP 003955,002491: 003956,002492: E5,1400 0002713 XNB = XDC 003957,002493: E5,1400 0002721 YNB = YDC 003958,002494: E5,1400 0002727 ZNB = ZDC 003959,002495: 003960,002496: # OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE 003961,002497: 003962,002498: E5,1400 0002673 -COSB EQUALS XSM +2 # (2)TMP 003963,002499: E5,1400 0002675 SINB EQUALS -COSB +2 # (2)TMP 003964,002500: 003965,002501: # ALIGNMENT/SYSTEST COMMON STORAGE. (18D) 003966,002502: 003967,002503: E5,1400 0002735 STARAD EQUALS ZDC +6 # I(18D)TMP 003968,002504: 003969,002505: # ALIGNMENT/SYSTEST/AUTO OPTICS COMMON STORAGE. (37D) 003970,002506: 003971,002507: E5,1400 0002757 OGC EQUALS STARAD +18D # I(2)TMP 003972,002508: E5,1400 0002761 IGC EQUALS OGC +2 # I(2)TMP 003973,002509: E5,1400 0002763 MGC EQUALS IGC +2 # I(2)TMP 003974,002510: E5,1400 0002765 STAR EQUALS MGC +2 # I(6)TMP 003975,002511: E5,1400 0002773 SAC EQUALS STAR +6 # I(2)TMP 003976,002512: E5,1400 0002775 PAC EQUALS SAC +2 # I(2)TMP 003977,002513: E5,1400 0002777 QMIN EQUALS PAC +2 # B(1)TMP 003978,002514: 003979,002515: # **** COLP50'S **** 003980,002516: E5,1400 0002735 CULTRIX EQUALS VEARTH # VEARTH, VSUN, VMOON 003981,002517: 003982,002518: # OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE (24D) 003983,002519: 003984,002520: E5,1400 0002735 VEARTH EQUALS STARAD # (6)TMP 003985,002521: E5,1400 0002743 VSUN EQUALS VEARTH +6 # (6)TMP 003986,002522: E5,1400 0002751 VMOON EQUALS VSUN +6 # (6)TMP 003987,002523: E5,1400 0002757 SAX EQUALS VMOON +6 # (6)TMP 003988,002524: 003989,002525: # Page 96 003990,002526: # *-*-*-*- OVERLAY NUMBER 2 IN EBANK 5 -*-*-*-* 003991,002527: 003992,002528: # CONICS ROUTINE STORAGE. (67D) 003993,002529: 003994,002530: E5,1400 0002642 DELX EQUALS END-W # I(2)TMP 003995,002531: E5,1400 0002644 DELT EQUALS DELX +2 # I(2)TMP 003996,002532: E5,1400 0002646 URRECT EQUALS DELT +2 # I(6)TMP 003997,002533: E5,1400 0002654 RCNORM EQUALS URRECT +6 # I(2)TMP 003998,002534: E5,1400 E3,1552 XPREV EQUALS XKEP # I(2)TMP 003999,002535: E5,1400 0002656 R1VEC EQUALS RCNORM +2 # I(6)TMP 004000,002536: E5,1400 0002664 R2VEC EQUALS R1VEC +6 # I(6)TMP 004001,002537: E5,1400 0002672 TDESIRED EQUALS R2VEC +6 # I(2)TMP 004002,002538: E5,1400 0002674 GEOMSGN EQUALS TDESIRED +2 # I(1)TMP 004003,002539: E5,1400 0002675 UN EQUALS GEOMSGN +1 # I(6)TMP 004004,002540: E5,1400 0002703 VTARGTAG EQUALS UN +6 # I(1)TMP 004005,002541: E5,1400 0002704 VTARGET EQUALS VTARGTAG +1 # I(6)TMP 004006,002542: E5,1400 0002712 RTNLAMB EQUALS VTARGET +6 # I(1)TMP 004007,002543: E5,1400 0002713 U2 EQUALS RTNLAMB +1 # I(6)TMP 004008,002544: E5,1400 0002721 MAGVEC2 EQUALS U2 +6 # I(2)TMP 004009,002545: E5,1400 0002723 UR1 EQUALS MAGVEC2 +2 # I(6)TMP 004010,002546: E5,1400 0002731 SNTH EQUALS UR1 +6 # I(2)TMP 004011,002547: E5,1400 0002733 CSTH EQUALS SNTH +2 # I(2)TMP 004012,002548: E5,1400 0002735 1-CSTH EQUALS CSTH +2 # I(2)TMP 004013,002549: E5,1400 0002737 CSTH-RHO EQUALS 1-CSTH +2 # I(2)TMP 004014,002550: E5,1400 0002741 P EQUALS CSTH-RHO +2 # I(2)TMP 004015,002551: E5,1400 0002743 R1A EQUALS P +2 # I(2)TMP 004016,002552: E5,1400 0002656 RVEC EQUALS R1VEC # I(6)TMP 004017,002553: E5,1400 0002745 VVEC EQUALS R1A +2 # I(6)TMP 004018,002554: E5,1400 0002712 RTNTT EQUALS RTNLAMB # I(1)TMP 004019,002555: E5,1400 0002753 ECC EQUALS VVEC +6 # I(2)TMP 004020,002556: E5,1400 0002712 RTNTR EQUALS RTNLAMB # I(1)TMP 004021,002557: E5,1400 0002712 RTNAPSE EQUALS RTNLAMB # I(1)TMP 004022,002558: E5,1400 0002721 R2 EQUALS MAGVEC2 # I(2)TMP 004023,002559: E5,1400 0002755 RTNPRM EQUALS ECC +2 # I(1)TMP 004024,002560: E5,1400 0002756 SGNRDOT EQUALS RTNPRM +1 # I(1)TMP 004025,002561: E5,1400 0002757 RDESIRED EQUALS SGNRDOT +1 # I(2)TMP 004026,002562: E5,1400 0002761 DELDEP EQUALS RDESIRED +2 # I(2)TMP 004027,002563: E5,1400 0002763 DEPREV EQUALS DELDEP +2 # I(2)TMP 004028,002564: E5,1400 0002761 TERRLAMB EQUALS DELDEP # I(2)TMP 004029,002565: E5,1400 0002763 TPREV EQUALS DEPREV # I(2)TMP 004030,002566: # Page 97 004031,002567: # *-*-*-*- OVERLAY NUMBER 3 IN EBANK 5 -*-*-*-* 004032,002568: 004033,002569: # MEASUREMENT INCORPORATION STORAGE. (66D) 004034,002570: # (CALLED BY P20, P22, P23) 004035,002571: 004036,002572: E5,1400 0002642 OMEGAM1 EQUALS END-W # I(6) 004037,002573: E5,1400 0002650 OMEGAM2 EQUALS OMEGAM1 +6 # I(6) 004038,002574: E5,1400 0002656 OMEGAM3 EQUALS OMEGAM2 +6 # I(6) 004039,002575: E5,1400 0002664 HOLDW EQUALS OMEGAM3 +6 # I(18) 004040,002576: E5,1400 0002706 TDPOS EQUALS HOLDW +18D # I(6) 004041,002577: E5,1400 0002714 TDVEL EQUALS TDPOS +6 # I(6) 004042,002578: 004043,002579: E5,1400 0002722 ZI EQUALS TDVEL +6 # I(18) 004044,002580: 004045,002581: # P22-P23 STORAGE. (8D) 004046,002582: 004047,002583: E5,1400 0002744 22SUBSCL EQUALS ZI +18D # DE OF ABCDE LANDMARK ID NO. 004048,002584: E5,1400 0002745 CXOFF EQUALS 22SUBSCL +1 # B OF ABCDE OFFSET INDICATOR 004049,002585: E5,1400 0002746 8KK EQUALS CXOFF +1 # B(1)TMP INDEX OF PRESENT MARK 004050,002586: E5,1400 0002747 8NN EQUALS 8KK +1 # B(1)TMP 004051,002587: E5,1400 0002750 S22LOC EQUALS 8NN +1 # I(1)TMP MARK DATA LOC 004052,002588: E5,1400 0002751 LANDMARK EQUALS S22LOC +1 # B(1)DSP NOUN 70 FOR P22,51, R52,53 004053,002589: E5,1400 0002752 HORIZON EQUALS LANDMARK +1 # B(1)DSP NOUN 70 FOR P22,51, R52,53 004054,002590: E5,1400 0002753 IDOFLMK EQUALS HORIZON +1 # B(1) 004055,002591: 004056,002592: # ******P23*** (1D) 004057,002593: E5,1400 0002754 TRUNION EQUALS IDOFLMK +1 # B(1) 004058,002594: 004059,002595: # Page 98 004060,002596: 004061,002597: # *-*-*-*- OVERLAY NUMBER 0 IN EBANK 5 -*-*-*-* 004062,002598: 004063,002599: # SYSTEM TEST STORAGE. (174) 004064,002600: 004065,002601: E5,1400 AZIMUTH ERASE +1 004066,002602: E5,1402 LATITUDE ERASE +1 004067,002603: 004068,002604: E5,1404 1160 TRUNA EQUALS DESOPTT 004069,002605: E5,1404 1161 SHAFTA EQUALS DESOPTS 004070,002606: 004071,002607: E5,1404 ERVECTOR ERASE +5 004072,002608: E5,1412 LENGTHOT ERASE 004073,002609: E5,1413 LOSVEC ERASE +5 004074,002610: 004075,002611: E5,1421 E5,1413 SXTOPTN = LOSVEC 004076,002612: E5,1421 NDXCTR ERASE 004077,002613: E5,1422 PIPINDEX ERASE 004078,002614: E5,1423 POSITON ERASE 004079,002615: E5,1424 QPLAC ERASE 004080,002616: E5,1425 QPLACE ERASE 004081,002617: E5,1426 QPLACES ERASE 004082,002618: E5,1427 RUN ERASE 004083,002619: E5,1430 STOREPL ERASE 004084,002620: E5,1431 SOUTHDR ERASE 004085,002621: E5,1432 E5,1431 TARG1/2 = SOUTHDR 004086,002622: E5,1432 TAZEL1 ERASE +5 004087,002623: E5,1440 TEMPTIME ERASE +1 004088,002624: E5,1442 TMARK ERASE +1 004089,002625: E5,1444 GENPL ERASE +134D 004090,002626: E5,1653 E5,1444 CDUTIMEI = GENPL 004091,002627: E5,1653 E5,1446 CDUTIMEF = GENPL +2 004092,002628: E5,1653 E5,1450 IMU/OPT = GENPL +4 004093,002629: E5,1653 E5,1451 CDUREADF = GENPL +5 004094,002630: E5,1653 E5,1452 CDUREADI = GENPL +6 004095,002631: E5,1653 E5,1453 CDULIMIT = GENPL +7 004096,002632: 004097,002633: E5,1653 E5,1450 TEMPADD = GENPL +4 004098,002634: E5,1653 E5,1451 TEMP = GENPL +5 004099,002635: E5,1653 E5,1452 NOBITS = GENPL +6 004100,002636: E5,1653 E5,1453 CHAN = GENPL +7 004101,002637: 004102,002638: E5,1653 E5,1454 LOS1 = GENPL +8D 004103,002639: E5,1653 E5,1462 LOS2 = GENPL +14D 004104,002640: 004105,002641: E5,1653 E5,1470 CALCDIR EQUALS GENPL +20D 004106,002642: E5,1653 E5,1471 CDUFLAG EQUALS GENPL +21D 004107,002643: E5,1653 E5,1472 GYTOBETQ EQUALS GENPL +22D 004108,002644: E5,1653 E5,1473 OPTNREG EQUALS GENPL +23D 004109,002645: E5,1653 E5,1474 SAVE EQUALS GENPL +24D # THREE ONSEC LOC 004110,002646: E5,1653 E5,1477 SFCONST1 EQUALS GENPL +27D 004111,002647: # Page 99 004112,002648: E5,1653 E5,1500 TIMER EQUALS GENPL +28D 004113,002649: 004114,002650: E5,1653 E5,1502 DATAPL EQUALS GENPL +30D 004115,002651: E5,1653 E5,1444 RDSP EQUALS GENPL # FIX LATER POSSIBLY KEEP1 004116,002652: E5,1653 E5,1544 MASKREG EQUALS GENPL +64D 004117,002653: E5,1653 E5,1546 CDUNDX EQUALS GENPL +66D 004118,002654: E5,1653 E5,1547 RESULTCT EQUALS GENPL +67D 004119,002655: E5,1653 E5,1552 COUNTPL EQUALS GENPL +70D 004120,002656: 004121,002657: E5,1653 E5,1553 CDUANG EQUALS GENPL +71D 004122,002658: E5,1653 E5,1444 AINLA = GENPL # OPTIMUM CALIB. AND ALIGNMENT 004123,002659: E5,1653 E5,1444 WANGO EQUALS AINLA 004124,002660: E5,1653 E5,1446 WANGI EQUALS AINLA +2D 004125,002661: E5,1653 E5,1450 WANGT EQUALS AINLA +4D 004126,002662: E5,1653 E5,1450 TORQNDX = WANGT 004127,002663: E5,1653 E5,1452 DRIFTT EQUALS AINLA +6D 004128,002664: E5,1653 E5,1454 ALX1S EQUALS AINLA +8D 004129,002665: E5,1653 E5,1455 CMPX1 EQUALS AINLA +9D 004130,002666: E5,1653 E5,1456 ALK EQUALS AINLA +10D 004131,002667: E5,1653 E5,1472 VLAUNS EQUALS AINLA +22D 004132,002668: E5,1653 E5,1460 THETAX = ALK +2 004133,002669: E5,1653 E5,1474 WPLATO EQUALS AINLA +24D 004134,002670: E5,1653 E5,1500 INTY EQUALS AINLA +28D 004135,002671: E5,1653 E5,1466 THETAN = THETAX +6 004136,002672: E5,1653 E5,1502 ANGZ EQUALS AINLA +30D 004137,002673: E5,1653 E5,1504 INTZ EQUALS AINLA +32D 004138,002674: E5,1653 E5,1506 ANGY EQUALS AINLA +34D 004139,002675: E5,1653 E5,1510 ANGX EQUALS AINLA +36D 004140,002676: E5,1653 E5,1512 DRIFTO EQUALS AINLA +38D 004141,002677: E5,1653 E5,1514 DRIFTI EQUALS AINLA +40D 004142,002678: E5,1653 E5,1520 VLAUN EQUALS AINLA +44D 004143,002679: E5,1653 E5,1474 FILDELV = THETAN +6 004144,002680: E5,1653 E5,1522 ACCWD EQUALS AINLA +46D 004145,002681: E5,1653 E5,1476 INTVEC = FILDELV +2 004146,002682: E5,1653 E5,1530 POSNV EQUALS AINLA +52D 004147,002683: E5,1653 E5,1532 DPIPAY EQUALS AINLA +54D 004148,002684: E5,1653 E5,1536 DPIPAZ EQUALS AINLA +58D 004149,002685: E5,1653 E5,1540 ALTIM EQUALS AINLA +60D 004150,002686: E5,1653 E5,1541 ALTIMS EQUALS AINLA +61D 004151,002687: E5,1653 E5,1542 ALDK EQUALS AINLA +62D 004152,002688: E5,1653 E5,1560 DELM EQUALS AINLA +76D 004153,002689: E5,1653 E5,1570 WPLATI EQUALS AINLA +84D 004154,002690: E5,1653 E5,1577 RESTARPT = AINLA +91D 004155,002691: E5,1653 E5,1631 GEOSAVED = AINLA +117D 004156,002692: E5,1653 E5,1632 PREMTRXC = AINLA +118D 004157,002693: E5,1653 E5,1633 LAUNCHAZ = AINLA +119D 004158,002694: E5,1653 E5,1635 NEWAZMTH = AINLA +121D 004159,002695: E5,1653 E5,1637 OLDAZMTH = AINLA +123D 004160,002696: # Page 100 004161,002697: E5,1653 E5,1641 TOLDAZMT = AINLA +125D 004162,002698: E5,1653 E5,1643 GEOCOMPS = AINLA +127D 004163,002699: E5,1653 E5,1644 1SECXT = AINLA +128D 004164,002700: E5,1653 E5,1645 GTSXTLST = AINLA +129D 004165,002701: E5,1653 E5,1646 ERECTIME = AINLA +130D 004166,002702: E5,1653 E5,1647 ERCOMP = AINLA +131D 004167,002703: E5,1653 E5,1655 ZERONDX = AINLA +137D 004168,002704: E5,1653 E5,1655 GTSOPNDZ = ZERONDX 004169,002705: 004170,002706: # THE FOLLOWING TAGS ARE USED BY THE 504 IMU CALIBRATION AND ALIGNMENT PROGRAM ONLY. 004171,002707: 004172,002708: E5,1653 E5,1460 THETAX1 EQUALS ALK +2 004173,002709: E5,1653 E5,1466 THETAN1 EQUALS THETAX1 +6 004174,002710: E5,1653 E5,1474 FILDELV1 EQUALS THETAN1 +6 004175,002711: E5,1653 E5,1476 INTVEC1 EQUALS FILDELV1 +2 004176,002712: E5,1653 E5,1631 GEOSAVE1 EQUALS AINLA +117D 004177,002713: E5,1653 E5,1632 PREMTRX1 EQUALS AINLA +118D 004178,002714: E5,1653 E5,1633 LUNCHAZ1 EQUALS AINLA +119D 004179,002715: E5,1653 E5,1635 NEWAZ1 EQUALS LUNCHAZ1 +2 004180,002716: E5,1653 E5,1637 OLDAZ1 EQUALS LUNCHAZ1 +4 004181,002717: E5,1653 E5,1641 TOLDAZ1 EQUALS LUNCHAZ1 +6 004182,002718: E5,1653 E5,1643 GEOCOMP1 EQUALS AINLA +127D 004183,002719: E5,1653 E5,1644 1SECXT1 EQUALS AINLA +128D 004184,002720: E5,1653 E5,1645 GTSWTLT1 EQUALS AINLA +129D 004185,002721: E5,1653 E5,1646 ERECTIM1 EQUALS AINLA +130D 004186,002722: E5,1653 E5,1647 ERCOMP1 EQUALS AINLA +131D # I(6) 004187,002723: E5,1653 E5,1655 ZERONDX1 EQUALS AINLA +137D 004188,002724: E5,1653 E5,1656 PERFDLAY EQUALS AINLA +138D # R(2).......... 004189,002725: 004190,002726: # END OF 504 + ALIGN ERASE. 004191,002727: E5,1653 0002777 END-E5 EQUALS QMIN # LAST USED E5 ADDRESS 004192,002728: 004193,002729: # Page 101 004194,002730: # EBANK-6 ASSIGNMENTS. 004195,002731: 004196,002732: E6,1400 SETLOC 3000 004197,002733: # P23 PAD LOADS *** (2D). 004198,002734: E6,1400 WMIDPOS ERASE # I(1)PL INITIAL VALUES FOR W-MATRIX IN 004199,002735: E6,1401 WMIDVEL ERASE # I(1)PL CISLUNAR (P23) NAVIGATION 004200,002736: 004201,002737: # R22 PAD LOADS (3D). 004202,002738: E6,1402 RVAR ERASE +1 # I(2)PL VHF RADAR 004203,002739: E6,1404 RVARMIN ERASE +2 # I(3)PL VHF RADAR 004204,002740: 004205,002741: # ***** PAD LOADED ENTRY DAP STEERING VARIABLES ***** (3D) 004206,002742: E6,1407 LADPAD ERASE # I(1)PL FOR ENTRY. HOLDS CM NOMINAL L/D 004207,002743: E6,1410 LODPAD ERASE # I(1)PL FOR ENTRY. HOLDS CM NOMINAL LOD 004208,002744: E6,1411 ALFAPAD ERASE # B(1)PL ALFA TRIM / 180 004209,002745: 004210,002746: # ***** PAD LOADED TVC DAP VARIABLES **************** (28D) 004211,002747: E6,1412 ESTROKER ERASE # B(1)PL 004212,002748: E6,1413 EKPRIME ERASE +1 # B(2)PL 004213,002749: E6,1415 ETDECAY ERASE # I(1)PL 004214,002750: E6,1416 EKTLX/I ERASE +1 # B(2)PL 004215,002751: E6,1420 ETVCDT/2 ERASE # B(1)PL 004216,002752: E6,1421 ETSWITCH ERASE # B(1)PL 004217,002753: E6,1422 ECORFRAC ERASE # B(1)PL 004218,002754: E6,1423 EREPFRAC ERASE +1 # B(2)PL 004219,002755: E6,1425 PACTOFF ERASE # B(1)PL, DSP N48 R01 = PTRIM, RD2 = YTRIM 004220,002756: E6,1426 YACTOFF ERASE # B(1)PL, CONSECUTIVE WITH PACTOFF 004221,002757: E6,1427 AP0 ERASE # B(1) 004222,002758: E6,1430 AP1 ERASE +1 # B(2) 004223,002759: E6,1432 AP2 ERASE +1 # B(2) 004224,002760: E6,1434 AP3 ERASE +1 # B(2) 004225,002761: 004226,002762: E6,1436 BP1 ERASE +1 # B(2) 004227,002763: E6,1440 BP2 ERASE +1 # B(2) 004228,002764: E6,1442 BP3 ERASE +1 # B(3) 004229,002765: E6,1444 E6,1427 AY0 = AP0 004230,002766: E6,1444 E6,1430 AY1 = AP1 004231,002767: E6,1444 E6,1432 AY2 = AP2 004232,002768: E6,1444 E6,1434 AY3 = AP3 004233,002769: 004234,002770: E6,1444 E6,1436 BY1 = BP1 004235,002771: # Page 102 004236,002772: E6,1444 E6,1440 BY2 = BP2 004237,002773: E6,1444 E6,1442 BY3 = BP3 004238,002774: 004239,002775: # **** EXCLUSIVE TVC DAP VARIABLES. ***************** (5D) 004240,002776: E6,1444 V97VCNTR ERASE # B(1) 004241,002777: E6,1445 TEMPDAP ERASE +1 # B(2) 004242,002778: E6,1447 E6,1445 MRKRTMP = TEMPDAP # ((B(1))) 004243,002779: E6,1447 CNTR ERASE # B(1) 004244,002780: E6,1450 OGAD ERASE # B(1) 004245,002781: 004246,002782: # **** EXCLUSIVE RCS DAP VARIABLES ****************** (13D) 004247,002783: E6,1451 RWORD1 ERASE +12D # B(1) 004248,002784: E6,1466 E6,1452 RWORD2 EQUALS RWORD1 +1 # B(1) 004249,002785: E6,1466 E6,1453 PWORD1 EQUALS RWORD2 +1 # B(1) 004250,002786: E6,1466 E6,1454 PWORD2 EQUALS PWORD1 +1 # B(1) 004251,002787: E6,1466 E6,1455 YWORD1 EQUALS PWORD2 +1 # B(1) 004252,002788: E6,1466 E6,1456 YWORD2 EQUALS YWORD1 +1 # B(1) 004253,002789: E6,1466 E6,1457 BLAST EQUALS YWORD2 +1 # B(2) 004254,002790: E6,1466 E6,1461 BLAST1 EQUALS BLAST +2 # B(2) 004255,002791: E6,1466 E6,1463 BLAST2 EQUALS BLAST1 +2 # B(2) 004256,002792: E6,1466 E6,1465 T5PHASE EQUALS BLAST2 +2 # B(1) 004257,002793: 004258,002794: # **** RCS/TVC DAP COMMON STORAGE. ****************** (16D) 004259,002795: E6,1466 DAPDATR1 ERASE # B(1)DSP NOUN 46(R1) 004260,002796: E6,1467 DAPDATR2 ERASE # B(1)DSP NOUN 46(R2) 004261,002797: 004262,002798: E6,1470 IXX ERASE # B(1) CONSECUTIVE WITH IAVG, IAVG/TLX FOR 004263,002799: E6,1471 IAVG ERASE # B(1) MASSPROP 004264,002800: E6,1472 IAVG/TLX ERASE # B(1) 004265,002801: 004266,002802: E6,1473 LEMMASS ERASE +1 # B(1)DSP NOUN 47 (R2) LEM/CSMMASS 004267,002803: E6,1475 E6,1474 CSMMASS EQUALS LEMMASS +1 # B(1)DSP NOUN 47 (R1) FOR DOWNLINK 004268,002804: E6,1475 WEIGHT/G ERASE # B(1) 004269,002805: E6,1476 E6,1475 MASS = WEIGHT/G 004270,002806: 004271,002807: E6,1476 AK ERASE 004272,002808: E6,1477 AK1 ERASE 004273,002809: E6,1500 AK2 ERASE 004274,002810: 004275,002811: E6,1501 RCSFLAGS ERASE # B(1) CONSECUTIVE WITH AK2 DOWNLINK 004276,002812: E6,1502 T5TEMP ERASE # B(1) 004277,002813: E6,1503 EDRIVEX ERASE 004278,002814: 004279,002815: # Page 103 004280,002816: E6,1504 EDRIVEY ERASE 004281,002817: E6,1505 EDRIVEZ ERASE 004282,002818: 004283,002819: # INTEMP THRU INTEMP+14D ARE RESERVED FOR OVERLAYED TVC/RCS INTERUP TRUE TEMPORARIES 004284,002820: E6,1506 INTTEMP ERASE +14D # (15) 004285,002821: 004286,002822: # TVC/RCS THRU TVCRCS +11D RESERVED FOR DOWNLINKED VARIABLES 004287,002823: E6,1525 TVCRCS ERASE +11D # (12) 004288,002824: # RCS (WBODYS,ADOTS) 004289,002825: # TVC(OMEGACS,OMEGABS) 004290,002826: 004291,002827: # TVC DAP TEMPORARY VARIABLES********************************* 004292,002828: 004293,002829: # TVC DAP INTERRUPT TRUE TEMPORARIES************************** 004294,002830: 004295,002831: E6,1541 E6,1506 PHI333 EQUALS INTTEMP # B(1) TEMPORARY REGISTER 004296,002832: E6,1541 E6,1507 PSI333 EQUALS PHI333 +1 # B(1) COUNTING REGISTER 004297,002833: E6,1541 E6,1510 TEMP333 EQUALS PSI333 +1 # B(1) COUNTING REGISTER 004298,002834: E6,1541 E6,1511 VARST0 EQUALS TEMP333 +1 # B(10D) BREAKPOINTS AND SLOPES 004299,002835: E6,1541 E6,1516 VARST5 = VARST0 +5 004300,002836: E6,1541 E6,1522 LASTMASP EQUALS VARST0 +9D # LAST VARST0 WORD 004301,002837: 004302,002838: E6,1541 E6,1525 OMEGAC = LASTMASP +3 004303,002839: E6,1541 E6,1527 OMEGAYC = OMEGAC +2 004304,002840: E6,1541 E6,1531 OMEGAZC = OMEGAYC +2 004305,002841: 004306,002842: E6,1541 E6,1533 OMEGAB EQUALS TVCRCS +6 # B(?) 004307,002843: E6,1541 E6,1535 OMEGAYB EQUALS OMEGAB +2 004308,002844: E6,1541 E6,1537 OMEGAZB EQUALS OMEGAYB +2 004309,002845: 004310,002846: E6,1541 E6,1541 PNSUM EQUALS OMEGAC +12D # B(2) 004311,002847: E6,1541 E6,1543 PDSUM EQUALS PNSUM +2 # B(2) 004312,002848: 004313,002849: E6,1541 E6,1545 B1 EQUALS PDSUM +2 # B(1) 004314,002850: E6,1541 E6,1546 B2 EQUALS B1 +1 # B(1) 004315,002851: # Page 104 004316,002852: E6,1541 E6,1547 B3 EQUALS B2 +1 # B(1) 004317,002853: E6,1541 E6,1550 B4 EQUALS B3 +1 # B(1) 004318,002854: E6,1541 E6,1551 B5 EQUALS B4 +1 # B(1) 004319,002855: E6,1541 E6,1552 B6 EQUALS B5 +1 # B(1) 004320,002856: 004321,002857: E6,1541 E6,1553 J1 EQUALS B6 +1 # B(2) 004322,002858: E6,1541 E6,1555 J2 EQUALS J1 +2 # B(2) 004323,002859: E6,1541 E6,1557 J3 EQUALS J2 +2 # B(2) 004324,002860: E6,1541 E6,1561 J4 EQUALS J3 +2 # B(2) 004325,002861: E6,1541 E6,1563 J5 EQUALS J4 +2 # B(2) 004326,002862: 004327,002863: E6,1541 E6,1565 YNSUM EQUALS J5 +2 # B(2) 004328,002864: E6,1541 E6,1567 YDSUM EQUALS YNSUM +2 # B(2) 004329,002865: 004330,002866: E6,1541 E6,1571 C1 EQUALS YDSUM +2 # B(1) 004331,002867: E6,1541 E6,1572 C2 EQUALS C1 +1 # B(1) 004332,002868: E6,1541 E6,1573 C3 EQUALS C2 +1 # B(1) 004333,002869: E6,1541 E6,1574 C4 EQUALS C3 +1 # B(1) 004334,002870: E6,1541 E6,1575 C5 EQUALS C4 +1 # B(1) 004335,002871: E6,1541 E6,1576 C6 EQUALS C5 +1 # B(1) 004336,002872: 004337,002873: E6,1541 E6,1577 Y1 EQUALS C6 +1 # B(2) 004338,002874: E6,1541 E6,1601 Y2 EQUALS Y1 +2 # B(2) 004339,002875: E6,1541 E6,1603 Y3 EQUALS Y2 +2 # B(2) 004340,002876: E6,1541 E6,1605 Y4 EQUALS Y3 +2 # B(2) 004341,002877: E6,1541 E6,1607 Y5 EQUALS Y4 +2 # B(2) 004342,002878: 004343,002879: E6,1541 E6,1611 ROLLFIRE EQUALS Y5 +2 # B(1) 004344,002880: E6,1541 E6,1612 ROLLWORD EQUALS ROLLFIRE +1 # B(1) 004345,002881: E6,1541 E6,1613 TEMREG EQUALS ROLLWORD +1 # B(1) 004346,002882: 004347,002883: E6,1541 E6,1614 STROKER EQUALS TEMREG +1 # B(1) 004348,002884: 004349,002885: E6,1541 E6,1615 PERRB EQUALS STROKER +1 # B(2) 004350,002886: E6,1541 E6,1617 YERRB EQUALS PERRB +2 # B(2) 004351,002887: 004352,002888: E6,1541 E6,1621 DELPBAR EQUALS YERRB +2 # B(2) 004353,002889: E6,1541 E6,1623 DELYBAR EQUALS DELPBAR +2 # B(2) 004354,002890: 004355,002891: E6,1541 E6,1625 PDELOFF EQUALS DELYBAR +2 # B(2) 004356,002892: E6,1541 E6,1627 YDELOFF EQUALS PDELOFF +2 # B(2) 004357,002893: 004358,002894: # TVC ZEROING LOOP ENDS HERE 004359,002895: E6,1541 E6,1631 PCMD EQUALS YDELOFF +2 # B(1) 004360,002896: E6,1541 E6,1632 YCMD EQUALS PCMD +1 # B(1), CONSECUTIVE WITH PCMD 004361,002897: E6,1541 E6,1633 TACTOFF EQUALS YCMD +1 # B(2) 004362,002898: E6,1541 E6,1635 T5TVCDT EQUALS TACTOFF +2 # B(1) 004363,002899: E6,1541 E6,1636 MDT EQUALS T5TVCDT +1 # I(6) 004364,002900: # Page 105 004365,002901: E6,1541 E6,1644 KPRIMEDT EQUALS MDT +6 # I(2) 004366,002902: E6,1541 E6,1646 KTLX/I EQUALS KPRIMEDT +2 # B(1) 004367,002903: E6,1541 E6,1647 TENMDOT EQUALS KTLX/I +1 # B(1) 004368,002904: E6,1541 E6,1650 1/CONACC EQUALS TENMDOT +1 # B(1) 004369,002905: E6,1541 E6,1651 VARK EQUALS 1/CONACC +1 # B(1) 004370,002906: E6,1541 E6,1652 REPFRAC EQUALS VARK +1 # B(1) 004371,002907: E6,1541 E6,1653 VCNTR EQUALS REPFRAC +1 # B(1) 004372,002908: E6,1541 E6,1654 TVCPHASE EQUALS VCNTR +1 # B(1) 004373,002909: E6,1541 E6,1655 PCDUYPST EQUALS TVCPHASE +1 # B(1) 004374,002910: E6,1541 E6,1656 PCDUZPST EQUALS PCDUYPST +1 # B(1) 004375,002911: E6,1541 E6,1657 MCDUYDOT EQUALS PCDUZPST +1 # B(1) 004376,002912: E6,1541 E6,1660 MCDUZDOT EQUALS MCDUYDOT +1 # B(1) 004377,002913: E6,1541 E6,1661 TVCEXPHS EQUALS MCDUZDOT +1 # B(1) 004378,002914: E6,1541 E6,1662 MASSTMP EQUALS TVCEXPHS +1 # B(1) PROTECT 004379,002915: E6,1541 E6,1663 VCNTRTMP EQUALS MASSTMP +1 # B(1) *PROTECT*** 004380,002916: 004381,002917: # STROKE TEST VARIABLES 004382,002918: E6,1541 E6,1664 STRKTIME EQUALS VCNTRTMP +1 # B(1) 004383,002919: E6,1541 E6,1665 CADDY EQUALS STRKTIME +1 # B(1) 004384,002920: E6,1541 E6,1666 N EQUALS CADDY +1 # B(1) 004385,002921: E6,1541 E6,1667 BUNKER EQUALS N +1 # B(1) 004386,002922: E6,1541 E6,1670 REVS EQUALS BUNKER +1 # B(1) 004387,002923: E6,1541 E6,1671 CARD EQUALS REVS +1 # B(1) 004388,002924: 004389,002925: # TVC ROLL DAP VARIABLES 004390,002926: E6,1541 E6,1672 OGANOW EQUALS CARD +1 # B(1) 004391,002927: E6,1541 E6,1673 OGAPAST EQUALS OGANOW +1 # B(1) 004392,002928: E6,1541 E6,1674 OGA EQUALS OGAPAST +1 # B(1)TMP 004393,002929: E6,1541 E6,1674 OGAERR = OGA # (ROLL DAP USES OGA, MEANS OGAERROR) 004394,002930: E6,1541 E6,1675 DELOGART EQUALS OGA +1 # B(1)TMP 004395,002931: E6,1541 E6,1676 SGNRT EQUALS DELOGART +1 # SIGN OF CGA RATE 004396,002932: E6,1541 E6,1677 DELOGA EQUALS SGNRT +1 # USED IN ROLL LOGIC 004397,002933: E6,1541 E6,1700 I EQUALS DELOGA +1 # USED IN ROLL LOGIC 004398,002934: E6,1541 E6,1701 IOGARATE EQUALS I +1 # USED IN ROLL LOGIC 004399,002935: 004400,002936: # TVC DAP RESTART TEMPORARIES. (33D) 004401,002937: E6,1541 E6,1702 TKTLX/I EQUALS IOGARATE +1 # B(1) 004402,002938: E6,1541 E6,1703 PACTTMP EQUALS TKTLX/I +1 # B(2) 004403,002939: E6,1541 E6,1705 YACTTMP EQUALS PACTTMP +2 # B(2) 004404,002940: E6,1541 E6,1707 CNTRTMP EQUALS YACTTMP +2 # B(1) 004405,002941: E6,1541 E6,1710 STRKTTMP EQUALS CNTRTMP +1 # B(1) 004406,002942: E6,1541 E6,1711 NSUMTMP EQUALS STRKTTMP +1 # B(2) 004407,002943: E6,1541 E6,1713 DSUMTMP EQUALS NSUMTMP +2 # B(2) 004408,002944: E6,1541 E6,1715 DELBRTMP EQUALS DSUMTMP +2 # B(2) 004409,002945: # Page 106 004410,002946: E6,1541 E6,1717 B1TMP EQUALS DELBRTMP +2 # B(1) 004411,002947: E6,1541 E6,1720 B2TMP EQUALS B1TMP +1 # B(1) 004412,002948: E6,1541 E6,1721 B3TMP EQUALS B2TMP +1 # B(1) 004413,002949: E6,1541 E6,1722 B4TMP EQUALS B3TMP +1 # B(1) 004414,002950: E6,1541 E6,1723 B5TMP EQUALS B4TMP +1 # B(1) 004415,002951: E6,1541 E6,1724 B6TMP EQUALS B5TMP +1 # B(1) 004416,002952: E6,1541 E6,1725 B7TMP EQUALS B6TMP +1 # B(1) 004417,002953: 004418,002954: E6,1541 E6,1726 J1TMP EQUALS B7TMP +1 # B(2) 004419,002955: E6,1541 E6,1730 J2TMP EQUALS J1TMP +2 # B(2) 004420,002956: E6,1541 E6,1732 J3TMP EQUALS J2TMP +2 # B(2) 004421,002957: E6,1541 E6,1734 J4TMP EQUALS J3TMP +2 # B(2) 004422,002958: E6,1541 E6,1736 J5TMP EQUALS J4TMP +2 # B(2) 004423,002959: E6,1541 E6,1740 J6TMP EQUALS J5TMP +2 # B(2) 004424,002960: E6,1541 E6,1742 ERRBTMP EQUALS J6TMP +2 # B(2) 004425,002961: E6,1541 E6,1744 CMDTMP EQUALS ERRBTMP +2 # B(2) 004426,002962: 004427,002963: # OVERLAYS WITHIN TVC DAP 004428,002964: 004429,002965: E6,1541 E6,1533 OGARATE = OMEGAB # B(2) 004430,002966: 004431,002967: E6,1541 E6,1742 BZERO = ERRBTMP 004432,002968: E6,1541 E6,1742 CZERO = ERRBTMP 004433,002969: E6,1541 E6,1744 JZERO = CMDTMP 004434,002970: E6,1541 E6,1744 YZERO = CMDTMP 004435,002971: E6,1541 E6,1651 KPGEN3 = VARK 004436,002972: E6,1541 E6,1651 KYGEN3 = KPGEN3 004437,002973: 004438,002974: E6,1541 E6,1742 EP = ERRBTMP 004439,002975: E6,1541 E6,1744 NPD = CMDTMP 004440,002976: E6,1541 E6,1561 NP0 EQUALS J4 # (B(2)) 004441,002977: E6,1541 E6,1563 NP1 EQUALS J5 # (B(2)) 004442,002978: E6,1541 E6,1541 NP2 EQUALS PNSUM # (B(2)) 004443,002979: E6,1541 E6,1543 NP3 EQUALS PDSUM # (B(2)) 004444,002980: 004445,002981: E6,1541 E6,1736 NP1TMP EQUALS J5TMP # (B(2)) 004446,002982: E6,1541 E6,1711 NP2TMP EQUALS NSUMTMP # (B(2)) 004447,002983: E6,1541 E6,1713 NP3TMP EQUALS DSUMTMP # (B(2)) 004448,002984: 004449,002985: E6,1541 E6,1742 EY = ERRBTMP 004450,002986: E6,1541 E6,1744 NYD = CMDTMP 004451,002987: E6,1541 E6,1605 NY0 EQUALS Y4 # (B(2)) 004452,002988: E6,1541 E6,1607 NY1 EQUALS Y5 # (B(2)) 004453,002989: E6,1541 E6,1565 NY2 EQUALS YNSUM # (B(2)) 004454,002990: E6,1541 E6,1567 NY3 EQUALS YDSUM # (B(2)) 004455,002991: 004456,002992: E6,1541 E6,1736 NY1TMP EQUALS Y5TMP # (B(2)) 004457,002993: E6,1541 E6,1711 NY2TMP EQUALS NSUMTMP # (B(2)) 004458,002994: E6,1541 E6,1713 NY3TMP EQUALS DSUMTMP # (B(2)) 004459,002995: 004460,002996: # Page 107 004461,002997: E6,1541 E6,1717 C1TMP = B1TMP # (B(1)) 004462,002998: E6,1541 E6,1720 C2TMP = B2TMP # (B(1)) 004463,002999: E6,1541 E6,1721 C3TMP = B3TMP # (B(1)) 004464,003000: E6,1541 E6,1722 C4TMP = B4TMP # (B(1)) 004465,003001: E6,1541 E6,1723 C5TMP = B5TMP # (B(1)) 004466,003002: E6,1541 E6,1724 C6TMP = B6TMP # (B(1)) 004467,003003: E6,1541 E6,1725 C7TMP = B7TMP # (B(1)) 004468,003004: 004469,003005: E6,1541 E6,1726 Y1TMP = J1TMP # (B(2)) 004470,003006: E6,1541 E6,1730 Y2TMP = J2TMP # (B(2)) 004471,003007: E6,1541 E6,1732 Y3TMP = J3TMP # (B(2)) 004472,003008: E6,1541 E6,1734 Y4TMP = J4TMP # (B(2)) 004473,003009: E6,1541 E6,1736 Y5TMP = J5TMP # (B(2)) 004474,003010: E6,1541 E6,1740 Y6TMP = J6TMP # (B(2)) 004475,003011: 004476,003012: # 540.9 STORAGE ............. 004477,003013: 004478,003014: E6,1541 E6,1746 NBRCYCLS EQUALS CMDTMP +2 # B(1) COUNTER FOR P40,41 STEERING 004479,003015: E6,1541 E6,1747 NBRCYCLP EQUALS NBRCYCLS +1 # B(1) MAINTAIN ORDER 004480,003016: E6,1541 E6,1750 DELVSUM EQUALS NBRCYCLP +1 # I(6) P40,P41 004481,003017: E6,1541 E6,1756 DELVSUMP EQUALS DELVSUM +6 # I(6) P40,P41 004482,003018: 004483,003019: # Page 108 004484,003020: # **** RCS DAP TEMPORARY VARIABLES. ******************** (95D) 004485,003021: 004486,003022: # ** RCS INTERRUPT TRUE TEMPS *************** (15D) 004487,003023: E6,1541 E6,1506 SPNDX EQUALS INTTEMP # B(1) 004488,003024: E6,1541 E6,1507 DPNDX EQUALS SPNDX +1 # B(1)TMP 004489,003025: E6,1541 E6,1510 KMPAC EQUALS DPNDX +1 # B(2)TMP 004490,003026: E6,1541 E6,1512 KMPTEMP EQUALS KMPAC +2 # B(1)TMP 004491,003027: 004492,003028: E6,1541 E6,1513 XNDX1 EQUALS KMPTEMP +1 # B(1)TMP XNDX1 THRU NYJETS ARE OVERLAYED 004493,003029: E6,1541 E6,1514 XNDX2 EQUALS XNDX1 +1 # B(1)TMP BY OTHER DAP ERASABLES SO 004494,003030: E6,1541 E6,1515 YNDX EQUALS XNDX2 +1 # B(1)TMP SHOULD ALWAYS BE DEFINED IN 004495,003031: E6,1541 E6,1516 ZNDX EQUALS YNDX +1 # B(1)TMP A BLOCK 004496,003032: E6,1541 E6,1517 RINDEX EQUALS ZNDX +1 # B(1)TMP 004497,003033: E6,1541 E6,1520 PINDEX EQUALS RINDEX +1 # B(1)TMP 004498,003034: E6,1541 E6,1521 YINDEX EQUALS PINDEX +1 # B(1)TMP 004499,003035: E6,1541 E6,1522 NRJETS EQUALS YINDEX +1 # B(1)TMP 004500,003036: E6,1541 E6,1523 NPJETS EQUALS NRJETS +1 # B(1)TMP 004501,003037: E6,1541 E6,1524 NYJETS EQUALS NPJETS +1 # B(1)TMP 004502,003038: 004503,003039: E6,1541 E6,1513 WTEMP EQUALS XNDX1 # B(2)TMP WTEMP THRU DELTEMPZ OVERLAY 004504,003040: E6,1541 E6,1515 DELTEMPX EQUALS WTEMP +2 # B(2)TMP XNDX1 THRU NRJETS AND EDOT THRU 004505,003041: E6,1541 E6,1517 DELTEMPY EQUALS DELTEMPX +2 # B(2)TMP ADBVEL 004506,003042: E6,1541 E6,1521 DELTEMPZ EQUALS DELTEMPY +2 # B(2)TMP 004507,003043: 004508,003044: E6,1541 E6,1515 EDOT EQUALS YNDX # B(2)TMP EDOT THRU ADBVEL OVERLAY 004509,003045: E6,1541 E6,1517 AERR EQUALS EDOT +2 # B(1)TMP YNDX THRU NPJETS AND DELTEMPX 004510,003046: E6,1541 E6,1520 EDOTVEL EQUALS AERR +1 # B(2)TMP THRU DELTEMPZ 004511,003047: E6,1541 E6,1522 AERRVEL EQUALS EDOTVEL +2 # B(1)TMP 004512,003048: E6,1541 E6,1523 ADBVEL EQUALS AERRVEL +1 # B(1)TMP 004513,003049: 004514,003050: # *** REGULAR RCS TEMPS ********************* ( ) 004515,003051: 004516,003052: # *** RCS ZEROING LOOP STARTS HERE ********** (37) 004517,003053: E6,1541 E6,1525 WBODY EQUALS TVCRCS # B(2)TMP 004518,003054: E6,1541 E6,1527 WBODY1 EQUALS WBODY +2 # B(2)TMP 004519,003055: E6,1541 E6,1531 WBODY2 EQUALS WBODY +4 # B(2)TMP 004520,003056: E6,1541 E6,1533 ADOT EQUALS WBODY2 +2 # B(2)TMP 004521,003057: E6,1541 E6,1535 ADOT1 EQUALS ADOT +2 # B(2)TMP 004522,003058: E6,1541 E6,1537 ADOT2 EQUALS ADOT1 +2 # B(2)TMP 004523,003059: 004524,003060: E6,1541 E6,1541 MERRORX EQUALS ADOT2 +2 # (2) 004525,003061: E6,1541 E6,1543 MERRORY EQUALS MERRORX +2 # (2) 004526,003062: E6,1541 E6,1545 MERRORZ EQUALS MERRORY +2 # (2) 004527,003063: E6,1541 E6,1547 DFT EQUALS MERRORZ +2 # B(1)TMP 004528,003064: E6,1541 E6,1550 DFT1 EQUALS DFT +1 # B(1)TMP 004529,003065: E6,1541 E6,1551 DFT2 EQUALS DFT1 +1 # B(1)TMP 004530,003066: E6,1541 E6,1552 DRHO EQUALS DFT2 +1 # B(2)TMP 004531,003067: E6,1541 E6,1554 DRHO1 EQUALS DRHO +2 # B(2)TMP 004532,003068: # Page 109 004533,003069: E6,1541 E6,1556 DRHO2 EQUALS DRHO1 +2 # B(2)TMP 004534,003070: E6,1541 E6,1560 ATTSEC EQUALS DRHO2 +2 # B(1)TMP 004535,003071: E6,1541 E6,1561 TAU EQUALS ATTSEC +1 # B(1)TMP 004536,003072: E6,1541 E6,1562 TAU1 EQUALS TAU +1 # B(1)TMP 004537,003073: E6,1541 E6,1563 TAU2 EQUALS TAU1 +1 # B(1)TMP 004538,003074: E6,1541 E6,1564 BIAS EQUALS TAU2 +1 # B(1)TMP 004539,003075: E6,1541 E6,1565 BIAS1 EQUALS BIAS +1 # B(1)TMP 004540,003076: E6,1541 E6,1566 BIAS2 EQUALS BIAS1 +1 # B(1)TMP 004541,003077: E6,1541 E6,1567 ERRORX EQUALS BIAS2 +1 # B(1)TMP 004542,003078: E6,1541 E6,1570 ERRORY EQUALS ERRORX +1 # B(1)TMP 004543,003079: E6,1541 E6,1571 ERRORZ EQUALS ERRORY +1 # B(1)TMP 004544,003080: 004545,003081: # RCS ZERO LOOP ENDS HERE 004546,003082: # MORE RCS (69D) 004547,003083: E6,1541 E6,1572 THETADX EQUALS ERRORZ +1 # B(1)TMP MUST BE CONSECUTIVE WITH ERRORZ 004548,003084: E6,1541 E6,1573 THETADY EQUALS THETADX +1 # B(1)TMP 004549,003085: E6,1541 E6,1574 THETADZ EQUALS THETADY +1 # B(1)TMP 004550,003086: 004551,003087: E6,1541 E6,1575 DELCDUX EQUALS THETADZ +1 # B(2)TMP 004552,003088: E6,1541 E6,1577 DELCDUY EQUALS DELCDUX +2 # B(2)TMP 004553,003089: E6,1541 E6,1601 DELCDUZ EQUALS DELCDUY +2 # B(2)TMP 004554,003090: 004555,003091: E6,1541 E6,1603 DCDU EQUALS DELCDUZ +2 # B(6)TMP USED DURING P20 004556,003092: E6,1541 E6,1611 DTHETASM EQUALS DCDU +6 # B(6)TMP STEER LOW OUTPUT. 004557,003093: 004558,003094: E6,1541 E6,1617 ATTKALMN EQUALS DTHETASM +6 # B(1)TMP 004559,003095: E6,1541 E6,1620 KMJ EQUALS ATTKALMN +1 # B(1)TMP 004560,003096: E6,1541 E6,1621 KMJ1 EQUALS KMJ +1 # B(1)TMP 004561,003097: E6,1541 E6,1622 KMJ2 EQUALS KMJ1 +1 # B(1)TMP 004562,003098: E6,1541 E6,1623 J/M EQUALS KMJ2 +1 # B(1)TMP 004563,003099: E6,1541 E6,1624 J/M1 EQUALS J/M +1 # B(1)TMP 004564,003100: E6,1541 E6,1625 J/M2 EQUALS J/M1 +1 # B(1)TMP 004565,003101: E6,1541 E6,1626 RACFAIL EQUALS J/M2 +1 # B(1)TMP 004566,003102: E6,1541 E6,1627 RBDFAIL EQUALS RACFAIL +1 # B(1)TMP 004567,003103: E6,1541 E6,1630 ACORBD EQUALS RBDFAIL +1 # B(1)TMP 004568,003104: E6,1541 E6,1631 XTRANS EQUALS ACORBD +1 # B(1)TMP 004569,003105: E6,1541 E6,1632 CH31TEMP EQUALS XTRANS +1 # B(1)TMP 004570,003106: E6,1541 E6,1633 CHANTEMP EQUALS CH31TEMP +1 # B(1)TMP 004571,003107: E6,1541 E6,1634 T5TIME EQUALS CHANTEMP +1 # B(1)TMP 004572,003108: E6,1541 E6,1635 RHO EQUALS T5TIME +1 # B(1)TMP 004573,003109: E6,1541 E6,1636 RHO1 EQUALS RHO +1 # B(1)TMP 004574,003110: E6,1541 E6,1637 RHO2 EQUALS RHO1 +1 # B(1)TMP 004575,003111: E6,1541 E6,1640 AMGB1 EQUALS RHO2 +1 # B(1)TMP 004576,003112: E6,1541 E6,1641 AMGB4 EQUALS AMGB1 +1 # B(1)TMP 004577,003113: # Page 110 004578,003114: E6,1541 E6,1642 AMGB5 EQUALS AMGB4 +1 # B(1)TMP 004579,003115: E6,1541 E6,1643 AMGB7 EQUALS AMGB5 +1 # B(1)TMP 004580,003116: E6,1541 E6,1644 AMGB8 EQUALS AMGB7 +1 # B(1)TMP 004581,003117: E6,1541 E6,1645 CAPSI EQUALS AMGB8 +1 # B(1)TMP 004582,003118: E6,1541 E6,1646 CDUXD EQUALS CAPSI +1 # B(1)TMP 004583,003119: E6,1541 E6,1650 CDUYD EQUALS CDUXD +2 # B(1)TMP 004584,003120: E6,1541 E6,1652 CDUZD EQUALS CDUYD +2 # B(1)TMP 004585,003121: E6,1541 E6,1654 SLOPE EQUALS CDUZD +2 # B(1)TMP 004586,003122: E6,1541 E6,1655 ADB EQUALS SLOPE +1 # B(1)TMP 004587,003123: E6,1541 E6,1656 RMANNDX EQUALS ADB +1 # B(1)TMP 004588,003124: E6,1541 E6,1657 PMANNDX EQUALS RMANNDX +1 # B(1)TMP 004589,003125: E6,1541 E6,1660 YMANNDX EQUALS PMANNDX +1 # B(1)TMP MUST BE LAST VARIABLE IN RCS 004590,003126: 004591,003127: # Page 111 004592,003128: # ********** ENTRY DAP TEMPORARY VARIABLES. ********************* (69D) 004593,003129: 004594,003130: # ANGLE REGISTERS FOR ENTRY DAPS 004595,003131: E6,1541 E6,1661 AOG EQUALS BCDU # 1P 004596,003132: E6,1541 E6,1662 AIG EQUALS AOG +1 # 1P 004597,003133: E6,1541 E6,1663 AMG EQUALS AIG +1 # 1P 004598,003134: E6,1541 E6,1664 ROLL/180 EQUALS AMG +1 # 1P 004599,003135: E6,1541 E6,1665 ALFA/180 EQUALS ROLL/180 +1 # 1P 004600,003136: E6,1541 E6,1666 BETA/180 EQUALS ALFA/180 +1 # 1P 004601,003137: E6,1541 E6,1667 AOG/PIP EQUALS BETA/180 +1 # 1P 004602,003138: E6,1541 E6,1670 AIG/PIP EQUALS AOG/PIP +1 # 1P 004603,003139: E6,1541 E6,1671 AMG/PIP EQUALS AIG/PIP +1 # 1P 004604,003140: E6,1541 E6,1672 ROLL/PIP EQUALS AMG/PIP +1 # 1P 004605,003141: E6,1541 E6,1673 ALFA/PIP EQUALS ROLL/PIP +1 # 1P 004606,003142: E6,1541 E6,1674 BETA/PIP EQUALS ALFA/PIP +1 # 1P 004607,003143: 004608,003144: # GYMBAL DIFFERENCES OVER INTERNAL TCDU = .1 SEC. 004609,003145: E6,1541 E6,1675 -DELAOG EQUALS BETA/PIP +1 # 1P 004610,003146: E6,1541 E6,1676 -DELAIG EQUALS -DELAOG +1 # 1P 004611,003147: E6,1541 E6,1677 -DELAMG EQUALS -DELAIG +1 # 1P 004612,003148: 004613,003149: # ESTIMATED BODY RATES 004614,003150: E6,1541 E6,1700 CMDAPMOD EQUALS -DELAMG +1 # 1P GOES BEFORE PREL FOR TM. 004615,003151: 004616,003152: E6,1541 E6,1701 PREL EQUALS CMDAPMOD +1 # 1P P TCDU/180 (ROLLDOT) 004617,003153: E6,1541 E6,1702 QREL EQUALS PREL +1 # 1P Q TCDU/180 (PITCHDOT) 004618,003154: E6,1541 E6,1703 RREL EQUALS QREL +1 # 1P R TCDU/180 (YAWDOT) 004619,003155: 004620,003156: E6,1541 E6,1704 BETADOT EQUALS RREL +1 # 1P MUST FOLLOW RREL. BETADOT TCDU/180 004621,003157: E6,1541 E6,1705 PHIDOT EQUALS BETADOT +1 # 1P 004622,003158: 004623,003159: # OLD (UNAVERAGED) BODY RATE MEASURE 004624,003160: E6,1541 E6,1706 OLDELP EQUALS PHIDOT +1 # 1P 004625,003161: E6,1541 E6,1707 OLDELQ EQUALS OLDELP +1 # 1P 004626,003162: E6,1541 E6,1710 OLDELR EQUALS OLDELQ +1 # 1P 004627,003163: 004628,003164: E6,1541 E6,1711 JETAG EQUALS OLDELR +1 # 1P 004629,003165: E6,1541 E6,1712 TUSED EQUALS JETAG +1 # 1P ELAPSED TIME SINCE NOMINAL UPDATE. 004630,003166: 004631,003167: # FOLLOWING 3 SP WORDS IN DOWNLINK. ROLLTM SENT EACH 1 SEC. 004632,003168: E6,1541 E6,1713 PAXERR1 EQUALS TUSED +1 # 1P INTEGRATED ROLL ERROR/360. 004633,003169: E6,1541 E6,1714 ROLLTM EQUALS PAXERR1 +1 # 1P ROLL/180 FOR TM. 004634,003170: E6,1541 E6,1715 ROLLC EQUALS ROLLTM +1 # 20 ROLLCOM/360 FROM ENTRY (FOR TM) 004635,003171: # KEEP ROLLC & ROLLHOLD ADJACENT FOR TP 004636,003172: # Page 112 004637,003173: E6,1541 E6,1717 ROLLHOLD EQUALS ROLLC +2 # 1P FOR ATTITUDE HOLD IN CMDAPMOD = +1 004638,003174: 004639,003175: # ENTRY DAP QUANTITIES THAT SHARE WITH RCS DAP. 004640,003176: E6,1541 E6,1603 ALFACOM EQUALS DCDU # 1P KEEP ADJACENT TO BETACOM. 004641,003177: E6,1541 E6,1604 BETACOM EQUALS ALFACOM +1 # 1P 004642,003178: 004643,003179: # JET LIST. DT, JETBITS IN THIS ORDER. 004644,003180: E6,1541 E6,1605 TOFF EQUALS BETACOM +1 # 1P DP PAIR 004645,003181: E6,1541 E6,1606 TBITS EQUALS TOFF +1 # 1P 004646,003182: E6,1541 E6,1607 TON2 EQUALS TBITS +1 # 1P DP PAIR 004647,003183: E6,1541 E6,1610 T2BITS EQUALS TON2 +1 # 1P 004648,003184: 004649,003185: # MISCELLANEOUS PERMANENT ERASABLE. 004650,003186: E6,1541 E6,1611 OUTTAG EQUALS T2BITS +1 # 1P 004651,003187: E6,1541 E6,1612 NUJET EQUALS OUTTAG +1 # 1P 004652,003188: 004653,003189: # MORE ENTRY DAP QUANTITIES THAT DO NOT SHARE WITH RCS DAP. 004654,003190: E6,1541 E6,1720 JETEM EQUALS ROLLHOLD +1 # 2P THIS DP USED IN RATEAVG 004655,003191: E6,1541 E6,1722 GAMA EQUALS JETEM +2 # 1P 004656,003192: E6,1541 E6,1723 GAMDOT EQUALS GAMA +1 # 1P 004657,003193: E6,1541 E6,1724 POSEXIT EQUALS GAMDOT +1 # 1P 004658,003194: E6,1541 E6,1725 CM/GYMDT EQUALS POSEXIT +1 # 1P 004659,003195: E6,1541 E6,1726 HEADSUP EQUALS CM/GYMDT +1 # 1P DSP NOUN 61 FOR P62,63,64,67. 004660,003196: E6,1541 E6,1727 P63FLAG EQUALS HEADSUP +1 # 1P INTERLOCK FOR WAKEP62 004661,003197: 004662,003198: # SHARE BELOW WITH RCS RUPT TEMPS (+15D) 004663,003199: E6,1541 E6,1506 CALFA EQUALS SPNDX # 1P 004664,003200: E6,1541 E6,1507 SALFA EQUALS CALFA +1 # 1P 004665,003201: 004666,003202: E6,1541 E6,1510 SINM EQUALS SALFA +1 # 1P 004667,003203: E6,1541 E6,1511 COSM EQUALS SINM +1 # 1P 004668,003204: E6,1541 E6,1512 SINO EQUALS COSM +1 # 1P 004669,003205: E6,1541 E6,1513 COSO EQUALS SINO +1 # 1P 004670,003206: E6,1541 E6,1514 SINOCOSM EQUALS COSO +1 # 1P 004671,003207: E6,1541 E6,1515 COSOCOSM EQUALS SINOCOSM +1 # 1P 004672,003208: # SHARE ABOVE WITH RCS RUPT TEMPS 004673,003209: 004674,003210: # THE FOLLOWING (garbled) REGISTERS USED (garbled) 004675,003211: E6,1541 E6,1613 -VT/180 EQUALS NUJET +1 # 1P 004676,003212: E6,1541 E6,1614 LCX/360 EQUALS -VT/180 +1 # 1P 004677,003213: E6,1541 E6,1615 XD/360 EQUALS LCX/360 +1 # 1P 004678,003214: E6,1541 E6,1616 VSQ/4API EQUALS XD/360 +1 # 1P 004679,003215: E6,1541 E6,1617 JNDX EQUALS VSQ/4API +1 # 1P 004680,003216: E6,1541 E6,1620 JNDX1 EQUALS JNDX +1 # 1P 004681,003217: # Page 113 004682,003218: E6,1541 E6,1621 TON1 EQUALS JNDX1 +1 # 1P DP PAIR 004683,003219: E6,1541 E6,1622 T1BITS EQUALS TON1 +1 # 1P 004684,003220: 004685,003221: # MISCELLANEOUS REGISTERS USED EACH UPDATE. 004686,003222: E6,1541 E6,1623 CM/SAVE EQUALS T1BITS +1 # 1P 004687,003223: E6,1541 E6,1624 JETEM2 EQUALS CM/SAVE +1 # 1P TEMPORARY STORAGE 004688,003224: 004689,003225: # DAP QUANTITIES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER. 004690,003226: E6,1541 E6,1567 VDT/180 = ERRORX # 1P (EDIT) 004691,003227: E6,1541 E6,1570 -VT/180E = ERRORY # 1P (EDIT) 004692,003228: 004693,003229: E6,1541 E6,1476 PAXERR EQUALS AK # 1P ROLL ERROR FOR NEEDLES 004694,003230: E6,1541 E6,1572 QAXERR = THETADX # 1P SINCE AK1 IS ZEROED IN ATM DAP. 004695,003231: E6,1541 E6,1573 RAXERR = QAXERR +1 # 1P SINCE AK2 IS ZEROED IN TM DAP. 004696,003232: 004697,003233: # *** COLMANU (R60,R62) **** 004698,003234: E6,1541 E6,1710 VECQTEMP EQUALS COFSKEW 004699,003235: 004700,003236: # Page 114 004701,003237: # ******** KALCMANU VARIABLES. (71D) ******************************* 004702,003238: E6,1541 E6,1661 BCDU EQUALS YMANNDX +1 # B(3)TMP 004703,003239: E6,1541 E6,1664 KSPNDX EQUALS BCDU +3 # B(1)TMP 004704,003240: E6,1541 E6,1665 KDPNDX EQUALS KSPNDX +1 # B(1)TMP 004705,003241: 004706,003242: E6,1541 E6,1666 TMIS EQUALS KDPNDX +1 # I(18) MUST BE IN THE SAME BANK AS RCS DAP 004707,003243: E6,1541 E6,1710 COFSKEW EQUALS TMIS +18D # I(6) MUST BE IN THE SAME BANK AS RCS DAP 004708,003244: E6,1541 E6,1716 CAM EQUALS COFSKEW +6 # I(2) MUST BE IN THE SAME BANK AS RCS DAP 004709,003245: 004710,003246: E6,1541 E6,1720 MIS EQUALS CAM +2 # I(18) (THE REST MAY GO ANYWHERE) 004711,003247: E6,1541 E6,1742 COF EQUALS MIS +18D # I(6)TMP 004712,003248: E6,1541 E6,1750 SCAXIS EQUALS COF +6 # I(6)TMP 004713,003249: E6,1541 E6,1756 POINTVSM EQUALS SCAXIS +6 # I(6)TMP 004714,003250: E6,1541 E6,1764 AM EQUALS POINTVSM +6 # I(2)TMP 004715,003251: E6,1541 E6,1766 RAD EQUALS AM +2 # I(2)TMP 004716,003252: 004717,003253: # FIRST-ORDER OVERLAYS IN KALCMANU 004718,003254: E6,1541 E6,1666 KV1 EQUALS TMIS # I(6)TMP 004719,003255: E6,1541 E6,1666 MFISYM EQUALS TMIS # I TMP 004720,003256: E6,1541 E6,1666 TMFI EQUALS TMIS # I TMP 004721,003257: E6,1541 E6,1666 NCDU EQUALS TMIS # B TMP 004722,003258: E6,1541 E6,1671 NEXTIME EQUALS TMIS +3 # B TMP 004723,003259: E6,1541 E6,1672 TTEMP EQUALS TMIS +4 # B TMP 004724,003260: E6,1541 E6,1674 KV2 EQUALS TMIS +6 # I(6)TMP 004725,003261: E6,1541 E6,1674 BIASTEMP EQUALS TMIS +6 # B TMP 004726,003262: E6,1541 E6,1702 KV3 EQUALS TMIS +12D # I(6)TMP 004727,003263: E6,1541 E6,1702 CGF EQUALS TMIS +12D # I TMP 004728,003264: 004729,003265: E6,1541 E6,1710 BRATE EQUALS COFSKEW # B TMP 004730,003266: E6,1541 E6,1716 TM EQUALS CAM # B TMP 004731,003267: 004732,003268: # SECOND-ORDER OVERLAYS IN KALCMANU 004733,003269: E6,1541 E6,1666 P21 EQUALS KV1 # I(2)TMP 004734,003270: E6,1541 E6,1670 D21 EQUALS KV1 +2 # I(2)TMP 004735,003271: E6,1541 E6,1672 G21 EQUALS KV1 +4 # I(2)TMP 004736,003272: 004737,003273: # SATURN BOOST STORAGE. SAVE TILL RCS DAP OPERATION. (17D) 004738,003274: E6,1541 E6,1661 POLYNUM EQUALS BCDU # B(15) PAD LOADED 004739,003275: E6,1541 E6,1673 POLYLOC = POLYNUM +10D 004740,003276: E6,1541 E6,1700 SATRLRT EQUALS POLYNUM +15D # B(2) PAD LOADED 004741,003277: 004742,003278: # MORE P11 STORAGE --PAD LOADED-- (2D) 004743,003279: # Page 115 004744,003280: # (NOTE: THIS PAD LOAD WILL NOT BE PRESERVED THROUGHOUT THE MISSION AS IT SHARES STORAGE WITH KALCMANU, 004745,003281: # ENTRY DAP AND TVC DAP) 004746,003282: E6,1541 E6,1702 RPSTART EQUALS SATRLRT +2 # B(1) PITCH ROLL START TIME 004747,003283: E6,1541 E6,1703 POLYSTOP EQUALS RPSTART +1 # B(1) POLYCUT OFF MINUS RPSTART SEC 004748,003284: 004749,003285: # STORAGE FOR VHHDOT AND ATTDSP 004750,003286: E6,1541 E6,1704 BODY3 EQUALS POLYSTOP +1 # B(1)OUT 004751,003287: E6,1541 E6,1705 BODY2 EQUALS BODY3 +1 # B(1)OUT 004752,003288: E6,1541 E6,1706 BODY1 EQUALS BODY2 +1 # B(1)OUT 004753,003289: E6,1541 E6,1707 SPOLYARG EQUALS BODY1 +1 # B(1)TMP ARGUMENT FOR POLLY 004754,003290: 004755,003291: E6,1541 E6,1503 OLDBODY1 = EDRIVEX # 1 PULSE = 0.0432 DEGREES 004756,003292: E6,1541 E6,1504 OLDBODY2 = EDRIVEY 004757,003293: E6,1541 E6,1505 OLDBODY3 = EDRIVEZ 004758,003294: 004759,003295: # STORAGE FOR S11.1 004760,003296: E6,1541 E6,1710 VDISP EQUALS SPOLYARG +1 # I(2)OUT 2(7) M/CS 004761,003297: E6,1541 E6,1712 HDISP EQUALS VDISP +2 # I(2)OUT 2(29) M 004762,003298: E6,1541 E6,1714 HDOTDISP EQUALS HDISP +2 # I(2)OUT 2(7) M/CS 004763,003299: E6,1541 E6,1716 BOOSTEMP EQUALS HDOTDISP +2 # B(2)TMP 004764,003300: 004765,003301: # P21 STORAGE 004766,003302: E6,1541 E6,1770 GENRET EQUALS RAD +2 # R(1)TMP 004767,003303: 004768,003304: # R61CSM STORAGE. (1D) 004769,003305: E6,1541 E6,1771 SAVBNK EQUALS GENRET +1 # B(1) S-S SAVE EBANK FOR R61 SUBROUTINE 004770,003306: 004771,003307: # CRS61.1 STORAGE FOR AUTOPILOT BANK. (3D) 004772,003308: E6,1541 E6,1772 SAVEDCDU EQUALS SAVBNK +1 # B(3)TMP 004773,003309: 004774,003310: # R61 STORAGE. (1D) 004775,003311: E6,1541 E6,1775 R61CNTR EQUALS SAVEDCDU +3 # (1)TMP 004776,003312: 004777,003313: # ENTRY RESTART PROTECTION STORAGE. --KEEP TEMPS IN ORDER-- (12D) 004778,003314: # Page 116 004779,003315: E6,1541 E6,1770 TEMPROLL EQUALS GENRET # B(1)TMP COPY CYCLE REGISTER 004780,003316: E6,1541 E6,1771 TEMPALFA EQUALS TEMPROLL +1 # B(1)TMP COPY CYCLE REGISTER 004781,003317: E6,1541 E6,1772 TEMPBETA EQUALS TEMPALFA +1 # B(1)TMP COPY CYCLE REGISTER 004782,003318: E6,1541 E6,1773 60GENRET EQUALS TEMPBETA +1 # B(1)TMP QSAVE FOR S61.1 AND ENTRY. 004783,003319: E6,1541 E6,1774 S61DT EQUALS 60GENRET +1 # B(1)TMP VARIABLE DT FOR S61.1 RESTART. 004784,003320: 004785,003321: # ENTRY TM SHARING FOR ACCELERATION PROFILE. 004786,003322: E6,1541 E6,1533 XPIPBUF EQUALS ADOT # B(1) PIPA BUFFER FOR TM DURING ENTRY. 004787,003323: E6,1541 E6,1534 YPIPBUF EQUALS XPIPBUF +1 # B(1) PIPS FILED HERE EACH .3 SEC APPEAR 004788,003324: E6,1541 E6,1535 ZPIPBUF EQUALS YPIPBUF +1 # B(1) ON DOWNLIST ONCE PER SECOND DURING 004789,003325: E6,1541 E6,1536 XOLDBUF EQUALS ZPIPBUF +1 # B(1) ENTRY AFTER RCS DAP HAS BEEN DIS- 004790,003326: E6,1541 E6,1537 YOLDBUF EQUALS XOLDBUF +1 # B(1) ABLED. NEWEST PIP VALUE REPLACES 004791,003327: E6,1541 E6,1540 ZOLDBUF EQUALS YOLDBUF +1 # B(1) PIPBUF, WHICH IS MOVED INTO OLDBUF. 004792,003328: 004793,003329: # REENTRY VARIABLES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER. 004794,003330: E6,1541 E6,1574 Q7 = THETADZ # I(2) HI-WORD ONLY ON DNLIST. 004795,003331: E6,1541 E6,1525 ASPS(TM) = WBODY # I(6)DWN 004796,003332: # ASKEP, ASP1, ASPUP, ASPDN, ASP3, ASP3+1 004797,003333: 004798,003334: E6,1541 E6,1776 END-E6 EQUALS R61CNTR +1 # NEXT FREE E6 ADDRESS. 004799,003335: 004800,003336: # Page 117 004801,003337: # EBANK-7 ASSIGNMENTS 004802,003338: 004803,003339: E7,1400 SETLOC 3400 004804,003340: 004805,003341: # *-*-*-*- OVERLAY NUMBER 0 IN EBANK 7 -*-*-*-* 004806,003342: 004807,003343: # EXTERNAL DELTA-V UPDATE. (21D) 004808,003344: # (MUST BE IN ORDER FOR UPDATE PROGRAM. ALSO ENTRY PROGRAM PICK UP 'LAT(SPL' WITH A VLOAD.) 004809,003345: 004810,003346: E7,1400 LAT(SPL) ERASE +20D # I(2)DSP NOUN 61 FOR P62,63,64,67 004811,003347: E7,1425 E7,1402 LNG(SPL) EQUALS LAT(SPL) +2 # I(2)DSP NOUN 61 FOR P62,63,64,67 004812,003348: 004813,003349: E7,1425 E7,1404 DELVSLV EQUALS LNG(SPL) +2 # I(6)TMP DELTA VEL VECT, LOC VER COORDS 004814,003350: E7,1425 E7,1412 TIG EQUALS DELVSLV +6 # B(2)DSP NOUN 33 FOR X-V84(R32),P30,40. 004815,003351: E7,1425 E7,1414 RTARG EQUALS TIG +2 # I(6)IN DESIRED VEHICLE RADIUS VECTOR 004816,003352: E7,1425 E7,1422 DELLT4 EQUALS RTARG +6 # I(2)IN TIME DIFFERENCE FOR INITVEL 004817,003353: E7,1425 E7,1424 ECSTEER EQUALS DELLT4 +2 # I(1)PL FOR P40'S 004818,003354: E7,1425 E7,1404 DELVLVC = DELVSLV 004819,003355: E7,1425 END-DELV ERASE # *NEXT AVAIL LOC AFTER UNSHARED ET* 004820,003356: 004821,003357: # SERVICER STORAGE. (13D) 004822,003358: E7,1426 E7,1425 DVTOTAL EQUALS END-DELV # B(2)DSP NOUN 40,99 FOR P30,34,35,40 004823,003359: E7,1426 E7,1427 TGO EQUALS DVTOTAL +2 # B(2) 004824,003360: E7,1426 E7,1431 DVCNTR EQUALS TGO +2 # B(1)TMP 004825,003361: E7,1426 E7,1432 DELVREF EQUALS DVCNTR +1 # I(6)TMP 004826,003362: 004827,003363: E7,1426 E7,1447 NOMTIG EQUALS END-KALC # I(2) (CANNOT SHARE WITH KALCMANU 004828,003364: # OR DELVREF) 004829,003365: E7,1426 E7,1451 END-SVCR EQUALS NOMTIG +2 # ***NEXT AVAILABLE AFTER SERVICER 004830,003366: 004831,003367: # ALIGNMENT STORAGE. (25D) 004832,003368: E7,1426 E7,1451 XSCD EQUALS END-SVCR # I(6)TMP 004833,003369: E7,1426 E7,1457 YSCD EQUALS XSCD +6 # I(6)TMP 004834,003370: E7,1426 E7,1465 ZSCD EQUALS YSCD +6 # I(6)TMP 004835,003371: E7,1426 E7,1473 VEL/C EQUALS ZSCD +6 # I(6)TMP 004836,003372: E7,1426 E7,1501 R53EXIT EQUALS VEL/C +6 # I(1)TMP 004837,003373: 004838,003374: # ALIGNMENT MARKDATA (DOWNLINK) ******* (7D) 004839,003375: E7,1426 E7,1502 MARK2DWN EQUALS R53EXIT +1 # (7) USED BY ALIGNMENT P50'S 004840,003376: 004841,003377: # Page 118 004842,003378: # *-*-*-*- OVERLAY NUMBER 1 IN EBANK 7 -*-*-*-* 004843,003379: 004844,003380: # REENTRY ERASABLES. (206D) 004845,003381: E7,1426 E7,1451 RTINIT EQUALS END-SVCR # 6P 004846,003382: E7,1426 E7,1457 RTEAST EQUALS RTINIT +6 # 6P 004847,003383: E7,1426 E7,1465 RTNORM EQUALS RTEAST +6 # 6P 004848,003384: E7,1426 E7,1473 RT EQUALS RTNORM +6 # 6P 004849,003385: E7,1426 E7,1501 UNI EQUALS RT +6 # 6P 004850,003386: E7,1426 E7,1507 UNITV EQUALS UNI +6 # 6P 004851,003387: E7,1426 E7,1515 VEL EQUALS UNITV +6 # 6P 004852,003388: 004853,003389: E7,1426 E7,1523 TIME/RTO EQUALS VEL +6 # 2P TIME OF INITIAL TARGET, RTO. 004854,003390: E7,1426 E7,1525 -VREL EQUALS TIME/RTO +2 # 6P 004855,003391: E7,1426 E7,1533 OLDUYA EQUALS -VREL +6 # 6P USED BY CM/POSE (ENTRY DAP) 004856,003392: E7,1426 E7,1541 UXA/2 EQUALS OLDUYA +6 # 6P USED BY CM/POSE (ENTRY DAP) -UVA 004857,003393: E7,1426 E7,1541 URH = UXA/2 # P67 DISPLAY NOUN 004858,003394: E7,1426 E7,1547 UYA/2 EQUALS UXA/2 +6 # 6P USED BY CM/POSE (ENTRY DAP) UYA 004859,003395: E7,1426 E7,1555 UZA/2 EQUALS UYA/2 +6 # 6P USED BY CM/POSE (ENTRY DAP) UNA 004860,003396: E7,1426 E7,1563 UBX/2 EQUALS UZA/2 +6 # 6P USED BY CM/POSE (ENTRY DAP) 004861,003397: E7,1426 E7,1571 UBY/2 EQUALS UBX/2 +6 # 6P USED BY CM/POSE (ENTRY DAP) 004862,003398: E7,1426 E7,1577 UBZ/2 EQUALS UBY/2 +6 # 6P USED BY CM/POSE (ENTRY DAP) 004863,003399: 004864,003400: E7,1426 E7,1605 DTEAROT EQUALS UBZ/2 +6 # 2P 004865,003401: E7,1426 E7,1607 DIFF EQUALS DTEAROT +2 # 2P 004866,003402: E7,1426 E7,1611 DIFFOLD EQUALS DIFF +2 # 2P 004867,003403: E7,1426 E7,1613 FACTOR EQUALS DIFFOLD +2 # 2P 004868,003404: E7,1426 E7,1615 FACT1 EQUALS FACTOR +2 # 2P 004869,003405: E7,1426 E7,1617 FACT2 EQUALS FACT1 +2 # 2P 004870,003406: # Q7 = THETAD2 # 2P SHARED FOR TM. P64-P66 004871,003407: E7,1426 E7,1621 VSQUARE EQUALS FACT2 +2 # 2P 004872,003408: E7,1426 E7,1623 LAD EQUALS VSQUARE +2 # 2P 004873,003409: E7,1426 E7,1625 LOD EQUALS LAD +2 # 2P 004874,003410: E7,1426 E7,1627 L/DCMINR EQUALS LOD +2 # 2P 004875,003411: E7,1426 E7,1631 KLAT EQUALS L/DCMINR +2 # 2P 004876,003412: E7,1426 E7,1633 L/D EQUALS KLAT +2 # 2P 004877,003413: E7,1426 E7,1635 L/D1 EQUALS L/D +2 # 2P 004878,003414: E7,1426 E7,1724 LEWD = VIO # 2P SHARED FOR TM. P64-P65 004879,003415: E7,1426 E7,1637 D EQUALS L/D1 +2 # 2P DSP NOUN 64,66,68 FOR P63,64,67 004880,003416: # V1 = ENDBUF +1 # 2P SHARED FOR TM. P64-P65 004881,003417: E7,1426 E7,1641 DLEWD EQUALS D +2 # 2P 004882,003418: E7,1426 E7,1643 K2ROLL EQUALS DLEWD +2 # 2P 004883,003419: E7,1426 E7,1645 GOTOADDR EQUALS K2ROLL +2 # 1P 004884,003420: E7,1426 E7,1646 TEM1B EQUALS GOTOADDR +1 # 2P 004885,003421: E7,1426 E7,1650 MM EQUALS TEM1B +2 # 2P 004886,003422: E7,1426 E7,1651 GRAD EQUALS MM +1 # 2P 004887,003423: E7,1426 E7,1652 FX EQUALS GRAD +1 # 1P OVERWRITES NEXT 5 LOCS IN P67 004888,003424: E7,1426 E7,1653 LEQ EQUALS FX +1 # 2P 004889,003425: E7,1426 E7,1655 DHOOK EQUALS LEQ +2 # 2P 004890,003426: E7,1426 E7,1657 AHOOKDV EQUALS DHOOK +2 # 2P 004891,003427: # Page 119 004892,003428: E7,1426 E7,1661 DVL EQUALS AHOOKDV +2 # 2P 004893,003429: # A0 = ENDBUF +3 # 2P SHARED FOR TM. (HI-WD) P84-P85 004894,003430: E7,1426 E7,1663 A1 EQUALS DVL +2 # 2P 004895,003431: E7,1426 E7,1665 VBARS EQUALS A1 +2 # 2P 004896,003432: E7,1426 E7,1667 COSG/2 EQUALS VBARS +2 # 2P 004897,003433: # GAMMAL = GAMMABI # 2P SHARED FOR TM. P64 004898,003434: E7,1426 GAMMAL1 = 22D # 2P 004899,003435: E7,1426 E7,1671 VS1 EQUALS COSG/2 +2 # 2P 004900,003436: E7,1426 E7,1766 VL = VPRED # 2P SHARED FOR TM. P64-P65 004901,003437: E7,1426 E7,1673 V EQUALS VS1 +2 # 2P 004902,003438: # VREF = THETAD +2 # 2P SHARED FOR TM. P65 004903,003439: E7,1426 E7,1675 LATANG EQUALS V +2 # 2P ADJACENT FOR TM. 004904,003440: E7,1426 E7,1677 RDOT EQUALS LATANG +2 # 2P ADJACENT FOR TM. 004905,003441: E7,1426 E7,1701 THETAH EQUALS RDOT +2 # 2P DSP NOUN 64,67 FOR P63,64,67 004906,003442: # RDOTREF = THETAD # 2P SHARED FOR TM. P65 004907,003443: E7,1426 E7,1703 ALP EQUALS THETAH +2 # 2P 004908,003444: 004909,003445: E7,1426 E7,1730 ASKEP = ASPS # 2P THESE ARE STORED IN 004910,003446: E7,1426 E7,1731 ASP1 = ASPS +1 # 2P SEQUENCE, OVERLAPPING 004911,003447: E7,1426 E7,1732 ASPUP = ASPS +2 # 2P HI-WORD ONLY APPEARING 004912,003448: E7,1426 E7,1733 ASPDWN = ASPS +3 # 2P ON DOWNLIST, EXCEPT 004913,003449: E7,1426 E7,1734 ASP3 = ASPS +4 # 2P ASP3 IS COMPLETE. 004914,003450: 004915,003451: E7,1426 E7,1705 C/D0 EQUALS ALP +2 # 2P -1/D0 004916,003452: E7,1426 E7,1707 D0 EQUALS C/D0 +2 # I(2) CONSTANT DRAG 004917,003453: E7,1426 E7,1711 Q2 EQUALS D0 +2 # 2P 004918,003454: 004919,003455: # ROLLC IS LOCATED IN EBANK= AOG TO AID ENTRY DAP. 004920,003456: E7,1426 E7,1713 RTGO EQUALS Q2 +2 # 2P DSP NOUN 66 FOR P64,P67 004921,003457: E7,1426 E7,1715 DNRNGERR EQUALS RTGO +2 # 2P DSP NOUN 66 FOR P64,67 004922,003458: E7,1426 E7,1675 XRNGERR = LATANG # FOR DISKY DISPLAY 004923,003459: E7,1426 E7,1717 KAT EQUALS DNRNGERR +2 # 2P 004924,003460: E7,1426 E7,1721 GMAX EQUALS KAT +2 # 1P DSP NOUN 60 FOR P61,62,63 004925,003461: # GMAX IS LOADED IN DOUBLE PRECISION. 004926,003462: E7,1426 E7,1726 L/DCALC = TTE # 2P CALCULATED L/D FOR TM: P64-P67. 004927,003463: E7,1426 E7,1770 GAMMAL = GAMMAEI # 2P SHARED FOR TM. P64. 004928,003464: E7,1426 E7,1770 PREDANG = GAMMAEI # FOR TM IN P67. 004929,003465: E7,1426 E7,1771 JJ = PREDANG +1 # FOR TM IN P67. 004930,003466: E7,1426 E7,1722 VMAGI EQUALS GMAX +1 # 2P DSP NOUN 62,64,66 FOR P11,63,64. 004931,003467: E7,1426 E7,1724 VIO EQUALS VMAGI +2 # 2P DSP NOUN 63 FOR P61. 004932,003468: E7,1426 E7,1726 TTE EQUALS VIO +2 # 2P DSP NOUN 63 FOR P61. 004933,003469: E7,1426 E7,1730 ASPS EQUALS TTE +2 # I(2) HI-WORD ONLY ON DNLIST FOR TEM 004934,003470: E7,1426 E7,1732 TTE1 EQUALS ASPS +2 # I(2)TMP HOLDS UNDECREMENTED TTE VALUE 004935,003471: 004936,003472: # **** P6O'S **** 004937,003473: E7,1426 E7,1713 RTGON64 EQUALS RTGO # RANGE ERRORS NEGATIVE IF FALLS SHORT 004938,003474: # Page 120 004939,003475: E7,1426 E7,1713 RTGON67 EQUALS RTGO # DSP NOUN 67 004940,003476: 004941,003477: # REENTRY, RETURN TO EARTH COMMON DISPLAY (4D) 004942,003478: E7,1426 E7,1766 VPRED EQUALS BETA12 +2 # DSP NOUN 60 FOR P61,62,63 004943,003479: E7,1426 E7,1770 GAMMAEI EQUALS VPRED +2 # DSP NOUN 60 FOR P61,62,63 004944,003480: 004945,003481: # SOME P11 DISPLAY REGISTERS 004946,003482: E7,1426 E7,1734 ALTI EQUALS TTE1 +2 # 2P DSP NOUN 62 FOR P11. 004947,003483: E7,1426 E7,1736 HDOT EQUALS ALTI +2 # 2P DSP NOUN 62 FOR P11. 004948,003484: 004949,003485: # Page 121 004950,003486: # *-*-*-*- OVERLAY NUMBER 2 IN EBANK 7 -*-*-*-* 004951,003487: 004952,003488: # KALCMANU STORAGE. (18D) 004953,003489: E7,1426 E7,1425 MFS EQUALS END-DELV # I(18) 004954,003490: E7,1426 E7,1425 MFI EQUALS MFS # I TMP 004955,003491: E7,1426 E7,1425 DEL EQUALS MFS # I TMP 004956,003492: E7,1426 E7,1447 END-KALC EQUALS MFS +18D # **NEXT AVAIL LOC AFTER KALCMANU** 004957,003493: 004958,003494: # MEASUREMENT INCORPORATION STORAGE (R22) STORAGE. (56D) 004959,003495: 004960,003496: E7,1426 E7,1447 TX789 EQUALS END-KALC # I(6)TMP 004961,003497: E7,1426 E7,1455 GAMMA EQUALS TX789 +6 # I(3)TMP 004962,003498: E7,1426 E7,1457 OMEGA EQUALS GAMMA +2 # I(18)TMP 004963,003499: E7,1426 E7,1501 BVECTOR EQUALS OMEGA +18D # I(18)TMP 004964,003500: E7,1426 E7,1523 DELTAQ EQUALS BVECTOR +18D # I(2)TMP 004965,003501: E7,1426 E7,1525 VARIANCE EQUALS DELTAQ +2 # I(3)TMP 004966,003502: E7,1426 E7,1530 RCLP EQUALS VARIANCE +3 # I(6)TMP 004967,003503: E7,1426 E7,1536 GRP2SVQ EQUALS RCLP +6 # I(1)TMP QSAVE FOR RESTARTS 004968,003504: 004969,003505: # P20, P22, P23 DSP NOUN 004970,003506: E7,1426 E7,1501 N49DISP EQUALS BVECTOR # B(5)TMP 004971,003507: 004972,003508: # S22.1 STORAGE. (36D) 004973,003509: E7,1426 E7,1537 SVMRKDAT EQUALS GRP2SVQ +1 # I(36)TMP 5 SETS OF MARK DATA +PAD OF ON 004974,003510: 004975,003511: # **** CISLUNAR NAV. ERAS. (P20'S) **** (57D) 004976,003512: E7,1426 E7,1603 TRUNX EQUALS SVMRKDAT +36D 004977,003513: E7,1426 E7,1603 DATATEST EQUALS TRUNX # (1) 004978,003514: E7,1426 E7,1604 UBAR0 EQUALS TRUNX +1 004979,003515: E7,1426 E7,1612 UBAR1 EQUALS UBAR0 +6 004980,003516: E7,1426 E7,1620 UBAR2 EQUALS UBAR1 +6 004981,003517: E7,1426 E7,1626 RZC EQUALS UBAR2 +6 004982,003518: E7,1426 E7,1634 VZC EQUALS RZC +6 004983,003519: E7,1426 E7,1642 UCLSTAR EQUALS VZC +6 004984,003520: E7,1426 E7,1650 USSTAR EQUALS UCLSTAR +6 004985,003521: E7,1426 E7,1656 RCLL EQUALS USSTAR +6 004986,003522: E7,1426 E7,1664 RL EQUALS RCLL +6 004987,003523: E7,1426 E7,1672 SRRETURN EQUALS RL +6 004988,003524: 004989,003525: # Page 122 004990,003526: # *-*-*-*- OVERLAY NUMBER 3 IN EBANK 7 -*-*-*-* 004991,003527: 004992,003528: # RENDEZVOUS GUIDANCE STORAGE. -- P32 ... P35 -- (8D) 004993,003529: E7,1426 E7,1447 DELTEEO EQUALS END-KALC # I(2) S-S BACK VALUES OF DELTA TIME 004994,003530: E7,1426 E7,1451 DELEL EQUALS DELTEEO +2 # I(2) S-S 004995,003531: E7,1426 E7,1453 SECMAX EQUALS DELEL +2 # I(2) S-S MAX STOP SIZE FOR ROUTINE 004996,003532: E7,1426 E7,1455 XXXALT EQUALS SECMAX +2 # I(2) 004997,003533: 004998,003534: # S40.9 STORAGE (16D) 004999,003535: E7,1426 E7,1457 VG EQUALS XXXALT +2 # I(6)TMP 005000,003536: E7,1426 E7,1465 VRPREV EQUALS VG +6 # I(6) 005001,003537: E7,1426 E7,1473 TNIT EQUALS VRPREV +6 # I(2) 005002,003538: E7,1426 E7,1475 TNITPREV EQUALS TNIT +2 # I(2) 005003,003539: 005004,003540: # S40.2,3 STORAGE. (1D) 005005,003541: E7,1426 E7,1477 AXISCODE EQUALS TNITPREV +2 # I(1)IN 005006,003542: 005007,003543: # P30'S-P17 COMMON STORAGE. (4D) 005008,003544: E7,1426 E7,1537 RACT3 EQUALS GRP2SVQ +1 # I(6)TMP POSITION OF ACTIE AT TPI TIME. 005009,003545: E7,1426 E7,1545 VACT3 EQUALS RACT3 +6 # I(6)TMP VELOCITY OF ACTIVE AT TPI TIME. 005010,003546: E7,1426 E7,1553 RPASS3 EQUALS VACT3 +6 # I(6)TMP POSITION OF PASSIVE AT TPI TIME. 005011,003547: E7,1426 E7,1561 VPASS3 EQUALS RPASS3 +6 # I(6)TMP VELOCITY OF PASSIVE AT TPI TIME. 005012,003548: 005013,003549: # P76, N84 DISPLAY (6D) 005014,003550: E7,1426 E7,1537 DELVOV EQUALS RACT3 # I(6)DSP NOUN 84 FOR X-V84, P34-35 005015,003551: 005016,003552: # INITVEL/MIDGIM STORAGE. (34D) 005017,003553: # (CALLED BY S34.1,2, S35.1,2, AND S40.9) 005018,003554: # (CALLS LAMBERT, CONIC SUBROUTINES) 005019,003555: E7,1426 E7,1567 RINIT EQUALS VPASS3 +6 # I(6)IN ACTIVE VEHICLE RADIUS VECTOR 005020,003556: E7,1426 E7,1575 VINIT EQUALS RINIT +6 # I(6)IN ACTIVE VEHICLE VELOCITY VECTOR 005021,003557: E7,1426 E7,1603 RTARG1 EQUALS VINIT +6 # I(6)TMP SHIFTED RTARG 005022,003558: E7,1426 E7,1611 VIPRIME EQUALS RTARG1 +6 # I(6)OUT NEW VEL REQ AT INITIAL RADIUS 005023,003559: E7,1426 E7,1617 VTPRIME EQUALS VIPRIME +6 # I(6)OUT TOTAL VELOCITY AT DESIRED RADIUS 005024,003560: E7,1426 E7,1625 +MGA EQUALS VTPRIME +6 # I(2)DSP NOUN 45 FOR P30,34,35. +MID GIM. 005025,003561: E7,1426 E7,1627 COZY4 EQUALS +MGA +2 # I(2)TMP COSINE OF ANGLE WHEN ROT STARTS 005026,003562: 005027,003563: # THE FOLLOWING OVERLAYS MEASUREMENT INCORP AND CANNOT SHARE WITH TPI 005028,003564: # Page 123 005029,003565: E7,1426 E7,1502 INTIME EQUALS AXISCODE +3 005030,003566: E7,1426 E7,1504 ITCTR EQUALS INTIME +2 # I(1)TMP ITERATION COUNTER 005031,003567: E7,1426 E7,1631 END-IN/M EQUALS COZY4 +2 # ** NEXT AVAIL LOC AFTER INITVEL/MIDGIM ** 005032,003568: 005033,003569: # P34 AND P33 STORAGE. (OVERLAYS INITVEL/MIDGIM) (24D) 005034,003570: E7,1426 E7,1567 VAPREC EQUALS RINIT # I(6) S-S PREC VEC FOR NOM TPI TIME (ACT V) 005035,003571: E7,1426 E7,1575 RAPREC EQUALS VINIT # I(6) S-S PREC VEC FOR NOM TPI TIME (ACT V) 005036,003572: E7,1426 E7,1611 VPPREC EQUALS VIPRIME # I(6) S-S PREC VEC FOR NOM TPI TIME (PASS) 005037,003573: E7,1426 E7,1617 RPPREC EQUALS VTPRIME # I(6) S-S PREC VEC FOR NOM TPI TIME (PASS) 005038,003574: 005039,003575: # P30, P40 INTERFACE. (20D) 005040,003576: E7,1426 E7,1631 RTIG EQUALS END-IN/M # I(6)TMP 005041,003577: E7,1426 E7,1637 VTIG EQUALS RTIG +6 # I(6)TMP 005042,003578: E7,1426 E7,1645 DELVSIN EQUALS VTIG +6 # I(6)TMP 005043,003579: E7,1426 E7,1645 DELVEET3 EQUALS DELVSIN # TMP DELTA VEL VECT INERTIAL COORDS. 005044,003580: E7,1426 E7,1645 VGTEMP EQUALS DELVEET3 005045,003581: E7,1426 E7,1653 DELVSAB EQUALS DELVSIN +6 # I(2)TMP 005046,003582: E7,1426 E7,1653 VGDISP = DELVSAB # DSP NOUN 40,42,99 FOR P30,34,35,40,41. 005047,003583: 005048,003584: # P35-P40 INTERFACE STORAGE. (OVERLAYS P30-P40 I/F STORAGE) (12D) 005049,003585: E7,1426 E7,1631 RPASS4 EQUALS RTIG # I(6)TMP POSITION OF PASSIVE AT INTERCEPT 005050,003586: E7,1426 E7,1637 VPASS4 EQUALS RPASS4 +6 # I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT 005051,003587: 005052,003588: # TPI SEARCH (P17) (6D) 005053,003589: E7,1426 E7,1645 E2 EQUALS VPASS4 +6 # I(6)TMP 005054,003590: 005055,003591: # P30-P40 COMMON STORAGE. (3D) 005056,003592: E7,1426 E7,1655 TPASS4 EQUALS DELVSAB +2 # I(2)TMP 005057,003593: E7,1426 E7,1655 TINT = TPASS4 # I(2) 005058,003594: E7,1426 E7,1657 QTEMP EQUALS TPASS4 +2 # I(1)TMP 005059,003595: 005060,003596: # P30-P40 STORAGE. 005061,003597: E7,1426 E7,1660 TTOGO EQUALS QTEMP +1 # B(2)DSP NOUN 35,40,45,59,99 005062,003598: # FOR P30,34,35,40,41,47, R30. 005063,003599: E7,1426 E7,1662 TTPI EQUALS TTOGO +2 # B(2)DSP NOUN 37 FOR P34 TPI TIME, CSECS. 005064,003600: # Page 124 005065,003601: E7,1426 E7,1664 END-P30S EQUALS TTPI +2 # ** NEXT AVAIL LOC AFTER P30-40 STORAGE. ** 005066,003602: 005067,003603: # P40 STORAGE. (8D) 005068,003604: E7,1426 E7,1664 VGBODY EQUALS END-P30S # B(6)DSP NOUN 85 FOR P40,41,42 VG-SC COOR 005069,003605: E7,1426 E7,1664 DELVCTL = VGBODY 005070,003606: E7,1426 E7,1672 P40TMP EQUALS VGBODY +6 # B(2)TMP 005071,003607: 005072,003608: # P47 STORAGE. 005073,003609: E7,1426 E7,1457 DV47TEMP EQUALS VG 005074,003610: E7,1426 E7,1674 DELVIMU EQUALS P40TMP +2 # I(6)DSP NOUN 83 FOR P47 DELTAV(IMU). 005075,003611: 005076,003612: # S40.1 STORAGE. (23D) 005077,003613: E7,1426 E7,1702 CSTEER EQUALS DELVIMU +6 # I(2)IN 005078,003614: E7,1426 E7,1704 BDT EQUALS CSTEER +2 # I(6)IN 005079,003615: E7,1426 E7,1712 UT EQUALS BDT +6 # I(6)OUT THRUST DIRECTION 005080,003616: E7,1426 E7,1720 VGTIG EQUALS UT +6 # I(6)OUT 005081,003617: E7,1426 E7,1720 VGPREV = VGTIG 005082,003618: E7,1426 E7,1726 F EQUALS VGTIG +6 # I(2)OUT S40.3 NEEDS THIS 005083,003619: 005084,003620: E7,1426 E7,1730 QTEMP1 EQUALS F +2 # I(1)TMP HOLDS RETURN 005085,003621: 005086,003622: # Page 125 005087,003623: # *-*-*-*- OVERLAY NUMBER 4 IN EBANK 7 -*-*-*-* 005088,003624: 005089,003625: # S35.1 STORAGE. (2D) 005090,003626: E7,1426 E7,1664 TSTRT EQUALS END-P30S # I(2)IN MIDCOURSE START TIME 005091,003627: 005092,003628: # S34.1 STORAGE. (OVERLAYS S35.1 STORAGE) (1) 005093,003629: E7,1426 E7,1664 TITER EQUALS TSTRT # I(1)TMP ITERATION COUNTER 005094,003630: 005095,003631: # (P30-31 Q-SAVES) (1) 005096,003632: E7,1426 E7,1664 P30/31RT EQUALS TITER # B(1) RETURN POINT 005097,003633: 005098,003634: # P20'S (COLOSSUS) STORAGE. (8D) 005099,003635: E7,1426 E7,1666 S22WUNL EQUALS TSTRT +2 # 1 WUNL W8 UNKNOWN INIT VALUE. 005100,003636: E7,1426 E7,1667 S22TOFF EQUALS S22WUNL +1 # 2 T SUB OFF 005101,003637: E7,1426 E7,1671 S22TPRIM EQUALS S22TOFF +2 # 2 SAVE TF 005102,003638: E7,1426 E7,1673 S22EORM EQUALS S22TPRIM +2 # 0 = EARTH -- NON-ZERO = MOON 005103,003639: 005104,003640: # DOWNLINK ERASABLES FOR P22, P20 MARK DATA. (8D) 005105,003641: E7,1426 E7,1674 MARKDOWN EQUALS S22EORM +1 # B(1) 005106,003642: E7,1426 E7,1703 RM EQUALS S22RTNEX # DOWNLINK OF VHF RANGE 005107,003643: 005108,003644: # S22.1 (1D) 005109,003645: E7,1426 E7,1703 S22RTNEX EQUALS MARKDOWN +7 # B(1) 005110,003646: 005111,003647: # CRS61.1 STORAGE. --A SUBSET OF P20-- (14D) 005112,003648: E7,1426 E7,1704 Q611 EQUALS RM +1 # I(1)TMP QSAVE 005113,003649: E7,1426 E7,1705 Q6111 EQUALS Q611 +1 # I(1)TMP QSAVE 005114,003650: E7,1426 E7,1706 SAVEPOS EQUALS Q6111 +1 # I(6)TMP LEM POSITION VECTOR. 005115,003651: E7,1426 E7,1714 SAVEVEL EQUALS SAVEPOS +6 # I(6)TMP LEM VELOCITY VECTOR 005116,003652: 005117,003653: # ATTITUDE MANEUVER -- CALLED BY P20,R61,R63,CRS61.1 (3D) 005118,003654: # Page 126 005119,003655: E7,1426 E7,1722 PRAXIS EQUALS SAVEVEL +6 # B(3) S-S DISP RES FOR PREF AXIS N95. 005120,003656: 005121,003657: # MARK ROUTINE (R21) STORAGE. -- IS SUBSET OF R22 -- (14D) 005122,003658: E7,1426 E7,1725 MRKBUF1 EQUALS PRAXIS +3 # B(7)TMP R21 MARK BUFFER. 005123,003659: E7,1426 E7,1734 MRKBUF2 EQUALS MRKBUF1 +7 # B(7)TMP R21 MARK BUFFER. 005124,003660: 005125,003661: # MORE CONICS STORAGE. (4) 005126,003662: E7,1426 COGA EQUALS 3774 # I(2) COTAN OF INITIAL FLIGHT PATH ANGLE 005127,003663: E7,1426 0003774 INDEP EQUALS COGA # I(1) USED BY SUBROUTINE 'ITERATOR' 005128,003664: E7,1426 0003776 EPSILONL EQUALS COGA +2 # I(2)TMP 005129,003665: 005130,003666: # RENDEZVOUS GUIDANCE STORAGE. -- P32...P35 -- (10D) 005131,003667: E7,1426 E7,1743 ELEV EQUALS MRKBUF2 +7 # I(2)TMP 005132,003668: E7,1426 E7,1745 RTX1 EQUALS ELEV +2 # (1) 005133,003669: E7,1426 E7,1746 RTX2 EQUALS RTX1 +1 # (1) 005134,003670: E7,1426 E7,1747 RTMU EQUALS RTX2 +1 # (1) 005135,003671: E7,1426 E7,1751 RTSR1/MU EQUALS RTMU +2 # (2) 005136,003672: E7,1426 E7,1753 CENTANG EQUALS RTSR1/MU +2 # I(2) S-S CENTRAL ANGLE COVERED (TPI-TFF) 005137,003673: 005138,003674: # TPI SEARCH (S17.1, S17.2) P17 STORAGE. (10D) 005139,003675: E7,1426 E7,1743 DELTEE EQUALS MRKBUF2 +7 # I(2) 005140,003676: E7,1426 E7,1745 XRS EQUALS DELTEE +2 # I(2) 005141,003677: E7,1426 E7,1747 THETL EQUALS XRS +2 # I(2) 005142,003678: E7,1426 E7,1751 TF EQUALS THETL +2 # I(2) 005143,003679: E7,1426 E7,1753 DELHITE EQUALS TF +2 # (2) 005144,003680: 005145,003681: # Page 127 005146,003682: # *-*-*-*- OVERLAY NUMBER 5 IN EBANK 7 -*-*-*-* 005147,003683: 005148,003684: # P17,P34 (2D) 005149,003685: E7,1426 E7,1645 NN1 EQUALS DELVEET3 # I(2)DSP NOUN 55,R1 005150,003686: 005151,003687: # ********* THE FOLLOWING ARE FOR FLIGHT 504 ONLY ************* 005152,003688: 005153,003689: # RETURN-TO-EARTH STORAGE. (93D) 005154,003690: E7,1426 E7,1631 RTEDVD EQUALS END-IN/M # I(2)IN DELTA VELOCITY DESIRED M/CS B7 005155,003691: E7,1426 E7,1633 RTEGAM2D EQUALS RTEDVD +2 # I(2)IN REENTRY ANGLE DESIRED REVS B0 005156,003692: E7,1426 E7,1635 RCON EQUALS RTEGAM2D +2 # I(2)TMP CONIC R2 RADIUS M B29 005157,003693: E7,1426 E7,1637 R(T1)/ EQUALS RCON +2 # I(6)TMP POSITION VECTOR AT TIG M B29/B27 005158,003694: E7,1426 E7,1645 R(T1) EQUALS R(T1)/ +6 # I(2)TMP MAGNITUDE OF R(T1)/ M B29/B27 005159,003695: E7,1426 E7,1647 DT21PR EQUALS R(T1) +2 # I(2)TMP PREVIOUS DT21 CS B30 005160,003696: E7,1426 E7,1651 MAMAX1 EQUALS DT21PR +2 # I(2)TMP MAJ AXIS LOW BOUND LMT M B30 005161,003697: E7,1426 E7,1653 MAMAX2 EQUALS MAMAX1 +2 # I(2)TMP MAJ AXIS UP BOUND LMT M B30 005162,003698: E7,1426 E7,1655 R(T2)/ EQUALS MAMAX2 +2 # I(6)TMP FINAL POSITION VECTOR M B29/B27 005163,003699: E7,1426 E7,1663 RD EQUALS R(T2)/ +6 # I(2)TMP FINAL R DESIRED M B29/B27 005164,003700: E7,1426 E7,1665 DRCON EQUALS RD +2 # I(2)TMP RCON SLOPE ITERATOR M B29/B27 005165,003701: E7,1426 E7,1667 RPRE' EQUALS DRCON +2 # I(2)TMP PREVIOUS RPRE M B29/B27 005166,003702: E7,1426 E7,1671 V(T1)/ EQUALS RPRE' +2 # I(6)TMP VEL VECTOR AT TIG M/CS B7/B5 005167,003703: E7,1426 E7,1677 V2(T1)/ EQUALS V(T1)/ +6 # I(6)TMP POST IMP VEL AT TIG M/CS B7/B5 005168,003704: E7,1426 E7,1705 DV EQUALS V2(T1)/ +6 # I(2)TMP DELTA VELOCITY AT TIG M/CS B7/B5 005169,003705: E7,1426 E7,1707 V(T2)/ EQUALS DV +2 # I(6)TMP FINAL VELOCITY VECTOR M/CS B7/B5 005170,003706: E7,1426 E7,1715 T1 EQUALS V(T2)/ +6 # I(2)TMP INITIAL VECTOR TIME CS B28 005171,003707: E7,1426 E7,1717 PCON EQUALS T1 +2 # I(2)TMP SEMI-LATUS RECTUM M B29 005172,003708: E7,1426 E7,1721 X(T1) EQUALS PCON +2 # I(2)TMP COTANGENT GAMMA1 B5 005173,003709: E7,1426 E7,1723 T12 EQUALS X(T1) +2 # I(2)TMP INIT TO FINAL POSIT TIME CS B28 005174,003710: E7,1426 E7,1725 DELTAT EQUALS T12 +2 # I(2)TMP DELTA T IN SAVE PERILUNE CS B28 005175,003711: E7,1426 E7,1727 NN1A EQUALS DELTAT +2 # I(2)TMP ITERATION COUNTER 1 005176,003712: E7,1426 E7,1731 NN2 EQUALS NN1A +2 # I(2)TMP ITERATION COUNTER 2 005177,003713: E7,1426 E7,1733 RTENCKEX EQUALS NN2 +2 # I(1)TMP RTENCK RETURN ADDRESS 005178,003714: E7,1426 E7,1734 CONICX1 EQUALS RTENCKEX +1 # I(1)TMP CONICS MU TABLE INDEX 005179,003715: E7,1426 E7,1735 T2 EQUALS CONICX1 +1 # I(2)TMP FINAL TIME CS B28 005180,003716: E7,1426 E7,1737 UR1/ EQUALS T2 +2 # I(6)TMP UNIT R(T1)/ B1 005181,003717: E7,1426 E7,1745 UV1/ EQUALS UR1/ +6 # I(6)TMP UNIT V(T1)/ B1 005182,003718: E7,1426 E7,1753 BETA1 EQUALS UV1/ +6 # I(2)TMP 1+X(T2)**2 B1 005183,003719: E7,1426 E7,1755 P(T1) EQUALS BETA1 +2 # I(1)TMP PRIMARY BODY STATE TIME 1 B14 005184,003720: E7,1426 E7,1756 CFPA EQUALS P(T1) +1 # I(2)TMP COSINE FLIGHT PATH ANGLE B1 005185,003721: E7,1426 E7,1760 PHI2 EQUALS CFPA +2 # I(2)TMP PERI OR APO INDICATOR B2 005186,003722: E7,1426 E7,1762 SPRTEX EQUALS PHI2 +2 # I(1)TMP ROUTINE RETURN ADDRESS 005187,003723: E7,1426 E7,1763 VNSTORE EQUALS SPRTEX +1 # I(1)TMP VERBNOUN STORAGE 005188,003724: E7,1426 E7,1764 BETA12 EQUALS VNSTORE +1 # I(2)TMP SIGN FOR TIMERAD 005189,003725: 005190,003726: # OVERLAYS WITHIN RETURN-TO-EARTH STORAGE. 005191,003727: E7,1426 RPRE EQUALS 24D # I(2)TMP COMPUTED PREC RADIUS M B29/B27 005192,003728: # Page 128 005193,003729: E7,1426 P/RPRE EQUALS 26D # I(2)TMP P/R B4 005194,003730: E7,1426 R/APRE EQUALS 28D # I(2)TMP R/A B6 005195,003731: E7,1426 E7,1723 X(T2)PRE EQUALS T12 # I(2)TMP PREC COTAN GAMMA2 B0 005196,003732: E7,1426 E7,1725 X(T2) EQUALS DELTAT # I(2)TMP COTAN GAMMA2 B0 005197,003733: E7,1426 E7,1745 UH/ EQUALS UV1/ # I(2)TMP UNIT HORIZONTAL VECTOR. B1 005198,003734: E7,1426 E7,1412 SPRTETIG EQUALS TIG # I(2)IN TIME OF IGNITION CS B28 005199,003735: E7,1426 E4,1721 RETLOCN EQUALS XR1HOLD +1 005200,003736: 005201,003737: E7,1426 WHOCARES EQUALS 3777 # A DUMMY FOR E-BANK INSENSITIVE 2CADRS. 005202,003738: E7,1426 0003777 END-E7 EQUALS WHOCARES # ***** LAST LOCATION IN E7 005203,003739: 005204,003740: # *** END OF KILERASE.080 *** 005205,003741: End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc