Source Code

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