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