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