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